t_id
1204
t_cpu
i386
t_adddate
2003/11/30
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022403939 | 1027328 | False | True | Skipping test because for other cpu |
Record count: 1
{ %cpu=i386 } {$ifdef fpc}{$asmmode intel}{$endif} type tptentry=record l1,l2 : longint; end; var piecetab : array[0..10] of tptentry; p1,p2 : pointer; begin p1:=@piecetab[8]; asm lea ecx,PieceTab+8 * type(tPTEntry) mov p2,ecx end; if p1<>p2 then begin writeln('Error!'); halt(1); end; end.