mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 13:09:28 +02:00
49 lines
511 B
ObjectPascal
49 lines
511 B
ObjectPascal
{ %CPU=i386 }
|
|
|
|
{
|
|
Testing if using the same local label in two
|
|
procedures does not create an error PM
|
|
}
|
|
|
|
program test_local_labels;
|
|
|
|
|
|
{$asmmode att}
|
|
|
|
procedure att_test1; assembler;
|
|
|
|
asm
|
|
jmp .Llocal
|
|
.Llocal:
|
|
end;
|
|
|
|
procedure att_test2; assembler;
|
|
|
|
asm
|
|
jmp .Llocal
|
|
.Llocal:
|
|
end;
|
|
|
|
{$asmmode intel}
|
|
|
|
procedure intel_test1; assembler;
|
|
|
|
asm
|
|
jmp @@Llocal
|
|
@@Llocal:
|
|
end;
|
|
|
|
procedure intel_test2; assembler;
|
|
|
|
asm
|
|
jmp @@Llocal
|
|
@@Llocal:
|
|
end;
|
|
|
|
begin
|
|
att_test1;
|
|
att_test2;
|
|
intel_test1;
|
|
intel_test2;
|
|
end.
|