summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2011-04-02 21:55:39 (GMT)
committerKevin B Kenny <kennykb@acm.org>2011-04-02 21:55:39 (GMT)
commit2db0d44d63bad5e5d32e84a38b8a4756d7dab1d0 (patch)
treeb4ee999406012302c358cbcb5598dc0fa414aad2 /generic
parent6266f2e3593c1f443d49334bad71f9a5dde9a4f6 (diff)
downloadtcl-2db0d44d63bad5e5d32e84a38b8a4756d7dab1d0.zip
tcl-2db0d44d63bad5e5d32e84a38b8a4756d7dab1d0.tar.gz
tcl-2db0d44d63bad5e5d32e84a38b8a4756d7dab1d0.tar.bz2
Replaced another couple of 'double' declarations with 'volatile
double' to work around misrounding issues in mingw-gcc 3.4.5.
Diffstat (limited to 'generic')
-rwxr-xr-xgeneric/tclStrToD.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c
index d5c6e9c..139b8f2 100755
--- a/generic/tclStrToD.c
+++ b/generic/tclStrToD.c
@@ -2668,7 +2668,7 @@ StrictQuickFormat(double d, /* Number to convert */
*/
inline static char*
-QuickConversion(double d, /* Number to format */
+QuickConversion(double e, /* Number to format */
int k, /* floor(log10(d)), approximately */
int k_check, /* 0 if k is exact, 1 if it may be too high */
int flags, /* Flags passed to dtoa:
@@ -2686,11 +2686,13 @@ QuickConversion(double d, /* Number to format */
char* retval; /* Returned string */
char* end; /* Pointer to the terminal null byte in the
* returned string */
+ volatile double d; /* Workaround for a bug in mingw gcc 3.4.5 */
/*
* Bring d into the range [1 .. 10)
*/
- ieps = AdjustRange(&d, k);
+ ieps = AdjustRange(&e, k);
+ d = e;
/*
* If the guessed value of k didn't get d into range, adjust it