summaryrefslogtreecommitdiffstats
path: root/generic/tclStrToD.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-06-05 15:40:56 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-06-05 15:40:56 (GMT)
commit22bee8161ff83b967a50d1c853fc96598d6d48c6 (patch)
tree32d0428c5dfaf44becbc57435ca0bdf49166521e /generic/tclStrToD.c
parenta0ca94afce1f63b761b2d168b5ceed5774425cfd (diff)
downloadtcl-22bee8161ff83b967a50d1c853fc96598d6d48c6.zip
tcl-22bee8161ff83b967a50d1c853fc96598d6d48c6.tar.gz
tcl-22bee8161ff83b967a50d1c853fc96598d6d48c6.tar.bz2
Remove unused variable mantDIGIT.
Diffstat (limited to 'generic/tclStrToD.c')
-rwxr-xr-xgeneric/tclStrToD.c3
1 files changed, 0 insertions, 3 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c
index 5f59500..76adf75 100755
--- a/generic/tclStrToD.c
+++ b/generic/tclStrToD.c
@@ -167,8 +167,6 @@ static int maxDigits; /* The maximum number of digits to the left of
* the decimal point of a double. */
static int minDigits; /* The maximum number of digits to the right
* of the decimal point in a double. */
-static int mantDIGIT; /* Number of mp_digit's needed to hold the
- * significand of a double. */
static const double pow_10_2_n[] = { /* Inexact higher powers of ten. */
1.0,
100.0,
@@ -4405,7 +4403,6 @@ TclInitDoubleConversion(void)
+ 0.5 * log(10.)) / log(10.));
minDigits = (int) floor((DBL_MIN_EXP - DBL_MANT_DIG)
* log((double) FLT_RADIX) / log(10.));
- mantDIGIT = (mantBits + DIGIT_BIT-1) / DIGIT_BIT;
log10_DIGIT_MAX = (int) floor(DIGIT_BIT * log(2.) / log(10.));
/*