source: rtems/c/src/tests/tmtests/tm11/task1.c @ 3652ad35

4.104.114.84.95
Last change on this file since 3652ad35 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.3 KB
Line 
1/*
2 *
3 *  COPYRIGHT (c) 1989, 1990, 1991, 1992, 1993, 1994.
4 *  On-Line Applications Research Corporation (OAR).
5 *  All rights assigned to U.S. Government, 1994.
6 *
7 *  This material may be reproduced by or for the U.S. Government pursuant
8 *  to the copyright license under the clause at DFARS 252.227-7013.  This
9 *  notice must appear in all copies of this file and its derivatives.
10 *
11 *  $Id$
12 */
13
14#define TEST_INIT
15#include "system.h"
16
17rtems_id Queue_id;
18
19long Buffer[4];
20
21rtems_task test_init(
22  rtems_task_argument argument
23);
24
25rtems_task Middle_tasks(
26  rtems_task_argument argument
27);
28
29rtems_task High_task(
30  rtems_task_argument argument
31);
32
33
34void Init(
35  rtems_task_argument argument
36)
37{
38  rtems_status_code status;
39  rtems_id id;
40
41  Print_Warning();
42
43  puts( "\n\n*** TIME TEST 11 ***" );
44
45  status = rtems_task_create(
46    1,
47    251,
48    RTEMS_MINIMUM_STACK_SIZE,
49    RTEMS_DEFAULT_MODES,
50    RTEMS_DEFAULT_ATTRIBUTES,
51    &id
52  );
53  directive_failed( status, "rtems_task_create" );
54
55  status = rtems_task_start( id, test_init, 0 );
56  directive_failed( status, "rtems_task_start" );
57
58  status = rtems_task_delete( RTEMS_SELF );
59  directive_failed( status, "rtems_task_delete of RTEMS_SELF" );
60}
61
62rtems_task test_init(
63  rtems_task_argument argument
64)
65{
66  rtems_unsigned32    index;
67  rtems_task_entry    task_entry;
68  rtems_task_priority priority;
69  rtems_id            task_id;
70  rtems_status_code   status;
71
72/*  As each task is started, it preempts this task and
73 *  performs a blocking rtems_message_queue_receive.  Upon completion of
74 *  this loop all created tasks are blocked.
75 */
76
77  status = rtems_message_queue_create(
78    rtems_build_name( 'M', 'Q', '1', ' '  ),
79    OPERATION_COUNT,
80    16,
81    RTEMS_DEFAULT_ATTRIBUTES,
82    &Queue_id
83  );
84  directive_failed( status, "rtems_message_queue_create" );
85
86  priority = 250;
87
88  for( index = 0; index < OPERATION_COUNT ; index++ ) {
89    status = rtems_task_create(
90      rtems_build_name( 'T', 'I', 'M', 'E'  ),
91      priority,
92      RTEMS_MINIMUM_STACK_SIZE,
93      RTEMS_DEFAULT_MODES,
94      RTEMS_DEFAULT_ATTRIBUTES,
95      &task_id
96    );
97    directive_failed( status, "rtems_task_create LOOP" );
98
99    priority--;
100
101    if ( index==OPERATION_COUNT-1 ) task_entry = High_task;
102    else                            task_entry = Middle_tasks;
103
104    status = rtems_task_start( task_id, task_entry, 0 );
105    directive_failed( status, "rtems_task_start LOOP" );
106  }
107
108  Timer_initialize();
109    (void) rtems_message_queue_send( Queue_id, (long (*)[4]) Buffer, 16 );
110}
111
112rtems_task Middle_tasks(
113  rtems_task_argument argument
114)
115{
116  rtems_unsigned32 size;
117
118  (void) rtems_message_queue_receive(
119           Queue_id,
120           (long (*)[4]) Buffer,
121           &size,
122           RTEMS_DEFAULT_OPTIONS,
123           RTEMS_NO_TIMEOUT
124         );
125
126  (void) rtems_message_queue_send( Queue_id, (long (*)[4]) Buffer, size );
127}
128
129rtems_task High_task(
130  rtems_task_argument argument
131)
132{
133  rtems_unsigned32 size;
134 
135  (void) rtems_message_queue_receive(
136           Queue_id,
137           (long (*)[4]) Buffer,
138           &size,
139           RTEMS_DEFAULT_OPTIONS,
140           RTEMS_NO_TIMEOUT
141         );
142
143  end_time = Read_timer();
144
145  put_time(
146    "rtems_message_queue_send (preemptive)",
147    end_time,
148    OPERATION_COUNT,
149    0,
150    CALLING_OVERHEAD_MESSAGE_QUEUE_SEND
151  );
152
153  puts( "*** END OF TEST 11 ***" );
154  exit( 0 );
155}
Note: See TracBrowser for help on using the repository browser.