summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2015-06-24 13:56:36 (GMT)
committerdgp <dgp@users.sourceforge.net>2015-06-24 13:56:36 (GMT)
commiteb049d668c3f6c715771f027207ceeff6c2cba43 (patch)
tree3597c5e6a692112e095222218805e627bb381ff9
parent17d4aee3e5d53fff38c2f5b3320feb6aae327e2b (diff)
parent448da15b7fffbb7e10b589a22c7ee059a629bf60 (diff)
downloadtcl-eb049d668c3f6c715771f027207ceeff6c2cba43.zip
tcl-eb049d668c3f6c715771f027207ceeff6c2cba43.tar.gz
tcl-eb049d668c3f6c715771f027207ceeff6c2cba43.tar.bz2
Silence compiler warning.
-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;
}