about SYSTEM.ADR(BasicType)

about SYSTEM.ADR(BasicType)

Postby luowy » Sun Apr 28, 2019 12:29 pm

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
luowy
 
Posts: 201
Joined: Mon Oct 20, 2014 12:52 pm

Return to Bugs

Who is online

Users browsing this forum: No registered users and 1 guest