diff options
-rw-r--r-- | .gdbinit | 19 |
1 files changed, 19 insertions, 0 deletions
@@ -15,6 +15,25 @@ document ____executor_globals ZTS detection is automatically based on ext/standard module struct end +define print_cvs + ____executor_globals + set $p = $eg.current_execute_data.CVs + set $c = $eg.current_execute_data.op_array.last_var + set $v = $eg.current_execute_data.op_array.vars + set $i = 0 + + printf "Compiled variables count: %d\n", $c + while $i < $c + printf "%d = %s\n", $i, $v[$i].name + if $p[$i] != 0 + printzv *$p[$i] + else + printf "*uninitialized*\n" + end + set $i = $i + 1 + end +end + define dump_bt set $t = $arg0 while $t |