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