blob: d116f3ca97b0b8acf9e1c30ae238e6ac22534fc8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
package Packed_Array_Pkg is
type Rec1 is record
I : Integer;
S : Short_Integer;
end record;
for Rec1'Size use 49;
type Arr is array (Positive range <>) of Rec1;
for Arr'Component_Size use 49;
type Rec2 (Lo, Hi : Positive) is record
A : Arr (Lo .. Hi);
end record;
Max : Positive := 1;
subtype Small_Rec2 is Rec2 (1, Max);
end;
|
