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

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;