Explorar o código

Rectify display of shell command, do it if -vx option is used even without -vu

git-svn-id: trunk@34383 -
pierre %!s(int64=9) %!d(string=hai) anos
pai
achega
4d3939ba7e
Modificáronse 1 ficheiros con 3 adicións e 6 borrados
  1. 3 6
      compiler/cfileutl.pas

+ 3 - 6
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;