X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FStats.c;fp=rts%2FStats.c;h=ed21ec5e881850464a9d189eaf870dba11878a20;hb=3fb074b5fcfd91fe0d37af83f221450ac4734908;hp=f1e6e332d7bdd890dde14f10ca2236db499b8995;hpb=429dc9a048f5533143fb5c9908b09d3155496e9b;p=ghc-hetmet.git

diff --git a/rts/Stats.c b/rts/Stats.c
index f1e6e33..ed21ec5 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -741,7 +741,7 @@ stat_exit(int alloc)
 		        AvgResidency*sizeof(W_)/ResidencySamples, 
 		    MaxResidency*sizeof(W_), 
 		    ResidencySamples,
-		    (unsigned long)(mblocks_allocated * MBLOCK_SIZE / (1024L * 1024L)),
+		    (unsigned long)(peak_mblocks_allocated * MBLOCK_SIZE / (1024L * 1024L)),
 		    TICK_TO_DBL(InitUserTime), TICK_TO_DBL(InitElapsedTime),
 		    TICK_TO_DBL(MutUserTime), TICK_TO_DBL(MutElapsedTime),
 		    TICK_TO_DBL(GC_tot_time), TICK_TO_DBL(GCe_tot_time));