From a55ddbd63ef4ff75be8577767248a70c49529190 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 19 Jan 1999 17:22:55 +0000
Subject: [PATCH] [project @ 1999-01-19 17:22:55 by simonm] Don't forget to
 reset the evacuated flag on to-space blocks when
 generations == 1.

---
 ghc/rts/GC.c |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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_);
 
-- 
1.7.10.4