rom/oop/releaseattrbase.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: OOP function OOP_ReleaseAttrBase
   6     Lang: english
   7 */
   8
   9 #include "intern.h"
  10 #include "hash.h"
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <proto/exec.h>
  15 #include <exec/memory.h>
  16 #include <aros/libcall.h>
  17
  18 #include <aros/debug.h>
  19
  20         AROS_LH1(VOID, OOP_ReleaseAttrBase,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(STRPTR         , interfaceID, A0),
  24
  25 /*  LOCATION */
  26         struct Library *, OOPBase, 9, OOP)
  27
  28 /*  FUNCTION
  29         Release an OOP_AttrBase previosly obtained with
  30         OOP_ObtainAttrBase()
  31
  32
  33     INPUTS
  34         interfaceID     - globally unique interface identifier.
  35                           for which to release an attrbase.
  36
  37     RESULT
  38         None.
  39
  40     NOTES
  41         The call must be paired wit OOP_ObtainAttrBase().
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49     INTERNALS
  50
  51     HISTORY
  52
  53 ******************************************************************************/
  54 {
  55     AROS_LIBFUNC_INIT
  56     AROS_LIBBASE_EXT_DECL(struct Library*,OOPBase)
  57
  58
  59     EnterFunc(bug("OOP_ReleaseAttrBase(interfaceID=%s)\n", interfaceID));
  60
  61     release_idbucket(interfaceID, GetOBase(OOPBase));
  62
  63     ReturnVoid ("OOP_ReleaseAttrBase");
  64
  65     AROS_LIBFUNC_EXIT
  66
  67 } /* OOP_ReleaseAttrBase  */
  68