rom/exec/childfree.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Free child task information on a dead child.
   6 */
   7 #include "exec_intern.h"
   8 #include "exec_util.h"
   9 #include <proto/exec.h>
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14
  15         AROS_LH1(void, ChildFree,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(APTR, tid, D0),
  19
  20 /*  LOCATION */
  21         struct ExecBase *, SysBase, 123, Exec)
  22
  23 /*  FUNCTION
  24         Clean up after a child process.
  25
  26     INPUTS
  27         tid     --  Id of the child to clean up. This is not the same as
  28                     the Task pointer.
  29
  30     RESULT
  31         The child will be freed.
  32
  33     NOTES
  34         Calling ChildFree() on a running child is likely to crash your
  35         system badly.
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42
  43     INTERNALS
  44
  45 *****************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48     AROS_LIBBASE_EXT_DECL(struct ExecBase *,SysBase)
  49
  50     struct ETask *et;
  51
  52     et = FindChild((ULONG)tid);
  53     if(et != NULL)
  54     {
  55         Remove((struct Node *)et);
  56
  57         if(et->et_Result2)
  58             FreeVec(et->et_Result2);
  59
  60 #ifdef DEBUG_ETASK
  61         FreeVec(IntETask(et)->iet_Me);
  62 #endif
  63         FreeVec(et);
  64     }
  65
  66     AROS_LIBFUNC_EXIT
  67 } /* ChildFree */