new files

1 files changed, 54 insertions, 0 deletions

diff --git a/c/src/ada-tests/support/time_test_support.ads b/c/src/ada-tests/support/time_test_support.ads
new file mode 100644
index 0000000000..6dbacaf69d
--- /dev/null
+++ b/c/src/ada-tests/support/time_test_support.ads
@@ -0,0 +1,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).
+--  Copyright assigned to U.S. Government, 1994.
+--
+--  The license and distribution terms for this file may in
+--  the file LICENSE in this distribution or at
+--  http://www.OARcorp.com/rtems/license.html.
+--
+--  $Id$
+--
+
+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;