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

* Activated again workaround of dead code warnings on (errorcode > maxExitCode) condition.

Browse Source 
git-svn-id: trunk@9537 -
This commit is contained in:
yury 2007-12-26 16:20:08 +00:00
parent be62a4408e
commit a2daf2e86d
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/inc/system.inc
View File

@ -12,14 +12,6 @@
**********************************************************************}
{$ifdef FPC_OBJFPC_EXTENDED_IF}
// {$if High(errorcode)<>maxExitCode}
{$define FPC_LIMITED_EXITCODE}
// {$endif}
{$else}
{$define FPC_LIMITED_EXITCODE}
{$endif FPC_OBJFPC_EXTENDED_IF}
{****************************************************************************
Local types
****************************************************************************}
@ -33,6 +25,14 @@
{$i filerec.inc}
{$i textrec.inc}
{$ifdef FPC_OBJFPC_EXTENDED_IF}
{$if High(errorcode)<>maxExitCode}
{$define FPC_LIMITED_EXITCODE}
{$endif}
{$else}
{$define FPC_LIMITED_EXITCODE}
{$endif FPC_OBJFPC_EXTENDED_IF}
Procedure HandleError (Errno : Longint); forward;
Procedure HandleErrorFrame (Errno : longint;frame : Pointer); forward;