/*
    (C) 1995-96 AROS - The Amiga Replacement OS
    $Id: free.c,v 1.2 1996/10/23 14:13:38 aros Exp $

    Desc: ANSI C function free()
    Lang: english
*/
#include <exec/memory.h>
#include <clib/exec_protos.h>
extern APTR __startup_mempool;

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

    NAME */
	#include <memory.h>

	void free (

/*  SYNOPSIS */
	void * memory)

/*  FUNCTION
	Return memory allocated with malloc() or a similar function to the
	system.

    INPUTS
	memory - The result of the previous call to malloc(), etc. or
		NULL.

    RESULT
	None.

    NOTES

    EXAMPLE

    BUGS

    SEE ALSO
	malloc()

    INTERNALS

    HISTORY
	24-12-95    digulla created

******************************************************************************/
{
    UBYTE * mem;
    size_t size;

    if (memory && __startup_mempool)
    {
	mem = ((UBYTE *)memory) - AROS_ALIGN(sizeof(size_t));
	size = *((size_t *)mem);

	FreePooled (__startup_mempool, mem, size);
    }

} /* free */