Commit d992006a authored by John van Groningen's avatar John van Groningen
Browse files

atop compiling after a kind error, because this may cause a crash in the typechecker

(while matching types of instances)
parent a1548125
......@@ -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"
*/
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment