Browse Source

tools/gdbinit: complete function starpu-mpi-print-early-data

Nathalie Furmento 10 years ago
parent
commit
a51cf6e48c
1 changed files with 13 additions and 9 deletions
  1. 13 9
      tools/gdbinit

+ 13 - 9
tools/gdbinit

@@ -669,16 +669,20 @@ end
 define starpu-mpi-print-early-data
 define starpu-mpi-print-early-data
   set $hash = (struct _starpu_mpi_early_data_handle_hashlist *)_starpu_mpi_early_data_handle_hashmap
   set $hash = (struct _starpu_mpi_early_data_handle_hashlist *)_starpu_mpi_early_data_handle_hashmap
   if $hash
   if $hash
-     printf "Communicator %p Rank %d Data_tag %d\n", $hash->node_tag->comm, $hash->node_tag->rank, $hash->node_tag->data_tag
-     set $list = (struct _starpu_mpi_early_data_handle_list *) $hash->list
-     if $list
-	set $request = $list->_head
-        while $request
-            starpu-mpi-print-request $request
-	    set $request = $request._next
-	end
+     while $hash
+       printf "Communicator %p Rank %d Data_tag %d\n", $hash->node_tag->comm, $hash->node_tag->rank, $hash->node_tag->data_tag
+       set $list = (struct _starpu_mpi_early_data_handle_list *) $hash->list
+       if $list
+  	  set $data = (struct _starpu_mpi_early_data_handle *)$list->_head
+          while $data
+             starpu-mpi-print-request $data->req
+	     set $data = $data->_next
+	  end
+       end
+       set $hash = (struct _starpu_mpi_early_data_handle_hashlist *) $hash.hh.next
+     end 
   else
   else
-     printf "No early data"
+     printf "No early data\n"
   end
   end
 end
 end