8aea2558a93efbec45e4a9117831ef6c41a9542a
4 Elem
= POINTER TO ElemDesc
;
8 CopyMsg
= RECORD (ElemMsg
) a
: Elem
; END;
10 Alien
= POINTER TO RECORD (ElemDesc
) END;
12 PROCEDURE HandleAlien (VAR msg
: ElemMsg
);
14 WITH msg
: CopyMsg
DO msg
.a
:= NIL END