source: rtems/testsuites/mptests/mp13/init.c @ 7303eea

4.104.114.84.95
Last change on this file since 7303eea was 3652ad35, checked in by Joel Sherrill <joel.sherrill@…>, on 09/19/95 at 14:53:29

Minor bug fixes to get all targets compilable and running. The
single biggest changes were the expansion of the workspace size
macro to include other types of objects and the increase in the
minimum stack size for most CPUs.

  • Property mode set to 100644
File size: 3.1 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_task Init(
29  rtems_task_argument argument
30)
31{
32  rtems_status_code status;
33
34  printf(
35    "\n\n*** TEST 13 -- NODE %d ***\n",
36    Multiprocessing_configuration.node
37  );
38
39  Task_name[ 1 ] = rtems_build_name( '1', '1', '1', ' ' );
40  Task_name[ 2 ] = rtems_build_name( '2', '2', '2', ' ' );
41
42  Queue_name[ 1 ] = rtems_build_name( 'M', 'S', 'G', ' ' );
43
44  Semaphore_name[ 1 ] = rtems_build_name( 'S', 'E', 'M', ' ' );
45
46  if ( Multiprocessing_configuration.node == 1 ) {
47    puts( "Creating Message Queue (Global)" );
48    status = rtems_message_queue_create(
49      Queue_name[ 1 ],
50      3,
51      16,
52      RTEMS_GLOBAL,
53      &Queue_id[ 1 ]
54    );
55    directive_failed( status, "rtems_message_queue_create" );
56
57    puts( "Creating Semaphore (Global)" );
58    status = rtems_semaphore_create(
59      Semaphore_name[ 1 ],
60      1,
61      RTEMS_GLOBAL | RTEMS_PRIORITY,
62      RTEMS_NO_PRIORITY,
63      &Semaphore_id[ 1 ]
64    );
65    directive_failed( status, "rtems_semaphore_create" );
66
67    status = rtems_semaphore_obtain(
68      Semaphore_id[ 1 ],
69      RTEMS_DEFAULT_OPTIONS,
70      RTEMS_NO_TIMEOUT
71    );
72    directive_failed( status, "rtems_semaphore_obtain" );
73  }
74
75  puts( "Creating Test_task 1 (local)" );
76  status = rtems_task_create(
77    Task_name[ 1 ],
78    1,
79    RTEMS_MINIMUM_STACK_SIZE,
80    RTEMS_TIMESLICE,
81    RTEMS_DEFAULT_ATTRIBUTES,
82    &Task_id[ 1 ]
83  );
84  directive_failed( status, "rtems_task_create" );
85
86  puts( "Starting Test_task 1 (local)" );
87  status = rtems_task_start( Task_id[ 1 ], Test_task1, 0 );
88  directive_failed( status, "rtems_task_start" );
89
90  puts( "Creating Test_task 2 (local)" );
91  status = rtems_task_create(
92    Task_name[ 2 ],
93    1,
94    RTEMS_MINIMUM_STACK_SIZE,
95    RTEMS_TIMESLICE,
96    RTEMS_DEFAULT_ATTRIBUTES,
97    &Task_id[ 2 ]
98  );
99  directive_failed( status, "rtems_task_create" );
100
101  puts( "Starting Test_task 2 (local)" );
102  status = rtems_task_start( Task_id[ 2 ], Test_task2, 0 );
103  directive_failed( status, "rtems_task_start" );
104
105  if ( Multiprocessing_configuration.node == 1 ) {
106    status = rtems_task_wake_after( 5 * TICKS_PER_SECOND );
107    directive_failed( status, "rtems_task_wake_after" );
108
109    puts( "*** END OF TEST 13 ***" );
110    exit( 0 );
111  }
112  puts( "Deleting initialization task" );
113  status = rtems_task_delete( RTEMS_SELF );
114  directive_failed( status, "rtems_task_delete of RTEMS_SELF" );
115}
Note: See TracBrowser for help on using the repository browser.