diff options
| author | johnvg | 2003-01-06 14:11:27 +0000 |
|---|---|---|
| committer | johnvg | 2003-01-06 14:11:27 +0000 |
| commit | 043c9e72b3fd3d612cbe707bb322668c2412cf14 (patch) | |
| tree | 22b96b29b9d54f060f7bd53aefea85e2cffcd7aa | |
| parent | report "macro with function type not allowed" error for (diff) | |
prevent compiler crash if an array pattern is not a variable
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1304 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/checkFunctionBodies.icl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/frontend/checkFunctionBodies.icl b/frontend/checkFunctionBodies.icl index 6403222..d414b83 100644 --- a/frontend/checkFunctionBodies.icl +++ b/frontend/checkFunctionBodies.icl @@ -2163,8 +2163,9 @@ addArraySelections array_patterns rhs_expr free_vars e_input e_state e_info cs , cs ) - - +buildSelections e_input {ap_selections=[]} + (strict_binds, lazy_binds, free_vars, e_state, e_info, cs) + = (strict_binds, lazy_binds, free_vars, e_state, e_info, cs) // if an error occurs in checkPattern buildSelections e_input {ap_opt_var, ap_array_var, ap_selections} (strict_binds, lazy_binds, free_vars, e_state, e_info, cs) # (ap_array_var, [last_array_selection:lazy_binds], free_vars, e_state, e_info, cs) |