source: rtems/c/src/ada-tests/mptests/mp09/node2/mp09_node2.adb @ c499856

4.115
Last change on this file since c499856 was c499856, checked in by Chris Johns <chrisj@…>, on 03/20/14 at 21:10:47

Change all references of rtems.com to rtems.org.

  • 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 MP09_NODE2 of the Multiprocessor
7--  Test Suite.
8--
9--  DEPENDENCIES:
10--
11-- 
12--
13--  COPYRIGHT (c) 1989-2011.
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.org/license/LICENSE.
19--
20
21with RTEMS;
22with RTEMS.TASKS;
23with MPTEST;
24with TEST_SUPPORT;
25
26procedure MP09_NODE2 is
27  INIT_ID : RTEMS.ID;
28  STATUS  : RTEMS.STATUS_CODES;
29begin
30
31   RTEMS.TASKS.CREATE(
32      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
33      1,
34      RTEMS.MINIMUM_STACK_SIZE,
35      RTEMS.NO_PREEMPT,
36      RTEMS.DEFAULT_ATTRIBUTES,
37      INIT_ID,
38      STATUS
39   );
40   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
41
42
43   RTEMS.TASKS.START(
44      INIT_ID,
45      MPTEST.INIT'ACCESS,
46      0,
47      STATUS
48   );
49   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
50
51   loop
52      delay 120.0;
53   end loop;
54
55end MP09_NODE2;
56
Note: See TracBrowser for help on using the repository browser.