Test suite results for test file webtbs/tw1117.pp

Test run data :

Test file "webtbs/tw1117.pp" information:

t_id 767
t_cpu i386
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934950.

Source:

{ %CPU=i386 }
{$asmmode intel}
var
  l1,l2 : longint;

procedure DrawSprite1( spr : longint ); assembler;
asm
    mov eax,spr
    mov l1, eax
end;

procedure DrawSprite2( spr : longint );
begin
asm
    mov eax,spr
    mov l2,eax
end;
end;

begin
  DrawSprite1(1);
  DrawSprite2(1);
  if l1<>l2 then
   begin
     Writeln('Error!');
     halt(1);
   end;
end.

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