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 "etask.h"
  10 #include <proto/exec.h>
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15
  16         AROS_LH1(void, ChildFree,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(ULONG, tid, D0),
  20
  21 /*  LOCATION */
  22         struct ExecBase *, SysBase, 123, Exec)
  23
  24 /*  FUNCTION
  25         Clean up after a child process.
  26
  27     INPUTS
  28         tid     --  Id of the child to clean up. This is not the same as
  29                     the Task pointer.
  30
  31     RESULT
  32         The child will be freed.
  33
  34     NOTES
  35         This function will work correctly only for child tasks that are
  36         processes created with NP_NotifyOnDeath set to TRUE.
  37
  38         Calling ChildFree() on a running child is likely to crash your
  39         system badly.
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47     INTERNALS
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52
  53     struct ETask *et;
  54
  55     Forbid();
  56     et = FindChild(tid);
  57     if(et != NULL)
  58     {
  59         Remove((struct Node *)et);
  60
  61         ExpungeETask(et);
  62     }
  63     Permit();
  64
  65     AROS_LIBFUNC_EXIT
  66 } /* ChildFree */