paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 12:01:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* errorhandling fixed

Browse Source
This commit is contained in:
marco 2004-01-03 09:20:45 +00:00
parent 64e776098a
commit c032cd36e8
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/utils/fpc.pp
View File

@ -94,6 +94,7 @@ program fpc;
processorstr : string;
ppccommandline : ansistring;
i : longint;
errorvalue : Longint;
begin
ppccommandline:='';
{$ifdef i386}
@ -165,18 +166,22 @@ program fpc;
{ call ppcXXX }
swapvectors;
{$ifdef unix}
SysUtils.exec(ppcbin,ppccommandline);
errorvalue:=SysUtils.exec(ppcbin,ppccommandline);
{$else}
Dos.exec(ppcbin,ppccommandline);
errorvalue:=doserror;
{$endif}
swapvectors;
if doserror<>0 then
if errorvalue<>0 then
error(ppcbin+' can''t be executed');
halt(dosexitcode);
end.
{
$Log$
Revision 1.9 2004-01-03 09:12:23 marco
Revision 1.10 2004-01-03 09:20:45 marco
* errorhandling fixed
Revision 1.9 2004/01/03 09:12:23 marco
* unix does ansistring exec
Revision 1.8 2003/10/08 19:16:50 peter