blob: 46b9e803fcd58bd6475e7cc30760b3c5125b8d42 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
package Nested_Float_Packed is
type Float_Type is record
Value : Float;
Valid : Boolean;
end record;
type Data_Type is record
Data : Float_Type;
end record;
Default_Data : constant Data_Type :=
(Data => (Value => 1.0, Valid => False));
type Range_Type is (RV1, RV2, RV3);
for Range_Type use (1, 2, 3);
Data_Block : array (Range_Type)
of Data_Type := (others => Default_Data);
end;
|
