mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-01 11:52:47 +00:00
200 lines
6.7 KiB
C
200 lines
6.7 KiB
C
/* DWARF2 EH unwinding support for IA64 Linux.
|
|
Copyright (C) 2004-2017 Free Software Foundation, Inc.
|
|
|
|
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/>. */
|
|
|
|
/* Do code reading to identify a signal frame, and set the frame
|
|
state data appropriately. See unwind-ia64.c for the structs. */
|
|
|
|
/* This works only for glibc-2.3 and later, because sigcontext is different
|
|
in glibc-2.2.4. */
|
|
|
|
#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;
|
|
siginfo_t *info;
|
|
struct sigcontext *sc;
|
|
} *frame_ = (struct sigframe *)context->psp;
|
|
struct sigcontext *sc = frame_->sc;
|
|
|
|
/* Restore scratch registers in case the unwinder needs to
|
|
refer to a value stored in one of them. */
|
|
{
|
|
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->signal_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];
|
|
/* Signal frame doesn't have an associated reg. stack frame
|
|
other than what we adjust for below. */
|
|
fs -> no_reg_stack_frame = 1;
|
|
|
|
if (sc->sc_rbs_base)
|
|
{
|
|
/* Need to switch from alternate register backing store. */
|
|
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);
|
|
}
|
|
|
|
/* Don't touch the branch registers o.t. b0, b6 and b7.
|
|
The kernel doesn't pass the preserved branch registers
|
|
in the sigcontext but leaves them intact, so there's no
|
|
need to do anything with them here. */
|
|
{
|
|
unsigned long sof = sc->sc_cfm & 0x7f;
|
|
context->bsp = (unsigned long)
|
|
ia64_rse_skip_regs ((unsigned long *)(sc->sc_ar_bsp), -sof);
|
|
}
|
|
|
|
/* Account for use of br.ret to resume execution of user code. */
|
|
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;
|
|
|
|
fs->curr.reg[UNW_REG_PFS].where = UNW_WHERE_SPREL;
|
|
fs->curr.reg[UNW_REG_PFS].val
|
|
= (unsigned long)&(sc->sc_cfm) - context->psp;
|
|
fs ->curr.reg[UNW_REG_PFS].when = -1;
|
|
|
|
return _URC_NO_REASON;
|
|
}
|
|
return _URC_END_OF_STACK;
|
|
}
|
|
|
|
#define MD_HANDLE_UNWABI ia64_handle_unwabi
|
|
|
|
#define ABI_MARKER_OLD_LINUX_SIGTRAMP ((0 << 8) | 's')
|
|
#define ABI_MARKER_OLD_LINUX_INTERRUPT ((0 << 8) | 'i')
|
|
#define ABI_MARKER_LINUX_SIGTRAMP ((3 << 8) | 's')
|
|
#define ABI_MARKER_LINUX_INTERRUPT ((3 << 8) | 'i')
|
|
|
|
static void
|
|
ia64_handle_unwabi (struct _Unwind_Context *context, _Unwind_FrameState *fs)
|
|
{
|
|
if (fs->unwabi == ABI_MARKER_LINUX_SIGTRAMP
|
|
|| fs->unwabi == ABI_MARKER_OLD_LINUX_SIGTRAMP)
|
|
{
|
|
struct sigframe {
|
|
char scratch[16];
|
|
unsigned long sig_number;
|
|
siginfo_t *info;
|
|
struct sigcontext *sc;
|
|
} *frame = (struct sigframe *)context->psp;
|
|
struct sigcontext *sc = frame->sc;
|
|
|
|
/* Restore scratch registers in case the unwinder needs to
|
|
refer to a value stored in one of them. */
|
|
{
|
|
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->signal_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];
|
|
/* Signal frame doesn't have an associated reg. stack frame
|
|
other than what we adjust for below. */
|
|
fs -> no_reg_stack_frame = 1;
|
|
|
|
if (sc->sc_rbs_base)
|
|
{
|
|
/* Need to switch from alternate register backing store. */
|
|
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);
|
|
}
|
|
|
|
/* Don't touch the branch registers o.t. b0, b6 and b7.
|
|
The kernel doesn't pass the preserved branch registers
|
|
in the sigcontext but leaves them intact, so there's no
|
|
need to do anything with them here. */
|
|
{
|
|
unsigned long sof = sc->sc_cfm & 0x7f;
|
|
context->bsp = (unsigned long)
|
|
ia64_rse_skip_regs ((unsigned long *)(sc->sc_ar_bsp), -sof);
|
|
}
|
|
|
|
/* The use of br.ret to resume execution of user code is already
|
|
accounted for in the unwind ABI. */
|
|
}
|
|
}
|
|
#endif /* glibc-2.3 or better */
|