paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 07:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Lazbuild: only match long options case insensitively, not short ones (because their set in lazbuild is case sensitive), issue #40217

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-04-21 02:28:39 +03:00
parent 783c4ee8cb
commit a82f0d4e39
1 changed files with 4 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/lazbuild.lpr
View File

@ -1322,19 +1322,10 @@ Var
Var
I : integer;
begin
If CaseSensitiveOptions then
begin
I:=LongOpts.Count-1;
While (I>=0) and (LongOpts[i]<>S) do
Dec(i);
end
else
begin
S:=UpperCase(S);
I:=LongOpts.Count-1;
While (I>=0) and (UpperCase(LongOpts[i])<>S) do
Dec(i);
end;
S:=LowerCase(S);
I:=LongOpts.Count-1;
While (I>=0) and (LowerCase(LongOpts[i])<>S) do
Dec(i);
Result:=(I<>-1);
end;
@ -1395,8 +1386,6 @@ begin
and (ToolParamStr(I+1)[i]<>OptionChar);
If HaveArg then
OV:=ToolParamStr(I+1);
If Not CaseSensitiveOptions then
O:=LowerCase(O);
L:=Length(O);
J:=2;
NeedArg:=false;
@ -1440,7 +1429,6 @@ end;
constructor TLazBuildApplication.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
CaseSensitiveOptions:=False;
SetupDialogs;
Files:=TStringList.Create;
fMaxProcessCount:=-1;