summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorbuggymcbugfix <4444-buggymcbugfix@users.noreply.gitlab.haskell.org>2020-08-31 19:47:59 +0200
committerbuggymcbugfix <4444-buggymcbugfix@users.noreply.gitlab.haskell.org>2020-08-31 19:47:59 +0200
commitab78a80b22e44fe68ba083354d0f164998032ca0 (patch)
tree294684cf5bae6c6938d5738f0ed858f9a9255246
parent9784a81dfba8cf48a9aa1ef9f65e7f71d469cc0a (diff)
downloadhaskell-wip/buggymcbugfix/appendArrays.tar.gz
Point to related codewip/buggymcbugfix/appendArrays
-rw-r--r--rts/PrimOps.cmm2
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index b343624872..7c790b3737 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -343,6 +343,7 @@ stg_thawArrayzh ( gcptr src, W_ offset, W_ n )
cloneArray(stg_MUT_ARR_PTRS_DIRTY_info, src, offset, n)
}
+// Closely follows the pattern of cloneArray in includes/Cmm.h
stg_appendArrayszh( gcptr src1, gcptr src2 )
{
W_ words, n1, n2, nDest, size1, size2;
@@ -512,6 +513,7 @@ stg_thawSmallArrayzh ( gcptr src, W_ offset, W_ n )
cloneSmallArray(stg_SMALL_MUT_ARR_PTRS_DIRTY_info, src, offset, n)
}
+// Closely follows the pattern of cloneSmallArray in includes/Cmm.h
stg_appendSmallArrayszh( gcptr src1, gcptr src2 )
{
W_ words, n1, n2, nDest;