Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-ide
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
6
Issues
6
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-ide
Commits
0601e960
Commit
0601e960
authored
Sep 27, 2010
by
John van Groningen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
passs compiler_process_ids to function CompilePollCompleted,
used by the linux version
parent
a3e176cb
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
8 additions
and
8 deletions
+8
-8
Pm/PmDriver.icl
Pm/PmDriver.icl
+5
-5
Win/PmCleanSystem.dcl
Win/PmCleanSystem.dcl
+1
-1
Win/PmCleanSystem.icl
Win/PmCleanSystem.icl
+2
-2
No files found.
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
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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