diff options
Diffstat (limited to 'cpukit/itron/src/del_tsk.c')
-rw-r--r-- | cpukit/itron/src/del_tsk.c | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/cpukit/itron/src/del_tsk.c b/cpukit/itron/src/del_tsk.c new file mode 100644 index 0000000000..9d1ddb72b5 --- /dev/null +++ b/cpukit/itron/src/del_tsk.c @@ -0,0 +1,58 @@ +/* + * COPYRIGHT (c) 1989-1999. + * 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/itron.h> + +#include <rtems/score/thread.h> +#include <rtems/score/userext.h> +#include <rtems/score/wkspace.h> +#include <rtems/score/apiext.h> +#include <rtems/score/sysstate.h> + +#include <rtems/itron/task.h> + + +/* + * del_tsk - Delete Task + */ + +ER del_tsk( + ID tskid +) +{ + register Thread_Control *the_thread; + Objects_Locations location; + ER result = E_OK; /* to avoid warning */ + + the_thread = _ITRON_Task_Get( tskid, &location ); + switch ( location ) { + case OBJECTS_REMOTE: + case OBJECTS_ERROR: + return _ITRON_Task_Clarify_get_id_error( tskid ); + + case OBJECTS_LOCAL: + + if ( _Thread_Is_executing( the_thread ) ) + _ITRON_return_errorno( E_OBJ ); + + if ( !_States_Is_dormant( the_thread->current_state ) ) + _ITRON_return_errorno( E_OBJ ); + + result = _ITRON_Delete_task( the_thread ); + break; + } + + _ITRON_return_errorno( result ); +} |