rom/exec/freevec.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Free memory allocated by AllocVec().
   6     Lang: english
   7 */
   8 #include "exec_intern.h"
   9 #include <aros/libcall.h>
  10 #include "memory.h"
  11 #include <proto/exec.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16
  17         AROS_LH1(void, FreeVec,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(APTR, memoryBlock, A1),
  21
  22 /*  LOCATION */
  23         struct ExecBase *, SysBase, 115, Exec)
  24
  25 /*  FUNCTION
  26         Free some memory previously allocated with AllocVec().
  27
  28     INPUTS
  29         memoryBlock - The memory to be freed. It is safe to try to free a NULL
  30                       pointer.
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41         AllocVec()
  42
  43     INTERNALS
  44
  45 ******************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48
  49     /* If there's nothing to free do nothing. */
  50     if (memoryBlock != NULL)
  51     {
  52         memoryBlock -= AROS_ALIGN(sizeof(ULONG));
  53         FreeMem (memoryBlock, *((ULONG *)memoryBlock));
  54     }
  55     AROS_LIBFUNC_EXIT
  56 } /* FreeVec */