diff options
Diffstat (limited to 'rts/sm/Scav.c')
| -rw-r--r-- | rts/sm/Scav.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c index 4c2e3e5ae4..989103c672 100644 --- a/rts/sm/Scav.c +++ b/rts/sm/Scav.c @@ -842,11 +842,11 @@ loop: ; } debugTrace(DEBUG_gc, " scavenged %ld bytes", - (unsigned long)((bdescr_free(bd) - bd->u.scan) * sizeof(W_))); + (unsigned long)((free - bd->u.scan) * sizeof(W_))); // update stats: this is a block that has been scavenged - gct->scanned += bdescr_free(bd) - bd->u.scan; - bd->u.scan = bdescr_free(bd); + gct->scanned += free - bd->u.scan; + bd->u.scan = free; if (bd != ws->todo_bd) { // we're not going to evac any more objects into |