source: rtems/c/src/ada-tests/mptests/mp06/node1/mp06_node1.adb @ c499856

4.115
Last change on this file since c499856 was c499856, checked in by Chris Johns <chrisj@…>, on Mar 20, 2014 at 9:10:47 PM

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 MP06_NODE1 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 MP06_NODE1 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 MP06_NODE1;
56
Note: See TracBrowser for help on using the repository browser.