diff options
| author | johnvg | 2011-03-30 12:23:28 +0000 |
|---|---|---|
| committer | johnvg | 2011-03-30 12:23:28 +0000 |
| commit | f99a9642681fed774b5dda8ac7b2aa30c3bcdcf1 (patch) | |
| tree | 256d75c0e8e8d9f861f8ef4d1fe247234aa8e2be /frontend/frontend.icl | |
| parent | recognize non generic variables in is_bimap_id (diff) | |
remove unused result cons_args of function transformGrooups
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1891 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/frontend.icl')
| -rw-r--r-- | frontend/frontend.icl | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/frontend/frontend.icl b/frontend/frontend.icl index a06b6d2..f31fe1f 100644 --- a/frontend/frontend.icl +++ b/frontend/frontend.icl @@ -197,7 +197,7 @@ frontEndInterface options mod_ident search_paths cached_dcl_modules cached_dcl_m # (def_max, acc_args) = usize acc_args # (def_min, fun_defs) = usize fun_defs - (components, fun_defs, dcl_types, used_conses, var_heap, type_heaps, expression_heap, acc_args, error, predef_symbols) + (components, fun_defs, dcl_types, used_conses, var_heap, type_heaps, expression_heap, error, predef_symbols) = transformGroups cleanup_info main_dcl_module_n stdStrictLists_module_n def_min def_max components fun_defs acc_args common_defs imported_funs dcl_types type_def_infos var_heap type_heaps expression_heap options.feo_fusion error predef_symbols # error_admin = {ea_file = error, ea_loc = [], ea_ok = True } @@ -230,12 +230,6 @@ frontEndInterface options mod_ident search_paths cached_dcl_modules cached_dcl_m # heaps = {hp_var_heap=var_heap, hp_type_heaps=type_heaps, hp_expression_heap=expression_heap,hp_generic_heap=heaps.hp_generic_heap} = (No,{},{},main_dcl_module_n,predef_symbols, hash_table, files, error, io, out, tcl_file, heaps) - # (components,fun_defs,files) = case options.feo_dump_core of -// True -// -> dumpCore components start_function_index exported_global_functions icl_mod dcl_mods.[main_dcl_module_n] fun_defs acc_args def_min def_max files - _ - -> (components,fun_defs,files) - | options.feo_up_to_phase == FrontEndPhaseTransformGroups # heaps = {hp_var_heap=var_heap, hp_type_heaps=type_heaps, hp_expression_heap=expression_heap,hp_generic_heap=heaps.hp_generic_heap} = frontSyntaxTree cached_dcl_macros cached_dcl_mods main_dcl_module_n |