mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 03:39:40 +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