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(ULONG, 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         This function will work correctly only for child tasks that are
  35         processes created with NP_NotifyOnDeath set to TRUE.
  36
  37         Calling ChildFree() on a running child is likely to crash your
  38         system badly.
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45
  46     INTERNALS
  47
  48 *****************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     struct ETask *et;
  53
  54     Forbid();
  55     et = FindChild(tid);
  56     if(et != NULL)
  57     {
  58         Remove((struct Node *)et);
  59
  60         if(et->et_Result2)
  61             FreeVec(et->et_Result2);
  62
  63 #ifdef DEBUG_ETASK
  64         FreeVec(IntETask(et)->iet_Me);
  65 #endif
  66         FreeVec(et);
  67     }
  68     Permit();
  69
  70     AROS_LIBFUNC_EXIT
  71 } /* ChildFree */