Rev 8097 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 8097 | Rev 8859 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | (* |
1 | (* |
2 | BSD 2-Clause License |
2 | BSD 2-Clause License |
Line 3... | Line 3... | ||
3 | 3 | ||
4 | Copyright (c) 2018-2020, Anton Krotov |
4 | Copyright (c) 2018-2021, Anton Krotov |
5 | All rights reserved. |
5 | All rights reserved. |
Line 6... | Line 6... | ||
6 | *) |
6 | *) |
Line 124... | Line 124... | ||
124 | ASSERT(item # NIL); |
124 | ASSERT(item # NIL); |
Line 125... | Line 125... | ||
125 | 125 | ||
126 | prev := item.prev; |
126 | prev := item.prev; |
Line -... | Line 127... | ||
- | 127 | next := item.next; |
|
127 | next := item.next; |
128 | |
128 | 129 | IF next # NIL THEN |
|
129 | IF (next # NIL) & (prev # NIL) THEN |
130 | IF prev # NIL THEN |
- | 131 | prev.next := next; |
|
130 | prev.next := next; |
132 | next.prev := prev |
131 | next.prev := prev |
133 | ELSE |
132 | ELSIF (next = NIL) & (prev = NIL) THEN |
134 | next.prev := NIL; |
- | 135 | list.first := next |
|
133 | list.first := NIL; |
136 | END |
134 | list.last := NIL |
137 | ELSE |
135 | ELSIF (next = NIL) & (prev # NIL) THEN |
138 | IF prev # NIL THEN |
136 | prev.next := NIL; |
139 | prev.next := NIL; |
137 | list.last := prev |
140 | list.last := prev |
138 | ELSIF (next # NIL) & (prev = NIL) THEN |
141 | ELSE |
- | 142 | list.first := NIL; |
|
139 | next.prev := NIL; |
143 | list.last := NIL |
140 | list.first := next |
- | |
141 | END |
144 | END |
Line 142... | Line 145... | ||
142 | 145 | END |
|
143 | END delete; |
146 | END delete; |