| /* Target-dependent code for NetBSD/sparc. |
| |
| Copyright 2002, 2003, 2004 Free Software Foundation, Inc. |
| Contributed by Wasabi Systems, 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 2 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, write to the Free Software |
| Foundation, Inc., 59 Temple Place - Suite 330, |
| Boston, MA 02111-1307, USA. */ |
| |
| #include "defs.h" |
| #include "floatformat.h" |
| #include "frame.h" |
| #include "frame-unwind.h" |
| #include "gdbcore.h" |
| #include "osabi.h" |
| #include "regcache.h" |
| #include "regset.h" |
| #include "solib-svr4.h" |
| #include "symtab.h" |
| #include "trad-frame.h" |
| |
| #include "gdb_assert.h" |
| #include "gdb_string.h" |
| |
| #include "sparc-tdep.h" |
| #include "nbsd-tdep.h" |
| |
| const struct sparc_gregset sparc32nbsd_gregset = |
| { |
| 0 * 4, /* %psr */ |
| 1 * 4, /* %pc */ |
| 2 * 4, /* %npc */ |
| 3 * 4, /* %y */ |
| -1, /* %wim */ |
| -1, /* %tbr */ |
| 5 * 4, /* %g1 */ |
| -1 /* %l0 */ |
| }; |
| |
| /* Unlike other NetBSD implementations, the SPARC port historically |
| used .reg and .reg2 (see bfd/netbsd-core.c), and as such, we can |
| share one routine for a.out and ELF core files. */ |
| |
| static void |
| sparc32nbsd_supply_gregset (const struct regset *regset, |
| struct regcache *regcache, |
| int regnum, const void *gregs, size_t len) |
| { |
| sparc32_supply_gregset (regset->descr, regcache, regnum, gregs); |
| } |
| |
| static void |
| sparc32nbsd_supply_fpregset (const struct regset *regset, |
| struct regcache *regcache, |
| int regnum, const void *fpregs, size_t len) |
| { |
| sparc32_supply_fpregset (regcache, regnum, fpregs); |
| } |
| |
| |
| /* Signal trampolines. */ |
| |
| /* The following variables describe the location of an on-stack signal |
| trampoline. The current values correspond to the memory layout for |
| NetBSD 1.3 and up. These shouldn't be necessary for NetBSD 2.0 and |
| up, since NetBSD uses signal trampolines provided by libc now. */ |
| |
| static const CORE_ADDR sparc32nbsd_sigtramp_start = 0xeffffef0; |
| static const CORE_ADDR sparc32nbsd_sigtramp_end = 0xeffffff0; |
| |
| static int |
| sparc32nbsd_pc_in_sigtramp (CORE_ADDR pc, char *name) |
| { |
| if (pc >= sparc32nbsd_sigtramp_start && pc < sparc32nbsd_sigtramp_end) |
| return 1; |
| |
| return nbsd_pc_in_sigtramp (pc, name); |
| } |
| |
| static struct sparc_frame_cache * |
| sparc32nbsd_sigcontext_frame_cache (struct frame_info *next_frame, |
| void **this_cache) |
| { |
| struct sparc_frame_cache *cache; |
| CORE_ADDR addr, sigcontext_addr; |
| LONGEST psr; |
| int regnum, delta; |
| |
| if (*this_cache) |
| return *this_cache; |
| |
| cache = sparc_frame_cache (next_frame, this_cache); |
| gdb_assert (cache == *this_cache); |
| |
| /* The registers are saved in bits and pieces scattered all over the |
| place. The code below records their location on the assumption |
| that the part of the signal trampoline that saves the state has |
| been executed. */ |
| |
| /* If we couldn't find the frame's function, we're probably dealing |
| with an on-stack signal trampoline. */ |
| if (cache->pc == 0) |
| { |
| cache->pc = sparc32nbsd_sigtramp_start; |
| |
| /* Since we couldn't find the frame's function, the cache was |
| initialized under the assumption that we're frameless. */ |
| cache->frameless_p = 0; |
| addr = frame_unwind_register_unsigned (next_frame, SPARC_FP_REGNUM); |
| cache->base = addr; |
| } |
| |
| cache->saved_regs = trad_frame_alloc_saved_regs (next_frame); |
| |
| /* We find the appropriate instance of `struct sigcontext' at a |
| fixed offset in the signal frame. */ |
| sigcontext_addr = cache->base + 64 + 16; |
| |
| cache->saved_regs[SPARC_SP_REGNUM].addr = sigcontext_addr + 8; |
| cache->saved_regs[SPARC32_PC_REGNUM].addr = sigcontext_addr + 12; |
| cache->saved_regs[SPARC32_NPC_REGNUM].addr = sigcontext_addr + 16; |
| cache->saved_regs[SPARC32_PSR_REGNUM].addr = sigcontext_addr + 20; |
| cache->saved_regs[SPARC_G1_REGNUM].addr = sigcontext_addr + 24; |
| cache->saved_regs[SPARC_O0_REGNUM].addr = sigcontext_addr + 28; |
| |
| /* The remaining `global' registers and %y are saved in the `local' |
| registers. */ |
| delta = SPARC_L0_REGNUM - SPARC_G0_REGNUM; |
| for (regnum = SPARC_G2_REGNUM; regnum <= SPARC_G7_REGNUM; regnum++) |
| cache->saved_regs[regnum].realreg = regnum + delta; |
| cache->saved_regs[SPARC32_Y_REGNUM].realreg = SPARC_L1_REGNUM; |
| |
| /* The remaining `out' registers can be found in the current frame's |
| `in' registers. */ |
| delta = SPARC_I0_REGNUM - SPARC_O0_REGNUM; |
| for (regnum = SPARC_O1_REGNUM; regnum <= SPARC_O5_REGNUM; regnum++) |
| cache->saved_regs[regnum].realreg = regnum + delta; |
| cache->saved_regs[SPARC_O7_REGNUM].realreg = SPARC_I7_REGNUM; |
| |
| /* The `local' and `in' registers have been saved in the register |
| save area. */ |
| addr = cache->saved_regs[SPARC_SP_REGNUM].addr; |
| addr = get_frame_memory_unsigned (next_frame, addr, 4); |
| for (regnum = SPARC_L0_REGNUM; |
| regnum <= SPARC_I7_REGNUM; regnum++, addr += 4) |
| cache->saved_regs[regnum].addr = addr; |
| |
| /* The floating-point registers are only saved if the EF bit in %prs |
| has been set. */ |
| |
| #define PSR_EF 0x00001000 |
| |
| addr = cache->saved_regs[SPARC32_PSR_REGNUM].addr; |
| psr = get_frame_memory_unsigned (next_frame, addr, 4); |
| if (psr & PSR_EF) |
| { |
| CORE_ADDR sp; |
| |
| sp = frame_unwind_register_unsigned (next_frame, SPARC_SP_REGNUM); |
| cache->saved_regs[SPARC32_FSR_REGNUM].addr = sp + 96; |
| for (regnum = SPARC_F0_REGNUM, addr = sp + 96 + 8; |
| regnum <= SPARC_F31_REGNUM; regnum++, addr += 4) |
| cache->saved_regs[regnum].addr = addr; |
| } |
| |
| return cache; |
| } |
| |
| static void |
| sparc32nbsd_sigcontext_frame_this_id (struct frame_info *next_frame, |
| void **this_cache, |
| struct frame_id *this_id) |
| { |
| struct sparc_frame_cache *cache = |
| sparc32nbsd_sigcontext_frame_cache (next_frame, this_cache); |
| |
| (*this_id) = frame_id_build (cache->base, cache->pc); |
| } |
| |
| static void |
| sparc32nbsd_sigcontext_frame_prev_register (struct frame_info *next_frame, |
| void **this_cache, |
| int regnum, int *optimizedp, |
| enum lval_type *lvalp, |
| CORE_ADDR *addrp, |
| int *realnump, void *valuep) |
| { |
| struct sparc_frame_cache *cache = |
| sparc32nbsd_sigcontext_frame_cache (next_frame, this_cache); |
| |
| trad_frame_prev_register (next_frame, cache->saved_regs, regnum, |
| optimizedp, lvalp, addrp, realnump, valuep); |
| } |
| |
| static const struct frame_unwind sparc32nbsd_sigcontext_frame_unwind = |
| { |
| SIGTRAMP_FRAME, |
| sparc32nbsd_sigcontext_frame_this_id, |
| sparc32nbsd_sigcontext_frame_prev_register |
| }; |
| |
| static const struct frame_unwind * |
| sparc32nbsd_sigtramp_frame_sniffer (struct frame_info *next_frame) |
| { |
| CORE_ADDR pc = frame_pc_unwind (next_frame); |
| char *name; |
| |
| find_pc_partial_function (pc, &name, NULL, NULL); |
| if (sparc32nbsd_pc_in_sigtramp (pc, name)) |
| { |
| if (name == NULL || strncmp (name, "__sigtramp_sigcontext", 21)) |
| return &sparc32nbsd_sigcontext_frame_unwind; |
| } |
| |
| return NULL; |
| } |
| |
| |
| /* Return non-zero if we are in a shared library trampoline code stub. */ |
| |
| static int |
| sparcnbsd_aout_in_solib_call_trampoline (CORE_ADDR pc, char *name) |
| { |
| return (name && !strcmp (name, "_DYNAMIC")); |
| } |
| |
| static void |
| sparc32nbsd_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch) |
| { |
| struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch); |
| |
| /* NetBSD doesn't support the 128-bit `long double' from the psABI. */ |
| set_gdbarch_long_double_bit (gdbarch, 64); |
| set_gdbarch_long_double_format (gdbarch, &floatformat_ieee_double_big); |
| |
| tdep->gregset = XMALLOC (struct regset); |
| tdep->gregset->descr = &sparc32nbsd_gregset; |
| tdep->gregset->supply_regset = sparc32nbsd_supply_gregset; |
| |
| tdep->fpregset = XMALLOC (struct regset); |
| tdep->fpregset->supply_regset = sparc32nbsd_supply_fpregset; |
| |
| set_gdbarch_pc_in_sigtramp (gdbarch, sparc32nbsd_pc_in_sigtramp); |
| frame_unwind_append_sniffer (gdbarch, sparc32nbsd_sigtramp_frame_sniffer); |
| } |
| |
| static void |
| sparc32nbsd_aout_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch) |
| { |
| sparc32nbsd_init_abi (info, gdbarch); |
| |
| set_gdbarch_in_solib_call_trampoline |
| (gdbarch, sparcnbsd_aout_in_solib_call_trampoline); |
| } |
| |
| static void |
| sparc32nbsd_elf_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch) |
| { |
| sparc32nbsd_init_abi (info, gdbarch); |
| |
| set_solib_svr4_fetch_link_map_offsets |
| (gdbarch, nbsd_ilp32_solib_svr4_fetch_link_map_offsets); |
| } |
| |
| static enum gdb_osabi |
| sparcnbsd_aout_osabi_sniffer (bfd *abfd) |
| { |
| if (strcmp (bfd_get_target (abfd), "a.out-sparc-netbsd") == 0) |
| return GDB_OSABI_NETBSD_AOUT; |
| |
| return GDB_OSABI_UNKNOWN; |
| } |
| |
| |
| /* Provide a prototype to silence -Wmissing-prototypes. */ |
| void _initialize_sparcnbsd_tdep (void); |
| |
| void |
| _initialize_sparnbsd_tdep (void) |
| { |
| gdbarch_register_osabi_sniffer (bfd_arch_sparc, bfd_target_aout_flavour, |
| sparcnbsd_aout_osabi_sniffer); |
| |
| gdbarch_register_osabi (bfd_arch_sparc, 0, GDB_OSABI_NETBSD_AOUT, |
| sparc32nbsd_aout_init_abi); |
| gdbarch_register_osabi (bfd_arch_sparc, 0, GDB_OSABI_NETBSD_ELF, |
| sparc32nbsd_elf_init_abi); |
| } |