From ea1441efda7fcfab01b33ebb8827e6ff1d62dd72 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Tue, 14 Feb 2023 18:11:57 -0500
Subject: rts: Fix CCS initialization in newArrayArray#

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.
---
 rts/PrimOps.cmm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 
-- 
cgit v1.2.1