m2-internship/libunwind-eh_elf
1
0
Fork 0
mirror of https://github.com/tobast/libunwind-eh_elf.git synced 2024-11-23 16:07:37 +01:00
Code Issues Releases Activity

Adjust for unw_word_t -> ia64_loc_t changes.

Browse source 
(ia64_local_resume): Disable for now (it's presently broken).
(remote_install_cursor): Ditto.

(Logical change 1.84)
This commit is contained in:
mostang.com!davidm 2003-04-23 05:56:59 +00:00
parent 83ec749aaf
commit c1d2557a31
1 changed files with 16 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
src/ia64/Gresume-ia64.c
View file

@ -34,7 +34,6 @@ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */
static inline int static inline int
local_resume (unw_addr_space_t as, unw_cursor_t *cursor, void *arg) local_resume (unw_addr_space_t as, unw_cursor_t *cursor, void *arg)
{ {
#ifndef __hpux
unw_word_t val, sol, sof, pri_unat, n, pfs; unw_word_t val, sol, sof, pri_unat, n, pfs;
struct cursor *c = (struct cursor *) cursor; struct cursor *c = (struct cursor *) cursor;
struct struct
@ -68,10 +67,10 @@ local_resume (unw_addr_space_t as, unw_cursor_t *cursor, void *arg)
/* Copy contents of r4-r7 into "extra", so that their values end up /* Copy contents of r4-r7 into "extra", so that their values end up
contiguous, so we can use a single (primary-) UNaT value. */ contiguous, so we can use a single (primary-) UNaT value. */
if ((ret = ia64_get (c, c->r4_loc, &extra.r4)) < 0 if ((ret = ia64_get (c, c->loc[IA64_REG_R4], &extra.r4)) < 0
|| (ret = ia64_get (c, c->r5_loc, &extra.r5)) < 0 || (ret = ia64_get (c, c->loc[IA64_REG_R5], &extra.r5)) < 0
|| (ret = ia64_get (c, c->r6_loc, &extra.r6)) < 0 || (ret = ia64_get (c, c->loc[IA64_REG_R6], &extra.r6)) < 0
|| (ret = ia64_get (c, c->r7_loc, &extra.r7)) < 0) || (ret = ia64_get (c, c->loc[IA64_REG_R7], &extra.r7)) < 0)
return ret; return ret;
/* Form the primary UNaT value: */ /* Form the primary UNaT value: */
@ -81,9 +80,9 @@ local_resume (unw_addr_space_t as, unw_cursor_t *cursor, void *arg)
n = (((uintptr_t) &extra.r4) / 8 - 4) % 64; n = (((uintptr_t) &extra.r4) / 8 - 4) % 64;
pri_unat = (pri_unat << n) | (pri_unat >> (64 - n)); pri_unat = (pri_unat << n) | (pri_unat >> (64 - n));
if (unlikely (c->sigcontext_loc)) if (unlikely (c->sigcontext_addr))
{ {
struct sigcontext *sc = (struct sigcontext *) c->sigcontext_loc; struct sigcontext *sc = (struct sigcontext *) c->sigcontext_addr;
# define PR_SCRATCH 0xffc0 /* p6-p15 are scratch */ # define PR_SCRATCH 0xffc0 /* p6-p15 are scratch */
# define PR_PRESERVED (~(PR_SCRATCH | 1)) # define PR_PRESERVED (~(PR_SCRATCH | 1))
@ -103,7 +102,7 @@ local_resume (unw_addr_space_t as, unw_cursor_t *cursor, void *arg)
save "rp"). */ save "rp"). */
sc->sc_gr[12] = c->psp; sc->sc_gr[12] = c->psp;
c->psp = (c->sigcontext_loc - c->sigcontext_off); c->psp = c->sigcontext_addr - c->sigcontext_off;
sof = (c->cfm & 0x7f); sof = (c->cfm & 0x7f);
rbs_cover_and_flush (c, sof); rbs_cover_and_flush (c, sof);
@ -111,9 +110,9 @@ local_resume (unw_addr_space_t as, unw_cursor_t *cursor, void *arg)
sc->sc_ip = c->ip; sc->sc_ip = c->ip;
sc->sc_cfm = c->cfm & (((unw_word_t) 1 << 38) - 1); sc->sc_cfm = c->cfm & (((unw_word_t) 1 << 38) - 1);
sc->sc_pr = (c->pr & ~PR_SCRATCH) | (sc->sc_pr & ~PR_PRESERVED); sc->sc_pr = (c->pr & ~PR_SCRATCH) | (sc->sc_pr & ~PR_PRESERVED);
if ((ret = ia64_get (c, c->pfs_loc, &sc->sc_ar_pfs)) < 0 if ((ret = ia64_get (c, c->loc[IA64_REG_PFS], &sc->sc_ar_pfs)) < 0
|| (ret = ia64_get (c, c->fpsr_loc, &sc->sc_ar_fpsr)) < 0 || (ret = ia64_get (c, c->loc[IA64_REG_FPSR], &sc->sc_ar_fpsr)) < 0
|| (ret = ia64_get (c, c->unat_loc, &sc->sc_ar_unat)) < 0) || (ret = ia64_get (c, c->loc[IA64_REG_UNAT], &sc->sc_ar_unat)) < 0)
return ret; return ret;
sc->sc_gr[1] = c->pi.gp; sc->sc_gr[1] = c->pi.gp;
@ -126,7 +125,7 @@ local_resume (unw_addr_space_t as, unw_cursor_t *cursor, void *arg)
{ {
/* Account for the fact that _Uia64_install_context() will /* Account for the fact that _Uia64_install_context() will
return via br.ret, which will decrement bsp by size-of-locals. */ return via br.ret, which will decrement bsp by size-of-locals. */
if ((ret = ia64_get (c, c->pfs_loc, &pfs)) < 0) if ((ret = ia64_get (c, c->loc[IA64_REG_PFS], &pfs)) < 0)
return ret; return ret;
sol = (pfs >> 7) & 0x7f; sol = (pfs >> 7) & 0x7f;
rbs_cover_and_flush (c, sol); rbs_cover_and_flush (c, sol);
@ -137,16 +136,13 @@ local_resume (unw_addr_space_t as, unw_cursor_t *cursor, void *arg)
extra.r17 = c->eh_args[2]; extra.r17 = c->eh_args[2];
extra.r18 = c->eh_args[3]; extra.r18 = c->eh_args[3];
} }
_Uia64_install_context (c, pri_unat, (unw_word_t *) &extra); _Uia64_install_cursor (c, pri_unat, (unw_word_t *) &extra);
#else
return -UNW_EINVAL;
#endif
} }
HIDDEN int HIDDEN int
ia64_local_resume (unw_addr_space_t as, unw_cursor_t *cursor, void *arg) ia64_local_resume (unw_addr_space_t as, unw_cursor_t *cursor, void *arg)
{ {
return local_resume (as, cursor, arg); return -UNW_EINVAL;
} }
#endif /* !UNW_REMOTE_ONLY */ #endif /* !UNW_REMOTE_ONLY */
@ -156,6 +152,7 @@ ia64_local_resume (unw_addr_space_t as, unw_cursor_t *cursor, void *arg)
static inline int static inline int
remote_install_cursor (struct cursor *c) remote_install_cursor (struct cursor *c)
{ {
#if 0
#ifndef __hpux #ifndef __hpux
int (*access_reg) (unw_addr_space_t, unw_regnum_t, unw_word_t *, int (*access_reg) (unw_addr_space_t, unw_regnum_t, unw_word_t *,
int write, void *); int write, void *);
@ -185,7 +182,7 @@ remote_install_cursor (struct cursor *c)
MEMIFY (IA64_REG_UNAT, UNW_IA64_AR_UNAT); MEMIFY (IA64_REG_UNAT, UNW_IA64_AR_UNAT);
MEMIFY (IA64_REG_LC, UNW_IA64_AR_LC); MEMIFY (IA64_REG_LC, UNW_IA64_AR_LC);
MEMIFY (IA64_REG_FPSR, UNW_IA64_AR_FPSR); MEMIFY (IA64_REG_FPSR, UNW_IA64_AR_FPSR);
MEMIFY (IA64_REG_RP, UNW_IA64_BR + 0); MEMIFY (IA64_REG_IP, UNW_IA64_BR + 0);
MEMIFY (IA64_REG_B1, UNW_IA64_BR + 1); MEMIFY (IA64_REG_B1, UNW_IA64_BR + 1);
MEMIFY (IA64_REG_B2, UNW_IA64_BR + 2); MEMIFY (IA64_REG_B2, UNW_IA64_BR + 2);
MEMIFY (IA64_REG_B3, UNW_IA64_BR + 3); MEMIFY (IA64_REG_B3, UNW_IA64_BR + 3);
@ -233,6 +230,7 @@ remote_install_cursor (struct cursor *c)
} }
return (*c->as->acc.resume) (c->as, (unw_cursor_t *) c, c->as_arg); return (*c->as->acc.resume) (c->as, (unw_cursor_t *) c, c->as_arg);
#endif #endif
#endif
} }
#endif #endif