+ if (! bed->s->slurp_reloc_table (obfd, relplt, dyn_symbol_table, TRUE))
+ return;
+
+ back_to = make_cleanup (free_current_contents, &string_buffer);
+
+ reloc_count = relplt->size / elf_section_data (relplt)->this_hdr.sh_entsize;
+ for (reloc = 0; reloc < reloc_count; reloc++)
+ {
+ const char *name;
+ struct minimal_symbol *msym;
+ CORE_ADDR address;
+ const size_t got_suffix_len = strlen (SYMBOL_GOT_PLT_SUFFIX);
+ size_t name_len;
+
+ name = bfd_asymbol_name (*relplt->relocation[reloc].sym_ptr_ptr);
+ name_len = strlen (name);
+ address = relplt->relocation[reloc].address;
+
+ /* Does the pointer reside in the .got.plt section? */
+ if (!(bfd_get_section_vma (obfd, got_plt) <= address
+ && address < bfd_get_section_vma (obfd, got_plt)
+ + bfd_get_section_size (got_plt)))
+ continue;
+
+ /* We cannot check if NAME is a reference to mst_text_gnu_ifunc as in
+ OBJFILE the symbol is undefined and the objfile having NAME defined
+ may not yet have been loaded. */
+
+ if (string_buffer_size < name_len + got_suffix_len + 1)
+ {
+ string_buffer_size = 2 * (name_len + got_suffix_len);
+ string_buffer = (char *) xrealloc (string_buffer, string_buffer_size);
+ }
+ memcpy (string_buffer, name, name_len);
+ memcpy (&string_buffer[name_len], SYMBOL_GOT_PLT_SUFFIX,
+ got_suffix_len + 1);
+
+ msym = record_minimal_symbol (string_buffer, name_len + got_suffix_len,
+ 1, address, mst_slot_got_plt, got_plt,
+ objfile);
+ if (msym)
+ SET_MSYMBOL_SIZE (msym, ptr_size);
+ }
+
+ do_cleanups (back_to);
+}
+
+/* The data pointer is htab_t for gnu_ifunc_record_cache_unchecked. */
+
+static const struct objfile_data *elf_objfile_gnu_ifunc_cache_data;
+
+/* Map function names to CORE_ADDR in elf_objfile_gnu_ifunc_cache_data. */
+
+struct elf_gnu_ifunc_cache
+{
+ /* This is always a function entry address, not a function descriptor. */
+ CORE_ADDR addr;
+
+ char name[1];
+};
+
+/* htab_hash for elf_objfile_gnu_ifunc_cache_data. */
+
+static hashval_t
+elf_gnu_ifunc_cache_hash (const void *a_voidp)
+{
+ const struct elf_gnu_ifunc_cache *a
+ = (const struct elf_gnu_ifunc_cache *) a_voidp;
+
+ return htab_hash_string (a->name);
+}
+
+/* htab_eq for elf_objfile_gnu_ifunc_cache_data. */
+
+static int
+elf_gnu_ifunc_cache_eq (const void *a_voidp, const void *b_voidp)
+{
+ const struct elf_gnu_ifunc_cache *a
+ = (const struct elf_gnu_ifunc_cache *) a_voidp;
+ const struct elf_gnu_ifunc_cache *b
+ = (const struct elf_gnu_ifunc_cache *) b_voidp;
+
+ return strcmp (a->name, b->name) == 0;
+}
+
+/* Record the target function address of a STT_GNU_IFUNC function NAME is the
+ function entry address ADDR. Return 1 if NAME and ADDR are considered as
+ valid and therefore they were successfully recorded, return 0 otherwise.
+
+ Function does not expect a duplicate entry. Use
+ elf_gnu_ifunc_resolve_by_cache first to check if the entry for NAME already
+ exists. */
+
+static int
+elf_gnu_ifunc_record_cache (const char *name, CORE_ADDR addr)
+{
+ struct bound_minimal_symbol msym;
+ asection *sect;
+ struct objfile *objfile;
+ htab_t htab;
+ struct elf_gnu_ifunc_cache entry_local, *entry_p;
+ void **slot;
+
+ msym = lookup_minimal_symbol_by_pc (addr);
+ if (msym.minsym == NULL)
+ return 0;
+ if (BMSYMBOL_VALUE_ADDRESS (msym) != addr)
+ return 0;
+ /* minimal symbols have always SYMBOL_OBJ_SECTION non-NULL. */
+ sect = MSYMBOL_OBJ_SECTION (msym.objfile, msym.minsym)->the_bfd_section;
+ objfile = msym.objfile;
+
+ /* If .plt jumps back to .plt the symbol is still deferred for later
+ resolution and it has no use for GDB. Besides ".text" this symbol can
+ reside also in ".opd" for ppc64 function descriptor. */
+ if (strcmp (bfd_get_section_name (objfile->obfd, sect), ".plt") == 0)
+ return 0;
+
+ htab = (htab_t) objfile_data (objfile, elf_objfile_gnu_ifunc_cache_data);
+ if (htab == NULL)
+ {
+ htab = htab_create_alloc_ex (1, elf_gnu_ifunc_cache_hash,
+ elf_gnu_ifunc_cache_eq,
+ NULL, &objfile->objfile_obstack,
+ hashtab_obstack_allocate,
+ dummy_obstack_deallocate);
+ set_objfile_data (objfile, elf_objfile_gnu_ifunc_cache_data, htab);
+ }
+
+ entry_local.addr = addr;
+ obstack_grow (&objfile->objfile_obstack, &entry_local,
+ offsetof (struct elf_gnu_ifunc_cache, name));
+ obstack_grow_str0 (&objfile->objfile_obstack, name);
+ entry_p
+ = (struct elf_gnu_ifunc_cache *) obstack_finish (&objfile->objfile_obstack);
+
+ slot = htab_find_slot (htab, entry_p, INSERT);
+ if (*slot != NULL)
+ {
+ struct elf_gnu_ifunc_cache *entry_found_p
+ = (struct elf_gnu_ifunc_cache *) *slot;
+ struct gdbarch *gdbarch = get_objfile_arch (objfile);
+
+ if (entry_found_p->addr != addr)
+ {
+ /* This case indicates buggy inferior program, the resolved address
+ should never change. */
+
+ warning (_("gnu-indirect-function \"%s\" has changed its resolved "
+ "function_address from %s to %s"),
+ name, paddress (gdbarch, entry_found_p->addr),
+ paddress (gdbarch, addr));
+ }
+
+ /* New ENTRY_P is here leaked/duplicate in the OBJFILE obstack. */
+ }
+ *slot = entry_p;
+
+ return 1;
+}
+
+/* Try to find the target resolved function entry address of a STT_GNU_IFUNC
+ function NAME. If the address is found it is stored to *ADDR_P (if ADDR_P
+ is not NULL) and the function returns 1. It returns 0 otherwise.
+
+ Only the elf_objfile_gnu_ifunc_cache_data hash table is searched by this
+ function. */
+
+static int
+elf_gnu_ifunc_resolve_by_cache (const char *name, CORE_ADDR *addr_p)
+{
+ struct objfile *objfile;
+
+ ALL_PSPACE_OBJFILES (current_program_space, objfile)
+ {
+ htab_t htab;
+ struct elf_gnu_ifunc_cache *entry_p;
+ void **slot;
+
+ htab = (htab_t) objfile_data (objfile, elf_objfile_gnu_ifunc_cache_data);
+ if (htab == NULL)
+ continue;
+
+ entry_p = ((struct elf_gnu_ifunc_cache *)
+ alloca (sizeof (*entry_p) + strlen (name)));
+ strcpy (entry_p->name, name);
+
+ slot = htab_find_slot (htab, entry_p, NO_INSERT);
+ if (slot == NULL)
+ continue;
+ entry_p = (struct elf_gnu_ifunc_cache *) *slot;
+ gdb_assert (entry_p != NULL);
+
+ if (addr_p)
+ *addr_p = entry_p->addr;
+ return 1;
+ }
+
+ return 0;
+}
+
+/* Try to find the target resolved function entry address of a STT_GNU_IFUNC
+ function NAME. If the address is found it is stored to *ADDR_P (if ADDR_P
+ is not NULL) and the function returns 1. It returns 0 otherwise.
+
+ Only the SYMBOL_GOT_PLT_SUFFIX locations are searched by this function.
+ elf_gnu_ifunc_resolve_by_cache must have been already called for NAME to
+ prevent cache entries duplicates. */
+
+static int
+elf_gnu_ifunc_resolve_by_got (const char *name, CORE_ADDR *addr_p)
+{
+ char *name_got_plt;
+ struct objfile *objfile;
+ const size_t got_suffix_len = strlen (SYMBOL_GOT_PLT_SUFFIX);
+
+ name_got_plt = (char *) alloca (strlen (name) + got_suffix_len + 1);
+ sprintf (name_got_plt, "%s" SYMBOL_GOT_PLT_SUFFIX, name);
+
+ ALL_PSPACE_OBJFILES (current_program_space, objfile)
+ {
+ bfd *obfd = objfile->obfd;
+ struct gdbarch *gdbarch = get_objfile_arch (objfile);
+ struct type *ptr_type = builtin_type (gdbarch)->builtin_data_ptr;
+ size_t ptr_size = TYPE_LENGTH (ptr_type);
+ CORE_ADDR pointer_address, addr;
+ asection *plt;
+ gdb_byte *buf = (gdb_byte *) alloca (ptr_size);
+ struct bound_minimal_symbol msym;
+
+ msym = lookup_minimal_symbol (name_got_plt, NULL, objfile);
+ if (msym.minsym == NULL)
+ continue;
+ if (MSYMBOL_TYPE (msym.minsym) != mst_slot_got_plt)
+ continue;
+ pointer_address = BMSYMBOL_VALUE_ADDRESS (msym);
+
+ plt = bfd_get_section_by_name (obfd, ".plt");
+ if (plt == NULL)
+ continue;
+
+ if (MSYMBOL_SIZE (msym.minsym) != ptr_size)
+ continue;
+ if (target_read_memory (pointer_address, buf, ptr_size) != 0)
+ continue;
+ addr = extract_typed_address (buf, ptr_type);
+ addr = gdbarch_convert_from_func_ptr_addr (gdbarch, addr,
+ ¤t_target);
+ addr = gdbarch_addr_bits_remove (gdbarch, addr);
+
+ if (addr_p)
+ *addr_p = addr;
+ if (elf_gnu_ifunc_record_cache (name, addr))
+ return 1;
+ }
+
+ return 0;
+}
+
+/* Try to find the target resolved function entry address of a STT_GNU_IFUNC
+ function NAME. If the address is found it is stored to *ADDR_P (if ADDR_P
+ is not NULL) and the function returns 1. It returns 0 otherwise.
+
+ Both the elf_objfile_gnu_ifunc_cache_data hash table and
+ SYMBOL_GOT_PLT_SUFFIX locations are searched by this function. */
+
+static int
+elf_gnu_ifunc_resolve_name (const char *name, CORE_ADDR *addr_p)
+{
+ if (elf_gnu_ifunc_resolve_by_cache (name, addr_p))
+ return 1;
+
+ if (elf_gnu_ifunc_resolve_by_got (name, addr_p))
+ return 1;
+
+ return 0;
+}
+
+/* Call STT_GNU_IFUNC - a function returning addresss of a real function to
+ call. PC is theSTT_GNU_IFUNC resolving function entry. The value returned
+ is the entry point of the resolved STT_GNU_IFUNC target function to call.
+ */
+
+static CORE_ADDR
+elf_gnu_ifunc_resolve_addr (struct gdbarch *gdbarch, CORE_ADDR pc)
+{
+ const char *name_at_pc;
+ CORE_ADDR start_at_pc, address;
+ struct type *func_func_type = builtin_type (gdbarch)->builtin_func_func;
+ struct value *function, *address_val;
+
+ /* Try first any non-intrusive methods without an inferior call. */
+
+ if (find_pc_partial_function (pc, &name_at_pc, &start_at_pc, NULL)
+ && start_at_pc == pc)
+ {
+ if (elf_gnu_ifunc_resolve_name (name_at_pc, &address))
+ return address;
+ }
+ else
+ name_at_pc = NULL;
+
+ function = allocate_value (func_func_type);
+ set_value_address (function, pc);
+
+ /* STT_GNU_IFUNC resolver functions have no parameters. FUNCTION is the
+ function entry address. ADDRESS may be a function descriptor. */
+
+ address_val = call_function_by_hand (function, 0, NULL);
+ address = value_as_address (address_val);
+ address = gdbarch_convert_from_func_ptr_addr (gdbarch, address,
+ ¤t_target);
+ address = gdbarch_addr_bits_remove (gdbarch, address);
+
+ if (name_at_pc)
+ elf_gnu_ifunc_record_cache (name_at_pc, address);
+
+ return address;
+}
+
+/* Handle inferior hit of bp_gnu_ifunc_resolver, see its definition. */