source: rtems/testsuites/tmtests/tm17/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: 2.6 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;
18rtems_task_priority Task_priority;
19
20rtems_task First_task(
21  rtems_task_argument argument
22);
23
24rtems_task Middle_tasks(
25  rtems_task_argument argument
26);
27
28rtems_task Last_task(
29  rtems_task_argument argument
30);
31
32rtems_task Init(
33  rtems_task_argument argument
34)
35{
36  rtems_task_entry  task_entry;
37  rtems_unsigned32  index;
38  rtems_status_code status;
39
40  Print_Warning();
41
42  puts( "\n\n*** TIME TEST 17 ***" );
43
44  Task_priority = 254;
45
46  for( index = 0; index <= OPERATION_COUNT ; index++ ) {
47    status = rtems_task_create(
48      rtems_build_name( 'T', 'I', 'M', 'E' ),
49      Task_priority,
50      RTEMS_MINIMUM_STACK_SIZE,
51      RTEMS_DEFAULT_MODES,
52      RTEMS_DEFAULT_ATTRIBUTES,
53      &Task_id[ index ]
54    );
55    directive_failed( status, "rtems_task_create loop" );
56
57    if ( index == OPERATION_COUNT ) task_entry = Last_task;
58    else if ( index == 0 )          task_entry = First_task;
59    else                            task_entry = Middle_tasks;
60
61    status = rtems_task_start( Task_id[ index ], task_entry, 0 );
62    directive_failed( status, "rtems_task_start loop" );
63  }
64
65  Task_count = 1;
66  status = rtems_task_delete( RTEMS_SELF );
67  directive_failed( status, "rtems_task_delete of RTEMS_SELF" );
68}
69
70rtems_task First_task(
71  rtems_task_argument argument
72)
73{
74  rtems_task_priority previous_priority;
75
76  Timer_initialize();
77
78  Task_priority--;
79  Task_count++;
80
81  (void) rtems_task_set_priority(
82           Task_id[ Task_count ],
83           Task_priority,
84           &previous_priority
85         );
86}
87
88rtems_task Middle_tasks(
89  rtems_task_argument argument
90)
91{
92  rtems_task_priority previous_priority;
93
94  Task_priority--;
95  Task_count++;
96
97  (void) rtems_task_set_priority(
98           Task_id[ Task_count ],
99           Task_priority,
100           &previous_priority
101         );
102}
103
104rtems_task Last_task(
105  rtems_task_argument argument
106)
107{
108  rtems_unsigned32 index;
109
110  end_time = Read_timer();
111
112  Timer_initialize();
113    for ( index=1 ; index <= OPERATION_COUNT ; index++ )
114      (void) Empty_function();
115  overhead = Read_timer();
116
117  put_time(
118    "rtems_task_set_priority (preemptive)",
119    end_time,
120    OPERATION_COUNT,
121    overhead,
122    CALLING_OVERHEAD_TASK_SET_PRIORITY
123  );
124
125  puts( "*** END OF TEST 17 ***" );
126  exit( 0 );
127}
Note: See TracBrowser for help on using the repository browser.