rom/exec/allocvecpooled.c

   1 /*
   2     Copyright � 2003-2012, 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 #include "exec_intern.h"
  10 #include <aros/debug.h>
  11
  12 AROS_LH2(APTR, AllocVecPooled,
  13     AROS_LHA(APTR, pool, D0),
  14     AROS_LHA(IPTR, size, D1),
  15     struct ExecBase *, SysBase, 169, 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         ULONG attributes = (ULONG)(IPTR)mhe->mhe_MemHeader.mh_First;
  24
  25         if (mhe->mhe_Alloc)
  26             return mhe->mhe_AllocVec(mhe, size, &attributes);
  27         else
  28             return NULL;
  29     }
  30     else
  31     {
  32         IPTR *memory;
  33
  34         if (pool == NULL) return NULL;
  35
  36         size   += sizeof(IPTR);
  37         memory  = AllocPooled(pool, size);
  38
  39         if (memory != NULL)
  40         {
  41             *memory++ = size;
  42         }
  43
  44         return memory;
  45     }
  46
  47     AROS_LIBFUNC_EXIT
  48 } /* AllocVecPooled() */