From: Ian Lynagh Date: Sat, 19 Jun 2010 23:43:10 +0000 (+0000) Subject: Replace an (incorrect) bytes-to-words calculation with ROUNDUP_BYTES_TO_WDS X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ae75dfb80ccffcdb8d96d53508731214f7cb7305;p=ghc-hetmet.git Replace an (incorrect) bytes-to-words calculation with ROUNDUP_BYTES_TO_WDS --- diff --git a/rts/Adjustor.c b/rts/Adjustor.c index dcae59b..dd974e2 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 */