diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-06-19 23:52:14 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-06-19 23:52:14 +0000 |
| commit | e7145eeefd01106cedb16a22866eb5160ccfb030 (patch) | |
| tree | c0ce0155413fd6f9f6cd5e5ed9a7212d2dbc3adc /rts/Adjustor.c | |
| parent | ae75dfb80ccffcdb8d96d53508731214f7cb7305 (diff) | |
| download | haskell-e7145eeefd01106cedb16a22866eb5160ccfb030.tar.gz | |
SET_ARR_HDR's last argument is now a number of bytes, rather than words
This avoids unnecessary work and potential loss of information
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 dd974e2090..382f74a435 100644 --- a/rts/Adjustor.c +++ b/rts/Adjustor.c @@ -225,7 +225,7 @@ stgAllocStable(size_t size_in_bytes, StgStablePtr *stable) /* allocate and fill it in */ arr = (StgArrWords *)allocate(total_size_in_words); - SET_ARR_HDR(arr, &stg_ARR_WORDS_info, CCCS, data_size_in_words); + SET_ARR_HDR(arr, &stg_ARR_WORDS_info, CCCS, size_in_bytes); /* obtain a stable ptr */ *stable = getStablePtr((StgPtr)arr); |