From f7e3da5d046ded573d6475a56cc56832c1ab8990 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 10 Sep 2007 12:42:09 +0000
Subject: rename NormalSelectorUniqueElementResult as
 UniqueSelectorUniqueElementResult, use UniqueSingleArraySelector for a![i]
 instead of NormalSelector and add
 UniqueSingleArraySelectorUniqueElementResult

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1686 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backend/backendconvert.icl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'backend')

diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl
index 8867253..2830592 100644
--- a/backend/backendconvert.icl
+++ b/backend/backendconvert.icl
@@ -1594,8 +1594,7 @@ convertRootExpr aliasDummyId (Conditional {if_cond=cond, if_then=then, if_else=N
 convertRootExpr aliasDummyId (Case kees=:{case_expr, case_guards}) main_dcl_module_n
 	=	beSwitchNode (convertVar var.var_info_ptr) (convertCases case_guards aliasDummyId var (defaultCase kees) main_dcl_module_n)
 	where
-		var
-			=	caseVar case_expr
+		var = caseVar case_expr
 
 		defaultCase {case_default=Yes defaul} 
 			=	DefaultCase defaul
@@ -1728,7 +1727,9 @@ where
 		where
 			addKinds NormalSelector selections
 				=	[(BESelector, selection) \\ selection <- selections]
-			addKinds NormalSelectorUniqueElementResult selections
+			addKinds UniqueSingleArraySelector selections
+				=	[(BESelector, selection) \\ selection <- selections]
+			addKinds UniqueSingleArraySelectorUniqueElementResult selections
 				=	[(BESelector, selection) \\ selection <- selections]
 			addKinds _ [selection]
 				=	[(BESelector_U, selection)]
@@ -1818,7 +1819,7 @@ where
 
 	convertSelections :: (BEMonad BENodeP) [(BESelectorKind, Selection)] -> (BEMonad BENodeP)
 	convertSelections expression selections
-		=	foldl (convertSelection) expression selections
+		=	foldl convertSelection expression selections
 	
 	convertSelection :: (BEMonad BENodeP) (BESelectorKind, Selection) -> (BEMonad BENodeP)
 	convertSelection expression (kind, RecordSelection {glob_object={ds_index}, glob_module} _)
-- 
cgit v1.2.3