diff options
| author | johnvg | 2001-12-13 12:27:32 +0000 |
|---|---|---|
| committer | johnvg | 2001-12-13 12:27:32 +0000 |
| commit | 83a334aa9824aff2756925db9f3fadc94a2c140a (patch) | |
| tree | 5a41f0b156342a1e37ab0abd1534d1629c92576c /backend | |
| parent | Lifting of dynamic expressions repaired (diff) | |
remove tuple symbol from UniqueSelector (! selector) and MatchExpr
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@935 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/backendconvert.icl | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index df92ea1..23ab64d 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -1865,14 +1865,8 @@ where = [] convertExpr (TupleSelect {ds_arity} n expr) = beTupleSelectNode ds_arity n (convertExpr expr) - convertExpr (MatchExpr optionalTuple {glob_module, glob_object={ds_index}} expr) - = beMatchNode (arity optionalTuple) (beConstructorSymbol glob_module ds_index) (convertExpr expr) - where - arity :: (Optional (Global DefinedSymbol)) -> Int - arity No - = 1 - arity (Yes {glob_object={ds_arity}}) - = ds_arity + convertExpr (MatchExpr {glob_module, glob_object={ds_index,ds_arity}} expr) + = beMatchNode ds_arity (beConstructorSymbol glob_module ds_index) (convertExpr expr) convertExpr (Conditional {if_cond=cond, if_then, if_else=Yes else}) = beIfNode (convertExpr cond) (convertExpr if_then) (convertExpr else) |