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 | |
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.
28 files changed, 687 insertions, 27 deletions
diff --git a/c/src/ada-tests/sptests/sp01/sp01.adb b/c/src/ada-tests/sptests/sp01/sp01.adb index 9c512ca621..c1264df6f3 100644 --- a/c/src/ada-tests/sptests/sp01/sp01.adb +++ b/c/src/ada-tests/sptests/sp01/sp01.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP01 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 SP01; diff --git a/c/src/ada-tests/sptests/sp02/sp02.adb b/c/src/ada-tests/sptests/sp02/sp02.adb index 1df409b50a..e7c9631161 100644 --- a/c/src/ada-tests/sptests/sp02/sp02.adb +++ b/c/src/ada-tests/sptests/sp02/sp02.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP02 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 SP02; diff --git a/c/src/ada-tests/sptests/sp03/sp03.adb b/c/src/ada-tests/sptests/sp03/sp03.adb index 5c4bb85428..5455671942 100644 --- a/c/src/ada-tests/sptests/sp03/sp03.adb +++ b/c/src/ada-tests/sptests/sp03/sp03.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP03 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 SP03; diff --git a/c/src/ada-tests/sptests/sp03/sptest.adb b/c/src/ada-tests/sptests/sp03/sptest.adb index 3716fdfc60..789740f0c3 100644 --- a/c/src/ada-tests/sptests/sp03/sptest.adb +++ b/c/src/ada-tests/sptests/sp03/sptest.adb @@ -49,7 +49,7 @@ package body SPTEST is RTEMS.TASK_CREATE( SPTEST.TASK_NAME( 1 ), 1, - 2048, + RTEMS.MINIMUM_STACK_SIZE, RTEMS.DEFAULT_MODES, RTEMS.DEFAULT_ATTRIBUTES, SPTEST.TASK_ID( 1 ), @@ -60,7 +60,7 @@ package body SPTEST is RTEMS.TASK_CREATE( SPTEST.TASK_NAME( 2 ), 1, - 2048, + RTEMS.MINIMUM_STACK_SIZE, RTEMS.DEFAULT_MODES, RTEMS.DEFAULT_ATTRIBUTES, SPTEST.TASK_ID( 2 ), diff --git a/c/src/ada-tests/sptests/sp04/README b/c/src/ada-tests/sptests/sp04/README new file mode 100644 index 0000000000..6928aaea49 --- /dev/null +++ b/c/src/ada-tests/sptests/sp04/README @@ -0,0 +1,13 @@ +# +# $Id$ +# + +This test is broken as it is currently implemented. It is illegal for +a task to do Ada IO during a extension since the Ada run-time uses +locks to safeguard data structures. Dispatching is disabled and the +call to Text_IO in the Switch extension will lock the system up. + +The proper solution is to have the Switch extension lock task and +time when it a switch occurs and have a single task print this +information as necessary. + diff --git a/c/src/ada-tests/sptests/sp04/sp04.adb b/c/src/ada-tests/sptests/sp04/sp04.adb index a3d14d8022..511ccb36a5 100644 --- a/c/src/ada-tests/sptests/sp04/sp04.adb +++ b/c/src/ada-tests/sptests/sp04/sp04.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP04 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 SP04; diff --git a/c/src/ada-tests/sptests/sp04/sptest.adb b/c/src/ada-tests/sptests/sp04/sptest.adb index e9766044d7..8056f9225e 100644 --- a/c/src/ada-tests/sptests/sp04/sptest.adb +++ b/c/src/ada-tests/sptests/sp04/sptest.adb @@ -282,9 +282,15 @@ package body SPTEST is INDEX : RTEMS.UNSIGNED32; TIME : RTEMS.TIME_OF_DAY; STATUS : RTEMS.STATUS_CODES; + function TCB_To_ID ( + TCB : RTEMS.TCB_POINTER + ) return RTEMS.ID; + pragma Import (C, TCB_To_ID, "tcb_to_id" ); + begin - INDEX := TEST_SUPPORT.TASK_NUMBER( HEIR.OBJECT.ID ); + --INDEX := TEST_SUPPORT.TASK_NUMBER( HEIR.OBJECT.ID ); + INDEX := TCB_To_ID( HEIR ); case INDEX is when 1 | 2 | 3 => 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; diff --git a/c/src/ada-tests/sptests/sp05/sp05.adb b/c/src/ada-tests/sptests/sp05/sp05.adb index b094f6f290..bd6407a0c7 100644 --- a/c/src/ada-tests/sptests/sp05/sp05.adb +++ b/c/src/ada-tests/sptests/sp05/sp05.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP05 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 SP05; diff --git a/c/src/ada-tests/sptests/sp06/sp06.adb b/c/src/ada-tests/sptests/sp06/sp06.adb index 3826c70f6d..8cd49904d7 100644 --- a/c/src/ada-tests/sptests/sp06/sp06.adb +++ b/c/src/ada-tests/sptests/sp06/sp06.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP06 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 SP06; diff --git a/c/src/ada-tests/sptests/sp07/sp07.adb b/c/src/ada-tests/sptests/sp07/sp07.adb index 3afe615f9c..e86ec72e6d 100644 --- a/c/src/ada-tests/sptests/sp07/sp07.adb +++ b/c/src/ada-tests/sptests/sp07/sp07.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP07 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 SP07; diff --git a/c/src/ada-tests/sptests/sp08/sp08.adb b/c/src/ada-tests/sptests/sp08/sp08.adb index 907d8ab27b..2f1a587979 100644 --- a/c/src/ada-tests/sptests/sp08/sp08.adb +++ b/c/src/ada-tests/sptests/sp08/sp08.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP08 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 SP08; diff --git a/c/src/ada-tests/sptests/sp09/sp09.adb b/c/src/ada-tests/sptests/sp09/sp09.adb index 0583db8f9c..669b52c1ef 100644 --- a/c/src/ada-tests/sptests/sp09/sp09.adb +++ b/c/src/ada-tests/sptests/sp09/sp09.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP09 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 SP09; diff --git a/c/src/ada-tests/sptests/sp11/sp11.adb b/c/src/ada-tests/sptests/sp11/sp11.adb index 2275108193..1720830ded 100644 --- a/c/src/ada-tests/sptests/sp11/sp11.adb +++ b/c/src/ada-tests/sptests/sp11/sp11.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP11 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 SP11; diff --git a/c/src/ada-tests/sptests/sp12/sp12.adb b/c/src/ada-tests/sptests/sp12/sp12.adb index a7817110c4..0917e9fc0f 100644 --- a/c/src/ada-tests/sptests/sp12/sp12.adb +++ b/c/src/ada-tests/sptests/sp12/sp12.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP12 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 SP12; diff --git a/c/src/ada-tests/sptests/sp13/sp13.adb b/c/src/ada-tests/sptests/sp13/sp13.adb index 790ab10086..3d19379ccd 100644 --- a/c/src/ada-tests/sptests/sp13/sp13.adb +++ b/c/src/ada-tests/sptests/sp13/sp13.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP13 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 SP13; diff --git a/c/src/ada-tests/sptests/sp14/sp14.adb b/c/src/ada-tests/sptests/sp14/sp14.adb index b394a84dc6..5f6d0819c0 100644 --- a/c/src/ada-tests/sptests/sp14/sp14.adb +++ b/c/src/ada-tests/sptests/sp14/sp14.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP14 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 SP14; diff --git a/c/src/ada-tests/sptests/sp15/sp15.adb b/c/src/ada-tests/sptests/sp15/sp15.adb index e9ec5f162b..a848d60d0b 100644 --- a/c/src/ada-tests/sptests/sp15/sp15.adb +++ b/c/src/ada-tests/sptests/sp15/sp15.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP15 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 SP15; diff --git a/c/src/ada-tests/sptests/sp16/sp16.adb b/c/src/ada-tests/sptests/sp16/sp16.adb index 7be8360815..cbdc6008ac 100644 --- a/c/src/ada-tests/sptests/sp16/sp16.adb +++ b/c/src/ada-tests/sptests/sp16/sp16.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP16 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 SP16; diff --git a/c/src/ada-tests/sptests/sp17/sp17.adb b/c/src/ada-tests/sptests/sp17/sp17.adb index 2d9cf5fdb6..1a0a317af7 100644 --- a/c/src/ada-tests/sptests/sp17/sp17.adb +++ b/c/src/ada-tests/sptests/sp17/sp17.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP17 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 SP17; diff --git a/c/src/ada-tests/sptests/sp19/sp19.adb b/c/src/ada-tests/sptests/sp19/sp19.adb index 035a97d926..757211a7ab 100644 --- a/c/src/ada-tests/sptests/sp19/sp19.adb +++ b/c/src/ada-tests/sptests/sp19/sp19.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP19 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 SP19; diff --git a/c/src/ada-tests/sptests/sp20/sp20.adb b/c/src/ada-tests/sptests/sp20/sp20.adb index 28ceaa2f10..d22c20752b 100644 --- a/c/src/ada-tests/sptests/sp20/sp20.adb +++ b/c/src/ada-tests/sptests/sp20/sp20.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP20 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 SP20; diff --git a/c/src/ada-tests/sptests/sp21/sp21.adb b/c/src/ada-tests/sptests/sp21/sp21.adb index 3663ca92c2..6084211195 100644 --- a/c/src/ada-tests/sptests/sp21/sp21.adb +++ b/c/src/ada-tests/sptests/sp21/sp21.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP21 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 SP21; diff --git a/c/src/ada-tests/sptests/sp22/sp22.adb b/c/src/ada-tests/sptests/sp22/sp22.adb index 9b3ba0f50c..06cb14a01f 100644 --- a/c/src/ada-tests/sptests/sp22/sp22.adb +++ b/c/src/ada-tests/sptests/sp22/sp22.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP22 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 SP22; diff --git a/c/src/ada-tests/sptests/sp23/sp23.adb b/c/src/ada-tests/sptests/sp23/sp23.adb index 809579c39d..ff3d5c0c4c 100644 --- a/c/src/ada-tests/sptests/sp23/sp23.adb +++ b/c/src/ada-tests/sptests/sp23/sp23.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP23 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 SP23; diff --git a/c/src/ada-tests/sptests/sp24/sp24.adb b/c/src/ada-tests/sptests/sp24/sp24.adb index 04835b6bb5..d060a5308e 100644 --- a/c/src/ada-tests/sptests/sp24/sp24.adb +++ b/c/src/ada-tests/sptests/sp24/sp24.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SP24 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 SP24; 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; diff --git a/c/src/ada-tests/sptests/spsize/spsize.adb b/c/src/ada-tests/sptests/spsize/spsize.adb index 773b774bd5..e6da47f2ba 100644 --- a/c/src/ada-tests/sptests/spsize/spsize.adb +++ b/c/src/ada-tests/sptests/spsize/spsize.adb @@ -20,12 +20,38 @@ -- $Id$ -- +with RTEMS; with SPTEST; +with TEST_SUPPORT; procedure SPsize 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 SPsize; |