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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [rtems-20020807/] [cpukit/] [score/] [src/] [objectget.c] - Blame information for rev 1026

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

Line No. Rev Author Line
1 1026 ivang
/*
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
 *  objectget.c,v 1.5 2001/11/07 22:41:51 joel 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
#if defined(RTEMS_MULTIPROCESSING)
57
  index = id - information->minimum_id + 1;
58
#else
59
  /* index = _Objects_Get_index( id ); */
60
  index = id & 0x0000ffff;
61
  /* This should work but doesn't always :( */
62
  /* index = (unsigned16) id; */
63
#endif
64
 
65
   if ( information->maximum >= index ) {
66
    _Thread_Disable_dispatch();
67
    if ( (the_object = information->local_table[ index ]) != NULL ) {
68
      *location = OBJECTS_LOCAL;
69
      return the_object;
70
    }
71
    _Thread_Enable_dispatch();
72
    *location = OBJECTS_ERROR;
73
    return NULL;
74
  }
75
  *location = OBJECTS_ERROR;
76
 
77
#if defined(RTEMS_MULTIPROCESSING)
78
  _Objects_MP_Is_remote( information, id, location, &the_object );
79
  return the_object;
80
#else
81
  return NULL;
82
#endif
83
}

powered by: WebSVN 2.1.0

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