paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 07:59:48 +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

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

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