diff options
author | buggymcbugfix <4444-buggymcbugfix@users.noreply.gitlab.haskell.org> | 2020-09-01 15:00:56 +0200 |
---|---|---|
committer | buggymcbugfix <4444-buggymcbugfix@users.noreply.gitlab.haskell.org> | 2020-09-01 15:00:56 +0200 |
commit | fb9fc1acf8b848bcbb3fa39fa4252a716912b9ee (patch) | |
tree | 16af11bda1da62389bb8f4ab65e8f17896c97415 | |
parent | c045d93ab1d298b9cdb40e950445b9cec64fa37c (diff) | |
download | haskell-fb9fc1acf8b848bcbb3fa39fa4252a716912b9ee.tar.gz |
Make insert + update return dirty arrayswip/buggymcbugfix/insertArray
-rw-r--r-- | rts/PrimOps.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 4628c23795..fe89532a4a 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; |