fpcsrc/tests/webtbf/tw9039d.pp


1
2
3
4
5
6
7
8
9
10
11
12

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.