Commit 69373e1e authored by simonmar's avatar simonmar
Browse files

[project @ 2003-09-23 15:31:02 by simonmar]

Fix for clearing the evacuated flag on a block: don't throw away other
flag settings in the process.
parent 6d493299
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $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 * (c) The GHC Team 1998-2003
* *
...@@ -422,7 +422,7 @@ GarbageCollect ( void (*get_roots)(evac_fn), rtsBool force_major_gc ) ...@@ -422,7 +422,7 @@ GarbageCollect ( void (*get_roots)(evac_fn), rtsBool force_major_gc )
// mark the large objects as not evacuated yet // mark the large objects as not evacuated yet
for (bd = stp->large_objects; bd; bd = bd->link) { 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 // for a compacted step, we need to allocate the bitmap
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment