diff options
Diffstat (limited to 'cpukit/rtems/src/barrierdelete.c')
-rw-r--r-- | cpukit/rtems/src/barrierdelete.c | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/cpukit/rtems/src/barrierdelete.c b/cpukit/rtems/src/barrierdelete.c new file mode 100644 index 0000000000..6843a1bc00 --- /dev/null +++ b/cpukit/rtems/src/barrierdelete.c @@ -0,0 +1,73 @@ +/* + * Barrier Manager -- Delete a Barrier + * + * COPYRIGHT (c) 1989-2007. + * On-Line Applications Research Corporation (OAR). + * + * The license and distribution terms for this file may be + * found in the file LICENSE in this distribution or at + * http://www.rtems.com/license/LICENSE. + * + * $Id$ + */ + +#if HAVE_CONFIG_H +#include "config.h" +#endif + +#include <rtems/system.h> +#include <rtems/rtems/status.h> +#include <rtems/rtems/support.h> +#include <rtems/rtems/barrier.h> +#include <rtems/score/states.h> +#include <rtems/score/thread.h> +#include <rtems/score/threadq.h> + +/* + * rtems_barrier_delete + * + * This directive allows a thread to delete a barrier specified by + * the barrier id. The barrier is freed back to the inactive + * barrier chain. + * + * Input parameters: + * id - barrier id + * + * Output parameters: + * RTEMS_SUCCESSFUL - if successful + * error code - if unsuccessful + */ + +rtems_status_code rtems_barrier_delete( + rtems_id id +) +{ + Barrier_Control *the_barrier; + Objects_Locations location; + + the_barrier = _Barrier_Get( id, &location ); + switch ( location ) { + + case OBJECTS_LOCAL: + _CORE_barrier_Flush( + &the_barrier->Barrier, + NULL, + CORE_BARRIER_WAS_DELETED + ); + + _Objects_Close( &_Barrier_Information, &the_barrier->Object ); + + _Barrier_Free( the_barrier ); + + _Thread_Enable_dispatch(); + return RTEMS_SUCCESSFUL; + +#if defined(RTEMS_MULTIPROCESSING) + case OBJECTS_REMOTE: +#endif + case OBJECTS_ERROR: + break; + } + + return RTEMS_INVALID_ID; +} |