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

* Fix loglevel for ListMode

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-12-14 17:16:55 +01:00
parent 4b5c7ab0f5
commit 3eab1c1c02
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fpmkunit/src/fpmkunit.pp
View File

@ -5438,7 +5438,7 @@ end;
procedure TCustomInstaller.Log(Level: TVerboseLevel; Const Msg: String); procedure TCustomInstaller.Log(Level: TVerboseLevel; Const Msg: String);
begin begin
If Level in FLogLevels then If (Level in FLogLevels) or (ListMode and (level=vlCommand)) then
begin begin
Writeln(StdOut, Msg); Writeln(StdOut, Msg);
Flush(StdOut); Flush(StdOut);
@ -6558,7 +6558,8 @@ begin
EnterCriticalSection(FGeneralCriticalSection); EnterCriticalSection(FGeneralCriticalSection);
try try
{$endif NO_THREADING} {$endif NO_THREADING}
if Level in [vlInfo,vlDebug] then if (Level in [vlInfo,vlDebug])
or (ListMode and (level=vlCommand)) then
FOnLog(Level,GLogPrefix+Msg) FOnLog(Level,GLogPrefix+Msg)
else else
FOnLog(Level,Msg); FOnLog(Level,Msg);