t_id
783
t_cpu
i386
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
488848326 | 942268 | False | True | Skipping test because for other cpu |
Record count: 1
{ %CPU=i386 } { Source provided for Free Pascal Bug Report 1229 } { Submitted by "Rich Pasco" on 2000-11-10 } { e-mail: pasco@acm.org } {$asmmode intel } procedure SomePostScript; assembler; asm db '/pop2 { pop pop } def',0; end; var st : string; begin WriteLn(pchar(@SomePostScript)); st:=strpas(pchar(@SomePostScript)); if st<>'/pop2 { pop pop } def' then begin Writeln('Error in assembler parsing'); if st='/pop2 def' then Writeln('Assembler parser removes comments'); Halt(1); end; end.