1. -- 
  2. -- Uwe R. Zimmer, Australia, 2013 
  3. -- 
  4.  
  5. with Queue_Pack_Object_Base; use Queue_Pack_Object_Base; 
  6.  
  7. package Queue_Pack_Object is 
  8.  
  9.    type Ext_Queue_Type is new Queue_Type with record 
  10.       Reader          : Marker  := Marker'First; 
  11.       Reader_Is_Empty : Boolean := True; 
  12.    end record; 
  13.  
  14.    overriding procedure Enqueue    (Item :     Element; Queue : in out Ext_Queue_Type); 
  15.    procedure            Read_Queue (Item : out Element; Queue : in out Ext_Queue_Type); 
  16.  
  17. end Queue_Pack_Object;