From ab78a80b22e44fe68ba083354d0f164998032ca0 Mon Sep 17 00:00:00 2001
From: buggymcbugfix <4444-buggymcbugfix@users.noreply.gitlab.haskell.org>
Date: Mon, 31 Aug 2020 19:47:59 +0200
Subject: [PATCH] Point to related code
---
rts/PrimOps.cmm | 2 ++
1 file changed, 2 insertions(+)
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index b343624872b0..7c790b373739 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;
--
GitLab