(grow_heap): When growing bail even if new_size is negative.
[kopensolaris-gnu/glibc.git] / malloc / mtrace.c
index c369ab5..1a9522b 100644 (file)
@@ -1,5 +1,5 @@
 /* More debugging hooks for `malloc'.
-   Copyright (C) 1991-1994,1996-2001,2002 Free Software Foundation, Inc.
+   Copyright (C) 1991-1994,1996-2003, 2004 Free Software Foundation, Inc.
    This file is part of the GNU C Library.
                 Written April 2, 1991 by John Gilmore of Cygnus Support.
                 Based on mcheck.c by Mike Haertel.
@@ -65,25 +65,28 @@ int _mtrace_line;
 #endif
 
 /* Old hook values.  */
-static void (*tr_old_free_hook) __P ((__ptr_t ptr, const __ptr_t));
-static __ptr_t (*tr_old_malloc_hook) __P ((__malloc_size_t size,
-                                          const __ptr_t));
-static __ptr_t (*tr_old_realloc_hook) __P ((__ptr_t ptr,
-                                           __malloc_size_t size,
-                                           const __ptr_t));
+static void (*tr_old_free_hook) (__ptr_t ptr, const __ptr_t);
+static __ptr_t (*tr_old_malloc_hook) (__malloc_size_t size, const __ptr_t);
+static __ptr_t (*tr_old_realloc_hook) (__ptr_t ptr, __malloc_size_t size,
+                                      const __ptr_t);
+static __ptr_t (*tr_old_memalign_hook) (__malloc_size_t __alignment,
+                                       __malloc_size_t __size,
+                                       __const __ptr_t);
 
 /* This function is called when the block being alloc'd, realloc'd, or
    freed has an address matching the variable "mallwatch".  In a debugger,
    set "mallwatch" to the address of interest, then put a breakpoint on
    tr_break.  */
 
-void tr_break __P ((void));
+extern void tr_break (void) __THROW;
+libc_hidden_proto (tr_break)
 void
 tr_break ()
 {
 }
+libc_hidden_def (tr_break)
 
-static void tr_where __P ((const __ptr_t)) internal_function;
+static void tr_where (const __ptr_t) __THROW internal_function;
 static void
 internal_function
 tr_where (caller)
@@ -101,7 +104,7 @@ tr_where (caller)
     {
 #ifdef HAVE_ELF
       Dl_info info;
-      if (_dl_addr (caller, &info))
+      if (_dl_addr (caller, &info, NULL, NULL))
        {
          char *buf = (char *) "";
          if (info.dli_sname != NULL)
@@ -131,7 +134,7 @@ tr_where (caller)
     }
 }
 
-static void tr_freehook __P ((__ptr_t, const __ptr_t));
+static void tr_freehook (__ptr_t, const __ptr_t) __THROW;
 static void
 tr_freehook (ptr, caller)
      __ptr_t ptr;
@@ -156,7 +159,7 @@ tr_freehook (ptr, caller)
   __libc_lock_unlock (lock);
 }
 
-static __ptr_t tr_mallochook __P ((__malloc_size_t, const __ptr_t));
+static __ptr_t tr_mallochook (__malloc_size_t, const __ptr_t) __THROW;
 static __ptr_t
 tr_mallochook (size, caller)
      __malloc_size_t size;
@@ -185,7 +188,8 @@ tr_mallochook (size, caller)
   return hdr;
 }
 
-static __ptr_t tr_reallochook __P ((__ptr_t, __malloc_size_t, const __ptr_t));
+static __ptr_t tr_reallochook (__ptr_t, __malloc_size_t, const __ptr_t)
+     __THROW;
 static __ptr_t
 tr_reallochook (ptr, size, caller)
      __ptr_t ptr;
@@ -231,6 +235,39 @@ tr_reallochook (ptr, size, caller)
   return hdr;
 }
 
+static __ptr_t tr_memalignhook (__malloc_size_t, __malloc_size_t,
+                               const __ptr_t) __THROW;
+static __ptr_t
+tr_memalignhook (alignment, size, caller)
+     __malloc_size_t alignment, size;
+     const __ptr_t caller;
+{
+  __ptr_t hdr;
+
+  __libc_lock_lock (lock);
+
+  __memalign_hook = tr_old_memalign_hook;
+  __malloc_hook = tr_old_malloc_hook;
+  if (tr_old_memalign_hook != NULL)
+    hdr = (__ptr_t) (*tr_old_memalign_hook) (alignment, size, caller);
+  else
+    hdr = (__ptr_t) memalign (alignment, size);
+  __memalign_hook = tr_memalignhook;
+  __malloc_hook = tr_mallochook;
+
+  tr_where (caller);
+  /* We could be printing a NULL here; that's OK.  */
+  fprintf (mallstream, "+ %p %#lx\n", hdr, (unsigned long int) size);
+
+  __libc_lock_unlock (lock);
+
+  if (hdr == mallwatch)
+    tr_break ();
+
+  return hdr;
+}
+
+
 
 #ifdef _LIBC
 
@@ -278,7 +315,7 @@ mtrace ()
       if (mtb == NULL)
        return;
 
-      mallstream = fopen (mallfile != NULL ? mallfile : "/dev/null", "w");
+      mallstream = fopen (mallfile != NULL ? mallfile : "/dev/null", "wc");
       if (mallstream != NULL)
        {
          /* Make sure we close the file descriptor on exec.  */
@@ -298,6 +335,8 @@ mtrace ()
          __malloc_hook = tr_mallochook;
          tr_old_realloc_hook = __realloc_hook;
          __realloc_hook = tr_reallochook;
+         tr_old_memalign_hook = __memalign_hook;
+         __memalign_hook = tr_memalignhook;
 #ifdef _LIBC
          if (!added_atexit_handler)
            {
@@ -325,4 +364,5 @@ muntrace ()
   __free_hook = tr_old_free_hook;
   __malloc_hook = tr_old_malloc_hook;
   __realloc_hook = tr_old_realloc_hook;
+  __memalign_hook = tr_old_memalign_hook;
 }