diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-02-05 21:27:45 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-02-05 21:27:45 (GMT) |
| commit | 9e192ac67cdb8d8226839dfda1c6411cb216f392 (patch) | |
| tree | 03cdefe1e02883e3f0803abfb45cf9e346992cba | |
| parent | cd89b9ea6457cd428033dbb8b2f7746dd35222ed (diff) | |
| download | tcl-9e192ac67cdb8d8226839dfda1c6411cb216f392.zip tcl-9e192ac67cdb8d8226839dfda1c6411cb216f392.tar.gz tcl-9e192ac67cdb8d8226839dfda1c6411cb216f392.tar.bz2 | |
Add missing cast
| -rw-r--r-- | generic/tclStringObj.c | 4 |
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]; } /* |