summaryrefslogtreecommitdiffstats
path: root/generic/tclStrToD.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclStrToD.c')
-rw-r--r--generic/tclStrToD.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c
index c1b3e99..66640ea 100644
--- a/generic/tclStrToD.c
+++ b/generic/tclStrToD.c
@@ -1798,7 +1798,7 @@ RefineApproximation(
double quot; /* Correction term. */
double minincr; /* Lower bound on the absolute value of the
* correction term. */
- int roundToEven; /* Flag == TRUE if we need to invoke
+ int roundToEven = 0; /* Flag == TRUE if we need to invoke
* "round to even" functionality */
double rteSignificand; /* Significand of the round-to-even result */
int rteExponent; /* Exponent of the round-to-even result */
@@ -1915,7 +1915,6 @@ RefineApproximation(
roundToEven = 1;
break;
case MP_GT:
- roundToEven = 0;
break;
}