COMP2310/lab1/queue_pack_private.adb

package body Queue_Pack_private is
   procedure Enqueue (Item: in Element; Queue: in out Queue_Type) is
   begin
      if Queue.State = Filled and Queue.Top = Queue.Free then
         raise Queueoverflow;
      end if;
      Queue.Elements (Queue.Free) := Item;
      Queue.Free := Marker'Pred (Queue.Free);
      Queue.State := Filled;
   end Enqueue;
end Queue_Pack_private;
1	package body Queue_Pack_private is
2	procedure Enqueue (Item: in Element; Queue: in out Queue_Type) is
3	begin
4	if Queue.State = Filled and Queue.Top = Queue.Free then
5	raise Queueoverflow;
6	end if;
7	Queue.Elements (Queue.Free) := Item;
8	Queue.Free := Marker'Pred (Queue.Free);
9	Queue.State := Filled;
10	end Enqueue;
11	end Queue_Pack_private;