diff options
| author | alimarin | 2001-10-19 12:02:05 +0000 |
|---|---|---|
| committer | alimarin | 2001-10-19 12:02:05 +0000 |
| commit | 3cb66d21e43dd48c61baec3ef24ca197c22cdef0 (patch) | |
| tree | 9212b29bc345c24e83c9a7316d259c59beccddca /frontend/frontend.icl | |
| parent | fix bug in renumbering of specials (diff) | |
higher-order kinded types in generics
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@871 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/frontend.icl')
| -rw-r--r-- | frontend/frontend.icl | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/frontend/frontend.icl b/frontend/frontend.icl index 7a5e36e..2c5fe9a 100644 --- a/frontend/frontend.icl +++ b/frontend/frontend.icl @@ -6,7 +6,7 @@ implementation module frontend import scanner, parse, postparse, check, type, trans, convertcases, overloading, utilities, convertDynamics, convertimportedtypes, /*checkKindCorrectness, */ compilerSwitches, analtypes, generics -SwitchGenerics on off :== off +//import print :: FrontEndOptions = { feo_up_to_phase :: !FrontEndPhase @@ -129,6 +129,7 @@ frontEndInterface options mod_ident search_paths cached_dcl_modules functions_an ti_common_defs fun_defs dcl_mods td_infos class_infos th_vars error_admin type_heaps = { type_heaps & th_vars = th_vars } + # heaps = { heaps & hp_type_heaps = type_heaps } # (saved_main_dcl_common, ti_common_defs) = replace (dcl_common_defs dcl_mods) main_dcl_module_n icl_common with @@ -142,7 +143,7 @@ frontEndInterface options mod_ident search_paths cached_dcl_modules functions_an True -> convertGenerics components main_dcl_module_n ti_common_defs fun_defs td_infos - heaps hash_table predef_symbols dcl_mods undef error_admin + heaps hash_table predef_symbols dcl_mods error_admin False -> (components, ti_common_defs, fun_defs, {ir_to=0,ir_from=0}, td_infos, heaps, hash_table, predef_symbols, dcl_mods, error_admin) ) @@ -157,6 +158,14 @@ frontEndInterface options mod_ident search_paths cached_dcl_modules functions_an # icl_mod = {icl_mod & icl_common = icl_common} # error = error_admin.ea_file + +/* + # (_,genout,files) = fopen "c:\\Generics\\genout.icl" FWriteText files + # (fun_defs, genout) = printFunDefs fun_defs genout + # (ok,files) = fclose genout files + | not ok = abort "could not write genout.icl" +*/ + #! ok = error_admin.ea_ok | not ok = (No,{},{},0,main_dcl_module_n,predef_symbols, hash_table, files, error, io, out, tcl_file, heaps) |