summaryrefslogtreecommitdiff
path: root/rts/sm/GCUtils.c
diff options
context:
space:
mode:
authorSimon Marlow <simonmarhaskell@gmail.com>2008-04-16 21:35:04 +0000
committerSimon Marlow <simonmarhaskell@gmail.com>2008-04-16 21:35:04 +0000
commitf732e7862bb1fcc65fcfbcfb6eaaf6dde39fdd5f (patch)
treee66fdce1149ac0b6f91d126d13dc45b51f0de7b9 /rts/sm/GCUtils.c
parent2aa877f8588da099351ef51efca3605fd87ea768 (diff)
downloadhaskell-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.c2
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;