diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-03-25 11:05:00 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-03-25 11:05:00 +0000 |
| commit | 18f1d72ef459c7ba8f230beaa132fe6c7e592723 (patch) | |
| tree | e5d0bc57ec821f71d75c27c36078fa399556a75d | |
| parent | 5c3ea9fb995233c31163d65bee64ab1dca663df4 (diff) | |
| download | haskell-18f1d72ef459c7ba8f230beaa132fe6c7e592723.tar.gz | |
A sanity check
| -rw-r--r-- | rts/sm/Storage.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c index 1f875a9b64..d7e5b679f8 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; } |