Commit 0601e960 authored by John van Groningen's avatar John van Groningen

passs compiler_process_ids to function CompilePollCompleted,

used by the linux version
parent a3e176cb
......@@ -399,8 +399,8 @@ step intr state=:(DComp force _ (Async _ _) _ _) ps
= cont (state, ps)
where
check_completed :: !*DriverState !*GeneralSt -> (!*DriverState,!*GeneralSt)
check_completed state=:(DComp force _ (Async current=:[_:_] {max_n_processes}) _ _) ps
= case (CompilePollCompleted ps) of
check_completed state=:(DComp force _ (Async current=:[_:_] {max_n_processes,compiler_process_ids}) _ _) ps
= case (CompilePollCompleted compiler_process_ids ps) of
(NoFinishedCompiler,ps)
-> check_unknow_processors_are_known state ps
(UnknownFinishedCompiler,ps)
......@@ -507,8 +507,8 @@ step intr state=:(DComp force dircache compinfo=:(AsyncWin _ _) rest ds) ps
= cont (state, ps)
where
check_completed :: !*DriverState !*GeneralSt -> (!*DriverState,!*GeneralSt)
check_completed state=:(DComp _ _ (AsyncWin current=:[_:_] _) _ _) ps
= case (CompilePollCompleted ps) of
check_completed state=:(DComp _ _ (AsyncWin current=:[_:_] {win_compiler_process_ids}) _ _) ps
= case (CompilePollCompleted win_compiler_process_ids ps) of
(NoFinishedCompiler, ps)
-> (state, ps)
(FinishedCompiler completedSlot exitcode, ps)
......@@ -611,7 +611,7 @@ step intr (DGene paths (ASyncCodeGeneration busy_processes {max_n_processes,comp
= handle_finished_code_generators busy_processes unknown_finished_processors ds.project ds.fileinfo ps
with
handle_finished_code_generators busy_processes=:[_:_] unknown_finished_processors project fileinfo ps
= case (CompilePollCompleted ps) of
= case (CompilePollCompleted compiler_process_ids ps) of
(NoFinishedCompiler, ps)
-> check_unknow_processors_are_known busy_processes unknown_finished_processors project fileinfo ps
(UnknownFinishedCompiler,ps)
......
......@@ -160,7 +160,7 @@ CompileHandleExitCode :: !Int !String !String !Int !(WindowFun *env) !(WindowFun
:: CompilePollCompletedResult = NoFinishedCompiler | UnknownFinishedCompiler | FinishedCompiler !Int !Int
CompilePollCompleted :: !*env -> (!CompilePollCompletedResult, !*env) | FileEnv env
CompilePollCompleted :: !CompilerProcessIds !*env -> (!CompilePollCompletedResult, !*env) | FileEnv env
:: CompilingInfo
......
......@@ -300,8 +300,8 @@ CompilePollCompleted ps
= (NoFinishedCompiler, ps)
*/
CompilePollCompleted :: !*env -> (!CompilePollCompletedResult, !*env) | FileEnv env
CompilePollCompleted ps
CompilePollCompleted :: !CompilerProcessIds !*env -> (!CompilePollCompletedResult, !*env) | FileEnv env
CompilePollCompleted compiler_process_ids ps
= IF_BATCHBUILD_OR_IDE
(let
......
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