2002-02-16 00:22:05 +01:00
|
|
|
/* libunwind - a platform-independent unwind library
|
2004-01-21 00:32:28 +01:00
|
|
|
Copyright (C) 2001-2004 Hewlett-Packard Co
|
2002-02-16 00:22:05 +01:00
|
|
|
Contributed by David Mosberger-Tang <davidm@hpl.hp.com>
|
|
|
|
|
|
|
|
This file is part of libunwind.
|
|
|
|
|
2002-11-16 04:25:36 +01:00
|
|
|
Permission is hereby granted, free of charge, to any person obtaining
|
|
|
|
a copy of this software and associated documentation files (the
|
|
|
|
"Software"), to deal in the Software without restriction, including
|
|
|
|
without limitation the rights to use, copy, modify, merge, publish,
|
|
|
|
distribute, sublicense, and/or sell copies of the Software, and to
|
|
|
|
permit persons to whom the Software is furnished to do so, subject to
|
|
|
|
the following conditions:
|
|
|
|
|
|
|
|
The above copyright notice and this permission notice shall be
|
|
|
|
included in all copies or substantial portions of the Software.
|
|
|
|
|
|
|
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
|
|
|
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
|
|
|
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
|
|
|
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
|
|
|
|
LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
|
|
|
|
OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
|
|
|
|
WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */
|
2002-02-16 00:22:05 +01:00
|
|
|
|
Protect against multiple inclusion. Define IA64_UNW_DEBUG based on DEBUG. Document
that in the UNW_LOCAL_ONLY-case, bit 2 in register save locations is unused. If
UNW_LOCAL_ONLY is defined, define stream-lined versions of IA64_REG_LOC(),
IA64_FPREG_LOC(), ia64_acquire_unwind_info(), ia64_release_unwind_info(), ia64_get(),
ia64_put(), ia64_getfp(), and ia64_putfp(). Drop convenience macros and declarations for
ia64_glibc_{acquire,release}_unwind_info(). Add convenience macro and declaration for
ia64_local_resume().
(Logical change 1.8)
2002-02-28 17:24:48 +01:00
|
|
|
#ifndef unwind_i_h
|
|
|
|
#define unwind_i_h
|
|
|
|
|
2002-02-16 00:22:05 +01:00
|
|
|
#include <memory.h>
|
2003-03-19 20:25:18 +01:00
|
|
|
#include <inttypes.h>
|
2002-04-03 08:51:34 +02:00
|
|
|
|
2002-04-06 01:37:55 +02:00
|
|
|
#include <libunwind-ia64.h>
|
2002-02-16 00:22:05 +01:00
|
|
|
|
2004-05-05 00:16:57 +02:00
|
|
|
#include "ia64/rse.h"
|
|
|
|
|
2002-12-12 10:17:41 +01:00
|
|
|
#include "internal.h"
|
2002-07-18 05:58:34 +02:00
|
|
|
|
2004-04-23 03:31:47 +02:00
|
|
|
#define IA64_UNW_VER(x) ((x) >> 48)
|
|
|
|
#define IA64_UNW_FLAG_MASK ((unw_word_t) 0x0000ffff00000000ULL)
|
|
|
|
#define IA64_UNW_FLAG_OSMASK ((unw_word_t) 0x0000f00000000000ULL)
|
|
|
|
#define IA64_UNW_FLAG_EHANDLER(x) ((x) & (unw_word_t) 0x0000000100000000ULL)
|
|
|
|
#define IA64_UNW_FLAG_UHANDLER(x) ((x) & (unw_word_t) 0x0000000200000000ULL)
|
|
|
|
#define IA64_UNW_LENGTH(x) ((x) & (unw_word_t) 0x00000000ffffffffULL)
|
2002-02-16 00:22:05 +01:00
|
|
|
|
2003-04-24 22:45:07 +02:00
|
|
|
#ifdef MIN
|
|
|
|
# undef MIN
|
|
|
|
#endif
|
2002-02-16 00:22:05 +01:00
|
|
|
#define MIN(a,b) ((a) < (b) ? (a) : (b))
|
|
|
|
|
2002-12-12 10:17:41 +01:00
|
|
|
#include "tdep.h"
|
2002-02-16 00:22:05 +01:00
|
|
|
|
2004-03-20 10:54:28 +01:00
|
|
|
#if !defined(HAVE_SYS_UC_ACCESS_H) && !defined(UNW_REMOTE_ONLY)
|
|
|
|
|
|
|
|
static inline ALWAYS_INLINE void *
|
|
|
|
inlined_uc_addr (ucontext_t *uc, int reg, uint8_t *nat_bitnr)
|
|
|
|
{
|
|
|
|
unw_word_t reg_addr;
|
|
|
|
void *addr;
|
|
|
|
|
|
|
|
switch (reg)
|
|
|
|
{
|
|
|
|
case UNW_IA64_GR + 0: addr = &unw.r0; break;
|
|
|
|
case UNW_IA64_NAT + 0: addr = &unw.r0; break;
|
|
|
|
case UNW_IA64_IP: addr = &uc->uc_mcontext.sc_br[0]; break;
|
|
|
|
case UNW_IA64_CFM: addr = &uc->uc_mcontext.sc_ar_pfs; break;
|
|
|
|
case UNW_IA64_AR_RNAT: addr = &uc->uc_mcontext.sc_ar_rnat; break;
|
|
|
|
case UNW_IA64_AR_UNAT: addr = &uc->uc_mcontext.sc_ar_unat; break;
|
|
|
|
case UNW_IA64_AR_LC: addr = &uc->uc_mcontext.sc_ar_lc; break;
|
|
|
|
case UNW_IA64_AR_FPSR: addr = &uc->uc_mcontext.sc_ar_fpsr; break;
|
|
|
|
case UNW_IA64_PR: addr = &uc->uc_mcontext.sc_pr; break;
|
|
|
|
/* This may look confusing, but it's correct: AR_BSPSTORE needs
|
|
|
|
to return the address past the last word written, which is
|
|
|
|
stored in sc_ar_bsp. On the other hand, AR_BSP needs to
|
|
|
|
return the address that was in ar.bsp at the time the context
|
|
|
|
was captured. As described in unw_init_local(), sc_ar_bsp is
|
|
|
|
(ab-)used for this purpose. */
|
|
|
|
case UNW_IA64_AR_BSP: addr = &uc->uc_mcontext.sc_rbs_base; break;
|
|
|
|
case UNW_IA64_AR_BSPSTORE: addr = &uc->uc_mcontext.sc_ar_bsp; break;
|
|
|
|
|
|
|
|
case UNW_IA64_GR + 4 ... UNW_IA64_GR + 7:
|
|
|
|
case UNW_IA64_GR + 12:
|
|
|
|
addr = &uc->uc_mcontext.sc_gr[reg - UNW_IA64_GR];
|
|
|
|
break;
|
|
|
|
|
|
|
|
case UNW_IA64_NAT + 4 ... UNW_IA64_NAT + 7:
|
|
|
|
case UNW_IA64_NAT + 12:
|
|
|
|
addr = &uc->uc_mcontext.sc_nat;
|
|
|
|
reg_addr = (unw_word_t) &uc->uc_mcontext.sc_gr[reg - UNW_IA64_NAT];
|
|
|
|
*nat_bitnr = reg - UNW_IA64_NAT;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case UNW_IA64_BR + 1 ... UNW_IA64_BR + 5:
|
|
|
|
addr = &uc->uc_mcontext.sc_br[reg - UNW_IA64_BR];
|
|
|
|
break;
|
|
|
|
|
|
|
|
case UNW_IA64_FR+ 2 ... UNW_IA64_FR+ 5:
|
|
|
|
case UNW_IA64_FR+16 ... UNW_IA64_FR+31:
|
|
|
|
addr = &uc->uc_mcontext.sc_fr[reg - UNW_IA64_FR];
|
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
addr = NULL;
|
|
|
|
}
|
|
|
|
return addr;
|
|
|
|
}
|
|
|
|
|
|
|
|
static inline void *
|
|
|
|
uc_addr (ucontext_t *uc, int reg, uint8_t *nat_bitnr)
|
|
|
|
{
|
|
|
|
if (__builtin_constant_p (reg))
|
|
|
|
return inlined_uc_addr (uc, reg, nat_bitnr);
|
|
|
|
else
|
|
|
|
return tdep_uc_addr (uc, reg, nat_bitnr);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif /* !defined(HAVE_SYS_UC_ACCESS_H) && !defined(UNW_REMOTE_ONLY) */
|
|
|
|
|
2004-02-27 02:00:42 +01:00
|
|
|
/* Bits 0 and 1 of a location are used to encode its type:
|
2002-02-16 00:22:05 +01:00
|
|
|
bit 0: set if location uses floating-point format.
|
2003-04-23 07:56:59 +02:00
|
|
|
bit 1: set if location is a NaT bit on memory stack. */
|
2002-02-16 00:22:05 +01:00
|
|
|
|
|
|
|
#define IA64_LOC_TYPE_FP (1 << 0)
|
|
|
|
#define IA64_LOC_TYPE_MEMSTK_NAT (1 << 1)
|
|
|
|
|
2003-04-23 07:56:59 +02:00
|
|
|
#ifdef UNW_LOCAL_ONLY
|
|
|
|
#define IA64_LOC_REG(r,t) (((r) << 2) | (t))
|
|
|
|
#define IA64_LOC_ADDR(a,t) (((a) & ~0x3) | (t))
|
|
|
|
#define IA64_LOC_UC_ADDR(a,t) IA64_LOC_ADDR(a, t)
|
|
|
|
#define IA64_NULL_LOC (0)
|
2002-02-16 00:22:05 +01:00
|
|
|
|
2003-04-23 07:56:59 +02:00
|
|
|
#define IA64_GET_REG(l) ((l) >> 2)
|
|
|
|
#define IA64_GET_ADDR(l) ((l) & ~0x3)
|
|
|
|
#define IA64_IS_NULL_LOC(l) ((l) == 0)
|
|
|
|
#define IA64_IS_FP_LOC(l) (((l) & IA64_LOC_TYPE_FP) != 0)
|
|
|
|
#define IA64_IS_MEMSTK_NAT(l) (((l) & IA64_LOC_TYPE_MEMSTK_NAT) != 0)
|
|
|
|
#define IA64_IS_REG_LOC(l) 0
|
|
|
|
#define IA64_IS_UC_LOC(l) 0
|
2002-02-22 22:58:53 +01:00
|
|
|
|
2004-03-20 10:54:28 +01:00
|
|
|
#define IA64_REG_LOC(c,r) ((unw_word_t) uc_addr((c)->as_arg, r, NULL))
|
|
|
|
#define IA64_REG_NAT_LOC(c,r,n) ((unw_word_t) uc_addr((c)->as_arg, r, n))
|
2002-12-19 08:16:50 +01:00
|
|
|
#define IA64_FPREG_LOC(c,r) \
|
2004-03-20 10:54:28 +01:00
|
|
|
((unw_word_t) uc_addr((c)->as_arg, (r), NULL) | IA64_LOC_TYPE_FP)
|
Protect against multiple inclusion. Define IA64_UNW_DEBUG based on DEBUG. Document
that in the UNW_LOCAL_ONLY-case, bit 2 in register save locations is unused. If
UNW_LOCAL_ONLY is defined, define stream-lined versions of IA64_REG_LOC(),
IA64_FPREG_LOC(), ia64_acquire_unwind_info(), ia64_release_unwind_info(), ia64_get(),
ia64_put(), ia64_getfp(), and ia64_putfp(). Drop convenience macros and declarations for
ia64_glibc_{acquire,release}_unwind_info(). Add convenience macro and declaration for
ia64_local_resume().
(Logical change 1.8)
2002-02-28 17:24:48 +01:00
|
|
|
|
2002-12-19 08:16:50 +01:00
|
|
|
# define ia64_find_proc_info(c,ip,n) \
|
|
|
|
tdep_find_proc_info(unw_local_addr_space, (ip), &(c)->pi, (n), \
|
|
|
|
(c)->as_arg)
|
2002-12-12 10:17:41 +01:00
|
|
|
# define ia64_put_unwind_info(c, pi) do { ; } while (0)
|
2002-11-09 04:59:27 +01:00
|
|
|
|
|
|
|
/* Note: the register accessors (ia64_{get,set}{,fp}()) must check for
|
2004-03-20 10:54:28 +01:00
|
|
|
NULL locations because uc_addr() returns NULL for unsaved
|
2002-11-09 04:59:27 +01:00
|
|
|
registers. */
|
|
|
|
|
|
|
|
static inline int
|
2002-12-19 08:16:50 +01:00
|
|
|
ia64_getfp (struct cursor *c, unw_word_t loc, unw_fpreg_t *val)
|
2002-11-09 04:59:27 +01:00
|
|
|
{
|
2004-05-06 05:46:27 +02:00
|
|
|
if (IA64_IS_NULL_LOC (loc))
|
2003-03-06 07:14:36 +01:00
|
|
|
{
|
2004-01-30 01:01:24 +01:00
|
|
|
Debug (16, "access to unsaved register\n");
|
2003-03-28 08:43:22 +01:00
|
|
|
return -UNW_EBADREG;
|
2003-03-06 07:14:36 +01:00
|
|
|
}
|
2003-04-23 07:56:59 +02:00
|
|
|
*val = *(unw_fpreg_t *) IA64_GET_ADDR (loc);
|
2002-11-09 04:59:27 +01:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
static inline int
|
2002-12-19 08:16:50 +01:00
|
|
|
ia64_putfp (struct cursor *c, unw_word_t loc, unw_fpreg_t val)
|
2002-11-09 04:59:27 +01:00
|
|
|
{
|
2004-05-06 05:46:27 +02:00
|
|
|
if (IA64_IS_NULL_LOC(loc))
|
2003-03-06 07:14:36 +01:00
|
|
|
{
|
2004-01-30 01:01:24 +01:00
|
|
|
Debug (16, "access to unsaved register\n");
|
2003-03-28 08:43:22 +01:00
|
|
|
return -UNW_EBADREG;
|
2003-03-06 07:14:36 +01:00
|
|
|
}
|
2003-04-23 07:56:59 +02:00
|
|
|
*(unw_fpreg_t *) IA64_GET_ADDR (loc) = val;
|
2002-11-09 04:59:27 +01:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
static inline int
|
2002-12-19 08:16:50 +01:00
|
|
|
ia64_get (struct cursor *c, unw_word_t loc, unw_word_t *val)
|
2002-11-09 04:59:27 +01:00
|
|
|
{
|
2004-05-06 05:46:27 +02:00
|
|
|
if (IA64_IS_NULL_LOC(loc))
|
2003-03-06 07:14:36 +01:00
|
|
|
{
|
2004-01-30 01:01:24 +01:00
|
|
|
Debug (16, "access to unsaved register\n");
|
2003-03-28 08:43:22 +01:00
|
|
|
return -UNW_EBADREG;
|
2003-03-06 07:14:36 +01:00
|
|
|
}
|
2003-04-23 07:56:59 +02:00
|
|
|
*val = *(unw_word_t *) IA64_GET_ADDR (loc);
|
2002-11-09 04:59:27 +01:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
static inline int
|
2002-12-19 08:16:50 +01:00
|
|
|
ia64_put (struct cursor *c, unw_word_t loc, unw_word_t val)
|
2002-11-09 04:59:27 +01:00
|
|
|
{
|
2004-05-06 05:46:27 +02:00
|
|
|
if (IA64_IS_NULL_LOC(loc))
|
2003-03-06 07:14:36 +01:00
|
|
|
{
|
2004-01-30 01:01:24 +01:00
|
|
|
Debug (16, "access to unsaved register\n");
|
2003-03-28 08:43:22 +01:00
|
|
|
return -UNW_EBADREG;
|
2003-03-06 07:14:36 +01:00
|
|
|
}
|
2003-04-23 07:56:59 +02:00
|
|
|
*(unw_word_t *) IA64_GET_ADDR (loc) = (val);
|
2002-11-09 04:59:27 +01:00
|
|
|
return 0;
|
|
|
|
}
|
2002-02-22 22:58:53 +01:00
|
|
|
|
|
|
|
#else /* !UNW_LOCAL_ONLY */
|
|
|
|
|
2003-04-23 07:56:59 +02:00
|
|
|
/* Bits 0 and 1 of the second word (w1) of a location are used
|
|
|
|
to further distinguish what location we're dealing with:
|
|
|
|
|
|
|
|
bit 0: set if the location is a register
|
|
|
|
bit 1: set of the location is accessed via uc_access(3) */
|
|
|
|
#define IA64_LOC_TYPE_REG (1 << 0)
|
|
|
|
#define IA64_LOC_TYPE_UC (1 << 1)
|
|
|
|
|
|
|
|
#define IA64_LOC_REG(r,t) ((ia64_loc_t) { ((r) << 2) | (t), \
|
|
|
|
IA64_LOC_TYPE_REG })
|
|
|
|
#define IA64_LOC_ADDR(a,t) ((ia64_loc_t) { ((a) & ~0x3) | (t), 0 })
|
|
|
|
#define IA64_LOC_UC_ADDR(a,t) ((ia64_loc_t) { ((a) & ~0x3) | (t), \
|
|
|
|
IA64_LOC_TYPE_UC })
|
2003-04-24 22:45:07 +02:00
|
|
|
#define IA64_LOC_UC_REG(r,a) ((ia64_loc_t) { ((r) << 2), \
|
|
|
|
((a) | IA64_LOC_TYPE_REG \
|
|
|
|
| IA64_LOC_TYPE_UC) })
|
2003-04-23 07:56:59 +02:00
|
|
|
#define IA64_NULL_LOC ((ia64_loc_t) { 0, 0 })
|
|
|
|
|
|
|
|
#define IA64_GET_REG(l) ((l).w0 >> 2)
|
|
|
|
#define IA64_GET_ADDR(l) ((l).w0 & ~0x3)
|
2003-04-24 22:45:07 +02:00
|
|
|
#define IA64_GET_AUX_ADDR(l) ((l).w1 & ~0x3)
|
2003-04-23 07:56:59 +02:00
|
|
|
#define IA64_IS_NULL_LOC(l) (((l).w0 | (l).w1) == 0)
|
|
|
|
#define IA64_IS_FP_LOC(l) (((l).w0 & IA64_LOC_TYPE_FP) != 0)
|
|
|
|
#define IA64_IS_MEMSTK_NAT(l) (((l).w0 & IA64_LOC_TYPE_MEMSTK_NAT) != 0)
|
|
|
|
#define IA64_IS_REG_LOC(l) (((l).w1 & IA64_LOC_TYPE_REG) != 0)
|
|
|
|
#define IA64_IS_UC_LOC(l) (((l).w1 & IA64_LOC_TYPE_UC) != 0)
|
|
|
|
|
|
|
|
#define IA64_REG_LOC(c,r) IA64_LOC_REG ((r), 0)
|
2004-02-27 09:54:25 +01:00
|
|
|
#define IA64_REG_NAT_LOC(c,r,n) IA64_LOC_REG ((r), 0)
|
2003-04-23 07:56:59 +02:00
|
|
|
#define IA64_FPREG_LOC(c,r) IA64_LOC_REG ((r), IA64_LOC_TYPE_FP)
|
Protect against multiple inclusion. Define IA64_UNW_DEBUG based on DEBUG. Document
that in the UNW_LOCAL_ONLY-case, bit 2 in register save locations is unused. If
UNW_LOCAL_ONLY is defined, define stream-lined versions of IA64_REG_LOC(),
IA64_FPREG_LOC(), ia64_acquire_unwind_info(), ia64_release_unwind_info(), ia64_get(),
ia64_put(), ia64_getfp(), and ia64_putfp(). Drop convenience macros and declarations for
ia64_glibc_{acquire,release}_unwind_info(). Add convenience macro and declaration for
ia64_local_resume().
(Logical change 1.8)
2002-02-28 17:24:48 +01:00
|
|
|
|
2002-12-12 10:17:41 +01:00
|
|
|
# define ia64_find_proc_info(c,ip,n) \
|
|
|
|
(*(c)->as->acc.find_proc_info)((c)->as, (ip), &(c)->pi, (n), \
|
|
|
|
(c)->as_arg)
|
|
|
|
# define ia64_put_unwind_info(c,pi) \
|
|
|
|
(*(c)->as->acc.put_unwind_info)((c)->as, (pi), (c)->as_arg)
|
2002-02-16 00:22:05 +01:00
|
|
|
|
2003-04-24 22:45:07 +02:00
|
|
|
#define ia64_uc_access_reg UNW_OBJ(uc_access_reg)
|
|
|
|
#define ia64_uc_access_fpreg UNW_OBJ(uc_access_fpreg)
|
|
|
|
|
|
|
|
extern int ia64_uc_access_reg (struct cursor *c, ia64_loc_t loc,
|
|
|
|
unw_word_t *valp, int write);
|
|
|
|
extern int ia64_uc_access_fpreg (struct cursor *c, ia64_loc_t loc,
|
|
|
|
unw_fpreg_t *valp, int write);
|
|
|
|
|
2002-02-16 00:22:05 +01:00
|
|
|
static inline int
|
2003-04-23 07:56:59 +02:00
|
|
|
ia64_getfp (struct cursor *c, ia64_loc_t loc, unw_fpreg_t *val)
|
2002-02-16 00:22:05 +01:00
|
|
|
{
|
2003-04-23 07:56:59 +02:00
|
|
|
unw_word_t addr;
|
2002-02-16 00:22:05 +01:00
|
|
|
int ret;
|
|
|
|
|
2004-05-06 05:46:27 +02:00
|
|
|
if (IA64_IS_NULL_LOC(loc))
|
|
|
|
{
|
|
|
|
Debug (16, "access to unsaved register\n");
|
|
|
|
return -UNW_EBADREG;
|
|
|
|
}
|
|
|
|
|
2003-04-24 22:45:07 +02:00
|
|
|
if (IA64_IS_UC_LOC (loc))
|
|
|
|
return ia64_uc_access_fpreg (c, loc, val, 0);
|
|
|
|
|
2002-02-16 00:22:05 +01:00
|
|
|
if (IA64_IS_REG_LOC (loc))
|
2003-04-23 07:56:59 +02:00
|
|
|
return (*c->as->acc.access_fpreg) (c->as, IA64_GET_REG (loc),
|
2002-12-03 09:19:58 +01:00
|
|
|
val, 0, c->as_arg);
|
2002-02-16 00:22:05 +01:00
|
|
|
|
2003-04-23 07:56:59 +02:00
|
|
|
addr = IA64_GET_ADDR (loc);
|
|
|
|
ret = (*c->as->acc.access_mem) (c->as, addr + 0, &val->raw.bits[0], 0,
|
2002-12-03 09:19:58 +01:00
|
|
|
c->as_arg);
|
2002-02-16 00:22:05 +01:00
|
|
|
if (ret < 0)
|
|
|
|
return ret;
|
|
|
|
|
2003-04-23 07:56:59 +02:00
|
|
|
return (*c->as->acc.access_mem) (c->as, addr + 8, &val->raw.bits[1], 0,
|
2002-12-03 09:19:58 +01:00
|
|
|
c->as_arg);
|
2002-02-16 00:22:05 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
static inline int
|
2003-04-23 07:56:59 +02:00
|
|
|
ia64_putfp (struct cursor *c, ia64_loc_t loc, unw_fpreg_t val)
|
2002-02-16 00:22:05 +01:00
|
|
|
{
|
2003-04-23 07:56:59 +02:00
|
|
|
unw_word_t addr;
|
2002-02-16 00:22:05 +01:00
|
|
|
int ret;
|
|
|
|
|
2004-05-06 05:46:27 +02:00
|
|
|
if (IA64_IS_NULL_LOC(loc))
|
|
|
|
{
|
|
|
|
Debug (16, "access to unsaved register\n");
|
|
|
|
return -UNW_EBADREG;
|
|
|
|
}
|
|
|
|
|
2003-04-24 22:45:07 +02:00
|
|
|
if (IA64_IS_UC_LOC (loc))
|
|
|
|
return ia64_uc_access_fpreg (c, loc, &val, 1);
|
|
|
|
|
2002-02-16 00:22:05 +01:00
|
|
|
if (IA64_IS_REG_LOC (loc))
|
2003-04-23 07:56:59 +02:00
|
|
|
return (*c->as->acc.access_fpreg) (c->as, IA64_GET_REG (loc), &val, 1,
|
2002-12-03 09:19:58 +01:00
|
|
|
c->as_arg);
|
2002-02-16 00:22:05 +01:00
|
|
|
|
2003-04-23 07:56:59 +02:00
|
|
|
addr = IA64_GET_ADDR (loc);
|
|
|
|
ret = (*c->as->acc.access_mem) (c->as, addr + 0, &val.raw.bits[0], 1,
|
2002-12-03 09:19:58 +01:00
|
|
|
c->as_arg);
|
2002-02-16 00:22:05 +01:00
|
|
|
if (ret < 0)
|
|
|
|
return ret;
|
|
|
|
|
2003-04-23 07:56:59 +02:00
|
|
|
return (*c->as->acc.access_mem) (c->as, addr + 8, &val.raw.bits[1], 1,
|
2002-12-03 09:19:58 +01:00
|
|
|
c->as_arg);
|
2002-02-16 00:22:05 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Get the 64 data bits from location LOC. If bit 0 is cleared, LOC
|
|
|
|
is a memory address, otherwise it is a register number. If the
|
|
|
|
register is a floating-point register, the 64 bits are read from
|
|
|
|
the significand bits. */
|
|
|
|
|
|
|
|
static inline int
|
2003-04-23 07:56:59 +02:00
|
|
|
ia64_get (struct cursor *c, ia64_loc_t loc, unw_word_t *val)
|
2002-02-16 00:22:05 +01:00
|
|
|
{
|
2004-05-06 05:46:27 +02:00
|
|
|
if (IA64_IS_NULL_LOC(loc))
|
|
|
|
{
|
|
|
|
Debug (16, "access to unsaved register\n");
|
|
|
|
return -UNW_EBADREG;
|
|
|
|
}
|
|
|
|
|
2002-02-16 00:22:05 +01:00
|
|
|
if (IA64_IS_FP_LOC (loc))
|
|
|
|
{
|
|
|
|
unw_fpreg_t tmp;
|
|
|
|
int ret;
|
|
|
|
|
|
|
|
ret = ia64_getfp (c, loc, &tmp);
|
|
|
|
if (ret < 0)
|
|
|
|
return ret;
|
|
|
|
|
2002-12-12 10:17:41 +01:00
|
|
|
if (c->as->big_endian)
|
2002-02-16 00:22:05 +01:00
|
|
|
*val = tmp.raw.bits[1];
|
|
|
|
else
|
|
|
|
*val = tmp.raw.bits[0];
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2003-04-24 22:45:07 +02:00
|
|
|
if (IA64_IS_UC_LOC (loc))
|
|
|
|
return ia64_uc_access_reg (c, loc, val, 0);
|
|
|
|
|
2002-02-16 00:22:05 +01:00
|
|
|
if (IA64_IS_REG_LOC (loc))
|
2003-04-23 07:56:59 +02:00
|
|
|
return (*c->as->acc.access_reg)(c->as, IA64_GET_REG (loc), val, 0,
|
2002-12-03 09:19:58 +01:00
|
|
|
c->as_arg);
|
2002-02-16 00:22:05 +01:00
|
|
|
else
|
2003-04-23 07:56:59 +02:00
|
|
|
return (*c->as->acc.access_mem)(c->as, IA64_GET_ADDR (loc), val, 0,
|
|
|
|
c->as_arg);
|
2002-02-16 00:22:05 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
static inline int
|
2003-04-23 07:56:59 +02:00
|
|
|
ia64_put (struct cursor *c, ia64_loc_t loc, unw_word_t val)
|
2002-02-16 00:22:05 +01:00
|
|
|
{
|
2004-05-06 05:46:27 +02:00
|
|
|
if (IA64_IS_NULL_LOC(loc))
|
|
|
|
{
|
|
|
|
Debug (16, "access to unsaved register\n");
|
|
|
|
return -UNW_EBADREG;
|
|
|
|
}
|
|
|
|
|
2002-02-16 00:22:05 +01:00
|
|
|
if (IA64_IS_FP_LOC (loc))
|
|
|
|
{
|
|
|
|
unw_fpreg_t tmp;
|
|
|
|
|
|
|
|
memset (&tmp, 0, sizeof (tmp));
|
2002-12-12 10:17:41 +01:00
|
|
|
if (c->as->big_endian)
|
2002-02-16 00:22:05 +01:00
|
|
|
tmp.raw.bits[1] = val;
|
|
|
|
else
|
|
|
|
tmp.raw.bits[0] = val;
|
|
|
|
return ia64_putfp (c, loc, tmp);
|
|
|
|
}
|
|
|
|
|
2003-04-24 22:45:07 +02:00
|
|
|
if (IA64_IS_UC_LOC (loc))
|
|
|
|
return ia64_uc_access_reg (c, loc, &val, 1);
|
|
|
|
|
2002-11-14 20:12:58 +01:00
|
|
|
if (IA64_IS_REG_LOC (loc))
|
2003-04-23 07:56:59 +02:00
|
|
|
return (*c->as->acc.access_reg)(c->as, IA64_GET_REG (loc), &val, 1,
|
2002-12-03 09:19:58 +01:00
|
|
|
c->as_arg);
|
2002-02-16 00:22:05 +01:00
|
|
|
else
|
2003-04-23 07:56:59 +02:00
|
|
|
return (*c->as->acc.access_mem)(c->as, IA64_GET_ADDR (loc), &val, 1,
|
|
|
|
c->as_arg);
|
2002-02-16 00:22:05 +01:00
|
|
|
}
|
|
|
|
|
2002-02-22 22:58:53 +01:00
|
|
|
#endif /* !UNW_LOCAL_ONLY */
|
2002-02-16 00:22:05 +01:00
|
|
|
|
|
|
|
struct ia64_unwind_block
|
|
|
|
{
|
|
|
|
unw_word_t header;
|
|
|
|
unw_word_t desc[0]; /* unwind descriptors */
|
|
|
|
|
|
|
|
/* Personality routine and language-specific data follow behind
|
|
|
|
descriptors. */
|
|
|
|
};
|
|
|
|
|
|
|
|
enum ia64_where
|
|
|
|
{
|
|
|
|
IA64_WHERE_NONE, /* register isn't saved at all */
|
|
|
|
IA64_WHERE_GR, /* register is saved in a general register */
|
|
|
|
IA64_WHERE_FR, /* register is saved in a floating-point register */
|
|
|
|
IA64_WHERE_BR, /* register is saved in a branch register */
|
|
|
|
IA64_WHERE_SPREL, /* register is saved on memstack (sp-relative) */
|
|
|
|
IA64_WHERE_PSPREL, /* register is saved on memstack (psp-relative) */
|
|
|
|
|
|
|
|
/* At the end of each prologue these locations get resolved to
|
|
|
|
IA64_WHERE_PSPREL and IA64_WHERE_GR, respectively: */
|
|
|
|
|
|
|
|
IA64_WHERE_SPILL_HOME, /* register is saved in its spill home */
|
|
|
|
IA64_WHERE_GR_SAVE /* register is saved in next general register */
|
2002-07-18 05:58:34 +02:00
|
|
|
};
|
2002-02-16 00:22:05 +01:00
|
|
|
|
|
|
|
#define IA64_WHEN_NEVER 0x7fffffff
|
|
|
|
|
|
|
|
struct ia64_reg_info
|
|
|
|
{
|
|
|
|
unw_word_t val; /* save location: register number or offset */
|
|
|
|
enum ia64_where where; /* where the register gets saved */
|
|
|
|
int when; /* when the register gets saved */
|
|
|
|
};
|
|
|
|
|
2002-02-22 22:58:53 +01:00
|
|
|
struct ia64_labeled_state; /* opaque structure */
|
|
|
|
|
2002-07-18 05:58:34 +02:00
|
|
|
struct ia64_reg_state
|
|
|
|
{
|
|
|
|
struct ia64_reg_state *next; /* next (outer) element on state stack */
|
|
|
|
struct ia64_reg_info reg[IA64_NUM_PREGS]; /* register save locations */
|
|
|
|
};
|
2002-02-22 22:58:53 +01:00
|
|
|
|
2002-02-16 00:22:05 +01:00
|
|
|
struct ia64_state_record
|
|
|
|
{
|
|
|
|
unsigned int first_region : 1; /* is this the first region? */
|
|
|
|
unsigned int done : 1; /* are we done scanning descriptors? */
|
|
|
|
unsigned int any_spills : 1; /* got any register spills? */
|
|
|
|
unsigned int in_body : 1; /* are we inside prologue or body? */
|
2002-04-03 08:51:34 +02:00
|
|
|
uint8_t *imask; /* imask of spill_mask record or NULL */
|
2003-04-23 07:56:59 +02:00
|
|
|
uint16_t abi_marker;
|
|
|
|
|
2002-02-16 00:22:05 +01:00
|
|
|
unw_word_t pr_val; /* predicate values */
|
|
|
|
unw_word_t pr_mask; /* predicate mask */
|
|
|
|
|
|
|
|
long spill_offset; /* psp-relative offset for spill base */
|
|
|
|
int region_start;
|
|
|
|
int region_len;
|
2003-02-27 10:58:57 +01:00
|
|
|
int when_sp_restored;
|
2002-02-16 00:22:05 +01:00
|
|
|
int epilogue_count;
|
|
|
|
int when_target;
|
|
|
|
|
|
|
|
uint8_t gr_save_loc; /* next save register */
|
|
|
|
uint8_t return_link_reg; /* branch register used as return pointer */
|
|
|
|
|
2002-02-22 22:58:53 +01:00
|
|
|
struct ia64_labeled_state *labeled_states;
|
|
|
|
struct ia64_reg_state curr;
|
2002-07-18 05:58:34 +02:00
|
|
|
};
|
|
|
|
|
|
|
|
struct ia64_labeled_state
|
|
|
|
{
|
|
|
|
struct ia64_labeled_state *next; /* next label (or NULL) */
|
|
|
|
unsigned long label; /* label for this state */
|
|
|
|
struct ia64_reg_state saved_state;
|
|
|
|
};
|
2002-02-16 00:22:05 +01:00
|
|
|
|
|
|
|
/* Convenience macros: */
|
2002-12-03 09:19:58 +01:00
|
|
|
#define ia64_make_proc_info UNW_OBJ(make_proc_info)
|
2003-09-18 08:09:22 +02:00
|
|
|
#define ia64_fetch_proc_info UNW_OBJ(fetch_proc_info)
|
2002-04-12 07:02:40 +02:00
|
|
|
#define ia64_create_state_record UNW_OBJ(create_state_record)
|
|
|
|
#define ia64_free_state_record UNW_OBJ(free_state_record)
|
|
|
|
#define ia64_find_save_locs UNW_OBJ(find_save_locs)
|
2004-01-21 00:32:28 +01:00
|
|
|
#define ia64_validate_cache UNW_OBJ(ia64_validate_cache)
|
|
|
|
#define ia64_local_validate_cache UNW_OBJ(ia64_local_validate_cache)
|
2002-11-12 01:43:55 +01:00
|
|
|
#define ia64_per_thread_cache UNW_OBJ(per_thread_cache)
|
2002-04-12 07:02:40 +02:00
|
|
|
#define ia64_scratch_loc UNW_OBJ(scratch_loc)
|
|
|
|
#define ia64_local_resume UNW_OBJ(local_resume)
|
2002-12-19 08:16:50 +01:00
|
|
|
#define ia64_local_addr_space_init UNW_OBJ(local_addr_space_init)
|
2003-04-23 07:56:59 +02:00
|
|
|
#define ia64_strloc UNW_OBJ(strloc)
|
2003-04-23 21:22:42 +02:00
|
|
|
#define ia64_install_cursor UNW_OBJ(install_cursor)
|
2003-04-23 07:56:59 +02:00
|
|
|
#define rbs_switch UNW_OBJ(rbs_switch)
|
|
|
|
#define rbs_find_stacked UNW_OBJ(rbs_find_stacked)
|
|
|
|
#define rbs_cover_and_flush UNW_OBJ(rbs_cover_and_flush)
|
2002-02-16 00:22:05 +01:00
|
|
|
|
2002-12-19 08:16:50 +01:00
|
|
|
extern int ia64_make_proc_info (struct cursor *c);
|
2003-09-18 08:09:22 +02:00
|
|
|
extern int ia64_fetch_proc_info (struct cursor *c, unw_word_t ip,
|
|
|
|
int need_unwind_info);
|
|
|
|
/* The proc-info must be valid for IP before this routine can be
|
|
|
|
called: */
|
2002-12-19 08:16:50 +01:00
|
|
|
extern int ia64_create_state_record (struct cursor *c,
|
2002-02-16 00:22:05 +01:00
|
|
|
struct ia64_state_record *sr);
|
|
|
|
extern int ia64_free_state_record (struct ia64_state_record *sr);
|
2002-12-19 08:16:50 +01:00
|
|
|
extern int ia64_find_save_locs (struct cursor *c);
|
2004-01-21 00:32:28 +01:00
|
|
|
extern void ia64_validate_cache (unw_addr_space_t as, void *arg);
|
|
|
|
extern int ia64_local_validate_cache (unw_addr_space_t as, void *arg);
|
2003-03-06 07:14:36 +01:00
|
|
|
extern void ia64_local_addr_space_init (void);
|
2004-02-27 09:54:25 +01:00
|
|
|
extern ia64_loc_t ia64_scratch_loc (struct cursor *c, unw_regnum_t reg,
|
|
|
|
uint8_t *nat_bitnr);
|
2002-02-16 00:22:05 +01:00
|
|
|
|
2003-12-21 08:44:16 +01:00
|
|
|
extern NORETURN void ia64_install_cursor (struct cursor *c,
|
|
|
|
unw_word_t pri_unat,
|
|
|
|
unw_word_t *extra);
|
2002-12-03 09:19:58 +01:00
|
|
|
extern int ia64_local_resume (unw_addr_space_t as, unw_cursor_t *cursor,
|
|
|
|
void *arg);
|
2003-02-21 08:36:26 +01:00
|
|
|
extern int rbs_switch (struct cursor *c,
|
|
|
|
unw_word_t saved_bsp, unw_word_t saved_bspstore,
|
2003-04-23 07:56:59 +02:00
|
|
|
ia64_loc_t saved_rnat_loc);
|
2003-01-21 18:41:20 +01:00
|
|
|
extern int rbs_find_stacked (struct cursor *c, unw_word_t regs_to_skip,
|
2003-04-23 07:56:59 +02:00
|
|
|
ia64_loc_t *locp, ia64_loc_t *rnat_locp);
|
2003-02-14 07:25:36 +01:00
|
|
|
extern int rbs_cover_and_flush (struct cursor *c, unw_word_t nregs);
|
2003-01-21 18:41:20 +01:00
|
|
|
|
2003-04-23 07:56:59 +02:00
|
|
|
/* Warning: ia64_strloc() is for debugging only and it is NOT re-entrant! */
|
|
|
|
extern const char *ia64_strloc (ia64_loc_t loc);
|
|
|
|
|
2003-04-24 22:45:07 +02:00
|
|
|
/* Return true if the register-backing store is inside a ucontext_t
|
|
|
|
that needs to be accessed via uc_access(3). */
|
|
|
|
|
|
|
|
static inline int
|
|
|
|
rbs_on_uc (struct rbs_area *rbs)
|
|
|
|
{
|
|
|
|
return IA64_IS_UC_LOC (rbs->rnat_loc) && !IA64_IS_REG_LOC (rbs->rnat_loc);
|
|
|
|
}
|
|
|
|
|
2003-02-21 08:36:26 +01:00
|
|
|
/* Return true if BSP points to a word that's stored on register
|
|
|
|
backing-store RBS. */
|
|
|
|
static inline int
|
|
|
|
rbs_contains (struct rbs_area *rbs, unw_word_t bsp)
|
|
|
|
{
|
|
|
|
int result;
|
|
|
|
|
|
|
|
/* Caveat: this takes advantage of unsigned arithmetic. The full
|
|
|
|
test is (bsp >= rbs->end - rbs->size) && (bsp < rbs->end). We
|
|
|
|
take advantage of the fact that -n == ~n + 1. */
|
|
|
|
result = bsp - rbs->end > ~rbs->size;
|
2004-01-30 01:01:24 +01:00
|
|
|
Debug (16, "0x%lx in [0x%lx-0x%lx) => %d\n",
|
2003-02-26 09:33:57 +01:00
|
|
|
(long) bsp, (long) (rbs->end - rbs->size), (long) rbs->end, result);
|
2003-02-21 08:36:26 +01:00
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
2003-11-27 07:52:54 +01:00
|
|
|
static inline ia64_loc_t
|
2003-04-23 07:56:59 +02:00
|
|
|
rbs_get_rnat_loc (struct rbs_area *rbs, unw_word_t bsp)
|
|
|
|
{
|
|
|
|
unw_word_t rnat_addr = ia64_rse_rnat_addr (bsp);
|
|
|
|
ia64_loc_t rnat_loc;
|
|
|
|
|
|
|
|
if (rbs_contains (rbs, rnat_addr))
|
|
|
|
{
|
2003-04-24 22:45:07 +02:00
|
|
|
if (rbs_on_uc (rbs))
|
2003-04-23 07:56:59 +02:00
|
|
|
rnat_loc = IA64_LOC_UC_ADDR (rnat_addr, 0);
|
|
|
|
else
|
|
|
|
rnat_loc = IA64_LOC_ADDR (rnat_addr, 0);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
rnat_loc = rbs->rnat_loc;
|
|
|
|
return rnat_loc;
|
|
|
|
}
|
|
|
|
|
2003-11-27 07:52:54 +01:00
|
|
|
static inline ia64_loc_t
|
2003-04-23 07:56:59 +02:00
|
|
|
rbs_loc (struct rbs_area *rbs, unw_word_t bsp)
|
|
|
|
{
|
2003-04-24 22:45:07 +02:00
|
|
|
if (rbs_on_uc (rbs))
|
2003-04-23 07:56:59 +02:00
|
|
|
return IA64_LOC_UC_ADDR (bsp, 0);
|
|
|
|
else
|
|
|
|
return IA64_LOC_ADDR (bsp, 0);
|
|
|
|
}
|
|
|
|
|
2003-01-21 18:41:20 +01:00
|
|
|
static inline int
|
2003-01-23 11:04:09 +01:00
|
|
|
ia64_get_stacked (struct cursor *c, unw_word_t reg,
|
2003-04-23 07:56:59 +02:00
|
|
|
ia64_loc_t *locp, ia64_loc_t *rnat_locp)
|
2003-01-21 18:41:20 +01:00
|
|
|
{
|
|
|
|
struct rbs_area *rbs = c->rbs_area + c->rbs_curr;
|
2003-04-23 07:56:59 +02:00
|
|
|
unw_word_t addr, regs_to_skip = reg - 32;
|
2003-01-21 18:41:20 +01:00
|
|
|
int ret = 0;
|
|
|
|
|
2003-01-23 11:04:09 +01:00
|
|
|
assert (reg >= 32 && reg < 128);
|
2003-01-21 18:41:20 +01:00
|
|
|
|
2003-04-23 07:56:59 +02:00
|
|
|
addr = ia64_rse_skip_regs (c->bsp, regs_to_skip);
|
2003-04-08 22:34:06 +02:00
|
|
|
if (locp)
|
2003-04-23 07:56:59 +02:00
|
|
|
*locp = rbs_loc (rbs, addr);
|
2003-01-21 18:41:20 +01:00
|
|
|
if (rnat_locp)
|
2003-04-23 07:56:59 +02:00
|
|
|
*rnat_locp = rbs_get_rnat_loc (rbs, addr);
|
2003-01-21 18:41:20 +01:00
|
|
|
|
2003-04-23 07:56:59 +02:00
|
|
|
if (!rbs_contains (rbs, addr))
|
2003-01-21 18:41:20 +01:00
|
|
|
ret = rbs_find_stacked (c, regs_to_skip, locp, rnat_locp);
|
|
|
|
return ret;
|
|
|
|
}
|
Protect against multiple inclusion. Define IA64_UNW_DEBUG based on DEBUG. Document
that in the UNW_LOCAL_ONLY-case, bit 2 in register save locations is unused. If
UNW_LOCAL_ONLY is defined, define stream-lined versions of IA64_REG_LOC(),
IA64_FPREG_LOC(), ia64_acquire_unwind_info(), ia64_release_unwind_info(), ia64_get(),
ia64_put(), ia64_getfp(), and ia64_putfp(). Drop convenience macros and declarations for
ia64_glibc_{acquire,release}_unwind_info(). Add convenience macro and declaration for
ia64_local_resume().
(Logical change 1.8)
2002-02-28 17:24:48 +01:00
|
|
|
|
2004-02-27 09:54:25 +01:00
|
|
|
/* The UNaT slot # calculation is identical to the one for RNaT slots,
|
|
|
|
but for readability/clarity, we don't want to use
|
|
|
|
ia64_rnat_slot_num() directly. */
|
|
|
|
#define ia64_unat_slot_num(addr) ia64_rse_slot_num(addr)
|
|
|
|
|
2002-02-16 00:22:05 +01:00
|
|
|
/* XXX should be in glibc: */
|
|
|
|
#ifndef IA64_SC_FLAG_ONSTACK
|
|
|
|
# define IA64_SC_FLAG_ONSTACK_BIT 0 /* running on signal stack? */
|
|
|
|
# define IA64_SC_FLAG_IN_SYSCALL_BIT 1 /* did signal interrupt a syscall? */
|
|
|
|
# define IA64_SC_FLAG_FPH_VALID_BIT 2 /* is state in f[32]-f[127] valid? */
|
|
|
|
|
|
|
|
# define IA64_SC_FLAG_ONSTACK (1 << IA64_SC_FLAG_ONSTACK_BIT)
|
|
|
|
# define IA64_SC_FLAG_IN_SYSCALL (1 << IA64_SC_FLAG_IN_SYSCALL_BIT)
|
|
|
|
# define IA64_SC_FLAG_FPH_VALID (1 << IA64_SC_FLAG_FPH_VALID_BIT)
|
|
|
|
#endif
|
Protect against multiple inclusion. Define IA64_UNW_DEBUG based on DEBUG. Document
that in the UNW_LOCAL_ONLY-case, bit 2 in register save locations is unused. If
UNW_LOCAL_ONLY is defined, define stream-lined versions of IA64_REG_LOC(),
IA64_FPREG_LOC(), ia64_acquire_unwind_info(), ia64_release_unwind_info(), ia64_get(),
ia64_put(), ia64_getfp(), and ia64_putfp(). Drop convenience macros and declarations for
ia64_glibc_{acquire,release}_unwind_info(). Add convenience macro and declaration for
ia64_local_resume().
(Logical change 1.8)
2002-02-28 17:24:48 +01:00
|
|
|
|
|
|
|
#endif /* unwind_i_h */
|