diff options
Diffstat (limited to 'rts/sm/Scav.c-inc')
| -rw-r--r-- | rts/sm/Scav.c-inc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/sm/Scav.c-inc b/rts/sm/Scav.c-inc index 6f852035b5..64677c0a5a 100644 --- a/rts/sm/Scav.c-inc +++ b/rts/sm/Scav.c-inc @@ -444,15 +444,15 @@ scavenge_block (bdescr *bd) } if (p > bd->free) { + gct->copied += ws->todo_free - bd->free; bd->free = p; } debugTrace(DEBUG_gc, " scavenged %ld bytes", (unsigned long)((bd->free - bd->u.scan) * sizeof(W_))); - // update stats: this is a block that has been copied & scavenged - gct->copied += bd->free - bd->u.scan; - + // update stats: this is a block that has been scavenged + gct->scanned += bd->free - bd->u.scan; bd->u.scan = bd->free; } |