diff options
| author | davygrvy <davygrvy@pobox.com> | 2004-05-06 01:04:53 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2004-05-06 01:04:53 (GMT) |
| commit | 7396c2e38ab6095aa40c23412309ecb4387f55b4 (patch) | |
| tree | f20ec211be9e4f025e94db5f2306870ad7792a07 | |
| parent | 2cdf4d07e53202f69d06d9c388f89198b0f16f5f (diff) | |
| download | tcl-7396c2e38ab6095aa40c23412309ecb4387f55b4.zip tcl-7396c2e38ab6095aa40c23412309ecb4387f55b4.tar.gz tcl-7396c2e38ab6095aa40c23412309ecb4387f55b4.tar.bz2 | |
* generic/tclEncoding.c: 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 870d587..c596911 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.16.2.3 2004/03/29 18:49:35 hobbs Exp $ + * RCS: @(#) $Id: tclEncoding.c,v 1.16.2.4 2004/05/06 01:04:53 davygrvy Exp $ */ #include "tclInt.h" @@ -314,6 +314,7 @@ TclFinalizeEncodingSubsystem() Tcl_MutexLock(&encodingMutex); encodingsInitialized = 0; + FreeEncoding(systemEncoding); hPtr = Tcl_FirstHashEntry(&encodingTable, &search); while (hPtr != NULL) { /* |