diff options
| author | johnvg | 2007-04-11 12:41:57 +0000 |
|---|---|---|
| committer | johnvg | 2007-04-11 12:41:57 +0000 |
| commit | c67fa6278189c410784def82e0d008f1ec07840b (patch) | |
| tree | 0433a38c3f0e724205f75f4b3c4f3cfb1637bd95 /frontend/convertcases.icl | |
| parent | remove import of module checksupport (diff) | |
remove import of module checksupport, remove unused function: newFunction
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1663 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/convertcases.icl')
| -rw-r--r-- | frontend/convertcases.icl | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index 0093e69..d63d735 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -3,7 +3,7 @@ */ implementation module convertcases -import syntax, transform, checksupport, StdCompare, check, utilities, trans, general; //, RWSDebug +import syntax, transform, StdCompare, check, utilities, trans, general; //, RWSDebug // exactZip fails when its arguments are of unequal length exactZip` :: ![.a] ![.b] -> [(.a,.b)] @@ -1232,22 +1232,6 @@ nextAlts si=:{si_next_alt=Yes next_alt, si_force_next_alt} kees=:{case_info_ptr, nextAlts si kees=:{case_default} ss = findSplitCases si case_default ss ->> ("nextAlts no outerdefault" +++ toString kees.case_explicit) -newFunction :: !(Optional Ident) !FunctionBody ![FreeVar] ![AType] !AType !Int !(!Int, ![FunctionInfoPtr],!*FunctionHeap) - -> (! SymbIdent, !(!Int, ![FunctionInfoPtr],!*FunctionHeap)) -newFunction opt_id fun_bodies local_vars arg_types result_type group_index state - = newFunctionWithType opt_id fun_bodies local_vars fun_type group_index state - where - (_,fun_type) = removeAnnotations - { st_vars = [] - , st_args = arg_types - , st_args_strictness=NotStrict - , st_arity = length arg_types // -*-> ("newFunction", fun_id.id_name) - , st_result = result_type - , st_context = [] - , st_attr_vars = [] - , st_attr_env = [] - } - newFunctionWithType :: !(Optional Ident) !FunctionBody ![FreeVar] !SymbolType !Int !(!Int, ![FunctionInfoPtr],!*FunctionHeap) -> (! SymbIdent, !(!Int, ![FunctionInfoPtr],!*FunctionHeap)) newFunctionWithType opt_id fun_bodies local_vars fun_type group_index (cs_next_fun_nr, cs_new_functions, cs_fun_heap) |