t_id
768
t_cpu
i386
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950836880 | 1015804 | False | True | Skipping test because for other cpu |
Record count: 1
{ %version=1.1 } { %cpu=i386 } {$mode objfpc} { Source provided for Free Pascal Bug Report 1122 } { Submitted by "Thomas Schatzl" on 2000-08-31 } { e-mail: tom_at_work@yline.com } uses sysutils; var error : boolean; begin error:=true; try asm // invalid opcode, e.g. SSE instruction // try several opcode to get the invalid instruction exception movaps %xmm6, %xmm7 .byte 0x0f,0xc7,0xc8 .byte 1,2,3,4 end; except error:=false; end; if error then begin writeln('Invalid opcode exception doesn'' work'); halt(1); end; end.