diff options
| author | ronny | 2002-09-20 09:51:25 +0000 |
|---|---|---|
| committer | ronny | 2002-09-20 09:51:25 +0000 |
| commit | 0ecb74af2a773669a267b50e4143cc2528687286 (patch) | |
| tree | 3df1beeff9dd1bae033cbc755bfb3dfdeede863b | |
| parent | switch to 2.0 syntax, remove duplicated definitions from icl modules (diff) | |
removed SK_GeneratedCaseFunction: it's not necessary any more, because
there are no function generated in convertDynamics
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1202 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backend/backendconvert.icl | 4 | ||||
| -rw-r--r-- | frontend/StdCompare.icl | 1 | ||||
| -rw-r--r-- | frontend/convertcases.icl | 2 | ||||
| -rw-r--r-- | frontend/syntax.dcl | 1 |
4 files changed, 1 insertions, 7 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index 31a89a5..2fe810d 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -1821,12 +1821,8 @@ where = beFunctionSymbol glob_object glob_module convertSymbol {symb_kind=SK_LocalMacroFunction glob_object} = beFunctionSymbol glob_object main_dcl_module_n - convertSymbol {symb_kind=SK_GeneratedCaseFunction _ index} - = beFunctionSymbol index main_dcl_module_n convertSymbol {symb_kind=SK_GeneratedFunction _ index} = beFunctionSymbol index main_dcl_module_n - convertSymbol {symb_kind=SK_GeneratedCaseFunction _ index} - = beFunctionSymbol index main_dcl_module_n convertSymbol {symb_kind=SK_Constructor {glob_module, glob_object}} = beConstructorSymbol glob_module glob_object // ->> ("convertSymbol", (glob_module, glob_object)) convertSymbol symbol 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 |