Test suite results for test file tbs/tb0261.pp

Test run data :

View Test suite results

Test file "tbs/tb0261.pp" information:

t_id 489
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:

{ Old file: tbs0304.pp }
{ Label redefined when inlining assembler              OK 0.99.13 (PFV) }

{$asmmode intel}
{$inline on}

var
  cb : word;

procedure A(B: word); assembler; inline;
{$ifdef CPUI386}
asm
   MOV  AX,B
   CMP  AX,[CB]
   JZ   @@10
   MOV  [CB],AX
@@10:
end;
{$endif CPUI386}
{$ifdef CPU68K}
asm
   move.w  b,d0
   cmp.w   cb,d0
   beq     @L10
   move.w  d0,cb
@L10:
end;
{$endif CPU68K}

begin
  a(1);
  a(2);
end.

Link to SVN view of tbs/tb0261.pp source.