[Gm2] GM2 ISO: ADDADR

[Iztok]

MODULE addadr1;

FROM SYSTEM IMPORT BYTE, ADDRESS, ADR, ADDADR, CAST;

VAR pbyte : POINTER TO BYTE;
   pchar : POINTER TO CHAR;
   byte : BYTE;
   ch : CHAR;

   a : ADDRESS;

BEGIN
 pbyte := ADR(byte);
 pchar := ADR(ch);

 pbyte := ADDADR(pbyte,SIZE(BYTE));
 pchar := ADDADR(pchar,SIZE(CHAR));

 a := ADDADR(pchar,SIZE(CHAR));

 a := ADDADR(CAST(ADDRESS,pchar),SIZE(CHAR));
END addadr1.

> gm2 -c -Wiso addadr1.mod
addadr1.mod:16:assignment of a constant (pbyte) can only be made to a 
variable which has a Modula-2 reserved type as its base
addadr1.mod:17:assignment of a constant (pchar) can only be made to a 
variable which has a Modula-2 reserved type as its base
addadr1.mod:19:type incompatibility, hint the types should be converted 
or coerced
addadr1.mod:19:the two types are: INTEGER and ADDRESS
addadr1.mod:21:arguments to CAST must be (Type, Variable or Constant)
addadr1.mod:21:assignment of a constant (pchar) can only be made to a 
variable which has a Modula-2 reserved type as its base
addadr1.mod:21:only one parameter expected in a TYPE coersion
addadr1.mod:22:too many errors in pass 3

I.