From: simonmar <unknown>
Date: Tue, 17 Jan 2006 13:28:01 +0000 (+0000)
Subject: [project @ 2006-01-17 13:28:01 by simonmar]
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=14ba76f47ab6fd51a18ff15b788fe29c5f849689

[project @ 2006-01-17 13:28:01 by simonmar]
take into account unscavenged copied words in +RTS -t stats.
---

diff --git a/ghc/rts/Stats.c b/ghc/rts/Stats.c
index 809ad78..5292019 100644
--- a/ghc/rts/Stats.c
+++ b/ghc/rts/Stats.c
@@ -265,7 +265,8 @@ stat_endGC (lnat alloc, lnat live, lnat copied,
 	    nat faults = getPageFaults();
 	    
 	    statsPrintf("%9ld %9ld %9ld",
-		    alloc*sizeof(W_), copied*sizeof(W_), live*sizeof(W_));
+		    alloc*sizeof(W_), (copied+scavd_copied)*sizeof(W_), 
+			live*sizeof(W_));
 	    statsPrintf(" %5.2f %5.2f %7.2f %7.2f %4ld %4ld  (Gen: %2ld)\n", 
 		    TICK_TO_DBL(gc_time),
 		    TICK_TO_DBL(gc_etime),