X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGC.c;h=ec5f70070532cc223cb63ef6c0a6877db1d6cff8;hb=eff182c31745b958d627d4feb1e53c09298c6836;hp=191310aaca68801f3bab9d40cea29791d7933046;hpb=3fb074b5fcfd91fe0d37af83f221450ac4734908;p=ghc-hetmet.git

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 191310a..ec5f700 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -1309,6 +1309,10 @@ init_collected_gen (nat g, nat n_threads)
                 if (!(bd->flags & BF_FRAGMENTED)) {
                     bd->flags |= BF_MARKED;
                 }
+
+                // BF_SWEPT should be marked only for blocks that are being
+                // collected in sweep()
+                bd->flags &= ~BF_SWEPT;
             }
         }
     }