Code: Select all
MODULE M;
PROCEDURE P*;
VAR c, d: CHAR; i: INTEGER;
BEGIN i := 65536; r := 65536;
c := CHR(i) (*X*);
d := CHR(ENTIER(r)); (*XX*);
HALT(0) (*XXX*)
END P;
END M.
(!)DevCompiler.CompileThis M+ (!) mind the plus - it enables range-checking.
Code: Select all
ELSIF f = Char16 THEN Check(y, 0, 65536)
Code: Select all
ELSIF f = Char16 THEN Check(y, 0, 65536); FreeHi(y)
I move to make this amendment.