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/tclObj.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/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index a06b8fd..7596880 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -387,7 +387,9 @@ TclInitObjSubsystem(void) Tcl_RegisterObjType(&tclByteArrayType); Tcl_RegisterObjType(&tclDoubleType); +#if (TCL_UTF_MAX) > 3 && !defined(TCL_NO_DEPRECATED) Tcl_RegisterObjType(&tclStringType); +#endif Tcl_RegisterObjType(&tclListType); Tcl_RegisterObjType(&tclDictType); Tcl_RegisterObjType(&tclByteCodeType); |