blob: bca807467cc46fc65876f880ce3d0d9468081cfd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{$bitpacking+}
{ from gpc testsuite (martin3u.pas) }
Unit uprec6;
Interface
Const MaxA=5;
MaxB=62;
Type TPackedBoolean=Packed Array[1..MaxA] of Packed Array[1..MaxB] of Boolean;
TRecord = Record
C:Integer;
PackedBoolean:TPackedBoolean;
D:Integer;
End;
Var ARecord:TRecord;
Implementation
End.
|
