[glibc.git] / debug / backtracesymsfd.c

/* Write formatted list with names for addresses in backtrace to a file.
   Copyright (C) 1998-2013 Free Software Foundation, Inc.
   This file is part of the GNU C Library.
   Contributed by Ulrich Drepper <drepper@cygnus.com>, 1998.

   The GNU C Library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with the GNU C Library; if not, see
   <http://www.gnu.org/licenses/>.  */

#include <execinfo.h>
#include <string.h>
#include <sys/uio.h>

#include <_itoa.h>
#include <ldsodefs.h>

#if __ELF_NATIVE_CLASS == 32
# define WORD_WIDTH 8
#else
/* We assume 64bits.  */
# define WORD_WIDTH 16
#endif


void
__backtrace_symbols_fd (array, size, fd)
     void *const *array;
     int size;
     int fd;
{
  struct iovec iov[9];
  int cnt;

  for (cnt = 0; cnt < size; ++cnt)
    {
      char buf[WORD_WIDTH];
      char buf2[WORD_WIDTH];
      Dl_info info;
      struct link_map *map;
      size_t last = 0;

      if (_dl_addr (array[cnt], &info, &map, NULL)
	  && info.dli_fname != NULL && info.dli_fname[0] != '\0')
	{
	  /* Name of the file.  */
	  iov[0].iov_base = (void *) info.dli_fname;
	  iov[0].iov_len = strlen (info.dli_fname);
	  last = 1;

	  if (info.dli_sname != NULL || map->l_addr != 0)
	    {
	      size_t diff;

	      iov[last].iov_base = (void *) "(";
	      iov[last].iov_len = 1;
	      ++last;

	      if (info.dli_sname != NULL)
		{
		  /* We have a symbol name.  */
		  iov[last].iov_base = (void *) info.dli_sname;
		  iov[last].iov_len = strlen (info.dli_sname);
		  ++last;
		}
	      else
		/* We have no symbol, so describe it as relative to the file.
		   The load bias is more useful to the user than the load
		   address.  The use of these addresses is to calculate an
		   address in the ELF file, so its prelinked bias is not
		   something we want to subtract out.  */
		info.dli_saddr = (void *) map->l_addr;

	      if (array[cnt] >= (void *) info.dli_saddr)
		{
		  iov[last].iov_base = (void *) "+0x";
		  diff = array[cnt] - info.dli_saddr;
		}
	      else
		{
		  iov[last].iov_base = (void *) "-0x";
		  diff = info.dli_saddr - array[cnt];
		}
	      iov[last].iov_len = 3;
	      ++last;

	      iov[last].iov_base = _itoa_word ((unsigned long int) diff,
					       &buf2[WORD_WIDTH], 16, 0);
	      iov[last].iov_len = (&buf2[WORD_WIDTH]
				   - (char *) iov[last].iov_base);
	      ++last;

	      iov[last].iov_base = (void *) ")";
	      iov[last].iov_len = 1;
	      ++last;
	    }
	}

      iov[last].iov_base = (void *) "[0x";
      iov[last].iov_len = 3;
      ++last;

      iov[last].iov_base = _itoa_word ((unsigned long int) array[cnt],
				       &buf[WORD_WIDTH], 16, 0);
      iov[last].iov_len = &buf[WORD_WIDTH] - (char *) iov[last].iov_base;
      ++last;

      iov[last].iov_base = (void *) "]\n";
      iov[last].iov_len = 2;
      ++last;

      __writev (fd, iov, last);
    }
}
weak_alias (__backtrace_symbols_fd, backtrace_symbols_fd)
libc_hidden_def (__backtrace_symbols_fd)
Commit	Line	Data
b6ab06ce	1	/* Write formatted list with names for addresses in backtrace to a file.
568035b7	2	Copyright (C) 1998-2013 Free Software Foundation, Inc.
b6ab06ce UD	3	This file is part of the GNU C Library.
	4	Contributed by Ulrich Drepper <drepper@cygnus.com>, 1998.
	5
	6	The GNU C Library is free software; you can redistribute it and/or
	7	modify it under the terms of the GNU Lesser General Public
	8	License as published by the Free Software Foundation; either
	9	version 2.1 of the License, or (at your option) any later version.
	10
	11	The GNU C Library is distributed in the hope that it will be useful,
	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	14	Lesser General Public License for more details.
	15
	16	You should have received a copy of the GNU Lesser General Public
59ba27a6 PE	17	License along with the GNU C Library; if not, see
59ba27a6 PE	18	<http://www.gnu.org/licenses/>. */
b6ab06ce UD	19
	20	#include <execinfo.h>
	21	#include <string.h>
	22	#include <sys/uio.h>
	23
eb96ffb0	24	#include <_itoa.h>
1d6c3d23	25	#include <ldsodefs.h>
b6ab06ce UD	26
	27	#if __ELF_NATIVE_CLASS == 32
	28	# define WORD_WIDTH 8
	29	#else
	30	/* We assume 64bits. */
	31	# define WORD_WIDTH 16
	32	#endif
	33
	34
	35	void
	36	__backtrace_symbols_fd (array, size, fd)
	37	void const array;
	38	int size;
	39	int fd;
	40	{
1d6c3d23	41	struct iovec iov[9];
b6ab06ce UD	42	int cnt;
	43
	44	for (cnt = 0; cnt < size; ++cnt)
	45	{
	46	char buf[WORD_WIDTH];
1d6c3d23 AJ	47	char buf2[WORD_WIDTH];
	48	Dl_info info;
	49	struct link_map *map;
	50	size_t last = 0;
b6ab06ce	51
1d6c3d23 AJ	52	if (_dl_addr (array[cnt], &info, &map, NULL)
	53	&& info.dli_fname != NULL && info.dli_fname[0] != '\0')
	54	{
	55	/* Name of the file. */
	56	iov[0].iov_base = (void *) info.dli_fname;
	57	iov[0].iov_len = strlen (info.dli_fname);
	58	last = 1;
b6ab06ce	59
1d6c3d23 AJ	60	if (info.dli_sname != NULL \|\| map->l_addr != 0)
	61	{
	62	size_t diff;
b6ab06ce	63
1d6c3d23 AJ	64	iov[last].iov_base = (void *) "(";
	65	iov[last].iov_len = 1;
	66	++last;
b6ab06ce	67
1d6c3d23 AJ	68	if (info.dli_sname != NULL)
	69	{
	70	/* We have a symbol name. */
	71	iov[last].iov_base = (void *) info.dli_sname;
	72	iov[last].iov_len = strlen (info.dli_sname);
	73	++last;
	74	}
	75	else
	76	/* We have no symbol, so describe it as relative to the file.
	77	The load bias is more useful to the user than the load
	78	address. The use of these addresses is to calculate an
	79	address in the ELF file, so its prelinked bias is not
	80	something we want to subtract out. */
	81	info.dli_saddr = (void *) map->l_addr;
	82
	83	if (array[cnt] >= (void *) info.dli_saddr)
	84	{
	85	iov[last].iov_base = (void *) "+0x";
	86	diff = array[cnt] - info.dli_saddr;
	87	}
	88	else
	89	{
	90	iov[last].iov_base = (void *) "-0x";
	91	diff = info.dli_saddr - array[cnt];
	92	}
	93	iov[last].iov_len = 3;
	94	++last;
	95
	96	iov[last].iov_base = _itoa_word ((unsigned long int) diff,
	97	&buf2[WORD_WIDTH], 16, 0);
	98	iov[last].iov_len = (&buf2[WORD_WIDTH]
	99	- (char *) iov[last].iov_base);
	100	++last;
	101
	102	iov[last].iov_base = (void *) ")";
	103	iov[last].iov_len = 1;
	104	++last;
	105	}
	106	}
	107
	108	iov[last].iov_base = (void *) "[0x";
	109	iov[last].iov_len = 3;
	110	++last;
	111
	112	iov[last].iov_base = _itoa_word ((unsigned long int) array[cnt],
	113	&buf[WORD_WIDTH], 16, 0);
	114	iov[last].iov_len = &buf[WORD_WIDTH] - (char *) iov[last].iov_base;
	115	++last;
	116
	117	iov[last].iov_base = (void *) "]\n";
	118	iov[last].iov_len = 2;
	119	++last;
	120
	121	__writev (fd, iov, last);
b6ab06ce UD	122	}
	123	}
	124	weak_alias (__backtrace_symbols_fd, backtrace_symbols_fd)
	125	libc_hidden_def (__backtrace_symbols_fd)