|
@@ -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);
|
Michaël Van Canneyt