Bläddra i källkod

* removed single remaining use of a 1.0.x deprecated function.

git-svn-id: trunk@21322 -
marco 13 år sedan
förälder
incheckning
8082982d46
1 ändrade filer med 1 tillägg och 1 borttagningar
  1. 1 1
      ide/fpcompil.pas

+ 1 - 1
ide/fpcompil.pas

@@ -1008,7 +1008,7 @@ begin
 {$endif}
 {$endif}
 {$ifdef Unix}
 {$ifdef Unix}
        error:=0;
        error:=0;
-       If Shell(GetExePath+PpasFile)=-1 Then
+       If fpsystem(GetExePath+PpasFile)=-1 Then
         Error:=fpgeterrno;
         Error:=fpgeterrno;
 {$else}
 {$else}
        DosExecute(GetEnv('COMSPEC'),'/C '+GetExePath+PpasFile);
        DosExecute(GetEnv('COMSPEC'),'/C '+GetExePath+PpasFile);