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/sp25/sp25.adb | |
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/sp25/sp25.adb')
-rw-r--r-- | c/src/ada-tests/sptests/sp25/sp25.adb | 28 |
1 files changed, 27 insertions, 1 deletions
diff --git a/c/src/ada-tests/sptests/sp25/sp25.adb b/c/src/ada-tests/sptests/sp25/sp25.adb index 197eac1bed..58e45b339d 100644 --- a/c/src/ada-tests/sptests/sp25/sp25.adb +++ b/c/src/ada-tests/sptests/sp25/sp25.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP25 is + INIT_ID : RTEMS.ID; + STATUS : RTEMS.STATUS_CODES; begin - SPTEST.INIT( 0 ); + RTEMS.TASK_CREATE( + RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ), + 1, + RTEMS.MINIMUM_STACK_SIZE, + RTEMS.NO_PREEMPT, + RTEMS.DEFAULT_ATTRIBUTES, + INIT_ID, + STATUS + ); + TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" ); + + + RTEMS.TASK_START( + INIT_ID, + SPTEST.INIT'ACCESS, + 0, + STATUS + ); + TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" ); + + loop + delay 120.0; + end loop; end SP25; |