gap09_scalar_to_bytearray.mod 365 B

123456789
  1. MODULE Gap09ScalarToByteArray;
  2. (* NOT standard Modula-2: passing a scalar actual for an ARRAY OF BYTE
  3. formal (gm2's "untyped byte buffer"). Class: gm2-ext.
  4. Corpus: aochar, arrayofbyte, bytearray.
  5. V3: invalid call. *)
  6. FROM SYSTEM IMPORT BYTE;
  7. PROCEDURE bytes(b : ARRAY OF BYTE); BEGIN END bytes;
  8. VAR i : INTEGER;
  9. BEGIN bytes(i) END Gap09ScalarToByteArray.