- Fix a couple of uninitialized variables
- Fill the nursery with junk after GC if sanity checking is on
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $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
*
*
* (c) The GHC Team 1998-1999
*
}
small_alloc_list = NULL;
alloc_blocks = 0;
}
small_alloc_list = NULL;
alloc_blocks = 0;
+ alloc_Hp = NULL;
+ alloc_HpLim = NULL;
alloc_blocks_lim = RtsFlags.GcFlags.minAllocAreaSize;
/* Two-space collector:
alloc_blocks_lim = RtsFlags.GcFlags.minAllocAreaSize;
/* Two-space collector:
bd->free = bd->start;
ASSERT(bd->gen == g0);
ASSERT(bd->step == g0s0);
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;
}
current_nursery = g0s0->blocks;