Преглед изворни кода

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

git-svn-id: trunk@21322 -
marco пре 13 година
родитељ
комит
8082982d46
1 измењених фајлова са 1 додато и 1 уклоњено
  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);