source: rtems/c/src/ada-tests/mptests/mp08/node1/mp08_node1.adb @ 3a23218

4.104.115
Last change on this file since 3a23218 was 3a23218, checked in by Joel Sherrill <joel.sherrill@…>, on 12/14/09 at 21:28:54

2009-12-14 Joel Sherrill <joel.sherrill@…>

  • mptests/mp01/node1/mp01_node1.adb, mptests/mp01/node2/mp01_node2.adb, mptests/mp02/node1/mp02_node1.adb, mptests/mp02/node2/mp02_node2.adb, mptests/mp03/node1/mp03_node1.adb, mptests/mp03/node2/mp03_node2.adb, mptests/mp04/node1/mp04_node1.adb, mptests/mp04/node2/mp04_node2.adb, mptests/mp05/mptest.adb, mptests/mp05/node1/mp05_node1.adb, mptests/mp05/node2/mp05_node2.adb, mptests/mp06/node1/mp06_node1.adb, mptests/mp06/node2/mp06_node2.adb, mptests/mp07/node1/mp07_node1.adb, mptests/mp07/node2/mp07_node2.adb, mptests/mp08/node1/mp08_node1.adb, mptests/mp08/node2/mp08_node2.adb, mptests/mp09/node1/mp09_node1.adb, mptests/mp09/node2/mp09_node2.adb, mptests/mp10/node1/mp10_node1.adb, mptests/mp10/node2/mp10_node2.adb, mptests/mp11/node1/mp11_node1.adb, mptests/mp11/node2/mp11_node2.adb, mptests/mp12/node1/mp12_node1.adb, mptests/mp12/node2/mp12_node2.adb, mptests/mp13/node1/mp13_node1.adb, mptests/mp13/node2/mp13_node2.adb, mptests/mp14/mptest.adb, mptests/mp14/node1/mp14_node1.adb, mptests/mp14/node2/mp14_node2.adb, sptests/sp09/sptest.adb, sptests/sp11/sptest.adb, sptests/sp13/sptest.adb, sptests/sp16/sptest.adb, support/test_support.adb: Lines are now all less than 80 columns.
  • Property mode set to 100644
File size: 1.0 KB
Line 
1--
2--  MAIN / BODY
3--
4--  DESCRIPTION:
5--
6--  This is the entry point for Test MP08_NODE1 of the Multiprocessor
7--  Test Suite.
8--
9--  DEPENDENCIES:
10--
11-- 
12--
13--  COPYRIGHT (c) 1989-2007.
14--  On-Line Applications Research Corporation (OAR).
15--
16--  The license and distribution terms for this file may in
17--  the file LICENSE in this distribution or at
18--  http://www.rtems.com/license/LICENSE.
19--
20--  $Id$
21--
22
23with RTEMS;
24with MPTEST;
25with TEST_SUPPORT;
26
27procedure MP08_NODE1 is
28  INIT_ID : RTEMS.ID;
29  STATUS  : RTEMS.STATUS_CODES;
30begin
31
32   RTEMS.TASK_CREATE(
33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
34      1,
35      RTEMS.MINIMUM_STACK_SIZE,
36      RTEMS.NO_PREEMPT,
37      RTEMS.DEFAULT_ATTRIBUTES,
38      INIT_ID,
39      STATUS
40   );
41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
42
43
44   RTEMS.TASK_START(
45      INIT_ID,
46      MPTEST.INIT'ACCESS,
47      0,
48      STATUS
49   );
50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
51
52   loop
53      delay 120.0;
54   end loop;
55
56end MP08_NODE1;
57
Note: See TracBrowser for help on using the repository browser.