From f270d2d5897cfc10554779c86611244529e257c9 Mon Sep 17 00:00:00 2001
From: martijnv
Date: Wed, 23 Jan 2002 10:33:40 +0000
Subject: bug fix: adapted collect_used_dynamics which didn't eliminate all
 unused dynamics.

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@978 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/transform.icl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'frontend')

diff --git a/frontend/transform.icl b/frontend/transform.icl
index a84da52..08a2edf 100644
--- a/frontend/transform.icl
+++ b/frontend/transform.icl
@@ -1520,16 +1520,16 @@ where
 			EI_UnmarkedDynamic _ _
 				-> (used_dynamics, symbol_heap)
 			EI_Dynamic opt_dyn_type ptrs
-				# (new_ptrs,cos_symbol_heap)
-					= foldSt collect_used_dynmic ptrs ([], cos_symbol_heap)
-				# cos_symbol_heap
-					= writePtr dyn_expr_ptr (EI_Dynamic opt_dyn_type new_ptrs)
+				# (new_ptrs,symbol_heap)
+					= foldSt collect_used_dynmic ptrs ([], symbol_heap)
+				# symbol_heap
+					= writePtr dyn_expr_ptr (EI_Dynamic opt_dyn_type new_ptrs) symbol_heap
 				-> ([dyn_expr_ptr : used_dynamics], symbol_heap)
 			EI_DynamicTypeWithVars type_vars dyn_type ptrs
-				# (new_ptrs,cos_symbol_heap)
-					= foldSt collect_used_dynmic ptrs ([], cos_symbol_heap)
-				# cos_symbol_heap
-					= writePtr dyn_expr_ptr (EI_DynamicTypeWithVars type_vars dyn_type new_ptrs)
+				# (new_ptrs,symbol_heap)
+					= foldSt collect_used_dynmic ptrs ([], symbol_heap)
+				# symbol_heap
+					= writePtr dyn_expr_ptr (EI_DynamicTypeWithVars type_vars dyn_type new_ptrs) symbol_heap
 				-> ([dyn_expr_ptr : used_dynamics], symbol_heap)
 
 
-- 
cgit v1.2.3