Verified Commit 790de761 authored by Camil Staps's avatar Camil Staps 🐧

Use ABC date from cache in OptimiseABC

parent 63d4e7b9
Pipeline #20918 passed with stage
in 57 seconds
......@@ -1473,7 +1473,7 @@ GenCodeTheProjectModule outofdate sys genAsmOrCode mdn abc_path abccache fileinf
# (proc,ps) = getCurrentProc ps
# cgo = PR_GetCodeGenOptions project
# ((info,abccache,fileinfo), ps) = FI_GetFileInfo proc mdn abccache fileinfo ps
# (ok,ps) = if cgo.optimise_abc (OptimiseABC mdn abc_path ps) (True,ps)
# (ok,ps) = if cgo.optimise_abc (OptimiseABC mdn abc_path info.abcdate ps) (True,ps)
| not ok = (ps, abccache, fileinfo, project, ok, info.objpath)
# (ok,ps) = if cgo.generate_bytecode (ByteCodeGen cgo.optimise_abc mdn abc_path ps) (True,ps)
| not ok = (ps, abccache, fileinfo, project, ok, info.objpath)
......@@ -1669,14 +1669,13 @@ where
//-- Bytecode generation and linking
OptimiseABC :: !ModuleDirAndName !Pathname !*GeneralSt -> *(!Bool, !*GeneralSt)
OptimiseABC mdn abc_path ps
OptimiseABC :: !ModuleDirAndName !Pathname !DATE !*GeneralSt -> *(!Bool, !*GeneralSt)
OptimiseABC mdn abc_path abc_date ps
# (startupdir,ps) = getStup ps
(abcopt,ps) = getCurrentAbcOpt ps
abcopt = startupdir +++ DirSeparatorString +++ abcopt
# abcopt_path = abc_path % (0,size abc_path-4) +++ "opt.abc"
# (abc_date,ps) = accFiles (FModified abc_path) ps
# (abcopt_date,ps) = accFiles (FModified abcopt_path) ps
| abcopt_date.exists && Older_Date abc_date abcopt_date
= (True, 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