diff options
Diffstat (limited to 'testsuites/ada/support/time_test_support.ads')
-rw-r--r-- | testsuites/ada/support/time_test_support.ads | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/testsuites/ada/support/time_test_support.ads b/testsuites/ada/support/time_test_support.ads new file mode 100644 index 0000000000..aeed677ba2 --- /dev/null +++ b/testsuites/ada/support/time_test_support.ads @@ -0,0 +1,51 @@ +-- +-- 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; |