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

* Workaround dead code warnings by using preprocessor.

Browse Source 
git-svn-id: trunk@9497 -
This commit is contained in:
yury 2007-12-21 21:49:47 +00:00
parent 8c54008d0c
commit 99ea98c7b1
2 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/except.inc
View File

@ -175,10 +175,12 @@ begin
if erroraddr = nil then if erroraddr = nil then
RunError(217) RunError(217)
else else
if errorcode <= maxExitCode then {$ifdef FPC_LIMITED_EXITCODE}
halt(errorcode) if errorcode > maxExitCode then
else
halt(255) halt(255)
else
{$endif FPC_LIMITED_EXITCODE}
halt(errorcode);
end; end;

22
rtl/inc/system.inc
View File

@ -12,6 +12,12 @@
**********************************************************************} **********************************************************************}
{$ifdef FPC_OBJFPC_EXTENDED_IF}
{$if High(errorcode)<>maxExitCode}
{$define FPC_LIMITED_EXITCODE}
{$endif}
{$endif FPC_OBJFPC_EXTENDED_IF}
{**************************************************************************** {****************************************************************************
Local types Local types
****************************************************************************} ****************************************************************************}
@ -867,10 +873,12 @@ begin
{$endif FPC_HAS_FEATURE_EXCEPTIONS} {$endif FPC_HAS_FEATURE_EXCEPTIONS}
{$ifdef FPC_HAS_FEATURE_EXITCODE} {$ifdef FPC_HAS_FEATURE_EXITCODE}
if errorcode <= maxExitCode then {$ifdef FPC_LIMITED_EXITCODE}
halt(errorcode) if errorcode > maxExitCode then
else
halt(255) halt(255)
else
{$endif FPC_LIMITED_EXITCODE}
halt(errorcode);
{$else FPC_HAS_FEATURE_EXITCODE} {$else FPC_HAS_FEATURE_EXITCODE}
halt; halt;
{$endif FPC_HAS_FEATURE_EXITCODE} {$endif FPC_HAS_FEATURE_EXITCODE}
@ -903,10 +911,12 @@ begin
erroraddr:=get_caller_addr(get_frame); erroraddr:=get_caller_addr(get_frame);
errorbase:=get_caller_frame(get_frame); errorbase:=get_caller_frame(get_frame);
{$ifdef FPC_HAS_FEATURE_EXITCODE} {$ifdef FPC_HAS_FEATURE_EXITCODE}
if errorcode <= maxExitCode then {$ifdef FPC_LIMITED_EXITCODE}
halt(errorcode) if errorcode > maxExitCode then
else
halt(255) halt(255)
else
{$endif FPC_LIMITED_EXITCODE}
halt(errorcode);
{$else FPC_HAS_FEATURE_EXITCODE} {$else FPC_HAS_FEATURE_EXITCODE}
halt; halt;
{$endif FPC_HAS_FEATURE_EXITCODE} {$endif FPC_HAS_FEATURE_EXITCODE}