rom/exec/freevecpooled.c

   1 /*
   2     Copyright � 2003-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <aros/libcall.h>
   7 #include <proto/exec.h>
   8 #include <exec/memheaderext.h>
   9
  10 #include "exec_intern.h"
  11
  12 AROS_LH2(void, FreeVecPooled,
  13     AROS_LHA(APTR, pool,   D0),
  14     AROS_LHA(APTR, memory, D1),
  15     struct ExecBase *, SysBase, 170, Exec)
  16 {
  17     AROS_LIBFUNC_INIT
  18
  19     struct MemHeaderExt *mhe = (struct MemHeaderExt *)pool;
  20
  21     if (mhe->mhe_MemHeader.mh_Attributes & MEMF_MANAGED)
  22     {
  23         if (mhe->mhe_FreeVec)
  24             mhe->mhe_FreeVec(mhe, memory);
  25     }
  26     else
  27     {
  28         if (memory != NULL)
  29         {
  30             IPTR *real = (IPTR *) memory;
  31             IPTR size  = *--real;
  32
  33             FreePooled(pool, real, size);
  34         }
  35     }
  36     AROS_LIBFUNC_EXIT
  37 } /* FreeVecPooled() */