浏览代码

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

J. Gareth "Curious Kit" Moreton 1 年之前
父节点
当前提交
008dc98c33
共有 1 个文件被更改,包括 2 次插入2 次删除
  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