diff options
author | dgp <dgp@users.sourceforge.net> | 2022-03-07 23:59:52 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2022-03-07 23:59:52 (GMT) |
commit | faf33c3ece8ecb7a33845cb5c3b4edfd725b9ef3 (patch) | |
tree | 929803232be8927160a678496aae977e1e74c56c /generic/tclStringObj.c | |
parent | 2071722ddec667bebfb47e91d684cc37be2d81e5 (diff) | |
download | tcl-faf33c3ece8ecb7a33845cb5c3b4edfd725b9ef3.zip tcl-faf33c3ece8ecb7a33845cb5c3b4edfd725b9ef3.tar.gz tcl-faf33c3ece8ecb7a33845cb5c3b4edfd725b9ef3.tar.bz2 |
Starting in Tcl 8.7, Tcl_GetUniChar() returns int, not Tcl_UniChar (TIP 389).
Make typecasts of returned values match the new signature.
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 0a6503c..c2249ae 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -561,7 +561,7 @@ Tcl_GetUniChar( TclNumUtfChars(stringPtr->numChars, objPtr->bytes, objPtr->length); } if (stringPtr->numChars == objPtr->length) { - return (Tcl_UniChar) objPtr->bytes[index]; + return (int) objPtr->bytes[index]; } FillUnicodeRep(objPtr); stringPtr = GET_STRING(objPtr); |