From f7bec0c3382f2280e67cc6b4201f40311f546076 Mon Sep 17 00:00:00 2001 From: ronny Date: Thu, 3 May 2001 19:18:40 +0000 Subject: Flag to turn generics on and off (SupportGenerics), default off git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@386 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- frontend/frontend.icl | 2 +- frontend/syntax.dcl | 1 + frontend/syntax.icl | 1 + 3 files changed, 3 insertions(+), 1 deletion(-) diff --git a/frontend/frontend.icl b/frontend/frontend.icl index 2549924..aa322f0 100644 --- a/frontend/frontend.icl +++ b/frontend/frontend.icl @@ -130,7 +130,7 @@ frontEndInterface upToPhase mod_ident search_paths dcl_modules functions_and_mac # heaps = { heaps & hp_type_heaps = type_heaps } #! (components, ti_common_defs, fun_defs, generic_range, td_infos, heaps, hash_table, predef_symbols, dcl_mods, error_admin) = - case True of + case SupportGenerics of True -> convertGenerics components main_dcl_module_n ti_common_defs fun_defs td_infos heaps hash_table predef_symbols dcl_mods error_admin diff --git a/frontend/syntax.dcl b/frontend/syntax.dcl index 1a69cf7..4a05bb2 100644 --- a/frontend/syntax.dcl +++ b/frontend/syntax.dcl @@ -4,6 +4,7 @@ import StdEnv import scanner, general, typeproperties, Heap +SupportGenerics :== False PA_BUG on off :== on switch_import_syntax one_point_three two_point_zero :== one_point_three diff --git a/frontend/syntax.icl b/frontend/syntax.icl index 3b95cb9..e537e0b 100644 --- a/frontend/syntax.icl +++ b/frontend/syntax.icl @@ -4,6 +4,7 @@ import StdEnv, compare_constructor // ,RWSDebug import scanner, general, Heap, typeproperties, utilities +SupportGenerics :== False PA_BUG on off :== on switch_import_syntax one_point_three two_point_zero :== one_point_three SwitchFusion fuse dont_fuse :== dont_fuse -- cgit v1.2.3