#if __GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ >= 3)
#include <signal.h>
#include <sys/ucontext.h>
#define IA64_GATE_AREA_START 0xa000000000000100LL
#define IA64_GATE_AREA_END 0xa000000000030000LL
#define MD_FALLBACK_FRAME_STATE_FOR ia64_fallback_frame_state
static _Unwind_Reason_Code
ia64_fallback_frame_state (struct _Unwind_Context *context,
_Unwind_FrameState *fs)
{
if (context->rp >= IA64_GATE_AREA_START
&& context->rp < IA64_GATE_AREA_END)
{
struct sigframe {
char scratch[16];
unsigned long sig_number;
struct siginfo *info;
struct sigcontext *sc;
} *frame_ = (struct sigframe *)context->psp;
struct sigcontext *sc = frame_->sc;
{
int i;
for (i = 2; i < 4; i++)
context->ireg[i - 2].loc = &sc->sc_gr[i];
for (i = 8; i < 12; i++)
context->ireg[i - 2].loc = &sc->sc_gr[i];
for (i = 14; i < 32; i++)
context->ireg[i - 2].loc = &sc->sc_gr[i];
}
context->fpsr_loc = &(sc->sc_ar_fpsr);
context->pfs_loc = &(sc->sc_ar_pfs);
context->lc_loc = &(sc->sc_ar_lc);
context->unat_loc = &(sc->sc_ar_unat);
context->br_loc[0] = &(sc->sc_br[0]);
context->br_loc[6] = &(sc->sc_br[6]);
context->br_loc[7] = &(sc->sc_br[7]);
context->pr = sc->sc_pr;
context->psp = sc->sc_gr[12];
context->gp = sc->sc_gr[1];
fs -> no_reg_stack_frame = 1;
if (sc->sc_rbs_base)
{
long ndirty, loadrs = sc->sc_loadrs >> 16;
unsigned long alt_bspstore = context->bsp - loadrs;
unsigned long bspstore;
unsigned long *ar_bsp = (unsigned long *)(sc->sc_ar_bsp);
ndirty = ia64_rse_num_regs ((unsigned long *) alt_bspstore,
(unsigned long *) context->bsp);
bspstore = (unsigned long)
ia64_rse_skip_regs (ar_bsp, -ndirty);
ia64_copy_rbs (context, bspstore, alt_bspstore, loadrs,
sc->sc_ar_rnat);
}
{
unsigned long sof = sc->sc_cfm & 0x7f;
context->bsp = (unsigned long)
ia64_rse_skip_regs ((unsigned long *)(sc->sc_ar_bsp), -sof);
}
fs->curr.reg[UNW_REG_RP].where = UNW_WHERE_SPREL;
fs->curr.reg[UNW_REG_RP].val
= (unsigned long)&(sc->sc_ip) - context->psp;
fs->curr.reg[UNW_REG_RP].when = -1;
return _URC_NO_REASON;
}
return _URC_END_OF_STACK;
}
#define MD_HANDLE_UNWABI ia64_handle_unwabi
static void
ia64_handle_unwabi (struct _Unwind_Context *context, _Unwind_FrameState *fs)
{
if (fs->unwabi == ((3 << 8) | 's')
|| fs->unwabi == ((0 << 8) | 's'))
{
struct sigframe {
char scratch[16];
unsigned long sig_number;
struct siginfo *info;
struct sigcontext *sc;
} *frame = (struct sigframe *)context->psp;
struct sigcontext *sc = frame->sc;
{
int i;
for (i = 2; i < 4; i++)
context->ireg[i - 2].loc = &sc->sc_gr[i];
for (i = 8; i < 12; i++)
context->ireg[i - 2].loc = &sc->sc_gr[i];
for (i = 14; i < 32; i++)
context->ireg[i - 2].loc = &sc->sc_gr[i];
}
context->pfs_loc = &(sc->sc_ar_pfs);
context->lc_loc = &(sc->sc_ar_lc);
context->unat_loc = &(sc->sc_ar_unat);
context->br_loc[0] = &(sc->sc_br[0]);
context->br_loc[6] = &(sc->sc_br[6]);
context->br_loc[7] = &(sc->sc_br[7]);
context->pr = sc->sc_pr;
context->gp = sc->sc_gr[1];
fs -> no_reg_stack_frame = 1;
if (sc->sc_rbs_base)
{
long ndirty, loadrs = sc->sc_loadrs >> 16;
unsigned long alt_bspstore = context->bsp - loadrs;
unsigned long bspstore;
unsigned long *ar_bsp = (unsigned long *)(sc->sc_ar_bsp);
ndirty = ia64_rse_num_regs ((unsigned long *) alt_bspstore,
(unsigned long *) context->bsp);
bspstore = (unsigned long) ia64_rse_skip_regs (ar_bsp, -ndirty);
ia64_copy_rbs (context, bspstore, alt_bspstore, loadrs,
sc->sc_ar_rnat);
}
{
unsigned long sof = sc->sc_cfm & 0x7f;
context->bsp = (unsigned long)
ia64_rse_skip_regs ((unsigned long *)(sc->sc_ar_bsp), -sof);
}
fs->curr.reg[UNW_REG_PFS].where = UNW_WHERE_NONE;
}
}
#endif