summaryrefslogtreecommitdiff
path: root/c/src/ada-tests/mptests/mp04
diff options
context:
space:
mode:
Diffstat (limited to 'c/src/ada-tests/mptests/mp04')
-rw-r--r--c/src/ada-tests/mptests/mp04/mptest.adb169
-rw-r--r--c/src/ada-tests/mptests/mp04/mptest.ads178
-rw-r--r--c/src/ada-tests/mptests/mp04/node1/mp04.scn8
-rw-r--r--c/src/ada-tests/mptests/mp04/node1/mptest-per_node_configuration.adb43
-rw-r--r--c/src/ada-tests/mptests/mp04/node2/mp04.scn8
-rw-r--r--c/src/ada-tests/mptests/mp04/node2/mptest-per_node_configuration.adb43
6 files changed, 0 insertions, 449 deletions
diff --git a/c/src/ada-tests/mptests/mp04/mptest.adb b/c/src/ada-tests/mptests/mp04/mptest.adb
deleted file mode 100644
index c44f521eaa..0000000000
--- a/c/src/ada-tests/mptests/mp04/mptest.adb
+++ /dev/null
@@ -1,169 +0,0 @@
---
--- MPTEST / BODY
---
--- DESCRIPTION:
---
--- This package is the implementation for Test 4 of the RTEMS
--- Multiprocessor Test Suite.
---
--- DEPENDENCIES:
---
---
---
--- COPYRIGHT (c) 1989-1997.
--- On-Line Applications Research Corporation (OAR).
--- Copyright assigned to U.S. Government, 1994.
---
--- The license and distribution terms for this file may in
--- the file LICENSE in this distribution or at
--- http://www.OARcorp.com/rtems/license.html.
---
--- $Id$
---
-
-with INTERFACES; use INTERFACES;
-with RTEMS;
-with TEST_SUPPORT;
-with TEXT_IO;
-with UNSIGNED32_IO;
-
-package body MPTEST is
-
- package body PER_NODE_CONFIGURATION is separate;
-
---PAGE
---
--- INIT
---
-
- procedure INIT (
- ARGUMENT : in RTEMS.TASK_ARGUMENT
- ) is
- STATUS : RTEMS.STATUS_CODES;
- begin
-
- TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 4 -- NODE " );
- UNSIGNED32_IO.PUT(
- MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
- WIDTH => 1
- );
- TEXT_IO.PUT_LINE( " ***" );
-
- MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( '1', '1', '1', ' ' );
- MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
-
- TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
-
- RTEMS.TASK_CREATE(
- MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
- MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
- 2048,
- RTEMS.DEFAULT_MODES,
- RTEMS.GLOBAL,
- MPTEST.TASK_ID( 1 ),
- STATUS
- );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
-
- TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
-
- RTEMS.TASK_START(
- MPTEST.TASK_ID( 1 ),
- MPTEST.TEST_TASK'ACCESS,
- 0,
- STATUS
- );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
-
- TEXT_IO.PUT_LINE( "Deleting initialization task" );
-
- RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
-
- end INIT;
-
---PAGE
---
--- TEST_TASK
---
-
- procedure TEST_TASK (
- ARGUMENT : in RTEMS.TASK_ARGUMENT
- ) is
- TID : RTEMS.ID;
- PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
- PREVIOUS_PRIORITY_1 : RTEMS.TASK_PRIORITY;
- STATUS : RTEMS.STATUS_CODES;
- begin
-
- RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
-
- TEXT_IO.PUT_LINE( "Getting TID of remote task" );
- if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
- MPTEST.REMOTE_NODE := 2;
- else
- MPTEST.REMOTE_NODE := 1;
- end if;
-
- TEXT_IO.PUT( "Remote task's name is : " );
- TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ), TRUE );
-
- loop
-
- RTEMS.TASK_IDENT(
- MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
- RTEMS.SEARCH_ALL_NODES,
- MPTEST.REMOTE_TID,
- STATUS
- );
-
- exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
-
- end loop;
-
- RTEMS.TASK_SET_PRIORITY(
- MPTEST.REMOTE_TID,
- MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
- PREVIOUS_PRIORITY,
- STATUS
- );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
-
- if PREVIOUS_PRIORITY /= MPTEST.REMOTE_NODE then
-
- TEXT_IO.PUT( "Remote priority (0x" );
- UNSIGNED32_IO.PUT( PREVIOUS_PRIORITY, BASE => 16 );
- TEXT_IO.PUT( "does not match remote node (0x" );
- UNSIGNED32_IO.PUT( MPTEST.REMOTE_NODE, BASE => 16 );
- TEXT_IO.PUT_LINE( ")!!!" );
-
- RTEMS.SHUTDOWN_EXECUTIVE( 16#F00000# );
-
- end if;
-
- loop
-
- RTEMS.TASK_SET_PRIORITY(
- RTEMS.SELF,
- RTEMS.CURRENT_PRIORITY,
- PREVIOUS_PRIORITY_1,
- STATUS
- );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
-
- exit when PREVIOUS_PRIORITY_1 = MPTEST.REMOTE_NODE;
-
- end loop;
-
-
- TEXT_IO.PUT_LINE( "Local task priority has been set" );
-
- TEXT_IO.PUT_LINE( "*** END OF TEST 4 ***" );
-
- RTEMS.SHUTDOWN_EXECUTIVE( 0 );
-
- end TEST_TASK;
-
-end MPTEST;
diff --git a/c/src/ada-tests/mptests/mp04/mptest.ads b/c/src/ada-tests/mptests/mp04/mptest.ads
deleted file mode 100644
index 2541ff5a93..0000000000
--- a/c/src/ada-tests/mptests/mp04/mptest.ads
+++ /dev/null
@@ -1,178 +0,0 @@
---
--- MPTEST / SPECIFICATION
---
--- DESCRIPTION:
---
--- This package is the specification for Test 4 of the RTEMS
--- Multiprocessor Test Suite.
---
--- DEPENDENCIES:
---
---
---
--- COPYRIGHT (c) 1989-1997.
--- On-Line Applications Research Corporation (OAR).
--- Copyright assigned to U.S. Government, 1994.
---
--- The license and distribution terms for this file may in
--- the file LICENSE in this distribution or at
--- http://www.OARcorp.com/rtems/license.html.
---
--- $Id$
---
-
-with BSP_MPCI;
-with RTEMS;
-
-package MPTEST is
-
---
--- These arrays contain the IDs and NAMEs of all RTEMS tasks created
--- by this test.
---
-
- TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
- TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
-
---
--- This variable contains the ID of the remote task with which this
--- test interacts.
---
-
- REMOTE_TID : RTEMS.ID;
-
---
--- This variable contains the node on which the remote task with which
--- this test interacts resides.
---
-
- REMOTE_NODE : RTEMS.UNSIGNED32;
-
---
--- INIT
---
--- DESCRIPTION:
---
--- This RTEMS task initializes the application.
---
-
- procedure INIT (
- ARGUMENT : in RTEMS.TASK_ARGUMENT
- );
-
---
--- TEST_TASK
---
--- DESCRIPTION:
---
--- This is the body of the RTEMS tasks which constitute this test.
---
-
- procedure TEST_TASK (
- ARGUMENT : in RTEMS.TASK_ARGUMENT
- );
-
---
--- This is the Driver Address Table for this test.
---
-
- DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
- (1=>
- (
- CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
- RTEMS.NO_DRIVER_ENTRY, -- Open
- RTEMS.NO_DRIVER_ENTRY, -- Close
- RTEMS.NO_DRIVER_ENTRY, -- Read
- RTEMS.NO_DRIVER_ENTRY, -- Write
- RTEMS.NO_DRIVER_ENTRY -- Control
- )
- );
-
---
--- This is the Initialization Tasks Table for this test.
---
-
- INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
- (1=>
- (
- RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
- 2048, -- stack size
- 1, -- priority
- RTEMS.DEFAULT_ATTRIBUTES, -- attributes
- MPTEST.INIT'ACCESS, -- entry point
- RTEMS.NO_PREEMPT, -- initial mode
- 0 -- argument list
- )
- );
-
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
--- BEGIN SUBPACKAGE --
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
-
- --
- -- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
- --
- -- DESCRIPTION:
- --
- -- This package is the specification for the subpackage
- -- which will define the per node configuration parameters.
- --
-
- package PER_NODE_CONFIGURATION is
-
- --
- -- LOCAL_NODE_NUMBER
- --
- -- DESCRIPTION:
- --
- -- This function returns the node number for this node.
- --
-
- function LOCAL_NODE_NUMBER
- return RTEMS.UNSIGNED32;
-
- pragma INLINE ( LOCAL_NODE_NUMBER );
-
- end PER_NODE_CONFIGURATION;
-
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
--- END SUBPACKAGE --
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
-
---
--- This is the Multiprocessor Configuration Table for this test.
---
-
- MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
- MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
- 2, -- maximum # nodes in system
- 32, -- maximum # global objects
- 32 -- maximum # proxies
- );
-
---
--- This is the Configuration Table for this test.
---
-
- CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
- RTEMS.NULL_ADDRESS, -- will be replaced by BSP
- 64 * 1024, -- executive RAM size
- 10, -- maximum # tasks
- 1, -- maximum # timers
- 0, -- maximum # semaphores
- 0, -- maximum # message queues
- 0, -- maximum # messages
- 0, -- maximum # partitions
- 0, -- maximum # regions
- 0, -- maximum # dp memory areas
- 0, -- maximum # periods
- 0, -- maximum # user extensions
- RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
- 50 -- # ticks in a timeslice
- );
-
-end MPTEST;
diff --git a/c/src/ada-tests/mptests/mp04/node1/mp04.scn b/c/src/ada-tests/mptests/mp04/node1/mp04.scn
deleted file mode 100644
index e9518f3ac2..0000000000
--- a/c/src/ada-tests/mptests/mp04/node1/mp04.scn
+++ /dev/null
@@ -1,8 +0,0 @@
-*** TEST 4 -- NODE 1 ***
-Creating Test_task (Global)
-Starting Test_task (Global)
-Deleting initialization task
-Getting TID of remote task
-Remote task's name is : 222
-Local task priority has been set
-*** END OF TEST 4 ***
diff --git a/c/src/ada-tests/mptests/mp04/node1/mptest-per_node_configuration.adb b/c/src/ada-tests/mptests/mp04/node1/mptest-per_node_configuration.adb
deleted file mode 100644
index 7df5087537..0000000000
--- a/c/src/ada-tests/mptests/mp04/node1/mptest-per_node_configuration.adb
+++ /dev/null
@@ -1,43 +0,0 @@
---
--- MPTEST.PER_NODE_CONFIGURATION / BODY
---
--- DESCRIPTION:
---
--- This package is the specification for the subpackage
--- which will define the per node configuration parameters.
---
--- DEPENDENCIES:
---
---
---
--- COPYRIGHT (c) 1989-1997.
--- On-Line Applications Research Corporation (OAR).
--- Copyright assigned to U.S. Government, 1994.
---
--- The license and distribution terms for this file may in
--- the file LICENSE in this distribution or at
--- http://www.OARcorp.com/rtems/license.html.
---
--- $Id$
---
-
-with RTEMS;
-
-separate ( MPTEST )
-
-package body PER_NODE_CONFIGURATION is
-
---PAGE
---
--- LOCAL_NODE_NUMBER
---
-
- function LOCAL_NODE_NUMBER
- return RTEMS.UNSIGNED32 is
- begin
-
- return 1;
-
- end LOCAL_NODE_NUMBER;
-
-end PER_NODE_CONFIGURATION;
diff --git a/c/src/ada-tests/mptests/mp04/node2/mp04.scn b/c/src/ada-tests/mptests/mp04/node2/mp04.scn
deleted file mode 100644
index 8ccfcfef79..0000000000
--- a/c/src/ada-tests/mptests/mp04/node2/mp04.scn
+++ /dev/null
@@ -1,8 +0,0 @@
-*** TEST 4 -- NODE 2 ***
-Creating Test_task (Global)
-Starting Test_task (Global)
-Deleting initialization task
-Getting TID of remote task
-Remote task's name is : 111
-Local task priority has been set
-*** END OF TEST 4 ***
diff --git a/c/src/ada-tests/mptests/mp04/node2/mptest-per_node_configuration.adb b/c/src/ada-tests/mptests/mp04/node2/mptest-per_node_configuration.adb
deleted file mode 100644
index e127cc5573..0000000000
--- a/c/src/ada-tests/mptests/mp04/node2/mptest-per_node_configuration.adb
+++ /dev/null
@@ -1,43 +0,0 @@
---
--- MPTEST.PER_NODE_CONFIGURATION / BODY
---
--- DESCRIPTION:
---
--- This package is the specification for the subpackage
--- which will define the per node configuration parameters.
---
--- DEPENDENCIES:
---
---
---
--- COPYRIGHT (c) 1989-1997.
--- On-Line Applications Research Corporation (OAR).
--- Copyright assigned to U.S. Government, 1994.
---
--- The license and distribution terms for this file may in
--- the file LICENSE in this distribution or at
--- http://www.OARcorp.com/rtems/license.html.
---
--- $Id$
---
-
-with RTEMS;
-
-separate ( MPTEST )
-
-package body PER_NODE_CONFIGURATION is
-
---PAGE
---
--- LOCAL_NODE_NUMBER
---
-
- function LOCAL_NODE_NUMBER
- return RTEMS.UNSIGNED32 is
- begin
-
- return 2;
-
- end LOCAL_NODE_NUMBER;
-
-end PER_NODE_CONFIGURATION;
generated by cgit v1.2.3 (git 2.25.1) at 2024-06-01 09:25:00 +0000