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

* fix compilation without exit code

Browse Source 
git-svn-id: trunk@18870 -
This commit is contained in:
florian 2011-08-27 22:45:07 +00:00
parent 2c42d8e1e8
commit 519df6d3a8
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/embedded/system.pp
View File

@ -130,7 +130,11 @@ procedure haltproc(e:longint);cdecl;external name '_haltproc';
procedure System_exit;
begin
{$ifdef FPC_HAS_FEATURE_EXITCODE}
haltproc(ExitCode);
{$else FPC_HAS_FEATURE_EXITCODE}
haltproc(0);
{$endif FPC_HAS_FEATURE_EXITCODE}
End;