Don't check for swept blocks in -DS.

[ghc-hetmet.git] / rts / sm / Sweep.c

diff --git a/rts/sm/Sweep.c b/rts/sm/Sweep.c
index acbf6f8..81a4118 100644 (file)
--- 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;
         }
     }