Context Navigation

sp24.adb @ f619250

4.115

Last change on this file since f619250 was 9b4422a2, checked in by Joel Sherrill <joel.sherrill@…>, on 05/03/12 at 15:09:24

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.

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
20	with RTEMS;
21	with RTEMS.TASKS;
22	with SPTEST;
23	with TEST_SUPPORT;
24
25	procedure SP24 is
26	INIT_ID : RTEMS.ID;
27	STATUS : RTEMS.STATUS_CODES;
28	begin
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
54	end SP24;
55

Note: See TracBrowser for help on using the repository browser.