X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FCompact.c;fp=rts%2Fsm%2FCompact.c;h=eceaba40101a316d2c2f34d12dfe1c0100108ee8;hp=4f3dcf25258c14355397f90326f51f98f690209e;hb=329077220af83860d5dd6891649cb1058b5bbaa6;hpb=0b22a78248bd06da23c220c842d2a850475d39de

diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c
index 4f3dcf2..eceaba4 100644
--- a/rts/sm/Compact.c
+++ b/rts/sm/Compact.c
@@ -954,11 +954,6 @@ compact(StgClosure *static_objects)
 	bdescr *bd;
 	StgPtr p;
         nat n;
-	for (bd = generations[g].mut_list; bd != NULL; bd = bd->link) {
-	    for (p = bd->start; p < bd->free; p++) {
-		thread((StgClosure **)p);
-	    }
-	}
         for (n = 0; n < n_capabilities; n++) {
             for (bd = capabilities[n].mut_lists[g]; 
                  bd != NULL; bd = bd->link) {