/* libunwind - a platform-independent unwind library
Copyright (C) 2002-2005 Hewlett-Packard Co
- Contributed by David Mosberger-Tang <davidm@hpl.hp.com>
+ Contributed by David Mosberger-Tang <davidm@hpl.hp.com>
Modified for x86_64 by Max Asbock <masbock@us.ibm.com>
#else
uint32_t cache_generation;
#endif
- unw_word_t dyn_generation; /* see dyn-common.h */
- unw_word_t dyn_info_list_addr; /* (cached) dyn_info_list_addr */
+ unw_word_t dyn_generation; /* see dyn-common.h */
+ unw_word_t dyn_info_list_addr; /* (cached) dyn_info_list_addr */
struct dwarf_rs_cache global_cache;
struct unw_debug_frame_list *debug_frames;
};
struct cursor
{
- struct dwarf_cursor dwarf; /* must be first */
+ struct dwarf_cursor dwarf; /* must be first */
- unw_tdep_frame_t frame_info; /* quick tracing assist info */
+ unw_tdep_frame_t frame_info; /* quick tracing assist info */
/* Format of sigcontext structure and address at which it is
stored: */
enum
{
- X86_64_SCF_NONE, /* no signal frame encountered */
- X86_64_SCF_LINUX_RT_SIGFRAME, /* Linux ucontext_t */
- X86_64_SCF_FREEBSD_SIGFRAME, /* FreeBSD signal frame */
- X86_64_SCF_FREEBSD_SYSCALL, /* FreeBSD syscall */
+ X86_64_SCF_NONE, /* no signal frame encountered */
+ X86_64_SCF_LINUX_RT_SIGFRAME, /* Linux ucontext_t */
+ X86_64_SCF_FREEBSD_SIGFRAME, /* FreeBSD signal frame */
+ X86_64_SCF_FREEBSD_SYSCALL, /* FreeBSD syscall */
}
sigcontext_format;
unw_word_t sigcontext_addr;
return c->uc;
}
-#define DWARF_GET_LOC(l) ((l).val)
+#define DWARF_GET_LOC(l) ((l).val)
+# define DWARF_LOC_TYPE_MEM (0 << 0)
+# define DWARF_LOC_TYPE_FP (1 << 0)
+# define DWARF_LOC_TYPE_REG (1 << 1)
+# define DWARF_LOC_TYPE_VAL (1 << 2)
+
+# define DWARF_IS_REG_LOC(l) (((l).type & DWARF_LOC_TYPE_REG) != 0)
+# define DWARF_IS_FP_LOC(l) (((l).type & DWARF_LOC_TYPE_FP) != 0)
+# define DWARF_IS_MEM_LOC(l) ((l).type == DWARF_LOC_TYPE_MEM)
+# define DWARF_IS_VAL_LOC(l) (((l).type & DWARF_LOC_TYPE_VAL) != 0)
+
+# define DWARF_LOC(r, t) ((dwarf_loc_t) { .val = (r), .type = (t) })
+# define DWARF_VAL_LOC(c,v) DWARF_LOC ((v), DWARF_LOC_TYPE_VAL)
+# define DWARF_MEM_LOC(c,m) DWARF_LOC ((m), DWARF_LOC_TYPE_MEM)
#ifdef UNW_LOCAL_ONLY
-# define DWARF_NULL_LOC DWARF_LOC (0, 0)
-# define DWARF_IS_NULL_LOC(l) (DWARF_GET_LOC (l) == 0)
-# define DWARF_LOC(r, t) ((dwarf_loc_t) { .val = (r) })
-# define DWARF_IS_REG_LOC(l) 0
-# define DWARF_REG_LOC(c,r) (DWARF_LOC((unw_word_t) \
- x86_64_r_uc_addr(dwarf_get_uc(c), (r)), 0))
-# define DWARF_MEM_LOC(c,m) DWARF_LOC ((m), 0)
-# define DWARF_FPREG_LOC(c,r) (DWARF_LOC((unw_word_t) \
- x86_64_r_uc_addr(dwarf_get_uc(c), (r)), 0))
+# define DWARF_NULL_LOC DWARF_LOC (0, 0)
+# define DWARF_IS_NULL_LOC(l) (DWARF_GET_LOC (l) == 0)
+# define DWARF_REG_LOC(c,r) (DWARF_LOC((unw_word_t) \
+ x86_64_r_uc_addr(dwarf_get_uc(c), (r)), 0))
+# define DWARF_FPREG_LOC(c,r) (DWARF_LOC((unw_word_t) \
+ x86_64_r_uc_addr(dwarf_get_uc(c), (r)), 0))
+
#else /* !UNW_LOCAL_ONLY */
-# define DWARF_LOC_TYPE_FP (1 << 0)
-# define DWARF_LOC_TYPE_REG (1 << 1)
-# define DWARF_NULL_LOC DWARF_LOC (0, 0)
-# define DWARF_IS_NULL_LOC(l) \
- ({ dwarf_loc_t _l = (l); _l.val == 0 && _l.type == 0; })
-# define DWARF_LOC(r, t) ((dwarf_loc_t) { .val = (r), .type = (t) })
-# define DWARF_IS_REG_LOC(l) (((l).type & DWARF_LOC_TYPE_REG) != 0)
-# define DWARF_IS_FP_LOC(l) (((l).type & DWARF_LOC_TYPE_FP) != 0)
-# define DWARF_REG_LOC(c,r) DWARF_LOC((r), DWARF_LOC_TYPE_REG)
-# define DWARF_MEM_LOC(c,m) DWARF_LOC ((m), 0)
-# define DWARF_FPREG_LOC(c,r) DWARF_LOC((r), (DWARF_LOC_TYPE_REG \
- | DWARF_LOC_TYPE_FP))
+# define DWARF_NULL_LOC DWARF_LOC (0, 0)
+# define DWARF_IS_NULL_LOC(l) \
+ ({ dwarf_loc_t _l = (l); _l.val == 0 && _l.type == 0; })
+# define DWARF_REG_LOC(c,r) DWARF_LOC((r), DWARF_LOC_TYPE_REG)
+# define DWARF_FPREG_LOC(c,r) DWARF_LOC((r), (DWARF_LOC_TYPE_REG \
+ | DWARF_LOC_TYPE_FP))
#endif /* !UNW_LOCAL_ONLY */
if (DWARF_IS_REG_LOC (loc))
return (*c->as->acc.access_reg) (c->as, DWARF_GET_LOC (loc), val,
- 0, c->as_arg);
- else
+ 0, c->as_arg);
+ if (DWARF_IS_MEM_LOC (loc))
return (*c->as->acc.access_mem) (c->as, DWARF_GET_LOC (loc), val,
- 0, c->as_arg);
+ 0, c->as_arg);
+ assert(DWARF_IS_VAL_LOC (loc));
+ *val = DWARF_GET_LOC (loc);
+ return 0;
}
static inline int
dwarf_put (struct dwarf_cursor *c, dwarf_loc_t loc, unw_word_t val)
{
+ assert(!DWARF_IS_VAL_LOC (loc));
+
if (DWARF_IS_NULL_LOC (loc))
return -UNW_EBADREG;
if (DWARF_IS_REG_LOC (loc))
return (*c->as->acc.access_reg) (c->as, DWARF_GET_LOC (loc), &val,
- 1, c->as_arg);
+ 1, c->as_arg);
else
return (*c->as->acc.access_mem) (c->as, DWARF_GET_LOC (loc), &val,
- 1, c->as_arg);
+ 1, c->as_arg);
}
-#define tdep_getcontext_trace UNW_ARCH_OBJ(getcontext_trace)
-#define tdep_init_done UNW_OBJ(init_done)
-#define tdep_init_mem_validate UNW_OBJ(init_mem_validate)
-#define tdep_init UNW_OBJ(init)
+#define tdep_getcontext_trace UNW_ARCH_OBJ(getcontext_trace)
+#define tdep_init_done UNW_OBJ(init_done)
+#define tdep_init_mem_validate UNW_OBJ(init_mem_validate)
+#define tdep_init UNW_OBJ(init)
/* Platforms that support UNW_INFO_FORMAT_TABLE need to define
tdep_search_unwind_table. */
-#define tdep_search_unwind_table dwarf_search_unwind_table
-#define tdep_find_unwind_table dwarf_find_unwind_table
-#define tdep_get_elf_image UNW_ARCH_OBJ(get_elf_image)
-#define tdep_access_reg UNW_OBJ(access_reg)
-#define tdep_access_fpreg UNW_OBJ(access_fpreg)
+#define tdep_search_unwind_table dwarf_search_unwind_table
+#define tdep_find_unwind_table dwarf_find_unwind_table
+#define tdep_get_elf_image UNW_ARCH_OBJ(get_elf_image)
+#define tdep_access_reg UNW_OBJ(access_reg)
+#define tdep_access_fpreg UNW_OBJ(access_fpreg)
#if __linux__
-# define tdep_fetch_frame UNW_OBJ(fetch_frame)
-# define tdep_cache_frame UNW_OBJ(cache_frame)
-# define tdep_reuse_frame UNW_OBJ(reuse_frame)
+# define tdep_fetch_frame UNW_OBJ(fetch_frame)
+# define tdep_cache_frame UNW_OBJ(cache_frame)
+# define tdep_reuse_frame UNW_OBJ(reuse_frame)
#else
-# define tdep_fetch_frame(c,ip,n) do {} while(0)
-# define tdep_cache_frame(c,rs) do {} while(0)
-# define tdep_reuse_frame(c,rs) do {} while(0)
+# define tdep_fetch_frame(c,ip,n) do {} while(0)
+# define tdep_cache_frame(c,rs) do {} while(0)
+# define tdep_reuse_frame(c,rs) do {} while(0)
#endif
-#define tdep_stash_frame UNW_OBJ(stash_frame)
-#define tdep_trace UNW_OBJ(tdep_trace)
+#define tdep_stash_frame UNW_OBJ(stash_frame)
+#define tdep_trace UNW_OBJ(tdep_trace)
#define x86_64_r_uc_addr UNW_OBJ(r_uc_addr)
#ifdef UNW_LOCAL_ONLY
-# define tdep_find_proc_info(c,ip,n) \
- dwarf_find_proc_info((c)->as, (ip), &(c)->pi, (n), \
- (c)->as_arg)
-# define tdep_put_unwind_info(as,pi,arg) \
- dwarf_put_unwind_info((as), (pi), (arg))
+# define tdep_find_proc_info(c,ip,n) \
+ dwarf_find_proc_info((c)->as, (ip), &(c)->pi, (n), \
+ (c)->as_arg)
+# define tdep_put_unwind_info(as,pi,arg) \
+ dwarf_put_unwind_info((as), (pi), (arg))
#else
-# define tdep_find_proc_info(c,ip,n) \
- (*(c)->as->acc.find_proc_info)((c)->as, (ip), &(c)->pi, (n), \
- (c)->as_arg)
-# define tdep_put_unwind_info(as,pi,arg) \
- (*(as)->acc.put_unwind_info)((as), (pi), (arg))
+# define tdep_find_proc_info(c,ip,n) \
+ (*(c)->as->acc.find_proc_info)((c)->as, (ip), &(c)->pi, (n), \
+ (c)->as_arg)
+# define tdep_put_unwind_info(as,pi,arg) \
+ (*(as)->acc.put_unwind_info)((as), (pi), (arg))
#endif
-#define tdep_get_as(c) ((c)->dwarf.as)
-#define tdep_get_as_arg(c) ((c)->dwarf.as_arg)
-#define tdep_get_ip(c) ((c)->dwarf.ip)
-#define tdep_big_endian(as) 0
+#define tdep_get_as(c) ((c)->dwarf.as)
+#define tdep_get_as_arg(c) ((c)->dwarf.as_arg)
+#define tdep_get_ip(c) ((c)->dwarf.ip)
+#define tdep_big_endian(as) 0
extern int tdep_init_done;
extern void tdep_init (void);
extern void tdep_init_mem_validate (void);
extern int tdep_search_unwind_table (unw_addr_space_t as, unw_word_t ip,
- unw_dyn_info_t *di, unw_proc_info_t *pi,
- int need_unwind_info, void *arg);
+ unw_dyn_info_t *di, unw_proc_info_t *pi,
+ int need_unwind_info, void *arg);
extern void *x86_64_r_uc_addr (ucontext_t *uc, int reg);
extern int tdep_get_elf_image (struct elf_image *ei, pid_t pid, unw_word_t ip,
- unsigned long *segbase, unsigned long *mapoff,
- char *path, size_t pathlen);
+ unsigned long *segbase, unsigned long *mapoff,
+ char *path, size_t pathlen);
extern int tdep_access_reg (struct cursor *c, unw_regnum_t reg,
- unw_word_t *valp, int write);
+ unw_word_t *valp, int write);
extern int tdep_access_fpreg (struct cursor *c, unw_regnum_t reg,
- unw_fpreg_t *valp, int write);
+ unw_fpreg_t *valp, int write);
#if __linux__
extern void tdep_fetch_frame (struct dwarf_cursor *c, unw_word_t ip,
- int need_unwind_info);
+ int need_unwind_info);
extern void tdep_cache_frame (struct dwarf_cursor *c,
- struct dwarf_reg_state *rs);
+ struct dwarf_reg_state *rs);
extern void tdep_reuse_frame (struct dwarf_cursor *c,
- struct dwarf_reg_state *rs);
+ struct dwarf_reg_state *rs);
extern void tdep_stash_frame (struct dwarf_cursor *c,
- struct dwarf_reg_state *rs);
+ struct dwarf_reg_state *rs);
#endif
extern int tdep_getcontext_trace (unw_tdep_context_t *);