/* 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); }