diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1999-11-12 14:38:19 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1999-11-12 14:38:19 +0000 |
commit | 5aa5560746e012afa4f8685932fc5e2bf38b38ff (patch) | |
tree | 1540ec594530b44cc5d5fce7bc39dcd238879e7b /cpukit/rtems/src/taskvariabledelete.c | |
parent | Cleaned up style. (diff) | |
download | rtems-5aa5560746e012afa4f8685932fc5e2bf38b38ff.tar.bz2 |
Added per task variables based on patch from Eric Norum <eric@cls.usask.ca>.
After being submitted, this support was rewritten to be inside the
executive rather than layered on top of it using an extension.
Diffstat (limited to '')
-rw-r--r-- | cpukit/rtems/src/taskvariabledelete.c | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/cpukit/rtems/src/taskvariabledelete.c b/cpukit/rtems/src/taskvariabledelete.c new file mode 100644 index 0000000000..8bc214665b --- /dev/null +++ b/cpukit/rtems/src/taskvariabledelete.c @@ -0,0 +1,71 @@ +/* + * rtems_task_variable_delete - Delete a per-task variable + * + * + * 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/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, + int *ptr +) +{ + Thread_Control *the_thread; + Objects_Locations location; + RTEMS_API_Control *api; + struct rtems_task_variable_t *tvp, *prev; + + prev = NULL; + + the_thread = _Thread_Get (tid, &location); + switch (location) { + case OBJECTS_REMOTE: +#if defined(RTEMS_MULTIPROCESSING) + _Thread_Dispatch(); + return RTEMS_ILLEGAL_ON_REMOTE_OBJECT; +#endif + + case OBJECTS_ERROR: + return RTEMS_INVALID_ID; + + default: + return RTEMS_INTERNAL_ERROR; + + case OBJECTS_LOCAL: + api = the_thread->API_Extensions[ THREAD_API_RTEMS ]; + tvp = api->task_variables; + while (tvp) { + if (tvp->ptr == ptr) { + if (prev) prev->next = tvp->next; + else api->task_variables = tvp->next; + _Thread_Enable_dispatch(); + _Workspace_Free(tvp); + return RTEMS_SUCCESSFUL; + } + prev = tvp; + tvp = tvp->next; + } + _Thread_Enable_dispatch(); + return RTEMS_INVALID_ADDRESS; + } + + return RTEMS_INTERNAL_ERROR; /* unreached - only to remove warnings */ +} |