t_id
722
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022770077 | 1027388 | True | False | Successfully run |
Record count: 1
{$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])^); {$ifndef ENDIAN_BIG} if bw <> (2 shl 8 + 1) then {$else ENDIAN_BIG} if bw <> (1 shl 8 + 2) then {$endif ENDIAN_BIG} halt(1); END .