fix bug in memInventory() giving false memory leak errors

[ghc-hetmet.git] / rts / sm / Storage.c

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index b7028d5..e4390da 100644 (file)
--- 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 */