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

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

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-05-05 22:16:39 +01:00 committed by Michael Van Canneyt
parent de3eda7f51
commit 008dc98c33
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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