compiler/clib/free.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     C99 function free().
   6 */
   7
   8 #include "__arosc_privdata.h"
   9 #include "__memalign.h"
  10
  11 #include <exec/memory.h>
  12 #include <proto/exec.h>
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <stdlib.h>
  18
  19         void free (
  20
  21 /*  SYNOPSIS */
  22         void * memory)
  23
  24 /*  FUNCTION
  25         Return memory allocated with malloc() or a similar function to the
  26         system.
  27
  28     INPUTS
  29         memory - The result of the previous call to malloc(), etc. or
  30                 NULL.
  31
  32     RESULT
  33         None.
  34
  35     NOTES
  36         This function must not be used in a shared library or in a threaded
  37         application.
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44         malloc()
  45
  46     INTERNALS
  47
  48 ******************************************************************************/
  49 {
  50     struct aroscbase *aroscbase = __aros_getbase_aroscbase();
  51     if (memory)
  52     {
  53         unsigned char *mem;
  54         size_t         size;
  55
  56         mem = ((UBYTE *)memory) - AROS_ALIGN(sizeof(size_t));
  57
  58         size = *((size_t *) mem);
  59         if (size == MEMALIGN_MAGIC)
  60             free(((void **) mem)[-1]);
  61         else {
  62             size += AROS_ALIGN(sizeof(size_t));
  63             FreePooled (aroscbase->acb_mempool, mem, size);
  64         }
  65     }
  66
  67 } /* free */
  68