diff options
Diffstat (limited to 'cpukit/rtems/src/taskvariabledelete.c')
-rw-r--r-- | cpukit/rtems/src/taskvariabledelete.c | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/cpukit/rtems/src/taskvariabledelete.c b/cpukit/rtems/src/taskvariabledelete.c new file mode 100644 index 0000000000..fe34732f57 --- /dev/null +++ b/cpukit/rtems/src/taskvariabledelete.c @@ -0,0 +1,76 @@ +/* + * rtems_task_variable_delete - Delete a per-task variable + * + * + * 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/tasks.h> +#include <rtems/score/wkspace.h> + +/* + * rtems_task_variable_delete + * + * This directive removes a task variable. + */ + +rtems_status_code rtems_task_variable_delete( + rtems_id tid, + void **ptr +) +{ + Thread_Control *the_thread; + Objects_Locations location; + rtems_task_variable_t *tvp, *prev; + + if ( !ptr ) + return RTEMS_INVALID_ADDRESS; + + prev = NULL; + + the_thread = _Thread_Get (tid, &location); + switch (location) { + + case OBJECTS_LOCAL: + tvp = the_thread->task_variables; + while (tvp) { + if (tvp->ptr == ptr) { + if (prev) + prev->next = tvp->next; + else + the_thread->task_variables = (rtems_task_variable_t *)tvp->next; + + _RTEMS_Tasks_Invoke_task_variable_dtor( the_thread, tvp ); + _Thread_Enable_dispatch(); + return RTEMS_SUCCESSFUL; + } + prev = tvp; + tvp = (rtems_task_variable_t *)tvp->next; + } + _Thread_Enable_dispatch(); + return RTEMS_INVALID_ADDRESS; + +#if defined(RTEMS_MULTIPROCESSING) + case OBJECTS_REMOTE: + _Thread_Dispatch(); + return RTEMS_ILLEGAL_ON_REMOTE_OBJECT; +#endif + + case OBJECTS_ERROR: + break; + } + + return RTEMS_INVALID_ID; +} |