Browse Source

* Fixed bug in "fpmkunit" where CompileReason wasn't set in "TBuildEngine.NeedsCompile" due to oversight

J. Gareth "Curious Kit" Moreton 1 year ago
parent
commit
008dc98c33
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/fpmkunit/src/fpmkunit.pp

+ 2 - 2
packages/fpmkunit/src/fpmkunit.pp

@@ -8491,8 +8491,8 @@ begin
                    Result:=(P.State=tsCompiled);
                    if Result then
                      begin
-                     break;
                      CompileReason:=Format(SDbgPackageDepRecompiled,[P.Name]);
+                     break;
                      end;
                  end;
              end;
@@ -8509,8 +8509,8 @@ begin
             Result:=NeedsCompile(APackage,APackage.Targets.TargetItems[i]);
             if Result then
               begin
-              break;
               CompileReason:=Format(SDbgTargetHasToBeCompiled,[APackage.Targets.TargetItems[i].Name]);
+              break;
               end;
           end;
       Finally