compiler/clib/malloc.c

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