Commit 1752df46 authored by John van Groningen's avatar John van Groningen

fix updating of object file date and time during ASync code generation for windows

parent 58f08ede
......@@ -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
......
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