time_test_support.ads

来自「RTEMS (Real-Time Executive for Multiproc」· ADS 代码 · 共 54 行

--
--  TIME_TEST_SUPPORT / SPECIFICATION
--
--  DESCRIPTION:
--
--  This package provides routines which aid the individual tests in
--  the Timing Test Suite and simplify their design and operation.
--
--  DEPENDENCIES: 
--
--  
--
--  COPYRIGHT (c) 1989-1997.
--  On-Line Applications Research Corporation (OAR).
--
--  The license and distribution terms for this file may in
--  the file LICENSE in this distribution or at
--  http://www.rtems.com/license/LICENSE.
--
--  $Id: time_test_support.ads,v 1.1.4.2 2003/09/04 18:43:38 joel Exp $
--

with RTEMS;

package TIME_TEST_SUPPORT is

--
--  The following constants define the number of times a directive
--  will be performed in the Timing Suite.
--

   OPERATION_COUNT : constant RTEMS.UNSIGNED32 := 100;
   ITERATION_COUNT : constant RTEMS.UNSIGNED32 := 100;

--
--  PUT_TIME
--
--  DESCRIPTION:
--
--  This subprogram prints the MESSAGE followed by the length of
--  time which each individual operation took.  All times are
--  in microseconds.
--

   procedure PUT_TIME (
      MESSAGE          : in     STRING;
      TOTAL_TIME       : in     RTEMS.UNSIGNED32;
      ITERATIONS       : in     RTEMS.UNSIGNED32;
      LOOP_OVERHEAD    : in     RTEMS.UNSIGNED32;
      CALLING_OVERHEAD : in     RTEMS.UNSIGNED32
   );

end TIME_TEST_SUPPORT;