diff options
| author | ronny | 2001-10-01 16:30:01 +0000 |
|---|---|---|
| committer | ronny | 2001-10-01 16:30:01 +0000 |
| commit | 22886adb5dc622cb76184fa8ef97e2c2234652a8 (patch) | |
| tree | 79e7eb317c55feba7e2b0717fde500d3df6c6ea2 /frontend/main.icl | |
| parent | moved system independent code to new module "filesystem" (diff) | |
pass file modification times from icl module and dcl modules to backend
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@808 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 e1795d4..087046a 100644 --- a/frontend/main.icl +++ b/frontend/main.icl @@ -165,10 +165,14 @@ compileModule mod_name dcl_cache ms dcl_cache = {dcl_cache & hash_table=hash_table} = loadModule mod_ident.boxed_ident dcl_cache ms +dummyModTime :: {#Char} .f -> ({#Char}, .f) +dummyModTime _ f + = ("", f) + loadModule :: Ident *DclCache *MainState -> *(!Optional InterMod,!*DclCache,!*MainState); loadModule mod_ident {dcl_modules,functions_and_macros,predef_symbols,hash_table,heaps} ms=:{ms_files,ms_error,ms_io,ms_out,ms_paths} # (optional_syntax_tree,cached_functions_and_macros,cached_dcl_mods,_,main_dcl_module_n,predef_symbols, hash_table, ms_files, ms_error, ms_io, ms_out,_,heaps) - = frontEndInterface { feo_up_to_phase = FrontEndPhaseAll,feo_generics = False} mod_ident {sp_locations = [], sp_paths = ms_paths} dcl_modules functions_and_macros No predef_symbols hash_table ms_files ms_error ms_io ms_out No heaps + = frontEndInterface { feo_up_to_phase = FrontEndPhaseAll, feo_generics = False, feo_fusion = False} mod_ident {sp_locations = [], sp_paths = ms_paths} dcl_modules functions_and_macros No predef_symbols hash_table dummyModTime ms_files ms_error ms_io ms_out No heaps # 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, fe_dclIclConversions, fe_iclDclConversions} |