mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-20 01:11:36 +02:00
31 lines
678 B
ObjectPascal
31 lines
678 B
ObjectPascal
{$D+,E-,I+,L+,P-,Q+,R+,S+,T+,V+,X+,Y+}
|
|
{$M 8192,0,655360}
|
|
PROGRAM TEST;
|
|
CONST
|
|
maxBlockSize = 1 SHL 13;
|
|
TYPE
|
|
byteBlock = ARRAY[0..PRED(maxBlockSize)] OF byte;
|
|
VAR
|
|
bb0 : ^byteBlock;
|
|
TYPE
|
|
rec = RECORD i1, len : word END;
|
|
VAR
|
|
mr : rec;
|
|
bw : word;
|
|
BEGIN
|
|
NEW(bb0);
|
|
mr.i1:=0; mr.len:=0;
|
|
bb0^[0] := 1;
|
|
bb0^[1] := 2;
|
|
{$T+}
|
|
bw:=word(Addr(bb0^[mr.i1])^);
|
|
if bw <> 1 then
|
|
halt(1);
|
|
{$T-}
|
|
bw:=word(Addr(bb0^[mr.i1])^);
|
|
if bw <> (2 shl 8 + 1) then
|
|
halt(1);
|
|
END
|
|
.
|
|
|