paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-15 09:00:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

just to be nice to Carl

Browse Source
This commit is contained in:
pierre 2002-10-30 11:57:36 +00:00
parent eede33f5a0
commit 0c0fdec501
1 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
tests/tbs/tb0415.pp Normal file
View File

@ -0,0 +1,48 @@
{ %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.