Index: gdb-7.11.50.20160630/gdb/corelow.c

===================================================================

--- gdb-7.11.50.20160630.orig/gdb/corelow.c	2016-07-03 14:33:28.130205528 +0200

+++ gdb-7.11.50.20160630/gdb/corelow.c	2016-07-03 14:34:32.022753582 +0200

@@ -45,6 +45,10 @@

 #include "gdb_bfd.h"

 #include "completer.h"

 #include "filestuff.h"

+#include "auxv.h"

+#include "elf/common.h"

+#include "gdbcmd.h"

+#include "build-id.h"

 #ifndef O_LARGEFILE

 #define O_LARGEFILE 0

@@ -266,6 +270,53 @@

     inferior_ptid = ptid;			/* Yes, make it current.  */

 }

+static int build_id_core_loads = 1;

+

+static void

+build_id_locate_exec (int from_tty)

+{

+  CORE_ADDR at_entry;

+  struct bfd_build_id *build_id;

+  char *execfilename, *debug_filename;

+  char *build_id_filename;

+  struct cleanup *back_to;

+

+  if (exec_bfd != NULL || symfile_objfile != NULL)

+    return;

+

+  if (target_auxv_search (&current_target, AT_ENTRY, &at_entry) <= 0)

+    return;

+

+  build_id = build_id_addr_get (at_entry);

+  if (build_id == NULL)

+    return;

+  back_to = make_cleanup (xfree, build_id);

+

+  /* SYMFILE_OBJFILE should refer to the main executable (not only to its

+     separate debug info file).  gcc44+ keeps .eh_frame only in the main

+     executable without its duplicate .debug_frame in the separate debug info

+     file - such .eh_frame would not be found if SYMFILE_OBJFILE would refer

+     directly to the separate debug info file.  */

+

+  execfilename = build_id_to_filename (build_id, &build_id_filename);

+  make_cleanup (xfree, build_id_filename);

+

+  if (execfilename != NULL)

+    {

+      make_cleanup (xfree, execfilename);

+      exec_file_attach (execfilename, from_tty);

+      symbol_file_add_main (execfilename, from_tty);

+      if (symfile_objfile != NULL)

+        symfile_objfile->flags |= OBJF_BUILD_ID_CORE_LOADED;

+    }

+  else

+    debug_print_missing (_("the main executable file"), build_id_filename);

+

+  do_cleanups (back_to);

+

+  /* No automatic SOLIB_ADD as the libraries would get read twice.  */

+}

+

 /* This routine opens and sets up the core file bfd.  */

 static void

@@ -404,6 +455,14 @@

 	switch_to_thread (thread->ptid);

     }

+  /* Find the build_id identifiers.  If it gets executed after

+     POST_CREATE_INFERIOR we would clash with asking to discard the already

+     loaded VDSO symbols.  If it gets executed before bfd_map_over_sections

+     INFERIOR_PTID is still not set and libthread_db initialization crashes on

+     PID == 0 in ps_pglobal_lookup.  */

+  if (build_id_core_loads != 0)

+    build_id_locate_exec (from_tty);

+

   post_create_inferior (&core_ops, from_tty);

   /* Now go through the target stack looking for threads since there

@@ -1068,4 +1127,11 @@

   init_core_ops ();

   add_target_with_completer (&core_ops, filename_completer);

+

+  add_setshow_boolean_cmd ("build-id-core-loads", class_files,

+			   &build_id_core_loads, _("\

+Set whether CORE-FILE loads the build-id associated files automatically."), _("\

+Show whether CORE-FILE loads the build-id associated files automatically."),

+			   NULL, NULL, NULL,

+			   &setlist, &showlist);

 }

Index: gdb-7.11.50.20160630/gdb/doc/gdb.texinfo

===================================================================

--- gdb-7.11.50.20160630.orig/gdb/doc/gdb.texinfo	2016-07-03 14:33:28.130205528 +0200

+++ gdb-7.11.50.20160630/gdb/doc/gdb.texinfo	2016-07-03 14:34:32.030753651 +0200

@@ -18916,6 +18916,27 @@

 @end table

+You can also adjust the current verbosity of the @dfn{build id} locating.

+

+@table @code

+

+@kindex set build-id-verbose

+@item set build-id-verbose 0

+No additional messages are printed.

+

+@item set build-id-verbose 1

+Missing separate debug filenames are printed.

+

+@item set build-id-verbose 2

+Missing separate debug filenames are printed and also all the parsing of the

+binaries to find their @dfn{build id} content is printed.

+

+@kindex show build-id-verbose

+@item show build-id-verbose

+Show the current verbosity value for the @dfn{build id} content locating.

+

+@end table

+

 @cindex @code{.gnu_debuglink} sections

 @cindex debug link sections

 A debug link is a special section of the executable file named

Index: gdb-7.11.50.20160630/gdb/solib-svr4.c

===================================================================

--- gdb-7.11.50.20160630.orig/gdb/solib-svr4.c	2016-07-03 14:33:28.130205528 +0200

+++ gdb-7.11.50.20160630/gdb/solib-svr4.c	2016-07-03 14:34:32.031753659 +0200

@@ -45,6 +45,7 @@

 #include "auxv.h"

 #include "gdb_bfd.h"

 #include "probe.h"

+#include "build-id.h"

 static struct link_map_offsets *svr4_fetch_link_map_offsets (void);

 static int svr4_have_link_map_offsets (void);

@@ -1416,9 +1417,52 @@

 	  continue;

 	}

-      strncpy (newobj->so_name, buffer, SO_NAME_MAX_PATH_SIZE - 1);

-      newobj->so_name[SO_NAME_MAX_PATH_SIZE - 1] = '\0';

-      strcpy (newobj->so_original_name, newobj->so_name);

+      {

+	struct bfd_build_id *build_id;

+

+	strncpy (newobj->so_original_name, buffer, SO_NAME_MAX_PATH_SIZE - 1);

+	newobj->so_original_name[SO_NAME_MAX_PATH_SIZE - 1] = '\0';

+	/* May get overwritten below.  */

+	strcpy (newobj->so_name, newobj->so_original_name);

+

+	build_id = build_id_addr_get (newobj->lm_info->l_ld);

+	if (build_id != NULL)

+	  {

+	    char *name, *build_id_filename;

+

+	    /* Missing the build-id matching separate debug info file

+	       would be handled while SO_NAME gets loaded.  */

+	    name = build_id_to_filename (build_id, &build_id_filename);

+	    if (name != NULL)

+	      {

+		strncpy (newobj->so_name, name, SO_NAME_MAX_PATH_SIZE - 1);

+		newobj->so_name[SO_NAME_MAX_PATH_SIZE - 1] = '\0';

+		xfree (name);

+	      }

+	    else

+	      {

+		debug_print_missing (newobj->so_name, build_id_filename);

+

+		/* In the case the main executable was found according to

+		   its build-id (from a core file) prevent loading

+		   a different build of a library with accidentally the

+		   same SO_NAME.

+

+		   It suppresses bogus backtraces (and prints "??" there

+		   instead) if the on-disk files no longer match the

+		   running program version.  */

+

+		if (symfile_objfile != NULL

+		    && (symfile_objfile->flags

+			& OBJF_BUILD_ID_CORE_LOADED) != 0)

+		  newobj->so_name[0] = 0;

+	      }

+

+	    xfree (build_id_filename);

+	    xfree (build_id);

+	  }

+      }

+

       xfree (buffer);

       /* If this entry has no name, or its name matches the name

Index: gdb-7.11.50.20160630/gdb/elfread.c

===================================================================

--- gdb-7.11.50.20160630.orig/gdb/elfread.c	2016-07-03 14:33:28.130205528 +0200

+++ gdb-7.11.50.20160630/gdb/elfread.c	2016-07-03 14:34:32.031753659 +0200

@@ -1259,9 +1259,10 @@

 	   && objfile->separate_debug_objfile == NULL

 	   && objfile->separate_debug_objfile_backlink == NULL)

     {

-      char *debugfile;

+      char *debugfile, *build_id_filename;

-      debugfile = find_separate_debug_file_by_buildid (objfile);

+      debugfile = find_separate_debug_file_by_buildid (objfile,

+						       &build_id_filename);

       if (debugfile == NULL)

 	debugfile = find_separate_debug_file_by_debuglink (objfile);

@@ -1275,6 +1276,12 @@

 	  symbol_file_add_separate (abfd, debugfile, symfile_flags, objfile);

 	  do_cleanups (cleanup);

 	}

+      /* Check if any separate debug info has been extracted out.  */

+      else if (bfd_get_section_by_name (objfile->obfd, ".gnu_debuglink")

+	       != NULL)

+	debug_print_missing (objfile_name (objfile), build_id_filename);

+

+      xfree (build_id_filename);

     }

 }

Index: gdb-7.11.50.20160630/gdb/symfile.h

===================================================================

--- gdb-7.11.50.20160630.orig/gdb/symfile.h	2016-07-03 14:33:28.130205528 +0200

+++ gdb-7.11.50.20160630/gdb/symfile.h	2016-07-03 14:34:32.032753668 +0200

@@ -589,6 +589,10 @@

 void map_symbol_filenames (symbol_filename_ftype *fun, void *data,

 			   int need_fullname);

+/* build-id support.  */

+extern struct bfd_build_id *build_id_addr_get (CORE_ADDR addr);

+extern void debug_print_missing (const char *binary, const char *debug);

+

 /* From dwarf2read.c */

 /* Names for a dwarf2 debugging section.  The field NORMAL is the normal

Index: gdb-7.11.50.20160630/gdb/testsuite/lib/gdb.exp

===================================================================

--- gdb-7.11.50.20160630.orig/gdb/testsuite/lib/gdb.exp	2016-07-03 14:33:28.130205528 +0200

+++ gdb-7.11.50.20160630/gdb/testsuite/lib/gdb.exp	2016-07-03 14:34:32.033753676 +0200

@@ -1641,6 +1641,16 @@

 	    warning "Couldn't set the width to 0."

 	}

     }

+    # Turn off the missing warnings as the testsuite does not expect it.

+    send_gdb "set build-id-verbose 0\n"

+    gdb_expect 10 {

+	-re "$gdb_prompt $" {

+	    verbose "Disabled the missing debug infos warnings." 2

+	}

+	timeout {

+	    warning "Could not disable the missing debug infos warnings.."

+	}

+    }

     return 0

 }

Index: gdb-7.11.50.20160630/gdb/testsuite/lib/mi-support.exp

===================================================================

--- gdb-7.11.50.20160630.orig/gdb/testsuite/lib/mi-support.exp	2016-07-03 14:33:28.130205528 +0200

+++ gdb-7.11.50.20160630/gdb/testsuite/lib/mi-support.exp	2016-07-03 14:34:32.033753676 +0200

@@ -309,6 +309,16 @@ proc default_mi_gdb_start { args } {

 	    warning "Couldn't set the width to 0."

 	}

     }

+    # Turn off the missing warnings as the testsuite does not expect it.

+    send_gdb "190-gdb-set build-id-verbose 0\n"

+    gdb_expect 10 {

+	-re ".*190-gdb-set build-id-verbose 0\r\n190\\\^done\r\n$mi_gdb_prompt$" {

+	    verbose "Disabled the missing debug infos warnings." 2

+	}

+	timeout {

+	    warning "Could not disable the missing debug infos warnings.."

+	}

+    }

     if { $separate_inferior_pty } {

 	mi_create_inferior_pty

--- gdb-7.11.90.20160907/gdb/testsuite/gdb.base/new-ui-pending-input.exp-orig	2016-09-07 04:01:15.000000000 +0200

+++ gdb-7.11.90.20160907/gdb/testsuite/gdb.base/new-ui-pending-input.exp	2016-09-07 22:35:35.818534069 +0200

@@ -62,6 +62,7 @@ proc test_command_line_new_ui_pending_in

     set options ""

     append options " -iex \"set height 0\""

     append options " -iex \"set width 0\""

+    append options " -iex \"set build-id-verbose 0\""

     append options " -iex \"new-ui console $extra_tty_name\""

     append options " -ex \"b $bpline\""

     append options " -ex \"run\""

Index: gdb-7.11.50.20160630/gdb/objfiles.h

===================================================================

--- gdb-7.11.50.20160630.orig/gdb/objfiles.h	2016-07-03 14:33:28.130205528 +0200

+++ gdb-7.11.50.20160630/gdb/objfiles.h	2016-07-03 14:34:32.034753685 +0200

@@ -489,6 +489,10 @@

 #define OBJF_NOT_FILENAME (1 << 6)

+/* This file was loaded according to the BUILD_ID_CORE_LOADS rules.  */

+

+#define OBJF_BUILD_ID_CORE_LOADED (1 << 12)

+

 /* Declarations for functions defined in objfiles.c */

 extern struct objfile *allocate_objfile (bfd *, const char *name, int);

Index: gdb-7.11.50.20160630/gdb/testsuite/gdb.base/corefile.exp

===================================================================

--- gdb-7.11.50.20160630.orig/gdb/testsuite/gdb.base/corefile.exp	2016-07-03 14:33:28.130205528 +0200

+++ gdb-7.11.50.20160630/gdb/testsuite/gdb.base/corefile.exp	2016-07-03 14:34:32.034753685 +0200

@@ -293,3 +293,33 @@

 	pass $test

     }

 }

+

+

+# Test auto-loading of binary files through build-id from the core file.

+set buildid [build_id_debug_filename_get $binfile]

+set wholetest "binfile found by build-id"

+if {$buildid == ""} {

+    untested "$wholetest (binary has no build-id)"

+} else {

+    gdb_exit

+    gdb_start

+

+    regsub {\.debug$} $buildid {} buildid

+    set debugdir [standard_output_file ${testfile}-debugdir]

+    file delete -force -- $debugdir

+    file mkdir $debugdir/[file dirname $buildid]

+    file copy $binfile $debugdir/$buildid

+

+    set test "show debug-file-directory"

+    gdb_test_multiple $test $test {

+	-re "The directory where separate debug symbols are searched for is \"(.*)\"\\.\r\n$gdb_prompt $" {

+	    set debugdir_orig $expect_out(1,string)

+	    pass $test

+	}

+    }

+    gdb_test_no_output "set debug-file-directory $debugdir:$debugdir_orig" "set debug-file-directory"

+    gdb_test "show build-id-core-loads" {Whether CORE-FILE loads the build-id associated files automatically is on\.}

+    gdb_test "core-file $corefile" "\r\nProgram terminated with .*" "core-file without executable"

+    gdb_test "info files" "Local exec file:\r\n\[ \t\]*`[string_to_regexp $debugdir/$buildid]', file type .*"

+    pass $wholetest

+}

Index: gdb-7.11.50.20160630/gdb/build-id.c

===================================================================

--- gdb-7.11.50.20160630.orig/gdb/build-id.c	2016-07-03 14:33:28.130205528 +0200

+++ gdb-7.11.50.20160630/gdb/build-id.c	2016-07-03 14:36:50.124938187 +0200

@@ -26,11 +26,67 @@

 #include "objfiles.h"

 #include "filenames.h"

 #include "gdbcore.h"

+#include "libbfd.h"

+#include "gdbcore.h"

+#include "gdbcmd.h"

+#include "observer.h"

+#include "elf/external.h"

+#include "elf/internal.h"

+#include "elf/common.h"

+#include "elf-bfd.h"

+#include <sys/stat.h>

+

+#define BUILD_ID_VERBOSE_NONE 0

+#define BUILD_ID_VERBOSE_FILENAMES 1

+#define BUILD_ID_VERBOSE_BINARY_PARSE 2

+static int build_id_verbose = BUILD_ID_VERBOSE_FILENAMES;

+static void

+show_build_id_verbose (struct ui_file *file, int from_tty,

+		       struct cmd_list_element *c, const char *value)

+{

+  fprintf_filtered (file, _("Verbosity level of the build-id locator is %s.\n"),

+		    value);

+}

+/* Locate NT_GNU_BUILD_ID and return its matching debug filename.

+   FIXME: NOTE decoding should be unified with the BFD core notes decoding.  */

+

+static struct bfd_build_id *

+build_id_buf_get (bfd *templ, gdb_byte *buf, bfd_size_type size)

+{

+  bfd_byte *p;

+

+  p = buf;

+  while (p < buf + size)

+    {

+      /* FIXME: bad alignment assumption.  */

+      Elf_External_Note *xnp = (Elf_External_Note *) p;

+      size_t namesz = H_GET_32 (templ, xnp->namesz);

+      size_t descsz = H_GET_32 (templ, xnp->descsz);

+      bfd_byte *descdata = (gdb_byte *) xnp->name + BFD_ALIGN (namesz, 4);

+

+      if (H_GET_32 (templ, xnp->type) == NT_GNU_BUILD_ID

+	  && namesz == sizeof "GNU"

+	  && memcmp (xnp->name, "GNU", sizeof "GNU") == 0)

+	{

+	  size_t size = descsz;

+	  gdb_byte *data = (gdb_byte *) descdata;

+	  struct bfd_build_id *retval;

+

+	  retval = (struct bfd_build_id *) xmalloc (sizeof *retval - 1 + size);

+	  retval->size = size;

+	  memcpy (retval->data, data, size);

+

+	  return retval;

+	}

+      p = descdata + BFD_ALIGN (descsz, 4);

+    }

+  return NULL;

+}

 /* See build-id.h.  */

 const struct bfd_build_id *

-build_id_bfd_get (bfd *abfd)

+build_id_bfd_shdr_get (bfd *abfd)

 {

   if (!bfd_check_format (abfd, bfd_object))

     return NULL;

@@ -42,6 +98,348 @@

   return NULL;

 }

+/* Core files may have missing (corrupt) SHDR but PDHR is correct there.

+   bfd_elf_bfd_from_remote_memory () has too much overhead by

+   allocating/reading all the available ELF PT_LOADs.  */

+

+static struct bfd_build_id *

+build_id_phdr_get (bfd *templ, bfd_vma loadbase, unsigned e_phnum,

+		   Elf_Internal_Phdr *i_phdr)

+{

+  int i;

+  struct bfd_build_id *retval = NULL;

+

+  for (i = 0; i < e_phnum; i++)

+    if (i_phdr[i].p_type == PT_NOTE && i_phdr[i].p_filesz > 0)

+      {

+	Elf_Internal_Phdr *hdr = &i_phdr[i];

+	gdb_byte *buf;

+	int err;

+

+	buf = (gdb_byte *) xmalloc (hdr->p_filesz);

+	err = target_read_memory (loadbase + i_phdr[i].p_vaddr, buf,

+				  hdr->p_filesz);

+	if (err == 0)

+	  retval = build_id_buf_get (templ, buf, hdr->p_filesz);

+	else

+	  retval = NULL;

+	xfree (buf);

+	if (retval != NULL)

+	  break;

+      }

+  return retval;

+}

+

+/* First we validate the file by reading in the ELF header and checking

+   the magic number.  */

+

+static inline bfd_boolean

+elf_file_p (Elf64_External_Ehdr *x_ehdrp64)

+{

+  gdb_assert (sizeof (Elf64_External_Ehdr) >= sizeof (Elf32_External_Ehdr));

+  gdb_assert (offsetof (Elf64_External_Ehdr, e_ident)

+	      == offsetof (Elf32_External_Ehdr, e_ident));

+  gdb_assert (sizeof (((Elf64_External_Ehdr *) 0)->e_ident)

+	      == sizeof (((Elf32_External_Ehdr *) 0)->e_ident));

+

+  return ((x_ehdrp64->e_ident[EI_MAG0] == ELFMAG0)

+	  && (x_ehdrp64->e_ident[EI_MAG1] == ELFMAG1)

+	  && (x_ehdrp64->e_ident[EI_MAG2] == ELFMAG2)

+	  && (x_ehdrp64->e_ident[EI_MAG3] == ELFMAG3));

+}

+

+/* Translate an ELF file header in external format into an ELF file header in

+   internal format.  */

+

+#define H_GET_WORD(bfd, ptr) (is64 ? H_GET_64 (bfd, (ptr))		\

+				   : H_GET_32 (bfd, (ptr)))

+#define H_GET_SIGNED_WORD(bfd, ptr) (is64 ? H_GET_S64 (bfd, (ptr))	\

+					  : H_GET_S32 (bfd, (ptr)))

+

+static void

+elf_swap_ehdr_in (bfd *abfd,

+		  const Elf64_External_Ehdr *src64,

+		  Elf_Internal_Ehdr *dst)

+{

+  int is64 = bfd_get_arch_size (abfd) == 64;

+#define SRC(field) (is64 ? src64->field \

+			 : ((const Elf32_External_Ehdr *) src64)->field)

+

+  int signed_vma = get_elf_backend_data (abfd)->sign_extend_vma;

+  memcpy (dst->e_ident, SRC (e_ident), EI_NIDENT);

+  dst->e_type = H_GET_16 (abfd, SRC (e_type));

+  dst->e_machine = H_GET_16 (abfd, SRC (e_machine));

+  dst->e_version = H_GET_32 (abfd, SRC (e_version));

+  if (signed_vma)

+    dst->e_entry = H_GET_SIGNED_WORD (abfd, SRC (e_entry));

+  else

+    dst->e_entry = H_GET_WORD (abfd, SRC (e_entry));

+  dst->e_phoff = H_GET_WORD (abfd, SRC (e_phoff));

+  dst->e_shoff = H_GET_WORD (abfd, SRC (e_shoff));

+  dst->e_flags = H_GET_32 (abfd, SRC (e_flags));

+  dst->e_ehsize = H_GET_16 (abfd, SRC (e_ehsize));

+  dst->e_phentsize = H_GET_16 (abfd, SRC (e_phentsize));

+  dst->e_phnum = H_GET_16 (abfd, SRC (e_phnum));

+  dst->e_shentsize = H_GET_16 (abfd, SRC (e_shentsize));

+  dst->e_shnum = H_GET_16 (abfd, SRC (e_shnum));

+  dst->e_shstrndx = H_GET_16 (abfd, SRC (e_shstrndx));

+

+#undef SRC

+}

+

+/* Translate an ELF program header table entry in external format into an

+   ELF program header table entry in internal format.  */

+

+static void

+elf_swap_phdr_in (bfd *abfd,

+		  const Elf64_External_Phdr *src64,

+		  Elf_Internal_Phdr *dst)

+{

+  int is64 = bfd_get_arch_size (abfd) == 64;

+#define SRC(field) (is64 ? src64->field					\

+			 : ((const Elf32_External_Phdr *) src64)->field)

+

+  int signed_vma = get_elf_backend_data (abfd)->sign_extend_vma;

+

+  dst->p_type = H_GET_32 (abfd, SRC (p_type));

+  dst->p_flags = H_GET_32 (abfd, SRC (p_flags));

+  dst->p_offset = H_GET_WORD (abfd, SRC (p_offset));

+  if (signed_vma)

+    {

+      dst->p_vaddr = H_GET_SIGNED_WORD (abfd, SRC (p_vaddr));

+      dst->p_paddr = H_GET_SIGNED_WORD (abfd, SRC (p_paddr));

+    }

+  else

+    {

+      dst->p_vaddr = H_GET_WORD (abfd, SRC (p_vaddr));

+      dst->p_paddr = H_GET_WORD (abfd, SRC (p_paddr));

+    }

+  dst->p_filesz = H_GET_WORD (abfd, SRC (p_filesz));

+  dst->p_memsz = H_GET_WORD (abfd, SRC (p_memsz));

+  dst->p_align = H_GET_WORD (abfd, SRC (p_align));

+

+#undef SRC

+}

+

+#undef H_GET_SIGNED_WORD

+#undef H_GET_WORD

+

+static Elf_Internal_Phdr *

+elf_get_phdr (bfd *templ, bfd_vma ehdr_vma, unsigned *e_phnum_pointer,

+              bfd_vma *loadbase_pointer)

+{

+  /* sizeof (Elf64_External_Ehdr) >= sizeof (Elf32_External_Ehdr)  */

+  Elf64_External_Ehdr x_ehdr64;	/* Elf file header, external form */

+  Elf_Internal_Ehdr i_ehdr;	/* Elf file header, internal form */

+  bfd_size_type x_phdrs_size;

+  gdb_byte *x_phdrs_ptr;

+  Elf_Internal_Phdr *i_phdrs;

+  int err;

+  unsigned int i;

+  bfd_vma loadbase;

+  int loadbase_set;

+

+  gdb_assert (templ != NULL);

+  gdb_assert (sizeof (Elf64_External_Ehdr) >= sizeof (Elf32_External_Ehdr));

+

+  /* Read in the ELF header in external format.  */

+  err = target_read_memory (ehdr_vma, (bfd_byte *) &x_ehdr64, sizeof x_ehdr64);

+  if (err)

+    {

+      if (build_id_verbose >= BUILD_ID_VERBOSE_BINARY_PARSE)

+        warning (_("build-id: Error reading ELF header at address 0x%lx"),

+		 (unsigned long) ehdr_vma);

+      return NULL;

+    }

+

+  /* Now check to see if we have a valid ELF file, and one that BFD can

+     make use of.  The magic number must match, the address size ('class')

+     and byte-swapping must match our XVEC entry.  */

+

+  if (! elf_file_p (&x_ehdr64)

+      || x_ehdr64.e_ident[EI_VERSION] != EV_CURRENT

+      || !((bfd_get_arch_size (templ) == 64

+            && x_ehdr64.e_ident[EI_CLASS] == ELFCLASS64)

+           || (bfd_get_arch_size (templ) == 32

+	       && x_ehdr64.e_ident[EI_CLASS] == ELFCLASS32)))

+    {

+      if (build_id_verbose >= BUILD_ID_VERBOSE_BINARY_PARSE)

+        warning (_("build-id: Unrecognized ELF header at address 0x%lx"),

+		 (unsigned long) ehdr_vma);

+      return NULL;

+    }

+

+  /* Check that file's byte order matches xvec's */

+  switch (x_ehdr64.e_ident[EI_DATA])

+    {

+    case ELFDATA2MSB:		/* Big-endian */

+      if (! bfd_header_big_endian (templ))

+	{

+	  if (build_id_verbose >= BUILD_ID_VERBOSE_BINARY_PARSE)

+	    warning (_("build-id: Unrecognized "

+		       "big-endian ELF header at address 0x%lx"),

+		     (unsigned long) ehdr_vma);

+	  return NULL;

+	}

+      break;

+    case ELFDATA2LSB:		/* Little-endian */

+      if (! bfd_header_little_endian (templ))

+	{

+	  if (build_id_verbose >= BUILD_ID_VERBOSE_BINARY_PARSE)

+	    warning (_("build-id: Unrecognized "

+		       "little-endian ELF header at address 0x%lx"),

+		     (unsigned long) ehdr_vma);

+	  return NULL;

+	}

+      break;

+    case ELFDATANONE:		/* No data encoding specified */

+    default:			/* Unknown data encoding specified */

+      if (build_id_verbose >= BUILD_ID_VERBOSE_BINARY_PARSE)

+	warning (_("build-id: Unrecognized "

+		   "ELF header endianity at address 0x%lx"),

+		 (unsigned long) ehdr_vma);

+      return NULL;

+    }

+

+  elf_swap_ehdr_in (templ, &x_ehdr64, &i_ehdr);

+

+  /* The file header tells where to find the program headers.

+     These are what we use to actually choose what to read.  */

+

+  if (i_ehdr.e_phentsize != (bfd_get_arch_size (templ) == 64

+                             ? sizeof (Elf64_External_Phdr)

+			     : sizeof (Elf32_External_Phdr))

+      || i_ehdr.e_phnum == 0)

+    {

+      if (build_id_verbose >= BUILD_ID_VERBOSE_BINARY_PARSE)

+	warning (_("build-id: Invalid ELF program headers from the ELF header "

+		   "at address 0x%lx"), (unsigned long) ehdr_vma);

+      return NULL;

+    }

+

+  x_phdrs_size = (bfd_get_arch_size (templ) == 64 ? sizeof (Elf64_External_Phdr)

+						: sizeof (Elf32_External_Phdr));

+

+  i_phdrs = (Elf_Internal_Phdr *) xmalloc (i_ehdr.e_phnum * (sizeof *i_phdrs + x_phdrs_size));

+  x_phdrs_ptr = (gdb_byte *) &i_phdrs[i_ehdr.e_phnum];

+  err = target_read_memory (ehdr_vma + i_ehdr.e_phoff, (bfd_byte *) x_phdrs_ptr,

+			    i_ehdr.e_phnum * x_phdrs_size);

+  if (err)

+    {

+      free (i_phdrs);

+      if (build_id_verbose >= BUILD_ID_VERBOSE_BINARY_PARSE)

+        warning (_("build-id: Error reading "

+		   "ELF program headers at address 0x%lx"),

+		 (unsigned long) (ehdr_vma + i_ehdr.e_phoff));

+      return NULL;

+    }

+

+  loadbase = ehdr_vma;

+  loadbase_set = 0;

+  for (i = 0; i < i_ehdr.e_phnum; ++i)

+    {

+      elf_swap_phdr_in (templ, (Elf64_External_Phdr *)

+			       (x_phdrs_ptr + i * x_phdrs_size), &i_phdrs[i]);

+      /* IA-64 vDSO may have two mappings for one segment, where one mapping

+	 is executable only, and one is read only.  We must not use the

+	 executable one (PF_R is the first one, PF_X the second one).  */

+      if (i_phdrs[i].p_type == PT_LOAD && (i_phdrs[i].p_flags & PF_R))

+	{

+	  /* Only the first PT_LOAD segment indicates the file bias.

+	     Next segments may have P_VADDR arbitrarily higher.

+	     If the first segment has P_VADDR zero any next segment must not

+	     confuse us, the first one sets LOADBASE certainly enough.  */

+	  if (!loadbase_set && i_phdrs[i].p_offset == 0)

+	    {

+	      loadbase = ehdr_vma - i_phdrs[i].p_vaddr;

+	      loadbase_set = 1;

+	    }

+	}

+    }

+

+  if (build_id_verbose >= BUILD_ID_VERBOSE_BINARY_PARSE)

+    warning (_("build-id: Found ELF header at address 0x%lx, loadbase 0x%lx"),

+	     (unsigned long) ehdr_vma, (unsigned long) loadbase);

+

+  *e_phnum_pointer = i_ehdr.e_phnum;

+  *loadbase_pointer = loadbase;

+  return i_phdrs;

+}

+

+/* BUILD_ID_ADDR_GET gets ADDR located somewhere in the object.

+   Find the first section before ADDR containing an ELF header.

+   We rely on the fact the sections from multiple files do not mix.

+   FIXME: We should check ADDR is contained _inside_ the section with possibly

+   missing content (P_FILESZ < P_MEMSZ).  These omitted sections are currently

+   hidden by _BFD_ELF_MAKE_SECTION_FROM_PHDR.  */

+

+static CORE_ADDR build_id_addr;

+struct build_id_addr_sect

+  {

+    struct build_id_addr_sect *next;

+    asection *sect;

+  };

+static struct build_id_addr_sect *build_id_addr_sect;

+

+static void build_id_addr_candidate (bfd *abfd, asection *sect, void *obj)

+{

+  if (build_id_addr >= bfd_section_vma (abfd, sect))

+    {

+      struct build_id_addr_sect *candidate;

+

+      candidate = (struct build_id_addr_sect *) xmalloc (sizeof *candidate);

+      candidate->next = build_id_addr_sect;

+      build_id_addr_sect = candidate;

+      candidate->sect = sect;

+    }

+}

+

+struct bfd_build_id *

+build_id_addr_get (CORE_ADDR addr)

+{

+  struct build_id_addr_sect *candidate;

+  struct bfd_build_id *retval = NULL;

+  Elf_Internal_Phdr *i_phdr = NULL;

+  bfd_vma loadbase = 0;

+  unsigned e_phnum = 0;

+

+  if (core_bfd == NULL)

+    return NULL;

+

+  build_id_addr = addr;

+  gdb_assert (build_id_addr_sect == NULL);

+  bfd_map_over_sections (core_bfd, build_id_addr_candidate, NULL);

+

+  /* Sections are sorted in the high-to-low VMAs order.

+     Stop the search on the first ELF header we find.

+     Do not continue the search even if it does not contain NT_GNU_BUILD_ID.  */

+

+  for (candidate = build_id_addr_sect; candidate != NULL;

+       candidate = candidate->next)

+    {

+      i_phdr = elf_get_phdr (core_bfd,

+			     bfd_section_vma (core_bfd, candidate->sect),

+			     &e_phnum, &loadbase);

+      if (i_phdr != NULL)

+	break;

+    }

+

+  if (i_phdr != NULL)

+    {

+      retval = build_id_phdr_get (core_bfd, loadbase, e_phnum, i_phdr);

+      xfree (i_phdr);

+    }

+

+  while (build_id_addr_sect != NULL)

+    {

+      candidate = build_id_addr_sect;

+      build_id_addr_sect = candidate->next;

+      xfree (candidate);

+    }

+

+  return retval;

+}

+

 /* See build-id.h.  */

 int

@@ -50,7 +448,7 @@

   const struct bfd_build_id *found;

   int retval = 0;