diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-06-10 23:34:45 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-06-10 23:34:45 (GMT) |
| commit | ac5377745066c2cc9fdc1d30ff2d449e2bb5b6d4 (patch) | |
| tree | 0c318edc6eab5cd48c53db490c984ca7cab606ac /tests | |
| parent | f3f5448b0aa89dfc3c913d3f2e43e34e1c0c106c (diff) | |
| download | tcl-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')
| -rw-r--r-- | tests/proc.test | 8 |
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 |