From 4d3939ba7e3376d076c4316a0c293ba32548b088 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Sun, 28 Aug 2016 13:02:34 +0000
Subject: [PATCH]  Rectify display of shell command, do it if -vx option is
 used even without -vu

git-svn-id: trunk@34383 -
---
 compiler/cfileutl.pas | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/compiler/cfileutl.pas b/compiler/cfileutl.pas
index 51470ed70d..474bd27113 100644
--- a/compiler/cfileutl.pas
+++ b/compiler/cfileutl.pas
@@ -1564,15 +1564,13 @@ end;
         expansion under linux }
 {$ifdef hasunix}
       begin
-        if do_checkverbosity(V_Used) then
-          do_comment(V_Executable,'Executing "'+Command+'" with fpSystem call');
+        do_comment(V_Executable,'Executing "'+Command+'" with fpSystem call');
         result := Unix.fpsystem(command);
       end;
 {$else hasunix}
   {$ifdef hasamiga}
       begin
-        if do_checkverbosity(V_Used) then
-          do_comment(V_Executable,'Executing "'+Command+'" using RequotedExecuteProcess');
+        do_comment(V_Executable,'Executing "'+Command+'" using RequotedExecuteProcess');
         result := RequotedExecuteProcess('',command);
       end;
   {$else hasamiga}
@@ -1580,8 +1578,7 @@ end;
         comspec : string;
       begin
         comspec:=GetEnvironmentVariable('COMSPEC');
-        if do_checkverbosity(V_Used) then
-          do_comment(V_Executable,'Executing "'+Command+'" using comspec "'
+        do_comment(V_Executable,'Executing "'+Command+'" using comspec "'
             +ComSpec+'"');
         result := RequotedExecuteProcess(comspec,' /C '+command);
       end;