116 lines
2.8 KiB
C
116 lines
2.8 KiB
C
/*
|
|
wrapper functions for system malloc -- keep malloc stats.
|
|
Truilkan@TMI - 92/04/17
|
|
*/
|
|
|
|
#define IN_MALLOC_WRAPPER
|
|
#define NO_OPCODES
|
|
#include "std.h"
|
|
#include "debugmalloc.h"
|
|
#include "my_malloc.h"
|
|
#include "md.h"
|
|
|
|
void fatal (const char *, ...);
|
|
|
|
#undef NOISY_MALLOC
|
|
|
|
#ifdef NOISY_MALLOC
|
|
#define NOISY(x) printf(x)
|
|
#define NOISY1(x,y) printf(x,y)
|
|
#define NOISY2(x,y,z) printf(x,y,z)
|
|
#define NOISY3(w,x,y,z) printf(w,x,y,z)
|
|
#else
|
|
#define NOISY(x)
|
|
#define NOISY1(x,y)
|
|
#define NOISY2(x,y,z)
|
|
#define NOISY3(w,x,y,z)
|
|
#endif
|
|
|
|
typedef struct stats_s {
|
|
unsigned int free_calls, alloc_calls, realloc_calls;
|
|
} stats_t;
|
|
|
|
static stats_t stats;
|
|
|
|
void debugmalloc_init()
|
|
{
|
|
stats.free_calls = 0;
|
|
stats.alloc_calls = 0;
|
|
stats.realloc_calls = 0;
|
|
MDinit();
|
|
}
|
|
|
|
INLINE void *debugrealloc (void * ptr, int size, int tag, char * desc)
|
|
{
|
|
void *tmp;
|
|
|
|
if (size <= 0)
|
|
fatal("illegal size in debugrealloc()");
|
|
|
|
NOISY3("realloc: %i (%x), %s\n", size, ptr, desc);
|
|
stats.realloc_calls++;
|
|
tmp = (md_node_t *) ptr - 1;
|
|
if (MDfree(tmp)) {
|
|
tmp = (void *) REALLOC(tmp, size + MD_OVERHEAD);
|
|
MDmalloc(tmp, size, tag, desc);
|
|
return (md_node_t *) tmp + 1;
|
|
}
|
|
return (void *) 0;
|
|
}
|
|
|
|
INLINE void *debugmalloc (int size, int tag, char * desc)
|
|
{
|
|
void *tmp;
|
|
|
|
if (size <= 0)
|
|
fatal("illegal size in debugmalloc()");
|
|
stats.alloc_calls++;
|
|
tmp = (void *) MALLOC(size + MD_OVERHEAD);
|
|
MDmalloc(tmp, size, tag, desc);
|
|
NOISY3("malloc: %i (%x), %s\n", size, (md_node_t *)tmp + 1, desc);
|
|
return (md_node_t *) tmp + 1;
|
|
}
|
|
|
|
INLINE void *debugcalloc (int nitems, int size, int tag, char * desc)
|
|
{
|
|
void *tmp;
|
|
|
|
if (size <= 0)
|
|
fatal("illegal size in debugcalloc()");
|
|
|
|
stats.alloc_calls++;
|
|
tmp = (void *) CALLOC(nitems * size + MD_OVERHEAD, 1);
|
|
MDmalloc(tmp, nitems * size, tag, desc);
|
|
NOISY3("calloc: %i (%x), %s\n", nitems*size, (md_node_t *)tmp + 1, desc);
|
|
return (md_node_t *) tmp + 1;
|
|
}
|
|
|
|
INLINE void debugfree (void * ptr)
|
|
{
|
|
md_node_t *tmp;
|
|
|
|
NOISY1("free (%x)\n", ptr);
|
|
stats.free_calls++;
|
|
tmp = (md_node_t *) ptr - 1;
|
|
if (MDfree(tmp)) {
|
|
memset(ptr, 'x', tmp->size);
|
|
FREE(tmp); /* only free if safe to do so */
|
|
}
|
|
}
|
|
|
|
void dump_malloc_data (outbuffer_t * ob)
|
|
{
|
|
int net;
|
|
|
|
net = stats.alloc_calls - stats.free_calls;
|
|
outbuf_add(ob, "using debug malloc:\n\n");
|
|
outbuf_addv(ob, "total malloc'd: %10lu\n", total_malloced);
|
|
outbuf_addv(ob, "high water mark: %10lu\n", hiwater);
|
|
outbuf_addv(ob, "overhead: %10lu\n",
|
|
(MD_TABLE_SIZE * sizeof(md_node_t *)) + (net * MD_OVERHEAD));
|
|
outbuf_addv(ob, "#alloc calls: %10lu\n", stats.alloc_calls);
|
|
outbuf_addv(ob, "#free calls: %10lu\n", stats.free_calls);
|
|
outbuf_addv(ob, "#alloc - #free: %10lu\n", net);
|
|
outbuf_addv(ob, "#realloc calls: %10lu\n", stats.realloc_calls);
|
|
}
|