From: simonmar <unknown>
Date: Wed, 20 Apr 2005 13:58:00 +0000 (+0000)
Subject: [project @ 2005-04-20 13:58:00 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~714
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7619203a4895c1f6a4b980088183686c61c7899d;p=ghc-hetmet.git

[project @ 2005-04-20 13:58:00 by simonmar]
Remove bogus code: the mutable list does not need to be rebuilt during
compaction.  It just needs to be updated, which is already happening.

(fixes crashes in compacting collection; I think a different fix is
required for STABLE, though)
---

diff --git a/ghc/rts/GCCompact.c b/ghc/rts/GCCompact.c
index f126cfe..9c03c71 100644
--- a/ghc/rts/GCCompact.c
+++ b/ghc/rts/GCCompact.c
@@ -841,11 +841,6 @@ update_bkwd_compact( step *stp )
 		move(free,p,size);
 	    }
 
-	    // Rebuild the mutable list for the old generation.
-	    if (ip_MUTABLE(info)) {
-		recordMutable((StgClosure *)free);
-	    }
-
 	    // relocate TSOs
 	    if (info->type == TSO) {
 		move_TSO((StgTSO *)p, (StgTSO *)free);