diff options
| author | johnvg | 2014-10-16 10:43:37 +0000 |
|---|---|---|
| committer | johnvg | 2014-10-16 10:43:37 +0000 |
| commit | 0f034ff9d47c4d28bd27fbd5ddc91ad92aa1cc72 (patch) | |
| tree | 227e34888ff64301e3751d57c83526d9ce13c773 /frontend | |
| parent | move addFunctionsRange after collectFunctions for instances and generic cases, (diff) | |
atop compiling after a kind error, because this may cause a crash in the typechecker
(while matching types of instances)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2444 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -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" */ |