* libunwind-frame.c: Rename to ...
* ia64-libunwind-tdep.c: ... here.
* libunwind-frame.h: Rename to ...
* ia64-libunwind-tdep.h: ... here.
* Makefile.in (HFILES_NO_SRCDIR): Rename libunwind-frame.h to
ia64-libunwind-tdep.h.
(ALLDEPFILES): Rename libunwind-frame.c to ia64-libunwind-tdep.c.
* README (--with-libunwind): Rename to ...
(--with-libunwind-ia64): ... here, note it is ia64 specific now.
* config.in: Regenerate.
* configure: Regenerate.
* configure.ac: New option --with-libunwind-ia64, make the
AS_HELP_STRING ia64 specific. Deprecate option --with-libunwind.
Remove AC_DEFINE for HAVE_LIBUNWIND.
* ia64-libunwind-tdep.c: Make the file top comment ia64 specific.
Rename libunwind-frame.h #include to ia64-libunwind-tdep.h.
Rename libunwind-frame in the general comment.
* ia64-libunwind-tdep.h: Make the file top comment ia64 specific.
Rename symbol LIBUNWIND_FRAME_H to IA64_TDEP_LIBUNWIND_FRAME_H.
Move forward declarations inside #ifndef. Rename libunwind-frame in
the general comment.
* ia64-tdep.c: Rename libunwind-frame.h #include to
ia64-libunwind-tdep.h.
(ia64_gdb2uw_regnum, ia64_uw2gdb_regnum, ia64_is_fpreg)
(ia64_libunwind_descr): Rename libunwind-frame to
ia64-libunwind-tdep in these function comments.
* ia64-tdep.h: Rename libunwind-frame.h #include to
ia64-libunwind-tdep.h.
* ia64-vms-tdep.c (ia64_vms_libunwind_descr): Rename libunwind-frame to
ia64-libunwind-tdep in that data comment.
+2012-03-08 Jan Kratochvil <jan.kratochvil@redhat.com>
+
+ * libunwind-frame.c: Rename to ...
+ * ia64-libunwind-tdep.c: ... here.
+ * libunwind-frame.h: Rename to ...
+ * ia64-libunwind-tdep.h: ... here.
+ * Makefile.in (HFILES_NO_SRCDIR): Rename libunwind-frame.h to
+ ia64-libunwind-tdep.h.
+ (ALLDEPFILES): Rename libunwind-frame.c to ia64-libunwind-tdep.c.
+ * README (--with-libunwind): Rename to ...
+ (--with-libunwind-ia64): ... here, note it is ia64 specific now.
+ * config.in: Regenerate.
+ * configure: Regenerate.
+ * configure.ac: New option --with-libunwind-ia64, make the
+ AS_HELP_STRING ia64 specific. Deprecate option --with-libunwind.
+ Remove AC_DEFINE for HAVE_LIBUNWIND.
+ * ia64-libunwind-tdep.c: Make the file top comment ia64 specific.
+ Rename libunwind-frame.h #include to ia64-libunwind-tdep.h.
+ Rename libunwind-frame in the general comment.
+ * ia64-libunwind-tdep.h: Make the file top comment ia64 specific.
+ Rename symbol LIBUNWIND_FRAME_H to IA64_TDEP_LIBUNWIND_FRAME_H.
+ Move forward declarations inside #ifndef. Rename libunwind-frame in
+ the general comment.
+ * ia64-tdep.c: Rename libunwind-frame.h #include to
+ ia64-libunwind-tdep.h.
+ (ia64_gdb2uw_regnum, ia64_uw2gdb_regnum, ia64_is_fpreg)
+ (ia64_libunwind_descr): Rename libunwind-frame to
+ ia64-libunwind-tdep in these function comments.
+ * ia64-tdep.h: Rename libunwind-frame.h #include to
+ ia64-libunwind-tdep.h.
+ * ia64-vms-tdep.c (ia64_vms_libunwind_descr): Rename libunwind-frame to
+ ia64-libunwind-tdep in that data comment.
+
2012-03-08 Jan Kratochvil <jan.kratochvil@redhat.com>
* libunwind-frame.h (struct frame_unwind): New declaration.
f-lang.h dwarf2loc.h value.h sparc-tdep.h defs.h target-descriptions.h \
objfiles.h vec.h disasm.h mips-tdep.h ser-base.h \
gdb_curses.h bfd-target.h memattr.h inferior.h ax.h dummy-frame.h \
-inflow.h fbsd-nat.h libunwind-frame.h completer.h inf-ttrace.h \
+inflow.h fbsd-nat.h ia64-libunwind-tdep.h completer.h inf-ttrace.h \
solib-target.h gdb_vfork.h alpha-tdep.h dwarf2expr.h \
m2-lang.h stack.h charset.h addrmap.h command.h solist.h source.h \
target.h prologue-value.h cp-abi.h tui/tui-hooks.h tui/tui.h \
ia64-linux-nat.c ia64-linux-tdep.c ia64-tdep.c ia64-vms-tdep.c \
inf-ptrace.c inf-ttrace.c \
irix5-nat.c \
- libunwind-frame.c \
+ ia64-libunwind-tdep.c \
linux-fork.c \
linux-tdep.c \
linux-record.c \
Build GDB with the gdbtk GUI interface. Requires TCL/Tk to be
installed.
-`--with-libunwind'
- Use the libunwind library for unwinding function call stack. See
- http://www.nongnu.org/libunwind/index.html fro details.
- Supported only on some platforms.
+`--with-libunwind-ia64'
+ Use the libunwind library for unwinding function call stack on ia64
+ target platforms.
+ See http://www.nongnu.org/libunwind/index.html for details.
`--with-curses'
Use the curses library instead of the termcap library, for
/* Define if Python 2.7 is being used. */
#undef HAVE_LIBPYTHON2_7
-/* Define if libunwind library is being used. */
-#undef HAVE_LIBUNWIND
-
/* Define to 1 if you have the <libunwind-ia64.h> header file. */
#undef HAVE_LIBUNWIND_IA64_H
enable_gdbmi
enable_tui
enable_gdbtk
-with_libunwind
+with_libunwind_ia64
with_curses
enable_profiling
with_pkgversion
[DATADIR/gdb]
--with-relocated-sources=PATH
automatically relocate this path for source files
- --with-libunwind use libunwind frame unwinding support
+ --with-libunwind-ia64 use libunwind frame unwinding for ia64 targets
--with-curses use the curses library instead of the termcap
library
--with-pkgversion=PKG Use PKG in the version string in place of "GDB"
enable_gdbtk=no ;;
esac
-# Libunwind support.
+# Libunwind support for ia64.
-# Check whether --with-libunwind was given.
-if test "${with_libunwind+set}" = set; then :
- withval=$with_libunwind; case "${withval}" in
- yes) enable_libunwind=yes ;;
- no) enable_libunwind=no ;;
- *) as_fn_error "bad value ${withval} for GDB with-libunwind option" "$LINENO" 5 ;;
-esac
+
+# Check whether --with-libunwind-ia64 was given.
+if test "${with_libunwind_ia64+set}" = set; then :
+ withval=$with_libunwind_ia64;
else
+ with_libunwind_ia64=auto
+fi
- for ac_header in libunwind-ia64.h
+
+# Backward compatibility option.
+if test "${with_libunwind+set}" = set; then
+ if test x"$with_libunwind_ia64" != xauto; then
+ as_fn_error "option --with-libunwind is deprecated, use --with-libunwind-ia64" "$LINENO" 5
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: option --with-libunwind is deprecated, use --with-libunwind-ia64" >&5
+$as_echo "$as_me: WARNING: option --with-libunwind is deprecated, use --with-libunwind-ia64" >&2;}
+ with_libunwind_ia64="$with_libunwind"
+fi
+
+case "$with_libunwind_ia64" in
+ yes | no)
+ ;;
+ auto)
+ for ac_header in libunwind-ia64.h
do :
ac_fn_c_check_header_mongrel "$LINENO" "libunwind-ia64.h" "ac_cv_header_libunwind_ia64_h" "$ac_includes_default"
if test "x$ac_cv_header_libunwind_ia64_h" = x""yes; then :
done
- if test x"$ac_cv_header_libunwind_ia64_h" = xyes; then
- enable_libunwind=yes;
- fi
-
-fi
-
+ with_libunwind_ia64=$ac_cv_header_libunwind_ia64_h
+ ;;
+ *)
+ as_fn_error "bad value $with_libunwind_ia64 for GDB --with-libunwind-ia64 option" "$LINENO" 5
+ ;;
+esac
-if test x"$enable_libunwind" = xyes; then
+if test x"$with_libunwind_ia64" = xyes; then
for ac_header in libunwind-ia64.h
do :
ac_fn_c_check_header_mongrel "$LINENO" "libunwind-ia64.h" "ac_cv_header_libunwind_ia64_h" "$ac_includes_default"
done
-
-$as_echo "#define HAVE_LIBUNWIND 1" >>confdefs.h
-
- CONFIG_OBS="$CONFIG_OBS libunwind-frame.o"
- CONFIG_DEPS="$CONFIG_DEPS libunwind-frame.o"
- CONFIG_SRCS="$CONFIG_SRCS libunwind-frame.c"
+ if test x"$ac_cv_header_libunwind_ia64_h" != xyes; then
+ as_fn_error "GDB option --with-libunwind-ia64 requires libunwind-ia64.h" "$LINENO" 5
+ fi
+ CONFIG_OBS="$CONFIG_OBS ia64-libunwind-tdep.o"
+ CONFIG_DEPS="$CONFIG_DEPS ia64-libunwind-tdep.o"
+ CONFIG_SRCS="$CONFIG_SRCS ia64-libunwind-tdep.c"
fi
opt_curses=no
enable_gdbtk=no ;;
esac
-# Libunwind support.
-AC_ARG_WITH(libunwind,
-AS_HELP_STRING([--with-libunwind], [use libunwind frame unwinding support]),
-[case "${withval}" in
- yes) enable_libunwind=yes ;;
- no) enable_libunwind=no ;;
- *) AC_MSG_ERROR(bad value ${withval} for GDB with-libunwind option) ;;
-esac],[
- AC_CHECK_HEADERS(libunwind-ia64.h)
- if test x"$ac_cv_header_libunwind_ia64_h" = xyes; then
- enable_libunwind=yes;
+# Libunwind support for ia64.
+
+AC_ARG_WITH(libunwind-ia64,
+AS_HELP_STRING([--with-libunwind-ia64],
+ [use libunwind frame unwinding for ia64 targets]),,
+ [with_libunwind_ia64=auto])
+
+# Backward compatibility option.
+if test "${with_libunwind+set}" = set; then
+ if test x"$with_libunwind_ia64" != xauto; then
+ AC_MSG_ERROR(
+ [option --with-libunwind is deprecated, use --with-libunwind-ia64])
fi
-])
-
-if test x"$enable_libunwind" = xyes; then
+ AC_MSG_WARN([option --with-libunwind is deprecated, use --with-libunwind-ia64])
+ with_libunwind_ia64="$with_libunwind"
+fi
+
+case "$with_libunwind_ia64" in
+ yes | no)
+ ;;
+ auto)
+ AC_CHECK_HEADERS(libunwind-ia64.h)
+ with_libunwind_ia64=$ac_cv_header_libunwind_ia64_h
+ ;;
+ *)
+ AC_MSG_ERROR(
+ [bad value $with_libunwind_ia64 for GDB --with-libunwind-ia64 option])
+ ;;
+esac
+
+if test x"$with_libunwind_ia64" = xyes; then
AC_CHECK_HEADERS(libunwind-ia64.h)
- AC_DEFINE(HAVE_LIBUNWIND, 1, [Define if libunwind library is being used.])
- CONFIG_OBS="$CONFIG_OBS libunwind-frame.o"
- CONFIG_DEPS="$CONFIG_DEPS libunwind-frame.o"
- CONFIG_SRCS="$CONFIG_SRCS libunwind-frame.c"
+ if test x"$ac_cv_header_libunwind_ia64_h" != xyes; then
+ AC_MSG_ERROR([GDB option --with-libunwind-ia64 requires libunwind-ia64.h])
+ fi
+ CONFIG_OBS="$CONFIG_OBS ia64-libunwind-tdep.o"
+ CONFIG_DEPS="$CONFIG_DEPS ia64-libunwind-tdep.o"
+ CONFIG_SRCS="$CONFIG_SRCS ia64-libunwind-tdep.c"
fi
opt_curses=no
--- /dev/null
+/* Frame unwinder for ia64 frames using the libunwind library.
+
+ Copyright (C) 2003-2004, 2006-2012 Free Software Foundation, Inc.
+
+ Written by Jeff Johnston, contributed by Red Hat Inc.
+
+ This file is part of GDB.
+
+ This program 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 of the License, or
+ (at your option) any later version.
+
+ This program 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.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "defs.h"
+
+#include "inferior.h"
+#include "frame.h"
+#include "frame-base.h"
+#include "frame-unwind.h"
+#include "gdbcore.h"
+#include "gdbtypes.h"
+#include "symtab.h"
+#include "objfiles.h"
+#include "regcache.h"
+
+#include <dlfcn.h>
+
+#include "gdb_assert.h"
+#include "gdb_string.h"
+
+#include "ia64-libunwind-tdep.h"
+
+#include "complaints.h"
+
+/* IA-64 is the only target that currently uses ia64-libunwind-tdep.
+ Note how UNW_TARGET, UNW_OBJ, etc. are compile time constants below.
+ Those come from libunwind's headers, and are target dependent.
+ Also, some of libunwind's typedefs are target dependent, as e.g.,
+ unw_word_t. If some other target wants to use this, we will need
+ to do some abstracting in order to make it possible to select which
+ libunwind we're talking to at runtime (and have one per arch). */
+
+/* The following two macros are normally defined in <endian.h>.
+ But systems such as ia64-hpux do not provide such header, so
+ we just define them here if not already defined. */
+#ifndef __LITTLE_ENDIAN
+#define __LITTLE_ENDIAN 1234
+#endif
+#ifndef __BIG_ENDIAN
+#define __BIG_ENDIAN 4321
+#endif
+
+static int libunwind_initialized;
+static struct gdbarch_data *libunwind_descr_handle;
+
+/* Required function pointers from libunwind. */
+static int (*unw_get_reg_p) (unw_cursor_t *, unw_regnum_t, unw_word_t *);
+static int (*unw_get_fpreg_p) (unw_cursor_t *, unw_regnum_t, unw_fpreg_t *);
+static int (*unw_get_saveloc_p) (unw_cursor_t *, unw_regnum_t,
+ unw_save_loc_t *);
+static int (*unw_is_signal_frame_p) (unw_cursor_t *);
+static int (*unw_step_p) (unw_cursor_t *);
+static int (*unw_init_remote_p) (unw_cursor_t *, unw_addr_space_t, void *);
+static unw_addr_space_t (*unw_create_addr_space_p) (unw_accessors_t *, int);
+static void (*unw_destroy_addr_space_p) (unw_addr_space_t);
+static int (*unw_search_unwind_table_p) (unw_addr_space_t, unw_word_t,
+ unw_dyn_info_t *,
+ unw_proc_info_t *, int, void *);
+static unw_word_t (*unw_find_dyn_list_p) (unw_addr_space_t, unw_dyn_info_t *,
+ void *);
+
+
+struct libunwind_frame_cache
+{
+ CORE_ADDR base;
+ CORE_ADDR func_addr;
+ unw_cursor_t cursor;
+ unw_addr_space_t as;
+};
+
+/* We need to qualify the function names with a platform-specific prefix
+ to match the names used by the libunwind library. The UNW_OBJ macro is
+ provided by the libunwind.h header file. */
+#define STRINGIFY2(name) #name
+#define STRINGIFY(name) STRINGIFY2(name)
+
+#ifndef LIBUNWIND_SO
+/* Use the stable ABI major version number. `libunwind-ia64.so' is a link time
+ only library, not a runtime one. */
+#define LIBUNWIND_SO "libunwind-" STRINGIFY(UNW_TARGET) ".so.8"
+
+/* Provide also compatibility with older .so. The two APIs are compatible, .8
+ is only extended a bit, GDB does not use the extended API at all. */
+#define LIBUNWIND_SO_7 "libunwind-" STRINGIFY(UNW_TARGET) ".so.7"
+#endif
+
+static char *get_reg_name = STRINGIFY(UNW_OBJ(get_reg));
+static char *get_fpreg_name = STRINGIFY(UNW_OBJ(get_fpreg));
+static char *get_saveloc_name = STRINGIFY(UNW_OBJ(get_save_loc));
+static char *is_signal_frame_name = STRINGIFY(UNW_OBJ(is_signal_frame));
+static char *step_name = STRINGIFY(UNW_OBJ(step));
+static char *init_remote_name = STRINGIFY(UNW_OBJ(init_remote));
+static char *create_addr_space_name = STRINGIFY(UNW_OBJ(create_addr_space));
+static char *destroy_addr_space_name = STRINGIFY(UNW_OBJ(destroy_addr_space));
+static char *search_unwind_table_name
+ = STRINGIFY(UNW_OBJ(search_unwind_table));
+static char *find_dyn_list_name = STRINGIFY(UNW_OBJ(find_dyn_list));
+
+static struct libunwind_descr *
+libunwind_descr (struct gdbarch *gdbarch)
+{
+ return gdbarch_data (gdbarch, libunwind_descr_handle);
+}
+
+static void *
+libunwind_descr_init (struct gdbarch *gdbarch)
+{
+ struct libunwind_descr *descr
+ = GDBARCH_OBSTACK_ZALLOC (gdbarch, struct libunwind_descr);
+
+ return descr;
+}
+
+void
+libunwind_frame_set_descr (struct gdbarch *gdbarch,
+ struct libunwind_descr *descr)
+{
+ struct libunwind_descr *arch_descr;
+
+ gdb_assert (gdbarch != NULL);
+
+ arch_descr = gdbarch_data (gdbarch, libunwind_descr_handle);
+
+ if (arch_descr == NULL)
+ {
+ /* First time here. Must initialize data area. */
+ arch_descr = libunwind_descr_init (gdbarch);
+ deprecated_set_gdbarch_data (gdbarch,
+ libunwind_descr_handle, arch_descr);
+ }
+
+ /* Copy new descriptor info into arch descriptor. */
+ arch_descr->gdb2uw = descr->gdb2uw;
+ arch_descr->uw2gdb = descr->uw2gdb;
+ arch_descr->is_fpreg = descr->is_fpreg;
+ arch_descr->accessors = descr->accessors;
+ arch_descr->special_accessors = descr->special_accessors;
+}
+
+static struct libunwind_frame_cache *
+libunwind_frame_cache (struct frame_info *this_frame, void **this_cache)
+{
+ unw_accessors_t *acc;
+ unw_addr_space_t as;
+ unw_word_t fp;
+ unw_regnum_t uw_sp_regnum;
+ struct libunwind_frame_cache *cache;
+ struct libunwind_descr *descr;
+ struct gdbarch *gdbarch = get_frame_arch (this_frame);
+ int i, ret;
+
+ if (*this_cache)
+ return *this_cache;
+
+ /* Allocate a new cache. */
+ cache = FRAME_OBSTACK_ZALLOC (struct libunwind_frame_cache);
+
+ cache->func_addr = get_frame_func (this_frame);
+ if (cache->func_addr == 0)
+ /* This can happen when the frame corresponds to a function for which
+ there is no debugging information nor any entry in the symbol table.
+ This is probably a static function for which an entry in the symbol
+ table was not created when the objfile got linked (observed in
+ libpthread.so on ia64-hpux).
+
+ The best we can do, in that case, is use the frame PC as the function
+ address. We don't need to give up since we still have the unwind
+ record to help us perform the unwinding. There is also another
+ compelling to continue, because abandonning now means stopping
+ the backtrace, which can never be helpful for the user. */
+ cache->func_addr = get_frame_pc (this_frame);
+
+ /* Get a libunwind cursor to the previous frame.
+
+ We do this by initializing a cursor. Libunwind treats a new cursor
+ as the top of stack and will get the current register set via the
+ libunwind register accessor. Now, we provide the platform-specific
+ accessors and we set up the register accessor to use the frame
+ register unwinding interfaces so that we properly get the registers
+ for the current frame rather than the top. We then use the unw_step
+ function to move the libunwind cursor back one frame. We can later
+ use this cursor to find previous registers via the unw_get_reg
+ interface which will invoke libunwind's special logic. */
+ descr = libunwind_descr (gdbarch);
+ acc = descr->accessors;
+ as = unw_create_addr_space_p (acc,
+ gdbarch_byte_order (gdbarch)
+ == BFD_ENDIAN_BIG
+ ? __BIG_ENDIAN
+ : __LITTLE_ENDIAN);
+
+ unw_init_remote_p (&cache->cursor, as, this_frame);
+ if (unw_step_p (&cache->cursor) < 0)
+ {
+ unw_destroy_addr_space_p (as);
+ return NULL;
+ }
+
+ /* To get base address, get sp from previous frame. */
+ uw_sp_regnum = descr->gdb2uw (gdbarch_sp_regnum (gdbarch));
+ ret = unw_get_reg_p (&cache->cursor, uw_sp_regnum, &fp);
+ if (ret < 0)
+ {
+ unw_destroy_addr_space_p (as);
+ error (_("Can't get libunwind sp register."));
+ }
+
+ cache->base = (CORE_ADDR)fp;
+ cache->as = as;
+
+ *this_cache = cache;
+ return cache;
+}
+
+void
+libunwind_frame_dealloc_cache (struct frame_info *self, void *this_cache)
+{
+ struct libunwind_frame_cache *cache = this_cache;
+
+ if (cache->as)
+ unw_destroy_addr_space_p (cache->as);
+}
+
+unw_word_t
+libunwind_find_dyn_list (unw_addr_space_t as, unw_dyn_info_t *di, void *arg)
+{
+ return unw_find_dyn_list_p (as, di, arg);
+}
+
+/* Verify if there is sufficient libunwind information for the frame to use
+ libunwind frame unwinding. */
+int
+libunwind_frame_sniffer (const struct frame_unwind *self,
+ struct frame_info *this_frame, void **this_cache)
+{
+ unw_cursor_t cursor;
+ unw_accessors_t *acc;
+ unw_addr_space_t as;
+ struct libunwind_descr *descr;
+ struct gdbarch *gdbarch = get_frame_arch (this_frame);
+ int i, ret;
+
+ /* To test for libunwind unwind support, initialize a cursor to
+ the current frame and try to back up. We use this same method
+ when setting up the frame cache (see libunwind_frame_cache()).
+ If libunwind returns success for this operation, it means that
+ it has found sufficient libunwind unwinding information to do so. */
+
+ descr = libunwind_descr (gdbarch);
+ acc = descr->accessors;
+ as = unw_create_addr_space_p (acc,
+ gdbarch_byte_order (gdbarch)
+ == BFD_ENDIAN_BIG
+ ? __BIG_ENDIAN
+ : __LITTLE_ENDIAN);
+
+ ret = unw_init_remote_p (&cursor, as, this_frame);
+
+ if (ret < 0)
+ {
+ unw_destroy_addr_space_p (as);
+ return 0;
+ }
+
+
+ /* Check to see if we have libunwind info by checking if we are in a
+ signal frame. If it doesn't return an error, we have libunwind info
+ and can use libunwind. */
+ ret = unw_is_signal_frame_p (&cursor);
+ unw_destroy_addr_space_p (as);
+
+ if (ret < 0)
+ return 0;
+
+ return 1;
+}
+
+void
+libunwind_frame_this_id (struct frame_info *this_frame, void **this_cache,
+ struct frame_id *this_id)
+{
+ struct libunwind_frame_cache *cache =
+ libunwind_frame_cache (this_frame, this_cache);
+
+ if (cache != NULL)
+ (*this_id) = frame_id_build (cache->base, cache->func_addr);
+}
+
+struct value *
+libunwind_frame_prev_register (struct frame_info *this_frame,
+ void **this_cache, int regnum)
+{
+ struct libunwind_frame_cache *cache =
+ libunwind_frame_cache (this_frame, this_cache);
+ struct gdbarch *gdbarch = get_frame_arch (this_frame);
+
+ void *ptr;
+ unw_cursor_t *c;
+ unw_save_loc_t sl;
+ int i, ret;
+ unw_word_t intval;
+ unw_fpreg_t fpval;
+ unw_regnum_t uw_regnum;
+ struct libunwind_descr *descr;
+ struct value *val = NULL;
+
+ if (cache == NULL)
+ return frame_unwind_got_constant (this_frame, regnum, 0);
+
+ /* Convert from gdb register number to libunwind register number. */
+ descr = libunwind_descr (get_frame_arch (this_frame));
+ uw_regnum = descr->gdb2uw (regnum);
+
+ gdb_assert (regnum >= 0);
+
+ if (!target_has_registers)
+ error (_("No registers."));
+
+ if (uw_regnum < 0)
+ return frame_unwind_got_constant (this_frame, regnum, 0);
+
+ if (unw_get_saveloc_p (&cache->cursor, uw_regnum, &sl) < 0)
+ return frame_unwind_got_constant (this_frame, regnum, 0);
+
+ switch (sl.type)
+ {
+ case UNW_SLT_MEMORY:
+ val = frame_unwind_got_memory (this_frame, regnum, sl.u.addr);
+ break;
+
+ case UNW_SLT_REG:
+ val = frame_unwind_got_register (this_frame, regnum,
+ descr->uw2gdb (sl.u.regnum));
+ break;
+ case UNW_SLT_NONE:
+ {
+ /* The register is not stored at a specific memory address nor
+ inside another register. So use libunwind to fetch the register
+ value for us, and create a constant value with the result. */
+ if (descr->is_fpreg (uw_regnum))
+ {
+ ret = unw_get_fpreg_p (&cache->cursor, uw_regnum, &fpval);
+ if (ret < 0)
+ return frame_unwind_got_constant (this_frame, regnum, 0);
+ val = frame_unwind_got_bytes (this_frame, regnum,
+ (gdb_byte *) &fpval);
+ }
+ else
+ {
+ ret = unw_get_reg_p (&cache->cursor, uw_regnum, &intval);
+ if (ret < 0)
+ return frame_unwind_got_constant (this_frame, regnum, 0);
+ val = frame_unwind_got_constant (this_frame, regnum, intval);
+ }
+ break;
+ }
+ }
+
+ return val;
+}
+
+/* The following is a glue routine to call the libunwind unwind table
+ search function to get unwind information for a specified ip address. */
+int
+libunwind_search_unwind_table (void *as, long ip, void *di,
+ void *pi, int need_unwind_info, void *args)
+{
+ return unw_search_unwind_table_p (*(unw_addr_space_t *)as, (unw_word_t )ip,
+ di, pi, need_unwind_info, args);
+}
+
+/* Verify if we are in a sigtramp frame and we can use libunwind to unwind. */
+int
+libunwind_sigtramp_frame_sniffer (const struct frame_unwind *self,
+ struct frame_info *this_frame,
+ void **this_cache)
+{
+ unw_cursor_t cursor;
+ unw_accessors_t *acc;
+ unw_addr_space_t as;
+ struct libunwind_descr *descr;
+ struct gdbarch *gdbarch = get_frame_arch (this_frame);
+ int i, ret;
+
+ /* To test for libunwind unwind support, initialize a cursor to the
+ current frame and try to back up. We use this same method when
+ setting up the frame cache (see libunwind_frame_cache()). If
+ libunwind returns success for this operation, it means that it
+ has found sufficient libunwind unwinding information to do
+ so. */
+
+ descr = libunwind_descr (gdbarch);
+ acc = descr->accessors;
+ as = unw_create_addr_space_p (acc,
+ gdbarch_byte_order (gdbarch)
+ == BFD_ENDIAN_BIG
+ ? __BIG_ENDIAN
+ : __LITTLE_ENDIAN);
+
+ ret = unw_init_remote_p (&cursor, as, this_frame);
+
+ if (ret < 0)
+ {
+ unw_destroy_addr_space_p (as);
+ return 0;
+ }
+
+ /* Check to see if we are in a signal frame. */
+ ret = unw_is_signal_frame_p (&cursor);
+ unw_destroy_addr_space_p (as);
+ if (ret > 0)
+ return 1;
+
+ return 0;
+}
+
+/* The following routine is for accessing special registers of the top frame.
+ A special set of accessors must be given that work without frame info.
+ This is used by ia64 to access the rse registers r32-r127. While they
+ are usually located at BOF, this is not always true and only the libunwind
+ info can decipher where they actually are. */
+int
+libunwind_get_reg_special (struct gdbarch *gdbarch, struct regcache *regcache,
+ int regnum, void *buf)
+{
+ unw_cursor_t cursor;
+ unw_accessors_t *acc;
+ unw_addr_space_t as;
+ struct libunwind_descr *descr;
+ int ret;
+ unw_regnum_t uw_regnum;
+ unw_word_t intval;
+ unw_fpreg_t fpval;
+ void *ptr;
+
+
+ descr = libunwind_descr (gdbarch);
+ acc = descr->special_accessors;
+ as = unw_create_addr_space_p (acc,
+ gdbarch_byte_order (gdbarch)
+ == BFD_ENDIAN_BIG
+ ? __BIG_ENDIAN
+ : __LITTLE_ENDIAN);
+
+ ret = unw_init_remote_p (&cursor, as, regcache);
+ if (ret < 0)
+ {
+ unw_destroy_addr_space_p (as);
+ return -1;
+ }
+
+ uw_regnum = descr->gdb2uw (regnum);
+
+ if (descr->is_fpreg (uw_regnum))
+ {
+ ret = unw_get_fpreg_p (&cursor, uw_regnum, &fpval);
+ ptr = &fpval;
+ }
+ else
+ {
+ ret = unw_get_reg_p (&cursor, uw_regnum, &intval);
+ ptr = &intval;
+ }
+
+ unw_destroy_addr_space_p (as);
+
+ if (ret < 0)
+ return -1;
+
+ if (buf)
+ memcpy (buf, ptr, register_size (gdbarch, regnum));
+
+ return 0;
+}
+
+static int
+libunwind_load (void)
+{
+ void *handle;
+ char *so_error = NULL;
+
+ handle = dlopen (LIBUNWIND_SO, RTLD_NOW);
+ if (handle == NULL)
+ {
+ so_error = xstrdup (dlerror ());
+#ifdef LIBUNWIND_SO_7
+ handle = dlopen (LIBUNWIND_SO_7, RTLD_NOW);
+#endif /* LIBUNWIND_SO_7 */
+ }
+ if (handle == NULL)
+ {
+ fprintf_unfiltered (gdb_stderr, _("[GDB failed to load %s: %s]\n"),
+ LIBUNWIND_SO, so_error);
+#ifdef LIBUNWIND_SO_7
+ fprintf_unfiltered (gdb_stderr, _("[GDB failed to load %s: %s]\n"),
+ LIBUNWIND_SO_7, dlerror ());
+#endif /* LIBUNWIND_SO_7 */
+ }
+ xfree (so_error);
+ if (handle == NULL)
+ return 0;
+
+ /* Initialize pointers to the dynamic library functions we will use. */
+
+ unw_get_reg_p = dlsym (handle, get_reg_name);
+ if (unw_get_reg_p == NULL)
+ return 0;
+
+ unw_get_fpreg_p = dlsym (handle, get_fpreg_name);
+ if (unw_get_fpreg_p == NULL)
+ return 0;
+
+ unw_get_saveloc_p = dlsym (handle, get_saveloc_name);
+ if (unw_get_saveloc_p == NULL)
+ return 0;
+
+ unw_is_signal_frame_p = dlsym (handle, is_signal_frame_name);
+ if (unw_is_signal_frame_p == NULL)
+ return 0;
+
+ unw_step_p = dlsym (handle, step_name);
+ if (unw_step_p == NULL)
+ return 0;
+
+ unw_init_remote_p = dlsym (handle, init_remote_name);
+ if (unw_init_remote_p == NULL)
+ return 0;
+
+ unw_create_addr_space_p = dlsym (handle, create_addr_space_name);
+ if (unw_create_addr_space_p == NULL)
+ return 0;
+
+ unw_destroy_addr_space_p = dlsym (handle, destroy_addr_space_name);
+ if (unw_destroy_addr_space_p == NULL)
+ return 0;
+
+ unw_search_unwind_table_p = dlsym (handle, search_unwind_table_name);
+ if (unw_search_unwind_table_p == NULL)
+ return 0;
+
+ unw_find_dyn_list_p = dlsym (handle, find_dyn_list_name);
+ if (unw_find_dyn_list_p == NULL)
+ return 0;
+
+ return 1;
+}
+
+int
+libunwind_is_initialized (void)
+{
+ return libunwind_initialized;
+}
+
+/* Provide a prototype to silence -Wmissing-prototypes. */
+void _initialize_libunwind_frame (void);
+
+void
+_initialize_libunwind_frame (void)
+{
+ libunwind_descr_handle
+ = gdbarch_data_register_post_init (libunwind_descr_init);
+
+ libunwind_initialized = libunwind_load ();
+}
--- /dev/null
+/* Frame unwinder for ia64 frames with libunwind frame information.
+
+ Copyright (C) 2003, 2006-2012 Free Software Foundation, Inc.
+
+ Contributed by Jeff Johnston.
+
+ This file is part of GDB.
+
+ This program 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 of the License, or
+ (at your option) any later version.
+
+ This program 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.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#ifndef IA64_LIBUNWIND_TDEP_H
+#define IA64_LIBUNWIND_TDEP_H 1
+
+struct frame_info;
+struct frame_id;
+struct regcache;
+struct gdbarch;
+struct frame_unwind;
+
+/* IA-64 is the only target that currently uses libunwind. If some
+ other target wants to use it, we will need to do some abstracting
+ in order to make it possible to have more than one
+ ia64-libunwind-tdep instance. Including "libunwind.h" is wrong as
+ that ends up including the libunwind-$(arch).h for the host gdb is
+ running on. */
+#include "libunwind-ia64.h"
+
+struct libunwind_descr
+{
+ int (*gdb2uw) (int);
+ int (*uw2gdb) (int);
+ int (*is_fpreg) (int);
+ void *accessors;
+ void *special_accessors;
+};
+
+int libunwind_frame_sniffer (const struct frame_unwind *self,
+ struct frame_info *this_frame,
+ void **this_cache);
+
+int libunwind_sigtramp_frame_sniffer (const struct frame_unwind *self,
+ struct frame_info *this_frame,
+ void **this_cache);
+
+void libunwind_frame_set_descr (struct gdbarch *arch,
+ struct libunwind_descr *descr);
+
+void libunwind_frame_this_id (struct frame_info *this_frame, void **this_cache,
+ struct frame_id *this_id);
+struct value *libunwind_frame_prev_register (struct frame_info *this_frame,
+ void **this_cache, int regnum);
+void libunwind_frame_dealloc_cache (struct frame_info *self, void *cache);
+
+int libunwind_is_initialized (void);
+
+int libunwind_search_unwind_table (void *as, long ip, void *di,
+ void *pi, int need_unwind_info, void *args);
+
+unw_word_t libunwind_find_dyn_list (unw_addr_space_t, unw_dyn_info_t *,
+ void *);
+
+int libunwind_get_reg_special (struct gdbarch *gdbarch,
+ struct regcache *regcache,
+ int regnum, void *buf);
+
+#endif /* IA64_LIBUNWIND_TDEP_H */
#ifdef HAVE_LIBUNWIND_IA64_H
#include "elf/ia64.h" /* for PT_IA_64_UNWIND value */
-#include "libunwind-frame.h"
+#include "ia64-libunwind-tdep.h"
/* Note: KERNEL_START is supposed to be an address which is not going
to ever contain any valid unwind info. For ia64 linux, the choice
return addr + ((num_regs + delta/0x3f) << 3);
}
-/* Gdb libunwind-frame callback function to convert from an ia64 gdb register
- number to a libunwind register number. */
+/* Gdb ia64-libunwind-tdep callback function to convert from an ia64 gdb
+ register number to a libunwind register number. */
static int
ia64_gdb2uw_regnum (int regnum)
{
return -1;
}
-/* Gdb libunwind-frame callback function to convert from a libunwind register
- number to a ia64 gdb register number. */
+/* Gdb ia64-libunwind-tdep callback function to convert from a libunwind
+ register number to a ia64 gdb register number. */
static int
ia64_uw2gdb_regnum (int uw_regnum)
{
return -1;
}
-/* Gdb libunwind-frame callback function to reveal if register is a float
- register or not. */
+/* Gdb ia64-libunwind-tdep callback function to reveal if register is
+ a float register or not. */
static int
ia64_is_fpreg (int uw_regnum)
{
/* get_proc_name */
};
-/* Set of ia64 gdb libunwind-frame callbacks and data for generic
- libunwind-frame code to use. */
+/* Set of ia64-libunwind-tdep gdb callbacks and data for generic
+ ia64-libunwind-tdep code to use. */
struct libunwind_descr ia64_libunwind_descr =
{
ia64_gdb2uw_regnum,
#ifdef HAVE_LIBUNWIND_IA64_H
#include "libunwind-ia64.h"
-#include "libunwind-frame.h"
+#include "ia64-libunwind-tdep.h"
#endif
/* Register numbers of various important registers. */
static unw_accessors_t ia64_vms_unw_accessors;
static unw_accessors_t ia64_vms_unw_rse_accessors;
-/* Set of ia64 gdb libunwind-frame callbacks and data for generic
- libunwind-frame code to use. */
+/* Set of ia64-libunwind-tdep gdb callbacks and data for generic
+ ia64-libunwind-tdep code to use. */
static struct libunwind_descr ia64_vms_libunwind_descr;
#endif /* HAVE_LIBUNWIND_IA64_H */
+++ /dev/null
-/* Frame unwinder for frames using the libunwind library.
-
- Copyright (C) 2003-2004, 2006-2012 Free Software Foundation, Inc.
-
- Written by Jeff Johnston, contributed by Red Hat Inc.
-
- This file is part of GDB.
-
- This program 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 of the License, or
- (at your option) any later version.
-
- This program 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.
-
- You should have received a copy of the GNU General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>. */
-
-#include "defs.h"
-
-#include "inferior.h"
-#include "frame.h"
-#include "frame-base.h"
-#include "frame-unwind.h"
-#include "gdbcore.h"
-#include "gdbtypes.h"
-#include "symtab.h"
-#include "objfiles.h"
-#include "regcache.h"
-
-#include <dlfcn.h>
-
-#include "gdb_assert.h"
-#include "gdb_string.h"
-
-#include "libunwind-frame.h"
-
-#include "complaints.h"
-
-/* IA-64 is the only target that currently uses libunwind-frame. Note
- how UNW_TARGET, UNW_OBJ, etc. are compile time constants below.
- Those come from libunwind's headers, and are target dependent.
- Also, some of libunwind's typedefs are target dependent, as e.g.,
- unw_word_t. If some other target wants to use this, we will need
- to do some abstracting in order to make it possible to select which
- libunwind we're talking to at runtime (and have one per arch). */
-
-/* The following two macros are normally defined in <endian.h>.
- But systems such as ia64-hpux do not provide such header, so
- we just define them here if not already defined. */
-#ifndef __LITTLE_ENDIAN
-#define __LITTLE_ENDIAN 1234
-#endif
-#ifndef __BIG_ENDIAN
-#define __BIG_ENDIAN 4321
-#endif
-
-static int libunwind_initialized;
-static struct gdbarch_data *libunwind_descr_handle;
-
-/* Required function pointers from libunwind. */
-static int (*unw_get_reg_p) (unw_cursor_t *, unw_regnum_t, unw_word_t *);
-static int (*unw_get_fpreg_p) (unw_cursor_t *, unw_regnum_t, unw_fpreg_t *);
-static int (*unw_get_saveloc_p) (unw_cursor_t *, unw_regnum_t,
- unw_save_loc_t *);
-static int (*unw_is_signal_frame_p) (unw_cursor_t *);
-static int (*unw_step_p) (unw_cursor_t *);
-static int (*unw_init_remote_p) (unw_cursor_t *, unw_addr_space_t, void *);
-static unw_addr_space_t (*unw_create_addr_space_p) (unw_accessors_t *, int);
-static void (*unw_destroy_addr_space_p) (unw_addr_space_t);
-static int (*unw_search_unwind_table_p) (unw_addr_space_t, unw_word_t,
- unw_dyn_info_t *,
- unw_proc_info_t *, int, void *);
-static unw_word_t (*unw_find_dyn_list_p) (unw_addr_space_t, unw_dyn_info_t *,
- void *);
-
-
-struct libunwind_frame_cache
-{
- CORE_ADDR base;
- CORE_ADDR func_addr;
- unw_cursor_t cursor;
- unw_addr_space_t as;
-};
-
-/* We need to qualify the function names with a platform-specific prefix
- to match the names used by the libunwind library. The UNW_OBJ macro is
- provided by the libunwind.h header file. */
-#define STRINGIFY2(name) #name
-#define STRINGIFY(name) STRINGIFY2(name)
-
-#ifndef LIBUNWIND_SO
-/* Use the stable ABI major version number. `libunwind-ia64.so' is a link time
- only library, not a runtime one. */
-#define LIBUNWIND_SO "libunwind-" STRINGIFY(UNW_TARGET) ".so.8"
-
-/* Provide also compatibility with older .so. The two APIs are compatible, .8
- is only extended a bit, GDB does not use the extended API at all. */
-#define LIBUNWIND_SO_7 "libunwind-" STRINGIFY(UNW_TARGET) ".so.7"
-#endif
-
-static char *get_reg_name = STRINGIFY(UNW_OBJ(get_reg));
-static char *get_fpreg_name = STRINGIFY(UNW_OBJ(get_fpreg));
-static char *get_saveloc_name = STRINGIFY(UNW_OBJ(get_save_loc));
-static char *is_signal_frame_name = STRINGIFY(UNW_OBJ(is_signal_frame));
-static char *step_name = STRINGIFY(UNW_OBJ(step));
-static char *init_remote_name = STRINGIFY(UNW_OBJ(init_remote));
-static char *create_addr_space_name = STRINGIFY(UNW_OBJ(create_addr_space));
-static char *destroy_addr_space_name = STRINGIFY(UNW_OBJ(destroy_addr_space));
-static char *search_unwind_table_name
- = STRINGIFY(UNW_OBJ(search_unwind_table));
-static char *find_dyn_list_name = STRINGIFY(UNW_OBJ(find_dyn_list));
-
-static struct libunwind_descr *
-libunwind_descr (struct gdbarch *gdbarch)
-{
- return gdbarch_data (gdbarch, libunwind_descr_handle);
-}
-
-static void *
-libunwind_descr_init (struct gdbarch *gdbarch)
-{
- struct libunwind_descr *descr
- = GDBARCH_OBSTACK_ZALLOC (gdbarch, struct libunwind_descr);
-
- return descr;
-}
-
-void
-libunwind_frame_set_descr (struct gdbarch *gdbarch,
- struct libunwind_descr *descr)
-{
- struct libunwind_descr *arch_descr;
-
- gdb_assert (gdbarch != NULL);
-
- arch_descr = gdbarch_data (gdbarch, libunwind_descr_handle);
-
- if (arch_descr == NULL)
- {
- /* First time here. Must initialize data area. */
- arch_descr = libunwind_descr_init (gdbarch);
- deprecated_set_gdbarch_data (gdbarch,
- libunwind_descr_handle, arch_descr);
- }
-
- /* Copy new descriptor info into arch descriptor. */
- arch_descr->gdb2uw = descr->gdb2uw;
- arch_descr->uw2gdb = descr->uw2gdb;
- arch_descr->is_fpreg = descr->is_fpreg;
- arch_descr->accessors = descr->accessors;
- arch_descr->special_accessors = descr->special_accessors;
-}
-
-static struct libunwind_frame_cache *
-libunwind_frame_cache (struct frame_info *this_frame, void **this_cache)
-{
- unw_accessors_t *acc;
- unw_addr_space_t as;
- unw_word_t fp;
- unw_regnum_t uw_sp_regnum;
- struct libunwind_frame_cache *cache;
- struct libunwind_descr *descr;
- struct gdbarch *gdbarch = get_frame_arch (this_frame);
- int i, ret;
-
- if (*this_cache)
- return *this_cache;
-
- /* Allocate a new cache. */
- cache = FRAME_OBSTACK_ZALLOC (struct libunwind_frame_cache);
-
- cache->func_addr = get_frame_func (this_frame);
- if (cache->func_addr == 0)
- /* This can happen when the frame corresponds to a function for which
- there is no debugging information nor any entry in the symbol table.
- This is probably a static function for which an entry in the symbol
- table was not created when the objfile got linked (observed in
- libpthread.so on ia64-hpux).
-
- The best we can do, in that case, is use the frame PC as the function
- address. We don't need to give up since we still have the unwind
- record to help us perform the unwinding. There is also another
- compelling to continue, because abandonning now means stopping
- the backtrace, which can never be helpful for the user. */
- cache->func_addr = get_frame_pc (this_frame);
-
- /* Get a libunwind cursor to the previous frame.
-
- We do this by initializing a cursor. Libunwind treats a new cursor
- as the top of stack and will get the current register set via the
- libunwind register accessor. Now, we provide the platform-specific
- accessors and we set up the register accessor to use the frame
- register unwinding interfaces so that we properly get the registers
- for the current frame rather than the top. We then use the unw_step
- function to move the libunwind cursor back one frame. We can later
- use this cursor to find previous registers via the unw_get_reg
- interface which will invoke libunwind's special logic. */
- descr = libunwind_descr (gdbarch);
- acc = descr->accessors;
- as = unw_create_addr_space_p (acc,
- gdbarch_byte_order (gdbarch)
- == BFD_ENDIAN_BIG
- ? __BIG_ENDIAN
- : __LITTLE_ENDIAN);
-
- unw_init_remote_p (&cache->cursor, as, this_frame);
- if (unw_step_p (&cache->cursor) < 0)
- {
- unw_destroy_addr_space_p (as);
- return NULL;
- }
-
- /* To get base address, get sp from previous frame. */
- uw_sp_regnum = descr->gdb2uw (gdbarch_sp_regnum (gdbarch));
- ret = unw_get_reg_p (&cache->cursor, uw_sp_regnum, &fp);
- if (ret < 0)
- {
- unw_destroy_addr_space_p (as);
- error (_("Can't get libunwind sp register."));
- }
-
- cache->base = (CORE_ADDR)fp;
- cache->as = as;
-
- *this_cache = cache;
- return cache;
-}
-
-void
-libunwind_frame_dealloc_cache (struct frame_info *self, void *this_cache)
-{
- struct libunwind_frame_cache *cache = this_cache;
-
- if (cache->as)
- unw_destroy_addr_space_p (cache->as);
-}
-
-unw_word_t
-libunwind_find_dyn_list (unw_addr_space_t as, unw_dyn_info_t *di, void *arg)
-{
- return unw_find_dyn_list_p (as, di, arg);
-}
-
-/* Verify if there is sufficient libunwind information for the frame to use
- libunwind frame unwinding. */
-int
-libunwind_frame_sniffer (const struct frame_unwind *self,
- struct frame_info *this_frame, void **this_cache)
-{
- unw_cursor_t cursor;
- unw_accessors_t *acc;
- unw_addr_space_t as;
- struct libunwind_descr *descr;
- struct gdbarch *gdbarch = get_frame_arch (this_frame);
- int i, ret;
-
- /* To test for libunwind unwind support, initialize a cursor to
- the current frame and try to back up. We use this same method
- when setting up the frame cache (see libunwind_frame_cache()).
- If libunwind returns success for this operation, it means that
- it has found sufficient libunwind unwinding information to do so. */
-
- descr = libunwind_descr (gdbarch);
- acc = descr->accessors;
- as = unw_create_addr_space_p (acc,
- gdbarch_byte_order (gdbarch)
- == BFD_ENDIAN_BIG
- ? __BIG_ENDIAN
- : __LITTLE_ENDIAN);
-
- ret = unw_init_remote_p (&cursor, as, this_frame);
-
- if (ret < 0)
- {
- unw_destroy_addr_space_p (as);
- return 0;
- }
-
-
- /* Check to see if we have libunwind info by checking if we are in a
- signal frame. If it doesn't return an error, we have libunwind info
- and can use libunwind. */
- ret = unw_is_signal_frame_p (&cursor);
- unw_destroy_addr_space_p (as);
-
- if (ret < 0)
- return 0;
-
- return 1;
-}
-
-void
-libunwind_frame_this_id (struct frame_info *this_frame, void **this_cache,
- struct frame_id *this_id)
-{
- struct libunwind_frame_cache *cache =
- libunwind_frame_cache (this_frame, this_cache);
-
- if (cache != NULL)
- (*this_id) = frame_id_build (cache->base, cache->func_addr);
-}
-
-struct value *
-libunwind_frame_prev_register (struct frame_info *this_frame,
- void **this_cache, int regnum)
-{
- struct libunwind_frame_cache *cache =
- libunwind_frame_cache (this_frame, this_cache);
- struct gdbarch *gdbarch = get_frame_arch (this_frame);
-
- void *ptr;
- unw_cursor_t *c;
- unw_save_loc_t sl;
- int i, ret;
- unw_word_t intval;
- unw_fpreg_t fpval;
- unw_regnum_t uw_regnum;
- struct libunwind_descr *descr;
- struct value *val = NULL;
-
- if (cache == NULL)
- return frame_unwind_got_constant (this_frame, regnum, 0);
-
- /* Convert from gdb register number to libunwind register number. */
- descr = libunwind_descr (get_frame_arch (this_frame));
- uw_regnum = descr->gdb2uw (regnum);
-
- gdb_assert (regnum >= 0);
-
- if (!target_has_registers)
- error (_("No registers."));
-
- if (uw_regnum < 0)
- return frame_unwind_got_constant (this_frame, regnum, 0);
-
- if (unw_get_saveloc_p (&cache->cursor, uw_regnum, &sl) < 0)
- return frame_unwind_got_constant (this_frame, regnum, 0);
-
- switch (sl.type)
- {
- case UNW_SLT_MEMORY:
- val = frame_unwind_got_memory (this_frame, regnum, sl.u.addr);
- break;
-
- case UNW_SLT_REG:
- val = frame_unwind_got_register (this_frame, regnum,
- descr->uw2gdb (sl.u.regnum));
- break;
- case UNW_SLT_NONE:
- {
- /* The register is not stored at a specific memory address nor
- inside another register. So use libunwind to fetch the register
- value for us, and create a constant value with the result. */
- if (descr->is_fpreg (uw_regnum))
- {
- ret = unw_get_fpreg_p (&cache->cursor, uw_regnum, &fpval);
- if (ret < 0)
- return frame_unwind_got_constant (this_frame, regnum, 0);
- val = frame_unwind_got_bytes (this_frame, regnum,
- (gdb_byte *) &fpval);
- }
- else
- {
- ret = unw_get_reg_p (&cache->cursor, uw_regnum, &intval);
- if (ret < 0)
- return frame_unwind_got_constant (this_frame, regnum, 0);
- val = frame_unwind_got_constant (this_frame, regnum, intval);
- }
- break;
- }
- }
-
- return val;
-}
-
-/* The following is a glue routine to call the libunwind unwind table
- search function to get unwind information for a specified ip address. */
-int
-libunwind_search_unwind_table (void *as, long ip, void *di,
- void *pi, int need_unwind_info, void *args)
-{
- return unw_search_unwind_table_p (*(unw_addr_space_t *)as, (unw_word_t )ip,
- di, pi, need_unwind_info, args);
-}
-
-/* Verify if we are in a sigtramp frame and we can use libunwind to unwind. */
-int
-libunwind_sigtramp_frame_sniffer (const struct frame_unwind *self,
- struct frame_info *this_frame,
- void **this_cache)
-{
- unw_cursor_t cursor;
- unw_accessors_t *acc;
- unw_addr_space_t as;
- struct libunwind_descr *descr;
- struct gdbarch *gdbarch = get_frame_arch (this_frame);
- int i, ret;
-
- /* To test for libunwind unwind support, initialize a cursor to the
- current frame and try to back up. We use this same method when
- setting up the frame cache (see libunwind_frame_cache()). If
- libunwind returns success for this operation, it means that it
- has found sufficient libunwind unwinding information to do
- so. */
-
- descr = libunwind_descr (gdbarch);
- acc = descr->accessors;
- as = unw_create_addr_space_p (acc,
- gdbarch_byte_order (gdbarch)
- == BFD_ENDIAN_BIG
- ? __BIG_ENDIAN
- : __LITTLE_ENDIAN);
-
- ret = unw_init_remote_p (&cursor, as, this_frame);
-
- if (ret < 0)
- {
- unw_destroy_addr_space_p (as);
- return 0;
- }
-
- /* Check to see if we are in a signal frame. */
- ret = unw_is_signal_frame_p (&cursor);
- unw_destroy_addr_space_p (as);
- if (ret > 0)
- return 1;
-
- return 0;
-}
-
-/* The following routine is for accessing special registers of the top frame.
- A special set of accessors must be given that work without frame info.
- This is used by ia64 to access the rse registers r32-r127. While they
- are usually located at BOF, this is not always true and only the libunwind
- info can decipher where they actually are. */
-int
-libunwind_get_reg_special (struct gdbarch *gdbarch, struct regcache *regcache,
- int regnum, void *buf)
-{
- unw_cursor_t cursor;
- unw_accessors_t *acc;
- unw_addr_space_t as;
- struct libunwind_descr *descr;
- int ret;
- unw_regnum_t uw_regnum;
- unw_word_t intval;
- unw_fpreg_t fpval;
- void *ptr;
-
-
- descr = libunwind_descr (gdbarch);
- acc = descr->special_accessors;
- as = unw_create_addr_space_p (acc,
- gdbarch_byte_order (gdbarch)
- == BFD_ENDIAN_BIG
- ? __BIG_ENDIAN
- : __LITTLE_ENDIAN);
-
- ret = unw_init_remote_p (&cursor, as, regcache);
- if (ret < 0)
- {
- unw_destroy_addr_space_p (as);
- return -1;
- }
-
- uw_regnum = descr->gdb2uw (regnum);
-
- if (descr->is_fpreg (uw_regnum))
- {
- ret = unw_get_fpreg_p (&cursor, uw_regnum, &fpval);
- ptr = &fpval;
- }
- else
- {
- ret = unw_get_reg_p (&cursor, uw_regnum, &intval);
- ptr = &intval;
- }
-
- unw_destroy_addr_space_p (as);
-
- if (ret < 0)
- return -1;
-
- if (buf)
- memcpy (buf, ptr, register_size (gdbarch, regnum));
-
- return 0;
-}
-
-static int
-libunwind_load (void)
-{
- void *handle;
- char *so_error = NULL;
-
- handle = dlopen (LIBUNWIND_SO, RTLD_NOW);
- if (handle == NULL)
- {
- so_error = xstrdup (dlerror ());
-#ifdef LIBUNWIND_SO_7
- handle = dlopen (LIBUNWIND_SO_7, RTLD_NOW);
-#endif /* LIBUNWIND_SO_7 */
- }
- if (handle == NULL)
- {
- fprintf_unfiltered (gdb_stderr, _("[GDB failed to load %s: %s]\n"),
- LIBUNWIND_SO, so_error);
-#ifdef LIBUNWIND_SO_7
- fprintf_unfiltered (gdb_stderr, _("[GDB failed to load %s: %s]\n"),
- LIBUNWIND_SO_7, dlerror ());
-#endif /* LIBUNWIND_SO_7 */
- }
- xfree (so_error);
- if (handle == NULL)
- return 0;
-
- /* Initialize pointers to the dynamic library functions we will use. */
-
- unw_get_reg_p = dlsym (handle, get_reg_name);
- if (unw_get_reg_p == NULL)
- return 0;
-
- unw_get_fpreg_p = dlsym (handle, get_fpreg_name);
- if (unw_get_fpreg_p == NULL)
- return 0;
-
- unw_get_saveloc_p = dlsym (handle, get_saveloc_name);
- if (unw_get_saveloc_p == NULL)
- return 0;
-
- unw_is_signal_frame_p = dlsym (handle, is_signal_frame_name);
- if (unw_is_signal_frame_p == NULL)
- return 0;
-
- unw_step_p = dlsym (handle, step_name);
- if (unw_step_p == NULL)
- return 0;
-
- unw_init_remote_p = dlsym (handle, init_remote_name);
- if (unw_init_remote_p == NULL)
- return 0;
-
- unw_create_addr_space_p = dlsym (handle, create_addr_space_name);
- if (unw_create_addr_space_p == NULL)
- return 0;
-
- unw_destroy_addr_space_p = dlsym (handle, destroy_addr_space_name);
- if (unw_destroy_addr_space_p == NULL)
- return 0;
-
- unw_search_unwind_table_p = dlsym (handle, search_unwind_table_name);
- if (unw_search_unwind_table_p == NULL)
- return 0;
-
- unw_find_dyn_list_p = dlsym (handle, find_dyn_list_name);
- if (unw_find_dyn_list_p == NULL)
- return 0;
-
- return 1;
-}
-
-int
-libunwind_is_initialized (void)
-{
- return libunwind_initialized;
-}
-
-/* Provide a prototype to silence -Wmissing-prototypes. */
-void _initialize_libunwind_frame (void);
-
-void
-_initialize_libunwind_frame (void)
-{
- libunwind_descr_handle
- = gdbarch_data_register_post_init (libunwind_descr_init);
-
- libunwind_initialized = libunwind_load ();
-}
+++ /dev/null
-/* Frame unwinder for frames with libunwind frame information.
-
- Copyright (C) 2003, 2006-2012 Free Software Foundation, Inc.
-
- Contributed by Jeff Johnston.
-
- This file is part of GDB.
-
- This program 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 of the License, or
- (at your option) any later version.
-
- This program 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.
-
- You should have received a copy of the GNU General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>. */
-
-struct frame_info;
-struct frame_id;
-struct regcache;
-struct gdbarch;
-struct frame_unwind;
-
-#ifndef LIBUNWIND_FRAME_H
-#define LIBUNWIND_FRAME_H 1
-
-/* IA-64 is the only target that currently uses libunwind. If some
- other target wants to use it, we will need to do some abstracting
- in order to make it possible to have more than one libunwind-frame
- instance. Including "libunwind.h" is wrong as that ends up
- including the libunwind-$(arch).h for the host gdb is running
- on. */
-#include "libunwind-ia64.h"
-
-struct libunwind_descr
-{
- int (*gdb2uw) (int);
- int (*uw2gdb) (int);
- int (*is_fpreg) (int);
- void *accessors;
- void *special_accessors;
-};
-
-int libunwind_frame_sniffer (const struct frame_unwind *self,
- struct frame_info *this_frame,
- void **this_cache);
-
-int libunwind_sigtramp_frame_sniffer (const struct frame_unwind *self,
- struct frame_info *this_frame,
- void **this_cache);
-
-void libunwind_frame_set_descr (struct gdbarch *arch,
- struct libunwind_descr *descr);
-
-void libunwind_frame_this_id (struct frame_info *this_frame, void **this_cache,
- struct frame_id *this_id);
-struct value *libunwind_frame_prev_register (struct frame_info *this_frame,
- void **this_cache, int regnum);
-void libunwind_frame_dealloc_cache (struct frame_info *self, void *cache);
-
-int libunwind_is_initialized (void);
-
-int libunwind_search_unwind_table (void *as, long ip, void *di,
- void *pi, int need_unwind_info, void *args);
-
-unw_word_t libunwind_find_dyn_list (unw_addr_space_t, unw_dyn_info_t *,
- void *);
-
-int libunwind_get_reg_special (struct gdbarch *gdbarch,
- struct regcache *regcache,
- int regnum, void *buf);
-
-#endif /* libunwind-frame.h */
projects / deliverable / binutils-gdb.git / commitdiff
