Subversion Repositories or1k

/*

 *  RTEMS Task Manager

 *

 *

 *  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.OARcorp.com/rtems/license.html.

 *

 *  taskdelete.c,v 1.2 1999/11/17 17:50:27 joel Exp

 */

#include <rtems/system.h>

#include <rtems/rtems/status.h>

#include <rtems/rtems/support.h>

#include <rtems/rtems/modes.h>

#include <rtems/score/object.h>

#include <rtems/score/stack.h>

#include <rtems/score/states.h>

#include <rtems/rtems/tasks.h>

#include <rtems/score/thread.h>

#include <rtems/score/threadq.h>

#include <rtems/score/tod.h>

#include <rtems/score/userext.h>

#include <rtems/score/wkspace.h>

#include <rtems/score/apiext.h>

#include <rtems/score/sysstate.h>

/*PAGE

 *

 *  rtems_task_delete

 *

 *  This directive allows a thread to delete itself or the thread

 *  identified in the id field.  The executive halts execution

 *  of the thread and frees the thread control block.

 *

 *  Input parameters:

 *    id - thread id

 *

 *  Output parameters:

 *    nothing           - if id is the requesting thread (always succeeds)

 *    RTEMS_SUCCESSFUL - if successful and id is

 *                           not the requesting thread

 *    error code        - if unsuccessful

 */

rtems_status_code rtems_task_delete(

  Objects_Id id

)

{

  register Thread_Control *the_thread;

  Objects_Locations        location;

  Objects_Information     *the_information;

  the_thread = _Thread_Get( id, &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;

    case OBJECTS_LOCAL:

      the_information = _Objects_Get_information( the_thread->Object.id );

      if ( !the_information ) {

        _Thread_Enable_dispatch();

        return RTEMS_INVALID_ID;

        /* This should never happen if _Thread_Get() works right */

      }

      _Thread_Close( the_information, the_thread );

      _RTEMS_tasks_Free( the_thread );

#if defined(RTEMS_MULTIPROCESSING)

      if ( the_thread->is_global ) {

        _Objects_MP_Close( &_RTEMS_tasks_Information, the_thread->Object.id );

        _RTEMS_tasks_MP_Send_process_packet(

          RTEMS_TASKS_MP_ANNOUNCE_DELETE,

          the_thread->Object.id,

        );

      }

#endif

      _Thread_Enable_dispatch();

      return RTEMS_SUCCESSFUL;

  }

  return RTEMS_INTERNAL_ERROR;   /* unreached - only to remove warnings */

}