diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-10 15:12:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-10 15:12:39 (GMT) |
| commit | 5bbfefe89f6daa8cc27ecf068f1447b1f426c215 (patch) | |
| tree | da979610e0dddab87ed68bc6e9e0d46770a067ac /generic/tclStubInit.c | |
| parent | 93decadd08e26f05c063d577a3258204fd6f6234 (diff) | |
| download | tcl-5bbfefe89f6daa8cc27ecf068f1447b1f426c215.zip tcl-5bbfefe89f6daa8cc27ecf068f1447b1f426c215.tar.gz tcl-5bbfefe89f6daa8cc27ecf068f1447b1f426c215.tar.bz2 | |
Fix [4e38c347a4]: Changed contract for Tcl_UtfN(case)cmp in Tcl 8.7
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index a987fe8..34e8c27 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -1164,8 +1164,8 @@ const TclStubs tclStubs = { Tcl_Chdir, /* 366 */ Tcl_Access, /* 367 */ Tcl_Stat, /* 368 */ - Tcl_UtfNcmp, /* 369 */ - Tcl_UtfNcasecmp, /* 370 */ + TclUtfNcmp, /* 369 */ + TclUtfNcasecmp, /* 370 */ Tcl_StringCaseMatch, /* 371 */ Tcl_UniCharIsControl, /* 372 */ Tcl_UniCharIsGraph, /* 373 */ @@ -1481,8 +1481,8 @@ const TclStubs tclStubs = { Tcl_GetEncodingNulLength, /* 683 */ Tcl_GetWideUIntFromObj, /* 684 */ Tcl_DStringToObj, /* 685 */ - 0, /* 686 */ - 0, /* 687 */ + Tcl_UtfNcmp, /* 686 */ + Tcl_UtfNcasecmp, /* 687 */ TclUnusedStubEntry, /* 688 */ }; |