diff options
| author | Steve Bennett <steveb@workware.net.au> | 2023-05-04 12:20:59 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2023-05-06 12:43:47 +1000 |
| commit | 4e0e776b2b722302c9e3d622340599ea1f9e4fe0 (patch) | |
| tree | f1db98efef0ed9e3cca4ce6fbc9f28ed4d608cfd /regtest.tcl | |
| parent | fcbb4499a6b46ef69e7a95da53e30796e20817f0 (diff) | |
| download | jimtcl-4e0e776b2b722302c9e3d622340599ea1f9e4fe0.zip jimtcl-4e0e776b2b722302c9e3d622340599ea1f9e4fe0.tar.gz jimtcl-4e0e776b2b722302c9e3d622340599ea1f9e4fe0.tar.bz2 | |
jim: info frame improvements
always include 'proc' even if introspection disabled
correctly set 'proc' at the eval frame level that is currently running
in the given proc. This makes it easier to produce an accurate level stacktrace
even across uplevel, etc.
Update stacktrace to use the new info frame.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'regtest.tcl')
| -rw-r--r-- | regtest.tcl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index b0cb70b..a9ee5eb 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -384,6 +384,9 @@ foreach i $chars1 { alarm 0 puts "TEST 54 PASSED" +# info frame should work even if in an anonymous proc +apply {{} {info frame 0}} +puts "TEST 55 PASSED" # TAKE THE FOLLOWING puts AS LAST LINE |