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

* linuxerrorcide

Browse Source
This commit is contained in:
marco 2003-11-14 17:29:38 +00:00
parent 0373bbb4fa
commit 70ca3f6e50
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/fpcompil.pas
View File

@ -136,7 +136,7 @@ uses
{$ifdef VER1_0}
Linux,
{$else}
Unix,
Unix, BaseUnix,
{$endif}
{$endif}
{$ifdef go32v2}
@ -1038,8 +1038,14 @@ begin
ChangeRedirError(FPErrFileName,false);
{$endif}
{$ifdef Unix}
{$ifdef ver1_0}
Shell(GetExePath+PpasFile);
Error:=LinuxError;
{$else}
error:=0;
If Shell(GetExePath+PpasFile)=-1 Then
Error:=fpgeterrno;
{$endif}
{$else}
DosExecute(GetEnv('COMSPEC'),'/C '+GetExePath+PpasFile);
Error:=DosError;
@ -1330,7 +1336,10 @@ end;
end.
{
$Log$
Revision 1.22 2003-03-28 09:55:46 armin
Revision 1.23 2003-11-14 17:29:38 marco
* linuxerrorcide
Revision 1.22 2003/03/28 09:55:46 armin
* Fixed TCompilerMessageWindow.AddMessage to see line numbers with 1.1
Revision 1.21 2003/03/27 14:11:53 pierre