diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-05-29 17:20:29 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-05-29 17:20:29 (GMT) |
| commit | 4489ec6866f73246dd1654e0e98fc5fb431a170d (patch) | |
| tree | b9cef2c0bd1c8227af75edbd58ce327f0edd853b /tests/compile.test | |
| parent | 38ae5eca7ffd791e3b3b092969700ef6ee56ba19 (diff) | |
| download | tcl-4489ec6866f73246dd1654e0e98fc5fb431a170d.zip tcl-4489ec6866f73246dd1654e0e98fc5fb431a170d.tar.gz tcl-4489ec6866f73246dd1654e0e98fc5fb431a170d.tar.bz2 | |
3614102 - Reset stack housekeeping when compileProc fails.
Diffstat (limited to 'tests/compile.test')
| -rw-r--r-- | tests/compile.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/compile.test b/tests/compile.test index 4d91940..51db0a2 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -707,6 +707,12 @@ test compile-18.19 {disassembler - basics} -setup { } -cleanup { foo destroy } -match glob -result * + +test compile-19.0 {Bug 3614102: reset stack housekeeping} -body { + # This will panic in a --enable-symbols=compile build, unless bug is fixed. + apply {{} {list [if 1]}} +} -returnCodes error -match glob -result * + # TODO sometime - check that bytecode from tbcload is *not* disassembled. # cleanup |