diff options
author | Ben Gamari <ben@smart-cactus.org> | 2023-02-14 18:11:57 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2023-02-14 18:13:38 -0500 |
commit | ea1441efda7fcfab01b33ebb8827e6ff1d62dd72 (patch) | |
tree | f353f9547c5af39bfda829560a32b4a43277df6b | |
parent | 5383016c78fe4b2555e0aae9248bea5b42f67a78 (diff) | |
download | haskell-ea1441efda7fcfab01b33ebb8827e6ff1d62dd72.tar.gz |
rts: Fix CCS initialization in newArrayArray#wip/T22129-9.2
Strangely, `newArrayArray#` previously initialized the new array's
cost-center as `W_[CCCS]` instead of `CCCS`. Naturally, this is quite
wrong and caused #22129.
Closes #22129.
-rw-r--r-- | rts/PrimOps.cmm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 96d94893a3..67d890e6e7 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -404,7 +404,7 @@ stg_newArrayArrayzh ( W_ n /* words */ ) } TICK_ALLOC_PRIM(SIZEOF_StgMutArrPtrs, WDS(size), 0); - SET_HDR(arr, stg_MUT_ARR_PTRS_DIRTY_info, W_[CCCS]); + SET_HDR(arr, stg_MUT_ARR_PTRS_DIRTY_info, CCCS); StgMutArrPtrs_ptrs(arr) = n; StgMutArrPtrs_size(arr) = size; |