From c09b0ab58d435213b7c9a034728a88cf36b62e81 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 22 Nov 2006 10:18:08 +0000 Subject: [PATCH] allocatePinned(): fix n_large_blocks count after allocating a new block --- rts/sm/Storage.c | 1 + 1 file changed, 1 insertion(+) 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; -- 1.7.10.4