Rev 9010 | Rev 9560 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9010 | Rev 9050 | ||
|---|---|---|---|
| Line 174... | Line 174... | ||
| 174 | b0 := b.next; |
174 | b0 := b.next; |
| 175 | movPtr(b.prev, a0); |
175 | movPtr(b.prev, a0); |
| 176 | movPtr(a.next, b0); |
176 | movPtr(a.next, b0); |
| 177 | movPtr(b.next, a); |
177 | movPtr(b.next, a); |
| 178 | movPtr(a.prev, b); |
178 | movPtr(a.prev, b); |
| - | 179 | IF a0 # NIL THEN |
|
| 179 | IF (a0 # NIL) & (b0 # NIL) THEN |
180 | IF b0 # NIL THEN |
| 180 | movPtr(a0.next, b); |
181 | movPtr(a0.next, b); |
| 181 | movPtr(b0.prev, a); |
182 | movPtr(b0.prev, a); |
| 182 | ELSIF (a0 # NIL) & (b0 = NIL) THEN |
183 | ELSE |
| 183 | movPtr(a0.next, b); |
184 | movPtr(a0.next, b); |
| 184 | movPtr(list.last, a) |
185 | movPtr(list.last, a) |
| - | 186 | END |
|
| - | 187 | ELSE |
|
| 185 | ELSIF (a0 = NIL) & (b0 # NIL) THEN |
188 | IF b0 # NIL THEN |
| 186 | movPtr(b0.prev, a); |
189 | movPtr(b0.prev, a); |
| 187 | movPtr(list.first, b) |
190 | movPtr(list.first, b) |
| 188 | ELSIF (a0 = NIL) & (b0 = NIL) THEN |
191 | ELSE |
| 189 | movPtr(list.first, b); |
192 | movPtr(list.first, b); |
| 190 | movPtr(list.last, a) |
193 | movPtr(list.last, a) |
| 191 | END |
194 | END |
| 192 | END |
195 | END |
| - | 196 | END |
|
| 193 | END _exchange; |
197 | END _exchange; |
| Line 194... | Line 198... | ||
| 194 | 198 | ||
| 195 | 199 | ||