diff options
| -rw-r--r-- | libc/stdlib/malloc/heap_debug.c | 86 |
1 files changed, 86 insertions, 0 deletions
diff --git a/libc/stdlib/malloc/heap_debug.c b/libc/stdlib/malloc/heap_debug.c new file mode 100644 index 000000000..1453a5a39 --- /dev/null +++ b/libc/stdlib/malloc/heap_debug.c @@ -0,0 +1,86 @@ +/* + * libc/stdlib/malloc/heap_debug.c -- optional heap debugging routines + * + * Copyright (C) 2002 NEC Corporation + * Copyright (C) 2002 Miles Bader <miles@gnu.org> + * + * This file is subject to the terms and conditions of the GNU Lesser + * General Public License. See the file COPYING.LIB in the main + * directory of this archive for more details. + * + * Written by Miles Bader <miles@gnu.org> + */ + +#include <stdlib.h> +#include <stdio.h> +#include <stdarg.h> +#include <string.h> + +#include "heap.h" + + +#ifdef HEAP_DEBUGGING +int __heap_debug = 0; +#endif + + +static void +__heap_dump_freelist (struct heap *heap) +{ + struct heap_free_area *fa; + for (fa = heap->free_areas; fa; fa = fa->next) + fprintf (stderr, + " 0x%lx: 0x%lx - 0x%lx (%d)\tP=0x%lx, N=0x%lx\n", + (long)fa, + (long)HEAP_FREE_AREA_START (fa), + (long)HEAP_FREE_AREA_END (fa), + fa->size, + (long)fa->prev, + (long)fa->next); +} + +/* Output a text representation of HEAP to stderr, labelling it with STR. */ +void +__heap_dump (struct heap *heap, const char *str) +{ + static int recursed = 0; + + if (! recursed) + { + __heap_check (heap, str); + + recursed = 1; + + fprintf (stderr, " %s: heap @0x%lx:\n", str, (long)heap); + __heap_dump_freelist (heap); + + recursed = 0; + } +} + + +/* Do some consistency checks on HEAP. If they fail, output an error + message to stderr, and exit. STR is printed with the failure message. */ +void +__heap_check (struct heap *heap, const char *str) +{ + struct heap_free_area *fa, *prev; + + for (prev = 0, fa = heap->free_areas; fa; prev = fa, fa = fa->next) + if (fa->prev != prev) + { + if (str) + fprintf (stderr, "\nHEAP CHECK FAILURE %s: ", str); + else + fprintf (stderr, "\nHEAP CHECK FAILURE: "); + + fprintf (stderr, + " prev pointer corrupted: P=0x%lx should be 0x%lx\n", + (long)fa->prev, (long)prev); + fprintf (stderr, "\nheap:\n"); + + __heap_dump_freelist (heap); + + exit (22); + } +} |