mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 02:09:14 +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