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