t_id
870
t_cpu
i386
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949665859 | 1015615 | False | True | Skipping test because for other cpu |
Record count: 1
{ %cpu=i386 } {$ifdef fpc} {$MODE DELPHI} {$ASMMODE INTEL} {$endif} const myoffset=10; var r : array[0..19] of char; c : char; begin r:='01234567890123456789'; asm lea eax,r mov al,[eax].myoffset mov c,al end; writeln(c); if c<>'0' then begin writeln('ERROR!'); halt(1); end; end.