gdb/spu-multiarch.c - gdb
Global variables defined
Functions defined
Macros defined
Source code
- #include "defs.h"
- #include "gdbcore.h"
- #include "gdbcmd.h"
- #include "arch-utils.h"
- #include "observer.h"
- #include "inferior.h"
- #include "regcache.h"
- #include "symfile.h"
- #include "objfiles.h"
- #include "solib.h"
- #include "solist.h"
- #include "ppc-tdep.h"
- #include "ppc-linux-tdep.h"
- #include "spu-tdep.h"
- static struct target_ops spu_ops;
- static int spu_nr_solib;
- #define spu_standalone_p() \
- (symfile_objfile && symfile_objfile->obfd \
- && bfd_get_arch (symfile_objfile->obfd) == bfd_arch_spu)
- #define INSTR_SC 0x44000002
- #define NR_spu_run 0x0116
- static int
- parse_spufs_run (ptid_t ptid, int *fd, CORE_ADDR *addr)
- {
- enum bfd_endian byte_order = gdbarch_byte_order (target_gdbarch ());
- struct gdbarch_tdep *tdep;
- struct regcache *regcache;
- gdb_byte buf[4];
- ULONGEST regval;
-
- if (gdbarch_bfd_arch_info (target_gdbarch ())->arch != bfd_arch_powerpc)
- return 0;
-
- regcache = get_thread_arch_regcache (ptid, target_gdbarch ());
- tdep = gdbarch_tdep (target_gdbarch ());
-
- if (target_read_memory (regcache_read_pc (regcache) - 4, buf, 4) != 0)
- return 0;
-
- if (extract_unsigned_integer (buf, 4, byte_order) != INSTR_SC)
- return 0;
-
- regcache_cooked_read_unsigned (regcache, tdep->ppc_gp0_regnum, ®val);
- if (regval != NR_spu_run)
- return 0;
-
- regcache_cooked_read_unsigned (regcache, PPC_ORIG_R3_REGNUM, ®val);
- *fd = (int) regval;
- regcache_cooked_read_unsigned (regcache, tdep->ppc_gp0_regnum + 4, ®val);
- *addr = (CORE_ADDR) regval;
- return 1;
- }
- static struct gdbarch *
- spu_gdbarch (int spufs_fd)
- {
- 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 *) &spufs_fd;
- return gdbarch_find_by_info (info);
- }
- static struct gdbarch *
- spu_thread_architecture (struct target_ops *ops, ptid_t ptid)
- {
- int spufs_fd;
- CORE_ADDR spufs_addr;
- if (parse_spufs_run (ptid, &spufs_fd, &spufs_addr))
- return spu_gdbarch (spufs_fd);
- return target_gdbarch ();
- }
- static int
- spu_region_ok_for_hw_watchpoint (struct target_ops *self,
- CORE_ADDR addr, int len)
- {
- struct target_ops *ops_beneath = find_target_beneath (self);
-
- if (SPUADDR_SPU (addr) != -1)
- return 0;
- return ops_beneath->to_region_ok_for_hw_watchpoint (ops_beneath, addr, len);
- }
- static void
- spu_fetch_registers (struct target_ops *ops,
- struct regcache *regcache, int regno)
- {
- struct gdbarch *gdbarch = get_regcache_arch (regcache);
- enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
- struct target_ops *ops_beneath = find_target_beneath (ops);
- int spufs_fd;
- CORE_ADDR spufs_addr;
-
- if (gdbarch_bfd_arch_info (gdbarch)->arch != bfd_arch_spu)
- {
- ops_beneath->to_fetch_registers (ops_beneath, regcache, regno);
- return;
- }
-
- if (!parse_spufs_run (inferior_ptid, &spufs_fd, &spufs_addr))
- return;
-
- if (regno == -1 || regno == SPU_ID_REGNUM)
- {
- gdb_byte buf[4];
- store_unsigned_integer (buf, 4, byte_order, spufs_fd);
- regcache_raw_supply (regcache, SPU_ID_REGNUM, buf);
- }
-
- if (regno == -1 || regno == SPU_PC_REGNUM)
- {
- gdb_byte buf[4];
- if (target_read (ops_beneath, TARGET_OBJECT_MEMORY, NULL,
- buf, spufs_addr, sizeof buf) == sizeof buf)
- regcache_raw_supply (regcache, SPU_PC_REGNUM, buf);
- }
-
- if (regno == -1 || (regno >= 0 && regno < SPU_NUM_GPRS))
- {
- gdb_byte buf[16 * SPU_NUM_GPRS];
- char annex[32];
- int i;
- xsnprintf (annex, sizeof annex, "%d/regs", spufs_fd);
- if (target_read (ops_beneath, TARGET_OBJECT_SPU, annex,
- buf, 0, sizeof buf) == sizeof buf)
- for (i = 0; i < SPU_NUM_GPRS; i++)
- regcache_raw_supply (regcache, i, buf + i*16);
- }
- }
- static void
- spu_store_registers (struct target_ops *ops,
- struct regcache *regcache, int regno)
- {
- struct gdbarch *gdbarch = get_regcache_arch (regcache);
- struct target_ops *ops_beneath = find_target_beneath (ops);
- int spufs_fd;
- CORE_ADDR spufs_addr;
-
- if (gdbarch_bfd_arch_info (gdbarch)->arch != bfd_arch_spu)
- {
- ops_beneath->to_store_registers (ops_beneath, regcache, regno);
- return;
- }
-
- if (!parse_spufs_run (inferior_ptid, &spufs_fd, &spufs_addr))
- return;
-
- if (regno == -1 || regno == SPU_PC_REGNUM)
- {
- gdb_byte buf[4];
- regcache_raw_collect (regcache, SPU_PC_REGNUM, buf);
- target_write (ops_beneath, TARGET_OBJECT_MEMORY, NULL,
- buf, spufs_addr, sizeof buf);
- }
-
- if (regno == -1 || (regno >= 0 && regno < SPU_NUM_GPRS))
- {
- gdb_byte buf[16 * SPU_NUM_GPRS];
- char annex[32];
- int i;
- for (i = 0; i < SPU_NUM_GPRS; i++)
- regcache_raw_collect (regcache, i, buf + i*16);
- xsnprintf (annex, sizeof annex, "%d/regs", spufs_fd);
- target_write (ops_beneath, TARGET_OBJECT_SPU, annex,
- buf, 0, sizeof buf);
- }
- }
- static enum target_xfer_status
- spu_xfer_partial (struct target_ops *ops, enum target_object object,
- const char *annex, gdb_byte *readbuf,
- const gdb_byte *writebuf, ULONGEST offset, ULONGEST len,
- ULONGEST *xfered_len)
- {
- struct target_ops *ops_beneath = find_target_beneath (ops);
-
- if (object == TARGET_OBJECT_MEMORY)
- {
- int fd = SPUADDR_SPU (offset);
- CORE_ADDR addr = SPUADDR_ADDR (offset);
- char mem_annex[32], lslr_annex[32];
- gdb_byte buf[32];
- ULONGEST lslr;
- enum target_xfer_status ret;
- if (fd >= 0)
- {
- xsnprintf (mem_annex, sizeof mem_annex, "%d/mem", fd);
- ret = ops_beneath->to_xfer_partial (ops_beneath, TARGET_OBJECT_SPU,
- mem_annex, readbuf, writebuf,
- addr, len, xfered_len);
- if (ret == TARGET_XFER_OK)
- return ret;
-
- xsnprintf (lslr_annex, sizeof lslr_annex, "%d/lslr", fd);
- memset (buf, 0, sizeof buf);
- if (ops_beneath->to_xfer_partial (ops_beneath, TARGET_OBJECT_SPU,
- lslr_annex, buf, NULL,
- 0, sizeof buf, xfered_len)
- != TARGET_XFER_OK)
- return ret;
- lslr = strtoulst ((char *) buf, NULL, 16);
- return ops_beneath->to_xfer_partial (ops_beneath, TARGET_OBJECT_SPU,
- mem_annex, readbuf, writebuf,
- addr & lslr, len, xfered_len);
- }
- }
- return ops_beneath->to_xfer_partial (ops_beneath, object, annex,
- readbuf, writebuf, offset, len, xfered_len);
- }
- static int
- spu_search_memory (struct target_ops* ops,
- CORE_ADDR start_addr, ULONGEST search_space_len,
- const gdb_byte *pattern, ULONGEST pattern_len,
- CORE_ADDR *found_addrp)
- {
- struct target_ops *ops_beneath = find_target_beneath (ops);
-
- if (SPUADDR_SPU (start_addr) >= 0)
- return simple_search_memory (ops,
- start_addr, search_space_len,
- pattern, pattern_len, found_addrp);
- return ops_beneath->to_search_memory (ops_beneath,
- start_addr, search_space_len,
- pattern, pattern_len, found_addrp);
- }
- static void
- spu_multiarch_activate (void)
- {
-
- if (spu_gdbarch (-1) == NULL)
- return;
- push_target (&spu_ops);
-
- registers_changed ();
- }
- static void
- spu_multiarch_deactivate (void)
- {
- unpush_target (&spu_ops);
-
- registers_changed ();
- }
- static void
- spu_multiarch_inferior_created (struct target_ops *ops, int from_tty)
- {
- if (spu_standalone_p ())
- spu_multiarch_activate ();
- }
- static void
- spu_multiarch_solib_loaded (struct so_list *so)
- {
- if (!spu_standalone_p ())
- if (so->abfd && bfd_get_arch (so->abfd) == bfd_arch_spu)
- if (spu_nr_solib++ == 0)
- spu_multiarch_activate ();
- }
- static void
- spu_multiarch_solib_unloaded (struct so_list *so)
- {
- if (!spu_standalone_p ())
- if (so->abfd && bfd_get_arch (so->abfd) == bfd_arch_spu)
- if (--spu_nr_solib == 0)
- spu_multiarch_deactivate ();
- }
- static void
- spu_mourn_inferior (struct target_ops *ops)
- {
- struct target_ops *ops_beneath = find_target_beneath (ops);
- ops_beneath->to_mourn_inferior (ops_beneath);
- spu_multiarch_deactivate ();
- }
- static void
- init_spu_ops (void)
- {
- spu_ops.to_shortname = "spu";
- spu_ops.to_longname = "SPU multi-architecture support.";
- spu_ops.to_doc = "SPU multi-architecture support.";
- spu_ops.to_mourn_inferior = spu_mourn_inferior;
- spu_ops.to_fetch_registers = spu_fetch_registers;
- spu_ops.to_store_registers = spu_store_registers;
- spu_ops.to_xfer_partial = spu_xfer_partial;
- spu_ops.to_search_memory = spu_search_memory;
- spu_ops.to_region_ok_for_hw_watchpoint = spu_region_ok_for_hw_watchpoint;
- spu_ops.to_thread_architecture = spu_thread_architecture;
- spu_ops.to_stratum = arch_stratum;
- spu_ops.to_magic = OPS_MAGIC;
- }
- extern initialize_file_ftype _initialize_spu_multiarch;
- void
- _initialize_spu_multiarch (void)
- {
-
- init_spu_ops ();
- complete_target_initialization (&spu_ops);
-
- observer_attach_inferior_created (spu_multiarch_inferior_created);
- observer_attach_solib_loaded (spu_multiarch_solib_loaded);
- observer_attach_solib_unloaded (spu_multiarch_solib_unloaded);
- }