source: rtems/c/src/ada-tests/sptests/sp16/sp16.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: 1014 bytes
Line 
1--
2--  MAIN / BODY
3--
4--  DESCRIPTION:
5--
6--  This is the entry point for Test SP16 of the Single Processor 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 SPTEST;
23with TEST_SUPPORT;
24
25procedure SP16 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.DEFAULT_ATTRIBUTES,
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      SPTEST.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 SP16;
55
Note: See TracBrowser for help on using the repository browser.