|
@@ -715,6 +715,10 @@ define starpu-memusage
|
|
|
set $normal_b = 0
|
|
|
set $owner = 0
|
|
|
set $owner_b = 0
|
|
|
+ set $shared = 0
|
|
|
+ set $shared_b = 0
|
|
|
+ set $invalid = 0
|
|
|
+ set $invalid_b = 0
|
|
|
set $nodataref = 0
|
|
|
set $nodataref_b = 0
|
|
|
set $nosubdataref = 0
|
|
@@ -766,6 +770,14 @@ define starpu-memusage
|
|
|
set $owner = $owner + 1
|
|
|
set $owner_b = $owner_b + $size
|
|
|
end
|
|
|
+ if $handle->per_node[$node].state == STARPU_SHARED
|
|
|
+ set $shared = $shared + 1
|
|
|
+ set $shared_b = $shared_b + $size
|
|
|
+ end
|
|
|
+ if $handle->per_node[$node].state == STARPU_INVALID
|
|
|
+ set $invalid = $invalid + 1
|
|
|
+ set $invalid_b = $invalid_b + $size
|
|
|
+ end
|
|
|
if (may_free_subtree($handle,$node))
|
|
|
set $nosubdataref = $nosubdataref + 1
|
|
|
set $nosubdataref_b = $nosubdataref_b + $size
|
|
@@ -786,11 +798,13 @@ define starpu-memusage
|
|
|
printf " diduse: %u, %uMiB\n", $diduse, $diduse_b / 1048576
|
|
|
printf " redux: %u, %uMiB\n", $redux, $redux_b / 1048576
|
|
|
printf " relax: %u, %uMiB\n", $relax, $relax_b / 1048576
|
|
|
- printf " noref: %u, %uMiB\n", $noref, $noref_b / 1048576
|
|
|
+ printf " noref: %u, %uMiB\n", $noref, $noref_b / 1048576
|
|
|
printf " normal: %u, %uMiB\n", $normal, $normal_b / 1048576
|
|
|
- printf " owner: %u, %uMiB\n", $owner, $owner_b / 1048576
|
|
|
- printf " nosubdataref: %u, %uMiB\n", $nosubdataref, $nosubdataref_b / 1048576
|
|
|
- printf " nodataref: %u, %uMiB\n", $nodataref, $nodataref_b / 1048576
|
|
|
+ printf " owner: %u, %uMiB\n", $owner, $owner_b / 1048576
|
|
|
+ printf " shared: %u, %uMiB\n", $shared, $shared_b / 1048576
|
|
|
+ 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 "\n cached: %u, %uMiB\n", mc_cache_nb[$node], mc_cache_size[$node] / 1048576
|
|
|
set $node = $node + 1
|
|
|
end
|