diff options
author | kennykb <kennykb@noemail.net> | 2010-11-29 02:27:11 (GMT) |
---|---|---|
committer | kennykb <kennykb@noemail.net> | 2010-11-29 02:27:11 (GMT) |
commit | b68b9c4a295d77536d9ec412c5950914e08a6bd9 (patch) | |
tree | 60f384270f44d26f6d30a98e64133f57c1e816bd /generic/tclStrToD.c | |
parent | cf7b10c5138e5608613e8e880e5e44545979eb61 (diff) | |
download | tcl-b68b9c4a295d77536d9ec412c5950914e08a6bd9.zip tcl-b68b9c4a295d77536d9ec412c5950914e08a6bd9.tar.gz tcl-b68b9c4a295d77536d9ec412c5950914e08a6bd9.tar.bz2 |
added missing casts that MSVC complained about and deleted unused variable
FossilOrigin-Name: 7c3fff60008ae2e97744a90e93d69bd88b232007
Diffstat (limited to 'generic/tclStrToD.c')
-rwxr-xr-x | generic/tclStrToD.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 8171df0..69be044 100755 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStrToD.c,v 1.47 2010/11/28 23:20:11 kennykb Exp $ + * RCS: @(#) $Id: tclStrToD.c,v 1.48 2010/11/29 02:27:11 kennykb Exp $ * *---------------------------------------------------------------------- */ @@ -2031,9 +2031,9 @@ RequiredPrecision(Tcl_WideUInt w) int rv; unsigned long wi; if (w & ((Tcl_WideUInt) 0xffffffff << 32)) { - wi = w >> 32; rv = 32; + wi = (unsigned long) (w >> 32); rv = 32; } else { - wi = w; rv = 0; + wi = (unsigned long) w; rv = 0; } if (wi & 0xffff0000) { wi >>= 16; rv += 16; @@ -2551,7 +2551,7 @@ ShorteningQuickFormat(double d, /* Number to convert */ for (;;) { /* Convert a digit */ - digit = d; + digit = (int) d; d -= digit; *s++ = '0' + digit; @@ -2622,7 +2622,7 @@ StrictQuickFormat(double d, /* Number to convert */ i = 1; for (;;) { /* Extract a digit */ - digit = d; + digit = (int) d; d -= digit; if (d == 0.0) { ilim = i; |