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

LazBuild: Support case-insensitive options, including contents of lazarus.cfg, like Lazarus does. Issue #40187.

Browse Source
This commit is contained in:
Juha 2023-04-02 16:44:22 +03:00
parent 7dc0983e3c
commit 238e4fb963
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/lazbuild.lpr
View File

@ -194,17 +194,19 @@ procedure FilterConfigFileContent;
var
l: TStrings;
i: Integer;
LowerOpt: String;
begin
ResetParamsAndCfg;
l := GetCfgFileContent;
if l = nil then exit;
i := l.Count - 1;
while i >= 0 do begin
LowerOpt := LowerCase(l[i]);
if not(
(copy(l[i], 1, 22) = '--primary-config-path=') or
(copy(l[i], 1, 24) = '--secondary-config-path=') or
(copy(l[i], 1, 6) = '--pcp=') or
(copy(l[i], 1, 6) = '--scp=')
LazStartsStr('--primary-config-path=', LowerOpt) or
LazStartsStr('--secondary-config-path=', LowerOpt) or
LazStartsStr('--pcp=', LowerOpt) or
LazStartsStr('--scp=', LowerOpt)
)
then
l.Delete(i);
@ -1438,6 +1440,7 @@ end;
constructor TLazBuildApplication.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
CaseSensitiveOptions:=False;
SetupDialogs;
Files:=TStringList.Create;
fMaxProcessCount:=-1;