Subversion Repositories openrisc

package Discr31 is
 
   type Byte_List_Type is array(Positive range <>) of Integer;
 
   type Log_Item_Type(Last : Natural) is record
      Data : Byte_List_Type(1 .. Last) := (others => 0);
      Link : Natural := 0;
   end record;
 
   type Packet_Data_Type is access Log_Item_Type;
 
   function Log_Item(Packet : in Packet_Data_Type) return Log_Item_Type;
 
end Discr31;