From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 29 Oct 2010 09:28:43 +0000 (+0000)
Subject: sanity: fix places where we weren't filling fresh memory with 0xaa
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7267a7862cc406e593c89e79a4d5ab064ac40120

sanity: fix places where we weren't filling fresh memory with 0xaa
---

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;