t_id
1356
t_adddate
2004/09/13
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022405140 | 1027328 | False | True | Skipping test because for other cpu |
Record count: 1
{ %target=i386 } { Source provided for Free Pascal Bug Report 3274 } { Submitted by "Frank Kintrup" on 2004-08-27 } { e-mail: frank.kintrup@gmx.de } {$MODE Delphi} {$ASMODE Intel} var X : Integer; B : byte; begin X:=10; asm LEA ESI, X MOV AL, Byte([ESI]) MOV B, AL end; writeln(b); if b<>10 then halt(1); end.