summaryrefslogtreecommitdiffstats
path: root/c/src/ada-tests/mptests/mp12
diff options
context:
space:
mode:
Diffstat (limited to 'c/src/ada-tests/mptests/mp12')
-rw-r--r--c/src/ada-tests/mptests/mp12/mptest.adb25
-rw-r--r--c/src/ada-tests/mptests/mp12/mptest.ads5
-rw-r--r--c/src/ada-tests/mptests/mp12/node1/mp12_node1.adb7
-rw-r--r--c/src/ada-tests/mptests/mp12/node2/mp12_node2.adb7
4 files changed, 24 insertions, 20 deletions
diff --git a/c/src/ada-tests/mptests/mp12/mptest.adb b/c/src/ada-tests/mptests/mp12/mptest.adb
index 86cf4102ba..b9a6fac6e6 100644
--- a/c/src/ada-tests/mptests/mp12/mptest.adb
+++ b/c/src/ada-tests/mptests/mp12/mptest.adb
@@ -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
@@ -22,19 +22,20 @@
with INTERFACES; use INTERFACES;
with RTEMS;
+with RTEMS.PARTITION;
+with RTEMS.TASKS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
package body MPTEST is
---PAGE
--
-- INIT
--
procedure INIT (
- ARGUMENT : in RTEMS.TASK_ARGUMENT
+ ARGUMENT : in RTEMS.TASKS.ARGUMENT
) is
BUFFER_ADDRESS : RTEMS.ADDRESS;
STATUS : RTEMS.STATUS_CODES;
@@ -57,14 +58,14 @@ package body MPTEST is
if TEST_SUPPORT.NODE = 2 then
- 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( "Getting ID of remote Partition (Global)" );
loop
- RTEMS.PARTITION_IDENT(
+ RTEMS.PARTITION.IDENT(
MPTEST.PARTITION_NAME( 1 ),
RTEMS.SEARCH_ALL_NODES,
MPTEST.PARTITION_ID( 1 ),
@@ -79,7 +80,7 @@ package body MPTEST is
"Attempting to delete remote Partition (Global)"
);
- RTEMS.PARTITION_DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
+ RTEMS.PARTITION.DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
STATUS,
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
@@ -92,7 +93,7 @@ package body MPTEST is
TEXT_IO.PUT_LINE( "Obtaining a buffer from the global partition" );
- RTEMS.PARTITION_GET_BUFFER(
+ RTEMS.PARTITION.GET_BUFFER(
MPTEST.PARTITION_ID( 1 ),
BUFFER_ADDRESS,
STATUS
@@ -106,20 +107,20 @@ package body MPTEST is
);
TEXT_IO.NEW_LINE;
- RTEMS.PARTITION_RETURN_BUFFER(
+ RTEMS.PARTITION.RETURN_BUFFER(
MPTEST.PARTITION_ID( 1 ),
BUFFER_ADDRESS,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_RETURN_BUFFER" );
- 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" );
else
TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
- RTEMS.PARTITION_CREATE(
+ RTEMS.PARTITION.CREATE(
MPTEST.PARTITION_NAME( 1 ),
MPTEST.PARTITION_AREA( 0 )'ADDRESS,
128,
@@ -131,11 +132,11 @@ package body MPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_CREATE" );
TEXT_IO.PUT_LINE( "Sleeping for three seconds" );
- RTEMS.TASK_WAKE_AFTER( 3 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
+ RTEMS.TASKS.WAKE_AFTER( 3 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
TEXT_IO.PUT_LINE( "Deleting Partition (Global)" );
- RTEMS.PARTITION_DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
+ RTEMS.PARTITION.DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_DELETE" );
end if;
diff --git a/c/src/ada-tests/mptests/mp12/mptest.ads b/c/src/ada-tests/mptests/mp12/mptest.ads
index 322bac8d17..5c0fe3febf 100644
--- a/c/src/ada-tests/mptests/mp12/mptest.ads
+++ b/c/src/ada-tests/mptests/mp12/mptest.ads
@@ -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 MPTEST is
@@ -63,7 +64,7 @@ package MPTEST is
--
procedure INIT (
- ARGUMENT : in RTEMS.TASK_ARGUMENT
+ ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
diff --git a/c/src/ada-tests/mptests/mp12/node1/mp12_node1.adb b/c/src/ada-tests/mptests/mp12/node1/mp12_node1.adb
index 87012a623d..a99fd2db8b 100644
--- a/c/src/ada-tests/mptests/mp12/node1/mp12_node1.adb
+++ b/c/src/ada-tests/mptests/mp12/node1/mp12_node1.adb
@@ -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;
with MPTEST;
with TEST_SUPPORT;
@@ -29,7 +30,7 @@ procedure MP12_NODE1 is
STATUS : RTEMS.STATUS_CODES;
begin
- RTEMS.TASK_CREATE(
+ RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -41,7 +42,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
- RTEMS.TASK_START(
+ RTEMS.TASKS.START(
INIT_ID,
MPTEST.INIT'ACCESS,
0,
diff --git a/c/src/ada-tests/mptests/mp12/node2/mp12_node2.adb b/c/src/ada-tests/mptests/mp12/node2/mp12_node2.adb
index 48a07fbd02..850d96923b 100644
--- a/c/src/ada-tests/mptests/mp12/node2/mp12_node2.adb
+++ b/c/src/ada-tests/mptests/mp12/node2/mp12_node2.adb
@@ -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;
with MPTEST;
with TEST_SUPPORT;
@@ -29,7 +30,7 @@ procedure MP12_NODE2 is
STATUS : RTEMS.STATUS_CODES;
begin
- RTEMS.TASK_CREATE(
+ RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
@@ -41,7 +42,7 @@ begin
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
- RTEMS.TASK_START(
+ RTEMS.TASKS.START(
INIT_ID,
MPTEST.INIT'ACCESS,
0,
generated by cgit v1.2.3 (git 2.25.1) at 2024-05-24 03:52:14 +0000