mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 18:28:23 +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 -
13 lines
189 B
ObjectPascal
13 lines
189 B
ObjectPascal
type
|
|
ta = array[1..high(ptrint) div 8-1] of byte;
|
|
tr = bitpacked record
|
|
a: byte;
|
|
case byte of
|
|
0: (l: longint);
|
|
1: (e: ta);
|
|
end;
|
|
|
|
begin
|
|
writeln(sizeof(ta));
|
|
end.
|