diff options
| author | johnvg | 2003-01-08 12:18:33 +0000 |
|---|---|---|
| committer | johnvg | 2003-01-08 12:18:33 +0000 |
| commit | f4df94954c5b1b41973f938eeedea702b7718649 (patch) | |
| tree | c35f705271297a319a3bd3f4cb3efe3117c86675 /frontend | |
| parent | fix generated labels for lazy record field selectors if ExportedLocalLabels==... (diff) | |
remove rhs of alternative with an AP_Empty pattern, to prevent
a compiler crash in transform when a macro uses another macro
in a pattern, that are both defined in the same module
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1307 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/checkFunctionBodies.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/checkFunctionBodies.icl b/frontend/checkFunctionBodies.icl index d414b83..6f1b702 100644 --- a/frontend/checkFunctionBodies.icl +++ b/frontend/checkFunctionBodies.icl @@ -288,7 +288,7 @@ where transform_pattern_into_cases (AP_WildCard _) fun_arg result_expr pattern_position var_store expr_heap opt_dynamics cs = (result_expr, pattern_position, var_store, expr_heap, opt_dynamics, cs) transform_pattern_into_cases (AP_Empty name) fun_arg result_expr pattern_position var_store expr_heap opt_dynamics cs - = (result_expr, pattern_position, var_store, expr_heap, opt_dynamics, cs) + = (EE, pattern_position, var_store, expr_heap, opt_dynamics, cs) transform_pattern_variable :: !FreeVar !(Optional (Bind Ident VarInfoPtr)) !Expression !*ExpressionHeap -> (!Expression, !Expression, !*ExpressionHeap) |