From a7d236fbcf664fde8c81ba840efc1c471051814d Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 27 Oct 2006 13:34:45 +0000 Subject: [PATCH] count mut-list bytes, not words --- rts/Stats.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/rts/Stats.c b/rts/Stats.c index 6e093ad..aabe2590 100644 --- a/rts/Stats.c +++ b/rts/Stats.c @@ -557,13 +557,13 @@ statDescribeGens(void) step *step; debugBelch( -" Gen Steps Max Mutable Step Blocks Live Large\n" -" Blocks Closures Objects\n"); +" Gen Steps Max Mut-list Step Blocks Live Large\n" +" Blocks Bytes Objects\n"); mut = 0; for (g = 0; g < RtsFlags.GcFlags.generations; g++) { for (bd = generations[g].mut_list; bd != NULL; bd = bd->link) { - mut += bd->free - bd->start; + mut += (bd->free - bd->start) * sizeof(W_); } debugBelch("%8d %8d %8d %9d", g, generations[g].n_steps, -- 1.7.10.4