diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-24 10:48:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-24 10:48:44 (GMT) |
| commit | 4e3426067cddf752f0c15e8a2ce29f5f9052341f (patch) | |
| tree | 71bc7b9e28e2dd0b30a055ea917d68cf355039f9 /generic/tclExecute.c | |
| parent | 66cbd6ac71e01082f9e8b0e088cd829defdf9886 (diff) | |
| download | tcl-4e3426067cddf752f0c15e8a2ce29f5f9052341f.zip tcl-4e3426067cddf752f0c15e8a2ce29f5f9052341f.tar.gz tcl-4e3426067cddf752f0c15e8a2ce29f5f9052341f.tar.bz2 | |
When compiled with TCL_NO_DEPRECATED, remove the UTF16 compatibility layer. So, we make sure that it is never used internally for the Core. This means that extensions using the compatibility layer won't work any more in this mode; extensions should be compiled using TCL_UTF_MAX=4 then they work again.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index f09f75c..0456146 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5592,8 +5592,8 @@ TEBCresume( * both. */ - if (TclHasInternalRep(valuePtr, &tclStringType) - || TclHasInternalRep(value2Ptr, &tclStringType)) { + if (TclHasInternalRep(valuePtr, &tclUniCharStringType) + || TclHasInternalRep(value2Ptr, &tclUniCharStringType)) { Tcl_UniChar *ustring1, *ustring2; ustring1 = TclGetUnicodeFromObj_(valuePtr, &length); |