Skip to content
GitLab
Menu
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
1752df46
Commit
1752df46
authored
Oct 08, 2010
by
John van Groningen
Browse files
fix updating of object file date and time during ASync code generation for windows
parent
58f08ede
Changes
1
Hide whitespace changes
Inline
Side-by-side
Pm/PmDriver.icl
View file @
1752df46
...
...
@@ -276,6 +276,7 @@ where
wcgp_process_handle
::
!
Int
,
wcgp_scg
::
!
StartedCodeGenerator
,
wcgp_module_name
::
!
Modulename
,
wcgp_abc_path
::
!
Pathname
,
wcgp_obj_path
::
!
Pathname
}
...
...
@@ -738,7 +739,8 @@ step intr (DGene paths (ASyncCodeGenerationWin busy_processes win_max_n_processe
|
ok
#
module_name
=
finished_process
.
wcgp_module_name
obj_path
=
finished_process
.
wcgp_obj_path
#
(
fileinfo
,
ps
)
=
accFiles
(
FI_UpdateObjDate
module_name
obj_path
fileinfo
)
ps
abc_path
=
finished_process
.
wcgp_abc_path
#
(
fileinfo
,
ps
)
=
accFiles
(
FI_UpdateObjDate
abc_path
obj_path
fileinfo
)
ps
#
project
=
PR_SetCodeGenerated
module_name
project
=
(
True
,
busy_processes
,
project
,
fileinfo
,
ps
)
=
(
False
,
busy_processes
,
project
,
fileinfo
,
ps
)
...
...
@@ -780,7 +782,8 @@ step intr (DGene paths (ASyncCodeGenerationWin busy_processes win_max_n_processe
|
not
res
=
(
False
,
rest
,
busy_processes
,
fileinfo
,
abccache
,
ps
)
#
obj_path
=
MakeObjSystemPathname
proc
mdn
#
new_process
=
{
wcgp_process_n
=
free_slot
,
wcgp_process_handle
=
process_handle
,
wcgp_scg
=
scg
,
wcgp_module_name
=
module_name
,
wcgp_obj_path
=
obj_path
}
#
abc_path
=
MakeABCSystemPathname
mdn
#
new_process
=
{
wcgp_process_n
=
free_slot
,
wcgp_process_handle
=
process_handle
,
wcgp_scg
=
scg
,
wcgp_module_name
=
module_name
,
wcgp_obj_path
=
obj_path
,
wcgp_abc_path
=
abc_path
}
#
busy_processes
=
[
new_process
:
busy_processes
]
=
start_code_generators
rest
busy_processes
fileinfo
abccache
ps
start_code_generators
Nil
busy_processes
fileinfo
abccache
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