Blame tests/backtrace-data.c

Packit Service 97d2fb
/* Test custom provided Dwfl_Thread_Callbacks vector.
Packit Service 97d2fb
   Copyright (C) 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
/* Test custom provided Dwfl_Thread_Callbacks vector.  Test mimics what
Packit Service 97d2fb
   a ptrace based vector would do.  */
Packit Service 97d2fb
Packit Service 97d2fb
#include <config.h>
Packit Service 97d2fb
#include <assert.h>
Packit Service 97d2fb
#include <inttypes.h>
Packit Service 97d2fb
#include <stdio.h>
Packit Service 97d2fb
#include <stdio_ext.h>
Packit Service 97d2fb
#include <locale.h>
Packit Service 97d2fb
#include <dirent.h>
Packit Service 97d2fb
#include <stdlib.h>
Packit Service 97d2fb
#include <errno.h>
Packit Service 97d2fb
#include <unistd.h>
Packit Service 97d2fb
#include <dwarf.h>
Packit Service 97d2fb
#if defined(__x86_64__) && defined(__linux__)
Packit Service 97d2fb
#include <sys/resource.h>
Packit Service 97d2fb
#include <sys/ptrace.h>
Packit Service 97d2fb
#include <signal.h>
Packit Service 97d2fb
#include <sys/types.h>
Packit Service 97d2fb
#include <sys/wait.h>
Packit Service 97d2fb
#include <sys/user.h>
Packit Service 97d2fb
#include <fcntl.h>
Packit Service 97d2fb
#include <string.h>
Packit Service 97d2fb
#include ELFUTILS_HEADER(dwfl)
Packit Service 97d2fb
#endif
Packit Service 97d2fb
#include "system.h"
Packit Service 97d2fb
Packit Service 97d2fb
#if !defined(__x86_64__) || !defined(__linux__)
Packit Service 97d2fb
Packit Service 97d2fb
int
Packit Service 97d2fb
main (int argc __attribute__ ((unused)), char **argv)
Packit Service 97d2fb
{
Packit Service 97d2fb
  fprintf (stderr, "%s: x86_64 linux only test\n",
Packit Service 97d2fb
          argv[0]);
Packit Service 97d2fb
  return 77;
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
#else /* __x86_64__ && __linux__ */
Packit Service 97d2fb
Packit Service 97d2fb
/* The only arch specific code is set_initial_registers.  */
Packit Service 97d2fb
Packit Service 97d2fb
static int
Packit Service 97d2fb
find_elf (Dwfl_Module *mod __attribute__ ((unused)),
Packit Service 97d2fb
	  void **userdata __attribute__ ((unused)),
Packit Service 97d2fb
	  const char *modname __attribute__ ((unused)),
Packit Service 97d2fb
	  Dwarf_Addr base __attribute__ ((unused)),
Packit Service 97d2fb
	  char **file_name __attribute__ ((unused)),
Packit Service 97d2fb
	  Elf **elfp __attribute__ ((unused)))
Packit Service 97d2fb
{
Packit Service 97d2fb
  /* Not used as modules are reported explicitly.  */
Packit Service 97d2fb
  assert (0);
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
static bool
Packit Service 97d2fb
memory_read (Dwfl *dwfl, Dwarf_Addr addr, Dwarf_Word *result,
Packit Service 97d2fb
	     void *dwfl_arg __attribute__ ((unused)))
Packit Service 97d2fb
{
Packit Service 97d2fb
  pid_t child = dwfl_pid (dwfl);
Packit Service 97d2fb
Packit Service 97d2fb
  errno = 0;
Packit Service 97d2fb
  long l = ptrace (PTRACE_PEEKDATA, child, (void *) (uintptr_t) addr, NULL);
Packit Service 97d2fb
Packit Service 97d2fb
  // The unwinder can ask for an invalid address.
Packit Service 97d2fb
  // Don't assert on that but just politely refuse.
Packit Service 97d2fb
  if (errno != 0) {
Packit Service 97d2fb
      errno = 0;
Packit Service 97d2fb
      return false;
Packit Service 97d2fb
  }
Packit Service 97d2fb
  *result = l;
Packit Service 97d2fb
Packit Service 97d2fb
  return true;
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
/* Return filename and VMA address *BASEP where its mapping starts which
Packit Service 97d2fb
   contains ADDR.  */
Packit Service 97d2fb
Packit Service 97d2fb
static char *
Packit Service 97d2fb
maps_lookup (pid_t pid, Dwarf_Addr addr, GElf_Addr *basep)
Packit Service 97d2fb
{
Packit Service 97d2fb
  char *fname;
Packit Service 97d2fb
  int i = asprintf (&fname, "/proc/%ld/maps", (long) pid);
Packit Service 97d2fb
  assert (i > 0);
Packit Service 97d2fb
  FILE *f = fopen (fname, "r");
Packit Service 97d2fb
  assert (f);
Packit Service 97d2fb
  free (fname);
Packit Service 97d2fb
  for (;;)
Packit Service 97d2fb
    {
Packit Service 97d2fb
      // 37e3c22000-37e3c23000 rw-p 00022000 00:11 49532 /lib64/ld-2.14.90.so */
Packit Service 97d2fb
      unsigned long start, end, offset;
Packit Service 97d2fb
      i = fscanf (f, "%lx-%lx %*s %lx %*x:%*x %*u", &start, &end, &offset);
Packit Service 97d2fb
      if (i != 3)
Packit Service 97d2fb
          break;
Packit Service 97d2fb
      char *filename = strdup ("");
Packit Service 97d2fb
      assert (filename);
Packit Service 97d2fb
      size_t filename_len = 0;
Packit Service 97d2fb
      for (;;)
Packit Service 97d2fb
	{
Packit Service 97d2fb
	  int c = fgetc (f);
Packit Service 97d2fb
	  assert (c != EOF);
Packit Service 97d2fb
	  if (c == '\n')
Packit Service 97d2fb
	    break;
Packit Service 97d2fb
	  if (c == ' ' && *filename == '\0')
Packit Service 97d2fb
	    continue;
Packit Service 97d2fb
	  filename = realloc (filename, filename_len + 2);
Packit Service 97d2fb
	  assert (filename);
Packit Service 97d2fb
	  filename[filename_len++] = c;
Packit Service 97d2fb
	  filename[filename_len] = '\0';
Packit Service 97d2fb
	}
Packit Service 97d2fb
      if (start <= addr && addr < end)
Packit Service 97d2fb
	{
Packit Service 97d2fb
	  i = fclose (f);
Packit Service 97d2fb
	  assert (i == 0);
Packit Service 97d2fb
Packit Service 97d2fb
	  *basep = start - offset;
Packit Service 97d2fb
	  return filename;
Packit Service 97d2fb
	}
Packit Service 97d2fb
      free (filename);
Packit Service 97d2fb
    }
Packit Service 97d2fb
  *basep = 0;
Packit Service 97d2fb
  return NULL;
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
/* Add module containing ADDR to the DWFL address space.
Packit Service 97d2fb
Packit Service 97d2fb
   dwfl_report_elf call here violates Dwfl manipulation as one should call
Packit Service 97d2fb
   dwfl_report only between dwfl_report_begin_add and dwfl_report_end.
Packit Service 97d2fb
   Current elfutils implementation does not mind as dwfl_report_begin_add is
Packit Service 97d2fb
   empty.  */
Packit Service 97d2fb
Packit Service 97d2fb
static Dwfl_Module *
Packit Service 97d2fb
report_module (Dwfl *dwfl, pid_t child, Dwarf_Addr addr)
Packit Service 97d2fb
{
Packit Service 97d2fb
  GElf_Addr base;
Packit Service 97d2fb
  char *long_name = maps_lookup (child, addr, &base);
Packit Service 97d2fb
  if (!long_name)
Packit Service 97d2fb
      return NULL; // not found
Packit Service 97d2fb
  Dwfl_Module *mod = dwfl_report_elf (dwfl, long_name, long_name, -1,
Packit Service 97d2fb
				      base, false /* add_p_vaddr */);
Packit Service 97d2fb
  assert (mod);
Packit Service 97d2fb
  free (long_name);
Packit Service 97d2fb
  assert (dwfl_addrmodule (dwfl, addr) == mod);
Packit Service 97d2fb
  return mod;
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
static pid_t
Packit Service 97d2fb
next_thread (Dwfl *dwfl, void *dwfl_arg __attribute__ ((unused)),
Packit Service 97d2fb
	     void **thread_argp)
Packit Service 97d2fb
{
Packit Service 97d2fb
  if (*thread_argp != NULL)
Packit Service 97d2fb
    return 0;
Packit Service 97d2fb
  /* Put arbitrary non-NULL value into *THREAD_ARGP as a marker so that this
Packit Service 97d2fb
     function returns non-zero PID only once.  */
Packit Service 97d2fb
  *thread_argp = thread_argp;
Packit Service 97d2fb
  return dwfl_pid (dwfl);
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
static bool
Packit Service 97d2fb
set_initial_registers (Dwfl_Thread *thread,
Packit Service 97d2fb
		       void *thread_arg __attribute__ ((unused)))
Packit Service 97d2fb
{
Packit Service 97d2fb
  pid_t child = dwfl_pid (dwfl_thread_dwfl (thread));
Packit Service 97d2fb
Packit Service 97d2fb
  struct user_regs_struct user_regs;
Packit Service 97d2fb
  long l = ptrace (PTRACE_GETREGS, child, NULL, &user_regs);
Packit Service 97d2fb
  assert (l == 0);
Packit Service 97d2fb
Packit Service 97d2fb
  Dwarf_Word dwarf_regs[17];
Packit Service 97d2fb
  dwarf_regs[0] = user_regs.rax;
Packit Service 97d2fb
  dwarf_regs[1] = user_regs.rdx;
Packit Service 97d2fb
  dwarf_regs[2] = user_regs.rcx;
Packit Service 97d2fb
  dwarf_regs[3] = user_regs.rbx;
Packit Service 97d2fb
  dwarf_regs[4] = user_regs.rsi;
Packit Service 97d2fb
  dwarf_regs[5] = user_regs.rdi;
Packit Service 97d2fb
  dwarf_regs[6] = user_regs.rbp;
Packit Service 97d2fb
  dwarf_regs[7] = user_regs.rsp;
Packit Service 97d2fb
  dwarf_regs[8] = user_regs.r8;
Packit Service 97d2fb
  dwarf_regs[9] = user_regs.r9;
Packit Service 97d2fb
  dwarf_regs[10] = user_regs.r10;
Packit Service 97d2fb
  dwarf_regs[11] = user_regs.r11;
Packit Service 97d2fb
  dwarf_regs[12] = user_regs.r12;
Packit Service 97d2fb
  dwarf_regs[13] = user_regs.r13;
Packit Service 97d2fb
  dwarf_regs[14] = user_regs.r14;
Packit Service 97d2fb
  dwarf_regs[15] = user_regs.r15;
Packit Service 97d2fb
  dwarf_regs[16] = user_regs.rip;
Packit Service 97d2fb
  bool ok = dwfl_thread_state_registers (thread, 0, 17, dwarf_regs);
Packit Service 97d2fb
  assert (ok);
Packit Service 97d2fb
Packit Service 97d2fb
  /* x86_64 has PC contained in its CFI subset of DWARF register set so
Packit Service 97d2fb
     elfutils will figure out the real PC value from REGS.
Packit Service 97d2fb
     So no need to explicitly call dwfl_thread_state_register_pc.  */
Packit Service 97d2fb
Packit Service 97d2fb
  return true;
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
static const Dwfl_Thread_Callbacks callbacks =
Packit Service 97d2fb
{
Packit Service 97d2fb
  next_thread,
Packit Service 97d2fb
  NULL, /* get_thread */
Packit Service 97d2fb
  memory_read,
Packit Service 97d2fb
  set_initial_registers,
Packit Service 97d2fb
  NULL, /* detach */
Packit Service 97d2fb
  NULL, /* thread_detach */
Packit Service 97d2fb
};
Packit Service 97d2fb
Packit Service 97d2fb
static int
Packit Service 97d2fb
frame_callback (Dwfl_Frame *state, void *arg)
Packit Service 97d2fb
{
Packit Service 97d2fb
  unsigned *framenop = arg;
Packit Service 97d2fb
  Dwarf_Addr pc;
Packit Service 97d2fb
  bool isactivation;
Packit Service 97d2fb
  if (! dwfl_frame_pc (state, &pc, &isactivation))
Packit Service 97d2fb
    {
Packit Service 97d2fb
      error (1, 0, "%s", dwfl_errmsg (-1));
Packit Service 97d2fb
      return 1;
Packit Service 97d2fb
    }
Packit Service 97d2fb
  Dwarf_Addr pc_adjusted = pc - (isactivation ? 0 : 1);
Packit Service 97d2fb
Packit Service 97d2fb
  /* Get PC->SYMNAME.  */
Packit Service 97d2fb
  Dwfl *dwfl = dwfl_thread_dwfl (dwfl_frame_thread (state));
Packit Service 97d2fb
  Dwfl_Module *mod = dwfl_addrmodule (dwfl, pc_adjusted);
Packit Service 97d2fb
  if (mod == NULL)
Packit Service 97d2fb
    mod = report_module (dwfl, dwfl_pid (dwfl), pc_adjusted);
Packit Service 97d2fb
  const char *symname = NULL;
Packit Service 97d2fb
  symname = dwfl_module_addrname (mod, pc_adjusted);
Packit Service 97d2fb
Packit Service 97d2fb
  printf ("#%2u %#" PRIx64 "%4s\t%s\n", (*framenop)++, (uint64_t) pc,
Packit Service 97d2fb
	  ! isactivation ? "- 1" : "", symname);
Packit Service 97d2fb
  return DWARF_CB_OK;
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
static int
Packit Service 97d2fb
thread_callback (Dwfl_Thread *thread, void *thread_arg __attribute__ ((unused)))
Packit Service 97d2fb
{
Packit Service 97d2fb
  unsigned frameno = 0;
Packit Service 97d2fb
  switch (dwfl_thread_getframes (thread, frame_callback, &frameno))
Packit Service 97d2fb
    {
Packit Service 97d2fb
    case 0:
Packit Service 97d2fb
      break;
Packit Service 97d2fb
    case -1:
Packit Service 97d2fb
      error (1, 0, "dwfl_thread_getframes: %s", dwfl_errmsg (-1));
Packit Service 97d2fb
      break;
Packit Service 97d2fb
    default:
Packit Service 97d2fb
      abort ();
Packit Service 97d2fb
    }
Packit Service 97d2fb
  return DWARF_CB_OK;
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
int
Packit Service 97d2fb
main (int argc __attribute__ ((unused)), char **argv __attribute__ ((unused)))
Packit Service 97d2fb
{
Packit Service 97d2fb
  /* We use no threads here which can interfere with handling a stream.  */
Packit Service 97d2fb
  __fsetlocking (stdin, FSETLOCKING_BYCALLER);
Packit Service 97d2fb
  __fsetlocking (stdout, FSETLOCKING_BYCALLER);
Packit Service 97d2fb
  __fsetlocking (stderr, FSETLOCKING_BYCALLER);
Packit Service 97d2fb
Packit Service 97d2fb
  /* Set locale.  */
Packit Service 97d2fb
  (void) setlocale (LC_ALL, "");
Packit Service 97d2fb
Packit Service 97d2fb
  elf_version (EV_CURRENT);
Packit Service 97d2fb
Packit Service 97d2fb
  pid_t child = fork ();
Packit Service 97d2fb
  switch (child)
Packit Service 97d2fb
  {
Packit Service 97d2fb
    case -1:
Packit Service 97d2fb
      assert (0);
Packit Service 97d2fb
      break;
Packit Service 97d2fb
    case 0:;
Packit Service 97d2fb
      long l = ptrace (PTRACE_TRACEME, 0, NULL, NULL);
Packit Service 97d2fb
      assert (l == 0);
Packit Service 97d2fb
      raise (SIGUSR1);
Packit Service 97d2fb
      return 0;
Packit Service 97d2fb
    default:
Packit Service 97d2fb
      break;
Packit Service 97d2fb
  }
Packit Service 97d2fb
Packit Service 97d2fb
  int status;
Packit Service 97d2fb
  pid_t pid = waitpid (child, &status, 0);
Packit Service 97d2fb
  assert (pid == child);
Packit Service 97d2fb
  assert (WIFSTOPPED (status));
Packit Service 97d2fb
  assert (WSTOPSIG (status) == SIGUSR1);
Packit Service 97d2fb
Packit Service 97d2fb
  static char *debuginfo_path;
Packit Service 97d2fb
  static const Dwfl_Callbacks offline_callbacks =
Packit Service 97d2fb
    {
Packit Service 97d2fb
      .find_debuginfo = dwfl_standard_find_debuginfo,
Packit Service 97d2fb
      .debuginfo_path = &debuginfo_path,
Packit Service 97d2fb
      .section_address = dwfl_offline_section_address,
Packit Service 97d2fb
      .find_elf = find_elf,
Packit Service 97d2fb
    };
Packit Service 97d2fb
  Dwfl *dwfl = dwfl_begin (&offline_callbacks);
Packit Service 97d2fb
  assert (dwfl);
Packit Service 97d2fb
Packit Service 97d2fb
  struct user_regs_struct user_regs;
Packit Service 97d2fb
  long l = ptrace (PTRACE_GETREGS, child, NULL, &user_regs);
Packit Service 97d2fb
  assert (l == 0);
Packit Service 97d2fb
  report_module (dwfl, child, user_regs.rip);
Packit Service 97d2fb
Packit Service 97d2fb
  bool ok = dwfl_attach_state (dwfl, EM_NONE, child, &callbacks, NULL);
Packit Service 97d2fb
  assert (ok);
Packit Service 97d2fb
Packit Service 97d2fb
  /* Multiple threads are not handled here.  */
Packit Service 97d2fb
  int err = dwfl_getthreads (dwfl, thread_callback, NULL);
Packit Service 97d2fb
  assert (! err);
Packit Service 97d2fb
Packit Service 97d2fb
  dwfl_end (dwfl);
Packit Service 97d2fb
  kill (child, SIGKILL);
Packit Service 97d2fb
  pid = waitpid (child, &status, 0);
Packit Service 97d2fb
  assert (pid == child);
Packit Service 97d2fb
  assert (WIFSIGNALED (status));
Packit Service 97d2fb
  assert (WTERMSIG (status) == SIGKILL);
Packit Service 97d2fb
Packit Service 97d2fb
  return EXIT_SUCCESS;
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
#endif /* x86_64 */