source: rtems/c/src/tests/tmtests/tm16/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 Sep 19, 1995 at 2:53:29 PM

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.2 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_unsigned32 Task_count;
18
19rtems_task test_init(
20  rtems_task_argument argument
21);
22
23rtems_task Middle_tasks(
24  rtems_task_argument argument
25);
26
27rtems_task High_task(
28  rtems_task_argument argument
29);
30
31rtems_task Init(
32  rtems_task_argument argument
33)
34{
35  rtems_id          id;
36  rtems_status_code status;
37
38  Print_Warning();
39
40  puts( "\n\n*** TIME TEST 16 ***" );
41
42  status = rtems_task_create(
43    rtems_build_name( 'T', 'E', 'S', 'T' ),
44    251,
45    RTEMS_MINIMUM_STACK_SIZE,
46    RTEMS_DEFAULT_MODES,
47    RTEMS_DEFAULT_ATTRIBUTES,
48    &id
49  );
50  directive_failed( status, "rtems_task_create of test_init" );
51
52  status = rtems_task_start( id, test_init, 0 );
53  directive_failed( status, "rtems_task_start of test_init" );
54
55  status = rtems_task_delete( RTEMS_SELF );
56  directive_failed( status, "rtems_task_delete of RTEMS_SELF" );
57}
58
59rtems_task test_init(
60  rtems_task_argument argument
61)
62{
63  rtems_task_priority priority;
64  rtems_status_code   status;
65  rtems_unsigned32    index;
66  rtems_task_entry    task_entry;
67
68/*  As each task is started, it preempts this task and
69 *  performs a blocking rtems_event_receive.  Upon completion of
70 *  this loop all created tasks are blocked.
71 */
72
73  priority = 250;
74
75  for( index = 0 ; index <= OPERATION_COUNT ; index++ ) {
76    status = rtems_task_create(
77      rtems_build_name( 'M', 'I', 'D', ' ' ),
78      priority,
79      RTEMS_MINIMUM_STACK_SIZE,
80      RTEMS_DEFAULT_MODES,
81      RTEMS_DEFAULT_ATTRIBUTES,
82      &Task_id[ index ]
83    );
84    directive_failed( status, "rtems_task_create LOOP" );
85
86    if (  index == OPERATION_COUNT ) task_entry = High_task;
87    else                             task_entry = Middle_tasks;
88
89    status = rtems_task_start( Task_id[ index ], task_entry, 0 );
90    directive_failed( status, "rtems_task_start LOOP" );
91
92    priority--;
93  }
94
95  Task_count = 0;
96
97  Timer_initialize();
98    (void) rtems_event_send( Task_id[ Task_count ], RTEMS_EVENT_16 );
99  /* preempts task */
100}
101
102rtems_task Middle_tasks(
103  rtems_task_argument argument
104)
105{
106  rtems_event_set event_out;
107
108  (void) rtems_event_receive(              /* task blocks */
109           RTEMS_EVENT_16,
110           RTEMS_DEFAULT_OPTIONS,
111           RTEMS_NO_TIMEOUT,
112           &event_out
113         );
114
115  Task_count++;
116
117  (void) rtems_event_send(               /* preempts task */
118    Task_id[ Task_count ],
119    RTEMS_EVENT_16
120  );
121}
122
123rtems_task High_task(
124  rtems_task_argument argument
125)
126{
127  rtems_event_set event_out;
128
129  (void) rtems_event_receive(                /* task blocks */
130            RTEMS_EVENT_16,
131            RTEMS_DEFAULT_OPTIONS,
132            RTEMS_NO_TIMEOUT,
133            &event_out
134          );
135
136  end_time = Read_timer();
137
138  put_time(
139    "rtems_event_send (preemptive)",
140    end_time,
141    OPERATION_COUNT,
142    0,
143    CALLING_OVERHEAD_EVENT_SEND
144  );
145
146  puts( "*** END OF TEST 16 ***" );
147  exit( 0 );
148}
Note: See TracBrowser for help on using the repository browser.