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

* disable range,overflow check when generating Nan/Inf

Browse Source
This commit is contained in:
peter 2004-04-08 16:37:08 +00:00
parent c455a796e9
commit f8590e2841
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/objpas/math.pp
View File

@ -115,8 +115,24 @@ interface
LessThanValue = Low(TValueRelationship);
GreaterThanValue = High(TValueRelationship);
{$ifndef ver1_0}
{$ifopt R+}
{$define RangeCheckWasOn}
{$R-}
{$endif opt R+}
{$ifopt Q+}
{$define OverflowCheckWasOn}
{$Q-}
{$endif opt Q+}
NaN = 0.0/0.0;
Infinity = 1.0/0.0;
{$ifdef RangeCheckWasOn}
{$R+}
{$undef RangeCheckWasOn}
{$endif}
{$ifdef OverflowCheckWasOn}
{$Q+}
{$undef OverflowCheckWasOn}
{$endif}
{$endif ver1_0}
{ Min/max determination }
@ -1309,7 +1325,10 @@ end;
end.
{
$Log$
Revision 1.20 2004-02-20 20:10:44 florian
Revision 1.21 2004-04-08 16:37:08 peter
* disable range,overflow check when generating Nan/Inf
Revision 1.20 2004/02/20 20:10:44 florian
+ added Inf/Nan stuff
Revision 1.19 2004/02/09 18:53:09 florian