compiler/stdc/malloc.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     C99 function malloc().
   6 */
   7
   8 #include "__stdc_intbase.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 <stdlib.h>
  23
  24         void *malloc (
  25
  26 /*  SYNOPSIS */
  27         size_t size)
  28
  29 /*  FUNCTION
  30         Allocate size bytes of memory and return the address of the
  31         first byte.
  32
  33     INPUTS
  34         size - How much memory to allocate.
  35
  36     RESULT
  37         A pointer to the allocated memory or NULL. If you don't need the
  38         memory anymore, you can pass this pointer to free(). If you don't,
  39         the memory will be freed for you when the application exits.
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48         free()
  49
  50     INTERNALS
  51
  52 ******************************************************************************/
  53 {
  54     struct StdCIntBase *StdCBase = (struct StdCIntBase *)__aros_getbase_StdCBase();
  55     UBYTE *mem = NULL;
  56
  57     /* Allocate the memory */
  58     mem = AllocPooled (StdCBase->mempool, size + AROS_ALIGN(sizeof(size_t)));
  59     if (mem)
  60     {
  61         *((size_t *)mem) = size;
  62         mem += AROS_ALIGN(sizeof(size_t));
  63     }
  64     else
  65         errno = ENOMEM;
  66
  67     return mem;
  68
  69 } /* malloc */
  70
  71
  72 int __init_memstuff(struct StdCIntBase *StdCBase)
  73 {
  74     D(bug("__init_memstuff: task(%x), StdCBase(%x)\n",
  75           FindTask(NULL), StdCBase
  76     ));
  77
  78     StdCBase->mempool = CreatePool(MEMF_ANY | MEMF_SEM_PROTECTED, 65536L, 4096L);
  79
  80     D(bug("__init_memstuff: StdCBase->mempool(%x)\n", StdCBase->mempool));
  81
  82     if (!StdCBase->mempool)
  83     {
  84         return 0;
  85     }
  86
  87     return 1;
  88 }
  89
  90
  91 void __exit_memstuff(struct StdCIntBase *StdCBase)
  92 {
  93     D(bug("__exit_memstuff: task(%x), StdCBase(%x), acb_mempool(%x)\n",
  94           FindTask(NULL), StdCBase, StdCBase->mempool
  95     ));
  96
  97     if (StdCBase->mempool)
  98     {
  99         DeletePool(StdCBase->mempool);
 100     }
 101 }
 102
 103 ADD2OPENLIB(__init_memstuff, 0);
 104 ADD2CLOSELIB(__exit_memstuff, 0);