source: rtems/testsuites/mptests/mp14/init.c @ 3a4ae6c

4.104.114.84.95
Last change on this file since 3a4ae6c was 3a4ae6c, checked in by Joel Sherrill <joel.sherrill@…>, on Sep 11, 1995 at 7:35:39 PM

The word "RTEMS" almost completely removed from the core.

Configuration Table Template file added and all tests
modified to use this. All gvar.h and conftbl.h files
removed from test directories.

Configuration parameter maximum_devices added.

Core semaphore and mutex handlers added and RTEMS API Semaphore
Manager updated to reflect this.

Initialization sequence changed to invoke API specific initialization
routines. Initialization tasks table now owned by RTEMS Tasks Manager.

Added user extension for post-switch.

Utilized user extensions to implement API specific functionality
like signal dispatching.

Added extensions to the System Initialization Thread so that an
API can register a function to be invoked while the system
is being initialized. These are largely equivalent to the
pre-driver and post-driver hooks.

Added the Modules file oar-go32_p5, modified oar-go32, and modified
the file make/custom/go32.cfg to look at an environment varable which
determines what CPU model is being used.

All BSPs updated to reflect named devices and clock driver's IOCTL
used by the Shared Memory Driver. Also merged clock isr into
main file and removed ckisr.c where possible.

Updated spsize to reflect new and moved variables.

Makefiles for the executive source and include files updated to show
break down of files into Core, RTEMS API, and Neither.

Header and inline files installed into subdirectory based on whether
logically in the Core or a part of the RTEMS API.

  • Property mode set to 100644
File size: 5.2 KB
Line 
1/*  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, 1990, 1991, 1992, 1993, 1994.
15 *  On-Line Applications Research Corporation (OAR).
16 *  All rights assigned to U.S. Government, 1994.
17 *
18 *  This material may be reproduced by or for the U.S. Government pursuant
19 *  to the copyright license under the clause at DFARS 252.227-7013.  This
20 *  notice must appear in all copies of this file and its derivatives.
21 *
22 *  $Id$
23 */
24
25#define TEST_INIT
26#include "system.h"
27
28rtems_unsigned8 my_partition[0x30000] CPU_STRUCTURE_ALIGNMENT;
29
30rtems_timer_service_routine Stop_Test_TSR(
31  rtems_id  ignored_id,
32  void     *ignored_address
33)
34{
35  Stop_Test = TRUE;
36}
37
38rtems_task Init(
39  rtems_task_argument argument
40)
41{
42  rtems_status_code   status;
43  rtems_task_priority previous_priority;
44
45  printf(
46    "\n\n*** TEST 14 -- NODE %d ***\n",
47    Multiprocessing_configuration.node
48  );
49
50  Stop_Test = FALSE;
51
52  status = rtems_timer_create(
53    rtems_build_name('S', 'T', 'O', 'P'),
54    &timer_id
55  );
56  directive_failed( status, "rtems_timer_create" );
57
58  status = rtems_timer_fire_after(
59    timer_id,
60    MAX_LONG_TEST_DURATION * TICKS_PER_SECOND,
61    Stop_Test_TSR,
62    NULL
63  );
64  directive_failed( status, "rtems_timer_fire_after" );
65
66  Task_name[ 1 ] = rtems_build_name( '1', '1', '1', ' ' );
67  Task_name[ 2 ] = rtems_build_name( '2', '2', '2', ' ' );
68
69  Queue_task_name[ 1 ] = rtems_build_name( 'M', 'T', '1', ' ' );
70  Queue_task_name[ 2 ] = rtems_build_name( 'M', 'T', '2', ' ' );
71
72  Partition_task_name[ 1 ] = rtems_build_name( 'P', 'T', '1', ' ' );
73  Partition_task_name[ 2 ] = rtems_build_name( 'P', 'T', '2', ' ' );
74
75  Semaphore_task_name[ 1 ] = rtems_build_name( 'S', 'M', '1', ' ' );
76  Semaphore_task_name[ 2 ] = rtems_build_name( 'S', 'M', '2', ' ' );
77
78  Semaphore_name[ 1 ] =  rtems_build_name( 'S', 'E', 'M', ' ' );
79
80  Queue_name[ 1 ] = rtems_build_name( 'M', 'S', 'G', ' ' );
81
82  Partition_name[ 1 ] = rtems_build_name( 'P', 'A', 'R', ' ' );
83
84  Timer_name[ 1 ] = rtems_build_name( 'T', 'M', 'R', ' ' );
85
86  if ( Multiprocessing_configuration.node == 1 ) {
87    puts( "Creating Semaphore (Global)" );
88    status = rtems_semaphore_create(
89      Semaphore_name[ 1 ],
90      1,
91      RTEMS_GLOBAL,
92      RTEMS_NO_PRIORITY,
93      &Semaphore_id[ 1 ]
94    );
95    directive_failed( status, "rtems_semaphore_create" );
96
97    puts( "Creating Message Queue (Global)" );
98    status = rtems_message_queue_create(
99      Queue_name[ 1 ],
100      1,
101      16,
102      RTEMS_GLOBAL,
103      &Queue_id[ 1 ]
104    );
105    directive_failed( status, "rtems_message_queue_create" );
106
107    puts( "Creating Partition (Global)" );
108    status = rtems_partition_create(
109      Partition_name[ 1 ],
110      (void *)my_partition,
111      0x8000,
112      0x3800,
113      RTEMS_GLOBAL,
114      &Partition_id[ 1 ]
115    );
116    directive_failed( status, "rtems_partition_create" );
117  }
118
119  puts( "Creating Event task (Global)" );
120  status = rtems_task_create(
121    Task_name[ Multiprocessing_configuration.node ],
122    2,
123    2048,
124    RTEMS_TIMESLICE,
125    RTEMS_GLOBAL,
126    &Event_task_id[ 1 ]
127  );
128  directive_failed( status, "rtems_task_create" );
129
130  puts( "Starting Event task (Global)" );
131  status = rtems_task_start( Event_task_id[ 1 ], Test_task, 0 );
132  directive_failed( status, "rtems_task_start" );
133
134  puts( "Creating Semaphore task (Global)" );
135  status = rtems_task_create(
136    Semaphore_task_name[ Multiprocessing_configuration.node ],
137    2,
138    2048,
139    RTEMS_TIMESLICE,
140    RTEMS_GLOBAL,
141    &Semaphore_task_id[ 1 ]
142  );
143  directive_failed( status, "rtems_task_create" );
144
145  puts( "Starting Semaphore task (Global)" );
146  status = rtems_task_start( Semaphore_task_id[ 1 ], Semaphore_task, 0 );
147  directive_failed( status, "rtems_task_start" );
148
149  puts( "Creating Message Queue task (Global)" );
150  status = rtems_task_create(
151    Queue_task_name[ Multiprocessing_configuration.node ],
152    2,
153    2048,
154    RTEMS_TIMESLICE,
155    RTEMS_GLOBAL,
156    &Queue_task_id[ 1 ]
157  );
158  directive_failed( status, "rtems_task_create" );
159
160  /* argument is index into Buffers */
161  puts( "Starting Message Queue task (Global)" );
162  status = rtems_task_start( Queue_task_id[ 1 ], Message_queue_task, 1 );
163  directive_failed( status, "rtems_task_start" );
164
165  puts( "Creating Partition task (Global)" );
166  status = rtems_task_create(
167    Partition_task_name[ Multiprocessing_configuration.node ],
168    2,
169    2048,
170    RTEMS_TIMESLICE,
171    RTEMS_GLOBAL,
172    &Partition_task_id[ 1 ]
173  );
174  directive_failed( status, "rtems_task_create" );
175
176  puts( "Starting Partition task (Global)" );
177  status = rtems_task_start( Partition_task_id[ 1 ], Partition_task, 0 );
178  directive_failed( status, "rtems_task_start" );
179
180  status = rtems_task_set_priority( RTEMS_SELF, 2, &previous_priority );
181  directive_failed( status, "rtems_task_set_priority" );
182
183  status = rtems_task_ident(
184    RTEMS_SELF,
185    RTEMS_SEARCH_ALL_NODES,
186    &Task_id[ 1 ]
187  );
188  directive_failed( status, "rtems_task_ident" );
189
190  Delayed_events_task( 1 );
191}
Note: See TracBrowser for help on using the repository browser.