diff options
| -rw-r--r-- | ghc/rts/GC.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c index f3a161020e..f127808628 100644 --- a/ghc/rts/GC.c +++ b/ghc/rts/GC.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $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 * @@ -422,7 +422,7 @@ GarbageCollect ( void (*get_roots)(evac_fn), rtsBool force_major_gc ) // 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 |