From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 14 Dec 2006 10:11:02 +0000 (+0000)
Subject: fix wibble in memory leak error dump
X-Git-Tag: 2006-12-16~8
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d12cd2f2c930773a34781b942b8248a3818eeae8;hp=7eb8be6b5fcd80c4d9dfde6990dcb9fec4062d6b

fix wibble in memory leak error dump
---

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index ddae8c6..fba30bb 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -1186,7 +1186,7 @@ memInventory(void)
       debugBelch("  exec         : %4lu\n", exec_blocks);
       debugBelch("  free         : %4lu\n", free_blocks);
       debugBelch("  total        : %4lu\n\n", live_blocks + free_blocks);
-      debugBelch("  in system    : %4lu\n", mblocks_allocated + BLOCKS_PER_MBLOCK);
+      debugBelch("  in system    : %4lu\n", mblocks_allocated * BLOCKS_PER_MBLOCK);
       ASSERT(0);
   }
 }