Bläddra i källkod

Fix printing datas when --enable-debug is not set

Samuel Thibault 4 år sedan
förälder
incheckning
774112a13c
1 ändrade filer med 21 tillägg och 17 borttagningar
  1. 21 17
      tools/gdbinit

+ 21 - 17
tools/gdbinit

@@ -454,23 +454,27 @@ define starpu-print-data
     starpu-print-task $tasklist->task
     set $tasklist = $tasklist->next
   end
-  printf "Requester tasks\n"
-  set $requesterlist = $data->req_list.list._head
-  while $requesterlist != 0x0
-    printf "mode: "
-    starpu-print-mode $requesterlist->mode
-    printf "\n"
-    starpu-print-job $requesterlist->j
-    set $requesterlist = $requesterlist->_next
-  end
-  printf "Arbitered requester tasks\n"
-  set $requesterlist = $data->arbitered_req_list.list._head
-  while $requesterlist != 0x0
-    printf "mode: "
-    starpu-print-mode $requesterlist->mode
-    printf "\n"
-    starpu-print-job $requesterlist->j
-    set $requesterlist = $requesterlist->_next
+  if _starpu_debug
+    printf "Requester tasks\n"
+    set $requesterlist = $data->req_list.list._head
+    while $requesterlist != 0x0
+      printf "mode: "
+      starpu-print-mode $requesterlist->mode
+      printf "\n"
+      starpu-print-job $requesterlist->j
+      set $requesterlist = $requesterlist->_next
+    end
+    printf "Arbitered requester tasks\n"
+    set $requesterlist = $data->arbitered_req_list.list._head
+    while $requesterlist != 0x0
+      printf "mode: "
+      starpu-print-mode $requesterlist->mode
+      printf "\n"
+      starpu-print-job $requesterlist->j
+      set $requesterlist = $requesterlist->_next
+    end
+  else
+    printf "Printing requester tasks not supported yet without --enable-debug, sorry!\n"
   end
   if ($data->nchildren)
     printf "%d children\n", $data->nchildren