From e734b1c84b7d5e16e72712d937cd0fc2413a9105 Mon Sep 17 00:00:00 2001
From: clean
Date: Mon, 25 Sep 2000 10:17:20 +0000
Subject: added arrayCopyBegin

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@225 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/_aconcat.dcl | 15 +++++++++++++++
 frontend/_aconcat.icl | 15 +++++++++++++++
 2 files changed, 30 insertions(+)

(limited to 'frontend')

diff --git a/frontend/_aconcat.dcl b/frontend/_aconcat.dcl
index 487f1f3..96c2652 100644
--- a/frontend/_aconcat.dcl
+++ b/frontend/_aconcat.dcl
@@ -44,3 +44,18 @@ where
 	sr=s1+s2
 	s1=size a
 	s2=length l
+
+arrayCopyBegin a s
+	:== copy_elements a r0 0
+where
+	/*2.0
+	r0=_createArray s
+0.2*/
+//1.3
+	r0=_createArrayc s
+//3.1
+	copy_elements a1 a2 i
+		| i<size a2
+			# (e,a1) = a1![i]
+			= copy_elements a1 {a2 & [i]=e} (i+1)
+			= (a2,a1)
diff --git a/frontend/_aconcat.icl b/frontend/_aconcat.icl
index 67d7771..1e5dc2c 100644
--- a/frontend/_aconcat.icl
+++ b/frontend/_aconcat.icl
@@ -44,3 +44,18 @@ where
 	sr=s1+s2
 	s1=size a
 	s2=length l
+
+arrayCopyBegin a s
+	:== copy_elements a r0 0
+where
+	/*2.0
+	r0=_createArray s
+0.2*/
+//1.3
+	r0=_createArrayc s
+//3.1
+	copy_elements a1 a2 i
+		| i<size a2
+			# (e,a1) = a1![i]
+			= copy_elements a1 {a2 & [i]=e} (i+1)
+			= (a2,a1)
-- 
cgit v1.2.3