diff options
| author | Sven Tennie <sven.tennie@gmail.com> | 2023-01-21 11:16:06 +0000 |
|---|---|---|
| committer | Sven Tennie <sven.tennie@gmail.com> | 2023-01-21 11:16:06 +0000 |
| commit | c836005ef313c1d7fe6d6e9216944533c6b9ba7e (patch) | |
| tree | 15616309c435dcd0fe459778d688b888fb9d940b | |
| parent | 466e7c01a8b54e522eba481f8d4d9ba70fe10f36 (diff) | |
| download | haskell-c836005ef313c1d7fe6d6e9216944533c6b9ba7e.tar.gz | |
Fix C warnings
| -rw-r--r-- | libraries/ghc-heap/GHC/Exts/StackConstants.hsc | 1 | ||||
| -rw-r--r-- | libraries/ghc-heap/cbits/Stack.c | 6 |
2 files changed, 4 insertions, 3 deletions
diff --git a/libraries/ghc-heap/GHC/Exts/StackConstants.hsc b/libraries/ghc-heap/GHC/Exts/StackConstants.hsc index c41f679851..7bd64459c1 100644 --- a/libraries/ghc-heap/GHC/Exts/StackConstants.hsc +++ b/libraries/ghc-heap/GHC/Exts/StackConstants.hsc @@ -67,6 +67,7 @@ offsetStgBCOFrameSize = (#const OFFSET_StgBCO_size) + (#size StgHeader) offsetStgClosurePayload :: Int offsetStgClosurePayload = (#const OFFSET_StgClosure_payload) + (#size StgHeader) +-- TODO: Should be SIZEOF_VOID_P bytesInWord :: Int bytesInWord = (#const SIZEOF_UNSIGNED_LONG) #endif diff --git a/libraries/ghc-heap/cbits/Stack.c b/libraries/ghc-heap/cbits/Stack.c index 38a5914d57..d49e054c67 100644 --- a/libraries/ghc-heap/cbits/Stack.c +++ b/libraries/ghc-heap/cbits/Stack.c @@ -193,7 +193,7 @@ StgArrBytes *getLargeBitmaps(Capability *cap, StgClosure *c) { StgWord neededWords = ROUNDUP_BITS_TO_WDS(bitmap->size); StgArrBytes *array = (StgArrBytes *)allocate(cap, sizeofW(StgArrBytes) + neededWords); - SET_HDR(array, &stg_ARR_WORDS_info, CCCS); + SET_HDR(array, &stg_ARR_WORDS_info, CCS_SYSTEM); array->bytes = WDS(ROUNDUP_BITS_TO_WDS(bitmap->size)); for (int i = 0; i < neededWords; i++) { @@ -211,7 +211,7 @@ StgArrBytes *getRetFunLargeBitmaps(Capability *cap, StgRetFun *ret_fun) { StgWord neededWords = ROUNDUP_BITS_TO_WDS(bitmap->size); StgArrBytes *array = (StgArrBytes *)allocate(cap, sizeofW(StgArrBytes) + neededWords); - SET_HDR(array, &stg_ARR_WORDS_info, CCCS); + SET_HDR(array, &stg_ARR_WORDS_info, CCS_SYSTEM); array->bytes = WDS(ROUNDUP_BITS_TO_WDS(bitmap->size)); for (int i = 0; i < neededWords; i++) { @@ -231,7 +231,7 @@ StgArrBytes *getBCOLargeBitmaps(Capability *cap, StgClosure *c) { StgWord neededWords = ROUNDUP_BITS_TO_WDS(bitmap->size); StgArrBytes *array = (StgArrBytes *)allocate(cap, sizeofW(StgArrBytes) + neededWords); - SET_HDR(array, &stg_ARR_WORDS_info, CCCS); + SET_HDR(array, &stg_ARR_WORDS_info, CCS_SYSTEM); array->bytes = WDS(ROUNDUP_BITS_TO_WDS(bitmap->size)); for (int i = 0; i < neededWords; i++) { |