compiler/alib/libfreepooled.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 #include <proto/exec.h>
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <proto/alib.h>
  14
  15         void LibFreePooled (
  16
  17 /*  SYNOPSIS */
  18         APTR  pool,
  19         APTR  memory,
  20         ULONG memSize)
  21
  22 /*  FUNCTION
  23
  24     INPUTS
  25
  26     RESULT
  27
  28     NOTES
  29
  30     EXAMPLE
  31
  32     BUGS
  33
  34     SEE ALSO
  35
  36     INTERNALS
  37
  38     HISTORY
  39         06.12.96 digulla Created after original from libnix
  40
  41 ******************************************************************************/
  42 {
  43 #   define poolHeader ((POOL *)pool)
  44     AROS_GET_SYSBASE_OK
  45
  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