gdbinit: Also print whether data are being transferred

tools/gdbinit

@@ -723,6 +723,10 @@ define starpu-memusage
     set $nodataref_b = 0
     set $nosubdataref = 0
     set $nosubdataref_b = 0
+    set $reading = 0
+    set $reading_b = 0
+    set $writing = 0
+    set $writing_b = 0
     set $mc = mc_list[$node]->_head
     set pagination off
     while $mc != 0
@@ -785,6 +789,23 @@ define starpu-memusage
         if $handle->per_node[$node].refcnt == 0
           set $nodataref = $nodataref + 1
 	  set $nodataref_b = $nodataref_b + $size
+	else
+	  set $r = 0
+	  set $_node = 0
+	  while $_node < _starpu_descr.nnodes
+	    set $_node = $_node + 1
+	    if $_node != $node && $handle->per_node[$node].request[$_node] != 0
+	      set $r = $r + 1
+	    end
+	  end
+	  if $r != 0
+	    set $reading = $reading + 1
+	    set $reading_b = $reading_b + $size
+	  end
+	  if $handle->per_node[$node].request[$node] != 0
+	    set $writing = $writing + 1
+	    set $writing_b = $writing_b + $size
+	  end
         end
       end
       set $mc = $mc->_next
@@ -805,6 +826,8 @@ define starpu-memusage
     printf "    invalid: %u, %uMiB\n", $invalid, $invalid_b / 1048576
     printf "    nosubdataref: %u, %uMiB\n", $nosubdataref, $nosubdataref_b / 1048576
     printf "    nodataref: %u, %uMiB\n", $nodataref, $nodataref_b / 1048576
+    printf "    reading: %u, %uMiB\n", $reading, $reading_b / 1048576
+    printf "    writing: %u, %uMiB\n", $writing, $writing_b / 1048576
     printf "\n  cached: %u, %uMiB\n", mc_cache_nb[$node], mc_cache_size[$node] / 1048576
     set $node = $node + 1
   end