diff options
| author | martijnv | 2001-12-18 14:55:20 +0000 |
|---|---|---|
| committer | martijnv | 2001-12-18 14:55:20 +0000 |
| commit | f58638c75c09da472793ee932284181317f132a7 (patch) | |
| tree | 9bfb7b6f7bfcdc60b3fef86447c40760e31d774b /frontend/main.icl | |
| parent | bug fix: allow local functions with no arguments and a code block rhs (diff) | |
permit .tcl-file to be generated from a main.prj
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@949 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/main.icl')
| -rw-r--r-- | frontend/main.icl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/frontend/main.icl b/frontend/main.icl index 6dda6f2..c91fd91 100644 --- a/frontend/main.icl +++ b/frontend/main.icl @@ -182,8 +182,12 @@ loadModule mod_ident {dcl_modules,cached_macros,predef_symbols,hash_table,heaps} # (tcl_file,ms=:{ms_files,ms_error,ms_io,ms_out,ms_paths}) = write_tcl_file (WrapopenTclFile ms) (No,ms); // ... MV - # (optional_syntax_tree,cached_cached_macros,cached_dcl_mods,_,main_dcl_module_n,predef_symbols, hash_table, ms_files, ms_error, ms_io, ms_out,_,heaps) + # (optional_syntax_tree,cached_cached_macros,cached_dcl_mods,_,main_dcl_module_n,predef_symbols, hash_table, ms_files, ms_error, ms_io, ms_out,tcl_file,heaps) = frontEndInterface { feo_up_to_phase = FrontEndPhaseAll, feo_generics = False, feo_fusion = False} mod_ident {sp_locations = [], sp_paths = ms_paths} dcl_modules cached_macros No predef_symbols hash_table dummyModTime ms_files ms_error ms_io ms_out tcl_file heaps +// MV ... + # (_,ms_files) + = closeTclFile tcl_file ms_files +// ... MV # ms = {ms & ms_files=ms_files, ms_error=ms_error,ms_io=ms_io,ms_out=ms_out} = case optional_syntax_tree of Yes {fe_icl={/*icl_functions,*/icl_used_module_numbers}, fe_dcls} |