paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 19:29:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@34383 -
This commit is contained in:
pierre 2016-08-28 13:02:34 +00:00
parent 3a9f8e88fd
commit 4d3939ba7e
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cfileutl.pas
View File

@ -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;