1#
2# Print out the line structs
3#
4define lstructs
5	set $lstruct=(_FORMI_FIELD_LINES *)$arg0
6	while ($lstruct)
7		print *($lstruct)
8		if ($lstruct->prev != 0x0)
9			if ($lstruct->prev->next != $lstruct)
10				print "WARNING: backward pointers inconsistent"
11			end
12		end
13		if ($lstruct->next != 0x0)
14			if ($lstruct->next->prev != $lstruct)
15				print "WARNING: forward pointers inconsistent"
16			end
17		end
18		set $lstruct = $lstruct->next
19	end
20end
21