t_id
997
t_cpu
i386
t_adddate
2003/10/06
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=8 Percentage= 16.00
Skipped=42 Percentage= 84.00
{ %cpu=i386 } {$mode delphi} { Source provided for Free Pascal Bug Report 2703 } { Submitted by "Johannes Berg" on 2003-10-01 } { e-mail: johannes -at- sipsolutions -dot- de } function InterlockedIncrement(var I: Integer): Integer; asm MOV EDX,1 XCHG EAX,EDX LOCK XADD [EDX],EAX INC EAX end; var i : integer; begin i:=1; i:=InterlockedIncrement(i); if i<>2 then halt(1); end.