t_id
722
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
479404888 | 940737 | False | False | Failed to run |
Record count: 1
Runtime error 202 at $00000000100341A4 $00000000100341A4 fpc_stackcheck, line 1083 of ../inc/system.inc $000000001000051C _HALTPROC, line 708 of powerpc64/si_prc.inc $000000001004C47C SYSTEM_EXIT, line 415 of system.pp $0000000010034904 fpc_do_exit, line 1316 of ../inc/system.inc $0000000010000778 main, line 33 of webtbs/tw0882.pp $0000000010000388 _START
{$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 .