home *** CD-ROM | disk | FTP | other *** search
- /*
- (C) 1995-96 AROS - The Amiga Replacement OS
- Original version from libnix
- $Id: libdeletepool.c,v 1.2 1997/01/27 00:16:37 ldp Exp $
-
- Desc:
- Lang: english
- */
- #include "pool.h"
-
- /*****************************************************************************
-
- NAME */
- #include <proto/alib.h>
-
- VOID LibDeletePool (
-
- /* SYNOPSIS */
- APTR pool)
-
- /* FUNCTION
-
- INPUTS
-
- RESULT
-
- NOTES
-
- EXAMPLE
-
- BUGS
-
- SEE ALSO
-
- INTERNALS
-
- HISTORY
- 06.12.96 digulla Created after original from libnix
-
- ******************************************************************************/
- {
- # define poolHeader ((POOL*)pool)
-
- if (SysBase->LibNode.lib_Version>=39)
- DeletePool(poolHeader);
- else
- {
- if (poolHeader != NULL)
- {
- ULONG * pool,
- size;
-
- while ((pool = (ULONG *)RemHead (
- (struct List *)&poolHeader->PuddleList)
- )!=NULL
- )
- {
- size = *--pool;
- FreeMem (pool, size);
- }
-
- FreeMem (poolHeader, sizeof (POOL));
- }
- }
- } /* LibDeletePool */
-
-