summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2010-11-29 02:27:11 (GMT)
committerKevin B Kenny <kennykb@acm.org>2010-11-29 02:27:11 (GMT)
commitd583b69d37716bbc26c8bd82d09a5503072a66c5 (patch)
tree60f384270f44d26f6d30a98e64133f57c1e816bd /generic
parenta5a72404b019601daeadb7184189dd40ef6ac90c (diff)
downloadtcl-d583b69d37716bbc26c8bd82d09a5503072a66c5.zip
tcl-d583b69d37716bbc26c8bd82d09a5503072a66c5.tar.gz
tcl-d583b69d37716bbc26c8bd82d09a5503072a66c5.tar.bz2
added missing casts that MSVC complained about and deleted unused variable
Diffstat (limited to 'generic')
-rwxr-xr-xgeneric/tclStrToD.c10
-rw-r--r--generic/tclUtil.c3
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));