diff options
author | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 21:35:04 +0000 |
---|---|---|
committer | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 21:35:04 +0000 |
commit | f732e7862bb1fcc65fcfbcfb6eaaf6dde39fdd5f (patch) | |
tree | e66fdce1149ac0b6f91d126d13dc45b51f0de7b9 /rts/sm/GC.h | |
parent | 2aa877f8588da099351ef51efca3605fd87ea768 (diff) | |
download | haskell-f732e7862bb1fcc65fcfbcfb6eaaf6dde39fdd5f.tar.gz |
Add +RTS -vg flag for requesting some GC trace messages, outside DEBUG
DEBUG imposes a significant performance hit in the GC, yet we often
want some of the debugging output, so -vg gives us the cheap trace
messages without the sanity checking of DEBUG, just like -vs for the
scheduler.
Diffstat (limited to 'rts/sm/GC.h')
-rw-r--r-- | rts/sm/GC.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/rts/sm/GC.h b/rts/sm/GC.h index f98e4a1535..5183837f1e 100644 --- a/rts/sm/GC.h +++ b/rts/sm/GC.h @@ -148,6 +148,14 @@ typedef struct gc_thread_ { #endif // ------------------- + // stats + + lnat copied; + lnat any_work; + lnat scav_global_work; + lnat scav_local_work; + + // ------------------- // workspaces // array of workspaces, indexed by stp->abs_no. This is placed |