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

LazLogger: fix parsing parameters (handling "=") / Issue #39812

Browse Source 
(cherry picked from commit 20a05aea86)
This commit is contained in:
Martin 2022-08-07 23:20:22 +02:00
parent 66ffa62a45
commit 7d64b56269
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazutils/lazlogger.pas
View File

@ -569,7 +569,11 @@ end;
procedure TLazLoggerFile.SetParamForLogFileName(AValue: String);
begin
if FParamForLogFileName = AValue then Exit;
if (AValue <> '') and (AValue[Length(AValue)] = '=') then
Delete(AValue, Length(AValue), 1);
if FParamForLogFileName = AValue then
Exit;
Finish;
FGetLogFileNameDone := False;
FParamForLogFileName := AValue;
@ -800,7 +804,7 @@ begin
FParamForLogFileName := '';
FEnvironmentForLogFileName := '';
{$else}
FParamForLogFileName := '--debug-log=';
FParamForLogFileName := '--debug-log';
FEnvironmentForLogFileName := '*_debuglog';
{$endif}
end;

6
components/lazutils/lazloggerbase.pas
View File

@ -1159,7 +1159,11 @@ end;
procedure TLazLoggerWithGroupParam.SetParamForEnabledLogGroups(AValue: String);
begin
if FParamForEnabledLogGroups = AValue then Exit;
if (AValue <> '') and (AValue[Length(AValue)] = '=') then
Delete(AValue, Length(AValue), 1);
if FParamForEnabledLogGroups = AValue then
Exit;
FParamForEnabledLogGroups := AValue;
ParseParamForEnabledLogGroups;
end;