rom/exec/freepooled.c

   1 /*
   2     Copyright � 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Free memory allocated by AllocPooled().
   6     Lang: english
   7 */
   8
   9 #include <aros/libcall.h>
  10 #include <exec/memory.h>
  11 #include <exec/memheaderext.h>
  12 #include <proto/exec.h>
  13
  14 #include "exec_intern.h"
  15 #include "exec_util.h"
  16 #include "memory.h"
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21
  22         AROS_LH3(void,FreePooled,
  23
  24 /*  SYNOPSIS */
  25         AROS_LHA(APTR, poolHeader,A0),
  26         AROS_LHA(APTR, memory,    A1),
  27         AROS_LHA(IPTR, memSize,   D0),
  28
  29 /* LOCATION */
  30         struct ExecBase *, SysBase, 119, Exec)
  31
  32 /*  FUNCTION
  33         Free memory that was allocated out of a private memory pool by
  34         AllocPooled().
  35
  36     INPUTS
  37         poolHeader - Handle of the memory pool
  38         memory     - Pointer to the memory
  39         memSize    - Size of the memory chunk
  40
  41     RESULT
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50         CreatePool(), DeletePool(), AllocPooled()
  51
  52     INTERNALS
  53
  54 ******************************************************************************/
  55 {
  56     AROS_LIBFUNC_INIT
  57
  58     struct MemHeaderExt *mhe = (struct MemHeaderExt *)poolHeader;
  59
  60     if (IsManagedMem(mhe))
  61     {
  62         if (mhe->mhe_Free)
  63             mhe->mhe_Free(mhe, memory, memSize);
  64     }
  65     else
  66     {
  67         struct TraceLocation tp = CURRENT_LOCATION("FreePooled");
  68
  69         InternalFreePooled(poolHeader, memory, memSize, &tp, SysBase);
  70     }
  71
  72     AROS_LIBFUNC_EXIT
  73 } /* FreePooled */