1/* Target-dependent code for NetBSD/sparc64.
2
3   Copyright 2002, 2003, 2004 Free Software Foundation, Inc.
4   Based on code contributed by Wasabi Systems, Inc.
5
6   This file is part of GDB.
7
8   This program is free software; you can redistribute it and/or modify
9   it under the terms of the GNU General Public License as published by
10   the Free Software Foundation; either version 2 of the License, or
11   (at your option) any later version.
12
13   This program is distributed in the hope that it will be useful,
14   but WITHOUT ANY WARRANTY; without even the implied warranty of
15   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16   GNU General Public License for more details.
17
18   You should have received a copy of the GNU General Public License
19   along with this program; if not, write to the Free Software
20   Foundation, Inc., 59 Temple Place - Suite 330,
21   Boston, MA 02111-1307, USA.  */
22
23#include "defs.h"
24#include "frame.h"
25#include "frame-unwind.h"
26#include "gdbcore.h"
27#include "osabi.h"
28#include "regcache.h"
29#include "regset.h"
30#include "symtab.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 (regset->descr, 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  /* TODO: Handle the floating-point registers.  */
136
137  return saved_regs;
138}
139
140static struct sparc_frame_cache *
141sparc64nbsd_sigcontext_frame_cache (struct frame_info *next_frame,
142				    void **this_cache)
143{
144  struct sparc_frame_cache *cache;
145  CORE_ADDR addr;
146
147  if (*this_cache)
148    return *this_cache;
149
150  cache = sparc_frame_cache (next_frame, this_cache);
151  gdb_assert (cache == *this_cache);
152
153  /* If we couldn't find the frame's function, we're probably dealing
154     with an on-stack signal trampoline.  */
155  if (cache->pc == 0)
156    {
157      cache->pc = sparc64nbsd_sigtramp_start;
158
159      /* Since we couldn't find the frame's function, the cache was
160         initialized under the assumption that we're frameless.  */
161      cache->frameless_p = 0;
162      addr = frame_unwind_register_unsigned (next_frame, SPARC_FP_REGNUM);
163      cache->base = addr;
164    }
165
166  /* We find the appropriate instance of `struct sigcontext' at a
167     fixed offset in the signal frame.  */
168  addr = cache->base + BIAS + 128 + 8;
169  cache->saved_regs = sparc64nbsd_sigcontext_saved_regs (addr, next_frame);
170
171  return cache;
172}
173
174static void
175sparc64nbsd_sigcontext_frame_this_id (struct frame_info *next_frame,
176				      void **this_cache,
177				      struct frame_id *this_id)
178{
179  struct sparc_frame_cache *cache =
180    sparc64nbsd_sigcontext_frame_cache (next_frame, this_cache);
181
182  (*this_id) = frame_id_build (cache->base, cache->pc);
183}
184
185static void
186sparc64nbsd_sigcontext_frame_prev_register (struct frame_info *next_frame,
187					    void **this_cache,
188					    int regnum, int *optimizedp,
189					    enum lval_type *lvalp,
190					    CORE_ADDR *addrp,
191					    int *realnump, void *valuep)
192{
193  struct sparc_frame_cache *cache =
194    sparc64nbsd_sigcontext_frame_cache (next_frame, this_cache);
195
196  trad_frame_prev_register (next_frame, cache->saved_regs, regnum,
197			    optimizedp, lvalp, addrp, realnump, valuep);
198}
199
200static const struct frame_unwind sparc64nbsd_sigcontext_frame_unwind =
201{
202  SIGTRAMP_FRAME,
203  sparc64nbsd_sigcontext_frame_this_id,
204  sparc64nbsd_sigcontext_frame_prev_register
205};
206
207static const struct frame_unwind *
208sparc64nbsd_sigtramp_frame_sniffer (struct frame_info *next_frame)
209{
210  CORE_ADDR pc = frame_pc_unwind (next_frame);
211  char *name;
212
213  find_pc_partial_function (pc, &name, NULL, NULL);
214  if (sparc64nbsd_pc_in_sigtramp (pc, name))
215    {
216      if (name == NULL || strncmp (name, "__sigtramp_sigcontext", 21))
217	return &sparc64nbsd_sigcontext_frame_unwind;
218    }
219
220  return NULL;
221}
222
223
224static void
225sparc64nbsd_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
226{
227  struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
228
229  tdep->gregset = XMALLOC (struct regset);
230  tdep->gregset->descr = &sparc64nbsd_gregset;
231  tdep->gregset->supply_regset = sparc64nbsd_supply_gregset;
232  tdep->sizeof_gregset = 160;
233
234  tdep->fpregset = XMALLOC (struct regset);
235  tdep->fpregset->supply_regset = sparc64nbsd_supply_fpregset;
236  tdep->sizeof_fpregset = 272;
237
238  set_gdbarch_pc_in_sigtramp (gdbarch, sparc64nbsd_pc_in_sigtramp);
239  frame_unwind_append_sniffer (gdbarch, sparc64nbsd_sigtramp_frame_sniffer);
240
241  sparc64_init_abi (info, gdbarch);
242
243  set_solib_svr4_fetch_link_map_offsets
244    (gdbarch, nbsd_lp64_solib_svr4_fetch_link_map_offsets);
245}
246
247
248/* Provide a prototype to silence -Wmissing-prototypes.  */
249void _initialize_sparc64nbsd_tdep (void);
250
251void
252_initialize_sparc64nbsd_tdep (void)
253{
254  gdbarch_register_osabi (bfd_arch_sparc, bfd_mach_sparc_v9,
255			  GDB_OSABI_NETBSD_ELF, sparc64nbsd_init_abi);
256}
257