* @ operator does not work on labels in current compiler

This commit is contained in:
daniel 2004-01-10 21:32:02 +00:00
parent 5a1477ef6f
commit f46d787ab6

35
tests/tbs/tb0468.pp Normal file
View 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.