diff options
| author | johnvg | 2007-09-10 12:42:09 +0000 |
|---|---|---|
| committer | johnvg | 2007-09-10 12:42:09 +0000 |
| commit | f7e3da5d046ded573d6475a56cc56832c1ab8990 (patch) | |
| tree | 0e8c964a365d81d9f6ad5e4d04029c91e62eafa0 /backend | |
| parent | use an integer instead of a string in GenTypeVar (diff) | |
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
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/backendconvert.icl | 9 |
1 files changed, 5 insertions, 4 deletions
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} _) |