Warning, /testsuites/ada/mptests/mp01/node2/mp01_node2.adb is written in an unsupported language. File is not indexed.
0001 -- SPDX-License-Identifier: BSD-2-Clause
0002
0003 --
0004 -- MAIN / BODY
0005 --
0006 -- DESCRIPTION:
0007 --
0008 -- This is the entry point for Test MP01_NODE2 of the Multiprocessor
0009 -- Test Suite.
0010 --
0011 -- DEPENDENCIES:
0012 --
0013 --
0014 --
0015 -- COPYRIGHT (c) 1989-2011.
0016 -- On-Line Applications Research Corporation (OAR).
0017 --
0018 -- Redistribution and use in source and binary forms, with or without
0019 -- modification, are permitted provided that the following conditions
0020 -- are met:
0021 -- 1. Redistributions of source code must retain the above copyright
0022 -- notice, this list of conditions and the following disclaimer.
0023 -- 2. Redistributions in binary form must reproduce the above copyright
0024 -- notice, this list of conditions and the following disclaimer in the
0025 -- documentation and/or other materials provided with the distribution.
0026 --
0027 -- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
0028 -- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
0029 -- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
0030 -- ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
0031 -- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
0032 -- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
0033 -- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
0034 -- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
0035 -- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
0036 -- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
0037 -- POSSIBILITY OF SUCH DAMAGE.
0038 --
0039
0040 with RTEMS;
0041 with RTEMS.TASKS;
0042 with MPTEST;
0043 with TEST_SUPPORT;
0044
0045 procedure MP01_NODE2 is
0046 INIT_ID : RTEMS.ID;
0047 STATUS : RTEMS.STATUS_CODES;
0048 begin
0049
0050 RTEMS.TASKS.CREATE(
0051 RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
0052 1,
0053 RTEMS.MINIMUM_STACK_SIZE,
0054 RTEMS.NO_PREEMPT,
0055 RTEMS.DEFAULT_ATTRIBUTES,
0056 INIT_ID,
0057 STATUS
0058 );
0059 TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
0060
0061
0062 RTEMS.TASKS.START(
0063 INIT_ID,
0064 MPTEST.INIT'ACCESS,
0065 0,
0066 STATUS
0067 );
0068 TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
0069
0070 loop
0071 delay 120.0;
0072 end loop;
0073
0074 end MP01_NODE2;
0075
