diff options
| -rw-r--r-- | lang/tcl83/Makefile | 2 | ||||
| -rw-r--r-- | lang/tcl83/files/patch-tclEncoding.c | 30 |
2 files changed, 31 insertions, 1 deletions
diff --git a/lang/tcl83/Makefile b/lang/tcl83/Makefile index 1e79381e95ac..0b9388b46dd5 100644 --- a/lang/tcl83/Makefile +++ b/lang/tcl83/Makefile @@ -7,7 +7,7 @@ PORTNAME= tcl PORTVERSION= 8.3.5 -PORTREVISION= 1 +PORTREVISION= 2 CATEGORIES= lang tcl83 MASTER_SITES= ${MASTER_SITE_SOURCEFORGE} MASTER_SITE_SUBDIR= tcl diff --git a/lang/tcl83/files/patch-tclEncoding.c b/lang/tcl83/files/patch-tclEncoding.c new file mode 100644 index 000000000000..3250bffa568c --- /dev/null +++ b/lang/tcl83/files/patch-tclEncoding.c @@ -0,0 +1,30 @@ +--- ../generic/tclEncoding.c.orig Thu Apr 5 13:28:52 2001 ++++ ../generic/tclEncoding.c Thu Apr 10 00:49:34 2003 +@@ -310,19 +310,19 @@ + { + Tcl_HashSearch search; + Tcl_HashEntry *hPtr; +- Encoding *encodingPtr; + + Tcl_MutexLock(&encodingMutex); + encodingsInitialized = 0; + hPtr = Tcl_FirstHashEntry(&encodingTable, &search); + while (hPtr != NULL) { +- encodingPtr = (Encoding *) Tcl_GetHashValue(hPtr); +- if (encodingPtr->freeProc != NULL) { +- (*encodingPtr->freeProc)(encodingPtr->clientData); +- } +- ckfree((char *) encodingPtr->name); +- ckfree((char *) encodingPtr); +- hPtr = Tcl_NextHashEntry(&search); ++ /* ++ * Call FreeEncoding instead of doing it directly to handle refcounts ++ * like escape encodings use. [Bug #524674] ++ * Make sure to call Tcl_FirstHashEntry repeatedly so that all ++ * encodings are eventually cleaned up. ++ */ ++ FreeEncoding((Tcl_Encoding) Tcl_GetHashValue(hPtr)); ++ hPtr = Tcl_FirstHashEntry(&encodingTable, &search); + } + Tcl_DeleteHashTable(&encodingTable); + Tcl_MutexUnlock(&encodingMutex); |