Commit 89af66b1 authored by John van Groningen's avatar John van Groningen

add ASync compilation for BatchBuild

parent 3322f9b3
......@@ -302,10 +302,22 @@ CompilePollCompleted ps
CompilePollCompleted :: !*env -> (!CompilePollCompletedResult, !*env) | FileEnv env
CompilePollCompleted ps
# (compiler_id,exit_code) = get_finished_compiler_id_and_exit_code
| compiler_id<0
= (NoFinishedCompiler,ps)
= (FinishedCompiler compiler_id exit_code,ps);
= IF_BATCHBUILD_OR_IDE
(let
wm_number=get_message_number
(r,compiler_id,exit_code) = get_integers_from_message wm_number
in
if (r==0)
(NoFinishedCompiler,ps)
(FinishedCompiler compiler_id exit_code,ps))
(let
(compiler_id,exit_code) = get_finished_compiler_id_and_exit_code
in
if (compiler_id<0)
(NoFinishedCompiler,ps)
(FinishedCompiler compiler_id exit_code,ps));
get_finished_compiler_id_and_exit_code :: (!Int/*compiler_id*/,!Int/*exit_code*/);
get_finished_compiler_id_and_exit_code = code {
......@@ -880,7 +892,9 @@ SendRepeatResult _ _ = undef
DelayEventLoop :: !.ps -> .ps
DelayEventLoop ps
| wait_message 0==0
| IF_BATCHBUILD_OR_IDE
True
(wait_message 0==0)
= ps
wait_message :: !Int -> Int;
......
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