rom/exec/childfree.c

   1 /*
   2     Copyright © 1995-2007, 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
  49     struct ETask *et;
  50
  51     et = FindChild((ULONG)tid);
  52     if(et != NULL)
  53     {
  54         Remove((struct Node *)et);
  55
  56         if(et->et_Result2)
  57             FreeVec(et->et_Result2);
  58
  59 #ifdef DEBUG_ETASK
  60         FreeVec(IntETask(et)->iet_Me);
  61 #endif
  62         FreeVec(et);
  63     }
  64
  65     AROS_LIBFUNC_EXIT
  66 } /* ChildFree */