fixes compiler.lists.bringToFront
This commit is contained in:
parent
6577093d2d
commit
4f0eeaa55e
1 changed files with 11 additions and 7 deletions
|
|
@ -91,6 +91,10 @@ proc Remove*(list: var TLinkedList, entry: PListEntry) =
|
||||||
if entry.prev != nil: entry.prev.next = entry.next
|
if entry.prev != nil: entry.prev.next = entry.next
|
||||||
|
|
||||||
proc bringToFront*(list: var TLinkedList, entry: PListEntry) =
|
proc bringToFront*(list: var TLinkedList, entry: PListEntry) =
|
||||||
|
when true:
|
||||||
|
list.remove entry
|
||||||
|
list.prepend entry
|
||||||
|
else:
|
||||||
if entry == list.head: return
|
if entry == list.head: return
|
||||||
if entry == list.tail: list.tail = entry.prev
|
if entry == list.tail: list.tail = entry.prev
|
||||||
if entry.next != nil: entry.next.prev = entry.prev
|
if entry.next != nil: entry.next.prev = entry.prev
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue