Преглед на файлове

* 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);