source: rtems/testsuites/tmtests/tm14/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.1 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 High_task(
26  rtems_task_argument argument
27);
28
29rtems_task Low_tasks(
30  rtems_task_argument argument
31);
32
33
34rtems_task Init(
35  rtems_task_argument argument
36)
37{
38  rtems_id          task_id;
39  rtems_status_code status;
40
41  Print_Warning();
42
43  puts( "\n\n*** TIME TEST 14 ***" );
44
45  status = rtems_task_create(
46    1,
47    251,
48    RTEMS_MINIMUM_STACK_SIZE,
49    RTEMS_DEFAULT_MODES,
50    RTEMS_DEFAULT_ATTRIBUTES,
51    &task_id
52  );
53  directive_failed( status, "rtems_task_create" );
54
55  status = rtems_task_start( task_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
73  status = rtems_message_queue_create(
74    rtems_build_name( 'M', 'Q', '1', ' ' ),
75    OPERATION_COUNT,
76    16,
77    RTEMS_DEFAULT_ATTRIBUTES,
78    &Queue_id
79  );
80  directive_failed( status, "rtems_message_queue_create" );
81
82  priority = 250;
83
84  for( index = 0; index <= OPERATION_COUNT ; index++ ) {
85    status = rtems_task_create(
86      rtems_build_name( 'T', 'I', 'M', 'E' ),
87      priority,
88      RTEMS_MINIMUM_STACK_SIZE,
89      RTEMS_DEFAULT_MODES,
90      RTEMS_DEFAULT_ATTRIBUTES,
91      &task_id
92    );
93    directive_failed( status, "rtems_task_create LOOP" );
94
95    priority--;
96
97    if ( index==OPERATION_COUNT ) task_entry = High_task;
98    else                          task_entry = Low_tasks;
99
100    status = rtems_task_start( task_id, task_entry, 0 );
101    directive_failed( status, "rtems_task_start LOOP" );
102  }
103}
104
105rtems_task High_task(
106  rtems_task_argument argument
107)
108{
109  rtems_unsigned32  index;
110
111  Timer_initialize();
112    for ( index=1 ; index <= OPERATION_COUNT ; index++ )
113      (void) Empty_function();
114  overhead = Read_timer();
115
116  Timer_initialize();
117    for ( index=1 ; index <= OPERATION_COUNT ; index++ )
118      (void) rtems_message_queue_urgent( Queue_id, (long (*)[4]) Buffer, 16 );
119  end_time = Read_timer();
120
121  put_time(
122    "rtems_message_queue_urgent (readying)",
123    end_time,
124    OPERATION_COUNT,
125    overhead,
126    CALLING_OVERHEAD_MESSAGE_QUEUE_URGENT
127  );
128
129  puts( "*** END OF TEST 14 ***" );
130  exit( 0 );
131}
132
133rtems_task Low_tasks(
134  rtems_task_argument argument
135)
136{
137  rtems_unsigned32 size;
138
139  (void) rtems_message_queue_receive(
140           Queue_id,
141           (long (*)[4]) Buffer,
142           &size,
143           RTEMS_DEFAULT_OPTIONS,
144           RTEMS_NO_TIMEOUT
145         );
146}
Note: See TracBrowser for help on using the repository browser.