Browse Source

fix looking through prioritized lists

Samuel Thibault 6 years ago
parent
commit
a43ac84d4b
1 changed files with 16 additions and 2 deletions
  1. 16 2
      tools/gdbinit

+ 16 - 2
tools/gdbinit

@@ -569,8 +569,9 @@ define starpu-print-request
   end
 end
 
-define starpu-print-requests-list
-  set $request = $arg0.list._head
+define starpu-print-requests-treelist
+  set $list = $arg0
+  set $request = $list->_head
   while $request != 0
     printf " Request %p: handle %p ", $request, $request->handle
     starpu-print-mode $request->mode
@@ -579,6 +580,19 @@ define starpu-print-requests-list
   end
 end
 
+define starpu-print-requests-tree
+  if $arg0
+    starpu-print-requests-tree $arg0->children[0]
+    set $stage = (struct _starpu_data_request_prio_list_stage *) $arg0
+    starpu-print-requests-treelist (&($stage->list))
+    starpu-print-requests-tree $arg0->children[1]
+  end
+end
+
+define starpu-print-requests-list
+  starpu-print-requests-tree $arg0.tree.root
+end
+
 define starpu-print-requests
   set $node = 0
   while $node < _starpu_descr.nnodes