X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FSweep.c;h=81a41182b19fc00cf8b178f3472fe7775b1db6d8;hb=94d7c806e2b0f1640372142a89cac2e974f5c26b;hp=acbf6f8ca3f848f9be5c9143c2bf492aac2b9f97;hpb=214b3663d5d7598c13643f9221e43d5a7735b47f;p=ghc-hetmet.git

diff --git a/rts/sm/Sweep.c b/rts/sm/Sweep.c
index acbf6f8..81a4118 100644
--- a/rts/sm/Sweep.c
+++ b/rts/sm/Sweep.c
@@ -67,6 +67,8 @@ sweep(generation *gen)
                 fragd++;
                 bd->flags |= BF_FRAGMENTED;
             }
+
+            bd->flags |= BF_SWEPT;
         }
     }