Retro68/libretro/malloc.c

/*
    Copyright 2012 Wolfgang Thaller.

    This file is part of Retro68.

    Retro68 is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    Retro68 is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with Retro68.  If not, see <http://www.gnu.org/licenses/>.
*/

#include <stdlib.h>
#include <errno.h>
#include <reent.h>
#include <string.h>
#include <MacMemory.h>

void referenceMyMalloc() {}

void *_malloc_r(struct _reent *reent_ptr, size_t sz)
{
   return NewPtr(sz); // TODO: set errno
}
void *_calloc_r(struct _reent *reent_ptr, size_t sz, size_t sz2)
{
   return NewPtrClear(sz*sz2); // TODO: set errno
}

void _free_r(struct _reent *reent_ptr, void *ptr)
{
   if(ptr != NULL)
      DisposePtr(ptr);
}

void *_realloc_r(struct _reent *reent_ptr, void *ptr, size_t sz)
{
   if(ptr == NULL)
   {
      return NewPtr(sz);
   }
   else
   {
      MemError();
      SetPtrSize(ptr, sz);
      if(MemError())
      {
         size_t oldSz = GetPtrSize(ptr);
         if(sz > oldSz)
         {
            void *newPtr = NewPtr(sz);
            if(!newPtr)
            {
               errno = ENOMEM;
               return NULL;
            }
            memcpy(newPtr, ptr, oldSz);
            return newPtr;
         }
         else
         {
            errno = ENOMEM;
            return NULL;
         }
      }
      else
         return ptr;
   }
}

void *malloc(size_t sz)
{
   return _malloc_r(_REENT, sz);
}

void free(void *p)
{
   _free_r(_REENT, p);
}

void *realloc(void *ptr, size_t sz)
{
   return _realloc_r(_REENT, ptr, sz);
}

void *calloc(size_t sz1, size_t sz2)
{
   return _calloc_r(_REENT, sz1, sz2);
}