1with Ada.Finalization; 2with Interfaces; 3with System; 4 5package Opt85 is 6 7 type Data_Type is record 8 Value : Interfaces.Integer_16; 9 end record; 10 for Data_Type use record 11 Value at 0 range 0 .. 15; 12 end record; 13 for Data_Type'Alignment use 1; 14 for Data_Type'Size use 2 * System.Storage_Unit; 15 for Data_Type'Bit_Order use System.High_Order_First; 16 for Data_Type'Scalar_Storage_Order use System.High_Order_First; 17 18 type Header_Type is array (1 .. 1) of Boolean; 19 20 type Record_Type is new Ada.Finalization.Controlled with record 21 Header : Header_Type; 22 Data : Data_Type; 23 end record; 24 25 function Create (Value : Integer) return Record_Type; 26 27end Opt85; 28