Add Euro character.
[kopensolaris-gnu/glibc.git] / malloc / mtrace.c
index 02da0ae..d15569c 100644 (file)
 #include <bits/libc-lock.h>
 #endif
 
-#ifdef HAVE_ELF
-#include <elf/ldsodefs.h>
-#endif
+#include <ldsodefs.h>
 
 #include <stdio.h>
-
-#ifndef        __GNU_LIBRARY__
-extern char *getenv ();
-#else
+#include <string.h>
 #include <stdlib.h>
-#endif
 
-#if defined _LIBC && defined USE_IN_LIBIO
+#include <stdio-common/_itoa.h>
+
+#ifdef USE_IN_LIBIO
 # include <libio/iolibio.h>
 # define setvbuf(s, b, f, l) _IO_setvbuf (s, b, f, l)
 #endif
@@ -100,14 +96,19 @@ tr_where (caller)
          char *buf = (char *) "";
          if (info.dli_sname && info.dli_sname[0])
            {
-             size_t len = strlen (info.dli_sname) + 22;
-             buf = alloca (len);
-             if (caller >= (const __ptr_t) info.dli_saddr)
-               snprintf (buf, len, "(%s+0x%x)", info.dli_sname,
-                         caller - (const __ptr_t) info.dli_saddr);
-             else
-               snprintf (buf, len, "(%s-0x%x)", info.dli_sname,
-                         (const __ptr_t) info.dli_saddr - caller);
+             size_t len = strlen (info.dli_sname);
+             buf = alloca (len + 6 + 2 * sizeof (void *));
+
+             buf[0] = '(';
+             __stpcpy (_fitoa (caller >= (const __ptr_t) info.dli_saddr
+                               ? caller - (const __ptr_t) info.dli_saddr
+                               : (const __ptr_t) info.dli_saddr - caller,
+                               __stpcpy (__mempcpy (buf + 1, info.dli_sname,
+                                                    len),
+                                         caller >= (__ptr_t) info.dli_saddr
+                                         ? "+0x" : "-0x"),
+                               16, 0),
+                       ")");
            }
 
          fprintf (mallstream, "@ %s%s%s[%p] ",
@@ -204,8 +205,11 @@ tr_reallochook (ptr, size, caller)
   else if (ptr == NULL)
     fprintf (mallstream, "+ %p %#lx\n", hdr, (unsigned long int) size);
   else
-    fprintf (mallstream, "< %p\n> %p %#lx\n", ptr, hdr,
-            (unsigned long int) size);
+    {
+      fprintf (mallstream, "< %p\n", ptr);
+      tr_where (caller);
+      fprintf (mallstream, "> %p %#lx\n", hdr, (unsigned long int) size);
+    }
 
   if (hdr == mallwatch)
     tr_break ();