rom/exec/freevecpooled.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
  11 AROS_LH2(void, FreeVecPooled,
  12     AROS_LHA(APTR, pool,   D0),
  13     AROS_LHA(APTR, memory, D1),
  14     struct ExecBase *, SysBase, 150, Exec)
  15 {
  16     AROS_LIBFUNC_INIT
  17
  18     if (memory != NULL)
  19     {
  20         IPTR *real = (IPTR *) memory;
  21         IPTR size  = *--real;
  22
  23         FreePooled(pool, real, size);
  24     }
  25
  26     AROS_LIBFUNC_EXIT
  27 } /* FreeVecPooled() */