mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:24:24 +02:00
adc8cdb5af
+ Test. + Check duplicate labels in assembler blocks. This was impossible due to above bug and duplicate labels were detected only at assembling stage where no location information could be provided. git-svn-id: trunk@27472 -
28 lines
195 B
ObjectPascal
28 lines
195 B
ObjectPascal
{ %OPT=-Sg }
|
|
|
|
procedure foo;
|
|
begin
|
|
end;
|
|
|
|
procedure test;
|
|
label
|
|
a,b,c,d;
|
|
const
|
|
x: array[0..3] of pointer=(@a,@b,@c,@d);
|
|
begin
|
|
foo;
|
|
a:
|
|
foo;
|
|
b:
|
|
foo;
|
|
c:
|
|
foo;
|
|
d:
|
|
foo;
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|
|
|