compiler/clib/malloc.c

   1 /*
   2     Copyright © 1995-2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     ANSI C function malloc().
   6 */
   7
   8 #include "__arosc_privdata.h"
   9
  10 #define DEBUG 0
  11
  12 #include <errno.h>
  13 #include <dos/dos.h>
  14 #include <exec/memory.h>
  15 #include <proto/exec.h>
  16 #include <aros/symbolsets.h>
  17 #include <aros/debug.h>
  18
  19 /*****************************************************************************
  20
  21     NAME */
  22 #include <sys/types.h>
  23 #include <stdlib.h>
  24
  25         void *malloc (
  26
  27 /*  SYNOPSIS */
  28         size_t size)
  29
  30 /*  FUNCTION
  31         Allocate size bytes of memory and return the address of the
  32         first byte.
  33
  34     INPUTS
  35         size - How much memory to allocate.
  36
  37     RESULT
  38         A pointer to the allocated memory or NULL. If you don't need the
  39         memory anymore, you can pass this pointer to free(). If you don't,
  40         the memory will be freed for you when the application exits.
  41
  42     NOTES
  43         This function must not be used in a shared library or in a threaded
  44         application.
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51         free()
  52
  53     INTERNALS
  54
  55 ******************************************************************************/
  56 {
  57     UBYTE *mem = NULL;
  58
  59     /* Allocate the memory */
  60     mem = AllocPooled (__mempool, size + AROS_ALIGN(sizeof(size_t)));
  61     if (mem)
  62     {
  63         *((size_t *)mem) = size;
  64         mem += AROS_ALIGN(sizeof(size_t));
  65     }
  66     else
  67         errno = ENOMEM;
  68
  69     return mem;
  70
  71 } /* malloc */
  72
  73
  74 int __init_memstuff(void)
  75 {
  76     D(bug("__init_memstuff: task(%x), privdata(%x)\n",
  77           FindTask(NULL), __get_arosc_privdata()
  78     ));
  79
  80     __mempool = CreatePool(MEMF_ANY | MEMF_SEM_PROTECTED, 65536L, 4096L);
  81
  82     D(bug("__init_memstuff: __mempool(%x)\n", __mempool));
  83
  84     if (!__mempool)
  85     {
  86         return 0;
  87     }
  88
  89     return 1;
  90 }
  91
  92
  93 void __exit_memstuff(void)
  94 {
  95     D(bug("__exit_memstuff: task(%x), privdata(%x), __mempool(%x)\n",
  96           FindTask(NULL), __get_arosc_privdata(), __mempool
  97     ));
  98
  99     if (__mempool)
 100     {
 101         DeletePool(__mempool);
 102     }
 103 }
 104
 105 ADD2INIT(__init_memstuff, 0);
 106 ADD2EXIT(__exit_memstuff, 0);