source: rtems/c/src/ada-tests/mptests/mp14/node1/mp14_node1.adb @ 9b4422a2

4.115
Last change on this file since 9b4422a2 was 9b4422a2, checked in by Joel Sherrill <joel.sherrill@…>, on May 3, 2012 at 3:09:24 PM

Remove All CVS Id Strings Possible Using a Script

Script does what is expected and tries to do it as
smartly as possible.

+ remove occurrences of two blank comment lines

next to each other after Id string line removed.

+ remove entire comment blocks which only exited to

contain CVS Ids

+ If the processing left a blank line at the top of

a file, it was removed.

  • 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 MP14_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.com/license/LICENSE.
19--
20
21with RTEMS;
22with RTEMS.TASKS;
23with MPTEST;
24with TEST_SUPPORT;
25
26procedure MP14_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 MP14_NODE1;
56
Note: See TracBrowser for help on using the repository browser.