From: simonmar <unknown>
Date: Thu, 12 Jan 2006 13:49:24 +0000 (+0000)
Subject: [project @ 2006-01-12 13:49:24 by simonmar]
X-Git-Tag: final_switch_to_darcs,_this_repo_is_now_live~29
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7b414bae653d27a60bdd78939330d5697e8f018a;hp=83f0769a351024b5d686168f78900e769d64a2c3;p=ghc-hetmet.git

[project @ 2006-01-12 13:49:24 by simonmar]
fix calculation of copied bytes, we had a words/bytes mismatch when
adding the size of the mutable list
---

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 1641e3a..c7f9a79 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -793,7 +793,7 @@ GarbageCollect ( void (*get_roots)(evac_fn), rtsBool force_major_gc )
     // stats.  Every mutable list is copied during every GC.
     if (g > 0) {
 	for (bd = generations[g].mut_list; bd != NULL; bd = bd->link) {
-	    copied += (bd->free - bd->start) * sizeof(StgWord);
+	    copied += bd->free - bd->start;
 	}
     }