summaryrefslogtreecommitdiff
path: root/rts/sm/GC.h
diff options
context:
space:
mode:
authorSimon Marlow <simonmarhaskell@gmail.com>2008-04-16 22:12:24 +0000
committerSimon Marlow <simonmarhaskell@gmail.com>2008-04-16 22:12:24 +0000
commita75a8790410ce3ffb439bfd0b7c3999e7df72eb1 (patch)
tree426e006bbb3fc173cbe2bd615d947ecd5c782f01 /rts/sm/GC.h
parent96195367ad299bc3be251535bcff7fb75d097e07 (diff)
downloadhaskell-a75a8790410ce3ffb439bfd0b7c3999e7df72eb1.tar.gz
improvements to +RTS -s output
- count and report number of parallel collections - calculate bytes scanned in addition to bytes copied per thread - calculate "work balance factor" - tidy up the formatting a bit
Diffstat (limited to 'rts/sm/GC.h')
-rw-r--r--rts/sm/GC.h3
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/sm/GC.h b/rts/sm/GC.h
index 5a9cb98c48..0e0d90a48e 100644
--- a/rts/sm/GC.h
+++ b/rts/sm/GC.h
@@ -126,7 +126,7 @@ typedef struct gc_thread_ {
StgClosure* static_objects; // live static objects
StgClosure* scavenged_static_objects; // static objects scavenged so far
- lnat gc_count; // number of gc's this thread has done
+ lnat gc_count; // number of GCs this thread has done
// --------------------
// evacuate flags
@@ -157,6 +157,7 @@ typedef struct gc_thread_ {
// stats
lnat copied;
+ lnat scanned;
lnat any_work;
lnat no_work;
lnat scav_find_work;