#ifndef _GNU_SOURCE
#define _GNU_SOURCE 1
#endif
#include "config.h"
#include <stddef.h>
#include <stdlib.h>
#include <link.h>
#include "unwind-ia64.h"
#if __GLIBC__ < 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ < 2) \
|| (__GLIBC__ == 2 && __GLIBC_MINOR__ == 2 && !defined(DT_CONFIG))
# error You need GLIBC 2.2.4 or later on IA-64 Linux
#endif
struct unw_ia64_callback_data
{
Elf64_Addr pc;
unsigned long *segment_base;
unsigned long *gp;
struct unw_table_entry *ret;
};
static int
_Unwind_IteratePhdrCallback (struct dl_phdr_info *info, size_t size, void *ptr)
{
struct unw_ia64_callback_data *data = (struct unw_ia64_callback_data *) ptr;
const Elf64_Phdr *phdr, *p_unwind, *p_dynamic;
long n, match;
Elf64_Addr load_base, seg_base;
struct unw_table_entry *f_base, *f;
size_t lo, hi;
if (size < offsetof (struct dl_phdr_info, dlpi_phnum)
+ sizeof (info->dlpi_phnum))
return -1;
match = 0;
phdr = info->dlpi_phdr;
load_base = info->dlpi_addr;
p_unwind = NULL;
p_dynamic = NULL;
seg_base = ~(Elf64_Addr) 0;
for (n = info->dlpi_phnum; --n >= 0; phdr++)
{
if (phdr->p_type == PT_LOAD)
{
Elf64_Addr vaddr = phdr->p_vaddr + load_base;
if (data->pc >= vaddr && data->pc < vaddr + phdr->p_memsz)
match = 1;
if (vaddr < seg_base)
seg_base = vaddr;
}
else if (phdr->p_type == PT_IA_64_UNWIND)
p_unwind = phdr;
else if (phdr->p_type == PT_DYNAMIC)
p_dynamic = phdr;
}
if (!match || !p_unwind)
return 0;
f_base = (struct unw_table_entry *) (p_unwind->p_vaddr + load_base);
lo = 0;
hi = p_unwind->p_memsz / sizeof (struct unw_table_entry);
while (lo < hi)
{
size_t mid = (lo + hi) / 2;
f = f_base + mid;
if (data->pc < f->start_offset + seg_base)
hi = mid;
else if (data->pc >= f->end_offset + seg_base)
lo = mid + 1;
else
goto found;
}
return 1;
found:
*data->segment_base = seg_base;
*data->gp = 0;
data->ret = f;
if (p_dynamic)
{
Elf64_Dyn *dyn = (Elf64_Dyn *)(p_dynamic->p_vaddr + load_base);
for (; dyn->d_tag != DT_NULL ; dyn++)
if (dyn->d_tag == DT_PLTGOT)
{
*data->gp = dyn->d_un.d_ptr;
break;
}
}
else
{
register unsigned long gp __asm__("gp");
*data->gp = gp;
}
return 1;
}
struct unw_table_entry *
_Unwind_FindTableEntry (void *pc, unsigned long *segment_base,
unsigned long *gp)
{
struct unw_ia64_callback_data data;
data.pc = (Elf64_Addr) pc;
data.segment_base = segment_base;
data.gp = gp;
data.ret = NULL;
if (dl_iterate_phdr (_Unwind_IteratePhdrCallback, &data) < 0)
return NULL;
return data.ret;
}