blob: 00b5c284da8342c5d1b7fa355651bfb2f932aba4 [file] [log] [blame]
with Ada.Finalization;
with Interfaces;
with System;
package Opt85 is
type Data_Type is record
Value : Interfaces.Integer_16;
end record;
for Data_Type use record
Value at 0 range 0 .. 15;
end record;
for Data_Type'Alignment use 1;
for Data_Type'Size use 2 * System.Storage_Unit;
for Data_Type'Bit_Order use System.High_Order_First;
for Data_Type'Scalar_Storage_Order use System.High_Order_First;
type Header_Type is array (1 .. 1) of Boolean;
type Record_Type is new Ada.Finalization.Controlled with record
Header : Header_Type;
Data : Data_Type;
end record;
function Create (Value : Integer) return Record_Type;
end Opt85;