Procházet zdrojové kódy

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

git-svn-id: trunk@21322 -
marco před 13 roky
rodič
revize
8082982d46
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      ide/fpcompil.pas

+ 1 - 1
ide/fpcompil.pas

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