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