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/GCUtils.c | |
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/GCUtils.c')
-rw-r--r-- | rts/sm/GCUtils.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c index 103430abed..636f23dc23 100644 --- a/rts/sm/GCUtils.c +++ b/rts/sm/GCUtils.c @@ -92,7 +92,7 @@ push_scan_block (bdescr *bd, step_workspace *ws) ASSERT(bd->link == NULL); // update stats: this is a block that has been copied & scavenged - copied += bd->free - bd->start; + gct->copied += bd->free - bd->start; // put the scan block on the ws->scavd_list. bd->link = ws->scavd_list; |