t_id
502
t_cpu
i386
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
459435568 | 937501 | False | True | Skipping test because for other cpu |
Record count: 1
{ %CPU=i386 } { Old file: tbs0322.pp } { } {$ifdef fpc}{$asmmode intel}{$endif} var boxes : record pbox : longint; pbox2 : longint; end; var s1,s2 : longint; begin asm mov s1,type boxes.pbox mov s2,type boxes end; if s1<>sizeof(boxes.pbox) then begin writeln('Wrong size for TYPE'); halt(1); end; if s2<>sizeof(boxes) then begin writeln('Wrong size for TYPE'); halt(1); end; end.