compiler/alib/libdeletepool.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     Original version from libnix
   4     $Id$
   5 */
   6
   7 #define AROS_LIBREQ(base,ver)   /* We test for versions manually */
   8
   9 #include "pool.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <proto/alib.h>
  15
  16         VOID LibDeletePool (
  17
  18 /*  SYNOPSIS */
  19         APTR pool)
  20
  21 /*  FUNCTION
  22
  23     INPUTS
  24
  25     RESULT
  26
  27     NOTES
  28
  29     EXAMPLE
  30
  31     BUGS
  32
  33     SEE ALSO
  34
  35     INTERNALS
  36
  37     HISTORY
  38         06.12.96 digulla Created after original from libnix
  39
  40 ******************************************************************************/
  41 {
  42 #   define poolHeader ((POOL*)pool)
  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