diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-29 19:40:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-29 19:40:33 (GMT) |
| commit | 60e9b38dfbeb8b382fd60528363fe726331ac4db (patch) | |
| tree | 3153ad797c7318cfb8eb5ff6bb81efaf0a83be04 /generic/tclStringObj.c | |
| parent | 5b062d1806f1da051de058a1c426551933fb5952 (diff) | |
| download | tcl-60e9b38dfbeb8b382fd60528363fe726331ac4db.zip tcl-60e9b38dfbeb8b382fd60528363fe726331ac4db.tar.gz tcl-60e9b38dfbeb8b382fd60528363fe726331ac4db.tar.bz2 | |
Add UTF-16 versions of Tcl_NumUtfChars/Tcl_UtfAtIndex to the stub table. Should have been part of TIP #542. Needed for Tk's "glyph_indexing_2" branch
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index c8d9df7..2755cf6 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -440,7 +440,7 @@ Tcl_GetCharLength( */ if (numChars == TCL_INDEX_NONE) { - TclNumUtfChars(numChars, objPtr->bytes, objPtr->length); + TclNumUtfCharsM(numChars, objPtr->bytes, objPtr->length); stringPtr->numChars = numChars; } return numChars; @@ -543,7 +543,7 @@ Tcl_GetUniChar( */ if (stringPtr->numChars == TCL_INDEX_NONE) { - TclNumUtfChars(stringPtr->numChars, objPtr->bytes, objPtr->length); + TclNumUtfCharsM(stringPtr->numChars, objPtr->bytes, objPtr->length); } if (stringPtr->numChars == objPtr->length) { return (unsigned char) objPtr->bytes[index]; @@ -709,7 +709,7 @@ Tcl_GetRange( */ if (stringPtr->numChars == TCL_INDEX_NONE) { - TclNumUtfChars(stringPtr->numChars, objPtr->bytes, objPtr->length); + TclNumUtfCharsM(stringPtr->numChars, objPtr->bytes, objPtr->length); } if (stringPtr->numChars == objPtr->length) { if (last >= stringPtr->numChars) { @@ -4045,7 +4045,7 @@ ExtendUnicodeRepWithString( numOrigChars = stringPtr->numChars; } if (numAppendChars == TCL_INDEX_NONE) { - TclNumUtfChars(numAppendChars, bytes, numBytes); + TclNumUtfCharsM(numAppendChars, bytes, numBytes); } needed = numOrigChars + numAppendChars; |