/*
**	Memory.c
**
**	Memory management routines
**
**	Copyright © 1990-1997 by Olaf `Olsen' Barthel
**		All Rights Reserved
**
**	:ts=4
*/

#ifndef _GLOBAL_H
#include "Global.h"
#endif

	/* Main memory pool puddle size */

#define PUDDLE_SIZE 32768

	/* Memory allocation data */

STATIC struct SignalSemaphore	MemorySemaphore;
STATIC APTR						MemoryPool;

	/* MemorySetup():
	 *
	 *	Set up the main memory pool.
	 */

BOOL
MemorySetup(VOID)
{
	BOOL result;

	InitSemaphore(&MemorySemaphore);

	MemoryPool = AsmCreatePool(MEMF_PUBLIC | MEMF_ANY,PUDDLE_SIZE,PUDDLE_SIZE,SysBase);

	result = (BOOL)(MemoryPool != NULL);

	return(result);
}

	/* MemoryCleanup():
	 *
	 *	Clean up the main memory pool.
	 */

VOID
MemoryCleanup(VOID)
{
	if(MemoryPool != NULL)
	{
		AsmDeletePool(MemoryPool,SysBase);
		MemoryPool = NULL;
	}
}

	/* FreeVecPooled(APTR Memory):
	 *
	 *	Free a memory chunk.
	 */

VOID
FreeVecPooled(APTR Memory)
{
	if(Memory != NULL && MemoryPool != NULL)
	{
		ULONG *Data = (ULONG *)Memory;

		ObtainSemaphore(&MemorySemaphore);
		AsmFreePooled(MemoryPool,&Data[-1],Data[-1],SysBase);
		ReleaseSemaphore(&MemorySemaphore);
	}
}

	/* AllocVecPooled(ULONG Size,ULONG Flags):
	 *
	 *	Allocate a memory chunk from the main memory pool and
	 *	remember its size.
	 */

APTR
AllocVecPooled(
	ULONG Size,
	ULONG Flags)
{
	APTR result = NULL;

	if(MemoryPool != NULL && Size > 0)
	{
		ULONG *Data;

		ObtainSemaphore(&MemorySemaphore);
		Data = (ULONG *)AsmAllocPooled(MemoryPool,Size + sizeof(ULONG),SysBase);
		ReleaseSemaphore(&MemorySemaphore);

		if(Data != NULL)
		{
			*Data++ = Size + sizeof(ULONG);

				/* Zero the chunk if necessary */

			if(Flags & MEMF_CLEAR)
				memset(Data,0,Size);
		}

		result = (APTR)Data;
	}
	else
	{
		struct Process *CurrentProcess;

			/* If a process is making the call,
			 * set the secondary error code to
			 * something meaningful.
			 */

		CurrentProcess = (struct Process *)FindTask(NULL);

		if(CurrentProcess->pr_Task.tc_Node.ln_Type == NT_PROCESS)
			SetIoErr(ERROR_NO_FREE_STORE);
	}

	return(result);
}