mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-03 20:49:35 +01:00
use the new HASAMIGA instead of the non-existing AmigaShell
git-svn-id: trunk@26124 -
This commit is contained in:
parent
da3603e663
commit
ba89914471
@ -1546,18 +1546,18 @@ end;
|
||||
result := Unix.fpsystem(command);
|
||||
end;
|
||||
{$else hasunix}
|
||||
{$ifdef amigashell}
|
||||
{$ifdef hasamiga}
|
||||
begin
|
||||
result := RequotedExecuteProcess('',command);
|
||||
end;
|
||||
{$else amigashell}
|
||||
{$else hasamiga}
|
||||
var
|
||||
comspec : string;
|
||||
begin
|
||||
comspec:=GetEnvironmentVariable('COMSPEC');
|
||||
result := RequotedExecuteProcess(comspec,' /C '+command);
|
||||
end;
|
||||
{$endif amigashell}
|
||||
{$endif hasamiga}
|
||||
{$endif hasunix}
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user