fpc/tests/webtbs/tw0735.pp

{ %skiptarget=android }
{ %CPU=i386 }
{ %OPT=-Cg- }
{$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.