1/* Target-dependent code for NetBSD/sparc64.
2
3   Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007
4   Free Software Foundation, Inc.
5   Based on code contributed by Wasabi Systems, Inc.
6
7   This file is part of GDB.
8
9   This program is free software; you can redistribute it and/or modify
10   it under the terms of the GNU General Public License as published by
11   the Free Software Foundation; either version 3 of the License, or
12   (at your option) any later version.
13
14   This program is distributed in the hope that it will be useful,
15   but WITHOUT ANY WARRANTY; without even the implied warranty of
16   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17   GNU General Public License for more details.
18
19   You should have received a copy of the GNU General Public License
20   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
21
22#include "defs.h"
23#include "frame.h"
24#include "frame-unwind.h"
25#include "gdbcore.h"
26#include "osabi.h"
27#include "regcache.h"
28#include "regset.h"
29#include "symtab.h"
30#include "objfiles.h"
31#include "solib-svr4.h"
32#include "trad-frame.h"
33
34#include "gdb_assert.h"
35#include "gdb_string.h"
36
37#include "sparc64-tdep.h"
38#include "nbsd-tdep.h"
39
40/* From <machine/reg.h>.  */
41const struct sparc_gregset sparc64nbsd_gregset =
42{
43  0 * 8,			/* "tstate" */
44  1 * 8,			/* %pc */
45  2 * 8,			/* %npc */
46  3 * 8,			/* %y */
47  -1,				/* %fprs */
48  -1,
49  5 * 8,			/* %g1 */
50  -1,				/* %l0 */
51  4				/* sizeof (%y) */
52};
53
54
55static void
56sparc64nbsd_supply_gregset (const struct regset *regset,
57			    struct regcache *regcache,
58			    int regnum, const void *gregs, size_t len)
59{
60  sparc64_supply_gregset (&sparc64nbsd_gregset, regcache, regnum, gregs);
61}
62
63static void
64sparc64nbsd_supply_fpregset (const struct regset *regset,
65			     struct regcache *regcache,
66			     int regnum, const void *fpregs, size_t len)
67{
68  sparc64_supply_fpregset (regcache, regnum, fpregs);
69}
70
71
72/* Signal trampolines.  */
73
74/* The following variables describe the location of an on-stack signal
75   trampoline.  The current values correspond to the memory layout for
76   NetBSD 1.3 and up.  These shouldn't be necessary for NetBSD 2.0 and
77   up, since NetBSD uses signal trampolines provided by libc now.  */
78
79static const CORE_ADDR sparc64nbsd_sigtramp_start = 0xffffffffffffdee4ULL;
80static const CORE_ADDR sparc64nbsd_sigtramp_end = 0xffffffffffffe000ULL;
81
82static int
83sparc64nbsd_pc_in_sigtramp (CORE_ADDR pc, char *name)
84{
85  if (pc >= sparc64nbsd_sigtramp_start && pc < sparc64nbsd_sigtramp_end)
86    return 1;
87
88  return nbsd_pc_in_sigtramp (pc, name);
89}
90
91struct trad_frame_saved_reg *
92sparc64nbsd_sigcontext_saved_regs (CORE_ADDR sigcontext_addr,
93				   struct frame_info *next_frame)
94{
95  struct trad_frame_saved_reg *saved_regs;
96  CORE_ADDR addr, sp;
97  int regnum, delta;
98
99  saved_regs = trad_frame_alloc_saved_regs (next_frame);
100
101  /* The registers are saved in bits and pieces scattered all over the
102     place.  The code below records their location on the assumption
103     that the part of the signal trampoline that saves the state has
104     been executed.  */
105
106  saved_regs[SPARC_SP_REGNUM].addr = sigcontext_addr + 8;
107  saved_regs[SPARC64_PC_REGNUM].addr = sigcontext_addr + 16;
108  saved_regs[SPARC64_NPC_REGNUM].addr = sigcontext_addr + 24;
109  saved_regs[SPARC64_STATE_REGNUM].addr = sigcontext_addr + 32;
110  saved_regs[SPARC_G1_REGNUM].addr = sigcontext_addr + 40;
111  saved_regs[SPARC_O0_REGNUM].addr = sigcontext_addr + 48;
112
113  /* The remaining `global' registers and %y are saved in the `local'
114     registers.  */
115  delta = SPARC_L0_REGNUM - SPARC_G0_REGNUM;
116  for (regnum = SPARC_G2_REGNUM; regnum <= SPARC_G7_REGNUM; regnum++)
117    saved_regs[regnum].realreg = regnum + delta;
118  saved_regs[SPARC64_Y_REGNUM].realreg = SPARC_L1_REGNUM;
119
120  /* The remaining `out' registers can be found in the current frame's
121     `in' registers.  */
122  delta = SPARC_I0_REGNUM - SPARC_O0_REGNUM;
123  for (regnum = SPARC_O1_REGNUM; regnum <= SPARC_O5_REGNUM; regnum++)
124    saved_regs[regnum].realreg = regnum + delta;
125  saved_regs[SPARC_O7_REGNUM].realreg = SPARC_I7_REGNUM;
126
127  /* The `local' and `in' registers have been saved in the register
128     save area.  */
129  addr = saved_regs[SPARC_SP_REGNUM].addr;
130  sp = get_frame_memory_unsigned (next_frame, addr, 8);
131  for (regnum = SPARC_L0_REGNUM, addr = sp + BIAS;
132       regnum <= SPARC_I7_REGNUM; regnum++, addr += 8)
133    saved_regs[regnum].addr = addr;
134
135  /* Handle StackGhost.  */
136  {
137    ULONGEST wcookie = sparc_fetch_wcookie ();
138
139    if (wcookie != 0)
140      {
141	ULONGEST i7;
142
143	addr = saved_regs[SPARC_I7_REGNUM].addr;
144	i7 = get_frame_memory_unsigned (next_frame, addr, 8);
145	trad_frame_set_value (saved_regs, SPARC_I7_REGNUM, i7 ^ wcookie);
146      }
147  }
148
149  /* TODO: Handle the floating-point registers.  */
150
151  return saved_regs;
152}
153
154static struct sparc_frame_cache *
155sparc64nbsd_sigcontext_frame_cache (struct frame_info *next_frame,
156				    void **this_cache)
157{
158  struct sparc_frame_cache *cache;
159  CORE_ADDR addr;
160
161  if (*this_cache)
162    return *this_cache;
163
164  cache = sparc_frame_cache (next_frame, this_cache);
165  gdb_assert (cache == *this_cache);
166
167  /* If we couldn't find the frame's function, we're probably dealing
168     with an on-stack signal trampoline.  */
169  if (cache->pc == 0)
170    {
171      cache->pc = sparc64nbsd_sigtramp_start;
172
173      /* Since we couldn't find the frame's function, the cache was
174         initialized under the assumption that we're frameless.  */
175      cache->frameless_p = 0;
176      addr = frame_unwind_register_unsigned (next_frame, SPARC_FP_REGNUM);
177      if (addr & 1)
178	addr += BIAS;
179      cache->base = addr;
180    }
181
182  /* We find the appropriate instance of `struct sigcontext' at a
183     fixed offset in the signal frame.  */
184  addr = cache->base + 128 + 8;
185  cache->saved_regs = sparc64nbsd_sigcontext_saved_regs (addr, next_frame);
186
187  return cache;
188}
189
190static void
191sparc64nbsd_sigcontext_frame_this_id (struct frame_info *next_frame,
192				      void **this_cache,
193				      struct frame_id *this_id)
194{
195  struct sparc_frame_cache *cache =
196    sparc64nbsd_sigcontext_frame_cache (next_frame, this_cache);
197
198  (*this_id) = frame_id_build (cache->base, cache->pc);
199}
200
201static void
202sparc64nbsd_sigcontext_frame_prev_register (struct frame_info *next_frame,
203					    void **this_cache,
204					    int regnum, int *optimizedp,
205					    enum lval_type *lvalp,
206					    CORE_ADDR *addrp,
207					    int *realnump, gdb_byte *valuep)
208{
209  struct sparc_frame_cache *cache =
210    sparc64nbsd_sigcontext_frame_cache (next_frame, this_cache);
211
212  trad_frame_get_prev_register (next_frame, cache->saved_regs, regnum,
213				optimizedp, lvalp, addrp, realnump, valuep);
214}
215
216static const struct frame_unwind sparc64nbsd_sigcontext_frame_unwind =
217{
218  SIGTRAMP_FRAME,
219  sparc64nbsd_sigcontext_frame_this_id,
220  sparc64nbsd_sigcontext_frame_prev_register
221};
222
223static const struct frame_unwind *
224sparc64nbsd_sigtramp_frame_sniffer (struct frame_info *next_frame)
225{
226  CORE_ADDR pc = frame_pc_unwind (next_frame);
227  char *name;
228
229  find_pc_partial_function (pc, &name, NULL, NULL);
230  if (sparc64nbsd_pc_in_sigtramp (pc, name))
231    {
232      if (name == NULL || strncmp (name, "__sigtramp_sigcontext", 21))
233	return &sparc64nbsd_sigcontext_frame_unwind;
234    }
235
236  return NULL;
237}
238
239
240static void
241sparc64nbsd_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
242{
243  struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
244
245  tdep->gregset = regset_alloc (gdbarch, sparc64nbsd_supply_gregset, NULL);
246  tdep->sizeof_gregset = 160;
247
248  tdep->fpregset = regset_alloc (gdbarch, sparc64nbsd_supply_fpregset, NULL);
249  tdep->sizeof_fpregset = 272;
250
251  /* Make sure we can single-step "new" syscalls.  */
252  tdep->step_trap = sparcnbsd_step_trap;
253
254  frame_unwind_append_sniffer (gdbarch, sparc64nbsd_sigtramp_frame_sniffer);
255
256  sparc64_init_abi (info, gdbarch);
257
258  /* NetBSD/sparc64 has SVR4-style shared libraries.  */
259  set_gdbarch_skip_trampoline_code (gdbarch, find_solib_trampoline_target);
260  set_solib_svr4_fetch_link_map_offsets
261    (gdbarch, svr4_lp64_fetch_link_map_offsets);
262}
263
264
265/* Provide a prototype to silence -Wmissing-prototypes.  */
266void _initialize_sparc64nbsd_tdep (void);
267
268void
269_initialize_sparc64nbsd_tdep (void)
270{
271  gdbarch_register_osabi (bfd_arch_sparc, bfd_mach_sparc_v9,
272			  GDB_OSABI_NETBSD_ELF, sparc64nbsd_init_abi);
273}
274