Commit 3322f9b3 authored by John van Groningen's avatar John van Groningen

start new compiler if one compiler has finished, without checking first

if other compilers have finished as well, when using BatchBuild,
pass interact flag to update_type_window
parent 8d31e8ae
......@@ -430,7 +430,8 @@ step intr state=:(DComp force _ (Async _ _) _ _) ps
# (completed, current) = removeFromCurrent completedSlot current
# unknown_finished_processors = remove_from_unknown_finished_processors completedSlot unknown_finished_processors
# (startupdir,ps) = getStup ps
# typewin = update_type_window True (GetModuleName completed.iclModule)
# (interact, ps) = getInteract ps
# typewin = update_type_window interact (GetModuleName completed.iclModule)
# ccstring = "dummy ccstring for now.."
# (abcpath,res,ps) = CompileHandleExitCode exitcode ccstring startupdir completedSlot updateErrorWindow typewin
completed.iclModule completed.options.listTypes ps // types param
......@@ -500,7 +501,9 @@ step intr state=:(DComp force dircache compinfo=:(AsyncWin _ _) rest ds) ps
-> (state, ps)
(FinishedCompiler completedSlot exitcode, ps)
#! (state,ps) = process_completed completedSlot exitcode state ps
-> check_completed state ps
-> IF_BATCHBUILD_OR_IDE
(state,ps)
(check_completed state ps)
(UnknownFinishedCompiler,ps)
-> (state, ps) // -> doesn't occur on win
check_completed state ps
......@@ -510,7 +513,8 @@ step intr state=:(DComp force dircache compinfo=:(AsyncWin _ _) rest ds) ps
process_completed completedSlot exitcode (DComp force dircache (AsyncWin current {win_max_n_processes,win_compiler_process_ids}) todo ds) ps
# (completed, current) = removeFromCurrent completedSlot current
# (startupdir,ps) = getStup ps
# typewin = update_type_window True (GetModuleName completed.iclModule)
# (interact, ps) = getInteract ps
# typewin = update_type_window interact (GetModuleName completed.iclModule)
# ccstring = "dummy ccstring for now.."
# (abcpath,res,ps) = CompileHandleExitCode exitcode ccstring startupdir completedSlot updateErrorWindow typewin
completed.iclModule completed.options.listTypes ps // types param
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment