diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2011-04-02 22:07:58 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2011-04-02 22:07:58 (GMT) |
| commit | fcf7bbf6ec9bc4d484960cf51acdab44bca2683a (patch) | |
| tree | 820438bd680192a6a6a2c1541c0886cf362234ff /generic/tclStrToD.c | |
| parent | d2275aefb3bc8e96e7ae22e4609ba2c7604f86fe (diff) | |
| parent | 2db0d44d63bad5e5d32e84a38b8a4756d7dab1d0 (diff) | |
| download | tcl-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/tclStrToD.c')
| -rwxr-xr-x | generic/tclStrToD.c | 6 |
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 |