diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-11-22 10:18:08 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-11-22 10:18:08 +0000 |
| commit | c09b0ab58d435213b7c9a034728a88cf36b62e81 (patch) | |
| tree | f5331e8e2a35155433ac44782b4a0ab64da94431 | |
| parent | fa901ba1621f9e47f3c952971664034a0d26481c (diff) | |
| download | haskell-c09b0ab58d435213b7c9a034728a88cf36b62e81.tar.gz | |
allocatePinned(): fix n_large_blocks count after allocating a new block
| -rw-r--r-- | rts/sm/Storage.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c index e4390dabe7..c02adf9dcc 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; |