diff options
author | Steve Bennett <steveb@workware.net.au> | 2023-05-20 10:08:57 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2023-06-21 09:17:47 +1000 |
commit | 42a10236a6ebfaef1e0d56a255bcd413da7b13c0 (patch) | |
tree | 07c991859bcf46eb3695b4c549e4da1f99f9a6ed /jimdb | |
parent | 0b08e74e656c6bfb65c6f38657be05bb463f54e6 (diff) | |
download | jimtcl-42a10236a6ebfaef1e0d56a255bcd413da7b13c0.zip jimtcl-42a10236a6ebfaef1e0d56a255bcd413da7b13c0.tar.gz jimtcl-42a10236a6ebfaef1e0d56a255bcd413da7b13c0.tar.bz2 |
jimdb: update for new stackframe support
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jimdb')
-rwxr-xr-x | jimdb | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -375,13 +375,13 @@ proc debugger::_db {type file line result name arglist} { set s(laststop) $file:$line set s(prevname) $name - # Build the active stacktrace + # Build the active stacktrace, omitting internal frames set s(stacktrace) {} - foreach level [range 1 [info level]] { - set frame [info frame $level] - set f [dict get $frame file] - set l [dict get $frame line] - lassign [info level $level] p pargs + foreach {p f l cmd} [stacktrace 1] { + if {[lindex $cmd 0] eq "debugger::_db"} { + continue + } + lassign $cmd p pargs lappend s(stacktrace) [list $f $l $p $pargs] } lappend s(stacktrace) $s(active) |