X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FStorage.c;h=b76fcf450b9216dc7b76c4b1c1d71561bca67195;hp=d37a076ab624699e41864186f3b0406f9d7c4339;hb=a7f2a897bab20f05d4cf5fc8cdae328698c7fc82;hpb=b339c8b1d0f239031802555b454062e9430ec8bb

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index d37a076..b76fcf4 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -1308,6 +1308,9 @@ memInventory (rtsBool show)
 #define MB(n) (((n) * BLOCK_SIZE_W) / ((1024*1024)/sizeof(W_)))
 
   leak = live_blocks + free_blocks != mblocks_allocated * BLOCKS_PER_MBLOCK;
+
+  ASSERT(n_alloc_blocks == live_blocks);
+
   if (show || leak)
   {
       if (leak) {