diff options
Diffstat (limited to 'c/src/ada-tests/support/time_test_support.adb')
-rw-r--r-- | c/src/ada-tests/support/time_test_support.adb | 77 |
1 files changed, 0 insertions, 77 deletions
diff --git a/c/src/ada-tests/support/time_test_support.adb b/c/src/ada-tests/support/time_test_support.adb deleted file mode 100644 index 5eba15fa58..0000000000 --- a/c/src/ada-tests/support/time_test_support.adb +++ /dev/null @@ -1,77 +0,0 @@ --- --- 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 INTERFACES; use INTERFACES; -with RTEMS; -with TEXT_IO; -with UNSIGNED32_IO; - -package body TIME_TEST_SUPPORT is - ---PAGE --- --- PUT_TIME --- - - 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 - ) is - PER_ITERATION : RTEMS.UNSIGNED32; - begin - - PER_ITERATION := (TOTAL_TIME - LOOP_OVERHEAD) / ITERATIONS; - PER_ITERATION := PER_ITERATION - CALLING_OVERHEAD; - - if PER_ITERATION = 0 then - - TEXT_IO.PUT( "TOTAL_TIME " ); - UNSIGNED32_IO.PUT( TOTAL_TIME ); - TEXT_IO.NEW_LINE; - - TEXT_IO.PUT( "ITERATIONS " ); - UNSIGNED32_IO.PUT( ITERATIONS ); - TEXT_IO.NEW_LINE; - - TEXT_IO.PUT( "LOOP_OVERHEAD " ); - UNSIGNED32_IO.PUT( LOOP_OVERHEAD ); - TEXT_IO.NEW_LINE; - - TEXT_IO.PUT( "CALLING_OVERHEAD " ); - UNSIGNED32_IO.PUT( CALLING_OVERHEAD ); - TEXT_IO.NEW_LINE; - - end if; - - TEXT_IO.PUT( MESSAGE ); - TEXT_IO.PUT( " " ); - UNSIGNED32_IO.PUT( PER_ITERATION ); - TEXT_IO.NEW_LINE; - TEXT_IO.FLUSH; - - end PUT_TIME; - -end TIME_TEST_SUPPORT; |