rom/exec/remport.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Removes a port from the list of public ports.
   6     Lang: english
   7 */
   8 #include <exec/ports.h>
   9 #include <exec/execbase.h>
  10 #include <aros/libcall.h>
  11 #include <proto/exec.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16
  17         AROS_LH1(void, RemPort,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct MsgPort *, port, A1),
  21
  22 /*  LOCATION */
  23         struct ExecBase *, SysBase, 60, Exec)
  24
  25 /*  FUNCTION
  26         Remove a public port from the public port list to make it private
  27         again. Any further attempts to find this port in the public port
  28         list will fail.
  29
  30     INPUTS
  31         port - Pointer to messageport structure.
  32
  33     RESULT
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42
  43     INTERNALS
  44
  45 ******************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48
  49     /* Arbitrate for the list of message ports.*/
  50     Forbid();
  51
  52     /* Remove the current port. */
  53     Remove(&port->mp_Node);
  54
  55     /* All done. */
  56     Permit();
  57     AROS_LIBFUNC_EXIT
  58 } /* RemPort */
  59
  60
  61