paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 07:30:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Use $PUSH/$POP instead of $IFDEFs to restore compiler options in SafeInfinity

Browse Source 
git-svn-id: trunk@32306 -
This commit is contained in:
ask 2011-09-13 03:45:55 +00:00
parent d48b6c597d
commit 5e47f77c8b
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tachartutils.pas
View File

@ -437,11 +437,9 @@ end;
function SafeInfinity: Double;
begin
{$IFOPT R+}{$DEFINE RangeChecking}{$ELSE}{$UNDEF RangeChecking}{$ENDIF}
{$IFOPT Q+}{$DEFINE OverflowChecking}{$ELSE}{$UNDEF OverflowChecking}{$ENDIF}
{$R-}{$Q-}
{$PUSH}{$R-}{$Q-}
Result := Infinity;
{$IFDEF OverflowChecking}{$Q+}{$ENDIF}{$IFDEF RangeChecking}{$R+}{$ENDIF}
{$POP}
end;
function SafeInRange(AValue, ABound1, ABound2: Double): Boolean;