summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordavygrvy <davygrvy@pobox.com>2004-04-20 02:15:55 (GMT)
committerdavygrvy <davygrvy@pobox.com>2004-04-20 02:15:55 (GMT)
commit28e901558d8a5b9b88364fb3a6b7d1042cd7aa9c (patch)
treed5b3b4415c319628da51ea4723e869290060d6f8
parent3db353855686c99eb1b3aee4e5c3930abe9b6319 (diff)
downloadtcl-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.c3
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);
}