[project @ 2005-04-20 13:58:00 by simonmar]

[ghc-hetmet.git] / ghc / rts / GCCompact.c

diff --git a/ghc/rts/GCCompact.c b/ghc/rts/GCCompact.c
index f126cfe..9c03c71 100644 (file)
--- 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);