Remove deprecated_throw_reason.

[deliverable/binutils-gdb.git] / gdb / ia64-linux-tdep.c

diff --git a/gdb/ia64-linux-tdep.c b/gdb/ia64-linux-tdep.c
index 35ee4e2f9d92e1fe363b80fa2de1c486baa13a27..d1eb529cd4f239d4b2255889db9bb8356ce53850 100644 (file)
--- a/gdb/ia64-linux-tdep.c
+++ b/gdb/ia64-linux-tdep.c
@@ -27,6 +27,8 @@
 #include "symtab.h"
 #include "linux-tdep.h"
 
+#include <ctype.h>
+
 /* The sigtramp code is in a non-readable (executable-only) region
    of memory called the ``gate page''.  The addresses in question
    were determined by examining the system headers.  They are
@@ -118,6 +120,17 @@ ia64_linux_write_pc (struct regcache *regcache, CORE_ADDR pc)
   regcache_cooked_write_unsigned (regcache, IA64_GR10_REGNUM, 0);
 }
 
+/* Implementation of `gdbarch_stap_is_single_operand', as defined in
+   gdbarch.h.  */
+
+static int
+ia64_linux_stap_is_single_operand (struct gdbarch *gdbarch, const char *s)
+{
+  return ((isdigit (*s) && s[1] == '[' && s[2] == 'r') /* Displacement.  */
+         || *s == 'r' /* Register value.  */
+         || isdigit (*s));  /* Literal number.  */
+}
+
 static void
 ia64_linux_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
 {
@@ -142,6 +155,14 @@ ia64_linux_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
   /* Enable TLS support.  */
   set_gdbarch_fetch_tls_load_module_address (gdbarch,
                                              svr4_fetch_objfile_link_map);
+
+  /* SystemTap related.  */
+  set_gdbarch_stap_register_prefix (gdbarch, "r");
+  set_gdbarch_stap_register_indirection_prefix (gdbarch, "[");
+  set_gdbarch_stap_register_indirection_suffix (gdbarch, "]");
+  set_gdbarch_stap_gdb_register_prefix (gdbarch, "r");
+  set_gdbarch_stap_is_single_operand (gdbarch,
+                                     ia64_linux_stap_is_single_operand);
 }
 
 /* Provide a prototype to silence -Wmissing-prototypes.  */