paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-29 00:47:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

* FileNewer should return true if the dest file does not exist.

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-10-15 17:14:05 +02:00
parent 1b4e733a66
commit f73456a9d9
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fpmkunit/src/fpmkunit.pp
View File

@ -7415,6 +7415,13 @@ begin
exit; exit;
end; end;
DD:=FileAge(Dest); DD:=FileAge(Dest);
{ Return true if dest file not found or not accessible }
if DD=-1 then
begin
Result:=True;
exit;
end;
D1:=FileDateToDateTime(DS); D1:=FileDateToDateTime(DS);
D2:=FileDateToDateTime(DD); D2:=FileDateToDateTime(DD);
Log(vlDebug,SDbgComparingFileTimes,[Src,DateTimeToStr(D1),Dest,DateTimeToStr(D2)]); Log(vlDebug,SDbgComparingFileTimes,[Src,DateTimeToStr(D1),Dest,DateTimeToStr(D2)]);