diff options
| author | simonmar@microsoft.com <unknown> | 2008-01-30 13:54:18 +0000 |
|---|---|---|
| committer | simonmar@microsoft.com <unknown> | 2008-01-30 13:54:18 +0000 |
| commit | 1231d33279f25e931bcac1bac046b0f839290d61 (patch) | |
| tree | b70b5cebbc1447d86988d7e091cee8577c2124f2 /rts | |
| parent | 2fb3d02aea564febbc0bc3e49fa2d34698c21a22 (diff) | |
| download | haskell-1231d33279f25e931bcac1bac046b0f839290d61.tar.gz | |
calcNeeded: add in the large blocks too
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/sm/Storage.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c index a14fe05072..0bc15c075e 100644 --- a/rts/sm/Storage.c +++ b/rts/sm/Storage.c @@ -1003,9 +1003,9 @@ calcNeeded(void) generations[g].steps[0].n_large_blocks > generations[g].max_blocks && stp->is_compacted == 0) { - needed += 2 * stp->n_blocks; + needed += 2 * stp->n_blocks + stp->n_large_blocks; } else { - needed += stp->n_blocks; + needed += stp->n_blocks + stp->n_large_blocks; } } } |