source: rtems/testsuites/tmtests/tm12/task1.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: 3.0 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 12 ***" );
44
45  status = rtems_task_create(
46    1,
47    251,
48    1024,
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      1024,
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_send( Queue_id, (long (*)[4]) Buffer, 16 );
119  end_time = Read_timer();
120
121  put_time(
122    "rtems_message_queue_send (readying)",
123    end_time,
124    OPERATION_COUNT,
125    overhead,
126    CALLING_OVERHEAD_MESSAGE_QUEUE_SEND
127  );
128
129  puts( "*** END OF TEST 12 ***" );
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.