From 42a10236a6ebfaef1e0d56a255bcd413da7b13c0 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Sat, 20 May 2023 10:08:57 +1000 Subject: jimdb: update for new stackframe support Signed-off-by: Steve Bennett --- jimdb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'jimdb') diff --git a/jimdb b/jimdb index f72974d..4c5daf8 100755 --- a/jimdb +++ b/jimdb @@ -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) -- cgit v1.1