gcc/libgcc/unwind-dw2-fde-dip.c

/* Copyright (C) 2001-2017 Free Software Foundation, Inc.
   Contributed by Jakub Jelinek <jakub@redhat.com>.

   This file is part of GCC.

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

   GCC 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 General Public License for more details.

   Under Section 7 of GPL version 3, you are granted additional
   permissions described in the GCC Runtime Library Exception, version
   3.1, as published by the Free Software Foundation.

   You should have received a copy of the GNU General Public License and
   a copy of the GCC Runtime Library Exception along with this program;
   see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
   <http://www.gnu.org/licenses/>.  */

/* Locate the FDE entry for a given address, using PT_GNU_EH_FRAME ELF
   segment and dl_iterate_phdr to avoid register/deregister calls at
   DSO load/unload.  */

#ifndef _GNU_SOURCE
#define _GNU_SOURCE 1
#endif

#include "tconfig.h"
#include "tsystem.h"
#if !defined(inhibit_libc) && !defined(__OpenBSD__) && !defined(__QNX__)
#include <elf.h>		/* Get DT_CONFIG.  */
#elif defined(__QNX__)
#include <sys/elf.h>
#endif
#include "coretypes.h"
#include "tm.h"
#include "libgcc_tm.h"
#include "dwarf2.h"
#include "unwind.h"
#define NO_BASE_OF_ENCODED_VALUE
#include "unwind-pe.h"
#include "unwind-dw2-fde.h"
#include "unwind-compat.h"
#include "gthr.h"

#if !defined(inhibit_libc) && defined(HAVE_LD_EH_FRAME_HDR) \
    && (__GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ > 2) \
	|| (__GLIBC__ == 2 && __GLIBC_MINOR__ == 2 && defined(DT_CONFIG)))
# define USE_PT_GNU_EH_FRAME
#endif

#if !defined(inhibit_libc) && defined(HAVE_LD_EH_FRAME_HDR) \
    && defined(__BIONIC__)
# define USE_PT_GNU_EH_FRAME
#endif

#if !defined(inhibit_libc) && defined(HAVE_LD_EH_FRAME_HDR) \
    && defined(TARGET_DL_ITERATE_PHDR) \
    && defined(__linux__)
# define USE_PT_GNU_EH_FRAME
#endif

#if !defined(inhibit_libc) && defined(HAVE_LD_EH_FRAME_HDR) \
    && defined(TARGET_DL_ITERATE_PHDR) \
    && (defined(__DragonFly__) || defined(__FreeBSD__))
# define ElfW __ElfN
# define USE_PT_GNU_EH_FRAME
#endif

#if !defined(inhibit_libc) && defined(HAVE_LD_EH_FRAME_HDR) \
    && (defined(__OpenBSD__) || defined(__NetBSD__))
# define ElfW(type) Elf_##type
# define USE_PT_GNU_EH_FRAME
#endif

#if !defined(inhibit_libc) && defined(HAVE_LD_EH_FRAME_HDR) \
    && defined(TARGET_DL_ITERATE_PHDR) \
    && defined(__sun__) && defined(__svr4__)
# define USE_PT_GNU_EH_FRAME
#endif

#if defined(USE_PT_GNU_EH_FRAME)

#include <link.h>

#ifndef __RELOC_POINTER
# if ! (defined (__e2k__) && defined (__ptr128__))
#  define __RELOC_POINTER(ptr, base) ((ptr) + (base))
# else /* defined (__e2k__) && defined (__ptr128__)  */
// #  define __RELOC_POINTER(idx, ap) &ap[idx]
# endif /* defined (__e2k__) && defined (__ptr128__)  */
#endif

static const fde * _Unwind_Find_registered_FDE (
#if ! (defined (__e2k__) && defined ( __ptr128__))
						void *pc,
#else /* defined (__e2k__) && defined (__ptr128__)  */
						_Unwind_Ptr pc,
#endif /* defined (__e2k__) && defined (__ptr128__)  */
						struct dwarf_eh_bases *bases);

#define _Unwind_Find_FDE _Unwind_Find_registered_FDE
#include "unwind-dw2-fde.c"
#undef _Unwind_Find_FDE

#ifndef PT_GNU_EH_FRAME
#define PT_GNU_EH_FRAME (PT_LOOS + 0x474e550)
#endif

struct unw_eh_callback_data
{
  _Unwind_Ptr pc;
#if ! (defined (__e2k__) && defined (__ptr128__))
  void *tbase;
  void *dbase;
#else /* defined (__e2k__) && defined (__ptr128__)  */
  _Unwind_Ptr tbase;
  _Unwind_Ptr dbase;
#endif /* defined (__e2k__) && defined (__ptr128__)  */
  void *func;
  const fde *ret;
  int check_cache;
};

struct unw_eh_frame_hdr
{
  unsigned char version;
  unsigned char eh_frame_ptr_enc;
  unsigned char fde_count_enc;
  unsigned char table_enc;
};

#define FRAME_HDR_CACHE_SIZE 8

static struct frame_hdr_cache_element
{
  _Unwind_Ptr pc_low;
  _Unwind_Ptr pc_high;
#if defined __FRV_FDPIC__ || defined __BFIN_FDPIC__
  struct elf32_fdpic_loadaddr load_base;
#else
#if ! (defined (__e2k__) && defined (__ptr128__))
  _Unwind_Ptr load_base;
#else /* defined (__e2k__) && defined (__ptr128__)  */
  _Unwind_Ptr text_base;
  const char *gd;
#endif /* defined (__e2k__) && defined (__ptr128__)  */
#endif
#if ! (defined (__e2k__) && defined (__ptr128__))
  const ElfW(Phdr) *p_eh_frame_hdr;
#else /* defined (__e2k__) && defined (__ptr128__)  */
  const struct unw_eh_frame_hdr *eh_frame_hdr_contents;
#endif /* defined (__e2k__) && defined (__ptr128__)  */
  const ElfW(Phdr) *p_dynamic;
  struct frame_hdr_cache_element *link;
} frame_hdr_cache[FRAME_HDR_CACHE_SIZE];

static struct frame_hdr_cache_element *frame_hdr_cache_head;

/* Like base_of_encoded_value, but take the base from a struct
   unw_eh_callback_data instead of an _Unwind_Context.  */

static _Unwind_Ptr
base_from_cb_data (unsigned char encoding, struct unw_eh_callback_data *data)
{
  if (encoding == DW_EH_PE_omit)
    return 0;

  switch (encoding & 0x70)
    {
    case DW_EH_PE_absptr:
    case DW_EH_PE_pcrel:
    case DW_EH_PE_aligned:
      return 0;

    case DW_EH_PE_textrel:
      return (_Unwind_Ptr) data->tbase;
    case DW_EH_PE_datarel:
      return (_Unwind_Ptr) data->dbase;
    default:
      gcc_unreachable ();
    }
}

#if defined __e2k__ && defined __ptr128__

static unsigned int
get_range_num (const char *gd,
	       unsigned int phnum,
	       const ElfW(Phdr) *phdrs)
{
  unsigned int i = 0;
  const ElfW(Phdr) *phdr;

  for (phdr = &phdrs[0]; phdr < &phdrs[phnum]; phdr++)
    {
      if (phdr->p_type == PT_LOAD)
	{
	  ++i;
	  /* Use the same criterium as in glibc to distinguish between legacy
	     and packed PM ELFs.  */
	  if (phdr->p_offset == 0 && !(phdr->p_flags & PF_X))
	    {
	      uintptr_t phdr_offset = (uintptr_t) phdrs - (uintptr_t) gd;
	      if (phdr_offset >= phdr->p_vaddr)
		/* Good chances are that this is a legacy PM ELF.  */
		return 0;
	    }
	}
    }

  return i;
}

struct range
{
  uintptr_t min;
  uintptr_t max;
  uintptr_t align;
  long delta;
  int in_cud;
};

static void
fill_ranges (unsigned int phnum,
	     const ElfW(Phdr) *phdrs,
	     unsigned int range_num,
	     struct range *ranges)
{
  unsigned int i;
  const ElfW(Phdr) *phdr;

  for (phdr = phdrs, i = 0;
       (phdr < &phdrs[phnum]
	/* Just to be on the safe side.  */
	&& i < range_num);
       ++phdr)
    {
      if (phdr->p_type == PT_LOAD)
	{
	  ranges[i].min = phdr->p_vaddr;
	  ranges[i].max = phdr->p_vaddr + phdr->p_memsz;
	  ranges[i].align = phdr->p_align;
	  ranges[i].in_cud = (phdr->p_flags & PF_X) ? 1 : 0;
	  i++;
	}
    }

  /* Stupidly sort the obtained ranges. I believe that qsort () may be
     unavailable in context of ld.so  */
  for (i = 0; i < range_num - 1; i++)
    {
      unsigned int j;
      for (j = i + 1; j < range_num; j++)
	{
	  if (ranges[j].min < ranges[i].min)
	    {
	      struct range tmp = ranges[i];
	      ranges[i] = ranges[j];
	      ranges[j] = tmp;
	    }
	}
    }

  uintptr_t max_page_aligned = 0;
  uintptr_t cud_size = 0, gd_size = 0;

  for (i = 0; i < range_num; i++)
    {
      uintptr_t min_page_aligned = ranges[i].min & ~(ranges[i].align - 1);
      uintptr_t b, r, pos;

      /* MAX_PAGE_ALIGNED corresponds to the preceding segment in this
	 comparison, of course.  */
      if (min_page_aligned < max_page_aligned)
	{
	  /* The Kernel should have failed to load this executable
	     in such a case.  */
	}

      max_page_aligned = (ranges[i].max + 0xfffULL) & ~(0xfffULL);

      if (ranges[i].in_cud)
	pos = cud_size;
      else
	pos = gd_size;

      pos = (pos + 0xfffULL) & ~0xfffULL;
      r = ranges[i].min & (ranges[i].align - 1);
      b = (pos + ranges[i].align - (r + 1)) / ranges[i].align;
      pos = b * ranges[i].align + r;

      ranges[i].delta = pos - ranges[i].min;
      pos += ranges[i].max - ranges[i].min;

      if (ranges[i].in_cud)
	cud_size = pos;
      else
	gd_size = pos;
    }
}

long
get_offset_delta (const char *gd,
		  unsigned int phnum,
		  const ElfW(Phdr) *phdrs,
		  uintptr_t off)
{
  unsigned int range_num = get_range_num (gd, phnum, phdrs);
  struct range ranges[range_num];
  fill_ranges (phnum, phdrs, range_num, ranges);
  unsigned int j;

  for (j = 0; j < range_num; j++)
    {
      if (off >= ranges[j].min && off < ranges[j].max)
	  return ranges[j].delta;
    }

  return 0;
}

#endif /* defined __e2k__ && defined __ptr128__  */

static int
_Unwind_IteratePhdrCallback (struct dl_phdr_info *info, size_t size, void *ptr)
{
  struct unw_eh_callback_data *data = (struct unw_eh_callback_data *) ptr;
  const ElfW(Phdr) *phdr;
# if ! (defined (__e2k__) && defined (__ptr128__))
  const ElfW(Phdr) *p_eh_frame_hdr;
#endif /* ! (defined (__e2k__) && defined (__ptr128__))  */
  const ElfW(Phdr) *p_dynamic;
  long n, match;
#if defined __FRV_FDPIC__ || defined __BFIN_FDPIC__
  struct elf32_fdpic_loadaddr load_base;
#else

# if ! (defined (__e2k__) && defined (__ptr128__))
  _Unwind_Ptr load_base;
# else /* defined (__e2k__) && defined (__ptr128__)  */
  _Unwind_Ptr text_base;
  const char *gd;
# endif /* defined (__e2k__) && defined (__ptr128__)  */
#endif
  const unsigned char *p;
  const struct unw_eh_frame_hdr *hdr;

#if ! (defined (__e2k__) && defined (__ptr128__))
  _Unwind_Ptr eh_frame;
#else /* defined (__e2k__) && defined (__ptr128__)  */
  _Unwind_Ptr eh_frame_off;
  void *eh_frame;
#endif /* defined (__e2k__) && defined (__ptr128__)  */
  struct object ob;
  _Unwind_Ptr pc_low = 0, pc_high = 0;

  struct ext_dl_phdr_info
    {
      ElfW(Addr) dlpi_addr;

#if defined (__e2k__) && defined (__ptr128__)
      const char *dlpi_gd;
#endif /* defined (__e2k__) && defined (__ptr128__)  */

      const char *dlpi_name;
      const ElfW(Phdr) *dlpi_phdr;
      ElfW(Half) dlpi_phnum;
      unsigned long long int dlpi_adds;
      unsigned long long int dlpi_subs;
    };

  match = 0;
  phdr = info->dlpi_phdr;
#if ! (defined (__e2k__) && defined (__ptr128__))
  load_base = info->dlpi_addr;
  p_eh_frame_hdr = NULL;
#else /* defined (__e2k__) && defined (__ptr128__)  */
  text_base = info->dlpi_addr;
  gd = info->dlpi_gd;
  hdr = NULL;
#endif /* defined (__e2k__) && defined (__ptr128__)  */
  p_dynamic = NULL;

  struct frame_hdr_cache_element *prev_cache_entry = NULL,
    *last_cache_entry = NULL;

  if (data->check_cache && size >= sizeof (struct ext_dl_phdr_info))
    {
      static unsigned long long adds = -1ULL, subs;
      struct ext_dl_phdr_info *einfo = (struct ext_dl_phdr_info *) info;

      /* We use a least recently used cache replacement policy.  Also,
	 the most recently used cache entries are placed at the head
	 of the search chain.  */

      if (einfo->dlpi_adds == adds && einfo->dlpi_subs == subs)
	{
	  /* Find data->pc in shared library cache.
	     Set load_base, p_eh_frame_hdr and p_dynamic
	     plus match from the cache and goto
	     "Read .eh_frame_hdr header." below.  */

	  struct frame_hdr_cache_element *cache_entry;

	  for (cache_entry = frame_hdr_cache_head;
	       cache_entry;
	       cache_entry = cache_entry->link)
	    {
	      if (data->pc >= cache_entry->pc_low
		  && data->pc < cache_entry->pc_high)
		{
#if ! (defined (__e2k__) && defined (__ptr128__))
		  load_base = cache_entry->load_base;
		  p_eh_frame_hdr = cache_entry->p_eh_frame_hdr;
#else /* defined (__e2k__) && defined (__ptr128__)  */
		  text_base = cache_entry->text_base;
		  gd = cache_entry->gd;
		  hdr = cache_entry->eh_frame_hdr_contents;
#endif /* defined (__e2k__) && defined (__ptr128__)  */
		  p_dynamic = cache_entry->p_dynamic;

		  /* And move the entry we're using to the head.  */
		  if (cache_entry != frame_hdr_cache_head)
		    {
		      prev_cache_entry->link = cache_entry->link;
		      cache_entry->link = frame_hdr_cache_head;
		      frame_hdr_cache_head = cache_entry;
		    }
		  goto found;
		}

	      last_cache_entry = cache_entry;
	      /* Exit early if we found an unused entry.  */
	      if ((cache_entry->pc_low | cache_entry->pc_high) == 0)
		break;
	      if (cache_entry->link != NULL)
		prev_cache_entry = cache_entry;
	    }
	}
      else
	{
	  adds = einfo->dlpi_adds;
	  subs = einfo->dlpi_subs;
	  /* Initialize the cache.  Create a chain of cache entries,
	     with the final one terminated by a NULL link.  */
	  int i;
	  for (i = 0; i < FRAME_HDR_CACHE_SIZE; i++)
	    {
	      frame_hdr_cache[i].pc_low = 0;
	      frame_hdr_cache[i].pc_high = 0;
	      frame_hdr_cache[i].link = &frame_hdr_cache[i+1];
	    }
	  frame_hdr_cache[i-1].link = NULL;
	  frame_hdr_cache_head = &frame_hdr_cache[0];
	  data->check_cache = 0;
	}
    }

  /* Make sure struct dl_phdr_info is at least as big as we need.  */
  if (size < offsetof (struct dl_phdr_info, dlpi_phnum)
	     + sizeof (info->dlpi_phnum))
    return -1;

  /* See if PC falls into one of the loaded segments.  Find the eh_frame
     segment at the same time.  */
  for (n = info->dlpi_phnum; --n >= 0; phdr++)
    {
      if (phdr->p_type == PT_LOAD
#if defined (__e2k__) && defined (__ptr128__)
	  /* Ensure that the segment under consideration belongs to the text
	     segment in PM. Otherwise, the calculation of VADDR below won't
	     make any sense.  */
	  && (phdr->p_flags & PF_X)
#endif /* defined (__e2k__) && defined (__ptr128__)  */
	  )
	{
#if ! (defined (__e2k__) && defined (__ptr128__))
	  _Unwind_Ptr vaddr = (_Unwind_Ptr)
	    __RELOC_POINTER (phdr->p_vaddr, load_base);
#else /* defined (__e2k__) && defined (__ptr128__)  */
	  _Unwind_Ptr vaddr = (text_base + phdr->p_vaddr
			       + get_offset_delta (info->dlpi_gd,
						   info->dlpi_phnum,
						   info->dlpi_phdr,
						   phdr->p_vaddr));
#endif /* defined (__e2k__) && defined (__ptr128__)  */
	  if (data->pc >= vaddr && data->pc < vaddr + phdr->p_memsz)
	    {
	      match = 1;
	      pc_low = vaddr;
	      pc_high =  vaddr + phdr->p_memsz;
	    }
	}
      else if (phdr->p_type == PT_GNU_EH_FRAME)
	{
#if ! (defined (__e2k__) && defined (__ptr128__))
	  p_eh_frame_hdr = phdr;
#else /* defined (__e2k__) && defined (__ptr128__)  */
	  /* One finds himself here if the matching hash entry does not exist
	     yet. So, gd should still contain info->dlpi_gd set in the very
	     beginning of this function.  */
	  gcc_assert (gd == info->dlpi_gd);
	  hdr = ((const struct unw_eh_frame_hdr *)
		 &gd[phdr->p_vaddr
		     + get_offset_delta (gd,
					 info->dlpi_phnum,
					 info->dlpi_phdr,
					 phdr->p_vaddr)]);
#endif /* defined (__e2k__) && defined (__ptr128__)  */
	}
#ifdef PT_SUNW_UNWIND
      /* Sun ld emits PT_SUNW_UNWIND .eh_frame_hdr sections instead of
	 PT_SUNW_EH_FRAME/PT_GNU_EH_FRAME, so accept them as well.  */
      else if (phdr->p_type == PT_SUNW_UNWIND)
	p_eh_frame_hdr = phdr;
#endif
      else if (phdr->p_type == PT_DYNAMIC)
	p_dynamic = phdr;
    }

  if (!match)
    return 0;

  if (size >= sizeof (struct ext_dl_phdr_info))
    {
      /* Move the cache entry we're about to overwrite to the head of
	 the list.  If either last_cache_entry or prev_cache_entry are
	 NULL, that cache entry is already at the head.  */
      if (last_cache_entry != NULL && prev_cache_entry != NULL)
	{
	  prev_cache_entry->link = last_cache_entry->link;
	  last_cache_entry->link = frame_hdr_cache_head;
	  frame_hdr_cache_head = last_cache_entry;
	}

#if ! (defined (__e2k__) && defined (__ptr128__))
      frame_hdr_cache_head->load_base = load_base;
      frame_hdr_cache_head->p_eh_frame_hdr = p_eh_frame_hdr;
#else /* defined (__e2k__) && defined (__ptr128__)  */
      frame_hdr_cache_head->text_base = text_base;
      frame_hdr_cache_head->gd = gd;
      frame_hdr_cache_head->eh_frame_hdr_contents = hdr;
#endif /* defined (__e2k__) && defined (__ptr128__)  */

      frame_hdr_cache_head->p_dynamic = p_dynamic;
      frame_hdr_cache_head->pc_low = pc_low;
      frame_hdr_cache_head->pc_high = pc_high;
    }

 found:

  if (
#if ! (defined (__e2k__) && defined (__ptr128__))
      !p_eh_frame_hdr
#else /* defined (__e2k__) && defined (__ptr128__)  */
      !hdr
#endif /* defined (__e2k__) && defined (__ptr128__)  */
      )
    return 0;

  /* Read .eh_frame_hdr header.  */
#if ! (defined (__e2k__) && defined (__ptr128__))
  hdr = (const struct unw_eh_frame_hdr *)
    __RELOC_POINTER (p_eh_frame_hdr->p_vaddr, load_base);
#else /* defined (__e2k__) && defined (__ptr128__)  */
  /* In PM it has already been read or fetched from the cache above.  */
#endif /* defined (__e2k__) && defined (__ptr128__)  */
  if (hdr->version != 1)
    return 1;

#ifdef CRT_GET_RFIB_DATA
# ifdef __i386__
  data->dbase = NULL;
  if (p_dynamic)
    {
      /* For dynamically linked executables and shared libraries,
	 DT_PLTGOT is the gp value for that object.  */
      ElfW(Dyn) *dyn = (ElfW(Dyn) *)
	__RELOC_POINTER (p_dynamic->p_vaddr, load_base);
      for (; dyn->d_tag != DT_NULL ; dyn++)
	if (dyn->d_tag == DT_PLTGOT)
	  {
	    data->dbase = (void *) dyn->d_un.d_ptr;
#  if defined __linux__
	    /* On IA-32 Linux, _DYNAMIC is writable and GLIBC has
	       relocated it.  */
#  elif defined __sun__ && defined __svr4__
	    /* On Solaris 2/x86, we need to do this ourselves.  */
	    data->dbase += load_base;
#  endif
	    break;
	  }
    }
# elif (defined __FRV_FDPIC__ || defined __BFIN_FDPIC__) && defined __linux__
  data->dbase = load_base.got_value;
# else
#  error What is DW_EH_PE_datarel base on this platform?
# endif
#endif

  p = read_encoded_value_with_base (hdr->eh_frame_ptr_enc,
				    base_from_cb_data (hdr->eh_frame_ptr_enc,
						       data),
				    (const unsigned char *) (hdr + 1),
#if ! (defined (__e2k__) && defined (__ptr128__))
				    &eh_frame
#else /* defined (__e2k__) && defined (__ptr128__)  */
				    &eh_frame_off
#endif /* defined (__e2k__) && defined (__ptr128__)  */
				    );

#if defined (__e2k__) && defined (__ptr128__)
  eh_frame = (void *) &info->dlpi_gd[eh_frame_off - (_Unwind_Ptr) info->dlpi_gd];
#endif /* defined (__e2k__) && defined (__ptr128__)  */



  /* We require here specific table encoding to speed things up.
     Also, DW_EH_PE_datarel here means using PT_GNU_EH_FRAME start
     as base, not the processor specific DW_EH_PE_datarel.  */
  if (hdr->fde_count_enc != DW_EH_PE_omit
      && hdr->table_enc == (DW_EH_PE_datarel | DW_EH_PE_sdata4))
    {
      _Unwind_Ptr fde_count;

      p = read_encoded_value_with_base (hdr->fde_count_enc,
					base_from_cb_data (hdr->fde_count_enc,
							   data),
					p, &fde_count);
      /* Shouldn't happen.  */
      if (fde_count == 0)
	return 1;
      if ((((_Unwind_Ptr) p) & 3) == 0)
	{
	  struct fde_table {
	    signed initial_loc __attribute__ ((mode (SI)));
	    signed fde __attribute__ ((mode (SI)));
	  };
	  const struct fde_table *table = (const struct fde_table *) p;
	  size_t lo, hi, mid;
	  _Unwind_Ptr data_base = (_Unwind_Ptr) hdr;
	  fde *f;
	  unsigned int f_enc, f_enc_size;
	  _Unwind_Ptr range;

#if defined (__e2k__) && defined (__ptr128__)
	  /* This rather strangely named variable is used by them both to
	     evaluate runtime PCs based on the values encoded in the `table[]'
	     and the pointer to the resulting FDE. In PM it's used only for the
	     former goal, whereas FDE is obtained via the offset from the start
	     of `.eh_frame_hdr' pointed to by `hdr' without this idiotic
	     intermediate cast to `_Unwind_Ptr'.  */
	  data_base += text_base - (_Unwind_Ptr) gd;
#endif /* defined (__e2k__) && defined (__ptr128__)  */

	  mid = fde_count - 1;
	  if (data->pc < table[0].initial_loc + data_base)
	    return 1;
	  else if (data->pc < table[mid].initial_loc + data_base)
	    {
	      lo = 0;
	      hi = mid;

	      while (lo < hi)
		{
		  mid = (lo + hi) / 2;
		  if (data->pc < table[mid].initial_loc + data_base)
		    hi = mid;
		  else if (data->pc >= table[mid + 1].initial_loc + data_base)
		    lo = mid + 1;
		  else
		    break;
		}

	      gcc_assert (lo < hi);
	    }
#if ! (defined (__e2k__) && defined (__ptr128__))
	  f = (fde *) (table[mid].fde + data_base);
#else /* defined (__e2k__) && defined (__ptr128__)  */
	  f = (fde *) &((char *) hdr)[table[mid].fde];
#endif /* defined (__e2k__) && defined (__ptr128__)  */
	  f_enc = get_fde_encoding (f);
	  f_enc_size = size_of_encoded_value (f_enc);
	  read_encoded_value_with_base (f_enc & 0x0f, 0,
					&f->pc_begin[f_enc_size], &range);
	  if (data->pc < table[mid].initial_loc + data_base + range)
	    data->ret = f;
	  data->func = (void *) (table[mid].initial_loc + data_base);
	  return 1;
	}
    }

  /* We have no sorted search table, so need to go the slow way.
     As soon as GLIBC will provide API so to notify that a library has been
     removed, we could cache this (and thus use search_object).  */
#if ! (defined (__e2k__) && defined (__ptr128__))
  ob.pc_begin = NULL;
#else /* defined (__e2k__) && defined (__ptr128__)  */
  ob.pc_begin = 0;
#endif /* defined (__e2k__) && defined (__ptr128__)  */
  ob.tbase = data->tbase;
  ob.dbase = data->dbase;
  ob.u.single = (fde *) eh_frame;
  ob.s.i = 0;
  ob.s.b.mixed_encoding = 1;  /* Need to assume worst case.  */
  data->ret = linear_search_fdes (&ob, (fde *) eh_frame,
#if !(defined (__e2k__) && defined (__ptr128__))
				  (void *)
#endif /* !(defined (__e2k__) && defined (__ptr128__))  */
				  data->pc);
  if (data->ret != NULL)
    {
      _Unwind_Ptr func;
      unsigned int encoding = get_fde_encoding (data->ret);

      read_encoded_value_with_base (encoding,
				    base_from_cb_data (encoding, data),
				    data->ret->pc_begin, &func);
      data->func = (void *) func;
    }
  return 1;
}

const fde *
_Unwind_Find_FDE (
#if ! (defined (__e2k__) && defined (__ptr128__))
		  void *pc,
#else /* defined (__e2k__) && defined (__ptr128__)  */
		  _Unwind_Ptr pc,
#endif /* defined (__e2k__) && defined (__ptr128__)  */
		  struct dwarf_eh_bases *bases)
{
  struct unw_eh_callback_data data;
  const fde *ret;

  ret = _Unwind_Find_registered_FDE (pc, bases);
  if (ret != NULL)
    return ret;

  data.pc = (_Unwind_Ptr) pc;
#if ! (defined (__e2k__) && defined (__ptr128__))
  data.tbase = NULL;
  data.dbase = NULL;
#else /* defined (__e2k__) && defined (__ptr128__)  */
  data.tbase = 0;
  data.dbase = 0;
#endif /* defined (__e2k__) && defined (__ptr128__)  */
  data.func = NULL;
  data.ret = NULL;
  data.check_cache = 1;

  if (dl_iterate_phdr (_Unwind_IteratePhdrCallback, &data) < 0)
    return NULL;

  if (data.ret)
    {
      bases->tbase = data.tbase;
      bases->dbase = data.dbase;
      bases->func = data.func;
    }
  return data.ret;
}

#else
/* Prevent multiple include of header files.  */
#define _Unwind_Find_FDE _Unwind_Find_FDE
#include "unwind-dw2-fde.c"
#endif

#if defined (USE_GAS_SYMVER) && defined (SHARED) && defined (USE_LIBUNWIND_EXCEPTIONS)
alias (_Unwind_Find_FDE);
#endif