From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 25 Mar 2010 11:05:00 +0000 (+0000)
Subject: A sanity check
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=18f1d72ef459c7ba8f230beaa132fe6c7e592723

A sanity check
---

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index 1f875a9..d7e5b67 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -614,6 +614,8 @@ allocate (Capability *cap, lnat n)
     }
     p = bd->free;
     bd->free += n;
+
+    IF_DEBUG(sanity, ASSERT(*((StgWord8*)p) == 0xaa));
     return p;
 }