rom/exec/allocvecpooled.c

   1 /*
   2     Copyright © 2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <aros/libcall.h>
   7 #include <proto/exec.h>
   8
   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(ULONG, size, D1),
  15     struct ExecBase *, SysBase, 149, Exec)
  16 {
  17     AROS_LIBFUNC_INIT
  18
  19     IPTR *memory;
  20
  21     if (pool == NULL) return NULL;
  22
  23     size   += sizeof(IPTR);
  24     memory  = AllocPooled(pool, size);
  25
  26     if (memory != NULL)
  27     {
  28         *memory++ = size;
  29     }
  30
  31     return memory;
  32
  33     AROS_LIBFUNC_EXIT
  34 } /* AllocVecPooled() */