Show more debugging output in gdb

tools/gdbinit

@@ -44,6 +44,9 @@ define starpu-print-task
   end
 
   printf "StarPU Task (%p)\n", $task
+  if $job && $job->model_name
+    printf "\tname:\t\t\t<%s>\n", $job->model_name
+  end
   printf "\tcodelet:\t\t\t<%p>\n", $task->cl
   printf "\tcallback:\t\t\t<%p>\n", $task->callback_func
   printf "\tsynchronous:\t\t\t<%d>\n", $task->synchronous
@@ -54,6 +57,8 @@ define starpu-print-task
   printf "\tregenerate:\t\t\t<%d>\n", $task->regenerate
   printf "\tstatus:\t\t\t\t<%s>\n", $status
   printf "\tjob:\t\t\t\t<%p>\n", $job
+  printf "\tndeps:\t\t\t\t<%p>\n", $job->job_successors->ndeps
+  printf "\tndeps_completed:\t\t\t\t<%p>\n", $job->job_successors->ndeps_completed
 end
 
 document starpu-print-task
@@ -64,20 +69,29 @@ define starpu-tasks-on-worker
   set language c
   set $worker=config->workers[$arg0]
   set $task=$worker->local_tasks->head
-  printf "Tasks\n"
   while $task != 0x0
     starpu-print-task $task
     set $task=$task->next
   end
 end
 
+define starpu-tasks-on-workers
+  set language c
+  set $num=0
+  while $num<config->topology->nworkers
+    printf "Worker %s\n", config->workers[$num].name
+    starpu-tasks-on-worker $num
+    set $num = $num + 1
+  end
+end
+
 define starpu-workers
   set language c
   set $num=0
-  printf "[Id] Arch Mask Devid Bindid Workerid Isrunning Isinitialized\n"
+  printf "[Id] Name       Arch Mask Devid Bindid Workerid Isrunning Isinitialized\n"
   while $num<config->topology->nworkers
-    set $worker=config->workers[$num]
-    printf "[%d] %4d %4d %5d %6d %8d %9d %13d\n", $num, $worker->arch, $worker->worker_mask, \
+    set $worker=&config->workers[$num]
+    printf "[%2d] %-10s %-4d %-4d %-5d %-6d %-8d %-9d %-13d\n", $num, $worker->name, $worker->arch, $worker->worker_mask, \
           $worker->devid, $worker->bindid, $worker->workerid, $worker->worker_is_running, $worker->worker_is_initialized
     set $num = $num + 1
   end
@@ -87,6 +101,11 @@ document starpu-workers
 Prints a list of the StarPU workers
 end
 
+define starpu-tasks
+  printf "%d submitted tasks\n", nsubmitted
+  printf "TODO: currently running\n"
+end
+
 define starpu
   printf "Here I am...\n"
 end
@@ -94,19 +113,94 @@ end
 define starpu-print-data
   set language c
   set $data = $arg0
+  printf "Data handle %p\n", $data
   printf "Home node %d\n", $data->home_node
+  printf "Requests %d\n", $data->refcnt
+  printf "Current mode "
+  if ($data->current_mode & 1)
+    printf "R"
+  end
+  if ($data->current_mode & 2)
+    printf "W"
+  end
+  if ($data->current_mode & 4)
+    printf " SCRATCH"
+  end
+  if ($data->current_mode & 8)
+    printf " REDUX"
+  end
+  printf "\n"
+  if $data->current_mode & (4|8)
+    set $n = 0
+    while $n < config.topology.nworkers
+      set $replicate = $data->per_worker[$n]
+      printf "Worker %2d %10s:", $n, config->workers[$n]->name
+      if $replicate->state == 0
+        printf " OWNER"
+      end
+      if $replicate->state == 1
+        printf " SHARED"
+      end
+      if $replicate->state == 2
+        printf " INVALID"
+      end
+      if $replicate->initialized
+        printf " initialized"
+      end
+      printf "\n"
+      set $n = $n + 1
+    end
+  else
+    set $n = 0
+    while $n < descr.nnodes
+      set $replicate = $data->per_node[$n]
+      printf "Node %2d:", $n
+      if $replicate->state == 0
+        printf " OWNER"
+      end
+      if $replicate->state == 1
+        printf " SHARED"
+      end
+      if $replicate->state == 2
+        printf " INVALID"
+      end
+      if $replicate->initialized
+        printf " initialized"
+      end
+      printf "\n"
+      set $n = $n + 1
+    end
+  end
   printf "Post sync tasks\n"
   set $tasklist = $data->post_sync_tasks
   while $tasklist != 0x0
     starpu-print-task $tasklist->task
     set $tasklist = $tasklist->next
   end
+  set $n = 0
+  while $n < $data->nchildren
+    printf "Child %p\n", $data->children[$n]
+    starpu-print-data $data->children[$n]
+  end
+end
+
+define starpu-print-datas
+  set $entry = registered_handles
+  while $entry
+    starpu-print-data $entry->handle
+    printf "\n"
+    set $entry = (struct handle_entry *) $entry.hh.next
+  end
 end
 
 document starpu
 List of StarPU-specific gdb functions:
 starpu-workers		prints a list of the StarPU workers
+starpu-tasks-on-workers prints a list of the tasks currently running on workers
 starpu-tasks-on-worker  prints a list of the tasks running on the given worker
 starpu-print-job        prints a StarPU job
 starpu-print-task       prints a StarPU task
+starpu-print-data       prints a StarPU data handle
+starpu-print-datas      prints all StarPU data handles
+starpu-tasks            prints a list of the tasks flowing in StarPU
 end