package Alog.Protected_Containers is
type Log_Request_Storage is private;
type Exception_Storage is limited private;
procedure Put
( | Element | : Log_Request.Instance); |
entry Get
( | Element | : out Log_Request.Instance); |
procedure Done;
entry All_Done;
procedure Clear;
function Length return Natural;
function Pending return Natural;
procedure Insert
( | Key | : Ada.Task_Identification.Task_Id; |
Item | : Ada.Exceptions.Exception_Occurrence_Access); |
procedure Get
( | Key | : Ada.Task_Identification.Task_Id; |
Element | : out Ada.Exceptions.Exception_Occurrence); |
function Is_Empty return Boolean;
procedure Clear;