OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

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

Go to most recent revision | Details | Compare with Previous | View Log

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:44 chris Exp $
11
 */
12
 
13
#define TEST_INIT
14
#include "system.h"
15
 
16
rtems_unsigned32 Task_count;
17
 
18
rtems_task Tasks(
19
  rtems_task_argument argument
20
);
21
 
22
rtems_task High_task(
23
  rtems_task_argument argument
24
);
25
 
26
rtems_task Init(
27
  rtems_task_argument argument
28
)
29
{
30
  rtems_id          id;
31
  rtems_unsigned32  index;
32
  rtems_status_code status;
33
 
34
  Print_Warning();
35
 
36
  puts( "\n\n*** TIME TEST 24 ***" );
37
 
38
  status = rtems_task_create(
39
    rtems_build_name( 'H', 'I', 'G', 'H' ),
40
    10,
41
    RTEMS_MINIMUM_STACK_SIZE,
42
    RTEMS_DEFAULT_MODES,
43
    RTEMS_DEFAULT_ATTRIBUTES,
44
    &id
45
  );
46
  directive_failed( status, "rtems_task_create HIGH" );
47
 
48
  status = rtems_task_start( id, High_task, 0 );
49
  directive_failed( status, "rtems_task_create HIGH" );
50
 
51
  for ( index = 1 ; index <= OPERATION_COUNT ; index++ ) {
52
    status = rtems_task_create(
53
      rtems_build_name( 'R', 'E', 'S', 'T' ),
54
      128,
55
      RTEMS_MINIMUM_STACK_SIZE,
56
      RTEMS_DEFAULT_MODES,
57
      RTEMS_DEFAULT_ATTRIBUTES,
58
      &id
59
    );
60
    directive_failed( status, "rtems_task_create LOOP" );
61
 
62
    status = rtems_task_start( id, Tasks, 0 );
63
    directive_failed( status, "rtems_task_start LOOP" );
64
  }
65
  status = rtems_task_delete( RTEMS_SELF );
66
  directive_failed( status, "rtems_task_delete of RTEMS_SELF" );
67
}
68
 
69
rtems_task High_task(
70
  rtems_task_argument argument
71
)
72
{
73
  rtems_status_code status;
74
  rtems_unsigned32  index;
75
 
76
  Timer_initialize();
77
    for ( index=1 ; index <= OPERATION_COUNT ; index++ )
78
      (void) Empty_function();
79
  overhead = Read_timer();
80
 
81
  Timer_initialize();
82
    for ( index=1 ; index <= OPERATION_COUNT ; index++ )
83
      (void) rtems_task_wake_after( RTEMS_YIELD_PROCESSOR );
84
  end_time = Read_timer();
85
 
86
  put_time(
87
    "rtems_task_wake_after: yield -- returns to caller",
88
    end_time,
89
    OPERATION_COUNT,
90
    overhead,
91
    CALLING_OVERHEAD_TASK_WAKE_AFTER
92
  );
93
 
94
  Task_count = 0;
95
 
96
  status = rtems_task_delete( RTEMS_SELF );
97
  directive_failed( status, "rtems_task_delete of RTEMS_SELF" );
98
}
99
 
100
rtems_task Tasks(
101
  rtems_task_argument argument
102
)
103
{
104
  Task_count++;
105
 
106
  if ( Task_count == 1 )
107
    Timer_initialize();
108
  else if ( Task_count == OPERATION_COUNT ) {
109
    end_time = Read_timer();
110
 
111
    put_time(
112
      "rtems_task_wake_after: yields -- preempts caller",
113
      end_time,
114
      OPERATION_COUNT,
115
      overhead,
116
      CALLING_OVERHEAD_TASK_WAKE_AFTER
117
    );
118
 
119
  puts( "*** END OF TEST 24 ***" );
120
    exit( 0 );
121
  }
122
  (void) rtems_task_wake_after( RTEMS_YIELD_PROCESSOR );
123
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.