rom/exec/deletepool.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Delete a memory pool including all it's memory.
   6     Lang: english
   7 */
   8 #include "exec_intern.h"
   9 #include <aros/libcall.h>
  10 #include "memory.h"
  11 #include <exec/memory.h>
  12 #include <proto/exec.h>
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17
  18         AROS_LH1(void, DeletePool,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(APTR, poolHeader, A0),
  22
  23 /*  LOCATION */
  24         struct ExecBase *, SysBase, 117, Exec)
  25
  26 /*  FUNCTION
  27         Delete a pool including all it's memory.
  28
  29     INPUTS
  30         poolHeader - The pool allocated with CreatePool() or NULL.
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41         CreatePool(), AllocPooled(), FreePooled()
  42
  43     INTERNALS
  44
  45 ******************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48
  49     struct Pool *pool = (struct Pool *)poolHeader;
  50
  51     /* It is legal to DeletePool(NULL) */
  52     if(pool != NULL)
  53     {
  54         struct Block    *bl;
  55         void            *p;
  56         ULONG           size;
  57
  58         /* Calculate the total size of a puddle including header. */
  59         size = pool->PuddleSize + MEMHEADER_TOTAL;
  60
  61         /* Free the list of puddles */
  62         while((p = RemHead((struct List *)&pool->PuddleList)) !=NULL )
  63         {
  64             FreeMem(p, size);
  65         }
  66
  67         /* Free the list of single Blocks */
  68         while((bl = (struct Block *)RemHead((struct List *)&pool->BlockList)) != NULL)
  69         {
  70             FreeMem(bl, bl->Size);
  71         }
  72
  73         FreeMem(pool, (pool->Requirements & MEMF_SEM_PROTECTED) ? sizeof(struct ProtectedPool) :
  74                                                                   sizeof(struct Pool));
  75     }
  76
  77     AROS_LIBFUNC_EXIT
  78
  79 } /* DeletePool */
  80