summaryrefslogtreecommitdiff
path: root/lang/tcl
diff options
context:
space:
mode:
authorhe <he>2001-01-24 18:42:33 +0000
committerhe <he>2001-01-24 18:42:33 +0000
commitc9725e735437d3efd54a71e4b1acbc8957cbb6ad (patch)
tree4da99293cb776d3d2a33bb152af5da7e2f5595d9 /lang/tcl
parentc6c196b2479eb0fa7ec1fa117b27cb111fbf65d9 (diff)
downloadpkgsrc-c9725e735437d3efd54a71e4b1acbc8957cbb6ad.tar.gz
Add a point patch pulled from development version of tcl, so that
``while 1 { close [open /dev/null r] }'' does not leak memory for each go-around. This corresponds to sourceforge bugid #117988. Bump PKGNAME to tcl-8.3.2nb1.
Diffstat (limited to 'lang/tcl')
-rw-r--r--lang/tcl/Makefile4
-rw-r--r--lang/tcl/files/patch-sum3
-rw-r--r--lang/tcl/patches/patch-ad19
3 files changed, 23 insertions, 3 deletions
diff --git a/lang/tcl/Makefile b/lang/tcl/Makefile
index 280ed719de7..aaa81556724 100644
--- a/lang/tcl/Makefile
+++ b/lang/tcl/Makefile
@@ -1,8 +1,8 @@
-# $NetBSD: Makefile,v 1.4 2000/09/02 15:59:53 wiz Exp $
+# $NetBSD: Makefile,v 1.5 2001/01/24 18:42:33 he Exp $
#
DISTNAME= tcl8.3.2
-PKGNAME= tcl-8.3.2
+PKGNAME= tcl-8.3.2nb1
CATEGORIES= lang
MASTER_SITES= ftp://ftp.scriptics.com/pub/tcl/tcl8_3/ \
ftp://gd.tuwien.ac.at/languages/tcl/scriptics/tcl8_3/ \
diff --git a/lang/tcl/files/patch-sum b/lang/tcl/files/patch-sum
index b5866dc5027..849545ad64b 100644
--- a/lang/tcl/files/patch-sum
+++ b/lang/tcl/files/patch-sum
@@ -1,5 +1,6 @@
-$NetBSD: patch-sum,v 1.7 2000/12/08 20:41:18 jlam Exp $
+$NetBSD: patch-sum,v 1.8 2001/01/24 18:42:33 he Exp $
MD5 (patch-aa) = be3ae1cef9a45dd28966ae8d67b9ca26
MD5 (patch-ab) = afbb4d55085117146c566c6f4b840793
MD5 (patch-ac) = 6d7acb944f0ffc6111cd9a250b4ecea2
+MD5 (patch-ad) = 6067add3d94e3a1483cdd4cef88939c6
diff --git a/lang/tcl/patches/patch-ad b/lang/tcl/patches/patch-ad
new file mode 100644
index 00000000000..0a99a457e4c
--- /dev/null
+++ b/lang/tcl/patches/patch-ad
@@ -0,0 +1,19 @@
+$NetBSD: patch-ad,v 1.1 2001/01/24 18:42:33 he Exp $
+
+--- ../generic/tclIO.c.orig Tue Aug 8 02:57:40 2000
++++ ../generic/tclIO.c Wed Jan 24 16:28:20 2001
+@@ -2181,10 +2181,13 @@
+
+ /*
+ * There is only the TOP Channel, so we free the remaining
+- * pointers we have and then ourselves.
++ * pointers we have and then ourselves. Since this is the
++ * last of the channels in the stack, make sure to free the
++ * ChannelState structure associated with it.
+ */
+ chanPtr->typePtr = NULL;
+
++ Tcl_EventuallyFree((ClientData) statePtr, TCL_DYNAMIC);
+ Tcl_EventuallyFree((ClientData) chanPtr, TCL_DYNAMIC);
+
+ return errorCode;