2
0
Эх сурвалжийг харах

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

git-svn-id: trunk@34383 -
pierre 9 жил өмнө
parent
commit
4d3939ba7e

+ 3 - 6
compiler/cfileutl.pas

@@ -1564,15 +1564,13 @@ end;
         expansion under linux }
         expansion under linux }
 {$ifdef hasunix}
 {$ifdef hasunix}
       begin
       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);
         result := Unix.fpsystem(command);
       end;
       end;
 {$else hasunix}
 {$else hasunix}
   {$ifdef hasamiga}
   {$ifdef hasamiga}
       begin
       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);
         result := RequotedExecuteProcess('',command);
       end;
       end;
   {$else hasamiga}
   {$else hasamiga}
@@ -1580,8 +1578,7 @@ end;
         comspec : string;
         comspec : string;
       begin
       begin
         comspec:=GetEnvironmentVariable('COMSPEC');
         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+'"');
             +ComSpec+'"');
         result := RequotedExecuteProcess(comspec,' /C '+command);
         result := RequotedExecuteProcess(comspec,' /C '+command);
       end;
       end;