X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FGC.c;h=c7f9a7945e18798bb52ff12271b1f153d562faf3;hb=7b414bae653d27a60bdd78939330d5697e8f018a;hp=1641e3a44148fe90a2f54d2bbb8b371403243333;hpb=83f0769a351024b5d686168f78900e769d64a2c3;p=ghc-hetmet.git

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;
 	}
     }