[Git][ghc/ghc][wip/buggymcbugfix/insertArray] Make insert + update return dirty arrays

[Vilem-Benjamin Liepelt]

Vilem-Benjamin Liepelt pushed to branch wip/buggymcbugfix/insertArray at Glasgow Haskell Compiler / GHC


Commits:
fb9fc1ac by buggymcbugfix at 2020-09-01T15:00:56+02:00
Make insert + update return dirty arrays

- - - - -


1 changed file:

- rts/PrimOps.cmm


Changes:

=====================================
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;



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/fb9fc1acf8b848bcbb3fa39fa4252a716912b9ee

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/fb9fc1acf8b848bcbb3fa39fa4252a716912b9ee
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20200901/566454f9/attachment.html>