diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-28 07:50:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-28 07:50:18 (GMT) |
| commit | c94fa5b242a0d1a9a41fb47e1c65e76bace375dc (patch) | |
| tree | d650469c7d9f86b1d2a98719b74915e79be8529c /generic/tclEncoding.c | |
| parent | 5c12e533556c6a10c210e66b2044cd5a921df747 (diff) | |
| download | tcl-c94fa5b242a0d1a9a41fb47e1c65e76bace375dc.zip tcl-c94fa5b242a0d1a9a41fb47e1c65e76bace375dc.tar.gz tcl-c94fa5b242a0d1a9a41fb47e1c65e76bace375dc.tar.bz2 | |
"utf-8" is the new "identity": make it available always
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 83510cc..18e81f9 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -186,6 +186,7 @@ TCL_DECLARE_MUTEX(encodingMutex) static Tcl_Encoding defaultEncoding = NULL; static Tcl_Encoding systemEncoding = NULL; Tcl_Encoding tclIdentityEncoding = NULL; +Tcl_Encoding tclUtf8Encoding = NULL; /* * Names of encoding profiles and corresponding integer values. @@ -601,7 +602,7 @@ TclInitEncodingSubsystem(void) type.freeProc = NULL; type.nullSize = 1; type.clientData = INT2PTR(ENCODING_UTF); - Tcl_CreateEncoding(&type); + tclUtf8Encoding = Tcl_CreateEncoding(&type); type.clientData = NULL; type.encodingName = "cesu-8"; Tcl_CreateEncoding(&type); @@ -723,6 +724,8 @@ TclFinalizeEncodingSubsystem(void) defaultEncoding = NULL; FreeEncoding(tclIdentityEncoding); tclIdentityEncoding = NULL; + FreeEncoding(tclUtf8Encoding); + tclUtf8Encoding = NULL; hPtr = Tcl_FirstHashEntry(&encodingTable, &search); while (hPtr != NULL) { |