| /programs/develop/cedit/SRC/List.ob07 |
|---|
| 176,20 → 176,24 |
| movPtr(a.next, b0); |
| movPtr(b.next, a); |
| movPtr(a.prev, b); |
| IF (a0 # NIL) & (b0 # NIL) THEN |
| IF a0 # NIL THEN |
| IF b0 # NIL THEN |
| movPtr(a0.next, b); |
| movPtr(b0.prev, a); |
| ELSIF (a0 # NIL) & (b0 = NIL) THEN |
| ELSE |
| movPtr(a0.next, b); |
| movPtr(list.last, a) |
| ELSIF (a0 = NIL) & (b0 # NIL) THEN |
| END |
| ELSE |
| IF b0 # NIL THEN |
| movPtr(b0.prev, a); |
| movPtr(list.first, b) |
| ELSIF (a0 = NIL) & (b0 = NIL) THEN |
| ELSE |
| movPtr(list.first, b); |
| movPtr(list.last, a) |
| END |
| END |
| END |
| END _exchange; |