Source position: lists.inc line 5
type Tvt_listnode = record
next: Pvt_listnode;
prev: Pvt_listnode;
end;