diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-06-19 23:51:06 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-06-19 23:51:06 +0000 |
| commit | d474eda68b5e2bd4f49f02329325e8c1090bbb1c (patch) | |
| tree | 39e8b0d44500dbaabc31210cdaf934e35d5bb01c /libraries/integer-gmp/cbits | |
| parent | e69ab8803d87d37a44076656d9c3bc6aac1dbf1b (diff) | |
| download | haskell-d474eda68b5e2bd4f49f02329325e8c1090bbb1c.tar.gz | |
Replace an (incorrect) bytes-to-words calculation with ROUNDUP_BYTES_TO_WDS
Diffstat (limited to 'libraries/integer-gmp/cbits')
| -rw-r--r-- | libraries/integer-gmp/cbits/alloc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/integer-gmp/cbits/alloc.c b/libraries/integer-gmp/cbits/alloc.c index 2b5959d45a..e1320a9559 100644 --- a/libraries/integer-gmp/cbits/alloc.c +++ b/libraries/integer-gmp/cbits/alloc.c @@ -69,7 +69,7 @@ stgAllocForGMP (size_t size_in_bytes) 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. */ |