Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
clean-and-itasks
clean-ide
Commits
238659f6
Commit
238659f6
authored
Apr 01, 2005
by
John van Groningen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fix calls of QuitCleanCompiler
parent
57ce8826
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
Pm/PmDriver.icl
Pm/PmDriver.icl
+3
-3
No files found.
Pm/PmDriver.icl
View file @
238659f6
...
...
@@ -386,7 +386,7 @@ step intr (DComp force dircache (AsyncWin [] {win_compiler_process_ids}) Nil ds)
#
project
=
PR_SetBuilt
ds
.
modpaths
ds
.
project
// removes unused modules
#
(
modpaths
,
project
)
=
PR_GetModulenames
True
IclMod
project
#
ds
=
{
ds
&
modpaths
=
modpaths
,
project
=
project
}
#
ps
=
QuitCleanCompiler
True
win_compiler_process_ids
ps
;
#
ps
=
{
ps
&
io
=
QuitCleanCompiler
True
win_compiler_process_ids
ps
.
io
}
;
#
ps
=
showInfo
(
Level1
"Generating..."
)
ps
#
(
paths
,
ds
)
=
ds
!
modpaths
=
step
intr
(
DGene
paths
SyncCodeGeneration
ds
)
ps
...
...
@@ -534,7 +534,7 @@ step intr state=:(DComp force dircache compinfo=:(AsyncWin _ _) rest ds) ps
=
(
DComp
force
dircache
(
AsyncWin
current
{
win_max_n_processes
=
win_max_n_processes
,
win_compiler_process_ids
=
win_compiler_process_ids
})
(
Concat
deps
todo
)
ds
,
ps
)
// not ok
#
(
paths
,
ds
)
=
ds
!
modpaths
#
ps
=
QuitCleanCompiler
True
win_compiler_process_ids
ps
;
#
ps
=
{
ps
&
io
=
QuitCleanCompiler
True
win_compiler_process_ids
ps
.
io
}
;
=
(
DGene
paths
SyncCodeGeneration
ds
,
ps
)
where
removeFromCurrent
::
Int
[
CurrentlyCompiled
]
->
(
CurrentlyCompiled
,
[
CurrentlyCompiled
])
...
...
@@ -565,7 +565,7 @@ step intr state=:(DComp force dircache compinfo=:(AsyncWin _ _) rest ds) ps
#
ds
=
{
ds
&
ok
=
ok
}
|
not
ok
#!
(
paths
,
ds
)
=
ds
!
modpaths
#
ps
=
QuitCleanCompiler
True
win_compiler_process_ids
ps
;
#
ps
=
{
ps
&
io
=
QuitCleanCompiler
True
win_compiler_process_ids
ps
.
io
}
;
=
(
DGene
paths
SyncCodeGeneration
ds
,
ps
)
=
start_compilations
(
DComp
force
dircache
compinfo
rest
ds
)
ps
start_compilations
state
=:(
DComp
force
dircache
(
AsyncWin
[]
_)
Nil
ds
)
ps
...
...
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