| MODULE assignparam ; | |
| FROM SYSTEM IMPORT ADR ; | |
| TYPE | |
| PtrToVec = POINTER TO Vec ; | |
| Vec = RECORD | |
| x, y: INTEGER ; | |
| END ; | |
| PROCEDURE test (p: PtrToVec) ; | |
| VAR | |
| s: PtrToVec ; | |
| v: Vec ; | |
| BEGIN | |
| s := ADR (v) ; | |
| s^ := p^ ; | |
| IF s^.x = 1 | |
| THEN | |
| END | |
| END test ; | |
| VAR | |
| q: PtrToVec ; | |
| w: Vec ; | |
| BEGIN | |
| q := ADR (w) ; | |
| test (q) | |
| END assignparam. |