diff options
Diffstat (limited to 'c/src/ada-tests/mptests/mp13')
-rw-r--r-- | c/src/ada-tests/mptests/mp13/Makefile.am | 4 | ||||
-rw-r--r-- | c/src/ada-tests/mptests/mp13/config_base.h | 28 | ||||
-rw-r--r-- | c/src/ada-tests/mptests/mp13/mptest.adb | 323 | ||||
-rw-r--r-- | c/src/ada-tests/mptests/mp13/mptest.ads | 103 | ||||
-rw-r--r-- | c/src/ada-tests/mptests/mp13/node1/Makefile.am | 19 | ||||
-rw-r--r-- | c/src/ada-tests/mptests/mp13/node1/ada_mp13-node1.scn | 14 | ||||
-rw-r--r-- | c/src/ada-tests/mptests/mp13/node1/config.h | 21 | ||||
-rw-r--r-- | c/src/ada-tests/mptests/mp13/node1/mp13_node1.adb | 56 | ||||
-rw-r--r-- | c/src/ada-tests/mptests/mp13/node2/Makefile.am | 19 | ||||
-rw-r--r-- | c/src/ada-tests/mptests/mp13/node2/ada_mp13-node2.scn | 16 | ||||
-rw-r--r-- | c/src/ada-tests/mptests/mp13/node2/config.h | 21 | ||||
-rw-r--r-- | c/src/ada-tests/mptests/mp13/node2/mp13_node2.adb | 56 |
12 files changed, 0 insertions, 680 deletions
diff --git a/c/src/ada-tests/mptests/mp13/Makefile.am b/c/src/ada-tests/mptests/mp13/Makefile.am deleted file mode 100644 index 43bba78abb..0000000000 --- a/c/src/ada-tests/mptests/mp13/Makefile.am +++ /dev/null @@ -1,4 +0,0 @@ -_SUBDIRS = node1 node2 - -include $(top_srcdir)/../../../testsuites/automake/subdirs.am -include $(top_srcdir)/../../../testsuites/automake/local.am diff --git a/c/src/ada-tests/mptests/mp13/config_base.h b/c/src/ada-tests/mptests/mp13/config_base.h deleted file mode 100644 index c1b8f24e86..0000000000 --- a/c/src/ada-tests/mptests/mp13/config_base.h +++ /dev/null @@ -1,28 +0,0 @@ -/* config_base.h - * - * This include file defines all of the Configuration Table for this test - * EXCEPT the NODE NUMBER. - * - * COPYRIGHT (c) 1989-2007. - * On-Line Applications Research Corporation (OAR). - * - * The license and distribution terms for this file may in - * the file LICENSE in this distribution or at - * http://www.rtems.org/license/LICENSE. - */ - - - -#define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER -#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER - -#define CONFIGURE_POSIX_INIT_THREAD_TABLE - -#define CONFIGURE_MAXIMUM_TASKS 2 - -#define CONFIGURE_MAXIMUM_POSIX_THREADS 10 -#define CONFIGURE_MAXIMUM_POSIX_KEYS 10 - -#include <rtems/confdefs.h> - -/* end of include file */ diff --git a/c/src/ada-tests/mptests/mp13/mptest.adb b/c/src/ada-tests/mptests/mp13/mptest.adb deleted file mode 100644 index 6dc79ab486..0000000000 --- a/c/src/ada-tests/mptests/mp13/mptest.adb +++ /dev/null @@ -1,323 +0,0 @@ --- --- MPTEST / BODY --- --- DESCRIPTION: --- --- This package is the implementation for Test 13 of the RTEMS --- Multiprocessor Test Suite. --- --- DEPENDENCIES: --- --- --- --- COPYRIGHT (c) 1989-2011. --- On-Line Applications Research Corporation (OAR). --- --- The license and distribution terms for this file may in --- the file LICENSE in this distribution or at --- http://www.rtems.org/license/LICENSE. --- - -with INTERFACES; use INTERFACES; -with RTEMS; -with RTEMS.MESSAGE_QUEUE; -with RTEMS.SEMAPHORE; -with RTEMS.TASKS; -with TEST_SUPPORT; -with TEXT_IO; -with UNSIGNED32_IO; - -package body MPTEST is - --- --- INIT --- - - procedure INIT ( - ARGUMENT : in RTEMS.TASKS.ARGUMENT - ) is - STATUS : RTEMS.STATUS_CODES; - begin - - TEXT_IO.NEW_LINE( 2 ); - TEXT_IO.PUT( "*** TEST 13 -- NODE " ); - UNSIGNED32_IO.PUT( - TEST_SUPPORT.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.QUEUE_NAME( 1 ) := RTEMS.BUILD_NAME( 'M', 'S', 'G', ' ' ); - - MPTEST.SEMAPHORE_NAME( 1 ) := RTEMS.BUILD_NAME( 'S', 'E', 'M', ' ' ); - - if TEST_SUPPORT.NODE = 1 then - - TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" ); - RTEMS.MESSAGE_QUEUE.CREATE( - MPTEST.QUEUE_NAME( 1 ), - 3, - RTEMS.GLOBAL + RTEMS.LIMIT, - MPTEST.QUEUE_ID( 1 ), - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_CREATE" ); - - TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" ); - RTEMS.SEMAPHORE.CREATE( - MPTEST.SEMAPHORE_NAME( 1 ), - 1, - RTEMS.GLOBAL + RTEMS.PRIORITY, - MPTEST.SEMAPHORE_ID( 1 ), - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" ); - - RTEMS.SEMAPHORE.OBTAIN( - MPTEST.SEMAPHORE_ID( 1 ), - RTEMS.DEFAULT_OPTIONS, - RTEMS.NO_TIMEOUT, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" ); - - end if; - - TEXT_IO.PUT_LINE( "Creating Test_task 1 (local)" ); - RTEMS.TASKS.CREATE( - MPTEST.TASK_NAME( 1 ), - 1, - 2048, - RTEMS.TIMESLICE, - RTEMS.DEFAULT_ATTRIBUTES, - MPTEST.TASK_ID( 1 ), - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" ); - - TEXT_IO.PUT_LINE( "Starting Test_task 1 (local)" ); - RTEMS.TASKS.START( - MPTEST.TASK_ID( 1 ), - MPTEST.TEST_TASK_1'ACCESS, - 0, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" ); - - TEXT_IO.PUT_LINE( "Creating Test_task 2 (local)" ); - RTEMS.TASKS.CREATE( - MPTEST.TASK_NAME( 2 ), - 1, - 2048, - RTEMS.TIMESLICE, - RTEMS.DEFAULT_ATTRIBUTES, - MPTEST.TASK_ID( 2 ), - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" ); - - TEXT_IO.PUT_LINE( "Starting Test_task 2 (local)" ); - RTEMS.TASKS.START( - MPTEST.TASK_ID( 2 ), - MPTEST.TEST_TASK_2'ACCESS, - 0, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" ); - - if TEST_SUPPORT.NODE = 1 then - - 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 13 ***" ); - - RTEMS.SHUTDOWN_EXECUTIVE( 0 ); - - end if; - - TEXT_IO.PUT_LINE( "Deleting initialization task" ); - RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" ); - - end INIT; - --- --- TEST_TASK_1 --- - - procedure TEST_TASK_1 ( - ARGUMENT : in RTEMS.TASKS.ARGUMENT - ) is - COUNT : RTEMS.UNSIGNED32; - RECEIVE_BUFFER_AREA : RTEMS.BUFFER; - RECEIVE_BUFFER : RTEMS.BUFFER_POINTER; - STATUS : RTEMS.STATUS_CODES; - begin - - RECEIVE_BUFFER := - RTEMS.TO_BUFFER_POINTER( RECEIVE_BUFFER_AREA'ADDRESS ); - - TEXT_IO.PUT_LINE( "Getting QID of message queue" ); - - loop - - RTEMS.MESSAGE_QUEUE.IDENT( - MPTEST.QUEUE_NAME( 1 ), - RTEMS.SEARCH_ALL_NODES, - MPTEST.QUEUE_ID( 1 ), - STATUS - ); - - exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS ); - - end loop; - - if TEST_SUPPORT.NODE = 1 then - - TEXT_IO.PUT_LINE( "Receiving message ..." ); - RTEMS.MESSAGE_QUEUE.RECEIVE( - MPTEST.QUEUE_ID( 1 ), - RECEIVE_BUFFER, - RTEMS.DEFAULT_OPTIONS, - RTEMS.NO_TIMEOUT, - STATUS - ); - TEXT_IO.PUT_LINE( "How did I get back from here???" ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_RECEIVE" ); - - end if; - - RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" ); - - TEXT_IO.PUT_LINE( "Receiving message ..." ); - RTEMS.MESSAGE_QUEUE.RECEIVE( - MPTEST.QUEUE_ID( 1 ), - RECEIVE_BUFFER, - RTEMS.DEFAULT_OPTIONS, - 2 * TEST_SUPPORT.TICKS_PER_SECOND, - STATUS - ); - TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( - STATUS, - RTEMS.TIMEOUT, - "MESSAGE_QUEUE_RECEIVE" - ); - TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( - STATUS, - RTEMS.TIMEOUT, - "MESSAGE_QUEUE_OBTAIN" - ); - - TEXT_IO.PUT_LINE( - "message_queue_receive correctly returned TIMEOUT" - ); - - TEXT_IO.PUT_LINE( "Deleting self" ); - RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" ); - - end TEST_TASK_1; - --- --- TEST_TASK_2 --- - - procedure TEST_TASK_2 ( - ARGUMENT : in RTEMS.TASKS.ARGUMENT - ) is - STATUS : RTEMS.STATUS_CODES; - begin - - TEXT_IO.PUT_LINE( "Getting SMID of semaphore" ); - - loop - - RTEMS.SEMAPHORE.IDENT( - MPTEST.SEMAPHORE_NAME( 1 ), - RTEMS.SEARCH_ALL_NODES, - MPTEST.SEMAPHORE_ID( 1 ), - STATUS - ); - - exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS ); - - end loop; - - if TEST_SUPPORT.NODE = 1 then - - RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" ); - - TEXT_IO.PUT_LINE( "Releasing semaphore ..." ); - RTEMS.SEMAPHORE.RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" ); - - RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" ); - - TEXT_IO.PUT_LINE( "Getting semaphore ..." ); - RTEMS.SEMAPHORE.OBTAIN( - MPTEST.SEMAPHORE_ID( 1 ), - RTEMS.DEFAULT_OPTIONS, - RTEMS.NO_TIMEOUT, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" ); - - TEXT_IO.PUT_LINE( "Getting semaphore ..." ); - RTEMS.SEMAPHORE.OBTAIN( - MPTEST.SEMAPHORE_ID( 1 ), - RTEMS.DEFAULT_OPTIONS, - RTEMS.NO_TIMEOUT, - STATUS - ); - TEXT_IO.PUT_LINE( "How did I get back from here???" ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" ); - - end if; - - RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" ); - - TEXT_IO.PUT_LINE( "Getting semaphore ..." ); - RTEMS.SEMAPHORE.OBTAIN( - MPTEST.SEMAPHORE_ID( 1 ), - RTEMS.DEFAULT_OPTIONS, - RTEMS.NO_TIMEOUT, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" ); - - TEXT_IO.PUT_LINE( "Releasing semaphore ..." ); - RTEMS.SEMAPHORE.RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" ); - - RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" ); - - TEXT_IO.PUT_LINE( "Getting semaphore ..." ); - RTEMS.SEMAPHORE.OBTAIN( - MPTEST.SEMAPHORE_ID( 1 ), - RTEMS.DEFAULT_OPTIONS, - 2 * TEST_SUPPORT.TICKS_PER_SECOND, - STATUS - ); - TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( - STATUS, - RTEMS.TIMEOUT, - "SEMAPHORE_OBTAIN" - ); - TEXT_IO.PUT_LINE( "semaphore_obtain correctly returned TIMEOUT" ); - - TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" ); - - RTEMS.SHUTDOWN_EXECUTIVE( 0 ); - - end TEST_TASK_2; - -end MPTEST; diff --git a/c/src/ada-tests/mptests/mp13/mptest.ads b/c/src/ada-tests/mptests/mp13/mptest.ads deleted file mode 100644 index 8caa2347c9..0000000000 --- a/c/src/ada-tests/mptests/mp13/mptest.ads +++ /dev/null @@ -1,103 +0,0 @@ --- --- MPTEST / SPECIFICATION --- --- DESCRIPTION: --- --- This package is the specification for Test 13 of the RTEMS --- Multiprocessor Test Suite. --- --- DEPENDENCIES: --- --- --- --- COPYRIGHT (c) 1989-2011. --- On-Line Applications Research Corporation (OAR). --- --- The license and distribution terms for this file may in --- the file LICENSE in this distribution or at --- http://www.rtems.org/license/LICENSE. --- - -with RTEMS; -with RTEMS.TASKS; - -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 message --- queues created by this test. --- - - QUEUE_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID; - QUEUE_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME; - --- --- These arrays contain the IDs and NAMEs of all RTEMS semaphore --- created by this test. --- - - SEMAPHORE_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID; - SEMAPHORE_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.TASKS.ARGUMENT - ); - pragma Convention (C, INIT); - --- --- TEST_TASK_1 --- --- DESCRIPTION: --- --- This is the body of one of the RTEMS tasks which constitute this test. --- - - procedure TEST_TASK_1 ( - ARGUMENT : in RTEMS.TASKS.ARGUMENT - ); - pragma Convention (C, TEST_TASK_1); - --- --- TEST_TASK_2 --- --- DESCRIPTION: --- --- This is the body of one of the RTEMS tasks which constitute this test. --- - - procedure TEST_TASK_2 ( - ARGUMENT : in RTEMS.TASKS.ARGUMENT - ); - pragma Convention (C, TEST_TASK_2); - -end MPTEST; diff --git a/c/src/ada-tests/mptests/mp13/node1/Makefile.am b/c/src/ada-tests/mptests/mp13/node1/Makefile.am deleted file mode 100644 index aa80acd467..0000000000 --- a/c/src/ada-tests/mptests/mp13/node1/Makefile.am +++ /dev/null @@ -1,19 +0,0 @@ -include $(RTEMS_ROOT)/make/custom/@RTEMS_BSP@.cfg -include $(top_srcdir)/../../../testsuites/automake/compile.am - -include $(top_srcdir)/ada.am - -AM_ADAFLAGS += -I$(srcdir)/.. - -noinst_PROGRAMS = mp13_ada_mp13_node1 -mp13_ada_mp13_node1_SOURCES = mp13_node1.adb ../mptest.adb config.h -mp13_ada_mp13_node1_SOURCES += ../mptest.ads -mp13_ada_mp13_node1_SOURCES += ../../../support/init.c - -mp13_ada_mp13_node1$(EXEEXT): mp13_node1.adb ../mptest.adb init.$(OBJEXT) - $(GNATCOMPILE) -margs -a $< -o $@ - -scndir = $(rtems_ada_testsdir) -dist_scn_DATA = ada_mp13-node1.scn - -include $(top_srcdir)/../../../testsuites/automake/local.am diff --git a/c/src/ada-tests/mptests/mp13/node1/ada_mp13-node1.scn b/c/src/ada-tests/mptests/mp13/node1/ada_mp13-node1.scn deleted file mode 100644 index d3bd11f65e..0000000000 --- a/c/src/ada-tests/mptests/mp13/node1/ada_mp13-node1.scn +++ /dev/null @@ -1,14 +0,0 @@ -*** TEST 13 -- NODE 1 *** -Creating Message Queue (Global) -Creating Semaphore (Global) -Creating Test_task 1 (local) -Starting Test_task 1 (local) -Creating Test_task 2 (local) -Starting Test_task 2 (local) -Getting QID of message queue -Receiving message ... -Getting SMID of semaphore -Releasing semaphore ... -Getting semaphore ... -Getting semaphore ... -*** END OF TEST 13 *** diff --git a/c/src/ada-tests/mptests/mp13/node1/config.h b/c/src/ada-tests/mptests/mp13/node1/config.h deleted file mode 100644 index 36c9d133e8..0000000000 --- a/c/src/ada-tests/mptests/mp13/node1/config.h +++ /dev/null @@ -1,21 +0,0 @@ -/* config.h - * - * This include file defines the Configuration Table for this test. - * - * COPYRIGHT (c) 1989-2007. - * On-Line Applications Research Corporation (OAR). - * - * The license and distribution terms for this file may in - * the file LICENSE in this distribution or at - * http://www.rtems.org/license/LICENSE. - */ - - -/* configuration information */ - -#define CONFIGURE_MP_APPLICATION -#define CONFIGURE_MP_NODE_NUMBER 1 - -#include "../config_base.h" - -/* end of include file */ diff --git a/c/src/ada-tests/mptests/mp13/node1/mp13_node1.adb b/c/src/ada-tests/mptests/mp13/node1/mp13_node1.adb deleted file mode 100644 index 561bc67ba5..0000000000 --- a/c/src/ada-tests/mptests/mp13/node1/mp13_node1.adb +++ /dev/null @@ -1,56 +0,0 @@ --- --- MAIN / BODY --- --- DESCRIPTION: --- --- This is the entry point for Test MP13_NODE1 of the Multiprocessor --- Test Suite. --- --- DEPENDENCIES: --- --- --- --- COPYRIGHT (c) 1989-2011. --- On-Line Applications Research Corporation (OAR). --- --- The license and distribution terms for this file may in --- the file LICENSE in this distribution or at --- http://www.rtems.org/license/LICENSE. --- - -with RTEMS; -with RTEMS.TASKS; -with MPTEST; -with TEST_SUPPORT; - -procedure MP13_NODE1 is - INIT_ID : RTEMS.ID; - STATUS : RTEMS.STATUS_CODES; -begin - - RTEMS.TASKS.CREATE( - RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ), - 1, - RTEMS.MINIMUM_STACK_SIZE, - RTEMS.NO_PREEMPT, - RTEMS.DEFAULT_ATTRIBUTES, - INIT_ID, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" ); - - - RTEMS.TASKS.START( - INIT_ID, - MPTEST.INIT'ACCESS, - 0, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" ); - - loop - delay 120.0; - end loop; - -end MP13_NODE1; - diff --git a/c/src/ada-tests/mptests/mp13/node2/Makefile.am b/c/src/ada-tests/mptests/mp13/node2/Makefile.am deleted file mode 100644 index c28ec60bb2..0000000000 --- a/c/src/ada-tests/mptests/mp13/node2/Makefile.am +++ /dev/null @@ -1,19 +0,0 @@ -include $(RTEMS_ROOT)/make/custom/@RTEMS_BSP@.cfg -include $(top_srcdir)/../../../testsuites/automake/compile.am - -include $(top_srcdir)/ada.am - -AM_ADAFLAGS += -I$(srcdir)/.. - -noinst_PROGRAMS = mp13_ada_mp13_node2 -mp13_ada_mp13_node2_SOURCES = mp13_node2.adb ../mptest.adb config.h -mp13_ada_mp13_node2_SOURCES += ../mptest.ads -mp13_ada_mp13_node2_SOURCES += ../../../support/init.c - -mp13_ada_mp13_node2$(EXEEXT): mp13_node2.adb ../mptest.adb init.$(OBJEXT) - $(GNATCOMPILE) -margs -a $< -o $@ - -scndir = $(rtems_ada_testsdir) -dist_scn_DATA = ada_mp13-node2.scn - -include $(top_srcdir)/../../../testsuites/automake/local.am diff --git a/c/src/ada-tests/mptests/mp13/node2/ada_mp13-node2.scn b/c/src/ada-tests/mptests/mp13/node2/ada_mp13-node2.scn deleted file mode 100644 index 3254046292..0000000000 --- a/c/src/ada-tests/mptests/mp13/node2/ada_mp13-node2.scn +++ /dev/null @@ -1,16 +0,0 @@ -*** TEST 13 -- NODE 2 *** -Creating Test_task 1 (local) -Starting Test_task 1 (local) -Creating Test_task 2 (local) -Starting Test_task 2 (local) -Deleting initialization task -Getting QID of message queue -Getting SMID of semaphore -Getting semaphore ... -Releasing semaphore ... -Receiving message ... -Getting semaphore ... -message_queue_receive correctly returned TIMEOUT -Deleting self -semaphore_obtain correctly returned TIMEOUT -*** END OF TEST 13 *** diff --git a/c/src/ada-tests/mptests/mp13/node2/config.h b/c/src/ada-tests/mptests/mp13/node2/config.h deleted file mode 100644 index 47edf66149..0000000000 --- a/c/src/ada-tests/mptests/mp13/node2/config.h +++ /dev/null @@ -1,21 +0,0 @@ -/* config.h - * - * This include file defines the Configuration Table for this test. - * - * COPYRIGHT (c) 1989-2007. - * On-Line Applications Research Corporation (OAR). - * - * The license and distribution terms for this file may in - * the file LICENSE in this distribution or at - * http://www.rtems.org/license/LICENSE. - */ - - -/* configuration information */ - -#define CONFIGURE_MP_APPLICATION -#define CONFIGURE_MP_NODE_NUMBER 2 - -#include "../config_base.h" - -/* end of include file */ diff --git a/c/src/ada-tests/mptests/mp13/node2/mp13_node2.adb b/c/src/ada-tests/mptests/mp13/node2/mp13_node2.adb deleted file mode 100644 index e197f5aa12..0000000000 --- a/c/src/ada-tests/mptests/mp13/node2/mp13_node2.adb +++ /dev/null @@ -1,56 +0,0 @@ --- --- MAIN / BODY --- --- DESCRIPTION: --- --- This is the entry point for Test MP13_NODE2 of the Multiprocessor --- Test Suite. --- --- DEPENDENCIES: --- --- --- --- COPYRIGHT (c) 1989-2011. --- On-Line Applications Research Corporation (OAR). --- --- The license and distribution terms for this file may in --- the file LICENSE in this distribution or at --- http://www.rtems.org/license/LICENSE. --- - -with RTEMS; -with RTEMS.TASKS; -with MPTEST; -with TEST_SUPPORT; - -procedure MP13_NODE2 is - INIT_ID : RTEMS.ID; - STATUS : RTEMS.STATUS_CODES; -begin - - RTEMS.TASKS.CREATE( - RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ), - 1, - RTEMS.MINIMUM_STACK_SIZE, - RTEMS.NO_PREEMPT, - RTEMS.DEFAULT_ATTRIBUTES, - INIT_ID, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" ); - - - RTEMS.TASKS.START( - INIT_ID, - MPTEST.INIT'ACCESS, - 0, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" ); - - loop - delay 120.0; - end loop; - -end MP13_NODE2; - |