source: rtems/testsuites/ada/sptests/sp17/sp17.adb @ 48aa4b5d

5
Last change on this file since 48aa4b5d was ee537ea, checked in by Sebastian Huber <sebastian.huber@…>, on 10/12/17 at 08:00:10

ada-tests: Move to testsuites/ada

This solves a build dependency issue, e.g. building tests before
librtemsbsp.a exists.

Close #3079.

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