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

* disable check in Exit and Error code

Browse Source
This commit is contained in:
pierre 2000-05-23 20:35:41 +00:00
parent 00cf634883
commit 2f715a886a
1 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/inc/system.inc
View File

@ -318,6 +318,20 @@ begin
dir:=s;
end;
{$ifopt R+}
{$define RangeCheckWasOn}
{$R-}
{$endif opt R+}
{$ifopt I+}
{$define IOCheckWasOn}
{$I-}
{$endif opt I+}
{$ifopt Q+}
{$define OverflowCheckWasOn}
{$Q-}
{$endif opt Q+}
{*****************************************************************************
Miscellaneous
@ -613,6 +627,18 @@ end;
{$i setjump.inc}
{$ifdef IOCheckWasOn}
{$I+}
{$endif}
{$ifdef RangeCheckWasOn}
{$R+}
{$endif}
{$ifdef OverflowCheckWasOn}
{$Q+}
{$endif}
{*****************************************************************************
Object Pascal support
*****************************************************************************}
@ -621,7 +647,10 @@ end;
{
$Log$
Revision 1.88 2000-04-24 11:11:50 peter
Revision 1.89 2000-05-23 20:35:41 pierre
* disable check in Exit and Error code
Revision 1.88 2000/04/24 11:11:50 peter
* backtraces for exceptions are now only generated from the place of the
exception
* frame is also pushed for exceptions