From 2f584302ec09b49654477da222e3ee55e43d70c4 Mon Sep 17 00:00:00 2001
From: diederik
Date: Wed, 4 Sep 2002 09:14:23 +0000
Subject: Add SK_GeneratedCaseFunction for dynamic cases fix

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1196 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/convertcases.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'frontend/convertcases.icl')

diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl
index f321f55..e78aaad 100644
--- a/frontend/convertcases.icl
+++ b/frontend/convertcases.icl
@@ -1095,7 +1095,7 @@ newFunctionWithType opt_id fun_bodies local_vars fun_type group_index (cs_next_f
 			,	fun_lifted		= 0
 			,	fun_info		= { EmptyFunInfo & fi_group_index = group_index, fi_local_vars = local_vars }
 			}
-	= ({ symb_name = fun_id, symb_kind = SK_GeneratedFunction fun_def_ptr cs_next_fun_nr },
+	= ({ symb_name = fun_id, symb_kind = SK_GeneratedCaseFunction fun_def_ptr cs_next_fun_nr },
 			(inc cs_next_fun_nr, [fun_def_ptr : cs_new_functions],
 				cs_fun_heap <:= (fun_def_ptr,  FI_Function { gf_fun_def = fun_def, gf_instance_info = II_Empty,
 	  				  gf_fun_index = cs_next_fun_nr, gf_cons_args = {cc_size=0, cc_args = [], cc_linear_bits = [], cc_producer = False} })))
-- 
cgit v1.2.3