diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-24 11:34:39 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-24 11:34:39 (GMT) |
commit | 0febd13af2d2275d3b63ef191462fc4fea18db99 (patch) | |
tree | db1da87029a89f8a61530c0e4f48e2f605420f83 /generic/tclUtf.c | |
parent | 4e3426067cddf752f0c15e8a2ce29f5f9052341f (diff) | |
download | tcl-0febd13af2d2275d3b63ef191462fc4fea18db99.zip tcl-0febd13af2d2275d3b63ef191462fc4fea18db99.tar.gz tcl-0febd13af2d2275d3b63ef191462fc4fea18db99.tar.bz2 |
Implement PANIC when the UTF16 compatibility layer is used in combination with -DTCL_NO_DEPRECATED
Diffstat (limited to 'generic/tclUtf.c')
-rw-r--r-- | generic/tclUtf.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index 2a335d7..82adf65 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1957,7 +1957,7 @@ TclUniCharNcmp( #endif /* WORDS_BIGENDIAN */ } -#if TCL_UTF_MAX > 3 +#if (TCL_UTF_MAX > 3) && !defined(TCL_NO_DEPRECATED) int Tcl_UniCharNcmp( const unsigned short *ucs, /* Unicode string to compare to uct. */ @@ -2028,7 +2028,7 @@ TclUniCharNcasecmp( return 0; } -#if TCL_UTF_MAX > 3 +#if (TCL_UTF_MAX > 3) && !defined(TCL_NO_DEPRECATED) int Tcl_UniCharNcasecmp( const unsigned short *ucs, /* Unicode string to compare to uct. */ @@ -2584,7 +2584,7 @@ TclUniCharCaseMatch( } } -#if TCL_UTF_MAX > 3 +#if (TCL_UTF_MAX > 3) && !defined(TCL_NO_DEPRECATED) int Tcl_UniCharCaseMatch( const unsigned short *uniStr, /* Unicode String. */ |