From 3627bd185a4ac3ce07fabe82f054c824eb53e59c Mon Sep 17 00:00:00 2001 From: Derick Rethans Date: Sat, 1 Aug 2009 12:55:36 +0000 Subject: [PATCH] - Added a function to print all CVs from the local scope. --- .gdbinit | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/.gdbinit b/.gdbinit index 596f32e3ef..797e41d254 100644 --- a/.gdbinit +++ b/.gdbinit @@ -12,6 +12,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 -- 2.50.1