X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FStats.c;h=b9df019ab87724ec29b52b34cb03eee76ce4781d;hb=2cf1115cd06678e5255c39e9fd56787031c31c06;hp=7059feb4a971036f02fb39df7e7228e59ab4d2d7;hpb=6b9f9a04d857ac36674594bba89a695fdeef48f7;p=ghc-hetmet.git

diff --git a/rts/Stats.c b/rts/Stats.c
index 7059feb..b9df019 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -676,14 +676,10 @@ statDescribeGens(void)
       for (bd = step->large_objects, lge = 0; bd; bd = bd->link) {
 	lge++;
       }
-      live = step->n_large_blocks * BLOCK_SIZE;
-      bd = step->blocks;
       // This live figure will be slightly less that the "live" figure
       // given by +RTS -Sstderr, because we take don't count the
       // slop at the end of each block.
-      for (; bd; bd = bd->link) {
-	live += (bd->free - bd->start) * sizeof(W_);
-      }
+      live += countOccupied(step->blocks) + countOccupied(step->large_objects);
       if (s != 0) {
 	debugBelch("%36s","");
       }