From 63b6c9338c67278da8d1d7d8e7e7ce7373ac52da Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 24 Nov 2006 16:25:12 +0000 Subject: [PATCH] small stats fix --- rts/sm/GC.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rts/sm/GC.c b/rts/sm/GC.c index 17211ac..270784e 100644 --- a/rts/sm/GC.c +++ b/rts/sm/GC.c @@ -649,7 +649,7 @@ GarbageCollect ( rtsBool force_major_gc ) if (g <= N) { copied -= stp->hp_bd->start + BLOCK_SIZE_W - stp->hp_bd->free; - scavd_copied -= (P_)(BLOCK_ROUND_UP(stp->scavd_hp)) - stp->scavd_hp; + scavd_copied -= stp->scavd_hpLim - stp->scavd_hp; } } -- 1.7.10.4