108 lines
2.1 KiB
C
108 lines
2.1 KiB
C
/* alloc.c -- Default memory allocation routines.
|
|
|
|
(c) 1998-2006 (W3C) MIT, ERCIM, Keio University
|
|
See tidy.h for the copyright notice.
|
|
|
|
CVS Info :
|
|
|
|
$Author: arnaud02 $
|
|
$Date: 2006/12/29 16:31:07 $
|
|
$Revision: 1.7 $
|
|
|
|
*/
|
|
|
|
#include "tidy.h"
|
|
#include "forward.h"
|
|
|
|
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
|
|
{
|
|
/* 2 signifies a serious error */
|
|
fprintf( stderr, "Fatal error: %s\n", msg );
|
|
#ifdef _DEBUG
|
|
assert(0);
|
|
#endif
|
|
exit(2);
|
|
}
|
|
}
|
|
|
|
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!");
|
|
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!");
|
|
return p;
|
|
}
|
|
|
|
static void TIDY_CALL defaultFree( TidyAllocator* ARG_UNUSED(allocator), void* mem )
|
|
{
|
|
if ( mem )
|
|
{
|
|
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:
|
|
*/
|