Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
0601e960
Commit
0601e960
authored
Sep 27, 2010
by
John van Groningen
Browse files
passs compiler_process_ids to function CompilePollCompleted,
used by the linux version
parent
a3e176cb
Changes
3
Hide whitespace changes
Inline
Side-by-side
Pm/PmDriver.icl
View file @
0601e960
...
...
@@ -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
)
...
...
Win/PmCleanSystem.dcl
View file @
0601e960
...
...
@@ -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
...
...
Win/PmCleanSystem.icl
View file @
0601e960
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment