From 0377b6fbc80c607b1dac5799f9b181c4b20792e1 Mon Sep 17 00:00:00 2001
From: ronny
Date: Wed, 16 Feb 2000 23:02:39 +0000
Subject: removed PE_Array from syntax tree

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@92 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/postparse.icl | 5 ++---
 frontend/syntax.dcl    | 1 -
 frontend/syntax.icl    | 1 -
 3 files changed, 2 insertions(+), 5 deletions(-)

(limited to 'frontend')

diff --git a/frontend/postparse.icl b/frontend/postparse.icl
index 24bffa0..a8e7a93 100644
--- a/frontend/postparse.icl
+++ b/frontend/postparse.icl
@@ -149,8 +149,6 @@ where
 		# (compr, ca)
 			= transformComprehension gen_kind expr qualifiers ca
 		=	collectFunctions compr ca
-	collectFunctions (PE_Array expr assignments) ca=:{ca_predefs}
-		= collectFunctions (transformArrayUpdate expr assignments ca_predefs) ca
 	collectFunctions (PE_UpdateComprehension expr updateExpr identExpr qualifiers) ca
 		# (compr, ca)
 			= transformUpdateComprehension expr updateExpr identExpr qualifiers ca
@@ -625,9 +623,10 @@ transformArrayUpdate expr updates pi
 
 transformArrayDenot :: [ParsedExpr] PredefinedIdents -> ParsedExpr
 transformArrayDenot exprs pi
-	=	PE_Array
+	=	transformArrayUpdate
 			((predef PD__CreateArrayFun ` length exprs) pi)
 			[{bind_dst=toParsedExpr i pi, bind_src=expr} \\ expr <- exprs & i <- [0..]]
+			pi
 
 scanModules :: [ParsedImport] [ScannedModule] Int *HashTable *File SearchPaths *PredefinedSymbols *Files -> (Bool, [ScannedModule],[FunDef],Int, *HashTable, *File, *PredefinedSymbols, *Files)
 scanModules [] parsed_modules fun_count hash_table err_file searchPaths predefs files 
diff --git a/frontend/syntax.dcl b/frontend/syntax.dcl
index e7d853c..b9c9f02 100644
--- a/frontend/syntax.dcl
+++ b/frontend/syntax.dcl
@@ -914,7 +914,6 @@ cNonUniqueSelection	:== False
 				| PE_Lambda !Ident ![ParsedExpr] !ParsedExpr
 				| PE_Tuple ![ParsedExpr]				
 				| PE_Record !ParsedExpr !(Optional Ident) ![FieldAssignment]
-				| PE_Array  !ParsedExpr ![ElemAssignment]  // RWS +++ remove PE_Array (not really used anymore) ![Qualifier] 
 				| PE_UpdateComprehension !ParsedExpr !ParsedExpr !ParsedExpr ![Qualifier]
 				| PE_ArrayDenot ![ParsedExpr]
 				| PE_Selection !Bool !ParsedExpr ![ParsedSelection]
diff --git a/frontend/syntax.icl b/frontend/syntax.icl
index d14a525..ee3893e 100644
--- a/frontend/syntax.icl
+++ b/frontend/syntax.icl
@@ -857,7 +857,6 @@ cNonUniqueSelection	:== False
 				| PE_Lambda !Ident ![ParsedExpr] !ParsedExpr
 				| PE_Tuple ![ParsedExpr]				
 				| PE_Record !ParsedExpr !(Optional Ident) ![FieldAssignment]
-				| PE_Array  !ParsedExpr ![ElemAssignment]  // RWS +++ remove PE_Array (not really used anymore) ![Qualifier] 
 				| PE_UpdateComprehension !ParsedExpr !ParsedExpr !ParsedExpr ![Qualifier]
 				| PE_ArrayDenot ![ParsedExpr]
 				| PE_Selection !Bool !ParsedExpr ![ParsedSelection]
-- 
cgit v1.2.3