paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 17:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: nicer var name

Browse Source 
git-svn-id: trunk@44021 -
This commit is contained in:
mattias 2014-02-11 22:42:04 +00:00
parent 01c0a69449
commit 9745ff4588
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/lazbuild.lpr
View File

@ -773,9 +773,8 @@ var
UnitOutputDirectory: String; UnitOutputDirectory: String;
TargetExeName: String; TargetExeName: String;
TargetExeDir: String; TargetExeDir: String;
NewBuildMode: TProjectBuildMode;
CompilePolicy: TPackageUpdatePolicy; CompilePolicy: TPackageUpdatePolicy;
i,c: Integer; i,MatchCount: Integer;
Note: String; Note: String;
NeedBuildAllFlag: Boolean; NeedBuildAllFlag: Boolean;
SubResult: TModalResult; SubResult: TModalResult;
@ -943,21 +942,20 @@ begin
begin begin
CurResult := true; CurResult := true;
c := 0; // Matches counter MatchCount := 0;
ModeMask := TMask.Create(BuildModeOverride,false); ModeMask := TMask.Create(BuildModeOverride,false);
for i := 0 to Project1.BuildModes.Count-1 do for i := 0 to Project1.BuildModes.Count-1 do
begin begin
if ModeMask.Matches(Project1.BuildModes[i].Identifier) then if ModeMask.Matches(Project1.BuildModes[i].Identifier) then
begin begin
inc(c); inc(MatchCount);
Project1.ActiveBuildMode := Project1.BuildModes[i]; Project1.ActiveBuildMode := Project1.BuildModes[i];
CurResult := CurResult and StartBuilding; CurResult := CurResult and StartBuilding;
end; end;
end; end;
ModeMask.Free; ModeMask.Free;
if c=0 then // No matches if MatchCount=0 then // No matches
begin begin
debugln([Format(lisERRORInvalidBuildMode, [BuildModeOverride])]); debugln([Format(lisERRORInvalidBuildMode, [BuildModeOverride])]);
if ConsoleVerbosity>=0 then if ConsoleVerbosity>=0 then