diff options
| author | davygrvy@pobox.com <davygrvy> | 2004-04-20 02:15:55 (GMT) |
|---|---|---|
| committer | davygrvy@pobox.com <davygrvy> | 2004-04-20 02:15:55 (GMT) |
| commit | 320a10780cf136684124ceb3f5ae06c983e66abd (patch) | |
| tree | d5b3b4415c319628da51ea4723e869290060d6f8 /generic/tclEncoding.c | |
| parent | ae27d6b40915cd5989ab15ea7896c010fcd66e24 (diff) | |
| download | tcl-320a10780cf136684124ceb3f5ae06c983e66abd.zip tcl-320a10780cf136684124ceb3f5ae06c983e66abd.tar.gz tcl-320a10780cf136684124ceb3f5ae06c983e66abd.tar.bz2 | |
Added FreeEncoding(systemEncoding) in TclFinalizeEncodingSubsystem
because its ref count was incremented in TclInitEncodingSubsystem.
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 094da20..f1781e5 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEncoding.c,v 1.19 2004/04/07 22:04:28 hobbs Exp $ + * RCS: @(#) $Id: tclEncoding.c,v 1.20 2004/04/20 02:15:55 davygrvy Exp $ */ #include "tclInt.h" @@ -324,6 +324,7 @@ TclFinalizeEncodingSubsystem() FreeEncoding((Tcl_Encoding) Tcl_GetHashValue(hPtr)); hPtr = Tcl_FirstHashEntry(&encodingTable, &search); } + FreeEncoding(systemEncoding); Tcl_DeleteHashTable(&encodingTable); Tcl_MutexUnlock(&encodingMutex); } |