From: simonm <unknown>
Date: Tue, 19 Jan 1999 17:22:55 +0000 (+0000)
Subject: [project @ 1999-01-19 17:22:55 by simonm]
X-Git-Tag: Approx_2487_patches~41
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a55ddbd63ef4ff75be8577767248a70c49529190;p=ghc-hetmet.git

[project @ 1999-01-19 17:22:55 by simonm]
Don't forget to reset the evacuated flag on to-space blocks when
generations == 1.
---

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index a154012..937a356 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.15 1999/01/19 17:06:02 simonm Exp $
+ * $Id: GC.c,v 1.16 1999/01/19 17:22:55 simonm Exp $
  *
  * Two-space garbage collector
  *
@@ -567,6 +567,9 @@ void GarbageCollect(void (*get_roots)(void))
     if (old_to_space != NULL) {
       freeChain(old_to_space);
     }
+    for (bd = g0s0->to_space; bd != NULL; bd = bd->link) {
+      bd->evacuated = 0;	/* now from-space */
+    }
     live = g0s0->to_blocks * BLOCK_SIZE_W + 
       ((lnat)g0s0->hp_bd->free - (lnat)g0s0->hp_bd->start) / sizeof(W_);