paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 22:40:27 +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; function SafeInfinity: Double;
begin begin
{$IFOPT R+}{$DEFINE RangeChecking}{$ELSE}{$UNDEF RangeChecking}{$ENDIF} {$PUSH}{$R-}{$Q-}
{$IFOPT Q+}{$DEFINE OverflowChecking}{$ELSE}{$UNDEF OverflowChecking}{$ENDIF}
{$R-}{$Q-}
Result := Infinity; Result := Infinity;
{$IFDEF OverflowChecking}{$Q+}{$ENDIF}{$IFDEF RangeChecking}{$R+}{$ENDIF} {$POP}
end; end;
function SafeInRange(AValue, ABound1, ABound2: Double): Boolean; function SafeInRange(AValue, ABound1, ABound2: Double): Boolean;