diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-02-04 15:17:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-02-04 15:17:12 (GMT) |
| commit | ae0cf24fb4a1c43bb6ffc8d5db7404a17bc3b8ea (patch) | |
| tree | da77e345963b52bd809d1ed5d0911aacc39725d5 /generic/tclEncoding.c | |
| parent | 009a17d3a03061610a2c281f18937e78e995855f (diff) | |
| parent | ee8ba589547e1b44b7851f0524f854e9b58f8dfe (diff) | |
| download | tcl-ae0cf24fb4a1c43bb6ffc8d5db7404a17bc3b8ea.zip tcl-ae0cf24fb4a1c43bb6ffc8d5db7404a17bc3b8ea.tar.gz tcl-ae0cf24fb4a1c43bb6ffc8d5db7404a17bc3b8ea.tar.bz2 | |
Simplify the core output operations of channels. Reduce duplicative and
dead code.
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index c2f1b4b..1842fb6 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -182,6 +182,7 @@ TCL_DECLARE_MUTEX(encodingMutex) static Tcl_Encoding defaultEncoding; static Tcl_Encoding systemEncoding; +Tcl_Encoding tclIdentityEncoding; /* * The following variable is used in the sparse matrix code for a @@ -566,6 +567,7 @@ TclInitEncodingSubsystem(void) type.clientData = NULL; defaultEncoding = Tcl_CreateEncoding(&type); + tclIdentityEncoding = Tcl_GetEncoding(NULL, type.encodingName); systemEncoding = Tcl_GetEncoding(NULL, type.encodingName); type.encodingName = "utf-8"; @@ -656,6 +658,7 @@ TclFinalizeEncodingSubsystem(void) Tcl_MutexLock(&encodingMutex); encodingsInitialized = 0; FreeEncoding(systemEncoding); + FreeEncoding(tclIdentityEncoding); hPtr = Tcl_FirstHashEntry(&encodingTable, &search); while (hPtr != NULL) { |