projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
fa901ba
)
allocatePinned(): fix n_large_blocks count after allocating a new block
author
Simon Marlow
<simonmar@microsoft.com>
Wed, 22 Nov 2006 10:18:08 +0000
(10:18 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Wed, 22 Nov 2006 10:18:08 +0000
(10:18 +0000)
rts/sm/Storage.c
patch
|
blob
|
history
diff --git
a/rts/sm/Storage.c
b/rts/sm/Storage.c
index
e4390da
..
c02adf9
100644
(file)
--- 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;