8 lines
136 B
Text
8 lines
136 B
Text
|
procedure insert_link( a, b, c: link_ptr );
|
||
|
|
begin
|
||
|
|
a^.next := c;
|
||
|
|
if b <> nil then b^.prev := c;
|
||
|
|
c^.next := b;
|
||
|
|
c^.prev := a;
|
||
|
|
end;
|