mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 08:49:33 +02:00
16 lines
334 B
ObjectPascal
16 lines
334 B
ObjectPascal
{ 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[1..high(ptrint)-4] of byte;
|
|
tr = packed record
|
|
l: longint;
|
|
case byte of
|
|
0: (x: longint);
|
|
1: (e: ta);
|
|
end;
|
|
|
|
begin
|
|
writeln(sizeof(ta));
|
|
end.
|