From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 22 Nov 2006 10:18:08 +0000 (+0000)
Subject: allocatePinned(): fix n_large_blocks count after allocating a new block
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c09b0ab58d435213b7c9a034728a88cf36b62e81;hp=fa901ba1621f9e47f3c952971664034a0d26481c

allocatePinned(): fix n_large_blocks count after allocating a new block
---

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index e4390da..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;