diff options
| author | diederik | 2002-10-08 14:57:20 +0000 |
|---|---|---|
| committer | diederik | 2002-10-08 14:57:20 +0000 |
| commit | f82c588442a843537ba3539c9e628060fe665782 (patch) | |
| tree | 662ecf04f56acf39e8c0a9e4caab8247ac0c1c65 /frontend/convertcases.icl | |
| parent | Change order of propagation annotation in generateFunction (diff) | |
Add alternatives for FailExpr
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1221 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/convertcases.icl')
| -rw-r--r-- | frontend/convertcases.icl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index cf99fcc..7a89582 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -251,6 +251,8 @@ where = rs weightedRefCount rci (NoBind ptr) rs = rs + weightedRefCount rci (FailExpr _) rs + = rs weightedRefCount rci expr rs = abort ("weightedRefCount [Expression] (convertcases, 864))" -*-> expr) @@ -566,6 +568,8 @@ where = (EE, ds) distributeLets depth (NoBind ptr) ds = (NoBind ptr, ds) + distributeLets depth (FailExpr id) ds + = (FailExpr id, ds) instance distributeLets Case where |