Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-compiler-and-rts
compiler
Commits
d992006a
Commit
d992006a
authored
Oct 16, 2014
by
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
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/frontend.icl
View file @
d992006a
...
...
@@ -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
(
component
s, icl_functions, f) = show
Components component
s 0 True icl_functions f
(
group
s, icl_functions, f) = show
Groups group
s 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"
*/
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment