compiler/alib/libdeletepool.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     Original version from libnix
   4     $Id$
   5 */
   6
   7 #include "pool.h"
   8
   9 /*****************************************************************************
  10
  11     NAME */
  12 #include <proto/alib.h>
  13
  14         VOID LibDeletePool (
  15
  16 /*  SYNOPSIS */
  17         APTR pool)
  18
  19 /*  FUNCTION
  20
  21     INPUTS
  22
  23     RESULT
  24
  25     NOTES
  26
  27     EXAMPLE
  28
  29     BUGS
  30
  31     SEE ALSO
  32
  33     INTERNALS
  34
  35     HISTORY
  36         06.12.96 digulla Created after original from libnix
  37
  38 ******************************************************************************/
  39 {
  40 #   define poolHeader ((POOL*)pool)
  41     AROS_GET_SYSBASE_OK
  42
  43     if (SysBase->LibNode.lib_Version>=39)
  44         DeletePool(poolHeader);
  45     else
  46     {
  47         if (poolHeader != NULL)
  48         {
  49             ULONG * poolMem,
  50                     size;
  51
  52             while ((poolMem = (ULONG *)RemHead (
  53                     (struct List *)&poolHeader->PuddleList)
  54                 )!=NULL
  55             )
  56             {
  57                 size = *--poolMem;
  58                 FreeMem (poolMem, size);
  59             }
  60
  61             FreeMem (poolHeader, sizeof (POOL));
  62         }
  63     }
  64 } /* LibDeletePool */
  65