diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-01 10:29:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-01 10:29:45 (GMT) |
| commit | d0fec7532c33f0b3da8057e2e0fda10524f22905 (patch) | |
| tree | 0a27ba932606ffe075724951f8d3aa24745f6dd7 /generic/tclStubInit.c | |
| parent | b1a8dc460f2e7f8a7ff436f52729f729ead3b92d (diff) | |
| download | tcl-d0fec7532c33f0b3da8057e2e0fda10524f22905.zip tcl-d0fec7532c33f0b3da8057e2e0fda10524f22905.tar.gz tcl-d0fec7532c33f0b3da8057e2e0fda10524f22905.tar.bz2 | |
Add UTF-16 versions of Tcl_GetCharLength/Tcl_GetRange/Tcl_GetUniChar to the stub table. Should have been part of TIP #542. Needed for Tk's "glyph_indexing_2" branch
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 59036ec..704c51a 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -1073,10 +1073,10 @@ const TclStubs tclStubs = { Tcl_RegExpGetInfo, /* 377 */ Tcl_NewUnicodeObj, /* 378 */ Tcl_SetUnicodeObj, /* 379 */ - Tcl_GetCharLength, /* 380 */ - Tcl_GetUniChar, /* 381 */ + TclGetCharLength, /* 380 */ + TclGetUniChar, /* 381 */ 0, /* 382 */ - Tcl_GetRange, /* 383 */ + TclGetRange, /* 383 */ 0, /* 384 */ Tcl_RegExpMatchObj, /* 385 */ Tcl_SetNotifier, /* 386 */ @@ -1363,8 +1363,10 @@ const TclStubs tclStubs = { 0, /* 667 */ Tcl_UniCharLen, /* 668 */ Tcl_NumUtfChars, /* 669 */ - 0, /* 670 */ + Tcl_GetCharLength, /* 670 */ Tcl_UtfAtIndex, /* 671 */ + Tcl_GetRange, /* 672 */ + Tcl_GetUniChar, /* 673 */ }; /* !END!: Do not edit above this line. */ |