mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 15:39:29 +02:00
c4bedeb9df
expression (necessary to, a.o., reject absolute mappings to fields
of bitpacked records and to bitpacked array elements)
git-svn-id: trunk@12874 -
13 lines
119 B
ObjectPascal
13 lines
119 B
ObjectPascal
{ %fail }
|
|
|
|
type
|
|
ta = bitpacked record
|
|
a, b, c, d: 0..15;
|
|
end;
|
|
var
|
|
c: ta;
|
|
d: byte absolute c.a;
|
|
begin
|
|
end.
|
|
|