mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 22:49:37 +02:00
* @ operator does not work on labels in current compiler
This commit is contained in:
parent
5a1477ef6f
commit
f46d787ab6
35
tests/tbs/tb0468.pp
Normal file
35
tests/tbs/tb0468.pp
Normal file
@ -0,0 +1,35 @@
|
||||
{ %OPT=-Sg }
|
||||
program jumptab;
|
||||
|
||||
{$asmmode intel}
|
||||
|
||||
procedure x;
|
||||
|
||||
label a;
|
||||
|
||||
var b:pointer;
|
||||
|
||||
begin
|
||||
b:=@a;
|
||||
a:
|
||||
end;
|
||||
|
||||
procedure jumptabproc; assembler;
|
||||
|
||||
label a,b,c,d;
|
||||
|
||||
const jumptable:array[0..3] of pointer=(@a,@b,@b,@d);
|
||||
|
||||
asm
|
||||
a:
|
||||
nop
|
||||
b:
|
||||
nop
|
||||
c:
|
||||
nop
|
||||
d:
|
||||
nop
|
||||
end;
|
||||
|
||||
begin
|
||||
end.
|
Loading…
Reference in New Issue
Block a user