3 type Byte_List_Type is array(Positive range <>) of Integer;
5 type Log_Item_Type(Last : Natural) is record
6 Data : Byte_List_Type(1 .. Last) := (others => 0);
10 type Packet_Data_Type is access Log_Item_Type;
12 function Log_Item(Packet : in Packet_Data_Type) return Log_Item_Type;