summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2005-09-09 17:19:19 (GMT)
committerKevin B Kenny <kennykb@acm.org>2005-09-09 17:19:19 (GMT)
commit0fa613150f4fab3a1cb24978c8c342293dcf3e56 (patch)
tree325a3ed06bf8592900de0830e24d63b8877b9f31
parent9d73340679f7c5a710e47d19fe4cdfc41461afe3 (diff)
downloadtcl-0fa613150f4fab3a1cb24978c8c342293dcf3e56.zip
tcl-0fa613150f4fab3a1cb24978c8c342293dcf3e56.tar.gz
tcl-0fa613150f4fab3a1cb24978c8c342293dcf3e56.tar.bz2
added missing casts in tclStringObj.c
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclStringObj.c6
2 files changed, 8 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 12e6253..7a4ae40 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-05 Kevin Kenny <kennykb@acm.org>
+
+ * generic/tclStringObj.c: Added two missing casts to silence
+ messages from MSVC6.
+
2005-09-09 Don Porter <dgp@users.sourceforge.net>
* generic/tclInt.h: New internal routines TclFormatObj()
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index 453069d..f048540 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -33,7 +33,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclStringObj.c,v 1.39 2005/09/09 15:44:27 dgp Exp $ */
+ * RCS: @(#) $Id: tclStringObj.c,v 1.40 2005/09/09 17:19:19 kennykb Exp $ */
#include "tclInt.h"
@@ -2061,7 +2061,7 @@ TclAppendFormattedObjs(interp, baseObj, format, objc, objv)
bytes = Tcl_GetString(pure);
length = numDigits;
while (numDigits--) {
- int digitOffset = bits % base;
+ int digitOffset = (int) (bits % base);
if (digitOffset > 9) {
bytes[numDigits] = 'a' + digitOffset - 10;
} else {
@@ -2131,7 +2131,7 @@ TclAppendFormattedObjs(interp, baseObj, format, objc, objv)
length += precision;
}
/* Don't pass length modifiers ! */
- *p++ = ch;
+ *p++ = (char) ch;
*p = '\0';
segment = Tcl_NewObj();