summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-02-05 21:27:45 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-02-05 21:27:45 (GMT)
commit9e192ac67cdb8d8226839dfda1c6411cb216f392 (patch)
tree03cdefe1e02883e3f0803abfb45cf9e346992cba
parentcd89b9ea6457cd428033dbb8b2f7746dd35222ed (diff)
downloadtcl-9e192ac67cdb8d8226839dfda1c6411cb216f392.zip
tcl-9e192ac67cdb8d8226839dfda1c6411cb216f392.tar.gz
tcl-9e192ac67cdb8d8226839dfda1c6411cb216f392.tar.bz2
Add missing cast
-rw-r--r--generic/tclStringObj.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index e7a8880..589d046 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.86 2009/02/05 11:57:26 dkf Exp $ */
+ * RCS: @(#) $Id: tclStringObj.c,v 1.87 2009/02/05 21:27:45 dkf Exp $ */
#include "tclInt.h"
#include "tommath.h"
@@ -481,7 +481,7 @@ Tcl_GetUniChar(
if (IS_PURE_BYTE_ARRAY(objPtr)) {
unsigned char *bytes = Tcl_GetByteArrayFromObj(objPtr, NULL);
- return bytes[index];
+ return (Tcl_UniChar) bytes[index];
}
/*