diff options
| -rw-r--r-- | generic/tclStrToD.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 1cfadf0..ca0151b 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -1666,7 +1666,7 @@ MakeLowPrecisionDouble( */ retval = - ((double)significand * pow10vals[exponent]); + ((double)(Tcl_WideInt)significand * pow10vals[exponent]); goto returnValue; } else { int diff = QUICK_MAX - numSigDigs; @@ -1680,7 +1680,7 @@ MakeLowPrecisionDouble( */ volatile double factor = - ((double)significand * pow10vals[diff]); + ((double)(Tcl_WideInt)significand * pow10vals[diff]); retval = factor * pow10vals[exponent-diff]; goto returnValue; } @@ -1694,7 +1694,7 @@ MakeLowPrecisionDouble( */ retval = - ((double)significand / pow10vals[-exponent]); + ((double)(Tcl_WideInt)significand / pow10vals[-exponent]); goto returnValue; } } |