+
+static void
+ia64_linux_write_pc (struct regcache *regcache, CORE_ADDR pc)
+{
+ ia64_write_pc (regcache, pc);
+
+ /* We must be careful with modifying the instruction-pointer: if we
+ just interrupt a system call, the kernel would ordinarily try to
+ restart it when we resume the inferior, which typically results
+ in SIGSEGV or SIGILL. We prevent this by clearing r10, which
+ will tell the kernel that r8 does NOT contain a valid error code
+ and hence it will skip system-call restart.
+
+ The clearing of r10 is safe as long as ia64_write_pc() is only
+ called as part of setting up an inferior call. */
+ 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. */
+}
+
+/* Core file support. */
+
+static const struct regcache_map_entry ia64_linux_gregmap[] =
+ {
+ { 32, IA64_GR0_REGNUM, 8 }, /* r0 ... r31 */
+ { 1, REGCACHE_MAP_SKIP, 8 }, /* FIXME: NAT collection bits? */
+ { 1, IA64_PR_REGNUM, 8 },
+ { 8, IA64_BR0_REGNUM, 8 }, /* b0 ... b7 */
+ { 1, IA64_IP_REGNUM, 8 },
+ { 1, IA64_CFM_REGNUM, 8 },
+ { 1, IA64_PSR_REGNUM, 8 },
+ { 1, IA64_RSC_REGNUM, 8 },
+ { 1, IA64_BSP_REGNUM, 8 },
+ { 1, IA64_BSPSTORE_REGNUM, 8 },
+ { 1, IA64_RNAT_REGNUM, 8 },
+ { 1, IA64_CCV_REGNUM, 8 },
+ { 1, IA64_UNAT_REGNUM, 8 },
+ { 1, IA64_FPSR_REGNUM, 8 },
+ { 1, IA64_PFS_REGNUM, 8 },
+ { 1, IA64_LC_REGNUM, 8 },
+ { 1, IA64_EC_REGNUM, 8 },
+ { 0 }
+ };
+
+/* Size of 'gregset_t', as defined by the Linux kernel. Note that
+ this is more than actually mapped in the regmap above. */
+
+#define IA64_LINUX_GREGS_SIZE (128 * 8)
+
+static const struct regcache_map_entry ia64_linux_fpregmap[] =
+ {
+ { 128, IA64_FR0_REGNUM, 16 }, /* f0 ... f127 */
+ { 0 }
+ };
+
+#define IA64_LINUX_FPREGS_SIZE (128 * 16)
+
+static void
+ia64_linux_supply_fpregset (const struct regset *regset,
+ struct regcache *regcache,
+ int regnum, const void *regs, size_t len)
+{
+ const gdb_byte f_zero[16] = { 0 };
+ const gdb_byte f_one[16] =
+ { 0, 0, 0, 0, 0, 0, 0, 0x80, 0xff, 0xff, 0, 0, 0, 0, 0, 0 };
+
+ regcache_supply_regset (regset, regcache, regnum, regs, len);
+
+ /* Kernel generated cores have fr1==0 instead of 1.0. Older GDBs
+ did the same. So ignore whatever might be recorded in fpregset_t
+ for fr0/fr1 and always supply their expected values. */
+ if (regnum == -1 || regnum == IA64_FR0_REGNUM)
+ regcache->raw_supply (IA64_FR0_REGNUM, f_zero);
+ if (regnum == -1 || regnum == IA64_FR1_REGNUM)
+ regcache->raw_supply (IA64_FR1_REGNUM, f_one);
+}
+
+static const struct regset ia64_linux_gregset =
+ {
+ ia64_linux_gregmap,
+ regcache_supply_regset, regcache_collect_regset
+ };
+
+static const struct regset ia64_linux_fpregset =
+ {
+ ia64_linux_fpregmap,
+ ia64_linux_supply_fpregset, regcache_collect_regset
+ };
+
+static void
+ia64_linux_iterate_over_regset_sections (struct gdbarch *gdbarch,
+ iterate_over_regset_sections_cb *cb,
+ void *cb_data,
+ const struct regcache *regcache)
+{
+ cb (".reg", IA64_LINUX_GREGS_SIZE, IA64_LINUX_GREGS_SIZE, &ia64_linux_gregset,
+ NULL, cb_data);
+ cb (".reg2", IA64_LINUX_FPREGS_SIZE, IA64_LINUX_FPREGS_SIZE,
+ &ia64_linux_fpregset, NULL, cb_data);
+}
+
+static void
+ia64_linux_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
+{
+ struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
+ static const char *const stap_register_prefixes[] = { "r", NULL };
+ static const char *const stap_register_indirection_prefixes[] = { "[",
+ NULL };
+ static const char *const stap_register_indirection_suffixes[] = { "]",
+ NULL };
+
+ linux_init_abi (info, gdbarch);
+
+ /* Set the method of obtaining the sigcontext addresses at which
+ registers are saved. */
+ tdep->sigcontext_register_address = ia64_linux_sigcontext_register_address;
+
+ /* Set the pc_in_sigtramp method. */
+ tdep->pc_in_sigtramp = ia64_linux_pc_in_sigtramp;
+
+ set_gdbarch_write_pc (gdbarch, ia64_linux_write_pc);
+
+ set_gdbarch_skip_trampoline_code (gdbarch, find_solib_trampoline_target);
+
+ set_solib_svr4_fetch_link_map_offsets
+ (gdbarch, svr4_lp64_fetch_link_map_offsets);
+
+ /* Enable TLS support. */
+ set_gdbarch_fetch_tls_load_module_address (gdbarch,
+ svr4_fetch_objfile_link_map);
+
+ /* Core file support. */
+ set_gdbarch_iterate_over_regset_sections
+ (gdbarch, ia64_linux_iterate_over_regset_sections);
+
+ /* SystemTap related. */
+ set_gdbarch_stap_register_prefixes (gdbarch, stap_register_prefixes);
+ set_gdbarch_stap_register_indirection_prefixes (gdbarch,
+ stap_register_indirection_prefixes);
+ set_gdbarch_stap_register_indirection_suffixes (gdbarch,
+ stap_register_indirection_suffixes);
+ set_gdbarch_stap_gdb_register_prefix (gdbarch, "r");
+ set_gdbarch_stap_is_single_operand (gdbarch,
+ ia64_linux_stap_is_single_operand);
+}
+
+void
+_initialize_ia64_linux_tdep (void)
+{
+ gdbarch_register_osabi (bfd_arch_ia64, 0, GDB_OSABI_LINUX,
+ ia64_linux_init_abi);
+}