Blame tests/allfcts.c

Packit Service 97d2fb
/* Copyright (C) 2005, 2013 Red Hat, Inc.
Packit Service 97d2fb
   This file is part of elfutils.
Packit Service 97d2fb
Packit Service 97d2fb
   This file is free software; you can redistribute it and/or modify
Packit Service 97d2fb
   it under the terms of the GNU General Public License as published by
Packit Service 97d2fb
   the Free Software Foundation; either version 3 of the License, or
Packit Service 97d2fb
   (at your option) any later version.
Packit Service 97d2fb
Packit Service 97d2fb
   elfutils is distributed in the hope that it will be useful, but
Packit Service 97d2fb
   WITHOUT ANY WARRANTY; without even the implied warranty of
Packit Service 97d2fb
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Packit Service 97d2fb
   GNU General Public License for more details.
Packit Service 97d2fb
Packit Service 97d2fb
   You should have received a copy of the GNU General Public License
Packit Service 97d2fb
   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
Packit Service 97d2fb
Packit Service 97d2fb
#ifdef HAVE_CONFIG_H
Packit Service 97d2fb
# include <config.h>
Packit Service 97d2fb
#endif
Packit Service 97d2fb
Packit Service 97d2fb
#include <err.h>
Packit Service 97d2fb
#include <fcntl.h>
Packit Service 97d2fb
#include ELFUTILS_HEADER(dw)
Packit Service 97d2fb
#include ELFUTILS_HEADER(dwelf)
Packit Service 97d2fb
#include <stdio.h>
Packit Service 97d2fb
#include <unistd.h>
Packit Service 97d2fb
Packit Service 97d2fb
Packit Service 97d2fb
static int
Packit Service 97d2fb
cb (Dwarf_Die *func, void *arg __attribute__ ((unused)))
Packit Service 97d2fb
{
Packit Service 97d2fb
  const char *file = dwarf_decl_file (func);
Packit Service 97d2fb
  int line = -1;
Packit Service 97d2fb
  dwarf_decl_line (func, &line);
Packit Service 97d2fb
  const char *fct = dwarf_diename (func);
Packit Service 97d2fb
Packit Service 97d2fb
  printf ("%s:%d:%s\n", file, line, fct);
Packit Service 97d2fb
Packit Service 97d2fb
  return DWARF_CB_ABORT;
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
static Dwarf *
Packit Service 97d2fb
setup_alt (Dwarf *main)
Packit Service 97d2fb
{
Packit Service 97d2fb
  const char *alt_name;
Packit Service 97d2fb
  const void *build_id;
Packit Service 97d2fb
  ssize_t ret = dwelf_dwarf_gnu_debugaltlink (main, &alt_name, &build_id);
Packit Service 97d2fb
  if (ret == 0)
Packit Service 97d2fb
    return NULL;
Packit Service 97d2fb
  if (ret == -1)
Packit Service 97d2fb
    errx (1, "dwelf_dwarf_gnu_debugaltlink: %s", dwarf_errmsg (-1));
Packit Service 97d2fb
  int fd = open (alt_name, O_RDONLY);
Packit Service 97d2fb
  if (fd < 0)
Packit Service 97d2fb
    {
Packit Service 97d2fb
      printf ("Warning: no alt file found.\n");
Packit Service 97d2fb
      return NULL;
Packit Service 97d2fb
    }
Packit Service 97d2fb
  Dwarf *dbg_alt = dwarf_begin (fd, DWARF_C_READ);
Packit Service 97d2fb
  if (dbg_alt == NULL)
Packit Service 97d2fb
    errx (1, "dwarf_begin (%s): %s", alt_name, dwarf_errmsg (-1));
Packit Service 97d2fb
  if (elf_cntl (dwarf_getelf (dbg_alt), ELF_C_FDREAD) != 0)
Packit Service 97d2fb
    errx (1, "elf_cntl (%s, ELF_C_FDREAD): %s", alt_name, elf_errmsg (-1));
Packit Service 97d2fb
  close (fd);
Packit Service 97d2fb
  dwarf_setalt (main, dbg_alt);
Packit Service 97d2fb
  return dbg_alt;
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
int
Packit Service 97d2fb
main (int argc, char *argv[])
Packit Service 97d2fb
{
Packit Service 97d2fb
  for (int i = 1; i < argc; ++i)
Packit Service 97d2fb
    {
Packit Service 97d2fb
      int fd = open (argv[i], O_RDONLY);
Packit Service 97d2fb
      if (fd < 0)
Packit Service 97d2fb
	err (1, "open (%s)", argv[i]);
Packit Service 97d2fb
Packit Service 97d2fb
      Dwarf *dbg = dwarf_begin (fd, DWARF_C_READ);
Packit Service 97d2fb
      if (dbg != NULL)
Packit Service 97d2fb
	{
Packit Service 97d2fb
	  Dwarf_Off off = 0;
Packit Service 97d2fb
	  size_t cuhl;
Packit Service 97d2fb
	  Dwarf_Off noff;
Packit Service 97d2fb
	  Dwarf *dbg_alt = setup_alt (dbg);
Packit Service 97d2fb
Packit Service 97d2fb
	  while (dwarf_nextcu (dbg, off, &noff, &cuhl, NULL, NULL, NULL) == 0)
Packit Service 97d2fb
	    {
Packit Service 97d2fb
	      Dwarf_Die die_mem;
Packit Service 97d2fb
	      Dwarf_Die *die = dwarf_offdie (dbg, off + cuhl, &die_mem);
Packit Service 97d2fb
Packit Service 97d2fb
	      /* Explicitly stop in the callback and then resume each time.  */
Packit Service 97d2fb
	      ptrdiff_t doff = 0;
Packit Service 97d2fb
	      do
Packit Service 97d2fb
		{
Packit Service 97d2fb
		  doff = dwarf_getfuncs (die, cb, NULL, doff);
Packit Service 97d2fb
		  if (dwarf_errno () != 0)
Packit Service 97d2fb
		    errx (1, "dwarf_getfuncs (%s): %s",
Packit Service 97d2fb
			  argv[i], dwarf_errmsg (-1));
Packit Service 97d2fb
		}
Packit Service 97d2fb
	      while (doff != 0);
Packit Service 97d2fb
Packit Service 97d2fb
	      off = noff;
Packit Service 97d2fb
	    }
Packit Service 97d2fb
Packit Service 97d2fb
	  dwarf_end (dbg_alt);
Packit Service 97d2fb
	  dwarf_end (dbg);
Packit Service 97d2fb
	}
Packit Service 97d2fb
      else
Packit Service 97d2fb
	errx (1, "dwarf_begin (%s): %s", argv[i], dwarf_errmsg (-1));
Packit Service 97d2fb
Packit Service 97d2fb
      close (fd);
Packit Service 97d2fb
    }
Packit Service 97d2fb
}