source: rtems/c/src/ada-tests/mptests/mp01/mp01.adb @ 32c8960

4.115
Last change on this file since 32c8960 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: 1000 bytes
Line 
1--
2--  MAIN / BODY
3--
4--  DESCRIPTION:
5--
6--  This is the entry point for Test MP01 of the Multiprocessor Test Suite.
7--
8--  DEPENDENCIES:
9--
10-- 
11--
12--  COPYRIGHT (c) 1989-2011.
13--  On-Line Applications Research Corporation (OAR).
14--
15--  The license and distribution terms for this file may in
16--  the file LICENSE in this distribution or at
17--  http://www.rtems.org/license/LICENSE.
18--
19
20with RTEMS;
21with RTEMS.TASKS;
22with MPTEST;
23with TEST_SUPPORT;
24
25procedure MP01 is
26  INIT_ID : RTEMS.ID;
27  STATUS  : RTEMS.STATUS_CODES;
28begin
29
30   RTEMS.TASKS.CREATE(
31      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
32      1,
33      RTEMS.MINIMUM_STACK_SIZE,
34      RTEMS.NO_PREEMPT,
35      RTEMS.GLOBAL,
36      INIT_ID,
37      STATUS
38   );
39   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
40
41
42   RTEMS.TASKS.START(
43      INIT_ID,
44      MPTEST.INIT'ACCESS,
45      0,
46      STATUS
47   );
48   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
49
50   loop
51      delay 120.0;
52   end loop;
53
54end MP01;
55
Note: See TracBrowser for help on using the repository browser.