diff options
| author | ronny | 2001-05-03 19:18:40 +0000 |
|---|---|---|
| committer | ronny | 2001-05-03 19:18:40 +0000 |
| commit | f7bec0c3382f2280e67cc6b4201f40311f546076 (patch) | |
| tree | a392a66e84a43710b51be6a69c82ea78cd5f0168 | |
| parent | fixed module names (diff) | |
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
| -rw-r--r-- | frontend/frontend.icl | 2 | ||||
| -rw-r--r-- | frontend/syntax.dcl | 1 | ||||
| -rw-r--r-- | frontend/syntax.icl | 1 |
3 files changed, 3 insertions, 1 deletions
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 |