This is the mail archive of the
gdb@sourceware.org
mailing list for the GDB project.
recursive user-defined commands and
- From: Selcuk Kopru <selcuk dot kopru at tyazilimevi dot com>
- To: gdb at sourceware dot org
- Date: Thu, 13 Aug 2009 02:10:14 +0300
- Subject: recursive user-defined commands and
- Reply-to: selcuk dot kopru at tyazilimevi dot com
Hi,
I'm trying to write user-defined commands to view some nested/embedded
classes which form a huge data hierarchy. Problems arise if the commands
are recursive because the convenience variables are not defined in the
command-scope. At least, that's what I'm suspecting. For example, the
structures can contain lists of lists which force me to use recursive
commands. Here is a portion of the code that I'm trying to run in gdb.
define show_data
if $arg0->m_ClassID == 15
show_number $arg0
end
if $arg0->m_ClassID == 16
show_simple $arg0
end
if $arg0->m_ClassID == 17
show_string $arg0
end
if $arg0->m_ClassID == 18
show_list $arg0
end
if $arg0->m_ClassID == 20
show_dag $arg0
end
...
end
define show_number
printf "%d", ((CMyNumberValue*)$arg0).m_Value
end
define show_simple
printf "%d", ((CMySimpleValue*)$arg0).m_ID
end
define show_string
wchar_print ((CMyString*)$arg0).m_Value
end
define show_list
printf "# "
set $llist = ((CMyList*)$arg0).m_FeatList.m_First
while ($llist != 0)
show_value $llist->Data
set $llist = $llist->Next
end
printf " #"
end
define show_dag
printf "[ "
set ($dlist) = ((CMyDag*)$arg0).m_FVList.m_First
while ($dlist != 0)
show_value ($dlist)->Data
printf "\n"
set $dlist = ($dlist)->Next
end
printf " ]"
end
If the "show_dag" command is being hit for the second time in the same
call sequence then the "$dlist" variable becomes invalid at the time the
control returns back to the first instance of the "show_dag" command and
resulting in a "Cannot access memory at address 0x.." error message. How
can I prevent this error?
What other options are available to display nested class hierarchies in
a neat way? (In case I'm moving towards a wrong direction:)
Thanks,
s.kopru