Commit 3e0963a9 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏢
Browse files

removed PE_Array from syntax tree

parent 6d3f5a18
......@@ -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
......
......@@ -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]
......
......@@ -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]
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment