-- PERFORMANCE MEASUREMENT : Measure the average time to pass an integer
--                           from a producer task through a buffer task
--                           to a consumer task

package Task_Pack_8 is

    task type Buffer_Type is
        entry Take_Item (Item : in Integer);
        entry Give_Item (Item : out Integer);
    end Buffer_Type;

    task type Producer_Type is
        entry Produce (Count : in Natural);
    end Producer_Type;

    task type Consumer_Type is
        entry Consume (Count : in Natural);
        entry Wait_For_Consumer_Completion (Check : out Natural);
    end Consumer_Type;

    Buffer_Task : Buffer_Type;

end Task_Pack_8;