File : queue_pack_simple.adb

package body Queue_Pack_Simple is

   procedure Enqueue (Item: in Element; Queue: in out Queue_Type) is
   begin
      Queue.Elements (Queue.Free) := Item;
      Queue.Free := Queue.Free - 1;
   end Enqueue;

   procedure Dequeue (Item: out Element; Queue: in out Queue_Type) is
   begin
      Item      := Queue.Elements (Queue.Top);
      Queue.Top := Queue.Top - 1;
    end Dequeue;
end Queue_Pack_Simple;