source: rtems/c/src/ada-tests/sptests/sp24/sp24.adb @ ae55da72

4.115
Last change on this file since ae55da72 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: 1014 bytes
Line 
1--
2--  MAIN / BODY
3--
4--  DESCRIPTION:
5--
6--  This is the entry point for Test SP24 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.com/license/LICENSE.
18--
19
20with RTEMS;
21with RTEMS.TASKS;
22with SPTEST;
23with TEST_SUPPORT;
24
25procedure SP24 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 SP24;
55
Note: See TracBrowser for help on using the repository browser.