SWAMPy

✎ CARVE FLESH

EDITING: amalloc.c

/*
 * debugging malloc()/realloc()/calloc()/free() that attempts
 * to keep track of just what's been allocated today.
 */

#include <stdio.h>
#include <stdlib.h>
#include "config.h"

#define MAGIC 0x1f2e3d4c

struct alist { int magic, size, index; int *end; struct alist *next, *last; };

static struct alist list =  { 0, 0, 0, 0 };

static int mallocs=0;
static int reallocs=0;
static int frees=0;

static int index = 0;

static void
die(char *msg, int index)
{
    fprintf(stderr, msg, index);
    abort();
}

void *
acalloc(int count, int size)
{
    struct alist *ret;

if ( size > 1 ) {
	count *= size;
	size = 1;
    }

if ( ret = calloc(count + sizeof(struct alist) + sizeof(int), size) ) {
	ret->magic = MAGIC;
	ret->size = size * count;
	ret->index = index ++;
	ret->end = (int*)(count + (char*) (ret + 1));
	*(ret->end) = ~MAGIC;
	if ( list.next ) {
	    ret->next = list.next;
	    ret->last = &list;
	    ret->next->last = ret;
	    list.next = ret;
	}
	else {
	    ret->last = ret->next = &list;
	    list.next = list.last = ret;
	}
	++mallocs;
	return ret+1;
    }
    return 0;
}

void*
amalloc(int size)
{
    return acalloc(size,1);
}

void
afree(void *ptr)
{
    struct alist *p2 = ((struct alist*)ptr)-1;

if ( p2->magic == MAGIC ) {
	if ( ! (p2->end && *(p2->end) == ~MAGIC) )
	    die("goddam: corrupted memory block %d in free()!\n", p2->index);
	p2->last->next = p2->next;
	p2->next->last = p2->last;
	++frees;
	free(p2);
    }
    else
	free(ptr);
}

void *
arealloc(void *ptr, int size)
{
    struct alist *p2 = ((struct alist*)ptr)-1;
    struct alist save;

if ( p2->magic == MAGIC ) {
	if ( ! (p2->end && *(p2->end) == ~MAGIC) )
	    die("goddam: corrupted memory block %d in realloc()!\n", p2->index);
	save.next = p2->next;
	save.last = p2->last;
	p2 = realloc(p2, sizeof(int) + sizeof(*p2) + size);

if ( p2 ) {
	    p2->size = size;
	    p2->end = (int*)(size + (char*) (p2 + 1));
	    *(p2->end) = ~MAGIC;
	    p2->next->last = p2;
	    p2->last->next = p2;
	    ++reallocs;
	    return p2+1;
	}
	else {
	    save.next->last = save.last;
	    save.last->next = save.next;
	    return 0;
	}
    }
    return realloc(ptr, size);
}

void
adump()
{
    struct alist *p;

for ( p = list.next; p && (p != &list); p = p->next ) {
	fprintf(stderr, "allocated: %d byte%s\n", p->size, (p->size==1) ? "" : "s");
	fprintf(stderr, "           [%.*s]\n", p->size, (char*)(p+1));
    }

if ( getenv("AMALLOC_STATISTICS") ) {
	fprintf(stderr, "%d malloc%s\n", mallocs, (mallocs==1)?"":"s");
	fprintf(stderr, "%d realloc%s\n", reallocs, (reallocs==1)?"":"s");
	fprintf(stderr, "%d free%s\n", frees, (frees==1)?"":"s");
    }
}

CANCEL

Name	Type	Size	Modified	Actions
↩ ..	DIR	—	—
📄 .sitearchdir.time	TIME	0 B	2023-09-24 03:47	EDIT
📄 amalloc.c	C	2.6 KB	2023-09-24 03:47	EDIT
📄 amalloc.h	H	492 B	2023-09-24 03:47	EDIT
📄 amalloc.o	O	18.7 KB	2023-09-24 03:47	EDIT
📄 basename.c	C	891 B	2023-09-24 03:47	EDIT
📄 basename.o	O	12.2 KB	2023-09-24 03:47	EDIT
📄 blocktags	?	689 B	2023-09-24 03:47	EDIT
📄 config.h	H	514 B	2023-09-24 03:47	EDIT
📄 Csio.c	C	1019 B	2023-09-24 03:47	EDIT
📄 Csio.o	O	18.7 KB	2023-09-24 03:47	EDIT
📄 css.c	C	1.5 KB	2023-09-24 03:47	EDIT
📄 css.o	O	15.7 KB	2023-09-24 03:47	EDIT
📄 cstring.h	H	2.4 KB	2023-09-24 03:47	EDIT
📄 docheader.c	C	878 B	2023-09-24 03:47	EDIT
📄 docheader.o	O	12.3 KB	2023-09-24 03:47	EDIT
📄 dumptree.c	C	3 KB	2023-09-24 03:47	EDIT
📄 dumptree.o	O	27.7 KB	2023-09-24 03:47	EDIT
📄 emmatch.c	C	4.1 KB	2023-09-24 03:47	EDIT
📄 emmatch.o	O	23.3 KB	2023-09-24 03:47	EDIT
📄 extconf.rb	RB	1.2 KB	2023-09-24 03:47	EDIT
📄 flags.c	C	2.3 KB	2023-09-24 03:47	EDIT
📄 flags.o	O	22.1 KB	2023-09-24 03:47	EDIT
📄 generate.c	C	42.3 KB	2023-09-24 03:47	EDIT
📄 generate.o	O	203.4 KB	2023-09-24 03:47	EDIT
📄 gethopt.c	C	5.7 KB	2023-09-24 03:47	EDIT
📄 gethopt.h	H	918 B	2023-09-24 03:47	EDIT
📄 gethopt.o	O	17.9 KB	2023-09-24 03:47	EDIT
📄 github_flavoured.c	C	2.2 KB	2023-09-24 03:47	EDIT
📄 github_flavoured.o	O	17.8 KB	2023-09-24 03:47	EDIT
📄 h1title.c	C	689 B	2023-09-24 03:47	EDIT
📄 h1title.o	O	12.6 KB	2023-09-24 03:47	EDIT
📄 html5.c	C	417 B	2023-09-24 03:47	EDIT
📄 html5.o	O	4.7 KB	2023-09-24 03:47	EDIT
📄 Makefile	?	9.1 KB	2023-09-24 03:47	EDIT
📄 markdown.c	C	29.7 KB	2023-09-24 03:47	EDIT
📄 markdown.h	H	7.8 KB	2023-09-24 03:47	EDIT
📄 markdown.o	O	124.8 KB	2023-09-24 03:47	EDIT
📄 mkdio.c	C	9.1 KB	2023-09-24 03:47	EDIT
📄 mkdio.h	H	4.5 KB	2023-09-24 03:47	EDIT
📄 mkdio.o	O	42.3 KB	2023-09-24 03:47	EDIT
📄 mktags.c	C	1.8 KB	2023-09-24 03:47	EDIT
📄 mktags.o	O	18.9 KB	2023-09-24 03:47	EDIT
📄 notspecial.c	C	732 B	2023-09-24 03:47	EDIT
📄 notspecial.o	O	2.9 KB	2023-09-24 03:47	EDIT
📄 pgm_options.c	C	4.8 KB	2023-09-24 03:47	EDIT
📄 pgm_options.h	H	187 B	2023-09-24 03:47	EDIT
📄 pgm_options.o	O	18.2 KB	2023-09-24 03:47	EDIT
📄 rdiscount.c	C	4.4 KB	2023-09-24 03:47	EDIT
📄 rdiscount.o	O	65.8 KB	2023-09-24 03:47	EDIT
📄 rdiscount.so	SO	427.7 KB	2023-09-24 03:47	EDIT
📄 resource.c	C	2.8 KB	2023-09-24 03:47	EDIT
📄 resource.o	O	20.9 KB	2023-09-24 03:47	EDIT
📄 ruby-config.h	H	229 B	2023-09-24 03:47	EDIT
📄 setup.c	C	669 B	2023-09-24 03:47	EDIT
📄 setup.o	O	7.9 KB	2023-09-24 03:47	EDIT
📄 tags.c	C	2 KB	2023-09-24 03:47	EDIT
📄 tags.h	H	326 B	2023-09-24 03:47	EDIT
📄 tags.o	O	16.4 KB	2023-09-24 03:47	EDIT
📄 toc.c	C	2.5 KB	2023-09-24 03:47	EDIT
📄 toc.o	O	18.7 KB	2023-09-24 03:47	EDIT
📄 VERSION	?	7 B	2023-09-24 03:47	EDIT
📄 version.c	C	177 B	2023-09-24 03:47	EDIT
📄 version.o	O	2.5 KB	2023-09-24 03:47	EDIT
📄 xml.c	C	1.6 KB	2023-09-24 03:47	EDIT
📄 xml.o	O	14.9 KB	2023-09-24 03:47	EDIT
📄 xmlpage.c	C	1.1 KB	2023-09-24 03:47	EDIT
📄 xmlpage.o	O	17 KB	2023-09-24 03:47	EDIT