Subversion Repositories or1k

/*
 * libc/stdlib/malloc/malloc_debug.c -- malloc debugging support
 *
 *  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 <unistd.h>
#include <stdarg.h>
 
#include "malloc.h"
#include "heap.h"
 
int __malloc_debug = 0, __malloc_check = 0;
 
#ifdef MALLOC_MMB_DEBUGGING
int __malloc_mmb_debug = 0;
#endif
 
/* Debugging output is indented this may levels.  */
int __malloc_debug_cur_indent = 0;
 
 
/* Print FMT and args indented at the current debug print level, followed
   by a newline, and change the level by INDENT.  */
void
__malloc_debug_printf (int indent, const char *fmt, ...)
{
  unsigned spaces = __malloc_debug_cur_indent * MALLOC_DEBUG_INDENT_SIZE;
  va_list val;
 
  while (spaces > 0)
    {
      putc (' ', stderr);
      spaces--;
    }
 
  va_start (val, fmt);
  vfprintf (stderr, fmt, val);
  va_end (val);
 
  putc ('\n', stderr);
 
  __malloc_debug_indent (indent);
}
 
void
__malloc_debug_init (void)
{
  char *ev = getenv ("MALLOC_DEBUG");
  if (ev)
    {
      int val = atoi (ev);
 
      if (val & 1)
	__malloc_check = 1;
 
      if (val & 2)
	__malloc_debug = 1;
 
#ifdef MALLOC_MMB_DEBUGGING
      if (val & 4)
	__malloc_mmb_debug = 1;
#endif
 
#ifdef HEAP_DEBUGGING
      if (val & 8)
	__heap_debug = 1;
#endif
 
      if (val)
	__malloc_debug_printf
	  (0, "malloc_debug: initialized to %d (check = %d, dump = %d, dump_mmb = %d, dump_heap = %d)",
	   val,
	   !!(val & 1), !!(val & 2),
	   !!(val & 4), !!(val & 8));
    }
}