Skip to content

Commit

Permalink
- Added a function to print all CVs from the local scope.
Browse files Browse the repository at this point in the history
  • Loading branch information
Derick Rethans committed Aug 1, 2009
1 parent be63380 commit e4e7e2b
Showing 1 changed file with 19 additions and 0 deletions.
19 changes: 19 additions & 0 deletions .gdbinit
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit e4e7e2b

Please sign in to comment.