/*
    $Id: freenamedobject.c,v 1.3 1997/01/27 13:17:13 digulla Exp $
    $Log: freenamedobject.c,v $
    Revision 1.3  1997/01/27 13:17:13  digulla
    Added #include <proto/exec.h>

    Revision 1.2  1997/01/27 00:32:31  ldp
    Polish

    Revision 1.1  1996/12/18 01:27:35  iaint
    NamedObjects

    Desc: FreeNamedObject() - Free a NamedObject.
    Lang: english
*/
#include <proto/exec.h>
#include "utility_intern.h"

/*****************************************************************************

    NAME */
	#include <proto/utility.h>

	AROS_LH1(void, FreeNamedObject,

/*  SYNOPSIS */
	AROS_LHA(struct NamedObject *, object, A0),

/*  LOCATION */
	struct UtilityBase *, UtilityBase, 41, Utility)

/*  FUNCTION
	Frees a NamedObject previously allocated by AllocNamedObject().

    INPUTS
	object	    -	The NamedObject that you wish to free.

    RESULT
	The memory used by the NamedObject will be returned to the
	systems free memory pool.

    NOTES

    EXAMPLE

    BUGS

    SEE ALSO
	utility/name.h, utility/AllocNamedObject()

    INTERNALS
	AllocMem:
	    IntNamedObject, NameSpace;
	AllocVec:
	    Name, Object.

	FreeNamedObject() may have to deal with only a partially allocated
	object from AllocNamedObject() which has come across an error.

    HISTORY
	29-10-95    digulla automatically created from
			    utility_lib.fd and clib/utility_protos.h
	11-08-96    iaint   Adapted for AROS code.
	08-10-96    iaint   Modified after discussion in AROS-DEV.
	19-10-96    iaint   Finished above.

*****************************************************************************/
{
    AROS_LIBFUNC_INIT

    if( object )
    {
	struct IntNamedObject *no = GetIntNamedObject(object);

	if(object->no_Object && no->no_FreeObject)
	    FreeVec(object->no_Object);

	if(no->no_Node.ln_Name)
	    FreeVec(no->no_Node.ln_Name);

	if(no->no_NameSpace)
	    FreeMem(no->no_NameSpace, sizeof(struct NameSpace));

	FreeMem(object, sizeof(struct IntNamedObject));
    }
    AROS_LIBFUNC_EXIT

} /* FreeNamedObject */