forked from Imagelibrary/rtems
ee537ea3dd
This solves a build dependency issue, e.g. building tests before librtemsbsp.a exists. Close #3079.
52 lines
1.2 KiB
Ada
52 lines
1.2 KiB
Ada
--
|
|
-- 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.org/license/LICENSE.
|
|
--
|
|
|
|
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;
|