summaryrefslogtreecommitdiffstats
path: root/tests/proc.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-06-10 23:34:45 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-06-10 23:34:45 (GMT)
commitac5377745066c2cc9fdc1d30ff2d449e2bb5b6d4 (patch)
tree0c318edc6eab5cd48c53db490c984ca7cab606ac /tests/proc.test
parentf3f5448b0aa89dfc3c913d3f2e43e34e1c0c106c (diff)
downloadtcl-ac5377745066c2cc9fdc1d30ff2d449e2bb5b6d4.zip
tcl-ac5377745066c2cc9fdc1d30ff2d449e2bb5b6d4.tar.gz
tcl-ac5377745066c2cc9fdc1d30ff2d449e2bb5b6d4.tar.bz2
3532959 Arrange for every lambda to place an entry in the linePBodyPtr hash table.
Then the two teardowns of data in that table synchronize so that the first to run signals the other not to operate. Test proc-7.4 in a mem debug build of Tcl will detect Bug 3532959 by crashing.
Diffstat (limited to 'tests/proc.test')
-rw-r--r--tests/proc.test8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/proc.test b/tests/proc.test
index 5673caa..c0f80e3 100644
--- a/tests/proc.test
+++ b/tests/proc.test
@@ -391,6 +391,14 @@ test proc-7.3 {Returning loop exception from redefined cmd: Bug 729692} {
set res
} {0 4}
+test proc-7.4 {Proc struct outlives its interp: Bug 3532959} {
+ set lambda x
+ lappend lambda {set a 1}
+ interp create slave
+ slave eval [list apply $lambda foo]
+ interp delete slave
+ unset lambda
+} {}
# cleanup