From: simonm <unknown>
Date: Wed, 24 Feb 1999 16:25:40 +0000 (+0000)
Subject: [project @ 1999-02-24 16:25:40 by simonm]
X-Git-Tag: Approximately_9120_patches~6516
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bc61ed23a63fb29643deb079a7a0042b0981b5e8;p=ghc-hetmet.git

[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
---

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;