paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:29:17 +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

3
compiler/cfileutl.pas
View File

@ -1564,14 +1564,12 @@ end;
expansion under linux }
{$ifdef hasunix}
begin
if do_checkverbosity(V_Used) then
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');
result := RequotedExecuteProcess('',command);
end;
@ -1580,7 +1578,6 @@ end;
comspec : string;
begin
comspec:=GetEnvironmentVariable('COMSPEC');
if do_checkverbosity(V_Used) then
do_comment(V_Executable,'Executing "'+Command+'" using comspec "'
+ComSpec+'"');
result := RequotedExecuteProcess(comspec,' /C '+command);