diff options
author | Glenn Humphrey <glenn.humphrey@oarcorp.com> | 2007-10-10 20:58:48 +0000 |
---|---|---|
committer | Glenn Humphrey <glenn.humphrey@oarcorp.com> | 2007-10-10 20:58:48 +0000 |
commit | ba3e1a4fafa6c5f1c1ad731d33c84e41ccba870b (patch) | |
tree | 0501bf07547f0ffe4383fb97a5fd4373a10ee19a /c/src/ada-tests/tmtests/tmoverhd/tmtest.adb | |
parent | 2007-10-10 Glenn Humphrey <glenn.humphrey@OARcorp.com> (diff) | |
download | rtems-ba3e1a4fafa6c5f1c1ad731d33c84e41ccba870b.tar.bz2 |
2007-10-10 Glenn Humphrey <glenn.humphrey@OARcorp.com>
* configure.ac, samples/base_sp/base_sp.scn, samples/base_sp/config.h,
samples/base_sp/sptest.adb, samples/hello/config.h,
samples/ticker/config.h, samples/ticker/ticker.scn,
sptests/Makefile.am, sptests/sp01/sp01.scn, sptests/sp02/config.h,
sptests/sp02/sp02.scn, sptests/sp03/config.h, sptests/sp03/sp03.scn,
sptests/sp04/sp04.scn, sptests/sp04/sptest.adb,
sptests/sp05/config.h, sptests/sp05/sp05.scn, sptests/sp06/config.h,
sptests/sp07/config.h, sptests/sp07/sp07.scn,
sptests/sp07/sptest.adb, sptests/sp07/sptest.ads,
sptests/sp08/config.h, sptests/sp08/sp08.scn,
sptests/sp09/Makefile.am, sptests/sp09/config.h,
sptests/sp09/sp09.scn, sptests/sp09/sptest.adb,
sptests/sp09/sptest.ads, sptests/sp11/config.h,
sptests/sp11/sp11.scn, sptests/sp12/config.h, sptests/sp12/sp12.scn,
sptests/sp13/config.h, sptests/sp13/sp13.scn,
sptests/sp13/sptest.adb, sptests/sp14/config.h,
sptests/sp14/sp14.scn, sptests/sp15/config.h, sptests/sp15/sp15.scn,
sptests/sp16/config.h, sptests/sp16/sp16.scn,
sptests/sp16/sptest.adb, sptests/sp17/config.h,
sptests/sp19/config.h, sptests/sp19/sp19.scn, sptests/sp20/config.h,
sptests/sp20/sp20.scn, sptests/sp22/config.h, sptests/sp22/sp22.scn,
sptests/sp23/config.h, sptests/sp23/sp23.scn, sptests/sp24/config.h,
sptests/sp24/sp24.scn, sptests/sp25/config.h, sptests/sp25/sp25.scn,
support/init.c, support/test_support.adb, support/test_support.ads,
tmtests/tm09/config.h, tmtests/tm20/tmtest.adb,
tmtests/tmoverhd/dummy_rtems.adb, tmtests/tmoverhd/dummy_rtems.ads,
tmtests/tmoverhd/tmtest.adb, tmtests/tmoverhd/tmtest.ads: Updated
tests so that they would all compile and run without errors. Some
tests that are no longer valid using the current binding were
removed. Also updated the .scn files to reflect the current test
output.
* sptests/sp21/.cvsignore, sptests/sp21/Makefile.am,
sptests/sp21/config.h, sptests/sp21/sp21.adb, sptests/sp21/sp21.scn,
sptests/sp21/sptest.adb, sptests/sp21/sptest.ads,
sptests/spsize/.cvsignore, sptests/spsize/Makefile.am,
sptests/spsize/spsize.adb, sptests/spsize/sptest.adb,
sptests/spsize/sptest.ads: Removed.
Diffstat (limited to 'c/src/ada-tests/tmtests/tmoverhd/tmtest.adb')
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/tmtest.adb | 227 |
1 files changed, 28 insertions, 199 deletions
diff --git a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb b/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb index e2bae3fef9..348ca229ed 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb +++ b/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb @@ -10,7 +10,7 @@ -- -- -- --- COPYRIGHT (c) 1989-1997. +-- COPYRIGHT (c) 1989-2007. -- On-Line Applications Research Corporation (OAR). -- -- The license and distribution terms for this file may in @@ -92,14 +92,14 @@ package body TMTEST is -- ISR_HANDLER -- - procedure ISR_HANDLER ( - VECTOR : in RTEMS.VECTOR_NUMBER - ) is - begin - - NULL; - - end ISR_HANDLER; +-- procedure ISR_HANDLER ( +-- VECTOR : in RTEMS.VECTOR_NUMBER +-- ) is +-- begin +-- +-- NULL; +-- +-- end ISR_HANDLER; --PAGE -- @@ -120,8 +120,6 @@ package body TMTEST is -- TASK_1 -- - CPU_TABLE : aliased RTEMS.CPU_TABLE; - procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ) is @@ -162,43 +160,6 @@ package body TMTEST is MINOR := 0; ERROR := 0; --- INITIALIZE_EXECUTIVE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.INITIALIZE_EXECUTIVE( - RTEMS.CONFIGURATION, - CPU_TABLE'ACCESS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "INITIALIZE_EXECUTIVE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- SHUTDOWN_EXECUTIVE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.SHUTDOWN_EXECUTIVE( ERROR ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "SHUTDOWN_EXECUTIVE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - -- TASK_CREATE TIMER_DRIVER.INITIALIZE; @@ -455,25 +416,25 @@ package body TMTEST is -- INTERRUPT_CATCH - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.INTERRUPT_CATCH( - TMTEST.ISR_HANDLER'ADDRESS, - RTEMS.VECTOR_NUMBER'FIRST, - ADDRESS_1, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "INTERRUPT_CATCH", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); +-- TIMER_DRIVER.INITIALIZE; +-- for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT +-- loop +-- DUMMY_RTEMS.INTERRUPT_CATCH( +-- TMTEST.ISR_HANDLER'ADDRESS, +-- RTEMS.VECTOR_NUMBER'FIRST, +-- ADDRESS_1, +-- STATUS +-- ); +-- end loop; +-- TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; +-- +-- TIME_TEST_SUPPORT.PUT_TIME( +-- "INTERRUPT_CATCH", +-- TMTEST.END_TIME, +-- TIME_TEST_SUPPORT.OPERATION_COUNT, +-- OVERHEAD, +-- 0 +-- ); -- CLOCK_GET @@ -1312,138 +1273,6 @@ TEST_SUPPORT.PAUSE; TEST_SUPPORT.PAUSE; --- IO_INITIALIZE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.IO_INITIALIZE( - MAJOR, - MINOR, - ADDRESS_1, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "IO_INITIALIZE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- IO_OPEN - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.IO_OPEN( - MAJOR, - MINOR, - ADDRESS_1, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "IO_OPEN", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- IO_CLOSE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.IO_CLOSE( - MAJOR, - MINOR, - ADDRESS_1, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "IO_CLOSE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- IO_READ - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.IO_READ( - MAJOR, - MINOR, - ADDRESS_1, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "IO_READ", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- IO_WRITE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.IO_WRITE( - MAJOR, - MINOR, - ADDRESS_1, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "IO_WRITE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- IO_CONTROL - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.IO_CONTROL( - MAJOR, - MINOR, - ADDRESS_1, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "IO_CONTROL", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - -- FATAL_ERROR_OCCURRED TIMER_DRIVER.INITIALIZE; |