- Added a function to print all CVs from the local scope.

diff --git a/.gdbinit b/.gdbinit
index f91fda2a9ebe511afd1d68c238749e9d6ab57095..a10bc62ce99af9ed6421a93c8015a4dfcf6ddea3 100644 (file)
--- a/.gdbinit
+++ b/.gdbinit
@@ -125,6 +125,25 @@ document printt
        If unicode is 1 the function calls printu, else it uses printf.
 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