From fb9fc1acf8b848bcbb3fa39fa4252a716912b9ee Mon Sep 17 00:00:00 2001
From: buggymcbugfix <4444-buggymcbugfix@users.noreply.gitlab.haskell.org>
Date: Tue, 1 Sep 2020 15:00:56 +0200
Subject: [PATCH] Make insert + update return dirty arrays
---
rts/PrimOps.cmm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 4628c23795c8..fe89532a4ac2 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -596,7 +596,7 @@ stg_insertSmallArrayzh( gcptr src, W_ idx, gcptr elemt )
("ptr" dst) = ccall allocate(MyCapability() "ptr", words);
TICK_ALLOC_PRIM(SIZEOF_StgSmallMutArrPtrs, WDS(n), 0);
- SET_HDR(dst, stg_SMALL_MUT_ARR_PTRS_FROZEN_CLEAN_info, CCCS);
+ SET_HDR(dst, stg_SMALL_MUT_ARR_PTRS_FROZEN_DIRTY_info, CCCS);
StgSmallMutArrPtrs_ptrs(dst) = n;
dst_p = dst + SIZEOF_StgSmallMutArrPtrs;
@@ -621,7 +621,7 @@ stg_updateSmallArrayzh( gcptr src, W_ idx, gcptr elemt )
("ptr" dst) = ccall allocate(MyCapability() "ptr", words);
TICK_ALLOC_PRIM(SIZEOF_StgSmallMutArrPtrs, WDS(n), 0);
- SET_HDR(dst, stg_SMALL_MUT_ARR_PTRS_FROZEN_CLEAN_info, CCCS);
+ SET_HDR(dst, stg_SMALL_MUT_ARR_PTRS_FROZEN_DIRTY_info, CCCS);
StgSmallMutArrPtrs_ptrs(dst) = n;
dst_p = dst + SIZEOF_StgSmallMutArrPtrs;
--
GitLab