diff options
| author | davygrvy <davygrvy@pobox.com> | 2004-04-20 02:15:55 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2004-04-20 02:15:55 (GMT) |
| commit | 28e901558d8a5b9b88364fb3a6b7d1042cd7aa9c (patch) | |
| tree | d5b3b4415c319628da51ea4723e869290060d6f8 | |
| parent | 3db353855686c99eb1b3aee4e5c3930abe9b6319 (diff) | |
| download | tcl-28e901558d8a5b9b88364fb3a6b7d1042cd7aa9c.zip tcl-28e901558d8a5b9b88364fb3a6b7d1042cd7aa9c.tar.gz tcl-28e901558d8a5b9b88364fb3a6b7d1042cd7aa9c.tar.bz2 | |
Added FreeEncoding(systemEncoding) in TclFinalizeEncodingSubsystem
because its ref count was incremented in TclInitEncodingSubsystem.
| -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); } |