diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-06-19 23:43:10 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-06-19 23:43:10 +0000 |
| commit | ae75dfb80ccffcdb8d96d53508731214f7cb7305 (patch) | |
| tree | feec499c14e925a14868289eb4cbc2c195dae889 /rts/Adjustor.c | |
| parent | 17c8229adf9f268097e4c87053d940a918c3a26f (diff) | |
| download | haskell-ae75dfb80ccffcdb8d96d53508731214f7cb7305.tar.gz | |
Replace an (incorrect) bytes-to-words calculation with ROUNDUP_BYTES_TO_WDS
Diffstat (limited to 'rts/Adjustor.c')
| -rw-r--r-- | rts/Adjustor.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Adjustor.c b/rts/Adjustor.c index dcae59b41b..dd974e2090 100644 --- a/rts/Adjustor.c +++ b/rts/Adjustor.c @@ -220,7 +220,7 @@ stgAllocStable(size_t size_in_bytes, StgStablePtr *stable) nat data_size_in_words, total_size_in_words; /* round up to a whole number of words */ - data_size_in_words = (size_in_bytes + sizeof(W_) + 1) / sizeof(W_); + data_size_in_words = ROUNDUP_BYTES_TO_WDS(size_in_bytes); total_size_in_words = sizeofW(StgArrWords) + data_size_in_words; /* allocate and fill it in */ |