lib/libform/gdbinit

   1 #
   2 # Print out the line structs
   3 #
   4 define 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
  20 end