blob: 6a8d4231d87ab1a86d37bbd387a46c2d4ad033f2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#
# 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
|
