Test suite results for test file webtbs/tw2703.pp

Test run data :

Test file "webtbs/tw2703.pp" information:

t_id 997
t_cpu i386
t_adddate 2003/10/06
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ %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.

Link to SVN view of webtbs/tw2703.pp source.