paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 22:32:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@21322 -
This commit is contained in:
marco 2012-05-18 12:11:50 +00:00
parent 0ddd03eef2
commit 8082982d46
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fpcompil.pas
View File

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