NetBSD/lib/libform/gdbinit

21 lines
439 B
Plaintext

#
# Print out the line structs
#
define lstructs
set $lstruct=(_FORMI_FIELD_LINES *)$arg0
while ($lstruct)
print *($lstruct)
if ($lstruct->prev != 0x0)
if ($lstruct->prev->next != $lstruct)
print "WARNING: backward pointers inconsistent"
end
end
if ($lstruct->next != 0x0)
if ($lstruct->next->prev != $lstruct)
print "WARNING: forward pointers inconsistent"
end
end
set $lstruct = $lstruct->next
end
end