From ac26993488596c7f9d984f40a382a24903a52193 Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Mon, 27 Jul 2015 17:23:45 +0000
Subject: [PATCH] TAChart: Better usage of compiler directives in TFitSeries.
 Some cleanup.

git-svn-id: trunk@49573 -
---
 components/tachart/tafuncseries.pas | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/components/tachart/tafuncseries.pas b/components/tachart/tafuncseries.pas
index 3da72b2f16..364a87098b 100644
--- a/components/tachart/tafuncseries.pas
+++ b/components/tachart/tafuncseries.pas
@@ -1329,10 +1329,9 @@ type
 var
   yave, ycalc, SStot, SSres: Double;
   i, j: Integer;
-  na: Integer;
 begin
-  {$IFOPT R+}{$DEFINE RANGE_CHECK_ON}{$ENDIF}
-  {$IFDEF RANGE_CHECK_ON}{$R-}{$ENDIF}
+  {$PUSH}
+  {$R-}
   yave := 0;
   for i:=0 to n-1 do
     yave := yave + TArbFloatArray(y)[i];
@@ -1348,7 +1347,7 @@ begin
     SSres := SSres + sqr(TArbFloatArray(y)[i] - ycalc);
   end;
   Result := 1.0 - SSres / SStot;
-  {$IFDEF RANGE_CHECK_ON}{$R+}{$ENDIF}
+  {$POP}
 end;
 
 function TFitSeries.Calculate(AX: Double): Double;
@@ -1454,8 +1453,6 @@ var
   var
     i, j, term, ns, np, n: Integer;
     xv, yv, fp: array of ArbFloat;
-    ssTot, ssRes: Double;
-    ycalc, yave: Double;
   begin
     np := ParamCount;
     ns := Source.Count;