Parcourir la source

* Fixed checking of changed files which got broken in r20352

git-svn-id: trunk@20392 -
joost il y a 13 ans
Parent
commit
e6582e502a
1 fichiers modifiés avec 5 ajouts et 4 suppressions
  1. 5 4
      packages/fpmkunit/src/fpmkunit.pp

+ 5 - 4
packages/fpmkunit/src/fpmkunit.pp

@@ -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