mono/eglib/gmem.c

   1 /*
   2  * gmem.c: memory utility functions
   3  *
   4  * Author:
   5  *      Gonzalo Paniagua Javier (gonzalo@novell.com)
   6  *
   7  * (C) 2006 Novell, Inc.
   8  *
   9  * Permission is hereby granted, free of charge, to any person obtaining
  10  * a copy of this software and associated documentation files (the
  11  * "Software"), to deal in the Software without restriction, including
  12  * without limitation the rights to use, copy, modify, merge, publish,
  13  * distribute, sublicense, and/or sell copies of the Software, and to
  14  * permit persons to whom the Software is furnished to do so, subject to
  15  * the following conditions:
  16  *
  17  * The above copyright notice and this permission notice shall be
  18  * included in all copies or substantial portions of the Software.
  19  *
  20  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  21  * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  22  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  23  * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  24  * LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  25  * OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  26  * WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  27  */
  28 #include <config.h>
  29 #include <stdio.h>
  30 #include <string.h>
  31 #include <glib.h>
  32
  33 #if defined (ENABLE_OVERRIDABLE_ALLOCATORS)
  34
  35 static GMemVTable sGMemVTable = { malloc, realloc, free, calloc };
  36
  37 void
  38 g_mem_set_vtable (GMemVTable* vtable)
  39 {
  40         sGMemVTable.calloc = vtable->calloc ? vtable->calloc : calloc;
  41         sGMemVTable.realloc = vtable->realloc ? vtable->realloc : realloc;
  42         sGMemVTable.malloc = vtable->malloc ? vtable->malloc : malloc;
  43         sGMemVTable.free = vtable->free ? vtable->free : free;
  44 }
  45
  46 #define G_FREE_INTERNAL sGMemVTable.free
  47 #define G_REALLOC_INTERNAL sGMemVTable.realloc
  48 #define G_CALLOC_INTERNAL sGMemVTable.calloc
  49 #define G_MALLOC_INTERNAL sGMemVTable.malloc
  50 #else
  51
  52 void
  53 g_mem_set_vtable (GMemVTable* vtable)
  54 {
  55 }
  56
  57 #define G_FREE_INTERNAL free
  58 #define G_REALLOC_INTERNAL realloc
  59 #define G_CALLOC_INTERNAL calloc
  60 #define G_MALLOC_INTERNAL malloc
  61 #endif
  62 void
  63 g_free (void *ptr)
  64 {
  65         if (ptr != NULL)
  66                 G_FREE_INTERNAL (ptr);
  67 }
  68
  69 gpointer
  70 g_memdup (gconstpointer mem, guint byte_size)
  71 {
  72         gpointer ptr;
  73
  74         if (mem == NULL)
  75                 return NULL;
  76
  77         ptr = g_malloc (byte_size);
  78         if (ptr != NULL)
  79                 memcpy (ptr, mem, byte_size);
  80
  81         return ptr;
  82 }
  83
  84 gpointer g_realloc (gpointer obj, gsize size)
  85 {
  86         gpointer ptr;
  87         if (!size) {
  88                 g_free (obj);
  89                 return 0;
  90         }
  91         ptr = G_REALLOC_INTERNAL (obj, size);
  92         if (ptr)
  93                 return ptr;
  94         g_error ("Could not allocate %i bytes", size);
  95 }
  96
  97 gpointer
  98 g_malloc (gsize x)
  99 {
 100         gpointer ptr;
 101         if (!x)
 102                 return 0;
 103         ptr = G_MALLOC_INTERNAL (x);
 104         if (ptr)
 105                 return ptr;
 106         g_error ("Could not allocate %i bytes", x);
 107 }
 108
 109 gpointer g_calloc (gsize n, gsize x)
 110 {
 111         gpointer ptr;
 112         if (!x || !n)
 113                 return 0;
 114                 ptr = G_CALLOC_INTERNAL (n, x);
 115         if (ptr)
 116                 return ptr;
 117         g_error ("Could not allocate %i (%i * %i) bytes", x*n, n, x);
 118 }
 119 gpointer g_malloc0 (gsize x)
 120 {
 121         return g_calloc (1,x);
 122 }
 123
 124 gpointer g_try_malloc (gsize x)
 125 {
 126         if (x)
 127                 return G_MALLOC_INTERNAL (x);
 128         return 0;
 129 }
 130
 131
 132 gpointer g_try_realloc (gpointer obj, gsize size)
 133 {
 134         if (!size) {
 135                 G_FREE_INTERNAL (obj);
 136                 return 0;
 137         }
 138         return G_REALLOC_INTERNAL (obj, size);
 139 }