source: rtems/c/src/tests/tmtests/tm25/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.3 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 Semaphore_id;
18
19rtems_task High_tasks(
20  rtems_task_argument argument
21);
22
23rtems_task Low_task(
24  rtems_task_argument argument
25);
26
27rtems_task Init(
28  rtems_task_argument argument
29)
30{
31  rtems_id          task_id;
32  rtems_unsigned32  index;
33  rtems_status_code status;
34
35  Print_Warning();
36
37  puts( "\n\n*** TIME TEST 25 ***" );
38
39  status = rtems_semaphore_create(
40    rtems_build_name( 'S', 'M', '1', ' ') ,
41    0,
42    RTEMS_DEFAULT_ATTRIBUTES,
43    RTEMS_NO_PRIORITY,
44    &Semaphore_id
45  );
46  directive_failed( status, "rtems_semaphore_create of SM1" );
47
48  status = rtems_task_create(
49    rtems_build_name( 'L', 'O', 'W', ' ' ),
50    254,
51    RTEMS_MINIMUM_STACK_SIZE,
52    RTEMS_DEFAULT_MODES,
53    RTEMS_DEFAULT_ATTRIBUTES,
54    &task_id
55  );
56  directive_failed( status, "rtems_task_create LOW" );
57
58  status = rtems_task_start( task_id, Low_task, 0 );
59  directive_failed( status, "rtems_task_start LOW" );
60
61  for ( index=1 ; index <= OPERATION_COUNT ; index++ ) {
62    status = rtems_task_create(
63      rtems_build_name( 'T', 'I', 'M', 'E' ),
64      128,
65      RTEMS_MINIMUM_STACK_SIZE,
66      RTEMS_DEFAULT_MODES,
67      RTEMS_DEFAULT_ATTRIBUTES,
68      &task_id
69    );
70    directive_failed( status, "rtems_task_create LOOP" );
71
72    status = rtems_task_start( task_id, High_tasks, 0 );
73    directive_failed( status, "rtems_task_start LOOP" );
74  }
75
76  status = rtems_task_delete( RTEMS_SELF );
77  directive_failed( status, "rtems_task_delete of RTEMS_SELF" );
78}
79
80rtems_task High_tasks(
81  rtems_task_argument argument
82)
83{
84  (void) rtems_semaphore_obtain(
85    Semaphore_id,
86    RTEMS_DEFAULT_OPTIONS,
87    0xffffffff
88  );
89}
90
91rtems_task Low_task(
92  rtems_task_argument argument
93)
94{
95  Timer_initialize();
96    (void) rtems_clock_tick();
97  end_time = Read_timer();
98
99  put_time(
100    "rtems_clock_tick",
101    end_time,
102    1,
103    0,
104    CALLING_OVERHEAD_CLOCK_TICK
105  );
106
107  puts( "*** END OF TEST 25 ***" );
108  exit( 0 );
109}
Note: See TracBrowser for help on using the repository browser.