21 lines
439 B
Plaintext
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
|