From 18f1d72ef459c7ba8f230beaa132fe6c7e592723 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 25 Mar 2010 11:05:00 +0000
Subject: [PATCH] A sanity check

---
 rts/sm/Storage.c |    2 ++
 1 file changed, 2 insertions(+)

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;
 }
 
-- 
1.7.10.4