diff options
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/StdCompare.icl | 1 | ||||
| -rw-r--r-- | frontend/convertcases.icl | 2 | ||||
| -rw-r--r-- | frontend/syntax.dcl | 1 |
3 files changed, 1 insertions, 3 deletions
diff --git a/frontend/StdCompare.icl b/frontend/StdCompare.icl index a8c2ed0..f902857 100644 --- a/frontend/StdCompare.icl +++ b/frontend/StdCompare.icl @@ -162,7 +162,6 @@ where // compare_indexes (SK_InternalFunction i1) (SK_InternalFunction i2) = i1 =< i2 compare_indexes (SK_OverloadedFunction i1) (SK_OverloadedFunction i2) = i1 =< i2 compare_indexes (SK_GeneratedFunction _ i1) (SK_GeneratedFunction _ i2) = i1 =< i2 - compare_indexes (SK_GeneratedCaseFunction _ i1) (SK_GeneratedCaseFunction _ i2) = i1 =< i2 compare_indexes (SK_LocalDclMacroFunction i1) (SK_LocalDclMacroFunction i2) = i1 =< i2 | less_constructor symb1 symb2 diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index c8822ad..c692a4d 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -1081,7 +1081,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_GeneratedCaseFunction fun_def_ptr cs_next_fun_nr }, + = ({ symb_name = fun_id, symb_kind = SK_GeneratedFunction 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} }))) diff --git a/frontend/syntax.dcl b/frontend/syntax.dcl index c8b2b54..43198b6 100644 --- a/frontend/syntax.dcl +++ b/frontend/syntax.dcl @@ -699,7 +699,6 @@ cNonRecursiveAppl :== False | SK_LocalDclMacroFunction !(Global Index) | SK_OverloadedFunction !(Global Index) | SK_GeneratedFunction !FunctionInfoPtr !Index - | SK_GeneratedCaseFunction !FunctionInfoPtr !Index | SK_Constructor !(Global Index) | SK_Generic !(Global Index) !TypeKind | SK_TypeCode |