paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed checking of changed files which got broken in r20352

Browse Source 
git-svn-id: trunk@20392 -
This commit is contained in:
joost 2012-02-21 17:31:51 +00:00
parent b781311670
commit e6582e502a
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4797,7 +4797,7 @@ Var
I : Integer;
D : TDependency;
T : TTarget;
OD,OFN : String;
OD,OFN,TFN : String;
begin
Result:=False;
@ -4818,7 +4818,7 @@ begin
OD:=APackage.GetUnitsOutputDir(Defaults.CPU,Defaults.OS);
If (OD<>'') then
OD:=IncludeTrailingPathDelimiter(OD);
OFN:=OD+ATarget.GetOutPutFileName(Defaults.OS);
OFN:=AddPathPrefix(APackage, OD+ATarget.GetOutPutFileName(Defaults.OS));
Result:=Not FileExists(OFN);
if Result then
Log(vlDebug,SDbgOutputNotYetAvailable,[OFN]);
@ -4827,8 +4827,9 @@ begin
// Check main source
If not Result then
begin
if FileExists(ATarget.TargetSourceFileName) then
Result:=FileNewer(ATarget.TargetSourceFileName,OFN)
TFN := AddPathPrefix(APackage,ATarget.TargetSourceFileName);
if FileExists(TFN) then
Result:=FileNewer(TFN,OFN)
end;
// Check unit and include dependencies