diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-09-28 07:54:23 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:55 +1000 |
commit | 0da01d15d29b6a97e2ec31591a292a0084c6fc07 (patch) | |
tree | 041681443164029baea9bf0a2109df2448a40e86 /regtest.tcl | |
parent | ae5a40b0d0709114b2a18f90855c03df1d7100cb (diff) | |
download | jimtcl-0da01d15d29b6a97e2ec31591a292a0084c6fc07.zip jimtcl-0da01d15d29b6a97e2ec31591a292a0084c6fc07.tar.gz jimtcl-0da01d15d29b6a97e2ec31591a292a0084c6fc07.tar.bz2 |
Fix reference counting of stack trace in 'error'
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'regtest.tcl')
-rw-r--r-- | regtest.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index 05f0ac6..8f541ba 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -91,6 +91,14 @@ puts "TEST 13 PASSED" eval "{*}{}" puts "TEST 14 PASSED" +# REGTEST 15 +# 24 Feb 2010 - bad reference counting of the stack trace in 'error' +proc a {msg stack} { + tailcall error $msg $stack +} +catch {fail} msg opts +catch {a $msg $opts(-errorinfo)} + # TAKE THE FOLLOWING puts AS LAST LINE |