blob: 8c8528606d838ba10a652b34dd594ae39b4da519 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
/*
* Object Handler
*
*
* COPYRIGHT (c) 1989-1998.
* On-Line Applications Research Corporation (OAR).
* Copyright assigned to U.S. Government, 1994.
*
* The license and distribution terms for this file may be
* found in the file LICENSE in this distribution or at
* http://www.OARcorp.com/rtems/license.html.
*
* $Id$
*/
#include <rtems/system.h>
#include <rtems/score/address.h>
#include <rtems/score/chain.h>
#include <rtems/score/object.h>
#if defined(RTEMS_MULTIPROCESSING)
#include <rtems/score/objectmp.h>
#endif
#include <rtems/score/thread.h>
#include <rtems/score/wkspace.h>
#include <rtems/score/sysstate.h>
#include <rtems/score/isr.h>
/*PAGE
*
* _Objects_Allocate_by_index
*
* DESCRIPTION:
*
* This function allocates the object control block
* specified by the index from the inactive chain of
* free object control blocks.
*/
Objects_Control *_Objects_Allocate_by_index(
Objects_Information *information,
unsigned32 index,
unsigned32 sizeof_control
)
{
Objects_Control *the_object;
if ( index && information->maximum >= index ) {
/*
* If the object is already in the local table, then
* it has already been allocated/created by a previous
* create call.
*/
the_object = _Objects_Get_local_object( information, index );
if ( the_object )
return NULL;
/* XXX
* This whole section of code needs to be addressed.
* + The use of the index 0 for object_blocks should be dealt
* with more properly so we can autoextend.
* + etc.
*/
the_object = (Objects_Control *) information->object_blocks[ 0 ];
_Chain_Extract( &the_object->Node );
return the_object;
}
/*
* Autoextend will have to be thought out as it applies
* to user assigned indices.
*/
return NULL;
}
|