aboutsummaryrefslogtreecommitdiff
path: root/frontend/frontend.icl
diff options
context:
space:
mode:
authorjohnvg2011-12-07 15:59:27 +0000
committerjohnvg2011-12-07 15:59:27 +0000
commitca794cebe2d4e2d1e32b09ef67899dcafddcf95c (patch)
tree873fa534765f935801d186a4dd83771c457c4114 /frontend/frontend.icl
parentincrease default heap size of the compiler (diff)
prevent compile crash if dynamics are enabled and a type synonym is cyclic
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2030 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/frontend.icl')
-rw-r--r--frontend/frontend.icl3
1 files changed, 2 insertions, 1 deletions
diff --git a/frontend/frontend.icl b/frontend/frontend.icl
index 19ab547..b604a45 100644
--- a/frontend/frontend.icl
+++ b/frontend/frontend.icl
@@ -104,8 +104,9 @@ frontEndInterface options mod_ident search_paths cached_dcl_modules cached_dcl_m
# hp_var_heap = heaps.hp_var_heap
#! n_types_with_type_functions = size ti_common_defs.[main_dcl_module_n].com_type_defs
#! n_constructors_with_type_functions = size ti_common_defs.[main_dcl_module_n].com_cons_defs
+ #! ea_ok = error_admin.ea_ok
# (fun_defs, predef_symbols, hp_var_heap, type_heaps)
- = if support_dynamics
+ = if (support_dynamics && ea_ok)
(buildTypeFunctions main_dcl_module_n fun_defs ti_common_defs predef_symbols hp_var_heap type_heaps)
(fun_defs, predef_symbols, hp_var_heap, type_heaps)
# (td_infos, th_vars, error_admin)