diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-12-21 15:29:56 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-12-21 15:29:56 +0000 |
| commit | db0c13a482893243cc829bbc253862e65f437cbe (patch) | |
| tree | 96e3977a77b92f102c03518d826368cec5cd1229 /includes/Cmm.h | |
| parent | 1d7a3cf332532b1f9d798b44e76c4be6f0c74dcf (diff) | |
| download | haskell-db0c13a482893243cc829bbc253862e65f437cbe.tar.gz | |
Count allocations more accurately
The allocation stats (+RTS -s etc.) used to count the slop at the end
of each nursery block (except the last) as allocated space, now we
count the allocated words accurately. This should make allocation
figures more predictable, too.
This has the side effect of reducing the apparent allocations by a
small amount (~1%), so remember to take this into account when looking
at nofib results.
Diffstat (limited to 'includes/Cmm.h')
| -rw-r--r-- | includes/Cmm.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/includes/Cmm.h b/includes/Cmm.h index 6abe760be5..0ba14fbff6 100644 --- a/includes/Cmm.h +++ b/includes/Cmm.h @@ -383,7 +383,7 @@ // allocate() - this includes many of the primops. #define MAYBE_GC(liveness,reentry) \ if (bdescr_link(CurrentNursery) == NULL || \ - generation_n_new_large_blocks(W_[g0]) >= CInt[alloc_blocks_lim]) { \ + generation_n_new_large_words(W_[g0]) >= CLong[large_alloc_lim]) { \ R9 = liveness; \ R10 = reentry; \ HpAlloc = 0; \ |