From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 22 Nov 2006 10:16:04 +0000 (+0000)
Subject: fix bug in memInventory() giving false memory leak errors
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=fa901ba1621f9e47f3c952971664034a0d26481c

fix bug in memInventory() giving false memory leak errors
fixes ffi009(threaded1)
---

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index b7028d5..e4390da 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -1148,7 +1148,7 @@ memInventory(void)
   // count the blocks containing executable memory
   exec_blocks = 0;
   for (bd = exec_block; bd; bd = bd->link) {
-      exec_blocks = bd->blocks;
+      exec_blocks += bd->blocks;
   }
 
   /* count the blocks on the free list */