Browse Source

Set FBuildEngine.Verbose also for -d option

git-svn-id: trunk@46944 -
pierre 4 years ago
parent
commit
0e72cc94f6
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fpmkunit/src/fpmkunit.pp

+ 1 - 1
packages/fpmkunit/src/fpmkunit.pp

@@ -5053,7 +5053,7 @@ begin
 //  FBuildEngine.Defaults:=Defaults;
 //  FBuildEngine.Defaults:=Defaults;
   FBuildEngine.ListMode:=FListMode;
   FBuildEngine.ListMode:=FListMode;
   FBuildEngine.FInteractive:=FInteractive;
   FBuildEngine.FInteractive:=FInteractive;
-  FBuildEngine.Verbose := (FLogLevels = AllMessages);
+  FBuildEngine.Verbose := (vlInfo in FLogLevels) or (vlDebug in FLogLevels);
   FBuildEngine.OnLog:[email protected];
   FBuildEngine.OnLog:[email protected];
   NotifyEventCollection.CallEvents(neaAfterCreateBuildengine, Self);
   NotifyEventCollection.CallEvents(neaAfterCreateBuildengine, Self);
 end;
 end;