diff options
| author | davygrvy@pobox.com <davygrvy> | 2004-05-06 01:04:53 (GMT) |
|---|---|---|
| committer | davygrvy@pobox.com <davygrvy> | 2004-05-06 01:04:53 (GMT) |
| commit | bf8dcd250a4002d87e159105e6beb02f7c33d547 (patch) | |
| tree | f20ec211be9e4f025e94db5f2306870ad7792a07 | |
| parent | 77ae47e540b42fb452ae0ab2a8e86ef94cbf994b (diff) | |
| download | tcl-bf8dcd250a4002d87e159105e6beb02f7c33d547.zip tcl-bf8dcd250a4002d87e159105e6beb02f7c33d547.tar.gz tcl-bf8dcd250a4002d87e159105e6beb02f7c33d547.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) { /* |