Test suite results for test file webtbs/tw1117.pp

Test run data :

View Test suite results

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: 50

Total = 50

OK=4 Percentage= 8.00

Skipped=46 Percentage= 92.00

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.