rom/oop/disposeobject.c

   1 /*
   2     Copyright © 1995-2007, 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 OOP_NewObject().
  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_NewObject()
  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
  55     ULONG mid = OOP_GetMethodID(IID_Root, moRoot_Dispose);
  56
  57     EnterFunc(bug("OOP_DisposeObject(classID=%s)\n",
  58                 OCLASS(obj)->ClassNode.ln_Name));
  59
  60     if (obj == NULL) return;
  61
  62
  63
  64     MD(OOP_OCLASS(obj))->objectcount --;
  65
  66
  67     OOP_DoMethod(obj, (OOP_Msg)&mid);
  68
  69
  70     ReturnVoid("OOP_DisposeObject");
  71
  72     AROS_LIBFUNC_EXIT
  73 } /* OOP_DisposeObject */