Fix for clearing the evacuated flag on a block: don't throw away other
flag settings in the process.
/* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.159 2003/08/26 12:12:49 simonmar Exp $
+ * $Id: GC.c,v 1.160 2003/09/23 15:31:02 simonmar Exp $
*
* (c) The GHC Team 1998-2003
*
// mark the large objects as not evacuated yet
for (bd = stp->large_objects; bd; bd = bd->link) {
- bd->flags = BF_LARGE;
+ bd->flags &= ~BF_EVACUATED;
}
// for a compacted step, we need to allocate the bitmap