diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1999-11-02 19:43:52 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1999-11-02 19:43:52 +0000 |
commit | 317a5b52b5060ef98ffe2b3bb3f980165fea8e81 (patch) | |
tree | d9a0c0a0aeaad1553008465e15c71c54e0393008 /cpukit/score/src/objectfree.c | |
parent | Split types.s into individual files. (diff) | |
download | rtems-317a5b52b5060ef98ffe2b3bb3f980165fea8e81.tar.bz2 |
Split object.c into multiple files.
Diffstat (limited to 'cpukit/score/src/objectfree.c')
-rw-r--r-- | cpukit/score/src/objectfree.c | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/cpukit/score/src/objectfree.c b/cpukit/score/src/objectfree.c new file mode 100644 index 0000000000..3b136a9627 --- /dev/null +++ b/cpukit/score/src/objectfree.c @@ -0,0 +1,66 @@ +/* + * 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_Free + * + * DESCRIPTION: + * + * This function frees a object control block to the + * inactive chain of free object control blocks. + */ + +void _Objects_Free( + Objects_Information *information, + Objects_Control *the_object +) +{ + unsigned32 allocation_size = information->allocation_size; + + _Chain_Append( &information->Inactive, &the_object->Node ); + + if ( information->auto_extend ) { + unsigned32 block; + + block = + _Objects_Get_index( the_object->id ) - _Objects_Get_index( information->minimum_id ); + block /= information->allocation_size; + + information->inactive_per_block[ block ]++; + information->inactive++; + + /* + * Check if the threshold level has been met of + * 1.5 x allocation_size are free. + */ + + if ( information->inactive > ( allocation_size + ( allocation_size >> 1 ) ) ) { + _Objects_Shrink_information( information ); + } + } +} |