summaryrefslogtreecommitdiffstats
path: root/generic
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 /generic
parent9d73340679f7c5a710e47d19fe4cdfc41461afe3 (diff)
downloadtcl-0fa613150f4fab3a1cb24978c8c342293dcf3e56.zip
tcl-0fa613150f4fab3a1cb24978c8c342293dcf3e56.tar.gz
tcl-0fa613150f4fab3a1cb24978c8c342293dcf3e56.tar.bz2
added missing casts in tclStringObj.c
Diffstat (limited to 'generic')
-rw-r--r--generic/tclStringObj.c6
1 files changed, 3 insertions, 3 deletions
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();