Subversion Repositories Kolibri OS

Rev

Rev 8097 | Show entire file | Regard 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
130 
        prev.next := next;
 - 
 
131 
        next.prev := prev
 - 
 
132 
    ELSIF (next = NIL) & (prev = NIL) THEN
 131 
            prev.next := next;
133 
        list.first := NIL;
 - 
 
134 
        list.last := NIL
 - 
 
135 
    ELSIF (next = NIL) & (prev # NIL) THEN
 - 
 
136 
        prev.next := NIL;
 - 
 
137 
        list.last := prev
 132 
            next.prev := prev
138 
    ELSIF (next # NIL) & (prev = NIL) THEN
 133 
        ELSE
139 
        next.prev := NIL;
 134 
            next.prev := NIL;
- 
 
 135 
            list.first := next
- 
 
 136 
        END
- 
 
 137 
    ELSE
- 
 
 138 
        IF prev # NIL THEN
- 
 
 139 
            prev.next := NIL;
- 
 
 140 
            list.last := prev
- 
 
 141 
        ELSE
- 
 
 142 
            list.first := NIL;
140 
        list.first := next
 143 
            list.last := NIL
141 
    END
 144 
        END
Line 142... Line 145...
142 
 
 145 
    END
143 
END delete;
 146 
END delete;