diff options
Diffstat (limited to 'c/src/ada-tests/samples/base_mp/mptest.ads')
-rw-r--r-- | c/src/ada-tests/samples/base_mp/mptest.ads | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/c/src/ada-tests/samples/base_mp/mptest.ads b/c/src/ada-tests/samples/base_mp/mptest.ads deleted file mode 100644 index f246b4e0ed..0000000000 --- a/c/src/ada-tests/samples/base_mp/mptest.ads +++ /dev/null @@ -1,62 +0,0 @@ --- --- MPTEST / SPECIFICATION --- --- DESCRIPTION: --- --- This package is the specification for Test 1 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; - --- --- INIT --- --- DESCRIPTION: --- --- This RTEMS task initializes the application. --- - - procedure INIT ( - ARGUMENT : in RTEMS.TASKS.ARGUMENT - ); - pragma Convention (C, INIT); - --- --- APPLICATION_TASK --- --- DESCRIPTION: --- --- This routine is as an example of an application task which --- prints a message including its RTEMS task id. This task --- then invokes exit to return to the monitor. --- - - procedure APPLICATION_TASK ( - ARGUMENT : in RTEMS.TASKS.ARGUMENT - ); - pragma Convention (C, APPLICATION_TASK); - -end MPTEST; |