From bc61ed23a63fb29643deb079a7a0042b0981b5e8 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Wed, 24 Feb 1999 16:25:40 +0000
Subject: [PATCH] [project @ 1999-02-24 16:25:40 by simonm] - Fix a couple of
 uninitialized variables - Fill the nursery with junk after
 GC if sanity checking is on

---
 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 d35d83b..4ea3694 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.38 1999/02/23 15:45:06 simonm Exp $
+ * $Id: GC.c,v 1.39 1999/02/24 16:25:40 simonm Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -561,6 +561,8 @@ void GarbageCollect(void (*get_roots)(void))
   }
   small_alloc_list = NULL;
   alloc_blocks = 0;
+  alloc_Hp = NULL;
+  alloc_HpLim = NULL;
   alloc_blocks_lim = RtsFlags.GcFlags.minAllocAreaSize;
 
   /* Two-space collector:
@@ -676,6 +678,7 @@ void GarbageCollect(void (*get_roots)(void))
     bd->free = bd->start;
     ASSERT(bd->gen == g0);
     ASSERT(bd->step == g0s0);
+    IF_DEBUG(sanity,memset(bd->start, 0xaa, BLOCK_SIZE));
   }
   current_nursery = g0s0->blocks;
 
-- 
1.7.10.4