diff options
| -rw-r--r-- | frontend/frontend.icl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/frontend/frontend.icl b/frontend/frontend.icl index 2cc5275..75bee80 100644 --- a/frontend/frontend.icl +++ b/frontend/frontend.icl @@ -58,7 +58,7 @@ frontEndInterface opt_file_dir_time options mod_ident search_paths cached_dcl_mo # {icl_common,icl_function_indices,icl_name,icl_import,icl_qualified_imports,icl_imported_objects,icl_foreign_exports,icl_used_module_numbers} = icl_mod /* (_,f,files) = fopen "components" FWriteText files - (components, icl_functions, f) = showComponents components 0 True icl_functions f + (groups, icl_functions, f) = showGroups groups 0 True icl_functions f /* (n_functions,icl_functions) = usize icl_functions (icl_functions,f) = showFunctions {ir_from=0,ir_to=n_functions} icl_functions f @@ -116,6 +116,10 @@ frontEndInterface opt_file_dir_time options mod_ident search_paths cached_dcl_mo type_heaps = { type_heaps & th_vars = th_vars } # heaps = { heaps & hp_type_heaps = type_heaps, hp_expression_heap = hp_expression_heap, hp_generic_heap = gen_heap, hp_var_heap=hp_var_heap } + + | not error_admin.ea_ok + = (No,{},dcl_mods,main_dcl_module_n,predef_symbols, hash_table, files, error_admin.ea_file, io, out, tcl_file, heaps) + # (saved_main_dcl_common, ti_common_defs) = replace {#dcl_common \\ {dcl_common}<-:dcl_mods} main_dcl_module_n icl_common #! (ti_common_defs, groups, fun_defs, td_infos, heaps, hash_table, predef_symbols, dcl_mods, cached_dcl_macros, error_admin) @@ -137,7 +141,7 @@ frontEndInterface opt_file_dir_time options mod_ident search_paths cached_dcl_mo /* # (_,genout,files) = fopen "genout" FWriteText files # (n_fun_defs,fun_defs) = usize fun_defs - # (fun_defs, genout) = show_component [0..n_fun_defs-1] True fun_defs genout + # (fun_defs, genout) = show_group [0..n_fun_defs-1] True fun_defs genout # (ok,files) = fclose genout files | not ok = abort "could not write genout" */ |