summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2011-04-02 22:07:58 (GMT)
committerKevin B Kenny <kennykb@acm.org>2011-04-02 22:07:58 (GMT)
commitfcf7bbf6ec9bc4d484960cf51acdab44bca2683a (patch)
tree820438bd680192a6a6a2c1541c0886cf362234ff /generic
parentd2275aefb3bc8e96e7ae22e4609ba2c7604f86fe (diff)
parent2db0d44d63bad5e5d32e84a38b8a4756d7dab1d0 (diff)
downloadtcl-fcf7bbf6ec9bc4d484960cf51acdab44bca2683a.zip
tcl-fcf7bbf6ec9bc4d484960cf51acdab44bca2683a.tar.gz
tcl-fcf7bbf6ec9bc4d484960cf51acdab44bca2683a.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 d4a3b4b..205b865 100755
--- a/generic/tclStrToD.c
+++ b/generic/tclStrToD.c
@@ -2710,7 +2710,7 @@ StrictQuickFormat(
inline static char *
QuickConversion(
- double d, /* Number to format. */
+ 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:
@@ -2729,12 +2729,14 @@ QuickConversion(
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 by one. If