paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-28 11:41:38 +01: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; processorstr : string;
ppccommandline : ansistring; ppccommandline : ansistring;
i : longint; i : longint;
errorvalue : Longint;
begin begin
ppccommandline:=''; ppccommandline:='';
{$ifdef i386} {$ifdef i386}
@ -165,18 +166,22 @@ program fpc;
{ call ppcXXX } { call ppcXXX }
swapvectors; swapvectors;
{$ifdef unix} {$ifdef unix}
SysUtils.exec(ppcbin,ppccommandline); errorvalue:=SysUtils.exec(ppcbin,ppccommandline);
{$else} {$else}
Dos.exec(ppcbin,ppccommandline); Dos.exec(ppcbin,ppccommandline);
errorvalue:=doserror;
{$endif} {$endif}
swapvectors; swapvectors;
if doserror<>0 then if errorvalue<>0 then
error(ppcbin+' can''t be executed'); error(ppcbin+' can''t be executed');
halt(dosexitcode); halt(dosexitcode);
end. end.
{ {
$Log$ $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 * unix does ansistring exec
Revision 1.8 2003/10/08 19:16:50 peter Revision 1.8 2003/10/08 19:16:50 peter