paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 02:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix include file directory and return false for FileNewer if FileAge return -1

Browse Source 
git-svn-id: trunk@20410 -
This commit is contained in:
pierre 2012-02-23 13:53:23 +00:00
parent e6cdc2b744
commit 85c84bf128
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4244,6 +4244,12 @@ Var
begin begin
DS:=FileAge(Src); DS:=FileAge(Src);
{ Return false if file not found or not accessible }
if DS=-1 then
begin
Result:=false;
exit;
end;
DD:=FileAge(Dest); DD:=FileAge(Dest);
D1:=FileDateToDateTime(DS); D1:=FileDateToDateTime(DS);
D2:=FileDateToDateTime(DD); D2:=FileDateToDateTime(DD);
@ -4857,7 +4863,10 @@ begin
depInclude : depInclude :
begin begin
if D.TargetFileName<>'' then if D.TargetFileName<>'' then
Result:=FileNewer(D.TargetFileName,OFN) begin
TFN:=AddPathPrefix(APackage,D.TargetFileName);
Result:=FileNewer(TFN,OFN);
end;
end; end;
depPackage : depPackage :
begin begin