Test suite results for test file webtbs/tw0735.pp

Test run data :

View Test suite results

Test file "webtbs/tw0735.pp" information:

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

Detailed test run results:

Record count: 50

Total = 50

OK=5 Percentage= 10.00

Skipped=45 Percentage= 90.00

Source:

{ %CPU=i386 }
{$asmmode intel}
{$inline on}

procedure DoIt;
begin
  Writeln('DoIt was called');
end;

const
  CB : word = 5;

procedure A(B: word); assembler; inline;
asm
   MOV  AX,B
   CMP  AX,[CB]
   JZ   @OK
   MOV  [CB],AX
   CALL DoIt
@OK:      { <-- creates labels with same name }
end;

begin
   A(5);
   A(8);
end.

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