95 lines
2.0 KiB
C
95 lines
2.0 KiB
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;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
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);
|
|
}
|