From 7267a7862cc406e593c89e79a4d5ab064ac40120 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 29 Oct 2010 09:28:43 +0000 Subject: [PATCH] sanity: fix places where we weren't filling fresh memory with 0xaa --- rts/sm/BlockAlloc.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/rts/sm/BlockAlloc.c b/rts/sm/BlockAlloc.c index f0f786b..429ebd0 100644 --- a/rts/sm/BlockAlloc.c +++ b/rts/sm/BlockAlloc.c @@ -333,6 +333,7 @@ allocGroup (nat n) // only the bdescrs of the first MB are required to be initialised initGroup(bd); + IF_DEBUG(sanity,memset(bd->start, 0xaa, bd->blocks * BLOCK_SIZE)); IF_DEBUG(sanity, checkFreeListSanity()); return bd; } @@ -382,6 +383,7 @@ allocGroup (nat n) barf("allocGroup: free list corrupted"); } initGroup(bd); // initialise it + IF_DEBUG(sanity,memset(bd->start, 0xaa, bd->blocks * BLOCK_SIZE)); IF_DEBUG(sanity, checkFreeListSanity()); ASSERT(bd->blocks == n); return bd; -- 1.7.10.4