diff options
-rwxr-xr-x | generic/tclStrToD.c | 10 | ||||
-rw-r--r-- | generic/tclUtil.c | 3 |
2 files changed, 6 insertions, 7 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; diff --git a/generic/tclUtil.c b/generic/tclUtil.c index a04c29c..74cbff1 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUtil.c,v 1.119 2010/11/28 23:20:11 kennykb Exp $ + * RCS: @(#) $Id: tclUtil.c,v 1.120 2010/11/29 02:27:12 kennykb Exp $ */ #include "tclInt.h" @@ -2236,7 +2236,6 @@ Tcl_PrintDouble( int signum; char* digits; char* end; - Tcl_UniChar ch; int *precisionPtr = Tcl_GetThreadData(&precisionKey, (int)sizeof(int)); |