mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
c77d74127b
(some are still broken, but can't be fixed currently because
def.size/sym.getsize return an aint, which means low(aint)
in case of structures with a size = high(aint)+1)
git-svn-id: trunk@7614 -
18 lines
343 B
ObjectPascal
18 lines
343 B
ObjectPascal
{ %fail }
|
|
|
|
{ the reason this compiles is that tdef.size and tabstractvarsym.getsize }
|
|
{ both return an aint, and then the size of ta is reported as low(aint) }
|
|
|
|
type
|
|
ta = array[0..high(ptrint)] of byte;
|
|
tr = bitpacked record
|
|
a: byte;
|
|
case byte of
|
|
0: (l: longint);
|
|
1: (e: ta);
|
|
end;
|
|
|
|
begin
|
|
writeln(sizeof(ta));
|
|
end.
|