X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FStorage.c;h=c02adf9dcc3cbee9c355b3dd9872e8be30893923;hb=c09b0ab58d435213b7c9a034728a88cf36b62e81;hp=b7028d5b594886167db3c18e42ac78986710f7d0;hpb=0fe7bd77c882fd53f0ef6a3ce1df050445bc8db1;p=ghc-hetmet.git

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index b7028d5..c02adf9 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -763,6 +763,7 @@ allocatePinned( nat n )
     if (bd == NULL || (bd->free + n) > (bd->start + BLOCK_SIZE_W)) {
 	pinned_object_block = bd = allocBlock();
 	dbl_link_onto(bd, &g0s0->large_objects);
+	g0s0->n_large_blocks++;
 	bd->gen_no = 0;
 	bd->step   = g0s0;
 	bd->flags  = BF_PINNED | BF_LARGE;
@@ -1148,7 +1149,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 */