summaryrefslogtreecommitdiffstats
path: root/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb
diff options
context:
space:
mode:
authorGlenn Humphrey <glenn.humphrey@oarcorp.com>2007-10-10 20:58:48 +0000
committerGlenn Humphrey <glenn.humphrey@oarcorp.com>2007-10-10 20:58:48 +0000
commitba3e1a4fafa6c5f1c1ad731d33c84e41ccba870b (patch)
tree0501bf07547f0ffe4383fb97a5fd4373a10ee19a /c/src/ada-tests/tmtests/tmoverhd/tmtest.adb
parent2007-10-10 Glenn Humphrey <glenn.humphrey@OARcorp.com> (diff)
downloadrtems-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.adb227
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;