RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

2011-02-16 Joel Sherrill <joel.sherrill@oarcorp.com>

Browse Source 
* ada-tests/mptests/mp01/mp01.adb, ada-tests/mptests/mp01/mptest.adb,
	ada-tests/mptests/mp01/mptest.ads,
	ada-tests/mptests/mp01/node1/mp01_node1.adb,
	ada-tests/mptests/mp01/node2/mp01_node2.adb,
	ada-tests/mptests/mp02/mptest.adb, ada-tests/mptests/mp02/mptest.ads,
	ada-tests/mptests/mp02/node1/mp02_node1.adb,
	ada-tests/mptests/mp02/node2/mp02_node2.adb,
	ada-tests/mptests/mp03/mptest.adb, ada-tests/mptests/mp03/mptest.ads,
	ada-tests/mptests/mp03/node1/mp03_node1.adb,
	ada-tests/mptests/mp03/node2/mp03_node2.adb,
	ada-tests/mptests/mp04/mptest.adb, ada-tests/mptests/mp04/mptest.ads,
	ada-tests/mptests/mp04/node1/mp04_node1.adb,
	ada-tests/mptests/mp04/node2/mp04_node2.adb,
	ada-tests/mptests/mp05/mptest.adb, ada-tests/mptests/mp05/mptest.ads,
	ada-tests/mptests/mp05/node1/mp05_node1.adb,
	ada-tests/mptests/mp05/node2/mp05_node2.adb,
	ada-tests/mptests/mp06/mptest.adb, ada-tests/mptests/mp06/mptest.ads,
	ada-tests/mptests/mp06/node1/mp06_node1.adb,
	ada-tests/mptests/mp06/node2/mp06_node2.adb,
	ada-tests/mptests/mp07/mptest.adb, ada-tests/mptests/mp07/mptest.ads,
	ada-tests/mptests/mp07/node1/mp07_node1.adb,
	ada-tests/mptests/mp07/node2/mp07_node2.adb,
	ada-tests/mptests/mp08/mptest.adb, ada-tests/mptests/mp08/mptest.ads,
	ada-tests/mptests/mp08/node1/mp08_node1.adb,
	ada-tests/mptests/mp08/node2/mp08_node2.adb,
	ada-tests/mptests/mp09/mptest.adb, ada-tests/mptests/mp09/mptest.ads,
	ada-tests/mptests/mp09/node1/mp09_node1.adb,
	ada-tests/mptests/mp09/node2/mp09_node2.adb,
	ada-tests/mptests/mp10/mptest.adb, ada-tests/mptests/mp10/mptest.ads,
	ada-tests/mptests/mp10/node1/mp10_node1.adb,
	ada-tests/mptests/mp10/node2/mp10_node2.adb,
	ada-tests/mptests/mp11/mptest.adb, ada-tests/mptests/mp11/mptest.ads,
	ada-tests/mptests/mp11/node1/mp11_node1.adb,
	ada-tests/mptests/mp11/node2/mp11_node2.adb,
	ada-tests/mptests/mp12/mptest.adb, ada-tests/mptests/mp12/mptest.ads,
	ada-tests/mptests/mp12/node1/mp12_node1.adb,
	ada-tests/mptests/mp12/node2/mp12_node2.adb,
	ada-tests/mptests/mp13/mptest.adb, ada-tests/mptests/mp13/mptest.ads,
	ada-tests/mptests/mp13/node1/mp13_node1.adb,
	ada-tests/mptests/mp13/node2/mp13_node2.adb,
	ada-tests/mptests/mp14/mptest.adb, ada-tests/mptests/mp14/mptest.ads,
	ada-tests/mptests/mp14/node1/mp14_node1.adb,
	ada-tests/mptests/mp14/node2/mp14_node2.adb,
	ada-tests/samples/base_mp/mptest.adb,
	ada-tests/samples/base_mp/mptest.ads,
	ada-tests/samples/base_sp/base_sp.adb,
	ada-tests/samples/base_sp/sptest.adb,
	ada-tests/samples/base_sp/sptest.ads,
	ada-tests/samples/hello/hello.adb,
	ada-tests/samples/hello/sptest.adb,
	ada-tests/samples/hello/sptest.ads,
	ada-tests/samples/nsecs/nsecs.adb,
	ada-tests/samples/nsecs/sptest.adb,
	ada-tests/samples/nsecs/sptest.ads,
	ada-tests/samples/ticker/sptest.adb,
	ada-tests/samples/ticker/sptest.ads,
	ada-tests/samples/ticker/ticker.adb, ada-tests/sptests/sp01/sp01.adb,
	ada-tests/sptests/sp01/sptest.adb, ada-tests/sptests/sp01/sptest.ads,
	ada-tests/sptests/sp02/sp02.adb, ada-tests/sptests/sp02/sptest.adb,
	ada-tests/sptests/sp02/sptest.ads, ada-tests/sptests/sp03/sp03.adb,
	ada-tests/sptests/sp03/sptest.adb, ada-tests/sptests/sp03/sptest.ads,
	ada-tests/sptests/sp04/sp04.adb, ada-tests/sptests/sp04/sptest.adb,
	ada-tests/sptests/sp04/sptest.ads, ada-tests/sptests/sp05/sp05.adb,
	ada-tests/sptests/sp05/sptest.adb, ada-tests/sptests/sp05/sptest.ads,
	ada-tests/sptests/sp06/sp06.adb, ada-tests/sptests/sp06/sptest.adb,
	ada-tests/sptests/sp06/sptest.ads, ada-tests/sptests/sp07/sp07.adb,
	ada-tests/sptests/sp07/sptest.adb, ada-tests/sptests/sp07/sptest.ads,
	ada-tests/sptests/sp08/sp08.adb, ada-tests/sptests/sp08/sptest.adb,
	ada-tests/sptests/sp08/sptest.ads, ada-tests/sptests/sp09/sp09.adb,
	ada-tests/sptests/sp09/sptest.adb, ada-tests/sptests/sp09/sptest.ads,
	ada-tests/sptests/sp11/sp11.adb, ada-tests/sptests/sp11/sptest.adb,
	ada-tests/sptests/sp11/sptest.ads, ada-tests/sptests/sp12/sp12.adb,
	ada-tests/sptests/sp12/sptest.adb, ada-tests/sptests/sp12/sptest.ads,
	ada-tests/sptests/sp13/sp13.adb, ada-tests/sptests/sp13/sptest.adb,
	ada-tests/sptests/sp13/sptest.ads, ada-tests/sptests/sp14/sp14.adb,
	ada-tests/sptests/sp14/sptest.adb, ada-tests/sptests/sp14/sptest.ads,
	ada-tests/sptests/sp15/sp15.adb, ada-tests/sptests/sp15/sptest.adb,
	ada-tests/sptests/sp15/sptest.ads, ada-tests/sptests/sp16/sp16.adb,
	ada-tests/sptests/sp16/sptest.adb, ada-tests/sptests/sp16/sptest.ads,
	ada-tests/sptests/sp17/sp17.adb, ada-tests/sptests/sp17/sptest.adb,
	ada-tests/sptests/sp17/sptest.ads, ada-tests/sptests/sp19/sp19.adb,
	ada-tests/sptests/sp19/sptest.adp, ada-tests/sptests/sp19/sptest.ads,
	ada-tests/sptests/sp20/sp20.adb, ada-tests/sptests/sp20/sptest.adb,
	ada-tests/sptests/sp20/sptest.ads, ada-tests/sptests/sp22/sp22.adb,
	ada-tests/sptests/sp22/sptest.adb, ada-tests/sptests/sp22/sptest.ads,
	ada-tests/sptests/sp23/sp23.adb, ada-tests/sptests/sp23/sptest.adb,
	ada-tests/sptests/sp23/sptest.ads, ada-tests/sptests/sp24/sp24.adb,
	ada-tests/sptests/sp24/sptest.adb, ada-tests/sptests/sp24/sptest.ads,
	ada-tests/sptests/sp25/sp25.adb, ada-tests/sptests/sp25/sptest.adb,
	ada-tests/sptests/sp25/sptest.ads,
	ada-tests/support/test_support.adb, ada-tests/tmtests/tm01/tm01.adb,
	ada-tests/tmtests/tm01/tmtest.adb, ada-tests/tmtests/tm01/tmtest.ads,
	ada-tests/tmtests/tm02/tm02.adb, ada-tests/tmtests/tm02/tmtest.adb,
	ada-tests/tmtests/tm02/tmtest.ads, ada-tests/tmtests/tm03/tm03.adb,
	ada-tests/tmtests/tm03/tmtest.adb, ada-tests/tmtests/tm03/tmtest.ads,
	ada-tests/tmtests/tm04/tm04.adb, ada-tests/tmtests/tm04/tmtest.adb,
	ada-tests/tmtests/tm04/tmtest.ads, ada-tests/tmtests/tm05/tm05.adb,
	ada-tests/tmtests/tm05/tmtest.adb, ada-tests/tmtests/tm05/tmtest.ads,
	ada-tests/tmtests/tm06/tm06.adb, ada-tests/tmtests/tm06/tmtest.adb,
	ada-tests/tmtests/tm06/tmtest.ads, ada-tests/tmtests/tm07/tm07.adb,
	ada-tests/tmtests/tm07/tmtest.adb, ada-tests/tmtests/tm07/tmtest.ads,
	ada-tests/tmtests/tm08/tm08.adb, ada-tests/tmtests/tm08/tmtest.adb,
	ada-tests/tmtests/tm08/tmtest.ads, ada-tests/tmtests/tm09/tm09.adb,
	ada-tests/tmtests/tm09/tmtest.adb, ada-tests/tmtests/tm09/tmtest.ads,
	ada-tests/tmtests/tm10/tm10.adb, ada-tests/tmtests/tm10/tmtest.adb,
	ada-tests/tmtests/tm10/tmtest.ads, ada-tests/tmtests/tm11/tm11.adb,
	ada-tests/tmtests/tm11/tmtest.adb, ada-tests/tmtests/tm11/tmtest.ads,
	ada-tests/tmtests/tm12/tm12.adb, ada-tests/tmtests/tm12/tmtest.adb,
	ada-tests/tmtests/tm12/tmtest.ads, ada-tests/tmtests/tm13/tm13.adb,
	ada-tests/tmtests/tm13/tmtest.adb, ada-tests/tmtests/tm13/tmtest.ads,
	ada-tests/tmtests/tm14/tm14.adb, ada-tests/tmtests/tm14/tmtest.adb,
	ada-tests/tmtests/tm14/tmtest.ads, ada-tests/tmtests/tm15/tm15.adb,
	ada-tests/tmtests/tm15/tmtest.adb, ada-tests/tmtests/tm15/tmtest.ads,
	ada-tests/tmtests/tm16/tm16.adb, ada-tests/tmtests/tm16/tmtest.adb,
	ada-tests/tmtests/tm16/tmtest.ads, ada-tests/tmtests/tm17/tm17.adb,
	ada-tests/tmtests/tm17/tmtest.adb, ada-tests/tmtests/tm17/tmtest.ads,
	ada-tests/tmtests/tm18/tm18.adb, ada-tests/tmtests/tm18/tmtest.adb,
	ada-tests/tmtests/tm18/tmtest.ads, ada-tests/tmtests/tm19/tm19.adb,
	ada-tests/tmtests/tm19/tmtest.adb, ada-tests/tmtests/tm19/tmtest.ads,
	ada-tests/tmtests/tm20/tm20.adb, ada-tests/tmtests/tm20/tmtest.adb,
	ada-tests/tmtests/tm20/tmtest.ads, ada-tests/tmtests/tm21/tm21.adb,
	ada-tests/tmtests/tm21/tmtest.adb, ada-tests/tmtests/tm21/tmtest.ads,
	ada-tests/tmtests/tm22/tm22.adb, ada-tests/tmtests/tm22/tmtest.adb,
	ada-tests/tmtests/tm22/tmtest.ads, ada-tests/tmtests/tm23/tm23.adb,
	ada-tests/tmtests/tm23/tmtest.adb, ada-tests/tmtests/tm23/tmtest.ads,
	ada-tests/tmtests/tm24/tm24.adb, ada-tests/tmtests/tm24/tmtest.adb,
	ada-tests/tmtests/tm24/tmtest.ads, ada-tests/tmtests/tm25/tm25.adb,
	ada-tests/tmtests/tm25/tmtest.adb, ada-tests/tmtests/tm25/tmtest.ads,
	ada-tests/tmtests/tm28/tm28.adb, ada-tests/tmtests/tm28/tmtest.adb,
	ada-tests/tmtests/tm28/tmtest.ads, ada-tests/tmtests/tm29/tm29.adb,
	ada-tests/tmtests/tm29/tmtest.adb, ada-tests/tmtests/tm29/tmtest.ads,
	ada-tests/tmtests/tmck/tmck.adb, ada-tests/tmtests/tmck/tmtest.adb,
	ada-tests/tmtests/tmck/tmtest.ads,
	ada-tests/tmtests/tmoverhd/dummy_rtems.adb,
	ada-tests/tmtests/tmoverhd/dummy_rtems.ads,
	ada-tests/tmtests/tmoverhd/tmoverhd.adb,
	ada-tests/tmtests/tmoverhd/tmtest.adb,
	ada-tests/tmtests/tmoverhd/tmtest.ads: Account for RTEMS binding
	child package rework. Eliminate all warnings.
This commit is contained in:
Joel Sherrill
2011-02-16 15:53:16 +00:00
parent 1987020834
commit 3c4d8cd15e
228 changed files with 2832 additions and 2636 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
c/src/ada-tests/sptests/sp01/sp01.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP01 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

31
c/src/ada-tests/sptests/sp01/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -23,16 +23,16 @@
with INTERFACES; use INTERFACES;
with TEST_SUPPORT;
with TEXT_IO;
with RTEMS.CLOCK;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
@@ -44,14 +44,14 @@ package body SPTEST is
TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
RTEMS.CLOCK_SET( TIME, STATUS );
RTEMS.CLOCK.SET( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
1,
2048,
@@ -62,7 +62,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
1,
2048,
@@ -73,7 +73,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 3 ),
1,
2048,
@@ -84,7 +84,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1_THROUGH_3'ACCESS,
0,
@@ -92,7 +92,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_1_THROUGH_3'ACCESS,
0,
@@ -100,7 +100,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 3 ),
SPTEST.TASK_1_THROUGH_3'ACCESS,
0,
@@ -108,18 +108,17 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- TASK_1_THROUGH_3
--
procedure TASK_1_THROUGH_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TID : RTEMS.ID;
@@ -127,12 +126,12 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
loop
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
if TIME.SECOND >= 35 then
@@ -148,7 +147,7 @@ package body SPTEST is
TEST_SUPPORT.PRINT_TIME( "- clock_get - ", TIME, "" );
TEXT_IO.NEW_LINE;
RTEMS.TASK_WAKE_AFTER(
RTEMS.TASKS.WAKE_AFTER(
TEST_SUPPORT.TASK_NUMBER( TID ) * 5 *
TEST_SUPPORT.TICKS_PER_SECOND,
STATUS

7
c/src/ada-tests/sptests/sp01/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -41,7 +42,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -54,7 +55,7 @@ package SPTEST is
--
procedure TASK_1_THROUGH_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1_THROUGH_3);

7
c/src/ada-tests/sptests/sp02/sp02.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP02 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

81
c/src/ada-tests/sptests/sp02/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -27,13 +27,12 @@ with UNSIGNED32_IO;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -44,7 +43,7 @@ package body SPTEST is
SPTEST.PREEMPT_TASK_NAME := RTEMS.BUILD_NAME( 'P', 'R', 'M', 'T' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.PREEMPT_TASK_NAME,
1,
2048,
@@ -55,7 +54,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF PREEMPT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.PREEMPT_TASK_ID,
SPTEST.PREEMPT_TASK'ACCESS,
0,
@@ -64,14 +63,14 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF PREEMPT" );
TEXT_IO.PUT_LINE( "INIT - task_wake_after - yielding processor" );
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
3,
2048,
@@ -82,7 +81,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
3,
2048,
@@ -93,7 +92,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 3 ),
3,
2048,
@@ -104,7 +103,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -112,7 +111,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_2'ACCESS,
0,
@@ -120,7 +119,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 3 ),
SPTEST.TASK_3'ACCESS,
0,
@@ -132,19 +131,19 @@ package body SPTEST is
"INIT - suspending TA2 while middle task on a ready chain"
);
RTEMS.TASK_SUSPEND( SPTEST.TASK_ID( 2 ), STATUS );
RTEMS.TASKS.SUSPEND( SPTEST.TASK_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 1 ), STATUS );
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA1" );
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 2 ), STATUS );
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 3 ), STATUS );
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 3 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
1,
2048,
@@ -155,7 +154,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
3,
2048,
@@ -166,7 +165,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 3 ),
3,
2048,
@@ -177,7 +176,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -185,7 +184,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_2'ACCESS,
0,
@@ -193,7 +192,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 3 ),
SPTEST.TASK_3'ACCESS,
0,
@@ -201,49 +200,47 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- PREEMPT_TASK
--
procedure PREEMPT_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
TEXT_IO.PUT_LINE( "PREEMPT - task_delete - deleting self" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF PREEMPT" );
end PREEMPT_TASK;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TID2 : RTEMS.ID;
TID3 : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
begin
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 1 second" );
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
RTEMS.TASK_IDENT(
RTEMS.TASKS.IDENT(
SPTEST.TASK_NAME( 2 ),
RTEMS.SEARCH_ALL_NODES,
TID2,
@@ -255,7 +252,7 @@ package body SPTEST is
UNSIGNED32_IO.PUT( TID2, WIDTH => 8, BASE => 10#16# );
TEXT_IO.PUT_LINE( ")" );
RTEMS.TASK_IDENT(
RTEMS.TASKS.IDENT(
SPTEST.TASK_NAME( 3 ),
RTEMS.SEARCH_ALL_NODES,
TID3,
@@ -267,7 +264,7 @@ package body SPTEST is
UNSIGNED32_IO.PUT( TID3, WIDTH => 8, BASE => 10#16# );
TEXT_IO.PUT_LINE( ")" );
RTEMS.TASK_SET_PRIORITY( TID3, 2, PREVIOUS_PRIORITY, STATUS );
RTEMS.TASKS.SET_PRIORITY( TID3, 2, PREVIOUS_PRIORITY, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
TEXT_IO.PUT_LINE(
@@ -275,15 +272,15 @@ package body SPTEST is
);
TEXT_IO.PUT_LINE( "TA1 - task_suspend - suspend TA2" );
RTEMS.TASK_SUSPEND( TID2, STATUS );
RTEMS.TASKS.SUSPEND( TID2, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
TEXT_IO.PUT_LINE( "TA1 - task_delete - delete TA2" );
RTEMS.TASK_DELETE( TID2, STATUS );
RTEMS.TASKS.DELETE( TID2, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep for 5 seconds" );
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT_LINE( "*** END OF TEST 2 ***" );
@@ -291,42 +288,40 @@ package body SPTEST is
end TASK_1;
--PAGE
--
-- TASK_2
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
TEXT_IO.PUT_LINE( "TA2 - task_wake_after - sleep 1 minute" );
RTEMS.TASK_WAKE_AFTER( 60 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 60 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER IN TA2" );
end TASK_2;
--PAGE
--
-- TASK_3
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
TEXT_IO.PUT_LINE( "TA3 - task_wake_after - sleep 5 seconds" );
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER IN TA3" );
TEXT_IO.PUT_LINE( "TA3 - task_delete - delete self" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
end TASK_3;

13
c/src/ada-tests/sptests/sp02/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -44,7 +45,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -57,7 +58,7 @@ package SPTEST is
--
procedure PREEMPT_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, PREEMPT_TASK);
@@ -70,7 +71,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
@@ -83,7 +84,7 @@ package SPTEST is
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_2);
@@ -96,7 +97,7 @@ package SPTEST is
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_3);

7
c/src/ada-tests/sptests/sp03/sp03.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP03 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

32
c/src/ada-tests/sptests/sp03/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -23,16 +23,16 @@
with INTERFACES; use INTERFACES;
with TEST_SUPPORT;
with TEXT_IO;
with RTEMS.CLOCK;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -44,7 +44,7 @@ package body SPTEST is
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -55,7 +55,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -66,7 +66,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -74,7 +74,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_2'ACCESS,
0,
@@ -82,18 +82,17 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
@@ -102,7 +101,7 @@ package body SPTEST is
TIME := ( 1988, 12, 31, 9, 15, 0, 0 );
RTEMS.CLOCK_SET( TIME, STATUS );
RTEMS.CLOCK.SET( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
TEST_SUPPORT.PUT_NAME( SPTEST.TASK_NAME( 1 ), FALSE );
@@ -111,7 +110,7 @@ package body SPTEST is
loop
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
TEST_SUPPORT.PUT_NAME( SPTEST.TASK_NAME( 1 ), FALSE );
@@ -125,7 +124,7 @@ package body SPTEST is
TIME.MINUTE := TIME.MINUTE mod 60;
TIME.HOUR := TIME.HOUR mod 24;
RTEMS.TASK_WAKE_WHEN( TIME, STATUS );
RTEMS.TASKS.WAKE_WHEN( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_WHEN" );
TEST_SUPPORT.PUT_NAME( SPTEST.TASK_NAME( 1 ), FALSE );
@@ -136,13 +135,12 @@ package body SPTEST is
end TASK_1;
--PAGE
--
-- TASK_2
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
@@ -151,10 +149,10 @@ package body SPTEST is
loop
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
if TIME.SECOND >= 17 then

9
c/src/ada-tests/sptests/sp03/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -41,7 +42,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -55,7 +56,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
@@ -69,7 +70,7 @@ package SPTEST is
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_2);

7
c/src/ada-tests/sptests/sp04/sp04.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP04 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

64
c/src/ada-tests/sptests/sp04/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -23,6 +23,9 @@
with INTERFACES; use INTERFACES;
with TEST_SUPPORT;
with TEXT_IO;
with RTEMS.CLOCK;
with RTEMS.EXTENSION;
with RTEMS.FATAL;
package body SPTEST is
@@ -43,7 +46,7 @@ package body SPTEST is
) is
begin
if Task_Events_Index = Task_Events'Last then
RTEMS.Fatal_Error_Occurred ( 1 ); -- no other choice
RTEMS.Fatal.Error_Occurred ( 1 ); -- no other choice
else
Task_Events (Task_Events_Index).Task_Index := Task_Index;
Task_Events (Task_Events_Index).When_Switched := When_Switched;
@@ -65,13 +68,12 @@ package body SPTEST is
end Flush_Task_Event_Log;
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
@@ -83,12 +85,12 @@ package body SPTEST is
TIME := ( 1988, 12, 31, 9, 15, 0, 0 );
RTEMS.CLOCK_SET( TIME, STATUS );
RTEMS.CLOCK.SET( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
SPTEST.EXTENSION_NAME( 1 ) := RTEMS.BUILD_NAME( 'E', 'X', 'T', ' ' );
RTEMS.EXTENSION_CREATE(
RTEMS.EXTENSION.CREATE(
SPTEST.EXTENSION_NAME( 1 ),
SPTEST.EXTENSIONS'ACCESS,
EXTENSION_ID( 1 ),
@@ -104,7 +106,7 @@ package body SPTEST is
SPTEST.RUN_COUNT( 2 ) := 0;
SPTEST.RUN_COUNT( 3 ) := 0;
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
1,
2048,
@@ -115,7 +117,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
1,
2048,
@@ -126,7 +128,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 3 ),
1,
2048,
@@ -137,7 +139,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -145,7 +147,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_2'ACCESS,
0,
@@ -153,7 +155,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 3 ),
SPTEST.TASK_3'ACCESS,
0,
@@ -161,18 +163,17 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
SECONDS : RTEMS.UNSIGNED32;
@@ -185,25 +186,25 @@ package body SPTEST is
begin
TEXT_IO.PUT_LINE( "TA1 - task_suspend - on Task 2" );
RTEMS.TASK_SUSPEND( TASK_ID( 2 ), STATUS );
RTEMS.TASKS.SUSPEND( TASK_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
TEXT_IO.PUT_LINE( "TA1 - task_suspend - on Task 3" );
RTEMS.TASK_SUSPEND( TASK_ID( 3 ), STATUS );
RTEMS.TASKS.SUSPEND( TASK_ID( 3 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA3" );
TEXT_IO.PUT_LINE( "TA1 - killing time" );
RTEMS.CLOCK_GET(
RTEMS.CLOCK_GET_SECONDS_SINCE_EPOCH,
RTEMS.CLOCK.GET(
RTEMS.CLOCK.GET_SECONDS_SINCE_EPOCH,
START_TIME'ADDRESS,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
loop
RTEMS.CLOCK_GET(
RTEMS.CLOCK_GET_SECONDS_SINCE_EPOCH,
RTEMS.CLOCK.GET(
RTEMS.CLOCK.GET_SECONDS_SINCE_EPOCH,
END_TIME'ADDRESS,
STATUS
);
@@ -213,11 +214,11 @@ package body SPTEST is
end loop;
TEXT_IO.PUT_LINE( "TA1 - task_resume - on Task 2" );
RTEMS.TASK_RESUME( TASK_ID( 2 ), STATUS );
RTEMS.TASKS.RESUME( TASK_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME OF TA2" );
TEXT_IO.PUT_LINE( "TA1 - task_resume - on Task 3" );
RTEMS.TASK_RESUME( TASK_ID( 3 ), STATUS );
RTEMS.TASKS.RESUME( TASK_ID( 3 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME OF TA3" );
loop
@@ -227,7 +228,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - task_mode - change mode to NO PREEMPT"
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.NO_PREEMPT,
RTEMS.PREEMPT_MASK,
PREVIOUS_MODE,
@@ -235,7 +236,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
OLD_SECONDS := TIME.SECOND;
@@ -245,7 +246,7 @@ package body SPTEST is
exit when SECONDS >= 6;
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
if TIME.SECOND /= OLD_SECONDS then
@@ -261,7 +262,7 @@ package body SPTEST is
"TA1 - task_mode - change mode to PREEMPT"
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.PREEMPT,
RTEMS.PREEMPT_MASK,
PREVIOUS_MODE,
@@ -282,13 +283,12 @@ package body SPTEST is
end TASK_1;
--PAGE
--
-- TASK_2
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
@@ -299,13 +299,12 @@ package body SPTEST is
end TASK_2;
--PAGE
--
-- TASK_3
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
@@ -316,7 +315,6 @@ package body SPTEST is
end TASK_3;
--PAGE
--
-- TASK_SWITCH
--
@@ -342,7 +340,7 @@ package body SPTEST is
when 1 | 2 | 3 =>
SPTEST.RUN_COUNT( INDEX ) := SPTEST.RUN_COUNT( INDEX ) + 1;
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
Log_Task_Event ( INDEX, TIME );

11
c/src/ada-tests/sptests/sp04/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -56,7 +57,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -69,7 +70,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
@@ -83,7 +84,7 @@ package SPTEST is
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_2);
@@ -97,7 +98,7 @@ package SPTEST is
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_3);

7
c/src/ada-tests/sptests/sp05/sp05.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP05 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

52
c/src/ada-tests/sptests/sp05/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -26,13 +26,12 @@ with TEXT_IO;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -45,7 +44,7 @@ package body SPTEST is
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
1,
2048,
@@ -56,7 +55,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
1,
2048,
@@ -67,7 +66,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 3 ),
1,
2048,
@@ -78,7 +77,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -86,7 +85,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_2'ACCESS,
0,
@@ -94,7 +93,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 3 ),
SPTEST.TASK_3'ACCESS,
0,
@@ -102,18 +101,17 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TID2 : RTEMS.ID;
@@ -121,7 +119,7 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_IDENT(
RTEMS.TASKS.IDENT(
SPTEST.TASK_NAME( 2 ),
1,
TID2,
@@ -129,7 +127,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF TA2" );
RTEMS.TASK_IDENT(
RTEMS.TASKS.IDENT(
SPTEST.TASK_NAME( 3 ),
1,
TID3,
@@ -141,11 +139,11 @@ package body SPTEST is
loop
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 5 seconds" );
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER OF TA1" );
TEXT_IO.PUT_LINE( "TA1 - task_suspend - suspend TA3" );
RTEMS.TASK_SUSPEND( TID3, STATUS );
RTEMS.TASKS.SUSPEND( TID3, STATUS );
if PASS = 1 then
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
STATUS,
@@ -157,19 +155,19 @@ package body SPTEST is
end if;
TEXT_IO.PUT_LINE( "TA1 - task_resume - resume TA2" );
RTEMS.TASK_RESUME( TID2, STATUS );
RTEMS.TASKS.RESUME( TID2, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME OF TA2" );
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 5 seconds" );
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT_LINE( "TA1 - task_suspend - suspend TA2" );
RTEMS.TASK_SUSPEND( TID2, STATUS );
RTEMS.TASKS.SUSPEND( TID2, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
TEXT_IO.PUT_LINE( "TA1 - task_resume - resume TA3" );
RTEMS.TASK_RESUME( TID3, STATUS );
RTEMS.TASKS.RESUME( TID3, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME OF TA3" );
end loop;
@@ -179,49 +177,47 @@ package body SPTEST is
end TASK_1;
--PAGE
--
-- TASK_2
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
TEXT_IO.PUT_LINE( "TA2 - task_suspend - suspend self" );
RTEMS.TASK_SUSPEND( RTEMS.SELF, STATUS );
RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
loop
TEXT_IO.PUT_LINE( "TA2 - task_wake_after - sleep 1 second" );
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER OF TA2" );
end loop;
end TASK_2;
--PAGE
--
-- TASK_3
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
TEXT_IO.PUT_LINE( "TA3 - task_suspend - suspend self" );
RTEMS.TASK_SUSPEND( RTEMS.SELF, STATUS );
RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA3" );
loop
TEXT_IO.PUT_LINE( "TA3 - task_wake_after - sleep 1 second" );
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER OF TA3" );
end loop;

11
c/src/ada-tests/sptests/sp05/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -41,7 +42,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -54,7 +55,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
@@ -67,7 +68,7 @@ package SPTEST is
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_2);
@@ -80,7 +81,7 @@ package SPTEST is
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_3);

7
c/src/ada-tests/sptests/sp06/sp06.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP06 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

50
c/src/ada-tests/sptests/sp06/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -26,17 +26,16 @@ with TEXT_IO;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
begin
TEXT_IO.NEW_LINE( 2 );
@@ -49,7 +48,7 @@ package body SPTEST is
SPTEST.ARGUMENT := 0;
SPTEST.RESTART_ARGUMENT := 1;
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
1,
2048,
@@ -60,7 +59,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
1,
2048,
@@ -71,7 +70,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 3 ),
10,
2048,
@@ -82,7 +81,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -90,7 +89,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_2'ACCESS,
SPTEST.ARGUMENT,
@@ -98,7 +97,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 3 ),
SPTEST.TASK_3'ACCESS,
SPTEST.ARGUMENT,
@@ -106,7 +105,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
RTEMS.TASK_SET_PRIORITY(
RTEMS.TASKS.SET_PRIORITY(
SPTEST.TASK_ID( 3 ),
5,
PREVIOUS_PRIORITY,
@@ -114,18 +113,17 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY OF TA3" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
PASS : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES;
@@ -142,45 +140,44 @@ package body SPTEST is
if PASS = 1 then
TEXT_IO.PUT_LINE( "TA1 - restarting TA3" );
RTEMS.TASK_RESTART(
RTEMS.TASKS.RESTART(
SPTEST.TASK_ID( 3 ),
SPTEST.RESTART_ARGUMENT,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF TA3" );
RTEMS.TASK_WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
end if;
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT_LINE( "TA1 - task_restart - restarting TA2" );
RTEMS.TASK_RESTART(
RTEMS.TASKS.RESTART(
SPTEST.TASK_ID( 2 ),
SPTEST.RESTART_ARGUMENT,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF TA2" );
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT_LINE( "TA1 - task_restart - restarting self" );
RTEMS.TASK_RESTART( SPTEST.TASK_ID( 1 ), PASS, STATUS );
RTEMS.TASKS.RESTART( SPTEST.TASK_ID( 1 ), PASS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF SELF" );
end TASK_1;
--PAGE
--
-- TASK_2
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
STATUS : RTEMS.STATUS_CODES;
begin
@@ -188,33 +185,32 @@ package body SPTEST is
TEXT_IO.PUT_LINE( "TA2 - is beginning to run" );
if ARGUMENT = SPTEST.ARGUMENT then
RTEMS.TASK_WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
end if;
loop
TEXT_IO.PUT_LINE( "TA2 - task_wake_after - sleep 1/2 second" );
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
end loop;
end TASK_2;
--PAGE
--
-- TASK_3
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end TASK_3;

11
c/src/ada-tests/sptests/sp06/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -48,7 +49,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -61,7 +62,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
@@ -74,7 +75,7 @@ package SPTEST is
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_2);
@@ -87,7 +88,7 @@ package SPTEST is
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_3);

7
c/src/ada-tests/sptests/sp07/sp07.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP07 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

97
c/src/ada-tests/sptests/sp07/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -24,6 +24,8 @@ with INTERFACES; use INTERFACES;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
with RTEMS.EXTENSION;
with RTEMS.FATAL;
package body SPTEST is
@@ -50,7 +52,7 @@ package body SPTEST is
) is
begin
if Task_Events_Index = Task_Events'Last then
RTEMS.Fatal_Error_Occurred ( 1 ); -- no other choice
RTEMS.Fatal.Error_Occurred ( 1 ); -- no other choice
else
Task_Events (Task_Events_Index).The_Event := The_Event;
Task_Events (Task_Events_Index).Task1 := Task1;
@@ -110,7 +112,6 @@ package body SPTEST is
end Flush_Task_Event_Log;
--PAGE
--
-- TCB_To_ID
--
@@ -120,13 +121,12 @@ package body SPTEST is
) return RTEMS.ID;
pragma Import (C, TCB_To_ID, "tcb_to_id" );
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -137,7 +137,7 @@ package body SPTEST is
SPTEST.EXTENSION_NAME( 1 ) := RTEMS.BUILD_NAME( 'E', 'X', 'T', ' ' );
RTEMS.EXTENSION_CREATE(
RTEMS.EXTENSION.CREATE(
SPTEST.EXTENSION_NAME( 1 ),
SPTEST.EXTENSIONS'ACCESS,
EXTENSION_ID( 1 ),
@@ -150,7 +150,7 @@ package body SPTEST is
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
SPTEST.TASK_NAME( 4 ) := RTEMS.BUILD_NAME( 'T', 'A', '4', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
4,
RTEMS.MINIMUM_STACK_SIZE,
@@ -161,7 +161,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
4,
RTEMS.MINIMUM_STACK_SIZE,
@@ -172,7 +172,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 3 ),
250,
RTEMS.MINIMUM_STACK_SIZE,
@@ -183,7 +183,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 4 ),
254,
RTEMS.MINIMUM_STACK_SIZE,
@@ -194,7 +194,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA4" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -202,7 +202,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_2'ACCESS,
0,
@@ -210,7 +210,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 3 ),
SPTEST.TASK_3'ACCESS,
0,
@@ -218,7 +218,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 4 ),
SPTEST.TASK_4'ACCESS,
0,
@@ -226,45 +226,44 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA4" );
RTEMS.TASK_RESTART( SPTEST.TASK_ID( 3 ), 0, STATUS );
RTEMS.TASKS.RESTART( SPTEST.TASK_ID( 3 ), 0, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF TA3" );
Flush_Task_Event_Log;
RTEMS.TASK_SET_NOTE( SPTEST.TASK_ID( 1 ), 8, 4, STATUS );
RTEMS.TASKS.SET_NOTE( SPTEST.TASK_ID( 1 ), 8, 4, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_NOTE OF TA1" );
TEXT_IO.PUT( "INIT - task_set_note - set TA1's NOTEPAD_8" );
TEXT_IO.PUT_LINE( " to TA1's initial priority: 4" );
RTEMS.TASK_SET_NOTE( SPTEST.TASK_ID( 2 ), 8, 4, STATUS );
RTEMS.TASKS.SET_NOTE( SPTEST.TASK_ID( 2 ), 8, 4, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_NOTE OF TA2" );
TEXT_IO.PUT( "INIT - task_set_note - set TA2's NOTEPAD_8" );
TEXT_IO.PUT_LINE( " to TA2's initial priority: 4" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
THE_PRIORITY : RTEMS.TASK_PRIORITY;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
THE_PRIORITY : RTEMS.TASKS.PRIORITY;
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
begin
TEST_SUPPORT.PAUSE;
RTEMS.TASK_SET_PRIORITY(
RTEMS.TASKS.SET_PRIORITY(
RTEMS.SELF,
RTEMS.CURRENT_PRIORITY,
RTEMS.TASKS.CURRENT_PRIORITY,
THE_PRIORITY,
STATUS
);
@@ -276,7 +275,7 @@ package body SPTEST is
loop
RTEMS.TASK_GET_NOTE( RTEMS.SELF, 8, THE_PRIORITY, STATUS );
RTEMS.TASKS.GET_NOTE( RTEMS.SELF, 8, THE_PRIORITY, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_GET_NOTE" );
TEXT_IO.PUT( "TA1 - task_get_note - ");
TEXT_IO.PUT( "get NOTEPAD_8 - current priority: " );
@@ -287,12 +286,12 @@ package body SPTEST is
if THE_PRIORITY = 0 then
TEXT_IO.PUT_LINE( "TA1 - task_suspend - suspend TA2" );
RTEMS.TASK_SUSPEND( SPTEST.TASK_ID( 2 ), STATUS );
RTEMS.TASKS.SUSPEND( SPTEST.TASK_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
TEXT_IO.PUT( "TA1 - task_set_priority - ");
TEXT_IO.PUT_LINE( "set priority of TA2 ( blocked )");
RTEMS.TASK_SET_PRIORITY(
RTEMS.TASKS.SET_PRIORITY(
SPTEST.TASK_ID( 2 ),
5,
PREVIOUS_PRIORITY,
@@ -300,10 +299,10 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 2 ), STATUS );
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end if;
@@ -311,7 +310,7 @@ package body SPTEST is
TEXT_IO.PUT( "TA1 - task_set_note - set TA2's NOTEPAD_8: " );
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
TEXT_IO.NEW_LINE;
RTEMS.TASK_SET_NOTE(
RTEMS.TASKS.SET_NOTE(
SPTEST.TASK_ID( 2 ),
8,
THE_PRIORITY,
@@ -322,7 +321,7 @@ package body SPTEST is
TEXT_IO.PUT("TA1 - task_set_priority - set TA2's priority: ");
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
TEXT_IO.NEW_LINE;
RTEMS.TASK_SET_PRIORITY(
RTEMS.TASKS.SET_PRIORITY(
SPTEST.TASK_ID( 2 ),
THE_PRIORITY,
PREVIOUS_PRIORITY,
@@ -334,23 +333,22 @@ package body SPTEST is
end TASK_1;
--PAGE
--
-- TASK_2
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
THE_PRIORITY : RTEMS.TASK_PRIORITY;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
THE_PRIORITY : RTEMS.TASKS.PRIORITY;
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
begin
loop
RTEMS.TASK_GET_NOTE( RTEMS.SELF, 8, THE_PRIORITY, STATUS );
RTEMS.TASKS.GET_NOTE( RTEMS.SELF, 8, THE_PRIORITY, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_GET_NOTE" );
TEXT_IO.PUT( "TA2 - task_get_note - ");
TEXT_IO.PUT( "get NOTEPAD_8 - current priority: " );
@@ -361,12 +359,12 @@ package body SPTEST is
if THE_PRIORITY = 0 then
TEXT_IO.PUT_LINE( "TA2 - task_suspend - suspend TA1" );
RTEMS.TASK_SUSPEND( SPTEST.TASK_ID( 1 ), STATUS );
RTEMS.TASKS.SUSPEND( SPTEST.TASK_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
TEXT_IO.PUT( "TA2 - task_set_priority - ");
TEXT_IO.PUT_LINE( "set priority of TA1 ( blocked )");
RTEMS.TASK_SET_PRIORITY(
RTEMS.TASKS.SET_PRIORITY(
SPTEST.TASK_ID( 1 ),
5,
PREVIOUS_PRIORITY,
@@ -374,19 +372,19 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
RTEMS.TASK_DELETE(
RTEMS.TASKS.DELETE(
SPTEST.TASK_ID( 1 ),
STATUS
); -- TA1 is blocked
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA1" );
RTEMS.TASK_DELETE(
RTEMS.TASKS.DELETE(
SPTEST.TASK_ID( 3 ),
STATUS
); -- TA3 is ready
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
else
@@ -394,7 +392,7 @@ package body SPTEST is
TEXT_IO.PUT( "TA2 - task_set_note - set TA1's NOTEPAD_8: " );
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
TEXT_IO.NEW_LINE;
RTEMS.TASK_SET_NOTE(
RTEMS.TASKS.SET_NOTE(
SPTEST.TASK_ID( 1 ),
8,
THE_PRIORITY,
@@ -406,7 +404,7 @@ package body SPTEST is
TEXT_IO.PUT( "set TA1's priority: ");
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2);
TEXT_IO.NEW_LINE;
RTEMS.TASK_SET_PRIORITY(
RTEMS.TASKS.SET_PRIORITY(
SPTEST.TASK_ID( 1 ),
THE_PRIORITY,
PREVIOUS_PRIORITY,
@@ -420,13 +418,12 @@ package body SPTEST is
end TASK_2;
--PAGE
--
-- TASK_3
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -434,20 +431,19 @@ package body SPTEST is
loop
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
end loop;
end TASK_3;
--PAGE
--
-- TASK_4
--
procedure TASK_4 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
begin
@@ -458,7 +454,6 @@ package body SPTEST is
end TASK_4;
--PAGE
--
-- TASK_EXIT_EXTENSION
--
@@ -477,7 +472,6 @@ package body SPTEST is
end TASK_EXIT_EXTENSION;
--PAGE
--
-- TASK_CREATE_EXTENSION
--
@@ -501,7 +495,6 @@ package body SPTEST is
end TASK_CREATE_EXTENSION;
--PAGE
--
-- TASK_DELETE_EXTENSION
--
@@ -523,7 +516,6 @@ package body SPTEST is
end TASK_DELETE_EXTENSION;
--PAGE
--
-- TASK_RESTART_EXTENSION
--
@@ -545,7 +537,6 @@ package body SPTEST is
end TASK_RESTART_EXTENSION;
--PAGE
--
-- TASK_START_EXTENSION
--

13
c/src/ada-tests/sptests/sp07/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -49,7 +50,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -62,7 +63,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
@@ -75,7 +76,7 @@ package SPTEST is
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_2);
@@ -88,7 +89,7 @@ package SPTEST is
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_3);
@@ -101,7 +102,7 @@ package SPTEST is
--
procedure TASK_4 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_4);

7
c/src/ada-tests/sptests/sp08/sp08.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP08 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

55
c/src/ada-tests/sptests/sp08/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -27,13 +27,12 @@ with UNSIGNED32_IO;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -44,7 +43,7 @@ package body SPTEST is
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
1,
2048,
@@ -55,7 +54,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -63,12 +62,11 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- PUT_MODE
--
@@ -85,13 +83,12 @@ package body SPTEST is
end PUT_MODE;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
PREVIOUS_MODE : RTEMS.MODE;
@@ -100,7 +97,7 @@ package body SPTEST is
-- BEGINNING OF ASR
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.ASR,
RTEMS.ASR_MASK,
PREVIOUS_MODE,
@@ -112,7 +109,7 @@ package body SPTEST is
PREVIOUS_MODE
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.NO_ASR,
RTEMS.ASR_MASK,
PREVIOUS_MODE,
@@ -124,7 +121,7 @@ package body SPTEST is
PREVIOUS_MODE
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.NO_ASR,
RTEMS.ASR_MASK,
PREVIOUS_MODE,
@@ -136,7 +133,7 @@ package body SPTEST is
PREVIOUS_MODE
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.ASR,
RTEMS.ASR_MASK,
PREVIOUS_MODE,
@@ -152,7 +149,7 @@ package body SPTEST is
-- BEGINNING OF TIMESLICE
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.NO_TIMESLICE,
RTEMS.TIMESLICE_MASK,
PREVIOUS_MODE,
@@ -164,7 +161,7 @@ package body SPTEST is
PREVIOUS_MODE
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.TIMESLICE,
RTEMS.TIMESLICE_MASK,
PREVIOUS_MODE,
@@ -176,7 +173,7 @@ package body SPTEST is
PREVIOUS_MODE
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.TIMESLICE,
RTEMS.TIMESLICE_MASK,
PREVIOUS_MODE,
@@ -188,7 +185,7 @@ package body SPTEST is
PREVIOUS_MODE
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.NO_TIMESLICE,
RTEMS.TIMESLICE_MASK,
PREVIOUS_MODE,
@@ -204,7 +201,7 @@ package body SPTEST is
-- BEGINNING OF PREEMPT
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.PREEMPT,
RTEMS.PREEMPT_MASK,
PREVIOUS_MODE,
@@ -216,7 +213,7 @@ package body SPTEST is
PREVIOUS_MODE
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.NO_PREEMPT,
RTEMS.PREEMPT_MASK,
PREVIOUS_MODE,
@@ -228,7 +225,7 @@ package body SPTEST is
PREVIOUS_MODE
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.NO_PREEMPT,
RTEMS.PREEMPT_MASK,
PREVIOUS_MODE,
@@ -240,7 +237,7 @@ package body SPTEST is
PREVIOUS_MODE
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.PREEMPT,
RTEMS.PREEMPT_MASK,
PREVIOUS_MODE,
@@ -254,9 +251,9 @@ package body SPTEST is
-- END OF PREEMPT
-- BEGINNING OF INTERRUPT LEVEL
-- BEGINNING OF INTERRUPT_LEVEL
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.INTERRUPT_LEVEL( 3 ),
RTEMS.INTERRUPT_MASK,
PREVIOUS_MODE,
@@ -268,7 +265,7 @@ package body SPTEST is
PREVIOUS_MODE
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.INTERRUPT_LEVEL( 5 ),
RTEMS.INTERRUPT_MASK,
PREVIOUS_MODE,
@@ -280,11 +277,11 @@ package body SPTEST is
PREVIOUS_MODE
);
-- END OF INTERRUPT LEVEL
-- END OF INTERRUPT_LEVEL
-- BEGINNING OF COMBINATIONS
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.INTERRUPT_LEVEL( 3 ) + RTEMS.NO_ASR +
RTEMS.TIMESLICE + RTEMS.NO_PREEMPT,
RTEMS.INTERRUPT_MASK + RTEMS.ASR_MASK +
@@ -298,7 +295,7 @@ package body SPTEST is
PREVIOUS_MODE
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.INTERRUPT_LEVEL( 3 ) + RTEMS.NO_ASR +
RTEMS.TIMESLICE + RTEMS.NO_PREEMPT,
RTEMS.INTERRUPT_MASK + RTEMS.ASR_MASK +
@@ -312,7 +309,7 @@ package body SPTEST is
PREVIOUS_MODE
);
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.INTERRUPT_LEVEL( 0 ) + RTEMS.ASR +
RTEMS.NO_TIMESLICE + RTEMS.PREEMPT,
RTEMS.INTERRUPT_MASK + RTEMS.ASR_MASK +
@@ -330,7 +327,7 @@ package body SPTEST is
-- BEGINNING OF CURRENT MODE
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.CURRENT_MODE,
RTEMS.CURRENT_MODE,
PREVIOUS_MODE,

7
c/src/ada-tests/sptests/sp08/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -41,7 +42,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -68,7 +69,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);

7
c/src/ada-tests/sptests/sp09/sp09.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP09 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

558
c/src/ada-tests/sptests/sp09/sptest.adb
View File

File diff suppressed because it is too large Load Diff

21
c/src/ada-tests/sptests/sp09/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SYSTEM;
with System.Storage_Elements;
@@ -121,7 +122,7 @@ package SPTEST is
INTERNAL_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
of RTEMS.UNSIGNED8;
for INTERNAL_PORT_AREA use at INTERNAL_PORT_AREA_ADDRESS;
for INTERNAL_PORT_AREA'Address use INTERNAL_PORT_AREA_ADDRESS;
--
-- The following area defines a memory area to be used as the
@@ -133,7 +134,7 @@ package SPTEST is
EXTERNAL_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
of RTEMS.UNSIGNED8;
for EXTERNAL_PORT_AREA use at EXTERNAL_PORT_AREA_ADDRESS;
for EXTERNAL_PORT_AREA'Address use EXTERNAL_PORT_AREA_ADDRESS;
--
-- The following area defines a memory area to be used as the
@@ -154,7 +155,7 @@ package SPTEST is
PARTITION_BAD_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
of RTEMS.UNSIGNED8;
for PARTITION_BAD_AREA use at PARTITION_BAD_AREA_ADDRESS;
for PARTITION_BAD_AREA'Address use PARTITION_BAD_AREA_ADDRESS;
--
-- The following area defines a memory area to be used as the
@@ -179,7 +180,7 @@ package SPTEST is
REGION_BAD_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
of RTEMS.UNSIGNED8;
for REGION_BAD_AREA use at REGION_BAD_AREA_ADDRESS;
for REGION_BAD_AREA'Address use REGION_BAD_AREA_ADDRESS;
--
-- INIT
@@ -190,7 +191,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -218,7 +219,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
@@ -231,7 +232,7 @@ package SPTEST is
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_2);
@@ -244,7 +245,7 @@ package SPTEST is
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_3);
@@ -257,7 +258,7 @@ package SPTEST is
--
procedure TASK_4 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_4);

7
c/src/ada-tests/sptests/sp11/sp11.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP11 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

171
c/src/ada-tests/sptests/sp11/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -24,16 +24,18 @@ with INTERFACES; use INTERFACES;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
with RTEMS.CLOCK;
with RTEMS.EVENT;
with RTEMS.TIMER;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -45,7 +47,7 @@ package body SPTEST is
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
4,
2048,
@@ -56,7 +58,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
4,
2048,
@@ -67,7 +69,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -75,7 +77,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_2'ACCESS,
0,
@@ -90,60 +92,59 @@ package body SPTEST is
SPTEST.TIMER_NAME( 5 ) := RTEMS.BUILD_NAME( 'T', 'M', '5', ' ' );
SPTEST.TIMER_NAME( 6 ) := RTEMS.BUILD_NAME( 'T', 'M', '6', ' ' );
RTEMS.TIMER_CREATE(
RTEMS.TIMER.CREATE(
SPTEST.TIMER_NAME( 1 ),
SPTEST.TIMER_ID( 1 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE OF TM1" );
RTEMS.TIMER_CREATE(
RTEMS.TIMER.CREATE(
SPTEST.TIMER_NAME( 2 ),
SPTEST.TIMER_ID( 2 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE OF TM2" );
RTEMS.TIMER_CREATE(
RTEMS.TIMER.CREATE(
SPTEST.TIMER_NAME( 3 ),
SPTEST.TIMER_ID( 3 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE OF TM3" );
RTEMS.TIMER_CREATE(
RTEMS.TIMER.CREATE(
SPTEST.TIMER_NAME( 4 ),
SPTEST.TIMER_ID( 4 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE OF TM4" );
RTEMS.TIMER_CREATE(
RTEMS.TIMER.CREATE(
SPTEST.TIMER_NAME( 5 ),
SPTEST.TIMER_ID( 5 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE OF TM5" );
RTEMS.TIMER_CREATE(
RTEMS.TIMER.CREATE(
SPTEST.TIMER_NAME( 6 ),
SPTEST.TIMER_ID( 6 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE OF TM6" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
EVENTOUT : RTEMS.EVENT_SET;
@@ -153,13 +154,13 @@ package body SPTEST is
begin
TEXT_IO.PUT_LINE( "TA1 - event_send - send EVENT_16 to TA2" );
RTEMS.EVENT_SEND( SPTEST.TASK_ID( 2 ), RTEMS.EVENT_16, STATUS );
RTEMS.EVENT.SEND( SPTEST.TASK_ID( 2 ), RTEMS.EVENT_16, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 16" );
TEXT_IO.PUT_LINE(
"TA1 - event_receive - waiting forever on EVENT_14 and EVENT_15"
);
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.EVENT_14 + RTEMS.EVENT_15,
RTEMS.DEFAULT_OPTIONS,
RTEMS.NO_TIMEOUT,
@@ -172,13 +173,13 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - event_send - send EVENT_18 to TA2" );
RTEMS.EVENT_SEND( SPTEST.TASK_ID( 2 ), RTEMS.EVENT_18, STATUS );
RTEMS.EVENT.SEND( SPTEST.TASK_ID( 2 ), RTEMS.EVENT_18, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 18" );
TEXT_IO.PUT_LINE(
"TA1 - event_receive - waiting with 10 second timeout on EVENT_14"
);
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.EVENT_14,
RTEMS.DEFAULT_OPTIONS,
10 * TEST_SUPPORT.TICKS_PER_SECOND,
@@ -191,10 +192,10 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - event_send - send EVENT_19 to TA2" );
RTEMS.EVENT_SEND( SPTEST.TASK_ID( 2 ), RTEMS.EVENT_19, STATUS );
RTEMS.EVENT.SEND( SPTEST.TASK_ID( 2 ), RTEMS.EVENT_19, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 19" );
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 CLOCK_GET" );
TEST_SUPPORT.PRINT_TIME( "TA1 - clock_get - ", TIME, "" );
TEXT_IO.NEW_LINE;
@@ -204,7 +205,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - event_send - send EVENT_18 to self after 5 seconds"
);
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
SPTEST.TIMER_ID( 1 ),
5 * TEST_SUPPORT.TICKS_PER_SECOND,
SPTEST.TA1_SEND_18_TO_SELF_5_SECONDS'ACCESS,
@@ -216,7 +217,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - event_receive - waiting forever on EVENT_18"
);
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.EVENT_18,
RTEMS.DEFAULT_OPTIONS,
RTEMS.NO_TIMEOUT,
@@ -225,7 +226,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_RECEIVE of 18" );
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 CLOCK_GET" );
TEXT_IO.PUT( "TA1 - EVENT_18 received - eventout => ");
@@ -236,13 +237,13 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - event_send - send EVENT_3 to self" );
RTEMS.EVENT_SEND( RTEMS.SELF, RTEMS.EVENT_3, STATUS );
RTEMS.EVENT.SEND( RTEMS.SELF, RTEMS.EVENT_3, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 3" );
TEXT_IO.PUT_LINE(
"TA1 - event_receive - EVENT_3 or EVENT_22 - NO_WAIT and EVENT_ANY"
);
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.EVENT_3 + RTEMS.EVENT_22,
RTEMS.NO_WAIT + RTEMS.EVENT_ANY,
RTEMS.NO_TIMEOUT,
@@ -255,13 +256,13 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - event_send - send EVENT_4 to self" );
RTEMS.EVENT_SEND( RTEMS.SELF, RTEMS.EVENT_4, STATUS );
RTEMS.EVENT.SEND( RTEMS.SELF, RTEMS.EVENT_4, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 4" );
TEXT_IO.PUT_LINE(
"TA1 - event_receive - waiting forever on EVENT_4 or EVENT_5 - EVENT_ANY"
);
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.EVENT_4 + RTEMS.EVENT_5,
RTEMS.EVENT_ANY,
RTEMS.NO_TIMEOUT,
@@ -278,7 +279,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - event_send - send EVENT_18 to self after 5 seconds"
);
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
SPTEST.TIMER_ID( 1 ),
5 * TEST_SUPPORT.TICKS_PER_SECOND,
SPTEST.TA1_SEND_18_TO_SELF_5_SECONDS'ACCESS,
@@ -290,13 +291,13 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - timer_cancel - cancelling timer for event EVENT_18"
);
RTEMS.TIMER_CANCEL( SPTEST.TIMER_ID( 1 ), STATUS );
RTEMS.TIMER.CANCEL( SPTEST.TIMER_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CANCEL" );
TEXT_IO.PUT_LINE(
"TA1 - event_send - send EVENT_8 to self after 60 seconds"
);
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
SPTEST.TIMER_ID( 1 ),
60 * TEST_SUPPORT.TICKS_PER_SECOND,
SPTEST.TA1_SEND_8_TO_SELF_60_SECONDS'ACCESS,
@@ -308,7 +309,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - event_send - send EVENT_9 to self after 60 seconds"
);
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
SPTEST.TIMER_ID( 2 ),
60 * TEST_SUPPORT.TICKS_PER_SECOND,
SPTEST.TA1_SEND_9_TO_SELF_60_SECONDS'ACCESS,
@@ -320,7 +321,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - event_send - send EVENT_10 to self after 60 seconds"
);
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
SPTEST.TIMER_ID( 3 ),
60 * TEST_SUPPORT.TICKS_PER_SECOND,
SPTEST.TA1_SEND_10_TO_SELF'ACCESS,
@@ -332,20 +333,20 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - timer_cancel - cancelling timer for event EVENT_8"
);
RTEMS.TIMER_CANCEL( SPTEST.TIMER_ID( 1 ), STATUS );
RTEMS.TIMER.CANCEL( SPTEST.TIMER_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CANCEL" );
TIME := ( 1988, 2, 12, 8, 15, 0, 0 );
TEST_SUPPORT.PRINT_TIME( "TA1 - clock_set - ", TIME, "" );
TEXT_IO.NEW_LINE;
RTEMS.CLOCK_SET( TIME, STATUS );
RTEMS.CLOCK.SET( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 CLOCK_SET" );
TEXT_IO.PUT_LINE(
"TA1 - event_send - send EVENT_1 every second"
);
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
SPTEST.TIMER_ID( 1 ),
TEST_SUPPORT.TICKS_PER_SECOND,
SPTEST.TA1_SEND_1_TO_SELF_EVERY_SECOND'ACCESS,
@@ -360,7 +361,7 @@ package body SPTEST is
exit when INDEX = 3;
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.EVENT_1,
RTEMS.EVENT_ANY,
RTEMS.NO_TIMEOUT,
@@ -369,7 +370,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_RECEIVE of 1" );
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 CLOCK_GET" );
TEXT_IO.PUT( "TA1 - EVENT_1 received - eventout => ");
@@ -378,7 +379,7 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
if INDEX < 2 then
RTEMS.TIMER_RESET( SPTEST.TIMER_ID( 1 ), STATUS );
RTEMS.TIMER.RESET( SPTEST.TIMER_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 TIMER RESET" );
end if;
@@ -388,7 +389,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - timer_cancel - cancelling timer for event EVENT_1"
);
RTEMS.TIMER_CANCEL( SPTEST.TIMER_ID( 1 ), STATUS );
RTEMS.TIMER.CANCEL( SPTEST.TIMER_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CANCEL" );
TEST_SUPPORT.PAUSE;
@@ -397,7 +398,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - event_send - send EVENT_11 to self in 1 day"
);
RTEMS.TIMER_FIRE_WHEN(
RTEMS.TIMER.FIRE_WHEN(
SPTEST.TIMER_ID( 1 ),
TIME,
SPTEST.TA1_SEND_11_TO_SELF'ACCESS,
@@ -410,7 +411,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - event_send - send EVENT_11 to self in 1 day"
);
RTEMS.TIMER_FIRE_WHEN(
RTEMS.TIMER.FIRE_WHEN(
SPTEST.TIMER_ID( 2 ),
TIME,
SPTEST.TA1_SEND_11_TO_SELF'ACCESS,
@@ -424,7 +425,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - event_send - send EVENT_11 to self in 2 days"
);
RTEMS.TIMER_FIRE_WHEN(
RTEMS.TIMER.FIRE_WHEN(
SPTEST.TIMER_ID( 3 ),
TIME,
SPTEST.TA1_SEND_11_TO_SELF'ACCESS,
@@ -436,19 +437,19 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - timer_cancel - cancelling EVENT_11 to self in 1 day"
);
RTEMS.TIMER_CANCEL( SPTEST.TIMER_ID( 1 ), STATUS );
RTEMS.TIMER.CANCEL( SPTEST.TIMER_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CANCEL" );
TEXT_IO.PUT_LINE(
"TA1 - timer_cancel - cancelling EVENT_11 to self in 2 days"
);
RTEMS.TIMER_CANCEL( SPTEST.TIMER_ID( 3 ), STATUS );
RTEMS.TIMER.CANCEL( SPTEST.TIMER_ID( 3 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CANCEL" );
TEXT_IO.PUT_LINE(
"TA1 - event_send - resending EVENT_11 to self in 2 days"
);
RTEMS.TIMER_FIRE_WHEN(
RTEMS.TIMER.FIRE_WHEN(
SPTEST.TIMER_ID( 3 ),
TIME,
SPTEST.TA1_SEND_11_TO_SELF'ACCESS,
@@ -460,12 +461,12 @@ package body SPTEST is
TIME.DAY := 15;
TEST_SUPPORT.PRINT_TIME( "TA1 - clock_set - ", TIME, "" );
TEXT_IO.NEW_LINE;
RTEMS.CLOCK_SET( TIME, STATUS );
RTEMS.CLOCK.SET( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 CLOCK_SET" );
TEXT_IO.PUT_LINE(
"TA1 - event_receive - waiting forever on EVENT_11"
);
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.EVENT_11,
RTEMS.DEFAULT_OPTIONS,
RTEMS.NO_TIMEOUT,
@@ -482,7 +483,7 @@ package body SPTEST is
-- The following code tests the case of deleting a timer ???
TEXT_IO.PUT_LINE( "TA1 - event_send/event_receive combination" );
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
SPTEST.TIMER_ID( 1 ),
10,
SPTEST.TA1_SEND_11_TO_SELF'ACCESS,
@@ -490,7 +491,7 @@ package body SPTEST is
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER 10 ticks" );
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.EVENT_11,
RTEMS.DEFAULT_OPTIONS,
11,
@@ -503,14 +504,14 @@ package body SPTEST is
TEST_SUPPORT.PRINT_TIME( "TA1 - clock_set - ", TIME, "" );
TEXT_IO.NEW_LINE;
RTEMS.CLOCK_SET( TIME, STATUS );
RTEMS.CLOCK.SET( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 CLOCK_SET" );
TIME.DAY := 13;
TEXT_IO.PUT_LINE(
"TA1 - event_receive all outstanding events"
);
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.ALL_EVENTS,
RTEMS.NO_WAIT + RTEMS.EVENT_ANY,
RTEMS.NO_TIMEOUT,
@@ -526,7 +527,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - event_send - send EVENT_10 to self in 1 day"
);
RTEMS.TIMER_FIRE_WHEN(
RTEMS.TIMER.FIRE_WHEN(
SPTEST.TIMER_ID( 1 ),
TIME,
SPTEST.TA1_SEND_10_TO_SELF'ACCESS,
@@ -539,7 +540,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - event_send - send EVENT_11 to self in 2 days"
);
RTEMS.TIMER_FIRE_WHEN(
RTEMS.TIMER.FIRE_WHEN(
SPTEST.TIMER_ID( 2 ),
TIME,
SPTEST.TA1_SEND_11_TO_SELF'ACCESS,
@@ -553,10 +554,10 @@ package body SPTEST is
TEST_SUPPORT.PRINT_TIME( "TA1 - clock_set - ", TIME, "" );
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - set time backwards" );
RTEMS.CLOCK_SET( TIME, STATUS );
RTEMS.CLOCK.SET( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 CLOCK_SET" );
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.ALL_EVENTS,
RTEMS.NO_WAIT + RTEMS.EVENT_ANY,
RTEMS.NO_TIMEOUT,
@@ -581,10 +582,10 @@ package body SPTEST is
TEST_SUPPORT.PRINT_TIME( "TA1 - clock_set - ", TIME, "" );
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - set time forwards (leave a timer)" );
RTEMS.CLOCK_SET( TIME, STATUS );
RTEMS.CLOCK.SET( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 CLOCK_SET" );
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.ALL_EVENTS,
RTEMS.NO_WAIT + RTEMS.EVENT_ANY,
RTEMS.NO_TIMEOUT,
@@ -603,7 +604,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - event_send - send EVENT_11 to self in 100 ticks"
);
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
SPTEST.TIMER_ID( 1 ),
100,
SPTEST.TA1_SEND_11_TO_SELF'ACCESS,
@@ -615,7 +616,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA1 - event_send - send EVENT_11 to self in 200 ticks"
);
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
SPTEST.TIMER_ID( 2 ),
100,
SPTEST.TA1_SEND_11_TO_SELF'ACCESS,
@@ -629,13 +630,12 @@ package body SPTEST is
end TASK_1;
--PAGE
--
-- TASK_2
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
EVENTOUT : RTEMS.EVENT_SET;
@@ -643,13 +643,13 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT_LINE(
"TA2 - event_receive - waiting forever on EVENT_16"
);
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.EVENT_16,
RTEMS.DEFAULT_OPTIONS,
RTEMS.NO_TIMEOUT,
@@ -664,7 +664,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA2 - event_send - send EVENT_14 and EVENT_15 to TA1"
);
RTEMS.EVENT_SEND(
RTEMS.EVENT.SEND(
SPTEST.TASK_ID( 1 ),
RTEMS.EVENT_14 + RTEMS.EVENT_15,
STATUS
@@ -674,7 +674,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA2 - event_receive - waiting forever on EVENT_17 or EVENT_18 - EVENT_ANY"
);
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.EVENT_17 + RTEMS.EVENT_18,
RTEMS.EVENT_ANY,
RTEMS.NO_TIMEOUT,
@@ -689,7 +689,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA2 - event_send - send EVENT_14 to TA1"
);
RTEMS.EVENT_SEND(
RTEMS.EVENT.SEND(
SPTEST.TASK_ID( 1 ),
RTEMS.EVENT_14,
STATUS
@@ -700,14 +700,14 @@ package body SPTEST is
TEST_SUPPORT.PRINT_TIME( "TA2 - clock_set - ", TIME, "" );
TEXT_IO.NEW_LINE;
RTEMS.CLOCK_SET( TIME, STATUS );
RTEMS.CLOCK.SET( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA2 CLOCK_SET" );
TIME.SECOND := TIME.SECOND + 5;
TEXT_IO.PUT_LINE(
"TA2 - event_send - sending EVENT_10 to self after 5 seconds"
);
RTEMS.TIMER_FIRE_WHEN(
RTEMS.TIMER.FIRE_WHEN(
SPTEST.TIMER_ID( 5 ),
TIME,
SPTEST.TA2_SEND_10_TO_SELF'ACCESS,
@@ -719,7 +719,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA2 - event_receive - waiting forever on EVENT_10"
);
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.EVENT_10,
RTEMS.DEFAULT_OPTIONS,
RTEMS.NO_TIMEOUT,
@@ -728,7 +728,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_RECEIVE of 10" );
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TA1 CLOCK_GET" );
TEXT_IO.PUT( "TA2 - EVENT_10 received - eventout => ");
@@ -739,7 +739,7 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA2 - event_receive - PENDING_EVENTS" );
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.PENDING_EVENTS,
RTEMS.DEFAULT_OPTIONS,
RTEMS.NO_TIMEOUT,
@@ -754,7 +754,7 @@ package body SPTEST is
TEXT_IO.PUT_LINE(
"TA2 - event_receive - EVENT_19 - NO_WAIT"
);
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT.RECEIVE(
RTEMS.EVENT_19,
RTEMS.NO_WAIT,
RTEMS.NO_TIMEOUT,
@@ -767,12 +767,11 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA2 - task_delete - deletes self" );
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 2 ), STATUS );
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE of TA2" );
end TASK_2;
--PAGE
--
-- TA1_SEND_18_TO_SELF_5_SECONDS
--
@@ -787,12 +786,11 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.EVENT_SEND( SPTEST.TASK_ID( 1 ), RTEMS.EVENT_18, STATUS );
RTEMS.EVENT.SEND( SPTEST.TASK_ID( 1 ), RTEMS.EVENT_18, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 18" );
end TA1_SEND_18_TO_SELF_5_SECONDS;
--PAGE
--
-- TA1_SEND_8_TO_SELF_60_SECONDS
--
@@ -807,12 +805,11 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.EVENT_SEND( SPTEST.TASK_ID( 1 ), RTEMS.EVENT_8, STATUS );
RTEMS.EVENT.SEND( SPTEST.TASK_ID( 1 ), RTEMS.EVENT_8, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 8" );
end TA1_SEND_8_TO_SELF_60_SECONDS;
--PAGE
--
-- TA1_SEND_9_TO_SELF_60_SECONDS
--
@@ -827,12 +824,11 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.EVENT_SEND( SPTEST.TASK_ID( 1 ), RTEMS.EVENT_9, STATUS );
RTEMS.EVENT.SEND( SPTEST.TASK_ID( 1 ), RTEMS.EVENT_9, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 9" );
end TA1_SEND_9_TO_SELF_60_SECONDS;
--PAGE
--
-- TA1_SEND_10_TO_SELF
--
@@ -847,12 +843,11 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.EVENT_SEND( SPTEST.TASK_ID( 1 ), RTEMS.EVENT_10, STATUS );
RTEMS.EVENT.SEND( SPTEST.TASK_ID( 1 ), RTEMS.EVENT_10, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 10" );
end TA1_SEND_10_TO_SELF;
--PAGE
--
-- TA1_SEND_1_TO_SELF_EVERY_SECOND
--
@@ -867,12 +862,11 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.EVENT_SEND( SPTEST.TASK_ID( 1 ), RTEMS.EVENT_1, STATUS );
RTEMS.EVENT.SEND( SPTEST.TASK_ID( 1 ), RTEMS.EVENT_1, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 1" );
end TA1_SEND_1_TO_SELF_EVERY_SECOND;
--PAGE
--
-- TA1_SEND_11_TO_SELF
--
@@ -887,12 +881,11 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.EVENT_SEND( SPTEST.TASK_ID( 1 ), RTEMS.EVENT_11, STATUS );
RTEMS.EVENT.SEND( SPTEST.TASK_ID( 1 ), RTEMS.EVENT_11, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 11" );
end TA1_SEND_11_TO_SELF;
--PAGE
--
-- TA2_SEND_10_TO_SELF
--
@@ -907,7 +900,7 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.EVENT_SEND( SPTEST.TASK_ID( 2 ), RTEMS.EVENT_10, STATUS );
RTEMS.EVENT.SEND( SPTEST.TASK_ID( 2 ), RTEMS.EVENT_10, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 10" );
end TA2_SEND_10_TO_SELF;

9
c/src/ada-tests/sptests/sp11/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -154,7 +155,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -167,7 +168,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
@@ -180,7 +181,7 @@ package SPTEST is
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_2);

7
c/src/ada-tests/sptests/sp12/sp12.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
with Interfaces; use Interfaces;
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -29,7 +30,7 @@ procedure SP12 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE * 2,
@@ -41,7 +42,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

199
c/src/ada-tests/sptests/sp12/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -24,16 +24,16 @@ with INTERFACES; use INTERFACES;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
with RTEMS.SEMAPHORE;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -63,31 +63,31 @@ package body SPTEST is
SPTEST.SEMAPHORE_NAME( 2 ) := RTEMS.BUILD_NAME( 'S', 'M', '2', ' ' );
SPTEST.SEMAPHORE_NAME( 3 ) := RTEMS.BUILD_NAME( 'S', 'M', '3', ' ' );
RTEMS.SEMAPHORE_CREATE(
RTEMS.SEMAPHORE.CREATE(
SPTEST.SEMAPHORE_NAME( 1 ),
1,
RTEMS.DEFAULT_ATTRIBUTES,
RTEMS.NO_PRIORITY,
RTEMS.TASKS.NO_PRIORITY,
SPTEST.SEMAPHORE_ID( 1 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE OF SM1" );
RTEMS.SEMAPHORE_CREATE(
RTEMS.SEMAPHORE.CREATE(
SPTEST.SEMAPHORE_NAME( 2 ),
0,
RTEMS.PRIORITY,
RTEMS.NO_PRIORITY,
RTEMS.TASKS.NO_PRIORITY,
SPTEST.SEMAPHORE_ID( 2 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE OF SM2" );
RTEMS.SEMAPHORE_CREATE(
RTEMS.SEMAPHORE.CREATE(
SPTEST.SEMAPHORE_NAME( 3 ),
1,
RTEMS.DEFAULT_ATTRIBUTES,
RTEMS.NO_PRIORITY,
RTEMS.TASKS.NO_PRIORITY,
SPTEST.SEMAPHORE_ID( 3 ),
STATUS
);
@@ -105,17 +105,17 @@ TEST_SUPPORT.PAUSE;
"INIT - Binary Semaphore and Priority Inheritance Test"
);
RTEMS.SEMAPHORE_DELETE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
RTEMS.SEMAPHORE.DELETE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_DELETE OF SM2" );
TEXT_IO.PUT_LINE(
"INIT - semaphore_create - allocated binary semaphore"
);
RTEMS.SEMAPHORE_CREATE(
RTEMS.SEMAPHORE.CREATE(
SPTEST.SEMAPHORE_NAME( 2 ),
0,
RTEMS.BINARY_SEMAPHORE + RTEMS.PRIORITY + RTEMS.INHERIT_PRIORITY,
RTEMS.NO_PRIORITY,
RTEMS.TASKS.NO_PRIORITY,
SPTEST.SEMAPHORE_ID( 2 ),
STATUS
);
@@ -124,20 +124,20 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"INIT - semaphore_release - allocated binary semaphore"
);
RTEMS.SEMAPHORE_RELEASE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
RTEMS.SEMAPHORE.RELEASE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE OF SM2" );
TEXT_IO.PUT_LINE(
"INIT - semaphore_delete - allocated binary semaphore"
);
RTEMS.SEMAPHORE_DELETE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
RTEMS.SEMAPHORE.DELETE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_DELETE OF SM2" );
RTEMS.SEMAPHORE_CREATE(
RTEMS.SEMAPHORE.CREATE(
SPTEST.SEMAPHORE_NAME( 2 ),
1,
RTEMS.BINARY_SEMAPHORE + RTEMS.PRIORITY + RTEMS.INHERIT_PRIORITY,
RTEMS.NO_PRIORITY,
RTEMS.TASKS.NO_PRIORITY,
SPTEST.SEMAPHORE_ID( 2 ),
STATUS
);
@@ -147,23 +147,23 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.PAUSE;
RTEMS.SEMAPHORE_DELETE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
RTEMS.SEMAPHORE.DELETE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_DELETE OF SM2" );
RTEMS.SEMAPHORE_CREATE(
RTEMS.SEMAPHORE.CREATE(
SPTEST.SEMAPHORE_NAME( 2 ),
0,
RTEMS.PRIORITY,
RTEMS.NO_PRIORITY,
RTEMS.TASKS.NO_PRIORITY,
SPTEST.SEMAPHORE_ID( 2 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE OF SM2" );
RTEMS.SEMAPHORE_RELEASE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
RTEMS.SEMAPHORE.RELEASE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE OF SM2" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
4,
2048,
@@ -174,7 +174,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
4,
2048,
@@ -185,7 +185,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 3 ),
4,
2048,
@@ -196,7 +196,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -204,7 +204,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_2'ACCESS,
0,
@@ -212,7 +212,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 3 ),
SPTEST.TASK_3'ACCESS,
0,
@@ -220,12 +220,11 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- PRIORITY_TEST_DRIVER
--
@@ -233,7 +232,7 @@ TEST_SUPPORT.PAUSE;
procedure PRIORITY_TEST_DRIVER (
PRIORITY_BASE : in RTEMS.UNSIGNED32
) is
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -243,12 +242,12 @@ TEST_SUPPORT.PAUSE;
case INDEX is
when 1 | 2 | 3 =>
SPTEST.TASK_PRIORITY( INDEX ) :=
PRIORITY_BASE + RTEMS.TASK_PRIORITY( INDEX );
PRIORITY_BASE + RTEMS.TASKS.PRIORITY( INDEX );
when others =>
SPTEST.TASK_PRIORITY( INDEX ) := PRIORITY_BASE + 3;
end case;
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.PRIORITY_TASK_NAME( INDEX ),
SPTEST.TASK_PRIORITY( INDEX ),
2048,
@@ -266,10 +265,10 @@ TEST_SUPPORT.PAUSE;
for INDEX in 1 .. 5
loop
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.PRIORITY_TASK_ID( INDEX ),
SPTEST.PRIORITY_TASK'ACCESS,
RTEMS.TASK_ARGUMENT( INDEX ),
RTEMS.TASKS.ARGUMENT( INDEX ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START LOOP" );
@@ -281,20 +280,20 @@ TEST_SUPPORT.PAUSE;
for INDEX in reverse 1 .. 5
loop
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.PRIORITY_TASK_ID( INDEX ),
SPTEST.PRIORITY_TASK'ACCESS,
RTEMS.TASK_ARGUMENT( INDEX ),
RTEMS.TASKS.ARGUMENT( INDEX ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START LOOP" );
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER LOOP" );
if PRIORITY_BASE = 64 then
if INDEX = 4 then
RTEMS.TASK_SET_PRIORITY(
RTEMS.TASKS.SET_PRIORITY(
SPTEST.PRIORITY_TASK_ID( 5 ),
PRIORITY_BASE + 4,
PREVIOUS_PRIORITY,
@@ -311,9 +310,9 @@ TEST_SUPPORT.PAUSE;
);
end if;
RTEMS.TASK_SET_PRIORITY(
RTEMS.TASKS.SET_PRIORITY(
SPTEST.PRIORITY_TASK_ID( 5 ),
RTEMS.CURRENT_PRIORITY,
RTEMS.TASKS.CURRENT_PRIORITY,
PREVIOUS_PRIORITY,
STATUS
);
@@ -330,14 +329,14 @@ TEST_SUPPORT.PAUSE;
end if;
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER AFTER LOOP" );
if PRIORITY_BASE = 0 then
for INDEX in 1 .. 5
loop
RTEMS.SEMAPHORE_RELEASE(
RTEMS.SEMAPHORE.RELEASE(
SPTEST.SEMAPHORE_ID( 2 ),
STATUS
);
@@ -352,23 +351,23 @@ TEST_SUPPORT.PAUSE;
if PRIORITY_BASE = 64 then
TEXT_IO.PUT_LINE( "PDRV - task_resume - PRI5" );
RTEMS.TASK_RESUME( SPTEST.PRIORITY_TASK_ID( 5 ), STATUS );
RTEMS.TASKS.RESUME( SPTEST.PRIORITY_TASK_ID( 5 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME" );
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED(
STATUS,
"TASK_WAKE_AFTER SO PRI5 can run"
);
RTEMS.TASK_DELETE( SPTEST.PRIORITY_TASK_ID( 5 ), STATUS );
RTEMS.TASKS.DELETE( SPTEST.PRIORITY_TASK_ID( 5 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF PRI5" );
else
for INDEX in 1 .. 5
loop
RTEMS.TASK_DELETE(
RTEMS.TASKS.DELETE(
SPTEST.PRIORITY_TASK_ID( INDEX ),
STATUS
);
@@ -380,17 +379,16 @@ TEST_SUPPORT.PAUSE;
end PRIORITY_TEST_DRIVER;
--PAGE
--
-- PRIORITY_TASK
--
procedure PRIORITY_TASK (
ITS_INDEX : in RTEMS.TASK_ARGUMENT
ITS_INDEX : in RTEMS.TASKS.ARGUMENT
) is
TIMEOUT : RTEMS.INTERVAL;
ITS_PRIORITY : RTEMS.TASK_PRIORITY;
CURRENT_PRIORITY : RTEMS.TASK_PRIORITY;
ITS_PRIORITY : RTEMS.TASKS.PRIORITY;
CURRENT_PRIORITY : RTEMS.TASKS.PRIORITY;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -405,7 +403,7 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.PUT_NAME( PRIORITY_TASK_NAME( INTEGER(ITS_INDEX) ), FALSE );
TEXT_IO.PUT_LINE( " - semaphore_obtain - wait forever on SM2" );
RTEMS.SEMAPHORE_OBTAIN(
RTEMS.SEMAPHORE.OBTAIN(
SPTEST.SEMAPHORE_ID( 2 ),
RTEMS.DEFAULT_OPTIONS,
TIMEOUT,
@@ -428,20 +426,20 @@ TEST_SUPPORT.PAUSE;
);
end if;
RTEMS.TASK_SUSPEND( RTEMS.SELF, STATUS );
RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
TEXT_IO.PUT_LINE( "PRI5 - task_delete - all tasks waiting on SM2" );
for INDEX in 1 .. 4
loop
RTEMS.TASK_DELETE( SPTEST.PRIORITY_TASK_ID( INDEX ), STATUS );
RTEMS.TASKS.DELETE( SPTEST.PRIORITY_TASK_ID( INDEX ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE LOOP" );
end loop;
TEXT_IO.PUT_LINE( "PRI5 - semaphore_obtain - nested" );
RTEMS.SEMAPHORE_OBTAIN(
RTEMS.SEMAPHORE.OBTAIN(
SPTEST.SEMAPHORE_ID( 2 ),
RTEMS.DEFAULT_OPTIONS,
TIMEOUT,
@@ -450,16 +448,16 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN NESTED" );
TEXT_IO.PUT_LINE( "PRI5 - semaphore_release - nested" );
RTEMS.SEMAPHORE_RELEASE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
RTEMS.SEMAPHORE.RELEASE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE NESTED" );
TEXT_IO.PUT_LINE( "PRI5 - semaphore_release - restore priority" );
RTEMS.SEMAPHORE_RELEASE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
RTEMS.SEMAPHORE.RELEASE( SPTEST.SEMAPHORE_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
RTEMS.TASK_SET_PRIORITY(
RTEMS.TASKS.SET_PRIORITY(
SPTEST.PRIORITY_TASK_ID( 5 ),
RTEMS.CURRENT_PRIORITY,
RTEMS.TASKS.CURRENT_PRIORITY,
CURRENT_PRIORITY,
STATUS
);
@@ -470,24 +468,25 @@ TEST_SUPPORT.PAUSE;
STATUS,
"PRI5 TASK_SET_PRIORITY CURRENT"
);
RTEMS.TASK_SUSPEND( RTEMS.SELF, STATUS );
RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
-- DOES NOT RETURN. Following check makes compiler happy
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
end PRIORITY_TASK;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
SMID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.SEMAPHORE_IDENT(
RTEMS.SEMAPHORE.IDENT(
SPTEST.SEMAPHORE_NAME( 1 ),
RTEMS.SEARCH_ALL_NODES,
SMID,
@@ -499,7 +498,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - semaphore_obtain - wait forever on SM2" );
RTEMS.SEMAPHORE_OBTAIN(
RTEMS.SEMAPHORE.OBTAIN(
SPTEST.SEMAPHORE_ID( 2 ),
RTEMS.DEFAULT_MODES,
RTEMS.NO_TIMEOUT,
@@ -510,7 +509,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA1 - got SM2" );
TEXT_IO.PUT_LINE( "TA1 - semaphore_obtain - wait forever on SM3" );
RTEMS.SEMAPHORE_OBTAIN(
RTEMS.SEMAPHORE.OBTAIN(
SPTEST.SEMAPHORE_ID( 3 ),
RTEMS.DEFAULT_MODES,
RTEMS.NO_TIMEOUT,
@@ -521,7 +520,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA1 - got SM3" );
TEXT_IO.PUT_LINE( "TA1 - semaphore_obtain - get SM1 - NO_WAIT" );
RTEMS.SEMAPHORE_OBTAIN(
RTEMS.SEMAPHORE.OBTAIN(
SPTEST.SEMAPHORE_ID( 1 ),
RTEMS.NO_WAIT,
RTEMS.NO_TIMEOUT,
@@ -532,19 +531,19 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA1 - got SM1" );
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 5 seconds" );
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA1 - semaphore_release - release SM1" );
RTEMS.SEMAPHORE_RELEASE( SPTEST.SEMAPHORE_ID( 1 ), STATUS );
RTEMS.SEMAPHORE.RELEASE( SPTEST.SEMAPHORE_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE ON SM1" );
TEXT_IO.PUT_LINE(
"TA1 - semaphore_obtain - waiting for SM1 with 10 second timeout"
);
RTEMS.SEMAPHORE_OBTAIN(
RTEMS.SEMAPHORE.OBTAIN(
SPTEST.SEMAPHORE_ID( 1 ),
RTEMS.DEFAULT_MODES,
10 * TEST_SUPPORT.TICKS_PER_SECOND,
@@ -555,23 +554,23 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA1 - got SM1" );
TEXT_IO.PUT_LINE( "TA1 - semaphore_release - release SM2" );
RTEMS.SEMAPHORE_RELEASE(
RTEMS.SEMAPHORE.RELEASE(
SPTEST.SEMAPHORE_ID( 2 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE ON SM2" );
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 5 seconds" );
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA1 - task_delete - delete TA3" );
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 3 ), STATUS );
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 3 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 4 ),
4,
2048,
@@ -582,7 +581,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA4" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 5 ),
4,
2048,
@@ -593,7 +592,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA5" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 4 ),
SPTEST.TASK_4'ACCESS,
0,
@@ -601,7 +600,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA4" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 5 ),
SPTEST.TASK_5'ACCESS,
0,
@@ -610,53 +609,52 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA5" );
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 5 seconds" );
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT_LINE( "TA1 - task_delete - delete TA4" );
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 4 ), STATUS );
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 4 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA4" );
TEXT_IO.PUT_LINE( "TA1 - semaphore_release - release SM1" );
RTEMS.SEMAPHORE_RELEASE(
RTEMS.SEMAPHORE.RELEASE(
SPTEST.SEMAPHORE_ID( 1 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE ON SM1" );
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 5 seconds" );
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT_LINE( "TA1 - semaphore_delete - delete SM1" );
RTEMS.SEMAPHORE_DELETE( SPTEST.SEMAPHORE_ID( 1 ), STATUS );
RTEMS.SEMAPHORE.DELETE( SPTEST.SEMAPHORE_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_DELETE OF SM1" );
TEXT_IO.PUT_LINE( "TA1 - semaphore_delete - delete SM3" );
RTEMS.SEMAPHORE_DELETE( SPTEST.SEMAPHORE_ID( 3 ), STATUS );
RTEMS.SEMAPHORE.DELETE( SPTEST.SEMAPHORE_ID( 3 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_DELETE OF SM3" );
TEXT_IO.PUT_LINE( "TA1 - task_delete - delete self" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA1" );
end TASK_1;
--PAGE
--
-- TASK_2
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
begin
TEXT_IO.PUT_LINE( "TA2 - semaphore_obtain - wait forever on SM1" );
RTEMS.SEMAPHORE_OBTAIN(
RTEMS.SEMAPHORE.OBTAIN(
SPTEST.SEMAPHORE_ID( 1 ),
RTEMS.DEFAULT_MODES,
RTEMS.NO_TIMEOUT,
@@ -667,7 +665,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA2 - got SM1" );
TEXT_IO.PUT_LINE( "TA2 - semaphore_release - release SM1" );
RTEMS.SEMAPHORE_RELEASE(
RTEMS.SEMAPHORE.RELEASE(
SPTEST.SEMAPHORE_ID( 1 ),
STATUS
);
@@ -676,7 +674,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA2 - task_set_priority - make self highest priority task"
);
RTEMS.TASK_SET_PRIORITY(
RTEMS.TASKS.SET_PRIORITY(
RTEMS.SELF,
3,
PREVIOUS_PRIORITY,
@@ -685,7 +683,7 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY ON TA2" );
TEXT_IO.PUT_LINE( "TA2 - semaphore_obtain - wait forever on SM2" );
RTEMS.SEMAPHORE_OBTAIN(
RTEMS.SEMAPHORE.OBTAIN(
SPTEST.SEMAPHORE_ID( 2 ),
RTEMS.DEFAULT_MODES,
RTEMS.NO_TIMEOUT,
@@ -696,32 +694,31 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA2 - got SM2" );
TEXT_IO.PUT_LINE( "TA2 - semaphore_release - release SM2" );
RTEMS.SEMAPHORE_RELEASE(
RTEMS.SEMAPHORE.RELEASE(
SPTEST.SEMAPHORE_ID( 2 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE ON SM2" );
TEXT_IO.PUT_LINE( "TA2 - task_delete - delete self" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
end TASK_2;
--PAGE
--
-- TASK_3
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
TEXT_IO.PUT_LINE( "TA3 - semaphore_obtain - wait forever on SM2" );
RTEMS.SEMAPHORE_OBTAIN(
RTEMS.SEMAPHORE.OBTAIN(
SPTEST.SEMAPHORE_ID( 2 ),
RTEMS.DEFAULT_MODES,
RTEMS.NO_TIMEOUT,
@@ -731,14 +728,14 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA3 - got SM2" );
TEXT_IO.PUT_LINE( "TA3 - semaphore_release - release SM2" );
RTEMS.SEMAPHORE_RELEASE(
RTEMS.SEMAPHORE.RELEASE(
SPTEST.SEMAPHORE_ID( 2 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE ON SM2" );
TEXT_IO.PUT_LINE( "TA3 - semaphore_obtain - wait forever on SM3" );
RTEMS.SEMAPHORE_OBTAIN(
RTEMS.SEMAPHORE.OBTAIN(
SPTEST.SEMAPHORE_ID( 3 ),
RTEMS.DEFAULT_MODES,
RTEMS.NO_TIMEOUT,
@@ -748,20 +745,19 @@ TEST_SUPPORT.PAUSE;
end TASK_3;
--PAGE
--
-- TASK_4
--
procedure TASK_4 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
TEXT_IO.PUT_LINE( "TA4 - semaphore_obtain - wait forever on SM1" );
RTEMS.SEMAPHORE_OBTAIN(
RTEMS.SEMAPHORE.OBTAIN(
SPTEST.SEMAPHORE_ID( 1 ),
RTEMS.DEFAULT_MODES,
RTEMS.NO_TIMEOUT,
@@ -771,20 +767,19 @@ TEST_SUPPORT.PAUSE;
end TASK_4;
--PAGE
--
-- TASK_5
--
procedure TASK_5 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
TEXT_IO.PUT_LINE( "TA5 - semaphore_obtain - wait forever on SM1" );
RTEMS.SEMAPHORE_OBTAIN(
RTEMS.SEMAPHORE.OBTAIN(
SPTEST.SEMAPHORE_ID( 1 ),
RTEMS.DEFAULT_MODES,
RTEMS.NO_TIMEOUT,
@@ -795,7 +790,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA5 - got SM1" );
TEXT_IO.PUT_LINE( "TA5 - semaphore_obtain - wait forever on SM1" );
RTEMS.SEMAPHORE_OBTAIN(
RTEMS.SEMAPHORE.OBTAIN(
SPTEST.SEMAPHORE_ID( 1 ),
RTEMS.DEFAULT_MODES,
RTEMS.NO_TIMEOUT,

19
c/src/ada-tests/sptests/sp12/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -34,7 +35,7 @@ package SPTEST is
PRIORITY_TASK_ID : array ( 1 .. 5 ) of RTEMS.ID;
PRIORITY_TASK_NAME : array ( 1 .. 5 ) of RTEMS.NAME;
TASK_PRIORITY : array ( 1 .. 5 ) of RTEMS.TASK_PRIORITY;
TASK_PRIORITY : array ( 1 .. 5 ) of RTEMS.TASKS.PRIORITY;
SEMAPHORE_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
SEMAPHORE_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
@@ -48,7 +49,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -76,7 +77,7 @@ package SPTEST is
--
procedure PRIORITY_TASK (
ITS_INDEX : in RTEMS.TASK_ARGUMENT
ITS_INDEX : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, PRIORITY_TASK);
@@ -89,7 +90,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
@@ -102,7 +103,7 @@ package SPTEST is
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_2);
@@ -115,7 +116,7 @@ package SPTEST is
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_3);
@@ -128,7 +129,7 @@ package SPTEST is
--
procedure TASK_4 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_4);
@@ -141,7 +142,7 @@ package SPTEST is
--
procedure TASK_5 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_5);

7
c/src/ada-tests/sptests/sp13/sp13.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP13 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

150
c/src/ada-tests/sptests/sp13/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -22,6 +22,7 @@
with INTERFACES; use INTERFACES;
with RTEMS;
with RTEMS.MESSAGE_QUEUE;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -32,13 +33,12 @@ package body SPTEST is
type BIG_BUFFER_TYPE is array (1 .. 2048) of RTEMS.UNSIGNED8;
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -51,7 +51,7 @@ package body SPTEST is
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
4,
2048,
@@ -62,7 +62,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
4,
2048,
@@ -73,7 +73,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 3 ),
4,
2048,
@@ -84,7 +84,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -92,7 +92,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_2'ACCESS,
0,
@@ -100,7 +100,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 3 ),
SPTEST.TASK_3'ACCESS,
0,
@@ -112,7 +112,7 @@ package body SPTEST is
SPTEST.QUEUE_NAME( 2 ) := RTEMS.BUILD_NAME( 'Q', '2', ' ', ' ' );
SPTEST.QUEUE_NAME( 3 ) := RTEMS.BUILD_NAME( 'Q', '3', ' ', ' ' );
RTEMS.MESSAGE_QUEUE_CREATE(
RTEMS.MESSAGE_QUEUE.CREATE(
SPTEST.QUEUE_NAME( 1 ),
100,
16,
@@ -122,7 +122,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "QUEUE_CREATE OF Q1" );
RTEMS.MESSAGE_QUEUE_CREATE(
RTEMS.MESSAGE_QUEUE.CREATE(
SPTEST.QUEUE_NAME( 2 ),
10,
16,
@@ -132,7 +132,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "QUEUE_CREATE OF Q2" );
RTEMS.MESSAGE_QUEUE_CREATE(
RTEMS.MESSAGE_QUEUE.CREATE(
SPTEST.QUEUE_NAME( 3 ),
100,
16,
@@ -142,12 +142,11 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "QUEUE_CREATE OF Q3" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- FILL_BUFFER
--
@@ -192,7 +191,6 @@ package body SPTEST is
end FILL_BUFFER;
--PAGE
--
-- PUT_BUFFER
--
@@ -213,13 +211,12 @@ package body SPTEST is
end PUT_BUFFER;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
QID : RTEMS.ID;
@@ -230,14 +227,14 @@ package body SPTEST is
BIG_RECEIVE_BUFFER_POINTER : constant RTEMS.ADDRESS
:= BIG_RECEIVE_BUFFER'ADDRESS;
BUFFER : SPTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS := BUFFER'ADDRESS;
BUFFER_POINTER : constant RTEMS.ADDRESS := BUFFER'ADDRESS;
COUNT : RTEMS.UNSIGNED32;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
SIZE : RTEMS.UNSIGNED32;
SIZE : RTEMS.UNSIGNED32 := 0;
begin
RTEMS.MESSAGE_QUEUE_IDENT(
RTEMS.MESSAGE_QUEUE.IDENT(
SPTEST.QUEUE_NAME( 1 ),
RTEMS.SEARCH_ALL_NODES,
QID,
@@ -250,7 +247,7 @@ package body SPTEST is
SPTEST.FILL_BUFFER( "BUFFER 1 TO Q 1 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_send - BUFFER 1 TO Q 1" );
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 1 ),
BUFFER_POINTER,
16,
@@ -260,7 +257,7 @@ package body SPTEST is
SPTEST.FILL_BUFFER( "BUFFER 2 TO Q 1 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_send - BUFFER 2 TO Q 1" );
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 1 ),
BUFFER_POINTER,
16,
@@ -269,12 +266,12 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_SEND" );
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 5 seconds" );
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
SPTEST.FILL_BUFFER( "BUFFER 3 TO Q 1 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_send - BUFFER 3 TO Q 1" );
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 1 ),
BUFFER_POINTER,
16,
@@ -283,14 +280,14 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_SEND" );
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 5 seconds" );
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEST_SUPPORT.PAUSE;
SPTEST.FILL_BUFFER( "BUFFER 1 TO Q 2 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_send - BUFFER 1 TO Q 2" );
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 2 ),
BUFFER_POINTER,
16,
@@ -302,7 +299,7 @@ TEST_SUPPORT.PAUSE;
"TA1 - message_queue_receive - receive from queue 1 - "
);
TEXT_IO.PUT_LINE( "10 second timeout" );
RTEMS.MESSAGE_QUEUE_RECEIVE(
RTEMS.MESSAGE_QUEUE.RECEIVE(
SPTEST.QUEUE_ID( 1 ),
BUFFER_POINTER,
RTEMS.DEFAULT_OPTIONS,
@@ -316,12 +313,12 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - task_delete - delete TA2" );
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 2 ), STATUS );
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE" );
SPTEST.FILL_BUFFER( "BUFFER 1 TO Q 3 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_send - BUFFER 1 TO Q 3" );
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 3 ),
BUFFER_POINTER,
16,
@@ -330,14 +327,14 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_SEND" );
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 5 seconds" );
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEST_SUPPORT.PAUSE;
SPTEST.FILL_BUFFER( "BUFFER 2 TO Q 3 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_send - BUFFER 2 TO Q 3" );
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 3 ),
BUFFER_POINTER,
16,
@@ -347,7 +344,7 @@ TEST_SUPPORT.PAUSE;
SPTEST.FILL_BUFFER( "BUFFER 3 TO Q 3 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_send - BUFFER 3 TO Q 3" );
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 3 ),
BUFFER_POINTER,
16,
@@ -357,7 +354,7 @@ TEST_SUPPORT.PAUSE;
SPTEST.FILL_BUFFER( "BUFFER 4 TO Q 3 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_send - BUFFER 4 TO Q 3" );
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 3 ),
BUFFER_POINTER,
16,
@@ -367,7 +364,7 @@ TEST_SUPPORT.PAUSE;
SPTEST.FILL_BUFFER( "BUFFER 5 TO Q 3 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_urgent - BUFFER 5 TO Q 3" );
RTEMS.MESSAGE_QUEUE_URGENT(
RTEMS.MESSAGE_QUEUE.URGENT(
SPTEST.QUEUE_ID( 3 ),
BUFFER_POINTER,
16,
@@ -381,7 +378,7 @@ TEST_SUPPORT.PAUSE;
"TA1 - message_queue_receive - receive from queue 3 - "
);
TEXT_IO.PUT_LINE( "WAIT FOREVER" );
RTEMS.MESSAGE_QUEUE_RECEIVE(
RTEMS.MESSAGE_QUEUE.RECEIVE(
SPTEST.QUEUE_ID( 3 ),
BUFFER_POINTER,
RTEMS.DEFAULT_OPTIONS,
@@ -397,7 +394,7 @@ TEST_SUPPORT.PAUSE;
SPTEST.FILL_BUFFER( "BUFFER 3 TO Q 2 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_urgent - BUFFER 3 TO Q 2" );
RTEMS.MESSAGE_QUEUE_URGENT(
RTEMS.MESSAGE_QUEUE.URGENT(
SPTEST.QUEUE_ID( 2 ),
BUFFER_POINTER,
16,
@@ -409,7 +406,7 @@ TEST_SUPPORT.PAUSE;
"TA1 - message_queue_receive - receive from queue 2 - "
);
TEXT_IO.PUT_LINE( "WAIT FOREVER" );
RTEMS.MESSAGE_QUEUE_RECEIVE(
RTEMS.MESSAGE_QUEUE.RECEIVE(
SPTEST.QUEUE_ID( 2 ),
BUFFER_POINTER,
RTEMS.DEFAULT_OPTIONS,
@@ -425,12 +422,12 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA1 - message_queue_delete - delete queue 1" );
RTEMS.MESSAGE_QUEUE_DELETE( SPTEST.QUEUE_ID( 1 ), STATUS );
RTEMS.MESSAGE_QUEUE.DELETE( SPTEST.QUEUE_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_DELETE" );
SPTEST.FILL_BUFFER( "BUFFER 3 TO Q 2 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_urgent - BUFFER 3 TO Q 2" );
RTEMS.MESSAGE_QUEUE_URGENT(
RTEMS.MESSAGE_QUEUE.URGENT(
SPTEST.QUEUE_ID( 2 ),
BUFFER_POINTER,
16,
@@ -439,11 +436,11 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_URGENT" );
TEXT_IO.PUT_LINE( "TA1 - message_queue_delete - delete queue 2" );
RTEMS.MESSAGE_QUEUE_DELETE( SPTEST.QUEUE_ID( 2 ), STATUS );
RTEMS.MESSAGE_QUEUE.DELETE( SPTEST.QUEUE_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_DELETE" );
TEXT_IO.PUT_LINE( "TA1 - message_queue_get_number_pending - check Q 3" );
RTEMS.MESSAGE_QUEUE_GET_NUMBER_PENDING(
RTEMS.MESSAGE_QUEUE.GET_NUMBER_PENDING(
SPTEST.QUEUE_ID( 3 ), COUNT, STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED(
@@ -454,7 +451,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( " messages are pending on Q 3" );
TEXT_IO.PUT_LINE( "TA1 - message_queue_flush - empty Q 3" );
RTEMS.MESSAGE_QUEUE_FLUSH( SPTEST.QUEUE_ID( 3 ), COUNT, STATUS );
RTEMS.MESSAGE_QUEUE.FLUSH( SPTEST.QUEUE_ID( 3 ), COUNT, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_FLUSH" );
TEXT_IO.PUT( "TA1 - " );
UNSIGNED32_IO.PUT( COUNT, WIDTH => 3, BASE => 10 );
@@ -462,7 +459,7 @@ TEST_SUPPORT.PAUSE;
SPTEST.FILL_BUFFER( "BUFFER 1 TO Q 3 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_send - BUFFER 1 TO Q 3" );
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 3 ),
BUFFER_POINTER,
16,
@@ -472,7 +469,7 @@ TEST_SUPPORT.PAUSE;
SPTEST.FILL_BUFFER( "BUFFER 2 TO Q 3 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_send - BUFFER 2 TO Q 3" );
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 3 ),
BUFFER_POINTER,
16,
@@ -483,7 +480,7 @@ TEST_SUPPORT.PAUSE;
-- this broadcast should have no effect on the queue
SPTEST.FIlL_BUFFER( "NO BUFFER TO Q1 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_broadcast - NO BUFFER TO Q1" );
RTEMS.MESSAGE_QUEUE_BROADCAST(
RTEMS.MESSAGE_QUEUE.BROADCAST(
SPTEST.QUEUE_ID( 1 ),
BUFFER_POINTER,
16,
@@ -495,7 +492,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - message_queue_get_number_pending - check Q 3" );
RTEMS.MESSAGE_QUEUE_GET_NUMBER_PENDING(
RTEMS.MESSAGE_QUEUE.GET_NUMBER_PENDING(
SPTEST.QUEUE_ID( 3 ), COUNT, STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED(
@@ -507,7 +504,7 @@ TEST_SUPPORT.PAUSE;
SPTEST.FILL_BUFFER( "BUFFER 3 TO Q 3 ", BUFFER );
TEXT_IO.PUT_LINE( "TA1 - message_queue_send - BUFFER 3 TO Q 3" );
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 3 ),
BUFFER_POINTER,
16,
@@ -516,7 +513,7 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_SEND" );
TEXT_IO.PUT_LINE( "TA1 - message_queue_flush - Q 3" );
RTEMS.MESSAGE_QUEUE_FLUSH( SPTEST.QUEUE_ID( 3 ), COUNT, STATUS );
RTEMS.MESSAGE_QUEUE.FLUSH( SPTEST.QUEUE_ID( 3 ), COUNT, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_FLUSH" );
TEXT_IO.PUT( "TA1 - " );
UNSIGNED32_IO.PUT( COUNT, WIDTH => 3, BASE => 10 );
@@ -527,7 +524,7 @@ TEST_SUPPORT.PAUSE;
);
loop
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 3 ),
BUFFER_POINTER,
16,
@@ -545,7 +542,7 @@ TEST_SUPPORT.PAUSE;
);
TEXT_IO.PUT_LINE( "TA1 - message_queue_flush - Q 3" );
RTEMS.MESSAGE_QUEUE_FLUSH( SPTEST.QUEUE_ID( 3 ), COUNT, STATUS );
RTEMS.MESSAGE_QUEUE.FLUSH( SPTEST.QUEUE_ID( 3 ), COUNT, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_FLUSH" );
TEXT_IO.PUT( "TA1 - " );
UNSIGNED32_IO.PUT( COUNT, WIDTH => 3, BASE => 10 );
@@ -554,7 +551,7 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA1 - create message queue of 20 bytes on queue 1" );
RTEMS.MESSAGE_QUEUE_CREATE(
RTEMS.MESSAGE_QUEUE.CREATE(
SPTEST.QUEUE_NAME( 1 ),
100,
20,
@@ -565,7 +562,7 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.DIRECTIVE_FAILED(
STATUS, "MESSAGE_QUEUE_CREATE of Q1; 20 bytes each"
);
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 1 ), BIG_SEND_BUFFER_POINTER, 40, STATUS
);
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
@@ -573,14 +570,14 @@ TEST_SUPPORT.PAUSE;
);
TEXT_IO.PUT_LINE( "TA1 - message_queue_delete - delete queue 1" );
RTEMS.MESSAGE_QUEUE_DELETE( SPTEST.QUEUE_ID( 1 ), STATUS );
RTEMS.MESSAGE_QUEUE.DELETE( SPTEST.QUEUE_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_DELETE" );
TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA1 - message_queue_create - variable sizes " );
for QUEUE_SIZE in 1 .. 1029 loop
RTEMS.MESSAGE_QUEUE_CREATE(
RTEMS.MESSAGE_QUEUE.CREATE(
SPTEST.QUEUE_NAME( 1 ),
2, -- just 2 msgs each
RTEMS.UNSIGNED32( QUEUE_SIZE ),
@@ -599,7 +596,7 @@ TEST_SUPPORT.PAUSE;
);
end if;
RTEMS.MESSAGE_QUEUE_DELETE( SPTEST.QUEUE_ID( 1 ), STATUS );
RTEMS.MESSAGE_QUEUE.DELETE( SPTEST.QUEUE_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "message_queue_delete" );
end loop;
@@ -608,7 +605,7 @@ TEST_SUPPORT.PAUSE;
);
for QUEUE_SIZE in 1 .. 1029 loop
RTEMS.MESSAGE_QUEUE_CREATE(
RTEMS.MESSAGE_QUEUE.CREATE(
SPTEST.QUEUE_NAME( 1 ),
2, -- just 2 msgs each
RTEMS.UNSIGNED32( QUEUE_SIZE ),
@@ -622,7 +619,7 @@ TEST_SUPPORT.PAUSE;
BIG_RECEIVE_BUFFER := (others => CHARACTER'POS( 'Z' ));
-- send a msg too big
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 1 ),
BIG_SEND_BUFFER_POINTER,
RTEMS.UNSIGNED32( QUEUE_SIZE + 1 ),
@@ -633,7 +630,7 @@ TEST_SUPPORT.PAUSE;
);
-- send a msg that is just right
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 1 ),
BIG_SEND_BUFFER_POINTER,
RTEMS.UNSIGNED32( QUEUE_SIZE ),
@@ -644,7 +641,8 @@ TEST_SUPPORT.PAUSE;
);
-- now read and verify the message just sent
RTEMS.MESSAGE_QUEUE_RECEIVE(
SIZE := INTERFACES.UNSIGNED_32(QUEUE_SIZE);
RTEMS.MESSAGE_QUEUE.RECEIVE(
SPTEST.QUEUE_ID( 1 ),
BIG_RECEIVE_BUFFER_POINTER,
RTEMS.DEFAULT_OPTIONS,
@@ -678,7 +676,7 @@ TEST_SUPPORT.PAUSE;
end loop;
-- all done with this one; delete it
RTEMS.MESSAGE_QUEUE_DELETE( SPTEST.QUEUE_ID( 1 ), STATUS );
RTEMS.MESSAGE_QUEUE.DELETE( SPTEST.QUEUE_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "message_queue_delete" );
end loop;
@@ -687,18 +685,17 @@ TEST_SUPPORT.PAUSE;
end TASK_1;
--PAGE
--
-- TASK_2
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : SPTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -708,7 +705,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA2 - message_queue_receive - receive from queue 1 - NO_WAIT"
);
RTEMS.MESSAGE_QUEUE_RECEIVE(
RTEMS.MESSAGE_QUEUE.RECEIVE(
SPTEST.QUEUE_ID( 1 ),
BUFFER_POINTER,
RTEMS.NO_WAIT,
@@ -724,7 +721,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA2 - message_queue_receive - receive from queue 1 - WAIT FOREVER"
);
RTEMS.MESSAGE_QUEUE_RECEIVE(
RTEMS.MESSAGE_QUEUE.RECEIVE(
SPTEST.QUEUE_ID( 1 ),
BUFFER_POINTER,
RTEMS.DEFAULT_OPTIONS,
@@ -740,7 +737,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA2 - message_queue_receive - receive from queue 1 - WAIT FOREVER"
);
RTEMS.MESSAGE_QUEUE_RECEIVE(
RTEMS.MESSAGE_QUEUE.RECEIVE(
SPTEST.QUEUE_ID( 1 ),
BUFFER_POINTER,
RTEMS.DEFAULT_OPTIONS,
@@ -756,7 +753,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA2 - task_set_priority - make self highest priority task"
);
RTEMS.TASK_SET_PRIORITY(
RTEMS.TASKS.SET_PRIORITY(
RTEMS.SELF,
3,
PREVIOUS_PRIORITY,
@@ -767,7 +764,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA2 - message_queue_receive - receive from queue 2 - WAIT FOREVER"
);
RTEMS.MESSAGE_QUEUE_RECEIVE(
RTEMS.MESSAGE_QUEUE.RECEIVE(
SPTEST.QUEUE_ID( 2 ),
BUFFER_POINTER,
RTEMS.DEFAULT_OPTIONS,
@@ -782,7 +779,7 @@ TEST_SUPPORT.PAUSE;
SPTEST.FILL_BUFFER( "BUFFER 2 TO Q 2 ", BUFFER );
TEXT_IO.PUT_LINE( "TA2 - message_queue_send - BUFFER 2 TO Q 2" );
RTEMS.MESSAGE_QUEUE_SEND(
RTEMS.MESSAGE_QUEUE.SEND(
SPTEST.QUEUE_ID( 2 ),
BUFFER_POINTER,
16,
@@ -793,7 +790,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA2 - message_queue_receive - receive from queue 1 - 10 second timeout"
);
RTEMS.MESSAGE_QUEUE_RECEIVE(
RTEMS.MESSAGE_QUEUE.RECEIVE(
SPTEST.QUEUE_ID( 1 ),
BUFFER_POINTER,
RTEMS.DEFAULT_OPTIONS,
@@ -809,7 +806,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA2 - message_queue_receive - receive from queue 3 - WAIT FOREVER"
);
RTEMS.MESSAGE_QUEUE_RECEIVE(
RTEMS.MESSAGE_QUEUE.RECEIVE(
SPTEST.QUEUE_ID( 3 ),
BUFFER_POINTER,
RTEMS.DEFAULT_OPTIONS,
@@ -824,13 +821,12 @@ TEST_SUPPORT.PAUSE;
end TASK_2;
--PAGE
--
-- TASK_3
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
BUFFER : SPTEST.BUFFER;
@@ -845,7 +841,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA3 - message_queue_receive - receive from queue 2 - WAIT FOREVER"
);
RTEMS.MESSAGE_QUEUE_RECEIVE(
RTEMS.MESSAGE_QUEUE.RECEIVE(
SPTEST.QUEUE_ID( 2 ),
BUFFER_POINTER,
RTEMS.DEFAULT_OPTIONS,
@@ -860,7 +856,7 @@ TEST_SUPPORT.PAUSE;
SPTEST.FILL_BUFFER( "BUFFER 3 TO Q 1 ", BUFFER );
TEXT_IO.PUT_LINE( "TA3 - message_queue_broadcast - BUFFER 3 TO Q 1" );
RTEMS.MESSAGE_QUEUE_BROADCAST(
RTEMS.MESSAGE_QUEUE.BROADCAST(
SPTEST.QUEUE_ID( 1 ),
BUFFER_POINTER,
16,
@@ -875,7 +871,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA3 - message_queue_receive - receive from queue 3 - WAIT FOREVER"
);
RTEMS.MESSAGE_QUEUE_RECEIVE(
RTEMS.MESSAGE_QUEUE.RECEIVE(
SPTEST.QUEUE_ID( 3 ),
BUFFER_POINTER,
RTEMS.DEFAULT_OPTIONS,
@@ -889,7 +885,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA3 - task_delete - delete self" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end TASK_3;

11
c/src/ada-tests/sptests/sp13/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -62,7 +63,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -102,7 +103,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
@@ -115,7 +116,7 @@ package SPTEST is
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_2);
@@ -128,7 +129,7 @@ package SPTEST is
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_3);

7
c/src/ada-tests/sptests/sp14/sp14.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP14 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

59
c/src/ada-tests/sptests/sp14/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -25,16 +25,17 @@ with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
with INTERFACES; use INTERFACES;
with RTEMS.TIMER;
with RTEMS.SIGNAL;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -46,7 +47,7 @@ package body SPTEST is
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
1,
RTEMS.MINIMUM_STACK_SIZE * 2,
@@ -57,7 +58,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
1,
RTEMS.MINIMUM_STACK_SIZE * 2,
@@ -68,7 +69,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -76,7 +77,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_2'ACCESS,
0,
@@ -86,19 +87,18 @@ package body SPTEST is
SPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
RTEMS.TIMER_CREATE(
RTEMS.TIMER.CREATE(
SPTEST.TIMER_NAME( 1 ),
SPTEST.TIMER_ID( 1 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE OF TM1" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- SIGNAL_3_TO_TASK_1
--
@@ -110,7 +110,7 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.SIGNAL_SEND( SPTEST.TASK_ID( 1 ), RTEMS.SIGNAL_3, STATUS );
RTEMS.SIGNAL.SEND( SPTEST.TASK_ID( 1 ), RTEMS.SIGNAL_3, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_SEND of 3" );
SPTEST.TIMER_GOT_THIS_ID := ID;
@@ -120,13 +120,12 @@ package body SPTEST is
end SIGNAL_3_TO_TASK_1;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
PREVIOUS_MODE : RTEMS.MODE;
@@ -134,7 +133,7 @@ package body SPTEST is
begin
TEXT_IO.PUT_LINE( "TA1 - signal_catch - INTERRUPT_LEVEL( 3 )" );
RTEMS.SIGNAL_CATCH(
RTEMS.SIGNAL.CATCH(
SPTEST.PROCESS_ASR'ACCESS,
RTEMS.INTERRUPT_LEVEL( 3 ),
STATUS
@@ -142,34 +141,34 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_CATCH INTERRUPT(3)" );
TEXT_IO.PUT_LINE( "TA1 - signal_send - SIGNAL_16 to self" );
RTEMS.SIGNAL_SEND( RTEMS.SELF, RTEMS.SIGNAL_16, STATUS );
RTEMS.SIGNAL.SEND( RTEMS.SELF, RTEMS.SIGNAL_16, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED(
STATUS,
"SIGNAL_SEND - SIGNAL_16 to SELF"
);
TEXT_IO.PUT_LINE( "TA1 - signal_send - SIGNAL_0 to self" );
RTEMS.SIGNAL_SEND( RTEMS.SELF, RTEMS.SIGNAL_0, STATUS );
RTEMS.SIGNAL.SEND( RTEMS.SELF, RTEMS.SIGNAL_0, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED(
STATUS,
"SIGNAL_SEND - SIGNAL_0 to SELF"
);
TEXT_IO.PUT_LINE( "TA1 - signal_catch - NO_ASR" );
RTEMS.SIGNAL_CATCH(SPTEST.PROCESS_ASR'ACCESS, RTEMS.NO_ASR, STATUS);
RTEMS.SIGNAL.CATCH(SPTEST.PROCESS_ASR'ACCESS, RTEMS.NO_ASR, STATUS);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_CATCH - NO_ASR" );
TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA1 - signal_send - SIGNAL_1 to self" );
RTEMS.SIGNAL_SEND( RTEMS.SELF, RTEMS.SIGNAL_1, STATUS );
RTEMS.SIGNAL.SEND( RTEMS.SELF, RTEMS.SIGNAL_1, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED(
STATUS,
"SIGNAL_SEND - SIGNAL_1 to SELF"
);
TEXT_IO.PUT_LINE( "TA1 - task_mode - disable ASRs" );
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.NO_ASR,
RTEMS.ASR_MASK,
PREVIOUS_MODE,
@@ -181,7 +180,7 @@ package body SPTEST is
SPTEST.TIMER_GOT_THIS_POINTER := RTEMS.NULL_ADDRESS;
TEXT_IO.PUT_LINE( "TA1 - sending signal to SELF from timer" );
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
SPTEST.TIMER_ID( 1 ),
TEST_SUPPORT.TICKS_PER_SECOND / 2,
SPTEST.SIGNAL_3_TO_TASK_1'ACCESS,
@@ -220,7 +219,7 @@ package body SPTEST is
end if;
TEXT_IO.PUT_LINE( "TA1 - task_mode - enable ASRs" );
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.ASR,
RTEMS.ASR_MASK,
PREVIOUS_MODE,
@@ -229,45 +228,44 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
TEXT_IO.PUT_LINE( "TA1 - signal_catch - ASR ADDRESS of NULL" );
RTEMS.SIGNAL_CATCH( NULL, RTEMS.DEFAULT_MODES, STATUS );
RTEMS.SIGNAL.CATCH( NULL, RTEMS.DEFAULT_MODES, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED(
STATUS,
"SIGNAL_CATCH - NULL ADDRESS"
);
TEXT_IO.PUT_LINE( "TA1 - task_delete - delete self" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end TASK_1;
--PAGE
--
-- TASK_2
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
TEXT_IO.PUT_LINE( "TA2 - signal_send - SIGNAL_17 to TA1" );
RTEMS.SIGNAL_SEND( SPTEST.TASK_ID( 1 ), RTEMS.SIGNAL_17, STATUS );
RTEMS.SIGNAL.SEND( SPTEST.TASK_ID( 1 ), RTEMS.SIGNAL_17, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED(
STATUS,
"SIGNAL_SEND - SIGNAL_17 to TA1"
);
TEXT_IO.PUT_LINE( "TA2 - task_wake_after - yield processor" );
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER YIELD" );
TEXT_IO.PUT_LINE(
"TA2 - signal_send - SIGNAL_18 and SIGNAL_19 to TA1"
);
RTEMS.SIGNAL_SEND(
RTEMS.SIGNAL.SEND(
SPTEST.TASK_ID( 1 ),
RTEMS.SIGNAL_18 + RTEMS.SIGNAL_19,
STATUS
@@ -278,7 +276,7 @@ package body SPTEST is
);
TEXT_IO.PUT_LINE( "TA2 - task_wake_after - yield processor" );
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER YIELD" );
TEXT_IO.PUT_LINE( "*** END OF TEST 14 ***" );
@@ -286,7 +284,6 @@ package body SPTEST is
end TASK_2;
--PAGE
--
-- PROCESS_ASR
--
@@ -309,7 +306,7 @@ package body SPTEST is
elsif THE_SIGNAL_SET = RTEMS.SIGNAL_0 or else
THE_SIGNAL_SET = RTEMS.SIGNAL_1 then
TEXT_IO.PUT_LINE( "ASR - task_wake_after - yield processor" );
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED(
STATUS,
"TASK_WAKE_AFTER YIELD"

9
c/src/ada-tests/sptests/sp14/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -75,7 +76,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -115,7 +116,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
@@ -128,7 +129,7 @@ package SPTEST is
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_2);

7
c/src/ada-tests/sptests/sp15/sp15.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP15 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

45
c/src/ada-tests/sptests/sp15/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -23,16 +23,16 @@
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
with RTEMS.PARTITION;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -46,7 +46,7 @@ package body SPTEST is
SPTEST.PARTITION_NAME( 1 ) := RTEMS.BUILD_NAME( 'P', 'T', '1', ' ' );
SPTEST.PARTITION_NAME( 2 ) := RTEMS.BUILD_NAME( 'P', 'T', '2', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
4,
2048,
@@ -57,7 +57,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -66,7 +66,7 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
TEXT_IO.PUT_LINE( "INIT - partition_create - partition 1" );
RTEMS.PARTITION_CREATE(
RTEMS.PARTITION.CREATE(
SPTEST.PARTITION_NAME( 1 ),
AREA_1'ADDRESS,
4096,
@@ -78,7 +78,7 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_CREATE OF PT1" );
TEXT_IO.PUT_LINE( "INIT - partition_create - partition 2" );
RTEMS.PARTITION_CREATE(
RTEMS.PARTITION.CREATE(
SPTEST.PARTITION_NAME( 2 ),
AREA_2'ADDRESS,
274,
@@ -89,12 +89,11 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_CREATE OF PT2" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- PUT_ADDRESS_FROM_AREA_1
--
@@ -113,7 +112,6 @@ package body SPTEST is
end PUT_ADDRESS_FROM_AREA_1;
--PAGE
--
-- PUT_ADDRESS_FROM_AREA_2
--
@@ -131,13 +129,12 @@ package body SPTEST is
end PUT_ADDRESS_FROM_AREA_2;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
PTID_1 : RTEMS.ID;
@@ -150,7 +147,7 @@ package body SPTEST is
begin
TEXT_IO.PUT( "TA1 - partition_ident - partition 1 id = " );
RTEMS.PARTITION_IDENT(
RTEMS.PARTITION.IDENT(
SPTEST.PARTITION_NAME( 1 ),
RTEMS.SEARCH_ALL_NODES,
PTID_1,
@@ -161,7 +158,7 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
TEXT_IO.PUT( "TA1 - partition_ident - partition 2 id = " );
RTEMS.PARTITION_IDENT(
RTEMS.PARTITION.IDENT(
SPTEST.PARTITION_NAME( 2 ),
RTEMS.SEARCH_ALL_NODES,
PTID_2,
@@ -174,7 +171,7 @@ package body SPTEST is
TEXT_IO.PUT(
"TA1 - partition_get_buffer - get buffer 1 from partition 1 - "
);
RTEMS.PARTITION_GET_BUFFER(
RTEMS.PARTITION.GET_BUFFER(
SPTEST.PARTITION_ID( 1 ),
BUFFER_ADDRESS_1,
STATUS
@@ -186,7 +183,7 @@ package body SPTEST is
TEXT_IO.PUT(
"TA1 - partition_get_buffer - get buffer 2 from partition 1 - "
);
RTEMS.PARTITION_GET_BUFFER(
RTEMS.PARTITION.GET_BUFFER(
SPTEST.PARTITION_ID( 1 ),
BUFFER_ADDRESS_2,
STATUS
@@ -198,7 +195,7 @@ package body SPTEST is
TEXT_IO.PUT(
"TA1 - partition_get_buffer - get buffer 1 from partition 2 - "
);
RTEMS.PARTITION_GET_BUFFER(
RTEMS.PARTITION.GET_BUFFER(
SPTEST.PARTITION_ID( 2 ),
BUFFER_ADDRESS_3,
STATUS
@@ -210,7 +207,7 @@ package body SPTEST is
TEXT_IO.PUT(
"TA1 - partition_get_buffer - get buffer 2 from partition 2 - "
);
RTEMS.PARTITION_GET_BUFFER(
RTEMS.PARTITION.GET_BUFFER(
SPTEST.PARTITION_ID( 2 ),
BUFFER_ADDRESS_4,
STATUS
@@ -224,7 +221,7 @@ package body SPTEST is
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( BUFFER_ADDRESS_1 );
TEXT_IO.NEW_LINE;
RTEMS.PARTITION_RETURN_BUFFER(
RTEMS.PARTITION.RETURN_BUFFER(
SPTEST.PARTITION_ID( 1 ),
BUFFER_ADDRESS_1,
STATUS
@@ -236,7 +233,7 @@ package body SPTEST is
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( BUFFER_ADDRESS_2 );
TEXT_IO.NEW_LINE;
RTEMS.PARTITION_RETURN_BUFFER(
RTEMS.PARTITION.RETURN_BUFFER(
SPTEST.PARTITION_ID( 1 ),
BUFFER_ADDRESS_2,
STATUS
@@ -248,7 +245,7 @@ package body SPTEST is
);
SPTEST.PUT_ADDRESS_FROM_AREA_2( BUFFER_ADDRESS_3 );
TEXT_IO.NEW_LINE;
RTEMS.PARTITION_RETURN_BUFFER(
RTEMS.PARTITION.RETURN_BUFFER(
SPTEST.PARTITION_ID( 2 ),
BUFFER_ADDRESS_3,
STATUS
@@ -260,7 +257,7 @@ package body SPTEST is
);
SPTEST.PUT_ADDRESS_FROM_AREA_2( BUFFER_ADDRESS_4 );
TEXT_IO.NEW_LINE;
RTEMS.PARTITION_RETURN_BUFFER(
RTEMS.PARTITION.RETURN_BUFFER(
SPTEST.PARTITION_ID( 2 ),
BUFFER_ADDRESS_4,
STATUS
@@ -268,11 +265,11 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_RETURN_BUFFER" );
TEXT_IO.PUT_LINE( "TA1 - partition_delete - delete partition 1" );
RTEMS.PARTITION_DELETE( SPTEST.PARTITION_ID( 1 ), STATUS );
RTEMS.PARTITION.DELETE( SPTEST.PARTITION_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_DELETE OF SELF" );
TEXT_IO.PUT_LINE( "TA1 - partition_delete - delete partition 2" );
RTEMS.PARTITION_DELETE( SPTEST.PARTITION_ID( 2 ), STATUS );
RTEMS.PARTITION.DELETE( SPTEST.PARTITION_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_DELETE OF SELF" );
TEXT_IO.PUT_LINE( "*** END OF TEST 15 ***" );

7
c/src/ada-tests/sptests/sp15/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -61,7 +62,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -112,7 +113,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);

7
c/src/ada-tests/sptests/sp16/sp16.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP16 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

145
c/src/ada-tests/sptests/sp16/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -24,16 +24,16 @@ with INTERFACES; use INTERFACES;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
with RTEMS.REGION;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -48,7 +48,7 @@ package body SPTEST is
SPTEST.TASK_NAME( 4 ) := RTEMS.BUILD_NAME( 'T', 'A', '4', ' ' );
SPTEST.TASK_NAME( 5 ) := RTEMS.BUILD_NAME( 'T', 'A', '5', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
SPTEST.BASE_PRIORITY,
2048,
@@ -59,7 +59,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
SPTEST.BASE_PRIORITY,
2048,
@@ -70,7 +70,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 3 ),
SPTEST.BASE_PRIORITY,
2048,
@@ -81,7 +81,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -89,7 +89,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_2'ACCESS,
0,
@@ -97,7 +97,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 3 ),
SPTEST.TASK_3'ACCESS,
0,
@@ -110,7 +110,7 @@ package body SPTEST is
SPTEST.REGION_NAME( 3 ) := RTEMS.BUILD_NAME( 'R', 'N', '3', ' ' );
SPTEST.REGION_NAME( 4 ) := RTEMS.BUILD_NAME( 'R', 'N', '4', ' ' );
RTEMS.REGION_CREATE(
RTEMS.REGION.CREATE(
SPTEST.REGION_NAME( 1 ),
SPTEST.AREA_1'ADDRESS,
4096,
@@ -121,7 +121,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_CREATE OF RN1" );
RTEMS.REGION_CREATE(
RTEMS.REGION.CREATE(
SPTEST.REGION_NAME( 2 ),
SPTEST.AREA_2'ADDRESS,
4096,
@@ -132,7 +132,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_CREATE OF RN2" );
RTEMS.REGION_CREATE(
RTEMS.REGION.CREATE(
SPTEST.REGION_NAME( 3 ),
SPTEST.AREA_3'ADDRESS,
4096,
@@ -143,7 +143,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_CREATE OF RN3" );
RTEMS.REGION_CREATE(
RTEMS.REGION.CREATE(
SPTEST.REGION_NAME( 4 ),
SPTEST.AREA_4'ADDRESS,
4096,
@@ -154,12 +154,11 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_CREATE OF RN4" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- PUT_ADDRESS_FROM_AREA_1
--
@@ -178,7 +177,6 @@ package body SPTEST is
end PUT_ADDRESS_FROM_AREA_1;
--PAGE
--
-- PUT_ADDRESS_FROM_AREA_2
--
@@ -196,7 +194,6 @@ package body SPTEST is
end PUT_ADDRESS_FROM_AREA_2;
--PAGE
--
-- PUT_ADDRESS_FROM_AREA_3
--
@@ -214,7 +211,6 @@ package body SPTEST is
end PUT_ADDRESS_FROM_AREA_3;
--PAGE
--
-- PUT_ADDRESS_FROM_AREA_4
--
@@ -232,13 +228,12 @@ package body SPTEST is
end PUT_ADDRESS_FROM_AREA_4;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
RNID : RTEMS.ID;
@@ -249,7 +244,7 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.REGION_IDENT( SPTEST.REGION_NAME( 1 ), RNID, STATUS );
RTEMS.REGION.IDENT( SPTEST.REGION_NAME( 1 ), RNID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_IDENT OF RN1" );
TEXT_IO.PUT( "TA1 - region_ident - rnid => " );
UNSIGNED32_IO.PUT( RNID, WIDTH => 8, BASE => 16 );
@@ -257,7 +252,7 @@ package body SPTEST is
TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
TEXT_IO.PUT_LINE( "100 byte segment from region 2" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 2 ),
100,
RTEMS.DEFAULT_OPTIONS,
@@ -272,7 +267,7 @@ package body SPTEST is
TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
TEXT_IO.PUT_LINE( "3K segment from region 3" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 3 ),
3072,
RTEMS.DEFAULT_OPTIONS,
@@ -287,7 +282,7 @@ package body SPTEST is
TEXT_IO.PUT( "TA1 - region_get_segment - get 3080 byte segment " );
TEXT_IO.PUT_LINE( "from region 1 - NO_WAIT" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
3080,
RTEMS.NO_WAIT,
@@ -301,7 +296,7 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - yield processor" );
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEST_SUPPORT.PAUSE;
@@ -310,7 +305,7 @@ TEST_SUPPORT.PAUSE;
"TA1 - region_return_segment - return segment to region 1 - "
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_3 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_3,
STATUS
@@ -320,7 +315,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT( "TA1 - region_get_segment - wait 10 seconds for 3K " );
TEXT_IO.PUT_LINE( "segment from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
3072,
RTEMS.DEFAULT_OPTIONS,
@@ -338,7 +333,7 @@ TEST_SUPPORT.PAUSE;
);
SPTEST.PUT_ADDRESS_FROM_AREA_2( SEGMENT_ADDRESS_1 );
TEXT_IO.NEW_LINE;
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 2 ),
SEGMENT_ADDRESS_1,
STATUS
@@ -346,16 +341,16 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_RETURN_SEGMENT" );
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - yield processor" );
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT_LINE( "TA1 - task_delete - delete TA3" );
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 3 ), STATUS );
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 3 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
TEST_SUPPORT.PAUSE;
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 4 ),
SPTEST.BASE_PRIORITY,
2048,
@@ -366,7 +361,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA4" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 5 ),
SPTEST.BASE_PRIORITY,
2048,
@@ -377,7 +372,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA5" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 4 ),
SPTEST.TASK_4'ACCESS,
0,
@@ -385,7 +380,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA4" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 5 ),
SPTEST.TASK_5'ACCESS,
0,
@@ -394,14 +389,14 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA5" );
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - yield processor" );
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT(
"TA1 - region_return_segment - return segment to region 1 - "
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_4 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_4,
STATUS
@@ -410,12 +405,12 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - yield processor" );
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT( "TA1 - region_get_segment - wait 10 seconds for 3K " );
TEXT_IO.PUT_LINE( "segment from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
3072,
RTEMS.DEFAULT_OPTIONS,
@@ -429,18 +424,18 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - yield processor" );
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT_LINE( "TA1 - task_delete - delete TA4" );
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 4 ), STATUS );
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 4 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA4" );
TEXT_IO.PUT(
"TA1 - region_return_segment - return segment to region 1 - "
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_4 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_4,
STATUS
@@ -449,17 +444,17 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - yield processor" );
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT_LINE( "TA1 - region_delete - delete region 1" );
RTEMS.REGION_DELETE( SPTEST.REGION_ID( 1 ), STATUS );
RTEMS.REGION.DELETE( SPTEST.REGION_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_DELETE OF RN1" );
--XXX
TEXT_IO.PUT_LINE(
"TA1 - region_get_segment - get 3K segment from region 4"
);
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 4 ),
3072,
RTEMS.DEFAULT_OPTIONS,
@@ -475,7 +470,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA1 - region_get_segment - attempt to get 3K segment from region 4"
);
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 4 ),
3072,
RTEMS.NO_WAIT,
@@ -491,7 +486,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE( "TA1 - task_get_note - UNSATISFIED" );
TEXT_IO.PUT_LINE( "TA1 - region_extend - extend region 4 by 4K" );
RTEMS.REGION_EXTEND(
RTEMS.REGION.EXTEND(
SPTEST.REGION_ID( 4 ),
SPTEST.AREA_4( 4096 )'ADDRESS,
4096,
@@ -502,7 +497,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA1 - region_get_segment - attempt to get 3K segment from region 4"
);
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 4 ),
3072,
RTEMS.NO_WAIT,
@@ -519,7 +514,7 @@ TEST_SUPPORT.PAUSE;
"TA1 - return_segment - return segment to region 4 - "
);
PUT_ADDRESS_FROM_AREA_4( segment_address_1 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 4 ), segment_address_1, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_return_segment" );
TEXT_IO.NEW_LINE;
@@ -528,13 +523,13 @@ TEST_SUPPORT.PAUSE;
"TA1 - region_return_segment - return segment to region 4 - "
);
PUT_ADDRESS_FROM_AREA_4( segment_address_3 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 4 ), segment_address_3, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_return_segment" );
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - region_delete - delete region 4" );
RTEMS.REGION_DELETE( SPTEST.REGION_ID( 4 ), STATUS );
RTEMS.REGION.DELETE( SPTEST.REGION_ID( 4 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_delete" );
TEXT_IO.PUT_LINE( "*** END OF TEST 16 ***" );
@@ -542,16 +537,15 @@ TEST_SUPPORT.PAUSE;
end TASK_1;
--PAGE
--
-- TASK_2
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
SEGMENT_ADDRESS_2 : RTEMS.ADDRESS;
STATUS : RTEMS.STATUS_CODES;
@@ -559,7 +553,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT( "TA2 - region_get_segment - wait on 2K segment " );
TEXT_IO.PUT_LINE( "from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
2048,
RTEMS.DEFAULT_OPTIONS,
@@ -576,7 +570,7 @@ TEST_SUPPORT.PAUSE;
"TA2 - region_return_segment - return segment to region 1 - "
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_1 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_1,
STATUS
@@ -586,7 +580,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT( "TA2 - task_set_priority - make self " );
TEXT_IO.PUT_LINE( "highest priority task" );
RTEMS.TASK_SET_PRIORITY(
RTEMS.TASKS.SET_PRIORITY(
RTEMS.SELF,
SPTEST.BASE_PRIORITY - 1,
PREVIOUS_PRIORITY,
@@ -598,7 +592,7 @@ TEST_SUPPORT.PAUSE;
"TA2 - region_get_segment - wait on 3950 byte segment "
);
TEXT_IO.PUT_LINE( "from region 2" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 2 ),
3950,
RTEMS.DEFAULT_OPTIONS,
@@ -615,7 +609,7 @@ TEST_SUPPORT.PAUSE;
"TA2 - region_return_segment - return segment to region 2 - "
);
SPTEST.PUT_ADDRESS_FROM_AREA_2( SEGMENT_ADDRESS_2 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 2 ),
SEGMENT_ADDRESS_2,
STATUS
@@ -624,18 +618,17 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA2 - task_delete - delete self" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
end TASK_2;
--PAGE
--
-- TASK_3
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
@@ -645,7 +638,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT( "TA3 - region_get_segment - wait on 3950 byte segment " );
TEXT_IO.PUT_LINE( "from region 2" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 2 ),
3950,
RTEMS.DEFAULT_OPTIONS,
@@ -660,7 +653,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT( "TA3 - region_get_segment - wait on 2K segment " );
TEXT_IO.PUT_LINE( "from region 3" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 3 ),
2048,
RTEMS.DEFAULT_OPTIONS,
@@ -672,13 +665,12 @@ TEST_SUPPORT.PAUSE;
end TASK_3;
--PAGE
--
-- TASK_4
--
procedure TASK_4 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
@@ -688,7 +680,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT( "TA4 - region_get_segment - wait on 1.5K segment " );
TEXT_IO.PUT_LINE( "from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
1536,
RTEMS.DEFAULT_OPTIONS,
@@ -698,7 +690,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_1,
STATUS
@@ -708,12 +700,12 @@ TEST_SUPPORT.PAUSE;
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_1 );
TEXT_IO.NEW_LINE;
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT( "TA4 - region_get_segment - wait on 3K segment " );
TEXT_IO.PUT_LINE( "from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
3072,
RTEMS.DEFAULT_OPTIONS,
@@ -725,13 +717,12 @@ TEST_SUPPORT.PAUSE;
end TASK_4;
--PAGE
--
-- TASK_5
--
procedure TASK_5 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
SEGMENT_ADDRESS_1 : RTEMS.ADDRESS;
@@ -741,7 +732,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT( "TA5 - region_get_segment - wait on 1.5K segment " );
TEXT_IO.PUT_LINE( "from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
1536,
RTEMS.DEFAULT_OPTIONS,
@@ -751,7 +742,7 @@ TEST_SUPPORT.PAUSE;
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_GET_SEGMENT" );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_1,
STATUS
@@ -761,12 +752,12 @@ TEST_SUPPORT.PAUSE;
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_1 );
TEXT_IO.NEW_LINE;
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT( "TA5 - region_get_segment - wait on 3K segment " );
TEXT_IO.PUT_LINE( "from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
3072,
RTEMS.DEFAULT_OPTIONS,
@@ -779,7 +770,7 @@ TEST_SUPPORT.PAUSE;
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_2 );
TEXT_IO.NEW_LINE;
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_2,
STATUS
@@ -792,7 +783,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA5 - task_delete - delete self" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA5" );
end TASK_5;

17
c/src/ada-tests/sptests/sp16/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -46,7 +47,7 @@ package SPTEST is
-- easily set itself to a higher priority than the rest.
--
BASE_PRIORITY : constant RTEMS.TASK_PRIORITY := 140;
BASE_PRIORITY : constant RTEMS.TASKS.PRIORITY := 140;
--
-- These arrays define the memory areas used for the regions in
@@ -74,7 +75,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -144,7 +145,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
@@ -157,7 +158,7 @@ package SPTEST is
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_2);
@@ -170,7 +171,7 @@ package SPTEST is
--
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_3);
@@ -183,7 +184,7 @@ package SPTEST is
--
procedure TASK_4 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_4);
@@ -196,7 +197,7 @@ package SPTEST is
--
procedure TASK_5 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_5);

7
c/src/ada-tests/sptests/sp17/sp17.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP17 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

33
c/src/ada-tests/sptests/sp17/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -23,16 +23,16 @@
with INTERFACES; use INTERFACES;
with TEST_SUPPORT;
with TEXT_IO;
with RTEMS.SIGNAL;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -46,7 +46,7 @@ package body SPTEST is
SPTEST.TASK_2_PREEMPTED := FALSE;
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
2,
2048,
@@ -57,7 +57,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
1,
2048,
@@ -68,7 +68,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -76,7 +76,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_2'ACCESS,
0,
@@ -84,12 +84,11 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- PROCESS_ASR
--
@@ -101,25 +100,24 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_RESUME( SPTEST.TASK_ID( 2 ), STATUS );
RTEMS.TASKS.RESUME( SPTEST.TASK_ID( 2 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "ASR - TASK_RESUME OF TA2" );
end PROCESS_ASR;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
TEXT_IO.PUT_LINE( "TA1 - signal_catch: initializing signal catcher" );
RTEMS.SIGNAL_CATCH(
RTEMS.SIGNAL.CATCH(
SPTEST.PROCESS_ASR'ACCESS,
RTEMS.NO_ASR + RTEMS.NO_PREEMPT,
STATUS
@@ -127,7 +125,7 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_CATCH" );
TEXT_IO.PUT_LINE( "TA1 - Sending signal to self" );
RTEMS.SIGNAL_SEND(
RTEMS.SIGNAL.SEND(
SPTEST.TASK_ID( 1 ),
RTEMS.SIGNAL_16,
STATUS
@@ -145,13 +143,12 @@ package body SPTEST is
end TASK_1;
--PAGE
--
-- TASK_2
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -160,14 +157,14 @@ package body SPTEST is
SPTEST.TASK_2_PREEMPTED := FALSE;
TEXT_IO.PUT_LINE( "TA2 - Suspending self" );
RTEMS.TASK_SUSPEND( RTEMS.SELF, STATUS );
RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
TEXT_IO.PUT_LINE( "TA2 - signal_return preempted correctly" );
SPTEST.TASK_2_PREEMPTED := TRUE;
RTEMS.TASK_SUSPEND( RTEMS.SELF, STATUS );
RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
end TASK_2;

9
c/src/ada-tests/sptests/sp17/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -47,7 +48,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -76,7 +77,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
@@ -89,7 +90,7 @@ package SPTEST is
--
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_2);

7
c/src/ada-tests/sptests/sp19/sp19.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP19 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

69
c/src/ada-tests/sptests/sp19/sptest.adp
View File

@@ -21,20 +21,21 @@ with FLOAT_IO;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
with RTEMS.CLOCK;
include(../../support/fp.inc)
include(../../support/integer.inc)
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -48,7 +49,7 @@ package body SPTEST is
SPTEST.TASK_NAME( 5 ) := RTEMS.BUILD_NAME( 'T', 'A', '5', ' ' );
SPTEST.TASK_NAME( 6 ) := RTEMS.BUILD_NAME( 'F', 'P', '1', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
2,
2048,
@@ -59,7 +60,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 2 ),
2,
2048,
@@ -70,7 +71,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 3 ),
2,
2048,
@@ -81,7 +82,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 4 ),
2,
2048,
@@ -92,7 +93,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA4" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 5 ),
2,
2048,
@@ -103,7 +104,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA5" );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 6 ),
1,
2048,
@@ -114,7 +115,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF FP1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 6 ),
SPTEST.FIRST_FP_TASK'ACCESS,
0,
@@ -122,7 +123,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF FP1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -130,7 +131,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 2 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -138,7 +139,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 3 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -146,7 +147,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 4 ),
SPTEST.FP_TASK'ACCESS,
0,
@@ -154,7 +155,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA4" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 5 ),
SPTEST.FP_TASK'ACCESS,
0,
@@ -188,18 +189,17 @@ package body SPTEST is
SPTEST.INTEGER_FACTORS( 8 ) := 16#8000#;
SPTEST.INTEGER_FACTORS( 9 ) := 16#9000#;
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- FIRST_FP_TASK
--
procedure FIRST_FP_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
STATUS : RTEMS.STATUS_CODES;
TID : RTEMS.ID;
@@ -209,7 +209,7 @@ package body SPTEST is
FP_DECLARE;
begin
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
TASK_INDEX := TEST_SUPPORT.TASK_NUMBER( TID );
@@ -234,8 +234,10 @@ package body SPTEST is
FLOAT_IO.PUT( FP_FACTORS( TASK_INDEX ) );
TEXT_IO.PUT_LINE( ")" );
FP_CHECK( FP_FACTORS( TASK_INDEX ) );
INTEGER_CHECK( INTEGER_FACTORS( TASK_INDEX ) );
if ARGUMENT = 0 then
RTEMS.TASK_RESTART(
RTEMS.TASKS.RESTART(
RTEMS.SELF,
1,
STATUS
@@ -243,22 +245,21 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF SELF" );
else
TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
RTEMS.CLOCK_SET( TIME, STATUS );
RTEMS.CLOCK.SET( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end if;
end FIRST_FP_TASK;
--PAGE
--
-- FP_TASK
--
procedure FP_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -269,7 +270,7 @@ package body SPTEST is
FP_DECLARE;
begin
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
TASK_INDEX := TEST_SUPPORT.TASK_NUMBER( TID );
@@ -299,19 +300,19 @@ package body SPTEST is
loop
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
if TIME.SECOND >= 16 then
if TEST_SUPPORT.TASK_NUMBER( TID ) = 4 then
TEXT_IO.PUT_LINE( "TA4 - task_delete - self" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA4" );
end if;
TEXT_IO.PUT_LINE( "TA5 - task_delete - TA3" );
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 3 ), STATUS );
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 3 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
TEXT_IO.PUT_LINE( "*** END OF TEST 19 ***" );
@@ -329,20 +330,19 @@ package body SPTEST is
INTEGER_CHECK( INTEGER_FACTORS( TASK_INDEX ) );
FP_CHECK( FP_FACTORS( TASK_INDEX ) );
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
end loop;
end FP_TASK;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -350,14 +350,16 @@ package body SPTEST is
TIME : RTEMS.TIME_OF_DAY;
TASK_INDEX : RTEMS.UNSIGNED32;
INTEGER_DECLARE;
FP_DECLARE;
begin
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
TASK_INDEX := TEST_SUPPORT.TASK_NUMBER( TID );
INTEGER_LOAD( INTEGER_FACTORS( TASK_INDEX ) );
FP_LOAD( FP_FACTORS( TASK_INDEX ) );
TEST_SUPPORT.PUT_NAME(
SPTEST.TASK_NAME( TEST_SUPPORT.TASK_NUMBER( TID ) ),
@@ -369,7 +371,7 @@ package body SPTEST is
loop
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
TEST_SUPPORT.PUT_NAME(
@@ -381,8 +383,9 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
INTEGER_CHECK( INTEGER_FACTORS( TASK_INDEX ) );
FP_CHECK( FP_FACTORS( TASK_INDEX ) );
RTEMS.TASK_WAKE_AFTER(
RTEMS.TASKS.WAKE_AFTER(
TEST_SUPPORT.TASK_NUMBER( TID ) * 5 *
TEST_SUPPORT.TICKS_PER_SECOND,
STATUS

26
c/src/ada-tests/sptests/sp19/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -56,7 +57,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -69,7 +70,7 @@ package SPTEST is
--
procedure FIRST_FP_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, FIRST_FP_TASK);
@@ -83,7 +84,7 @@ package SPTEST is
--
procedure FP_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, FP_TASK);
@@ -98,8 +99,23 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
--
-- Add_Float
--
-- DESCRIPTION:
--
-- This method ensures the compilers thinks we are using the variables.
--
function Add_Float(
n : in Float;
factor : in Float
) return Float;
pragma Interface (C, Add_Float);
pragma Interface_Name (Add_Float, "add_float");
end SPTEST;

7
c/src/ada-tests/sptests/sp20/sp20.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP20 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
10,
RTEMS.MINIMUM_STACK_SIZE,
@@ -39,7 +40,7 @@ begin
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

43
c/src/ada-tests/sptests/sp20/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -24,16 +24,17 @@ with INTERFACES; use INTERFACES;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
with RTEMS.CLOCK;
with RTEMS.RATE_MONOTONIC;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -54,7 +55,7 @@ package body SPTEST is
SPTEST.COUNT( INDEX ) := 0;
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( INDEX ),
SPTEST.PRIORITIES( INDEX ),
4096,
@@ -70,28 +71,27 @@ package body SPTEST is
for INDEX in 1 .. 6
loop
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( INDEX ),
SPTEST.TASK_1_THROUGH_6'ACCESS,
RTEMS.TASK_ARGUMENT( INDEX ),
RTEMS.TASKS.ARGUMENT( INDEX ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START LOOP" );
end loop;
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- TASK_1_THROUGH_6
--
procedure TASK_1_THROUGH_6 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
RMID : RTEMS.ID;
TEST_RMID : RTEMS.ID;
@@ -103,14 +103,14 @@ package body SPTEST is
MEASURE : RTEMS.INTERVAL;
begin
RTEMS.RATE_MONOTONIC_CREATE( ARGUMENT, RMID, STATUS );
RTEMS.RATE_MONOTONIC.CREATE( ARGUMENT, RMID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "RATE_MONOTONIC_CREATE" );
TEST_SUPPORT.PUT_NAME( SPTEST.TASK_NAME( INTEGER( ARGUMENT ) ), FALSE );
TEXT_IO.PUT( "- rate_monotonic_create id = " );
UNSIGNED32_IO.PUT( RMID, WIDTH => 8, BASE => 16 );
TEXT_IO.NEW_LINE;
RTEMS.RATE_MONOTONIC_IDENT( ARGUMENT, TEST_RMID, STATUS );
RTEMS.RATE_MONOTONIC.IDENT( ARGUMENT, TEST_RMID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "RATE_MONOTONIC_IDENT" );
TEST_SUPPORT.PUT_NAME( SPTEST.TASK_NAME( INTEGER( ARGUMENT ) ), FALSE );
TEXT_IO.PUT( "- rate_monotonic_ident id = " );
@@ -132,13 +132,13 @@ package body SPTEST is
);
TEXT_IO.NEW_LINE;
RTEMS.TASK_WAKE_AFTER( 2, STATUS );
RTEMS.TASKS.WAKE_AFTER( 2, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
case ARGUMENT is
when 1 .. 4 =>
loop
RTEMS.RATE_MONOTONIC_PERIOD(
RTEMS.RATE_MONOTONIC.PERIOD(
RMID,
SPTEST.PERIODS( INTEGER( ARGUMENT ) ),
STATUS
@@ -159,7 +159,7 @@ package body SPTEST is
PASS := 0;
FAILED := 0;
RTEMS.RATE_MONOTONIC_PERIOD(
RTEMS.RATE_MONOTONIC.PERIOD(
RMID,
SPTEST.PERIODS( INTEGER( ARGUMENT ) ),
STATUS
@@ -174,7 +174,7 @@ package body SPTEST is
loop
RTEMS.RATE_MONOTONIC_PERIOD(
RTEMS.RATE_MONOTONIC.PERIOD(
RMID,
SPTEST.PERIODS( INTEGER( ARGUMENT ) ),
STATUS
@@ -237,14 +237,14 @@ package body SPTEST is
-- test changing periods
for INDEX in 0 .. 10 loop
PERIOD := RTEMS.INTERVAL( ( INDEX + 1 ) * 10 );
RTEMS.RATE_MONOTONIC_PERIOD( RMID, PERIOD, STATUS);
RTEMS.RATE_MONOTONIC.PERIOD( RMID, PERIOD, STATUS);
TEST_SUPPORT.DIRECTIVE_FAILED(
STATUS, "rate_monotonic_period of TA6"
);
-- timestamp
RTEMS.CLOCK_GET(
RTEMS.CLOCK_GET_TICKS_SINCE_BOOT,
RTEMS.CLOCK.GET(
RTEMS.CLOCK.GET_TICKS_SINCE_BOOT,
Time( INDEX )'ADDRESS,
STATUS
);
@@ -267,7 +267,7 @@ package body SPTEST is
end if;
end loop;
RTEMS.TASK_SUSPEND( RTEMS.SELF, STATUS );
RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED(
STATUS, "task_suspend of TA6"
);
@@ -279,7 +279,6 @@ package body SPTEST is
end TASK_1_THROUGH_6;
--PAGE
--
-- GET_ALL_COUNTERS
--
@@ -290,7 +289,7 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.NO_PREEMPT,
RTEMS.PREEMPT_MASK,
PREVIOUS_MODE,
@@ -307,7 +306,7 @@ package body SPTEST is
end loop;
RTEMS.TASK_MODE(
RTEMS.TASKS.MODE(
RTEMS.PREEMPT,
RTEMS.PREEMPT_MASK,
PREVIOUS_MODE,

7
c/src/ada-tests/sptests/sp20/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -75,7 +76,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -88,7 +89,7 @@ package SPTEST is
--
procedure TASK_1_THROUGH_6 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1_THROUGH_6);

7
c/src/ada-tests/sptests/sp22/sp22.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP22 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

64
c/src/ada-tests/sptests/sp22/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -24,16 +24,17 @@ with INTERFACES; use INTERFACES;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
with RTEMS.CLOCK;
with RTEMS.TIMER;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
@@ -45,13 +46,13 @@ package body SPTEST is
TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
RTEMS.CLOCK_SET( TIME, STATUS );
RTEMS.CLOCK.SET( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
SPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
1,
2048,
@@ -62,7 +63,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -71,7 +72,7 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
TEXT_IO.PUT_LINE( "INIT - timer_create - creating timer 1" );
RTEMS.TIMER_CREATE(
RTEMS.TIMER.CREATE(
SPTEST.TIMER_NAME( 1 ),
SPTEST.TIMER_ID( 1 ),
STATUS
@@ -81,12 +82,11 @@ package body SPTEST is
UNSIGNED32_IO.PUT( SPTEST.TIMER_ID( 1 ), WIDTH => 8, BASE => 16 );
TEXT_IO.PUT_LINE( ")" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- DELAYED_RESUME
--
@@ -100,12 +100,11 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_RESUME( SPTEST.TASK_ID( 1 ), STATUS );
RTEMS.TASKS.RESUME( SPTEST.TASK_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME OF SELF" );
end DELAYED_RESUME;
--PAGE
--
-- PRINT_TIME
--
@@ -116,7 +115,7 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
TEST_SUPPORT.PUT_NAME(
@@ -129,13 +128,12 @@ package body SPTEST is
end PRINT_TIME;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TMID : RTEMS.ID;
@@ -146,7 +144,7 @@ package body SPTEST is
-- GET ID
TEXT_IO.PUT_LINE( "TA1 - timer_ident - identing timer 1" );
RTEMS.TIMER_IDENT( SPTEST.TIMER_NAME( 1 ), TMID, STATUS );
RTEMS.TIMER.IDENT( SPTEST.TIMER_NAME( 1 ), TMID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_IDENT OF TM1" );
TEXT_IO.PUT( "TA1 - timer 1 has id (" );
UNSIGNED32_IO.PUT( SPTEST.TIMER_ID( 1 ), WIDTH => 8, BASE => 16 );
@@ -157,7 +155,7 @@ package body SPTEST is
SPTEST.PRINT_TIME;
TEXT_IO.PUT_LINE( "TA1 - timer_after - timer 1 in 3 seconds" );
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
TMID,
3 * TEST_SUPPORT.TICKS_PER_SECOND,
SPTEST.DELAYED_RESUME'ACCESS,
@@ -167,7 +165,7 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
TEXT_IO.PUT_LINE( "TA1 - task_suspend( SELF )" );
RTEMS.TASK_SUSPEND( RTEMS.SELF, STATUS );
RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
SPTEST.PRINT_TIME;
@@ -175,7 +173,7 @@ package body SPTEST is
-- AFTER WHICH IS RESET AND ALLOWED TO FIRE
TEXT_IO.PUT_LINE( "TA1 - timer_after - timer 1 in 3 seconds" );
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
TMID,
3 * TEST_SUPPORT.TICKS_PER_SECOND,
SPTEST.DELAYED_RESUME'ACCESS,
@@ -185,17 +183,17 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - 1 second" );
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
SPTEST.PRINT_TIME;
TEXT_IO.PUT_LINE( "TA1 - timer_reset - timer 1" );
RTEMS.TIMER_RESET( TMID, STATUS );
RTEMS.TIMER.RESET( TMID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_RESET" );
TEXT_IO.PUT_LINE( "TA1 - task_suspend( SELF )" );
RTEMS.TASK_SUSPEND( RTEMS.SELF, STATUS );
RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
SPTEST.PRINT_TIME;
@@ -210,13 +208,13 @@ TEST_SUPPORT.PAUSE;
TIME := ( 1988, 12, 31, 9, 0, 7, 0 );
RTEMS.CLOCK_SET( TIME, STATUS );
RTEMS.CLOCK.SET( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
-- after which is canceled
TEXT_IO.PUT_LINE( "TA1 - timer_after - timer 1 in 3 seconds" );
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
TMID,
3 * TEST_SUPPORT.TICKS_PER_SECOND,
SPTEST.DELAYED_RESUME'ACCESS,
@@ -226,20 +224,20 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
TEXT_IO.PUT_LINE( "TA1 - timer_cancel - timer 1" );
RTEMS.TIMER_CANCEL( TMID, STATUS );
RTEMS.TIMER.CANCEL( TMID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CANCEL" );
-- when which is allowed to fire
SPTEST.PRINT_TIME;
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
TIME.SECOND := TIME.SECOND + 3;
TEXT_IO.PUT_LINE( "TA1 - timer_when - timer 1 in 3 seconds" );
RTEMS.TIMER_FIRE_WHEN(
RTEMS.TIMER.FIRE_WHEN(
TMID,
TIME,
SPTEST.DELAYED_RESUME'ACCESS,
@@ -249,20 +247,20 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_WHEN" );
TEXT_IO.PUT_LINE( "TA1 - task_suspend( SELF )" );
RTEMS.TASK_SUSPEND( RTEMS.SELF, STATUS );
RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
SPTEST.PRINT_TIME;
-- when which is canceled
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
TIME.SECOND := TIME.SECOND + 3;
TEXT_IO.PUT_LINE( "TA1 - timer_when - timer 1 in 3 seconds" );
RTEMS.TIMER_FIRE_WHEN(
RTEMS.TIMER.FIRE_WHEN(
TMID,
TIME,
SPTEST.DELAYED_RESUME'ACCESS,
@@ -272,13 +270,13 @@ TEST_SUPPORT.PAUSE;
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_WHEN" );
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - 1 second" );
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
SPTEST.PRINT_TIME;
TEXT_IO.PUT_LINE( "TA1 - timer_cancel - timer 1" );
RTEMS.TIMER_CANCEL( TMID, STATUS );
RTEMS.TIMER.CANCEL( TMID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CANCEL" );
-- delete
@@ -286,11 +284,11 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA1 - task_wake_after - YIELD (only task at priority)"
);
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER YIELD" );
TEXT_IO.PUT_LINE( "TA1 - timer_delete - timer 1" );
RTEMS.TIMER_DELETE( TMID, STATUS );
RTEMS.TIMER.DELETE( TMID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_DELETE" );
TEXT_IO.PUT_LINE( "*** END OF TEST 22 ***" );

7
c/src/ada-tests/sptests/sp22/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -49,7 +50,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -87,7 +88,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);

7
c/src/ada-tests/sptests/sp23/sp23.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP23 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

29
c/src/ada-tests/sptests/sp23/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -24,16 +24,16 @@ with ADDRESS_IO;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
with RTEMS.PORT;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
INTERNAL_AREA : RTEMS.ADDRESS;
@@ -46,7 +46,7 @@ package body SPTEST is
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
1,
2048,
@@ -57,7 +57,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -69,7 +69,7 @@ package body SPTEST is
INTERNAL_AREA := SPTEST.INTERNAL_PORT_AREA( 0 )'ADDRESS;
EXTERNAL_AREA := SPTEST.EXTERNAL_PORT_AREA( 0 )'ADDRESS;
RTEMS.PORT_CREATE(
RTEMS.PORT.CREATE(
SPTEST.PORT_NAME( 1 ),
INTERNAL_AREA,
EXTERNAL_AREA,
@@ -84,18 +84,17 @@ package body SPTEST is
ADDRESS_IO.PUT( EXTERNAL_AREA, WIDTH => 8, BASE => 16 );
TEXT_IO.NEW_LINE;
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
DPID : RTEMS.ID;
@@ -104,14 +103,14 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.PORT_IDENT( SPTEST.PORT_NAME( 1 ), DPID, STATUS );
RTEMS.PORT.IDENT( SPTEST.PORT_NAME( 1 ), DPID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PORT_IDENT" );
TEXT_IO.PUT( "TA1 - port_ident - " );
UNSIGNED32_IO.PUT( DPID, WIDTH => 8, BASE => 16 );
TEXT_IO.NEW_LINE;
TO_BE_CONVERTED := SPTEST.EXTERNAL_PORT_AREA( 16#E# )'ADDRESS;
RTEMS.PORT_EXTERNAL_TO_INTERNAL(
RTEMS.PORT.EXTERNAL_TO_INTERNAL(
SPTEST.PORT_ID( 1 ),
TO_BE_CONVERTED,
CONVERTED,
@@ -125,7 +124,7 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
TO_BE_CONVERTED := SPTEST.INTERNAL_PORT_AREA( 16#E# )'ADDRESS;
RTEMS.PORT_INTERNAL_TO_EXTERNAL(
RTEMS.PORT.INTERNAL_TO_EXTERNAL(
SPTEST.PORT_ID( 1 ),
TO_BE_CONVERTED,
CONVERTED,
@@ -139,7 +138,7 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
TO_BE_CONVERTED := SPTEST.ABOVE_PORT_AREA( 16#E# )'ADDRESS;
RTEMS.PORT_EXTERNAL_TO_INTERNAL(
RTEMS.PORT.EXTERNAL_TO_INTERNAL(
SPTEST.PORT_ID( 1 ),
TO_BE_CONVERTED,
CONVERTED,
@@ -153,7 +152,7 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
TO_BE_CONVERTED := SPTEST.BELOW_PORT_AREA( 16#E# )'ADDRESS;
RTEMS.PORT_INTERNAL_TO_EXTERNAL(
RTEMS.PORT.INTERNAL_TO_EXTERNAL(
SPTEST.PORT_ID( 1 ),
TO_BE_CONVERTED,
CONVERTED,
@@ -167,7 +166,7 @@ package body SPTEST is
TEXT_IO.NEW_LINE;
TEXT_IO.PUT_LINE( "TA1 - port_delete - DP1" );
RTEMS.PORT_DELETE( SPTEST.PORT_ID( 1 ), STATUS );
RTEMS.PORT.DELETE( SPTEST.PORT_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PORT_DELETE" );
TEXT_IO.PUT_LINE( "*** END OF TEST 23 ***" );

15
c/src/ada-tests/sptests/sp23/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SYSTEM;
with System.Storage_Elements;
@@ -52,7 +53,7 @@ package SPTEST is
INTERNAL_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
of RTEMS.UNSIGNED8;
for INTERNAL_PORT_AREA use at INTERNAL_PORT_AREA_ADDRESS;
for INTERNAL_PORT_AREA'Address use INTERNAL_PORT_AREA_ADDRESS;
--
-- The following area defines a memory area to be used as the
@@ -64,7 +65,7 @@ package SPTEST is
EXTERNAL_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
of RTEMS.UNSIGNED8;
for EXTERNAL_PORT_AREA use at EXTERNAL_PORT_AREA_ADDRESS;
for EXTERNAL_PORT_AREA'Address use EXTERNAL_PORT_AREA_ADDRESS;
--
-- The following area defines a memory area to be used for
@@ -76,7 +77,7 @@ package SPTEST is
BELOW_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
of RTEMS.UNSIGNED8;
for BELOW_PORT_AREA use at BELOW_PORT_AREA_ADDRESS;
for BELOW_PORT_AREA'Address use BELOW_PORT_AREA_ADDRESS;
--
-- The following area defines a memory area to be used for
@@ -88,7 +89,7 @@ package SPTEST is
ABOVE_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
of RTEMS.UNSIGNED8;
for ABOVE_PORT_AREA use at ABOVE_PORT_AREA_ADDRESS;
for ABOVE_PORT_AREA'Address use ABOVE_PORT_AREA_ADDRESS;
--
-- INIT
@@ -99,7 +100,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -112,7 +113,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);

7
c/src/ada-tests/sptests/sp24/sp24.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP24 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

33
c/src/ada-tests/sptests/sp24/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -23,16 +23,17 @@
with INTERFACES; use INTERFACES;
with TEST_SUPPORT;
with TEXT_IO;
with RTEMS.CLOCK;
with RTEMS.TIMER;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
TIME : RTEMS.TIME_OF_DAY;
@@ -44,7 +45,7 @@ package body SPTEST is
TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
RTEMS.CLOCK_SET( TIME, STATUS );
RTEMS.CLOCK.SET( TIME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
@@ -58,7 +59,7 @@ package body SPTEST is
for INDEX in 1 .. 3
loop
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( INDEX ),
1,
2048,
@@ -69,7 +70,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE LOOP" );
RTEMS.TIMER_CREATE(
RTEMS.TIMER.CREATE(
SPTEST.TIMER_NAME( INDEX ),
SPTEST.TIMER_ID( INDEX ),
STATUS
@@ -81,22 +82,21 @@ package body SPTEST is
for INDEX in 1 .. 3
loop
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( INDEX ),
SPTEST.TASK_1_THROUGH_3'ACCESS,
RTEMS.TASK_ARGUMENT( INDEX ),
RTEMS.TASKS.ARGUMENT( INDEX ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START LOOP" );
end loop;
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- RESUME_TASK
--
@@ -111,30 +111,29 @@ package body SPTEST is
begin
TASK_TO_RESUME := SPTEST.TASK_ID(INTEGER( RTEMS.GET_INDEX( TIMER_ID ) ));
RTEMS.TASK_RESUME( TASK_TO_RESUME, STATUS );
RTEMS.TASKS.RESUME( TASK_TO_RESUME, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME" );
end RESUME_TASK;
--PAGE
--
-- TASK_1_THROUGH_3
--
procedure TASK_1_THROUGH_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
TID : RTEMS.ID;
TIME : RTEMS.TIME_OF_DAY;
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
loop
RTEMS.TIMER_FIRE_AFTER(
RTEMS.TIMER.FIRE_AFTER(
SPTEST.TIMER_ID( INTEGER( ARGUMENT ) ),
TEST_SUPPORT.TASK_NUMBER( TID ) * 5 *
TEST_SUPPORT.TICKS_PER_SECOND,
@@ -144,7 +143,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
if TIME.SECOND >= 35 then
@@ -160,7 +159,7 @@ package body SPTEST is
TEST_SUPPORT.PRINT_TIME( " - clock_get - ", TIME, "" );
TEXT_IO.NEW_LINE;
RTEMS.TASK_SUSPEND( RTEMS.SELF, STATUS );
RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
end loop;

7
c/src/ada-tests/sptests/sp24/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -49,7 +50,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -77,7 +78,7 @@ package SPTEST is
--
procedure TASK_1_THROUGH_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1_THROUGH_3);

7
c/src/ada-tests/sptests/sp25/sp25.adb
View File

@@ -9,7 +9,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -20,6 +20,7 @@
--
with RTEMS;
with RTEMS.TASKS;
with SPTEST;
with TEST_SUPPORT;
@@ -28,7 +29,7 @@ procedure SP25 is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -40,7 +41,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
INIT_ID,
SPTEST.INIT'ACCESS,
0,

54
c/src/ada-tests/sptests/sp25/sptest.adb
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-2009.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -23,16 +23,16 @@
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
with RTEMS.REGION;
package body SPTEST is
--PAGE
--
-- INIT
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
@@ -43,7 +43,7 @@ package body SPTEST is
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
RTEMS.TASK_CREATE(
RTEMS.TASKS.CREATE(
SPTEST.TASK_NAME( 1 ),
SPTEST.BASE_PRIORITY,
2048,
@@ -54,7 +54,7 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
RTEMS.TASK_START(
RTEMS.TASKS.START(
SPTEST.TASK_ID( 1 ),
SPTEST.TASK_1'ACCESS,
0,
@@ -64,7 +64,7 @@ package body SPTEST is
SPTEST.REGION_NAME( 1 ) := RTEMS.BUILD_NAME( 'R', 'N', '1', ' ' );
RTEMS.REGION_CREATE(
RTEMS.REGION.CREATE(
SPTEST.REGION_NAME( 1 ),
SPTEST.AREA_1'ADDRESS,
64000,
@@ -75,12 +75,11 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_CREATE OF RN1" );
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
end INIT;
--PAGE
--
-- PUT_ADDRESS_FROM_AREA_1
--
@@ -99,13 +98,12 @@ package body SPTEST is
end PUT_ADDRESS_FROM_AREA_1;
--PAGE
--
-- TASK_1
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
pragma Unreferenced(ARGUMENT);
RNID : RTEMS.ID;
@@ -120,7 +118,7 @@ package body SPTEST is
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.REGION_IDENT( SPTEST.REGION_NAME( 1 ), RNID, STATUS );
RTEMS.REGION.IDENT( SPTEST.REGION_NAME( 1 ), RNID, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_IDENT OF RN1" );
TEXT_IO.PUT( "TA1 - region_ident - rnid => " );
UNSIGNED32_IO.PUT( RNID, WIDTH => 8, BASE => 16 );
@@ -128,7 +126,7 @@ package body SPTEST is
TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
TEXT_IO.PUT_LINE( "64 byte segment from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
64,
RTEMS.DEFAULT_OPTIONS,
@@ -143,7 +141,7 @@ package body SPTEST is
TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
TEXT_IO.PUT_LINE( "128 byte segment from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
128,
RTEMS.DEFAULT_OPTIONS,
@@ -158,7 +156,7 @@ package body SPTEST is
TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
TEXT_IO.PUT_LINE( "256 byte segment from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
256,
RTEMS.DEFAULT_OPTIONS,
@@ -173,7 +171,7 @@ package body SPTEST is
TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
TEXT_IO.PUT_LINE( "512 byte segment from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
512,
RTEMS.DEFAULT_OPTIONS,
@@ -188,7 +186,7 @@ package body SPTEST is
TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
TEXT_IO.PUT_LINE( "1024 byte segment from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
1024,
RTEMS.DEFAULT_OPTIONS,
@@ -203,7 +201,7 @@ package body SPTEST is
TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
TEXT_IO.PUT_LINE( "2048 byte segment from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
2048,
RTEMS.DEFAULT_OPTIONS,
@@ -218,7 +216,7 @@ package body SPTEST is
TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
TEXT_IO.PUT_LINE( "4096 byte segment from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
4096,
RTEMS.DEFAULT_OPTIONS,
@@ -233,7 +231,7 @@ package body SPTEST is
TEXT_IO.PUT( "TA1 - region_get_segment - wait on " );
TEXT_IO.PUT_LINE( "8192 byte segment from region 1" );
RTEMS.REGION_GET_SEGMENT(
RTEMS.REGION.GET_SEGMENT(
SPTEST.REGION_ID( 1 ),
8192,
RTEMS.DEFAULT_OPTIONS,
@@ -252,7 +250,7 @@ TEST_SUPPORT.PAUSE;
"TA1 - region_return_segment - return segment to region 1 - "
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_3 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_3,
STATUS
@@ -265,7 +263,7 @@ TEST_SUPPORT.PAUSE;
"TA1 - region_return_segment - return segment to region 1 - "
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_4 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_4,
STATUS
@@ -278,7 +276,7 @@ TEST_SUPPORT.PAUSE;
"TA1 - region_return_segment - return segment to region 1 - "
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_1 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_1,
STATUS
@@ -291,7 +289,7 @@ TEST_SUPPORT.PAUSE;
"TA1 - region_return_segment - return segment to region 1 - "
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_2 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_2,
STATUS
@@ -304,7 +302,7 @@ TEST_SUPPORT.PAUSE;
"TA1 - region_return_segment - return segment to region 1 - "
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_7 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_7,
STATUS
@@ -317,7 +315,7 @@ TEST_SUPPORT.PAUSE;
"TA1 - region_return_segment - return segment to region 1 - "
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_6 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_6,
STATUS
@@ -330,7 +328,7 @@ TEST_SUPPORT.PAUSE;
"TA1 - region_return_segment - return segment to region 1 - "
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_8 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_8,
STATUS
@@ -343,7 +341,7 @@ TEST_SUPPORT.PAUSE;
"TA1 - region_return_segment - return segment to region 1 - "
);
SPTEST.PUT_ADDRESS_FROM_AREA_1( SEGMENT_ADDRESS_5 );
RTEMS.REGION_RETURN_SEGMENT(
RTEMS.REGION.RETURN_SEGMENT(
SPTEST.REGION_ID( 1 ),
SEGMENT_ADDRESS_5,
STATUS
@@ -355,7 +353,7 @@ TEST_SUPPORT.PAUSE;
TEXT_IO.PUT_LINE(
"TA1 - region_delete - walks heap if debug enabled"
);
RTEMS.REGION_DELETE( SPTEST.REGION_ID( 1 ), STATUS );
RTEMS.REGION.DELETE( SPTEST.REGION_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "REGION_DELETE OF RN1" );
TEXT_IO.PUT_LINE( "*** END OF TEST 25 ***" );

9
c/src/ada-tests/sptests/sp25/sptest.ads
View File

@@ -10,7 +10,7 @@
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- COPYRIGHT (c) 1989-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
--
with RTEMS;
with RTEMS.TASKS;
package SPTEST is
@@ -46,7 +47,7 @@ package SPTEST is
-- easily set itself to a higher priority than the rest.
--
BASE_PRIORITY : constant RTEMS.TASK_PRIORITY := 140;
BASE_PRIORITY : constant RTEMS.TASKS.PRIORITY := 140;
--
-- These arrays define the memory areas used for the regions in
@@ -65,7 +66,7 @@ package SPTEST is
--
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
@@ -97,7 +98,7 @@ package SPTEST is
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);