blob: aed72c3be9ef617b2192a403ff5e6325de8ef968 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ %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 = packed record
a: byte;
case byte of
0: (l: longint);
1: (e: ta);
end;
begin
writeln(sizeof(ta));
end.
|
