OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [tests/] [mptests/] [mp14/] [evtmtask.c] - Blame information for rev 173

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 30 unneback
/*  Delayed_events_task
2
 *
3
 *  This task continuously sends itself events at one tick
4
 *  intervals.
5
 *
6
 *  Input parameters:
7
 *    argument - task argument
8
 *
9
 *  Output parameters:  NONE
10
 *
11
 *  COPYRIGHT (c) 1989-1999.
12
 *  On-Line Applications Research Corporation (OAR).
13
 *
14
 *  The license and distribution terms for this file may be
15
 *  found in the file LICENSE in this distribution or at
16
 *  http://www.OARcorp.com/rtems/license.html.
17
 *
18
 *  $Id: evtmtask.c,v 1.2 2001-09-27 12:02:23 chris Exp $
19
 */
20
 
21
#include "system.h"
22
 
23
rtems_task Delayed_events_task(
24
  rtems_task_argument argument
25
)
26
{
27
  rtems_unsigned32  count;
28
  rtems_unsigned32  previous_mode;
29
  rtems_status_code status;
30
  rtems_event_set   events;
31
 
32
  status = rtems_task_mode(
33
    RTEMS_PREEMPT | RTEMS_TIMESLICE,
34
    RTEMS_PREEMPT_MASK | RTEMS_TIMESLICE_MASK,
35
    &previous_mode
36
  );
37
  directive_failed( status, "rtems_task_mode" );
38
 
39
  status = rtems_timer_create( Timer_name[ 1 ], &Timer_id[ 1 ] );
40
  directive_failed( status, "rtems_timer_create" );
41
 
42
  while ( Stop_Test == FALSE ) {
43
    for ( count=DELAYED_EVENT_DOT_COUNT; Stop_Test == FALSE && count; count-- ){
44
      status = rtems_timer_fire_after(
45
        Timer_id[ 1 ],
46
        1,
47
        Delayed_send_event,
48
        NULL
49
      );
50
      directive_failed( status, "rtems_timer_reset" );
51
 
52
      status = rtems_event_receive(
53
        RTEMS_EVENT_16,
54
        RTEMS_DEFAULT_OPTIONS,
55
        RTEMS_NO_TIMEOUT,
56
        &events
57
      );
58
      directive_failed( status, "rtems_event_receive" );
59
    }
60
    put_dot('.');
61
  }
62
 
63
  Exit_test();
64
}

powered by: WebSVN 2.1.0

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