Page 1 of 1

about SYSTEM.ADR(BasicType)

PostPosted: Sun Apr 28, 2019 12:29 pm
by luowy
a small issue with SYSTEM.ADR(BasicType):
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) 
...

luowy