compiler/alib/libfreepooled.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 #include <proto/exec.h>
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/alib.h>
  16
  17         void LibFreePooled (
  18
  19 /*  SYNOPSIS */
  20         APTR  pool,
  21         APTR  memory,
  22         ULONG memSize)
  23
  24 /*  FUNCTION
  25
  26     INPUTS
  27
  28     RESULT
  29
  30     NOTES
  31
  32     EXAMPLE
  33
  34     BUGS
  35
  36     SEE ALSO
  37
  38     INTERNALS
  39
  40     HISTORY
  41         06.12.96 digulla Created after original from libnix
  42
  43 ******************************************************************************/
  44 {
  45 #   define poolHeader ((POOL *)pool)
  46     if (SysBase->LibNode.lib_Version >= 39)
  47     {
  48         FreePooled (poolHeader, memory, memSize);
  49         return;
  50     }
  51
  52     if (poolHeader!=NULL && memory!=NULL)
  53     {
  54         ULONG size,
  55             * puddle = (ULONG *)((struct MinNode *)memory - 1) - 1;
  56
  57         if (poolHeader->ThreshSize>memSize)
  58         {
  59             struct MemHeader * a = (struct MemHeader *)&poolHeader->PuddleList.mlh_Head;
  60
  61             for(;;)
  62             {
  63                 a = (struct MemHeader *)a->mh_Node.ln_Succ;
  64
  65                 if (a->mh_Node.ln_Succ == NULL)
  66                     return;
  67
  68                 if (a->mh_Node.ln_Type && memory >= a->mh_Lower
  69                     && memory < a->mh_Upper
  70                 )
  71                     break;
  72             }
  73
  74             Deallocate (a, memory, memSize);
  75
  76             if (a->mh_Free != poolHeader->PuddleSize)
  77                 return;
  78
  79             puddle = (ULONG *)&a->mh_Node;
  80         }
  81
  82         Remove ((struct Node *)puddle);
  83
  84         size = *--puddle;
  85         FreeMem (puddle, size);
  86     }
  87 } /* LibFreePooled */
  88