xref: /src/lib/libform/gdbinit

#
# 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