diff options
| author | Antoine Latter <aslatter@gmail.com> | 2010-01-01 18:33:46 +0000 |
|---|---|---|
| committer | Antoine Latter <aslatter@gmail.com> | 2010-01-01 18:33:46 +0000 |
| commit | 17c8229adf9f268097e4c87053d940a918c3a26f (patch) | |
| tree | 578661321f7a92f51f397ac5a0bf2e26a1683f5e /includes/Cmm.h | |
| parent | a0e32f1151a9bc765527bd9ee48a54a27ce1750e (diff) | |
| download | haskell-17c8229adf9f268097e4c87053d940a918c3a26f.tar.gz | |
FIX #38000 Store StgArrWords payload size in bytes
Diffstat (limited to 'includes/Cmm.h')
| -rw-r--r-- | includes/Cmm.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/includes/Cmm.h b/includes/Cmm.h index 52b5bec415..0088c1aa05 100644 --- a/includes/Cmm.h +++ b/includes/Cmm.h @@ -413,6 +413,9 @@ /* The offset of the payload of an array */ #define BYTE_ARR_CTS(arr) ((arr) + SIZEOF_StgArrWords) +/* The number of words allocated in an array payload */ +#define BYTE_ARR_WDS(arr) ROUNDUP_BYTES_TO_WDS(StgArrWords_bytes(arr)) + /* Getting/setting the info pointer of a closure */ #define SET_INFO(p,info) StgHeader_info(p) = info #define GET_INFO(p) StgHeader_info(p) |