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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [exec/] [score/] [src/] [objectget.c] - Blame information for rev 609

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

Line No. Rev Author Line
1 30 unneback
/*
2
 *  Object Handler
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: objectget.c,v 1.2 2001-09-27 11:59:34 chris Exp $
13
 */
14
 
15
#include <rtems/system.h>
16
#include <rtems/score/address.h>
17
#include <rtems/score/chain.h>
18
#include <rtems/score/object.h>
19
#if defined(RTEMS_MULTIPROCESSING)
20
#include <rtems/score/objectmp.h>
21
#endif
22
#include <rtems/score/thread.h>
23
#include <rtems/score/wkspace.h>
24
#include <rtems/score/sysstate.h>
25
#include <rtems/score/isr.h>
26
 
27
/*PAGE
28
 *
29
 * _Objects_Get
30
 *
31
 * This routine sets the object pointer for the given
32
 * object id based on the given object information structure.
33
 *
34
 * Input parameters:
35
 *   information - pointer to entry in table for this class
36
 *   id          - object id to search for
37
 *   location    - address of where to store the location
38
 *
39
 * Output parameters:
40
 *   returns  - address of object if local
41
 *   location - one of the following:
42
 *                  OBJECTS_ERROR  - invalid object ID
43
 *                  OBJECTS_REMOTE - remote object
44
 *                  OBJECTS_LOCAL  - local object
45
 */
46
 
47
Objects_Control *_Objects_Get(
48
  Objects_Information *information,
49
  Objects_Id           id,
50
  Objects_Locations   *location
51
)
52
{
53
  Objects_Control *the_object;
54
  unsigned32       index;
55
 
56
  index = _Objects_Get_index( id );
57
 
58
  if ( information->maximum >= index ) {
59
    _Thread_Disable_dispatch();
60
    if ( (the_object = _Objects_Get_local_object( information, index )) != NULL ) {
61
      *location = OBJECTS_LOCAL;
62
      return( the_object );
63
    }
64
    _Thread_Enable_dispatch();
65
    *location = OBJECTS_ERROR;
66
    return( NULL );
67
  }
68
  *location = OBJECTS_ERROR;
69
#if defined(RTEMS_MULTIPROCESSING)
70
  _Objects_MP_Is_remote(
71
    information,
72
    _Objects_Build_id( information->the_class, _Objects_Local_node, index ),
73
    location,
74
    &the_object
75
  );
76
  return the_object;
77
#else
78
  return NULL;
79
#endif
80
}

powered by: WebSVN 2.1.0

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