URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [tests/] [tmtests/] [tm08/] [task1.c] - Blame information for rev 173

Details | Compare with Previous | View Log


/*
 *
 *  COPYRIGHT (c) 1989-1999.
 *  On-Line Applications Research Corporation (OAR).
 *
 *  The license and distribution terms for this file may be
 *  found in the file LICENSE in this distribution or at
 *  http://www.OARcorp.com/rtems/license.html.
 *
 *  $Id: task1.c,v 1.2 2001-09-27 12:02:41 chris Exp $
 */
 
#define TEST_INIT
#include "system.h"
 
rtems_id Test_task_id;
 
rtems_task test_task(
  rtems_task_argument argument
);
rtems_task test_task1(
  rtems_task_argument argument
);
void test_init();
 
rtems_task Init(
  rtems_task_argument argument
)
{
  rtems_status_code status;
 
  Print_Warning();
 
  puts( "\n\n*** TIME TEST 8 ***" );
 
  test_init();
 
  status = rtems_task_delete( RTEMS_SELF );
  directive_failed( status, "rtems_task_delete of RTEMS_SELF" );
}
 
void test_init()
{
  rtems_status_code status;
 
  status = rtems_task_create(
    1,
    128,
    RTEMS_MINIMUM_STACK_SIZE,
    RTEMS_DEFAULT_MODES,
    RTEMS_DEFAULT_ATTRIBUTES,
    &Test_task_id
  );
  directive_failed( status, "rtems_task_create" );
 
  status = rtems_task_start( Test_task_id, test_task, 0 );
  directive_failed( status, "rtems_task_start" );
 
  status = rtems_task_create(
    1,
    254,
    RTEMS_MINIMUM_STACK_SIZE,
    RTEMS_DEFAULT_MODES,
    RTEMS_DEFAULT_ATTRIBUTES,
    &Test_task_id
  );
  directive_failed( status, "rtems_task_create" );
 
  status = rtems_task_start( Test_task_id, test_task1, 0 );
  directive_failed( status, "rtems_task_start" );
}
 
rtems_task test_task(
  rtems_task_argument argument
)
{
  rtems_status_code   status;
  rtems_unsigned32    index;
  rtems_task_priority old_priority;
  rtems_time_of_day   time;
  rtems_unsigned32    old_note;
  rtems_unsigned32    old_mode;
 
  Timer_initialize();
    for ( index=1 ; index <= OPERATION_COUNT ; index++ )
      (void) Empty_function();
  overhead = Read_timer();
 
  Timer_initialize();
    for ( index=1 ; index <= OPERATION_COUNT ; index++ )
      (void) rtems_task_set_priority(
               Test_task_id,
               RTEMS_CURRENT_PRIORITY,
               &old_priority
             );
  end_time = Read_timer();
 
  put_time(
    "rtems_task_set_priority: obtain current priority",
    end_time,
    OPERATION_COUNT,
    overhead,
    CALLING_OVERHEAD_TASK_SET_PRIORITY
  );
 
  Timer_initialize();
    for ( index=1 ; index <= OPERATION_COUNT ; index++ )
      (void) rtems_task_set_priority( Test_task_id, 253, &old_priority );
  end_time = Read_timer();
 
  put_time(
    "rtems_task_set_priority: returns to caller",
    end_time,
    OPERATION_COUNT,
    overhead,
    CALLING_OVERHEAD_TASK_SET_PRIORITY
  );
 
  Timer_initialize();
    for ( index=1 ; index <= OPERATION_COUNT ; index++ )
      (void) rtems_task_mode(
        RTEMS_CURRENT_MODE,
        RTEMS_CURRENT_MODE,
        &old_mode
      );
  end_time = Read_timer();
 
  put_time(
    "rtems_task_mode: obtain current mode",
    end_time,
    OPERATION_COUNT,
    overhead,
    CALLING_OVERHEAD_TASK_MODE
  );
 
  Timer_initialize();
    for ( index=1 ; index <= OPERATION_COUNT ; index++ ) {
      (void) rtems_task_mode(
        RTEMS_INTERRUPT_LEVEL(1),
        RTEMS_INTERRUPT_MASK,
        &old_mode
      );
      (void) rtems_task_mode(
        RTEMS_INTERRUPT_LEVEL(0),
        RTEMS_INTERRUPT_MASK,
        &old_mode
      );
    }
  end_time = Read_timer();
 
  put_time(
    "rtems_task_mode: no reschedule",
    end_time,
    OPERATION_COUNT * 2,
    overhead,
    CALLING_OVERHEAD_TASK_MODE
  );
 
  Timer_initialize();                 /* must be one host */
    (void) rtems_task_mode( RTEMS_NO_ASR, RTEMS_ASR_MASK, &old_mode );
  end_time = Read_timer();
 
  put_time(
    "rtems_task_mode: reschedule -- returns to caller",
    end_time,
    1,
    0,
    CALLING_OVERHEAD_TASK_MODE
  );
 
  status = rtems_task_mode( RTEMS_NO_PREEMPT, RTEMS_PREEMPT_MASK, &old_mode );
  directive_failed( status, "rtems_task_mode" );
 
  status = rtems_task_set_priority( Test_task_id, 1, &old_priority );
  directive_failed( status, "rtems_task_set_priority" );
 
  /* preempted by test_task1 */
  Timer_initialize();
    (void)  rtems_task_mode( RTEMS_PREEMPT, RTEMS_PREEMPT_MASK, &old_mode );
 
  Timer_initialize();
    for ( index=1 ; index <= OPERATION_COUNT ; index++ )
      (void) rtems_task_set_note( Test_task_id, 8, 10 );
  end_time = Read_timer();
 
  put_time(
    "rtems_task_set_note",
    end_time,
    OPERATION_COUNT,
    overhead,
    CALLING_OVERHEAD_TASK_SET_NOTE
  );
 
  Timer_initialize();
    for ( index=1 ; index <= OPERATION_COUNT ; index++ )
      (void) rtems_task_get_note( Test_task_id, 8, &old_note );
  end_time = Read_timer();
 
  put_time(
    "rtems_task_get_note",
    end_time,
    OPERATION_COUNT,
    overhead,
    CALLING_OVERHEAD_TASK_GET_NOTE
  );
 
  build_time( &time, 1, 1, 1988, 0, 0, 0, 0 );
 
  Timer_initialize();
    for ( index=1 ; index <= OPERATION_COUNT ; index++ )
      (void) rtems_clock_set( &time );
  end_time = Read_timer();
 
  put_time(
    "rtems_clock_set",
    end_time,
    OPERATION_COUNT,
    overhead,
    CALLING_OVERHEAD_CLOCK_SET
  );
 
  Timer_initialize();
    for ( index=1 ; index <= OPERATION_COUNT ; index++ )
      (void) rtems_clock_get( RTEMS_CLOCK_GET_TOD, &time );
  end_time = Read_timer();
 
  put_time(
    "rtems_clock_get",
    end_time,
    OPERATION_COUNT,
    overhead,
    CALLING_OVERHEAD_CLOCK_GET
  );
 
  puts( "*** END OF TEST 8 ***" );
  exit( 0 );
}
 
rtems_task test_task1(
  rtems_task_argument argument
)
{
  end_time = Read_timer();
 
  put_time(
    "rtems_task_mode: reschedule -- preempts caller",
    end_time,
    1,
    0,
    CALLING_OVERHEAD_TASK_MODE
  );
 
  (void) rtems_task_suspend( RTEMS_SELF );
}

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [tests/] [tmtests/] [tm08/] [task1.c] - Blame information for rev 173

Line No.	Rev	Author	Line
1	30	unneback	`/*`
2			`*`
3			`* COPYRIGHT (c) 1989-1999.`
4			`* On-Line Applications Research Corporation (OAR).`
5			`*`
6			`* The license and distribution terms for this file may be`
7			`* found in the file LICENSE in this distribution or at`
8			`* http://www.OARcorp.com/rtems/license.html.`
9			`*`
10			`* $Id: task1.c,v 1.2 2001-09-27 12:02:41 chris Exp $`
11			`*/`
12
13			`#define TEST_INIT`
14			`#include "system.h"`
15
16			`rtems_id Test_task_id;`
17
18			`rtems_task test_task(`
19			`rtems_task_argument argument`
20			`);`
21			`rtems_task test_task1(`
22			`rtems_task_argument argument`
23			`);`
24			`void test_init();`
25
26			`rtems_task Init(`
27			`rtems_task_argument argument`
28			`)`
29			`{`
30			`rtems_status_code status;`
31
32			`Print_Warning();`
33
34			`puts( "\n\n* TIME TEST 8 *" );`
35
36			`test_init();`
37
38			`status = rtems_task_delete( RTEMS_SELF );`
39			`directive_failed( status, "rtems_task_delete of RTEMS_SELF" );`
40			`}`
41
42			`void test_init()`
43			`{`
44			`rtems_status_code status;`
45
46			`status = rtems_task_create(`
47			`1,`
48			`128,`
49			`RTEMS_MINIMUM_STACK_SIZE,`
50			`RTEMS_DEFAULT_MODES,`
51			`RTEMS_DEFAULT_ATTRIBUTES,`
52			`&Test_task_id`
53			`);`
54			`directive_failed( status, "rtems_task_create" );`
55
56			`status = rtems_task_start( Test_task_id, test_task, 0 );`
57			`directive_failed( status, "rtems_task_start" );`
58
59			`status = rtems_task_create(`
60			`1,`
61			`254,`
62			`RTEMS_MINIMUM_STACK_SIZE,`
63			`RTEMS_DEFAULT_MODES,`
64			`RTEMS_DEFAULT_ATTRIBUTES,`
65			`&Test_task_id`
66			`);`
67			`directive_failed( status, "rtems_task_create" );`
68
69			`status = rtems_task_start( Test_task_id, test_task1, 0 );`
70			`directive_failed( status, "rtems_task_start" );`
71			`}`
72
73			`rtems_task test_task(`
74			`rtems_task_argument argument`
75			`)`
76			`{`
77			`rtems_status_code status;`
78			`rtems_unsigned32 index;`
79			`rtems_task_priority old_priority;`
80			`rtems_time_of_day time;`
81			`rtems_unsigned32 old_note;`
82			`rtems_unsigned32 old_mode;`
83
84			`Timer_initialize();`
85			`for ( index=1 ; index <= OPERATION_COUNT ; index++ )`
86			`(void) Empty_function();`
87			`overhead = Read_timer();`
88
89			`Timer_initialize();`
90			`for ( index=1 ; index <= OPERATION_COUNT ; index++ )`
91			`(void) rtems_task_set_priority(`
92			`Test_task_id,`
93			`RTEMS_CURRENT_PRIORITY,`
94			`&old_priority`
95			`);`
96			`end_time = Read_timer();`
97
98			`put_time(`
99			`"rtems_task_set_priority: obtain current priority",`
100			`end_time,`
101			`OPERATION_COUNT,`
102			`overhead,`
103			`CALLING_OVERHEAD_TASK_SET_PRIORITY`
104			`);`
105
106			`Timer_initialize();`
107			`for ( index=1 ; index <= OPERATION_COUNT ; index++ )`
108			`(void) rtems_task_set_priority( Test_task_id, 253, &old_priority );`
109			`end_time = Read_timer();`
110
111			`put_time(`
112			`"rtems_task_set_priority: returns to caller",`
113			`end_time,`
114			`OPERATION_COUNT,`
115			`overhead,`
116			`CALLING_OVERHEAD_TASK_SET_PRIORITY`
117			`);`
118
119			`Timer_initialize();`
120			`for ( index=1 ; index <= OPERATION_COUNT ; index++ )`
121			`(void) rtems_task_mode(`
122			`RTEMS_CURRENT_MODE,`
123			`RTEMS_CURRENT_MODE,`
124			`&old_mode`
125			`);`
126			`end_time = Read_timer();`
127
128			`put_time(`
129			`"rtems_task_mode: obtain current mode",`
130			`end_time,`
131			`OPERATION_COUNT,`
132			`overhead,`
133			`CALLING_OVERHEAD_TASK_MODE`
134			`);`
135
136			`Timer_initialize();`
137			`for ( index=1 ; index <= OPERATION_COUNT ; index++ ) {`
138			`(void) rtems_task_mode(`
139			`RTEMS_INTERRUPT_LEVEL(1),`
140			`RTEMS_INTERRUPT_MASK,`
141			`&old_mode`
142			`);`
143			`(void) rtems_task_mode(`
144			`RTEMS_INTERRUPT_LEVEL(0),`
145			`RTEMS_INTERRUPT_MASK,`
146			`&old_mode`
147			`);`
148			`}`
149			`end_time = Read_timer();`
150
151			`put_time(`
152			`"rtems_task_mode: no reschedule",`
153			`end_time,`
154			`OPERATION_COUNT * 2,`
155			`overhead,`
156			`CALLING_OVERHEAD_TASK_MODE`
157			`);`
158
159			`Timer_initialize(); /* must be one host */`
160			`(void) rtems_task_mode( RTEMS_NO_ASR, RTEMS_ASR_MASK, &old_mode );`
161			`end_time = Read_timer();`
162
163			`put_time(`
164			`"rtems_task_mode: reschedule -- returns to caller",`
165			`end_time,`
166			`1,`
167			`0,`
168			`CALLING_OVERHEAD_TASK_MODE`
169			`);`
170
171			`status = rtems_task_mode( RTEMS_NO_PREEMPT, RTEMS_PREEMPT_MASK, &old_mode );`
172			`directive_failed( status, "rtems_task_mode" );`
173
174			`status = rtems_task_set_priority( Test_task_id, 1, &old_priority );`
175			`directive_failed( status, "rtems_task_set_priority" );`
176
177			`/* preempted by test_task1 */`
178			`Timer_initialize();`
179			`(void) rtems_task_mode( RTEMS_PREEMPT, RTEMS_PREEMPT_MASK, &old_mode );`
180
181			`Timer_initialize();`
182			`for ( index=1 ; index <= OPERATION_COUNT ; index++ )`
183			`(void) rtems_task_set_note( Test_task_id, 8, 10 );`
184			`end_time = Read_timer();`
185
186			`put_time(`
187			`"rtems_task_set_note",`
188			`end_time,`
189			`OPERATION_COUNT,`
190			`overhead,`
191			`CALLING_OVERHEAD_TASK_SET_NOTE`
192			`);`
193
194			`Timer_initialize();`
195			`for ( index=1 ; index <= OPERATION_COUNT ; index++ )`
196			`(void) rtems_task_get_note( Test_task_id, 8, &old_note );`
197			`end_time = Read_timer();`
198
199			`put_time(`
200			`"rtems_task_get_note",`
201			`end_time,`
202			`OPERATION_COUNT,`
203			`overhead,`
204			`CALLING_OVERHEAD_TASK_GET_NOTE`
205			`);`
206
207			`build_time( &time, 1, 1, 1988, 0, 0, 0, 0 );`
208
209			`Timer_initialize();`
210			`for ( index=1 ; index <= OPERATION_COUNT ; index++ )`
211			`(void) rtems_clock_set( &time );`
212			`end_time = Read_timer();`
213
214			`put_time(`
215			`"rtems_clock_set",`
216			`end_time,`
217			`OPERATION_COUNT,`
218			`overhead,`
219			`CALLING_OVERHEAD_CLOCK_SET`
220			`);`
221
222			`Timer_initialize();`
223			`for ( index=1 ; index <= OPERATION_COUNT ; index++ )`
224			`(void) rtems_clock_get( RTEMS_CLOCK_GET_TOD, &time );`
225			`end_time = Read_timer();`
226
227			`put_time(`
228			`"rtems_clock_get",`
229			`end_time,`
230			`OPERATION_COUNT,`
231			`overhead,`
232			`CALLING_OVERHEAD_CLOCK_GET`
233			`);`
234
235			`puts( "* END OF TEST 8 *" );`
236			`exit( 0 );`
237			`}`
238
239			`rtems_task test_task1(`
240			`rtems_task_argument argument`
241			`)`
242			`{`
243			`end_time = Read_timer();`
244
245			`put_time(`
246			`"rtems_task_mode: reschedule -- preempts caller",`
247			`end_time,`
248			`1,`
249			`0,`
250			`CALLING_OVERHEAD_TASK_MODE`
251			`);`
252
253			`(void) rtems_task_suspend( RTEMS_SELF );`
254			`}`