diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-08 09:59:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-08 09:59:39 (GMT) |
| commit | 49964ff7d5474d8fe78359f799a26e02672e6868 (patch) | |
| tree | a887810b21045b8bf6d8c9843d5680038b807be2 /generic/tclStringObj.c | |
| parent | 0716c6bd83df14591bdafd41dcd46ef1e78a3a17 (diff) | |
| parent | fb24c82dba94b255cb76db1910ae73e3e683746b (diff) | |
| download | tcl-49964ff7d5474d8fe78359f799a26e02672e6868.zip tcl-49964ff7d5474d8fe78359f799a26e02672e6868.tar.gz tcl-49964ff7d5474d8fe78359f799a26e02672e6868.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 4cf3bdd..63dcdfb 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -546,7 +546,7 @@ Tcl_GetUniChar( TclNumUtfChars(stringPtr->numChars, objPtr->bytes, objPtr->length); } if (stringPtr->numChars == objPtr->length) { - return (Tcl_UniChar) objPtr->bytes[index]; + return (unsigned char) objPtr->bytes[index]; } FillUnicodeRep(objPtr); stringPtr = GET_STRING(objPtr); |