gdb/ppc-linux-tdep.c - gdb
Global variables defined
Data types defined
Functions defined
Macros defined
Source code
- #include "defs.h"
- #include "frame.h"
- #include "inferior.h"
- #include "symtab.h"
- #include "target.h"
- #include "gdbcore.h"
- #include "gdbcmd.h"
- #include "symfile.h"
- #include "objfiles.h"
- #include "regcache.h"
- #include "value.h"
- #include "osabi.h"
- #include "regset.h"
- #include "solib-svr4.h"
- #include "solib-spu.h"
- #include "solib.h"
- #include "solist.h"
- #include "ppc-tdep.h"
- #include "ppc64-tdep.h"
- #include "ppc-linux-tdep.h"
- #include "glibc-tdep.h"
- #include "trad-frame.h"
- #include "frame-unwind.h"
- #include "tramp-frame.h"
- #include "observer.h"
- #include "auxv.h"
- #include "elf/common.h"
- #include "elf/ppc64.h"
- #include "arch-utils.h"
- #include "spu-tdep.h"
- #include "xml-syscall.h"
- #include "linux-tdep.h"
- #include "stap-probe.h"
- #include "ax.h"
- #include "ax-gdb.h"
- #include "cli/cli-utils.h"
- #include "parser-defs.h"
- #include "user-regs.h"
- #include <ctype.h>
- #include "elf-bfd.h"
- #include "features/rs6000/powerpc-32l.c"
- #include "features/rs6000/powerpc-altivec32l.c"
- #include "features/rs6000/powerpc-cell32l.c"
- #include "features/rs6000/powerpc-vsx32l.c"
- #include "features/rs6000/powerpc-isa205-32l.c"
- #include "features/rs6000/powerpc-isa205-altivec32l.c"
- #include "features/rs6000/powerpc-isa205-vsx32l.c"
- #include "features/rs6000/powerpc-64l.c"
- #include "features/rs6000/powerpc-altivec64l.c"
- #include "features/rs6000/powerpc-cell64l.c"
- #include "features/rs6000/powerpc-vsx64l.c"
- #include "features/rs6000/powerpc-isa205-64l.c"
- #include "features/rs6000/powerpc-isa205-altivec64l.c"
- #include "features/rs6000/powerpc-isa205-vsx64l.c"
- #include "features/rs6000/powerpc-e500l.c"
- static struct target_so_ops powerpc_so_ops;
- #define XML_SYSCALL_FILENAME_PPC "syscalls/ppc-linux.xml"
- #define XML_SYSCALL_FILENAME_PPC64 "syscalls/ppc64-linux.xml"
- static int
- ppc_linux_memory_remove_breakpoint (struct gdbarch *gdbarch,
- struct bp_target_info *bp_tgt)
- {
- CORE_ADDR addr = bp_tgt->reqstd_address;
- const unsigned char *bp;
- int val;
- int bplen;
- gdb_byte old_contents[BREAKPOINT_MAX];
- struct cleanup *cleanup;
-
- bp = gdbarch_breakpoint_from_pc (gdbarch, &addr, &bplen);
- if (bp == NULL)
- error (_("Software breakpoints not implemented for this target."));
-
- cleanup = make_show_memory_breakpoints_cleanup (1);
- val = target_read_memory (addr, old_contents, bplen);
-
- if (val == 0 && memcmp (bp, old_contents, bplen) == 0)
- val = target_write_raw_memory (addr, bp_tgt->shadow_contents, bplen);
- do_cleanups (cleanup);
- return val;
- }
- static enum return_value_convention
- ppc_linux_return_value (struct gdbarch *gdbarch, struct value *function,
- struct type *valtype, struct regcache *regcache,
- gdb_byte *readbuf, const gdb_byte *writebuf)
- {
- if ((TYPE_CODE (valtype) == TYPE_CODE_STRUCT
- || TYPE_CODE (valtype) == TYPE_CODE_UNION)
- && !((TYPE_LENGTH (valtype) == 16 || TYPE_LENGTH (valtype) == 8)
- && TYPE_VECTOR (valtype)))
- return RETURN_VALUE_STRUCT_CONVENTION;
- else
- return ppc_sysv_abi_return_value (gdbarch, function, valtype, regcache,
- readbuf, writebuf);
- }
- static struct ppc_insn_pattern powerpc32_plt_stub[] =
- {
- { 0xffff0000, 0x3d600000, 0 },
- { 0xffff0000, 0x816b0000, 0 },
- { 0xffffffff, 0x7d6903a6, 0 },
- { 0xffffffff, 0x4e800420, 0 },
- { 0, 0, 0 }
- };
- static struct ppc_insn_pattern powerpc32_plt_stub_so[] =
- {
- { 0xffff0000, 0x817e0000, 0 },
- { 0xffffffff, 0x7d6903a6, 0 },
- { 0xffffffff, 0x4e800420, 0 },
- { 0xffffffff, 0x60000000, 0 },
- { 0, 0, 0 }
- };
- #define POWERPC32_PLT_STUB_LEN ARRAY_SIZE (powerpc32_plt_stub)
- static int
- powerpc_linux_in_dynsym_resolve_code (CORE_ADDR pc)
- {
- struct bound_minimal_symbol sym;
-
- if (svr4_in_dynsym_resolve_code (pc))
- return 1;
-
- sym = lookup_minimal_symbol_by_pc (pc);
- if (sym.minsym != NULL
- && (strcmp (MSYMBOL_LINKAGE_NAME (sym.minsym), "__glink") == 0
- || strcmp (MSYMBOL_LINKAGE_NAME (sym.minsym),
- "__glink_PLTresolve") == 0))
- return 1;
- return 0;
- }
- static CORE_ADDR
- ppc_skip_trampoline_code (struct frame_info *frame, CORE_ADDR pc)
- {
- unsigned int insnbuf[POWERPC32_PLT_STUB_LEN];
- struct gdbarch *gdbarch = get_frame_arch (frame);
- struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
- enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
- CORE_ADDR target = 0;
- if (ppc_insns_match_pattern (frame, pc, powerpc32_plt_stub, insnbuf))
- {
-
- target = (ppc_insn_d_field (insnbuf[0]) << 16)
- | ppc_insn_d_field (insnbuf[1]);
- target = read_memory_unsigned_integer (target, 4, byte_order);
- }
- if (ppc_insns_match_pattern (frame, pc, powerpc32_plt_stub_so, insnbuf))
- {
-
- target = get_frame_register_unsigned (frame, tdep->ppc_gp0_regnum + 30)
- + ppc_insn_d_field (insnbuf[0]);
- target = read_memory_unsigned_integer (target, 4, byte_order);
- }
- return target;
- }
- static void
- ppc_linux_supply_gregset (const struct regset *regset,
- struct regcache *regcache,
- int regnum, const void *gregs, size_t len)
- {
- const struct ppc_reg_offsets *offsets = regset->regmap;
- ppc_supply_gregset (regset, regcache, regnum, gregs, len);
- if (ppc_linux_trap_reg_p (get_regcache_arch (regcache)))
- {
-
- if (regnum == -1 || regnum == PPC_ORIG_R3_REGNUM)
- ppc_supply_reg (regcache, PPC_ORIG_R3_REGNUM, gregs,
- offsets->pc_offset + 2 * offsets->gpr_size,
- offsets->gpr_size);
-
- if (regnum == -1 || regnum == PPC_TRAP_REGNUM)
- ppc_supply_reg (regcache, PPC_TRAP_REGNUM, gregs,
- offsets->pc_offset + 8 * offsets->gpr_size,
- offsets->gpr_size);
- }
- }
- static void
- ppc_linux_collect_gregset (const struct regset *regset,
- const struct regcache *regcache,
- int regnum, void *gregs, size_t len)
- {
- const struct ppc_reg_offsets *offsets = regset->regmap;
-
- if (regnum == -1)
- memset (gregs, 0, len);
- ppc_collect_gregset (regset, regcache, regnum, gregs, len);
- if (ppc_linux_trap_reg_p (get_regcache_arch (regcache)))
- {
-
- if (regnum == -1 || regnum == PPC_ORIG_R3_REGNUM)
- ppc_collect_reg (regcache, PPC_ORIG_R3_REGNUM, gregs,
- offsets->pc_offset + 2 * offsets->gpr_size,
- offsets->gpr_size);
-
- if (regnum == -1 || regnum == PPC_TRAP_REGNUM)
- ppc_collect_reg (regcache, PPC_TRAP_REGNUM, gregs,
- offsets->pc_offset + 8 * offsets->gpr_size,
- offsets->gpr_size);
- }
- }
- static const struct ppc_reg_offsets ppc32_linux_reg_offsets =
- {
-
- 0,
- 4,
- 4,
- 128,
- 132,
- 152,
- 144,
- 140,
- 148,
- 156,
-
- 0,
- 256,
- 8,
-
- 0,
- 512 + 12,
- 528
- };
- static const struct ppc_reg_offsets ppc64_linux_reg_offsets =
- {
-
- 0,
- 8,
- 8,
- 256,
- 264,
- 304,
- 288,
- 280,
- 296,
- 312,
-
- 0,
- 256,
- 8,
-
- 0,
- 512 + 12,
- 528
- };
- static const struct regset ppc32_linux_gregset = {
- &ppc32_linux_reg_offsets,
- ppc_linux_supply_gregset,
- ppc_linux_collect_gregset
- };
- static const struct regset ppc64_linux_gregset = {
- &ppc64_linux_reg_offsets,
- ppc_linux_supply_gregset,
- ppc_linux_collect_gregset
- };
- static const struct regset ppc32_linux_fpregset = {
- &ppc32_linux_reg_offsets,
- ppc_supply_fpregset,
- ppc_collect_fpregset
- };
- static const struct regset ppc32_linux_vrregset = {
- &ppc32_linux_reg_offsets,
- ppc_supply_vrregset,
- ppc_collect_vrregset
- };
- static const struct regset ppc32_linux_vsxregset = {
- &ppc32_linux_reg_offsets,
- ppc_supply_vsxregset,
- ppc_collect_vsxregset
- };
- const struct regset *
- ppc_linux_gregset (int wordsize)
- {
- return wordsize == 8 ? &ppc64_linux_gregset : &ppc32_linux_gregset;
- }
- const struct regset *
- ppc_linux_fpregset (void)
- {
- return &ppc32_linux_fpregset;
- }
- static void
- ppc_linux_iterate_over_regset_sections (struct gdbarch *gdbarch,
- iterate_over_regset_sections_cb *cb,
- void *cb_data,
- const struct regcache *regcache)
- {
- struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
- int have_altivec = tdep->ppc_vr0_regnum != -1;
- int have_vsx = tdep->ppc_vsr0_upper_regnum != -1;
- if (tdep->wordsize == 4)
- cb (".reg", 48 * 4, &ppc32_linux_gregset, NULL, cb_data);
- else
- cb (".reg", 48 * 8, &ppc64_linux_gregset, NULL, cb_data);
- cb (".reg2", 264, &ppc32_linux_fpregset, NULL, cb_data);
- if (have_altivec)
- cb (".reg-ppc-vmx", 544, &ppc32_linux_vrregset, "ppc Altivec", cb_data);
- if (have_vsx)
- cb (".reg-ppc-vsx", 256, &ppc32_linux_vsxregset, "POWER7 VSX", cb_data);
- }
- static void
- ppc_linux_sigtramp_cache (struct frame_info *this_frame,
- struct trad_frame_cache *this_cache,
- CORE_ADDR func, LONGEST offset,
- int bias)
- {
- CORE_ADDR base;
- CORE_ADDR regs;
- CORE_ADDR gpregs;
- CORE_ADDR fpregs;
- int i;
- struct gdbarch *gdbarch = get_frame_arch (this_frame);
- struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
- enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
- base = get_frame_register_unsigned (this_frame,
- gdbarch_sp_regnum (gdbarch));
- if (bias > 0 && get_frame_pc (this_frame) != func)
-
- base -= bias;
-
- regs = base + offset;
-
- gpregs = read_memory_unsigned_integer (regs, tdep->wordsize, byte_order);
- fpregs = gpregs + 48 * tdep->wordsize;
-
- for (i = 0; i < 32; i++)
- {
- int regnum = i + tdep->ppc_gp0_regnum;
- trad_frame_set_reg_addr (this_cache,
- regnum, gpregs + i * tdep->wordsize);
- }
- trad_frame_set_reg_addr (this_cache,
- gdbarch_pc_regnum (gdbarch),
- gpregs + 32 * tdep->wordsize);
- trad_frame_set_reg_addr (this_cache, tdep->ppc_ctr_regnum,
- gpregs + 35 * tdep->wordsize);
- trad_frame_set_reg_addr (this_cache, tdep->ppc_lr_regnum,
- gpregs + 36 * tdep->wordsize);
- trad_frame_set_reg_addr (this_cache, tdep->ppc_xer_regnum,
- gpregs + 37 * tdep->wordsize);
- trad_frame_set_reg_addr (this_cache, tdep->ppc_cr_regnum,
- gpregs + 38 * tdep->wordsize);
- if (ppc_linux_trap_reg_p (gdbarch))
- {
- trad_frame_set_reg_addr (this_cache, PPC_ORIG_R3_REGNUM,
- gpregs + 34 * tdep->wordsize);
- trad_frame_set_reg_addr (this_cache, PPC_TRAP_REGNUM,
- gpregs + 40 * tdep->wordsize);
- }
- if (ppc_floating_point_unit_p (gdbarch))
- {
-
- for (i = 0; i < 32; i++)
- {
- int regnum = i + gdbarch_fp0_regnum (gdbarch);
- trad_frame_set_reg_addr (this_cache, regnum,
- fpregs + i * tdep->wordsize);
- }
- trad_frame_set_reg_addr (this_cache, tdep->ppc_fpscr_regnum,
- fpregs + 32 * tdep->wordsize);
- }
- trad_frame_set_id (this_cache, frame_id_build (base, func));
- }
- static void
- ppc32_linux_sigaction_cache_init (const struct tramp_frame *self,
- struct frame_info *this_frame,
- struct trad_frame_cache *this_cache,
- CORE_ADDR func)
- {
- ppc_linux_sigtramp_cache (this_frame, this_cache, func,
- 0xd0
- + 0x30 ,
- 0);
- }
- static void
- ppc64_linux_sigaction_cache_init (const struct tramp_frame *self,
- struct frame_info *this_frame,
- struct trad_frame_cache *this_cache,
- CORE_ADDR func)
- {
- ppc_linux_sigtramp_cache (this_frame, this_cache, func,
- 0x80
- + 0xe0 ,
- 128);
- }
- static void
- ppc32_linux_sighandler_cache_init (const struct tramp_frame *self,
- struct frame_info *this_frame,
- struct trad_frame_cache *this_cache,
- CORE_ADDR func)
- {
- ppc_linux_sigtramp_cache (this_frame, this_cache, func,
- 0x40
- + 0x1c ,
- 0);
- }
- static void
- ppc64_linux_sighandler_cache_init (const struct tramp_frame *self,
- struct frame_info *this_frame,
- struct trad_frame_cache *this_cache,
- CORE_ADDR func)
- {
- ppc_linux_sigtramp_cache (this_frame, this_cache, func,
- 0x80
- + 0x38 ,
- 128);
- }
- static struct tramp_frame ppc32_linux_sigaction_tramp_frame = {
- SIGTRAMP_FRAME,
- 4,
- {
- { 0x380000ac, -1 },
- { 0x44000002, -1 },
- { TRAMP_SENTINEL_INSN },
- },
- ppc32_linux_sigaction_cache_init
- };
- static struct tramp_frame ppc64_linux_sigaction_tramp_frame = {
- SIGTRAMP_FRAME,
- 4,
- {
- { 0x38210080, -1 },
- { 0x380000ac, -1 },
- { 0x44000002, -1 },
- { TRAMP_SENTINEL_INSN },
- },
- ppc64_linux_sigaction_cache_init
- };
- static struct tramp_frame ppc32_linux_sighandler_tramp_frame = {
- SIGTRAMP_FRAME,
- 4,
- {
- { 0x38000077, -1 },
- { 0x44000002, -1 },
- { TRAMP_SENTINEL_INSN },
- },
- ppc32_linux_sighandler_cache_init
- };
- static struct tramp_frame ppc64_linux_sighandler_tramp_frame = {
- SIGTRAMP_FRAME,
- 4,
- {
- { 0x38210080, -1 },
- { 0x38000077, -1 },
- { 0x44000002, -1 },
- { TRAMP_SENTINEL_INSN },
- },
- ppc64_linux_sighandler_cache_init
- };
- static CORE_ADDR ppc_linux_entry_point_addr = 0;
- static void
- ppc_linux_inferior_created (struct target_ops *target, int from_tty)
- {
- ppc_linux_entry_point_addr = 0;
- }
- static CORE_ADDR
- ppc_linux_displaced_step_location (struct gdbarch *gdbarch)
- {
- if (ppc_linux_entry_point_addr == 0)
- {
- CORE_ADDR addr;
-
- if (target_auxv_search (¤t_target, AT_ENTRY, &addr) <= 0)
- error (_("Cannot find AT_ENTRY auxiliary vector entry."));
-
- addr = gdbarch_convert_from_func_ptr_addr (gdbarch, addr,
- ¤t_target);
-
- ppc_linux_entry_point_addr = addr + 2 * PPC_INSN_SIZE;
- }
- return ppc_linux_entry_point_addr;
- }
- int
- ppc_linux_trap_reg_p (struct gdbarch *gdbarch)
- {
-
- if (!tdesc_has_registers (gdbarch_target_desc (gdbarch)))
- return 0;
-
- return register_size (gdbarch, PPC_ORIG_R3_REGNUM) > 0
- && register_size (gdbarch, PPC_TRAP_REGNUM) > 0;
- }
- static LONGEST
- ppc_linux_get_syscall_number (struct gdbarch *gdbarch,
- ptid_t ptid)
- {
- struct regcache *regcache = get_thread_regcache (ptid);
- struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
- enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
- struct cleanup *cleanbuf;
-
- gdb_byte *buf;
-
- LONGEST ret;
-
- gdb_assert (tdep->wordsize == 4 || tdep->wordsize == 8);
- buf = (gdb_byte *) xmalloc (tdep->wordsize * sizeof (gdb_byte));
- cleanbuf = make_cleanup (xfree, buf);
-
- regcache_cooked_read (regcache, tdep->ppc_gp0_regnum, buf);
- ret = extract_signed_integer (buf, tdep->wordsize, byte_order);
- do_cleanups (cleanbuf);
- return ret;
- }
- static void
- ppc_linux_write_pc (struct regcache *regcache, CORE_ADDR pc)
- {
- struct gdbarch *gdbarch = get_regcache_arch (regcache);
- regcache_cooked_write_unsigned (regcache, gdbarch_pc_regnum (gdbarch), pc);
-
- if (ppc_linux_trap_reg_p (gdbarch))
- regcache_cooked_write_unsigned (regcache, PPC_TRAP_REGNUM, -1);
- }
- static int
- ppc_linux_spu_section (bfd *abfd, asection *asect, void *user_data)
- {
- return strncmp (bfd_section_name (abfd, asect), "SPU/", 4) == 0;
- }
- static const struct target_desc *
- ppc_linux_core_read_description (struct gdbarch *gdbarch,
- struct target_ops *target,
- bfd *abfd)
- {
- asection *cell = bfd_sections_find_if (abfd, ppc_linux_spu_section, NULL);
- asection *altivec = bfd_get_section_by_name (abfd, ".reg-ppc-vmx");
- asection *vsx = bfd_get_section_by_name (abfd, ".reg-ppc-vsx");
- asection *section = bfd_get_section_by_name (abfd, ".reg");
- if (! section)
- return NULL;
- switch (bfd_section_size (abfd, section))
- {
- case 48 * 4:
- if (cell)
- return tdesc_powerpc_cell32l;
- else if (vsx)
- return tdesc_powerpc_vsx32l;
- else if (altivec)
- return tdesc_powerpc_altivec32l;
- else
- return tdesc_powerpc_32l;
- case 48 * 8:
- if (cell)
- return tdesc_powerpc_cell64l;
- else if (vsx)
- return tdesc_powerpc_vsx64l;
- else if (altivec)
- return tdesc_powerpc_altivec64l;
- else
- return tdesc_powerpc_64l;
- default:
- return NULL;
- }
- }
- static void
- ppc_elfv2_elf_make_msymbol_special (asymbol *sym, struct minimal_symbol *msym)
- {
- elf_symbol_type *elf_sym = (elf_symbol_type *)sym;
-
- switch (PPC64_LOCAL_ENTRY_OFFSET (elf_sym->internal_elf_sym.st_other))
- {
- default:
- break;
- case 8:
- MSYMBOL_TARGET_FLAG_1 (msym) = 1;
- break;
- }
- }
- static CORE_ADDR
- ppc_elfv2_skip_entrypoint (struct gdbarch *gdbarch, CORE_ADDR pc)
- {
- struct bound_minimal_symbol fun;
- int local_entry_offset = 0;
- fun = lookup_minimal_symbol_by_pc (pc);
- if (fun.minsym == NULL)
- return pc;
-
- if (MSYMBOL_TARGET_FLAG_1 (fun.minsym))
- local_entry_offset = 8;
- if (BMSYMBOL_VALUE_ADDRESS (fun) <= pc
- && pc < BMSYMBOL_VALUE_ADDRESS (fun) + local_entry_offset)
- return BMSYMBOL_VALUE_ADDRESS (fun) + local_entry_offset;
- return pc;
- }
- static int
- ppc_stap_is_single_operand (struct gdbarch *gdbarch, const char *s)
- {
- return (*s == 'i'
- || (isdigit (*s) && s[1] == '('
- && isdigit (s[2]))
- || (*s == '(' && isdigit (s[1]))
- || isdigit (*s));
- }
- static int
- ppc_stap_parse_special_token (struct gdbarch *gdbarch,
- struct stap_parse_info *p)
- {
- if (isdigit (*p->arg))
- {
-
- const char *s = p->arg;
- char *regname;
- int len;
- struct stoken str;
- while (isdigit (*s))
- ++s;
- if (*s == '(')
- {
-
- return 0;
- }
- len = s - p->arg;
- regname = alloca (len + 2);
- regname[0] = 'r';
- strncpy (regname + 1, p->arg, len);
- ++len;
- regname[len] = '\0';
- if (user_reg_map_name_to_regnum (gdbarch, regname, len) == -1)
- error (_("Invalid register name `%s' on expression `%s'."),
- regname, p->saved_arg);
- write_exp_elt_opcode (&p->pstate, OP_REGISTER);
- str.ptr = regname;
- str.length = len;
- write_exp_string (&p->pstate, str);
- write_exp_elt_opcode (&p->pstate, OP_REGISTER);
- p->arg = s;
- }
- else
- {
-
- return 0;
- }
- return 1;
- }
- static struct objfile *spe_context_objfile = NULL;
- static CORE_ADDR spe_context_lm_addr = 0;
- static CORE_ADDR spe_context_offset = 0;
- static ptid_t spe_context_cache_ptid;
- static CORE_ADDR spe_context_cache_address;
- static void
- ppc_linux_spe_context_lookup (struct objfile *objfile)
- {
- struct bound_minimal_symbol sym;
- if (!objfile)
- {
- spe_context_objfile = NULL;
- spe_context_lm_addr = 0;
- spe_context_offset = 0;
- spe_context_cache_ptid = minus_one_ptid;
- spe_context_cache_address = 0;
- return;
- }
- sym = lookup_minimal_symbol ("__spe_current_active_context", NULL, objfile);
- if (sym.minsym)
- {
- spe_context_objfile = objfile;
- spe_context_lm_addr = svr4_fetch_objfile_link_map (objfile);
- spe_context_offset = BMSYMBOL_VALUE_ADDRESS (sym);
- spe_context_cache_ptid = minus_one_ptid;
- spe_context_cache_address = 0;
- return;
- }
- }
- static void
- ppc_linux_spe_context_inferior_created (struct target_ops *t, int from_tty)
- {
- struct objfile *objfile;
- ppc_linux_spe_context_lookup (NULL);
- ALL_OBJFILES (objfile)
- ppc_linux_spe_context_lookup (objfile);
- }
- static void
- ppc_linux_spe_context_solib_loaded (struct so_list *so)
- {
- if (strstr (so->so_original_name, "/libspe") != NULL)
- {
- solib_read_symbols (so, 0);
- ppc_linux_spe_context_lookup (so->objfile);
- }
- }
- static void
- ppc_linux_spe_context_solib_unloaded (struct so_list *so)
- {
- if (so->objfile == spe_context_objfile)
- ppc_linux_spe_context_lookup (NULL);
- }
- static CORE_ADDR
- ppc_linux_spe_context (int wordsize, enum bfd_endian byte_order,
- int n, int *id, unsigned int *npc)
- {
- CORE_ADDR spe_context = 0;
- gdb_byte buf[16];
- int i;
-
- if (!spe_context_objfile)
- return 0;
-
- if (!ptid_equal (spe_context_cache_ptid, inferior_ptid))
- {
- struct target_ops *target = ¤t_target;
- volatile struct gdb_exception ex;
- TRY_CATCH (ex, RETURN_MASK_ERROR)
- {
-
- spe_context_cache_address
- = target->to_get_thread_local_address (target, inferior_ptid,
- spe_context_lm_addr,
- spe_context_offset);
- spe_context_cache_ptid = inferior_ptid;
- }
- if (ex.reason < 0)
- return 0;
- }
-
- if (target_read_memory (spe_context_cache_address, buf, wordsize) == 0)
- spe_context = extract_unsigned_integer (buf, wordsize, byte_order);
-
- for (i = 0; i < n && spe_context; i++)
- if (target_read_memory (spe_context + align_up (12, wordsize),
- buf, wordsize) == 0)
- spe_context = extract_unsigned_integer (buf, wordsize, byte_order);
- else
- spe_context = 0;
-
- if (spe_context
- && target_read_memory (spe_context, buf, 12) != 0)
- spe_context = 0;
-
- if (spe_context)
- {
- if (id)
- *id = extract_signed_integer (buf, 4, byte_order);
- if (npc)
- *npc = extract_unsigned_integer (buf + 4, 4, byte_order);
- }
- return spe_context;
- }
- struct ppu2spu_cache
- {
- struct frame_id frame_id;
- struct regcache *regcache;
- };
- static struct gdbarch *
- ppu2spu_prev_arch (struct frame_info *this_frame, void **this_cache)
- {
- struct ppu2spu_cache *cache = *this_cache;
- return get_regcache_arch (cache->regcache);
- }
- static void
- ppu2spu_this_id (struct frame_info *this_frame,
- void **this_cache, struct frame_id *this_id)
- {
- struct ppu2spu_cache *cache = *this_cache;
- *this_id = cache->frame_id;
- }
- static struct value *
- ppu2spu_prev_register (struct frame_info *this_frame,
- void **this_cache, int regnum)
- {
- struct ppu2spu_cache *cache = *this_cache;
- struct gdbarch *gdbarch = get_regcache_arch (cache->regcache);
- gdb_byte *buf;
- buf = alloca (register_size (gdbarch, regnum));
- if (regnum < gdbarch_num_regs (gdbarch))
- regcache_raw_read (cache->regcache, regnum, buf);
- else
- gdbarch_pseudo_register_read (gdbarch, cache->regcache, regnum, buf);
- return frame_unwind_got_bytes (this_frame, regnum, buf);
- }
- struct ppu2spu_data
- {
- struct gdbarch *gdbarch;
- int id;
- unsigned int npc;
- gdb_byte gprs[128*16];
- };
- static int
- ppu2spu_unwind_register (void *src, int regnum, gdb_byte *buf)
- {
- struct ppu2spu_data *data = src;
- enum bfd_endian byte_order = gdbarch_byte_order (data->gdbarch);
- if (regnum >= 0 && regnum < SPU_NUM_GPRS)
- memcpy (buf, data->gprs + 16*regnum, 16);
- else if (regnum == SPU_ID_REGNUM)
- store_unsigned_integer (buf, 4, byte_order, data->id);
- else if (regnum == SPU_PC_REGNUM)
- store_unsigned_integer (buf, 4, byte_order, data->npc);
- else
- return REG_UNAVAILABLE;
- return REG_VALID;
- }
- static int
- ppu2spu_sniffer (const struct frame_unwind *self,
- struct frame_info *this_frame, void **this_prologue_cache)
- {
- struct gdbarch *gdbarch = get_frame_arch (this_frame);
- struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
- enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
- struct ppu2spu_data data;
- struct frame_info *fi;
- CORE_ADDR base, func, backchain, spe_context;
- gdb_byte buf[8];
- int n = 0;
-
- for (fi = get_next_frame (this_frame); fi; fi = get_next_frame (fi))
- if (get_frame_type (fi) == ARCH_FRAME
- && gdbarch_bfd_arch_info (get_frame_arch (fi))->arch == bfd_arch_spu)
- n++;
- base = get_frame_sp (this_frame);
- func = get_frame_pc (this_frame);
- if (target_read_memory (base, buf, tdep->wordsize))
- return 0;
- backchain = extract_unsigned_integer (buf, tdep->wordsize, byte_order);
- spe_context = ppc_linux_spe_context (tdep->wordsize, byte_order,
- n, &data.id, &data.npc);
- if (spe_context && base <= spe_context && spe_context < backchain)
- {
- char annex[32];
-
- struct gdbarch_info info;
- gdbarch_info_init (&info);
- info.bfd_arch_info = bfd_lookup_arch (bfd_arch_spu, bfd_mach_spu);
- info.byte_order = BFD_ENDIAN_BIG;
- info.osabi = GDB_OSABI_LINUX;
- info.tdep_info = (void *) &data.id;
- data.gdbarch = gdbarch_find_by_info (info);
- if (!data.gdbarch)
- return 0;
- xsnprintf (annex, sizeof annex, "%d/regs", data.id);
- if (target_read (¤t_target, TARGET_OBJECT_SPU, annex,
- data.gprs, 0, sizeof data.gprs)
- == sizeof data.gprs)
- {
- struct ppu2spu_cache *cache
- = FRAME_OBSTACK_CALLOC (1, struct ppu2spu_cache);
- struct address_space *aspace = get_frame_address_space (this_frame);
- struct regcache *regcache = regcache_xmalloc (data.gdbarch, aspace);
- struct cleanup *cleanups = make_cleanup_regcache_xfree (regcache);
- regcache_save (regcache, ppu2spu_unwind_register, &data);
- discard_cleanups (cleanups);
- cache->frame_id = frame_id_build (base, func);
- cache->regcache = regcache;
- *this_prologue_cache = cache;
- return 1;
- }
- }
- return 0;
- }
- static void
- ppu2spu_dealloc_cache (struct frame_info *self, void *this_cache)
- {
- struct ppu2spu_cache *cache = this_cache;
- regcache_xfree (cache->regcache);
- }
- static const struct frame_unwind ppu2spu_unwind = {
- ARCH_FRAME,
- default_frame_unwind_stop_reason,
- ppu2spu_this_id,
- ppu2spu_prev_register,
- NULL,
- ppu2spu_sniffer,
- ppu2spu_dealloc_cache,
- ppu2spu_prev_arch,
- };
- static void
- ppc_linux_init_abi (struct gdbarch_info info,
- struct gdbarch *gdbarch)
- {
- struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
- struct tdesc_arch_data *tdesc_data = (void *) info.tdep_info;
- static const char *const stap_integer_prefixes[] = { "i", 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_gdbarch_long_double_bit (gdbarch, 16 * TARGET_CHAR_BIT);
- set_gdbarch_long_double_format (gdbarch, floatformats_ibm_long_double);
-
- set_gdbarch_write_pc (gdbarch, ppc_linux_write_pc);
-
- set_gdbarch_get_syscall_number (gdbarch, ppc_linux_get_syscall_number);
-
- set_gdbarch_stap_integer_prefixes (gdbarch, stap_integer_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, ppc_stap_is_single_operand);
- set_gdbarch_stap_parse_special_token (gdbarch,
- ppc_stap_parse_special_token);
- if (tdep->wordsize == 4)
- {
-
- set_gdbarch_return_value (gdbarch, ppc_linux_return_value);
- set_gdbarch_memory_remove_breakpoint (gdbarch,
- ppc_linux_memory_remove_breakpoint);
-
- set_gdbarch_skip_trampoline_code (gdbarch, ppc_skip_trampoline_code);
- set_solib_svr4_fetch_link_map_offsets
- (gdbarch, svr4_ilp32_fetch_link_map_offsets);
-
- set_xml_syscall_file_name (gdbarch, XML_SYSCALL_FILENAME_PPC);
-
- tramp_frame_prepend_unwinder (gdbarch,
- &ppc32_linux_sigaction_tramp_frame);
- tramp_frame_prepend_unwinder (gdbarch,
- &ppc32_linux_sighandler_tramp_frame);
-
- if (gdbarch_byte_order (gdbarch) == BFD_ENDIAN_LITTLE)
- set_gdbarch_gcore_bfd_target (gdbarch, "elf32-powerpcle");
- else
- set_gdbarch_gcore_bfd_target (gdbarch, "elf32-powerpc");
- if (powerpc_so_ops.in_dynsym_resolve_code == NULL)
- {
- powerpc_so_ops = svr4_so_ops;
-
- powerpc_so_ops.in_dynsym_resolve_code =
- powerpc_linux_in_dynsym_resolve_code;
- }
- set_solib_ops (gdbarch, &powerpc_so_ops);
- set_gdbarch_skip_solib_resolver (gdbarch, glibc_skip_solib_resolver);
- }
- if (tdep->wordsize == 8)
- {
- if (tdep->elf_abi == POWERPC_ELF_V1)
- {
-
- set_gdbarch_convert_from_func_ptr_addr
- (gdbarch, ppc64_convert_from_func_ptr_addr);
- set_gdbarch_elf_make_msymbol_special
- (gdbarch, ppc64_elf_make_msymbol_special);
- }
- else
- {
- set_gdbarch_elf_make_msymbol_special
- (gdbarch, ppc_elfv2_elf_make_msymbol_special);
- set_gdbarch_skip_entrypoint (gdbarch, ppc_elfv2_skip_entrypoint);
- }
-
- set_gdbarch_skip_trampoline_code (gdbarch, ppc64_skip_trampoline_code);
- set_solib_svr4_fetch_link_map_offsets
- (gdbarch, svr4_lp64_fetch_link_map_offsets);
-
- set_xml_syscall_file_name (gdbarch, XML_SYSCALL_FILENAME_PPC64);
-
- tramp_frame_prepend_unwinder (gdbarch,
- &ppc64_linux_sigaction_tramp_frame);
- tramp_frame_prepend_unwinder (gdbarch,
- &ppc64_linux_sighandler_tramp_frame);
-
- if (gdbarch_byte_order (gdbarch) == BFD_ENDIAN_LITTLE)
- set_gdbarch_gcore_bfd_target (gdbarch, "elf64-powerpcle");
- else
- set_gdbarch_gcore_bfd_target (gdbarch, "elf64-powerpc");
- }
-
- if (tdep->wordsize == 4)
- set_gdbarch_elfcore_write_linux_prpsinfo (gdbarch,
- elfcore_write_ppc_linux_prpsinfo32);
- set_gdbarch_core_read_description (gdbarch, ppc_linux_core_read_description);
- set_gdbarch_iterate_over_regset_sections (gdbarch,
- ppc_linux_iterate_over_regset_sections);
-
- set_gdbarch_fetch_tls_load_module_address (gdbarch,
- svr4_fetch_objfile_link_map);
- if (tdesc_data)
- {
- const struct tdesc_feature *feature;
-
- gdb_assert (gdbarch_num_regs (gdbarch) <= PPC_ORIG_R3_REGNUM);
- set_gdbarch_num_regs (gdbarch, PPC_TRAP_REGNUM + 1);
-
- feature = tdesc_find_feature (info.target_desc,
- "org.gnu.gdb.power.linux");
- if (feature != NULL)
- {
- tdesc_numbered_register (feature, tdesc_data,
- PPC_ORIG_R3_REGNUM, "orig_r3");
- tdesc_numbered_register (feature, tdesc_data,
- PPC_TRAP_REGNUM, "trap");
- }
- }
-
- if (tdesc_compatible_p (info.target_desc,
- bfd_lookup_arch (bfd_arch_spu, bfd_mach_spu)))
- {
-
- set_spu_solib_ops (gdbarch);
-
- frame_unwind_prepend_unwinder (gdbarch, &ppu2spu_unwind);
-
- set_gdbarch_displaced_step_location (gdbarch,
- ppc_linux_displaced_step_location);
- }
- set_gdbarch_get_siginfo_type (gdbarch, linux_get_siginfo_type);
- }
- extern initialize_file_ftype _initialize_ppc_linux_tdep;
- void
- _initialize_ppc_linux_tdep (void)
- {
-
- gdbarch_register_osabi (bfd_arch_powerpc, bfd_mach_ppc, GDB_OSABI_LINUX,
- ppc_linux_init_abi);
- gdbarch_register_osabi (bfd_arch_powerpc, bfd_mach_ppc64, GDB_OSABI_LINUX,
- ppc_linux_init_abi);
- gdbarch_register_osabi (bfd_arch_rs6000, bfd_mach_rs6k, GDB_OSABI_LINUX,
- ppc_linux_init_abi);
-
- observer_attach_inferior_created (ppc_linux_inferior_created);
-
- observer_attach_inferior_created (ppc_linux_spe_context_inferior_created);
- observer_attach_solib_loaded (ppc_linux_spe_context_solib_loaded);
- observer_attach_solib_unloaded (ppc_linux_spe_context_solib_unloaded);
-
- initialize_tdesc_powerpc_32l ();
- initialize_tdesc_powerpc_altivec32l ();
- initialize_tdesc_powerpc_cell32l ();
- initialize_tdesc_powerpc_vsx32l ();
- initialize_tdesc_powerpc_isa205_32l ();
- initialize_tdesc_powerpc_isa205_altivec32l ();
- initialize_tdesc_powerpc_isa205_vsx32l ();
- initialize_tdesc_powerpc_64l ();
- initialize_tdesc_powerpc_altivec64l ();
- initialize_tdesc_powerpc_cell64l ();
- initialize_tdesc_powerpc_vsx64l ();
- initialize_tdesc_powerpc_isa205_64l ();
- initialize_tdesc_powerpc_isa205_altivec64l ();
- initialize_tdesc_powerpc_isa205_vsx64l ();
- initialize_tdesc_powerpc_e500l ();
- }