rom/utility/freenamedobject.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: FreeNamedObject() - Free a NamedObject.
   6     Lang: english
   7 */
   8 #include <proto/exec.h>
   9 #include "intern.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14         #include <proto/utility.h>
  15
  16         AROS_LH1(void, FreeNamedObject,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(struct NamedObject *, object, A0),
  20
  21 /*  LOCATION */
  22         struct UtilityBase *, UtilityBase, 41, Utility)
  23
  24 /*  FUNCTION
  25         Frees a NamedObject previously allocated by AllocNamedObject().
  26
  27     INPUTS
  28         object      -   The NamedObject that you wish to free.
  29
  30     RESULT
  31         The memory used by the NamedObject will be returned to the
  32         systems free memory pool.
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41         utility/name.h, AllocNamedObjectA()
  42
  43     INTERNALS
  44         AllocMem:
  45             NameSpace;
  46         AllocVec:
  47             IntNamedObject, Object.
  48
  49         FreeNamedObject() may have to deal with only a partially allocated
  50         object from AllocNamedObject() which has come across an error.
  51
  52     HISTORY
  53         29-10-95    digulla automatically created from
  54                             utility_lib.fd and clib/utility_protos.h
  55         11-08-96    iaint   Adapted for AROS code.
  56         08-10-96    iaint   Modified after discussion in AROS-DEV.
  57         19-10-96    iaint   Finished above.
  58         16-04-01    iaint   Combined the memory for the name and
  59                             IntNamedObject as an optimisation.
  60
  61 *****************************************************************************/
  62 {
  63     AROS_LIBFUNC_INIT
  64
  65     if( object )
  66     {
  67         struct IntNamedObject *no = GetIntNamedObject(object);
  68
  69         if(object->no_Object && no->no_FreeObject)
  70             FreeVec(object->no_Object);
  71
  72         if(no->no_NameSpace)
  73             FreeMem(no->no_NameSpace, sizeof(struct NameSpace));
  74
  75         FreeVec(object);
  76     }
  77     AROS_LIBFUNC_EXIT
  78
  79 } /* FreeNamedObject */