From 3aff5539b761e00d4d5a1ca5425a4370e74fd632 Mon Sep 17 00:00:00 2001
From: martijnv
Date: Tue, 28 Aug 2001 14:24:02 +0000
Subject: 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
---
 frontend/convertDynamics.icl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 */
 
@@ -1242,6 +1242,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})
 
-- 
cgit v1.2.3