diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 00:13:05 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 00:13:05 +0000 |
commit | f2078ec712a7196d223ee6e5f6957ef68f371bdd (patch) | |
tree | 758f99e09db9028d984cbc5a3cf862ba0f117e1d /c/src/ada-tests/sptests/sp04/sptest.ads | |
parent | added subtract of 1 to Task_Number to account for the creation (diff) | |
download | rtems-f2078ec712a7196d223ee6e5f6957ef68f371bdd.tar.bz2 |
New style main procedure which creates the test's RTEMS initialization task
as an RTEMS task. This avoid problems resulting from differences in the
tasking mode/priority of Ada tasks from the typical way an RTEMS initialization
task is created.
Diffstat (limited to 'c/src/ada-tests/sptests/sp04/sptest.ads')
-rw-r--r-- | c/src/ada-tests/sptests/sp04/sptest.ads | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/c/src/ada-tests/sptests/sp04/sptest.ads b/c/src/ada-tests/sptests/sp04/sptest.ads index f0b6d4ece7..ce3237bedd 100644 --- a/c/src/ada-tests/sptests/sp04/sptest.ads +++ b/c/src/ada-tests/sptests/sp04/sptest.ads @@ -113,4 +113,21 @@ package SPTEST is HEIR : in RTEMS.TCB_POINTER ); +-- +-- This is the User Extension Table for this test. +-- + + EXTENSIONS : aliased RTEMS.EXTENSIONS_TABLE := + ( + NULL, -- Task create + NULL, -- Task start + NULL, -- Task restart + NULL, -- Task delete + SPTEST.TASK_SWITCH'ACCESS, -- Task switch + NULL, -- Task post switch + NULL, -- Task begin + NULL, -- Task exitted + NULL -- Fatal error + ); + end SPTEST; |