rom/oop/disposeobject.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Create a new OOP object
   6     Lang: english
   7 */
   8 #include <exec/lists.h>
   9 #include <proto/exec.h>
  10 #include "intern.h"
  11 #define MD(x) ((struct metadata *)x)
  12 #include <aros/debug.h>
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/oop.h>
  18
  19         AROS_LH1(VOID, OOP_DisposeObject,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(OOP_Object  *, obj, A0),
  23
  24 /*  LOCATION */
  25         struct Library *, OOPBase, 10, OOP)
  26
  27 /*  FUNCTION
  28         Delete an object that was previously allocated with NewObjectA().
  29
  30     INPUTS
  31         obj     - pointer to object to dispose.
  32
  33     RESULT
  34         None.
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43         OOP_NewObjectA()
  44
  45     INTERNALS
  46
  47     HISTORY
  48         29-10-95    digulla automatically created from
  49                             intuition_lib.fd and clib/intuition_protos.h
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54     AROS_LIBBASE_EXT_DECL(struct Library*,OOPBase)
  55
  56     ULONG mid = OOP_GetMethodID(IID_Root, moRoot_Dispose);
  57
  58     EnterFunc(bug("OOP_DisposeObject(classID=%s)\n",
  59                 OCLASS(obj)->ClassNode.ln_Name));
  60
  61     if (obj == NULL) return;
  62
  63
  64
  65     MD(OOP_OCLASS(obj))->objectcount --;
  66
  67
  68     OOP_DoMethod(obj, (OOP_Msg)&mid);
  69
  70
  71     ReturnVoid("OOP_DisposeObject");
  72
  73     AROS_LIBFUNC_EXIT
  74 } /* OOP_DisposeObject */