git.mutantstargoat.com Git - dosrtxon/blob - libs/mikmod/mmio/mmalloc.c

   1 /*      MikMod sound library
   2         (c) 1998, 1999 Miodrag Vallat and others - see file AUTHORS for
   3         complete list.
   4
   5         This library is free software; you can redistribute it and/or modify
   6         it under the terms of the GNU Library General Public License as
   7         published by the Free Software Foundation; either version 2 of
   8         the License, or (at your option) any later version.
   9
  10         This program is distributed in the hope that it will be useful,
  11         but WITHOUT ANY WARRANTY; without even the implied warranty of
  12         MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13         GNU Library General Public License for more details.
  14
  15         You should have received a copy of the GNU Library General Public
  16         License along with this library; if not, write to the Free Software
  17         Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  18         02111-1307, USA.
  19 */
  20
  21 /*==============================================================================
  22
  23   $Id$
  24
  25   Dynamic memory routines
  26
  27 ==============================================================================*/
  28
  29 #ifdef HAVE_CONFIG_H
  30 #include "config.h"
  31 #endif
  32
  33 #ifdef HAVE_POSIX_MEMALIGN
  34 #define _XOPEN_SOURCE 600 /* for posix_memalign */
  35 #endif
  36
  37 #include "string.h"
  38 #include "mikmod_internals.h"
  39
  40 #if defined(HAVE_SSE2) || defined(HAVE_ALTIVEC)
  41 #undef WIN32_ALIGNED_MALLOC
  42 #if defined(_WIN32) && !defined(_WIN32_WCE)
  43 # if defined(_WIN64) /* OK with MSVC and MinGW */
  44 #  define WIN32_ALIGNED_MALLOC
  45 # elif defined(_MSC_VER) && (_MSC_VER >= 1300)
  46 #  define WIN32_ALIGNED_MALLOC
  47 # elif defined(__MINGW32__)
  48   /* no guarantees that msvcrt.dll will have it */
  49 # endif
  50 #endif
  51
  52 #define PTRSIZE (sizeof(void*))
  53
  54 /* return a 16 byte aligned address */
  55 void* MikMod_amalloc(size_t size)
  56 {
  57         void *d;
  58 #if defined(HAVE_POSIX_MEMALIGN)
  59         if (!posix_memalign(&d, 16, size)) {
  60                 memset(d, 0, size);
  61                 return d;
  62         }
  63 #elif defined(WIN32_ALIGNED_MALLOC)
  64         d = _aligned_malloc(size, 16);
  65         if (d) {
  66                 ZeroMemory(d, size);
  67                 return d;
  68         }
  69 #else
  70         size_t s = (size)? ((size + (PTRSIZE-1)) & ~(PTRSIZE-1)) : PTRSIZE;
  71         s += PTRSIZE + 16;
  72         d = calloc(1, s);
  73         if (d) {
  74                 char *pptr = (char *)d + PTRSIZE;
  75                 size_t err = ((size_t)pptr) & 15;
  76                 char *fptr = pptr + (16 - err);
  77                 *(size_t*)(fptr - PTRSIZE) = (size_t)d;
  78                 return fptr;
  79         }
  80 #endif
  81
  82         _mm_errno = MMERR_OUT_OF_MEMORY;
  83         if(_mm_errorhandler) _mm_errorhandler();
  84         return NULL;
  85 }
  86
  87 void MikMod_afree(void *data)
  88 {
  89         if (!data) return;
  90 #if defined(HAVE_POSIX_MEMALIGN)
  91         free(data);
  92 #elif defined(WIN32_ALIGNED_MALLOC)
  93         _aligned_free(data);
  94 #else
  95         free((void *) *(size_t*)((unsigned char *)data - PTRSIZE));
  96 #endif
  97 }
  98 #endif /* (HAVE_SSE2) || (HAVE_ALTIVEC) */
  99
 100 void* MikMod_realloc(void *data, size_t size)
 101 {
 102         if (data) return realloc(data, size);
 103         return calloc(1, size);
 104 }
 105
 106 /* Same as malloc, but sets error variable _mm_error when fails */
 107 void* MikMod_malloc(size_t size)
 108 {
 109         return MikMod_calloc(1, size);
 110 }
 111
 112 /* Same as calloc, but sets error variable _mm_error when fails */
 113 void* MikMod_calloc(size_t nitems, size_t size)
 114 {
 115         void *d = calloc(nitems, size);
 116         if (d) return d;
 117
 118         _mm_errno = MMERR_OUT_OF_MEMORY;
 119         if(_mm_errorhandler) _mm_errorhandler();
 120         return NULL;
 121 }
 122
 123 void MikMod_free(void *data)
 124 {
 125         if (data) free(data);
 126 }
 127
 128 /* like strdup(), but the result must be freed using MikMod_free() */
 129 CHAR *MikMod_strdup(const CHAR *s)
 130 {
 131         size_t l;
 132         CHAR *d;
 133
 134         if (!s) return NULL;
 135
 136         l = strlen(s) + 1;
 137         d = (CHAR *) MikMod_calloc(1, l * sizeof(CHAR));
 138         if (d) strcpy(d, s);
 139         return d;
 140 }
 141
 142 /* ex:set ts=4: */