summaryrefslogtreecommitdiff
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.adb152
-rw-r--r--c/src/ada-tests/mptests/mp12/mptest.ads182
-rw-r--r--c/src/ada-tests/mptests/mp12/node1/mp12.scn6
-rw-r--r--c/src/ada-tests/mptests/mp12/node1/mptest-per_node_configuration.adb43
-rw-r--r--c/src/ada-tests/mptests/mp12/node2/mp12.scn9
-rw-r--r--c/src/ada-tests/mptests/mp12/node2/mptest-per_node_configuration.adb43
6 files changed, 0 insertions, 435 deletions
diff --git a/c/src/ada-tests/mptests/mp12/mptest.adb b/c/src/ada-tests/mptests/mp12/mptest.adb
deleted file mode 100644
index e99006ec72..0000000000
--- a/c/src/ada-tests/mptests/mp12/mptest.adb
+++ /dev/null
@@ -1,152 +0,0 @@
---
--- MPTEST / BODY
---
--- DESCRIPTION:
---
--- This package is the implementation for Test 12 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
- BUFFER_ADDRESS : RTEMS.ADDRESS;
- STATUS : RTEMS.STATUS_CODES;
- begin
-
- TEXT_IO.NEW_LINE( 2 );
- TEXT_IO.PUT( "*** TEST 12 -- 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', ' ' );
-
- MPTEST.PARTITION_NAME( 1 ) := RTEMS.BUILD_NAME( 'P', 'A', 'R', ' ' );
-
- TEXT_IO.PUT_LINE( "Got to the initialization task" );
-
- if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 2 then
-
- RTEMS.TASK_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(
- MPTEST.PARTITION_NAME( 1 ),
- RTEMS.SEARCH_ALL_NODES,
- MPTEST.PARTITION_ID( 1 ),
- STATUS
- );
-
- exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
-
- end loop;
-
- TEXT_IO.PUT_LINE(
- "Attempting to delete remote Partition (Global)"
- );
-
- RTEMS.PARTITION_DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
- TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
- STATUS,
- RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
- "PARTITION_DELETE"
- );
-
- TEXT_IO.PUT_LINE(
- "partition_delete correctly returned ILLEGAL_ON_REMOTE_OBJECT!!"
- );
-
- TEXT_IO.PUT_LINE( "Obtaining a buffer from the global partition" );
-
- RTEMS.PARTITION_GET_BUFFER(
- MPTEST.PARTITION_ID( 1 ),
- BUFFER_ADDRESS,
- STATUS
- );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_GET_BUFFER" );
- TEXT_IO.PUT( "Address returned was : " );
- UNSIGNED32_IO.PUT(
- RTEMS.SUBTRACT( BUFFER_ADDRESS, RTEMS.NULL_ADDRESS ),
- WIDTH => 8,
- BASE => 16
- );
- TEXT_IO.NEW_LINE;
-
- 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 );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
-
- else
-
- TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
- RTEMS.PARTITION_CREATE(
- MPTEST.PARTITION_NAME( 1 ),
- MPTEST.PARTITION_AREA( 0 )'ADDRESS,
- 128,
- 64,
- RTEMS.GLOBAL,
- MPTEST.PARTITION_ID( 1 ),
- STATUS
- );
- 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 );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
-
- TEXT_IO.PUT_LINE( "Deleting Partition (Global)" );
- RTEMS.PARTITION_DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
- TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_DELETE" );
-
- end if;
-
- TEXT_IO.PUT_LINE( "*** END OF TEST 12 ***" );
-
- RTEMS.SHUTDOWN_EXECUTIVE( 0 );
-
- end INIT;
-
-end MPTEST;
diff --git a/c/src/ada-tests/mptests/mp12/mptest.ads b/c/src/ada-tests/mptests/mp12/mptest.ads
deleted file mode 100644
index bc6b0d8827..0000000000
--- a/c/src/ada-tests/mptests/mp12/mptest.ads
+++ /dev/null
@@ -1,182 +0,0 @@
---
--- MPTEST / SPECIFICATION
---
--- DESCRIPTION:
---
--- This package is the specification for Test 12 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;
-
---
--- These arrays contain the IDs and NAMEs of all RTEMS semaphore
--- created by this test.
---
-
- PARTITION_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
- PARTITION_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) 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
- );
-
---
--- This is the area used for the partition.
---
-
- PARTITION_AREA :
- array ( RTEMS.UNSIGNED32 range 0 .. 1023 ) of RTEMS.UNSIGNED8;
- for PARTITION_AREA'ALIGNMENT use RTEMS.STRUCTURE_ALIGNMENT;
-
---
--- 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
- 0, -- maximum # timers
- 0, -- maximum # semaphores
- 0, -- maximum # message queues
- 0, -- maximum # messages
- 1, -- 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/mp12/node1/mp12.scn b/c/src/ada-tests/mptests/mp12/node1/mp12.scn
deleted file mode 100644
index 40646722eb..0000000000
--- a/c/src/ada-tests/mptests/mp12/node1/mp12.scn
+++ /dev/null
@@ -1,6 +0,0 @@
-*** TEST 12 -- NODE 1 ***
-Got to the initialization task
-Creating Partition (Global)
-Sleeping for three seconds
-Deleting Partition (Global)
-*** END OF TEST 12 ***
diff --git a/c/src/ada-tests/mptests/mp12/node1/mptest-per_node_configuration.adb b/c/src/ada-tests/mptests/mp12/node1/mptest-per_node_configuration.adb
deleted file mode 100644
index 7df5087537..0000000000
--- a/c/src/ada-tests/mptests/mp12/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/mp12/node2/mp12.scn b/c/src/ada-tests/mptests/mp12/node2/mp12.scn
deleted file mode 100644
index 2189ae9959..0000000000
--- a/c/src/ada-tests/mptests/mp12/node2/mp12.scn
+++ /dev/null
@@ -1,9 +0,0 @@
-*** TEST 12 -- NODE 2 ***
-Got to the initialization task
-Getting ID of remote Partition (Global)
-Attempting to delete remote Partition (Global)
-partition_delete correctly returned ILLEGAL_ON_REMOTE_OBJECT!!
-Obtaining a buffer from the global partition
-Address returned was : 0x200f0000
-NOTE: Address printed will probably differ!!!
-*** END OF TEST 12 ***
diff --git a/c/src/ada-tests/mptests/mp12/node2/mptest-per_node_configuration.adb b/c/src/ada-tests/mptests/mp12/node2/mptest-per_node_configuration.adb
deleted file mode 100644
index e127cc5573..0000000000
--- a/c/src/ada-tests/mptests/mp12/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-05-29 11:10:10 +0000