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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [exec/] [rtems/] [src/] [ratemongetstatus.c] - Blame information for rev 587

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

Line No. Rev Author Line
1 30 unneback
/*
2
 *  Rate Monotonic Manager
3
 *
4
 *
5
 *  COPYRIGHT (c) 1989-1999.
6
 *  On-Line Applications Research Corporation (OAR).
7
 *
8
 *  The license and distribution terms for this file may be
9
 *  found in the file LICENSE in this distribution or at
10
 *  http://www.OARcorp.com/rtems/license.html.
11
 *
12
 *  $Id: ratemongetstatus.c,v 1.2 2001-09-27 11:59:19 chris Exp $
13
 */
14
 
15
#include <rtems/system.h>
16
#include <rtems/rtems/status.h>
17
#include <rtems/rtems/support.h>
18
#include <rtems/score/isr.h>
19
#include <rtems/score/object.h>
20
#include <rtems/rtems/ratemon.h>
21
#include <rtems/score/thread.h>
22
 
23
/*PAGE
24
 *
25
 *  rtems_rate_monotonic_get_status
26
 *
27
 *  This directive allows a thread to obtain status information on a
28
 *  period.
29
 *
30
 *  Input parameters:
31
 *    id     - rate monotonic id
32
 *    status - pointer to status control block
33
 *
34
 *  Output parameters:
35
 *    RTEMS_SUCCESSFUL - if successful
36
 *    error code        - if unsuccessful
37
 *
38
 */
39
 
40
rtems_status_code rtems_rate_monotonic_get_status(
41
  Objects_Id                           id,
42
  rtems_rate_monotonic_period_status  *status
43
)
44
{
45
  Objects_Locations              location;
46
  Rate_monotonic_Control        *the_period;
47
 
48
  if ( status == NULL )
49
    return RTEMS_INVALID_ADDRESS;
50
 
51
  the_period = _Rate_monotonic_Get( id, &location );
52
  switch ( location ) {
53
    case OBJECTS_REMOTE:            /* should never return this */
54
      return RTEMS_INTERNAL_ERROR;
55
 
56
    case OBJECTS_ERROR:
57
      return RTEMS_INVALID_ID;
58
 
59
    case OBJECTS_LOCAL:
60
      status->state = the_period->state;
61
 
62
      if ( status->state == RATE_MONOTONIC_INACTIVE ) {
63
        status->ticks_since_last_period = 0;
64
        status->ticks_executed_since_last_period = 0;
65
      } else {
66
        status->ticks_since_last_period =
67
          _Watchdog_Ticks_since_boot - the_period->time_at_period;
68
 
69
        status->ticks_executed_since_last_period =
70
          the_period->owner->ticks_executed -
71
            the_period->owner_ticks_executed_at_period;
72
      }
73
 
74
      _Thread_Enable_dispatch();
75
      return RTEMS_SUCCESSFUL;
76
  }
77
 
78
  return RTEMS_INTERNAL_ERROR;   /* unreached - only to remove warnings */
79
}

powered by: WebSVN 2.1.0

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