1 |
1026 |
ivang |
/* Init
|
2 |
|
|
*
|
3 |
|
|
* This routine is the initialization task for this test program.
|
4 |
|
|
* It is a user initialization task and has the responsibility for creating
|
5 |
|
|
* and starting the tasks that make up the test. If the time of day
|
6 |
|
|
* clock is required for the test, it should also be set to a known
|
7 |
|
|
* value by this function.
|
8 |
|
|
*
|
9 |
|
|
* Input parameters:
|
10 |
|
|
* argument - task argument
|
11 |
|
|
*
|
12 |
|
|
* Output parameters: NONE
|
13 |
|
|
*
|
14 |
|
|
* COPYRIGHT (c) 1989-1999.
|
15 |
|
|
* On-Line Applications Research Corporation (OAR).
|
16 |
|
|
*
|
17 |
|
|
* The license and distribution terms for this file may be
|
18 |
|
|
* found in the file LICENSE in this distribution or at
|
19 |
|
|
* http://www.OARcorp.com/rtems/license.html.
|
20 |
|
|
*
|
21 |
|
|
* init.c,v 1.10 1999/11/17 17:51:32 joel Exp
|
22 |
|
|
*/
|
23 |
|
|
|
24 |
|
|
#define TEST_INIT
|
25 |
|
|
#include "system.h"
|
26 |
|
|
|
27 |
|
|
rtems_task Init(
|
28 |
|
|
rtems_task_argument argument
|
29 |
|
|
)
|
30 |
|
|
{
|
31 |
|
|
rtems_status_code status;
|
32 |
|
|
|
33 |
|
|
puts( "\n\n*** TEST 11 ***" );
|
34 |
|
|
|
35 |
|
|
Task_name[ 1 ] = rtems_build_name( 'T', 'A', '1', ' ' );
|
36 |
|
|
Task_name[ 2 ] = rtems_build_name( 'T', 'A', '2', ' ' );
|
37 |
|
|
|
38 |
|
|
status = rtems_task_create(
|
39 |
|
|
Task_name[ 1 ],
|
40 |
|
|
4,
|
41 |
|
|
RTEMS_MINIMUM_STACK_SIZE * 2,
|
42 |
|
|
RTEMS_DEFAULT_MODES,
|
43 |
|
|
RTEMS_DEFAULT_ATTRIBUTES,
|
44 |
|
|
&Task_id[ 1 ]
|
45 |
|
|
);
|
46 |
|
|
directive_failed( status, "rtems_task_create of TA1" );
|
47 |
|
|
|
48 |
|
|
status = rtems_task_create(
|
49 |
|
|
Task_name[ 2 ],
|
50 |
|
|
4,
|
51 |
|
|
RTEMS_MINIMUM_STACK_SIZE * 2,
|
52 |
|
|
RTEMS_DEFAULT_MODES,
|
53 |
|
|
RTEMS_DEFAULT_ATTRIBUTES,
|
54 |
|
|
&Task_id[ 2 ]
|
55 |
|
|
);
|
56 |
|
|
directive_failed( status, "rtems_task_create of TA2" );
|
57 |
|
|
|
58 |
|
|
status = rtems_task_start( Task_id[ 1 ], Task_1, 0 );
|
59 |
|
|
directive_failed( status, "rtems_task_start of TA1" );
|
60 |
|
|
|
61 |
|
|
status = rtems_task_start( Task_id[ 2 ], Task_2, 0 );
|
62 |
|
|
directive_failed( status, "rtems_task_start of TA2" );
|
63 |
|
|
|
64 |
|
|
Timer_name[ 1 ] = rtems_build_name( 'T', 'M', '1', ' ' );
|
65 |
|
|
Timer_name[ 2 ] = rtems_build_name( 'T', 'M', '2', ' ' );
|
66 |
|
|
Timer_name[ 3 ] = rtems_build_name( 'T', 'M', '3', ' ' );
|
67 |
|
|
Timer_name[ 4 ] = rtems_build_name( 'T', 'M', '4', ' ' );
|
68 |
|
|
Timer_name[ 5 ] = rtems_build_name( 'T', 'M', '5', ' ' );
|
69 |
|
|
Timer_name[ 6 ] = rtems_build_name( 'T', 'M', '6', ' ' );
|
70 |
|
|
|
71 |
|
|
status = rtems_timer_create( Timer_name[ 1 ], &Timer_id[ 1 ] );
|
72 |
|
|
directive_failed( status, "rtems_timer_create of TM1" );
|
73 |
|
|
|
74 |
|
|
status = rtems_timer_create( Timer_name[ 2 ], &Timer_id[ 2 ] );
|
75 |
|
|
directive_failed( status, "rtems_timer_create of TM2" );
|
76 |
|
|
|
77 |
|
|
status = rtems_timer_create( Timer_name[ 3 ], &Timer_id[ 3 ] );
|
78 |
|
|
directive_failed( status, "rtems_timer_create of TM3" );
|
79 |
|
|
|
80 |
|
|
status = rtems_timer_create( Timer_name[ 4 ], &Timer_id[ 4 ] );
|
81 |
|
|
directive_failed( status, "rtems_timer_create of TM4" );
|
82 |
|
|
|
83 |
|
|
status = rtems_timer_create( Timer_name[ 5 ], &Timer_id[ 5 ] );
|
84 |
|
|
directive_failed( status, "rtems_timer_create of TM5" );
|
85 |
|
|
|
86 |
|
|
status = rtems_timer_create( Timer_name[ 6 ], &Timer_id[ 6 ] );
|
87 |
|
|
directive_failed( status, "rtems_timer_create of TM6" );
|
88 |
|
|
|
89 |
|
|
status = rtems_task_delete( RTEMS_SELF );
|
90 |
|
|
directive_failed( status, "rtems_task_delete of RTEMS_SELF" );
|
91 |
|
|
}
|