diff options
| author | martijnv | 2001-08-28 14:24:02 +0000 |
|---|---|---|
| committer | martijnv | 2001-08-28 14:24:02 +0000 |
| commit | 3aff5539b761e00d4d5a1ca5425a4370e74fd632 (patch) | |
| tree | 2995454de1bbf488f676c25c8ec26f3f73a847d5 | |
| parent | renamed list,tuple,array and string types as in predef.icl (diff) | |
bug fix: count of let bindings was wrong which caused convertcases to crash
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@682 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/convertDynamics.icl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/frontend/convertDynamics.icl b/frontend/convertDynamics.icl index c5f7ed0..511cb0f 100644 --- a/frontend/convertDynamics.icl +++ b/frontend/convertDynamics.icl @@ -926,7 +926,7 @@ where // ...TIJDELIJK */ /* Sjaak ... */ - (let_info_ptr, ci) = let_ptr 2 ci + (let_info_ptr, ci) = let_ptr (2 + length let_binds) ci (case_info_ptr, ci) = bool_case_ptr ci /* ... Sjaak */ @@ -1243,6 +1243,7 @@ bool_case_ptr ci=:{ci_expr_heap} let_ptr :: !Int !*ConversionInfo -> (ExprInfoPtr, !*ConversionInfo) let_ptr nr_of_binds ci=:{ci_expr_heap} # (expr_info_ptr, ci_expr_heap) = newPtr (EI_LetType (repeatn nr_of_binds empty_attributed_type)) ci_expr_heap + # (expr_info_ptr, ci_expr_heap) = newPtr (EI_LetType (repeatn nr_of_binds empty_attributed_type)) ci_expr_heap = (expr_info_ptr, {ci & ci_expr_heap = ci_expr_heap}) /* Sjaak ... */ |