paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 21:59:47 +02: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;
end;
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);
D2:=FileDateToDateTime(DD);
Log(vlDebug,SDbgComparingFileTimes,[Src,DateTimeToStr(D1),Dest,DateTimeToStr(D2)]);