diff options
| author | johnvg | 2001-11-30 15:00:58 +0000 |
|---|---|---|
| committer | johnvg | 2001-11-30 15:00:58 +0000 |
| commit | 3d7959da4690b7ac8bd964c209f801decde42268 (patch) | |
| tree | e8d451e008453a6212e6210ab414ca33df239f35 /frontend/main.icl | |
| parent | initPtr modifies the *World (diff) | |
initPtr modifies the *World
empty cache if compilation fails
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@910 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/main.icl')
| -rw-r--r-- | frontend/main.icl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/frontend/main.icl b/frontend/main.icl index 8798d2a..6dda6f2 100644 --- a/frontend/main.icl +++ b/frontend/main.icl @@ -16,11 +16,12 @@ write_tcl_file yes no :== no; Start world # (std_io, world) = stdio world (_, ms_out, world) = fopen "out" FWriteText world + (symbol_table,world) = init_identifiers newHeap world (ms_out,world) = accFiles ( \files -> (let (ms_paths, ms_files, ms_error) = converFileToListOfStrings "mainPrefs" files stderr - ms = CommandLoop (init_identifiers newHeap) { ms_io = std_io, ms_out = ms_out, ms_error = ms_error, ms_files = ms_files, ms_paths = ms_paths } + ms = CommandLoop symbol_table { ms_io = std_io, ms_out = ms_out, ms_error = ms_error, ms_files = ms_files, ms_paths = ms_paths } in (ms.ms_out, ms.ms_files))) world = fclose ms_out world @@ -271,6 +272,7 @@ where -> collect_modules modules collected_modules random_numbers proj ms _ # ms = {ms & ms_io = ms.ms_io <<< "Compiling " <<< id_name <<< " failed \n"} + # proj = {proj & proj_cache=empty_cache proj.proj_cache.hash_table.hte_symbol_heap} -> collect_modules modules collected_modules random_numbers proj ms // -> (NoModules, ms) |