You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
113 lines
2.5 KiB
113 lines
2.5 KiB
#include <Rcpp.h>
|
|
|
|
/* alloc.c -- Default memory allocation routines.
|
|
|
|
(c) 1998-2006 (W3C) MIT, ERCIM, Keio University
|
|
See tidy.h for the copyright notice.
|
|
|
|
*/
|
|
|
|
/* #define DEBUG_MEMORY very NOISY extra DEBUG of memory allocation, reallocation and free */
|
|
|
|
#include "tidy.h"
|
|
#include "forward.h"
|
|
#ifdef DEBUG_MEMORY
|
|
#include "sprtf.h"
|
|
#endif
|
|
|
|
static TidyMalloc g_malloc = NULL;
|
|
static TidyRealloc g_realloc = NULL;
|
|
static TidyFree g_free = NULL;
|
|
static TidyPanic g_panic = NULL;
|
|
|
|
Bool TIDY_CALL tidySetMallocCall( TidyMalloc fmalloc )
|
|
{
|
|
g_malloc = fmalloc;
|
|
return yes;
|
|
}
|
|
Bool TIDY_CALL tidySetReallocCall( TidyRealloc frealloc )
|
|
{
|
|
g_realloc = frealloc;
|
|
return yes;
|
|
}
|
|
Bool TIDY_CALL tidySetFreeCall( TidyFree ffree )
|
|
{
|
|
g_free = ffree;
|
|
return yes;
|
|
}
|
|
Bool TIDY_CALL tidySetPanicCall( TidyPanic fpanic )
|
|
{
|
|
g_panic = fpanic;
|
|
return yes;
|
|
}
|
|
|
|
static void TIDY_CALL defaultPanic( TidyAllocator* ARG_UNUSED(allocator), ctmbstr msg )
|
|
{
|
|
if ( g_panic )
|
|
g_panic( msg );
|
|
else
|
|
Rcpp::stop("Fatal memory error");
|
|
}
|
|
|
|
static void* TIDY_CALL defaultAlloc( TidyAllocator* allocator, size_t size )
|
|
{
|
|
void *p = ( g_malloc ? g_malloc(size) : malloc(size) );
|
|
if ( !p )
|
|
defaultPanic( allocator,"Out of memory!");
|
|
#if !defined(NDEBUG) && defined(_MSC_VER) && defined(DEBUG_MEMORY)
|
|
SPRTF("alloc MEM %p, size %d\n", p, (int)size );
|
|
if (size == 0) {
|
|
SPRTF("NOTE: An allocation of ZERO bytes!!!!!!\n");
|
|
}
|
|
#endif
|
|
return p;
|
|
}
|
|
|
|
static void* TIDY_CALL defaultRealloc( TidyAllocator* allocator, void* mem, size_t newsize )
|
|
{
|
|
void *p;
|
|
if ( mem == NULL )
|
|
return defaultAlloc( allocator, newsize );
|
|
|
|
p = ( g_realloc ? g_realloc(mem, newsize) : realloc(mem, newsize) );
|
|
if (!p)
|
|
defaultPanic( allocator, "Out of memory!");
|
|
#if !defined(NDEBUG) && defined(_MSC_VER) && defined(DEBUG_MEMORY)
|
|
SPRTF("realloc MEM %p, size %d\n", p, (int)newsize );
|
|
#endif
|
|
return p;
|
|
}
|
|
|
|
static void TIDY_CALL defaultFree( TidyAllocator* ARG_UNUSED(allocator), void* mem )
|
|
{
|
|
if ( mem )
|
|
{
|
|
#if !defined(NDEBUG) && defined(_MSC_VER) && defined(DEBUG_MEMORY)
|
|
SPRTF("free MEM %p\n", mem );
|
|
#endif
|
|
if ( g_free )
|
|
g_free( mem );
|
|
else
|
|
free( mem );
|
|
}
|
|
}
|
|
|
|
static const TidyAllocatorVtbl defaultVtbl = {
|
|
defaultAlloc,
|
|
defaultRealloc,
|
|
defaultFree,
|
|
defaultPanic
|
|
};
|
|
|
|
TidyAllocator TY_(g_default_allocator) = {
|
|
&defaultVtbl
|
|
};
|
|
|
|
/*
|
|
* local variables:
|
|
* mode: c
|
|
* indent-tabs-mode: nil
|
|
* c-basic-offset: 4
|
|
* eval: (c-set-offset 'substatement-open 0)
|
|
* end:
|
|
*/
|
|
|