paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 20:32:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Martin 2022-08-07 23:20:22 +02:00
parent 795b94703f
commit 20a05aea86
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); procedure TLazLoggerFile.SetParamForLogFileName(AValue: String);
begin begin
if FParamForLogFileName = AValue then Exit; if (AValue <> '') and (AValue[Length(AValue)] = '=') then
Delete(AValue, Length(AValue), 1);
if FParamForLogFileName = AValue then
Exit;
Finish; Finish;
FGetLogFileNameDone := False; FGetLogFileNameDone := False;
FParamForLogFileName := AValue; FParamForLogFileName := AValue;
@ -800,7 +804,7 @@ begin
FParamForLogFileName := ''; FParamForLogFileName := '';
FEnvironmentForLogFileName := ''; FEnvironmentForLogFileName := '';
{$else} {$else}
FParamForLogFileName := '--debug-log='; FParamForLogFileName := '--debug-log';
FEnvironmentForLogFileName := '*_debuglog'; FEnvironmentForLogFileName := '*_debuglog';
{$endif} {$endif}
end; end;

6
components/lazutils/lazloggerbase.pas
View File

@ -1166,7 +1166,11 @@ end;
procedure TLazLoggerWithGroupParam.SetParamForEnabledLogGroups(AValue: String); procedure TLazLoggerWithGroupParam.SetParamForEnabledLogGroups(AValue: String);
begin 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; FParamForEnabledLogGroups := AValue;
ParseParamForEnabledLogGroups; ParseParamForEnabledLogGroups;
end; end;