Code: Select all
MODULE ObxAdr;
IMPORT S := SYSTEM,COM;
TYPE T* = INTEGER;
PROCEDURE Adr();
VAR x: INTEGER;
BEGIN
x := ADR(T);
END;
END ObxAdr.
a scratch fixup DevCPB.MOp
Code: Select all
...
| adr: (*ADR*)
....
ELSIF z.class = Ntype THEN
IF z.obj.typ.untagged THEN err(111)
ELSE (* +++ *)
CASE z.obj.typ.form OF
|Byte..Set, Char16,Int64: err(111)
ELSE
END;
END;
z := NewOp(op, z, typ)
ELSIF (z.class < Nconst)
...