144 lines
3.8 KiB
C
144 lines
3.8 KiB
C
|
/***************************************************************************/
|
||
|
|
/* */
|
||
|
|
/* memdebug.c */
|
||
|
|
/* */
|
||
|
|
/* Memory debugging functions (body only). */
|
||
|
|
/* */
|
||
|
|
/* Copyright 1996-1999 by */
|
||
|
|
/* David Turner, Robert Wilhelm, and Werner Lemberg. */
|
||
|
|
/* */
|
||
|
|
/* This file is part of the FreeType project, and may only be used */
|
||
|
|
/* modified and distributed under the terms of the FreeType project */
|
||
|
|
/* license, LICENSE.TXT. By continuing to use, modify, or distribute */
|
||
|
|
/* this file you indicate that you have read the license and */
|
||
|
|
/* understand and accept it fully. */
|
||
|
|
/* */
|
||
|
|
/***************************************************************************/
|
||
|
|
|
||
|
|
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
|
||
|
|
|
||
|
|
typedef struct TBlockRec_
|
||
|
|
{
|
||
|
|
char* base;
|
||
|
|
long size;
|
||
|
|
|
||
|
|
} TBlockRec;
|
||
|
|
|
||
|
|
|
||
|
|
static TBlockRec* mem_blocks;
|
||
|
|
static int num_mem_blocks;
|
||
|
|
static int max_mem_blocks;
|
||
|
|
|
||
|
|
|
||
|
|
void DM_Init_Mem()
|
||
|
|
{
|
||
|
|
num_mem_blocks = 0;
|
||
|
|
max_mem_blocks = 4096;
|
||
|
|
mem_blocks = (TBlockRec*)malloc( max_mem_blocks *
|
||
|
|
sizeof ( *mem_blocks ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
void DM_Done_Mem()
|
||
|
|
{
|
||
|
|
/* Now print the remaining blocks */
|
||
|
|
if ( num_mem_blocks == 0 )
|
||
|
|
{
|
||
|
|
fprintf( stderr, "No memory leaked!\n" );
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
int i;
|
||
|
|
|
||
|
|
|
||
|
|
fprintf( stderr, "There were %d leaked memory blocks\n\n",
|
||
|
|
num_mem_blocks );
|
||
|
|
|
||
|
|
fprintf( stderr, "base size\n" );
|
||
|
|
fprintf( stderr, "------------------\n" );
|
||
|
|
|
||
|
|
for ( i = 0; i < num_mem_blocks; i++ )
|
||
|
|
{
|
||
|
|
fprintf( stderr, "%08lx %04lx\n",
|
||
|
|
(long)mem_blocks[i].base, mem_blocks[i].size );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
free( mem_blocks );
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
void DM_Record( char* base,
|
||
|
|
long size )
|
||
|
|
{
|
||
|
|
TBlockRec* block;
|
||
|
|
|
||
|
|
|
||
|
|
#if 0
|
||
|
|
/* First, check that the block is not located within one of the */
|
||
|
|
/* recorded blocks */
|
||
|
|
for ( i = 0; i < num_mem_blocks; i++ )
|
||
|
|
{
|
||
|
|
char *start, *end, *_limit, *_base;
|
||
|
|
|
||
|
|
|
||
|
|
_base = mem_blocks[i].base;
|
||
|
|
_limit = _base + mem_blocks[i].size;
|
||
|
|
|
||
|
|
start = base;
|
||
|
|
end = base + size - 1;
|
||
|
|
|
||
|
|
if ( ( start >= base && start < limit ) ||
|
||
|
|
( end >= base && end < limit ) )
|
||
|
|
{
|
||
|
|
fprintf( stderr, "Warning: Recording an invalid block!\n" );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* Add block to list */
|
||
|
|
if ( num_mem_blocks >= max_mem_blocks )
|
||
|
|
{
|
||
|
|
max_mem_blocks *= 2;
|
||
|
|
mem_blocks = realloc( mem_blocks,
|
||
|
|
max_mem_blocks * sizeof ( *mem_blocks ) );
|
||
|
|
}
|
||
|
|
block = mem_blocks + num_mem_blocks;
|
||
|
|
block->base = base;
|
||
|
|
block->size = size;
|
||
|
|
num_mem_blocks++;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
void DM_Forget( char* base )
|
||
|
|
{
|
||
|
|
TBlockRec* block = mem_blocks;
|
||
|
|
int i;
|
||
|
|
|
||
|
|
|
||
|
|
for ( i = 0; i < num_mem_blocks; i++, block++ )
|
||
|
|
{
|
||
|
|
if ( block->base == base )
|
||
|
|
{
|
||
|
|
/* simply move last block to the current position */
|
||
|
|
if ( num_mem_blocks > 1 )
|
||
|
|
*block = mem_blocks[num_mem_blocks - 1];
|
||
|
|
|
||
|
|
num_mem_blocks--;
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
#if 1
|
||
|
|
if ( base >= block->base && base < block->base + block->size )
|
||
|
|
{
|
||
|
|
fprintf( stderr, "Invalid block forgotten!\n" );
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/* END */
|