1 /* Target-dependent code for NetBSD/sparc.
3 Copyright (C) 2002, 2003, 2004, 2006, 2007, 2008, 2009
4 Free Software Foundation, Inc.
5 Contributed by Wasabi Systems, Inc.
7 This file is part of GDB.
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.
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.
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/>. */
24 #include "frame-unwind.h"
30 #include "solib-svr4.h"
32 #include "trad-frame.h"
34 #include "gdb_assert.h"
35 #include "gdb_string.h"
37 #include "sparc-tdep.h"
38 #include "nbsd-tdep.h"
40 /* Macros to extract fields from SPARC instructions. */
41 #define X_RS1(i) (((i) >> 14) & 0x1f)
42 #define X_RS2(i) ((i) & 0x1f)
43 #define X_I(i) (((i) >> 13) & 1)
45 const struct sparc_gregset sparc32nbsd_gregset
=
58 sparc32nbsd_supply_gregset (const struct regset
*regset
,
59 struct regcache
*regcache
,
60 int regnum
, const void *gregs
, size_t len
)
62 sparc32_supply_gregset (&sparc32nbsd_gregset
, regcache
, regnum
, gregs
);
64 /* Traditional NetBSD core files don't use multiple register sets.
65 Instead, the general-purpose and floating-point registers are
66 lumped together in a single section. */
68 sparc32_supply_fpregset (regcache
, regnum
, (const char *) gregs
+ 80);
72 sparc32nbsd_supply_fpregset (const struct regset
*regset
,
73 struct regcache
*regcache
,
74 int regnum
, const void *fpregs
, size_t len
)
76 sparc32_supply_fpregset (regcache
, regnum
, fpregs
);
80 /* Signal trampolines. */
82 /* The following variables describe the location of an on-stack signal
83 trampoline. The current values correspond to the memory layout for
84 NetBSD 1.3 and up. These shouldn't be necessary for NetBSD 2.0 and
85 up, since NetBSD uses signal trampolines provided by libc now. */
87 static const CORE_ADDR sparc32nbsd_sigtramp_start
= 0xeffffef0;
88 static const CORE_ADDR sparc32nbsd_sigtramp_end
= 0xeffffff0;
91 sparc32nbsd_pc_in_sigtramp (CORE_ADDR pc
, char *name
)
93 if (pc
>= sparc32nbsd_sigtramp_start
&& pc
< sparc32nbsd_sigtramp_end
)
96 return nbsd_pc_in_sigtramp (pc
, name
);
99 struct trad_frame_saved_reg
*
100 sparc32nbsd_sigcontext_saved_regs (struct frame_info
*this_frame
)
102 struct trad_frame_saved_reg
*saved_regs
;
103 CORE_ADDR addr
, sigcontext_addr
;
107 saved_regs
= trad_frame_alloc_saved_regs (this_frame
);
109 /* We find the appropriate instance of `struct sigcontext' at a
110 fixed offset in the signal frame. */
111 addr
= get_frame_register_unsigned (this_frame
, SPARC_FP_REGNUM
);
112 sigcontext_addr
= addr
+ 64 + 16;
114 /* The registers are saved in bits and pieces scattered all over the
115 place. The code below records their location on the assumption
116 that the part of the signal trampoline that saves the state has
119 saved_regs
[SPARC_SP_REGNUM
].addr
= sigcontext_addr
+ 8;
120 saved_regs
[SPARC32_PC_REGNUM
].addr
= sigcontext_addr
+ 12;
121 saved_regs
[SPARC32_NPC_REGNUM
].addr
= sigcontext_addr
+ 16;
122 saved_regs
[SPARC32_PSR_REGNUM
].addr
= sigcontext_addr
+ 20;
123 saved_regs
[SPARC_G1_REGNUM
].addr
= sigcontext_addr
+ 24;
124 saved_regs
[SPARC_O0_REGNUM
].addr
= sigcontext_addr
+ 28;
126 /* The remaining `global' registers and %y are saved in the `local'
128 delta
= SPARC_L0_REGNUM
- SPARC_G0_REGNUM
;
129 for (regnum
= SPARC_G2_REGNUM
; regnum
<= SPARC_G7_REGNUM
; regnum
++)
130 saved_regs
[regnum
].realreg
= regnum
+ delta
;
131 saved_regs
[SPARC32_Y_REGNUM
].realreg
= SPARC_L1_REGNUM
;
133 /* The remaining `out' registers can be found in the current frame's
135 delta
= SPARC_I0_REGNUM
- SPARC_O0_REGNUM
;
136 for (regnum
= SPARC_O1_REGNUM
; regnum
<= SPARC_O5_REGNUM
; regnum
++)
137 saved_regs
[regnum
].realreg
= regnum
+ delta
;
138 saved_regs
[SPARC_O7_REGNUM
].realreg
= SPARC_I7_REGNUM
;
140 /* The `local' and `in' registers have been saved in the register
142 addr
= saved_regs
[SPARC_SP_REGNUM
].addr
;
143 addr
= get_frame_memory_unsigned (this_frame
, addr
, 4);
144 for (regnum
= SPARC_L0_REGNUM
;
145 regnum
<= SPARC_I7_REGNUM
; regnum
++, addr
+= 4)
146 saved_regs
[regnum
].addr
= addr
;
148 /* Handle StackGhost. */
150 ULONGEST wcookie
= sparc_fetch_wcookie ();
156 addr
= saved_regs
[SPARC_I7_REGNUM
].addr
;
157 i7
= get_frame_memory_unsigned (this_frame
, addr
, 4);
158 trad_frame_set_value (saved_regs
, SPARC_I7_REGNUM
, i7
^ wcookie
);
162 /* The floating-point registers are only saved if the EF bit in %prs
165 #define PSR_EF 0x00001000
167 addr
= saved_regs
[SPARC32_PSR_REGNUM
].addr
;
168 psr
= get_frame_memory_unsigned (this_frame
, addr
, 4);
173 sp
= get_frame_register_unsigned (this_frame
, SPARC_SP_REGNUM
);
174 saved_regs
[SPARC32_FSR_REGNUM
].addr
= sp
+ 96;
175 for (regnum
= SPARC_F0_REGNUM
, addr
= sp
+ 96 + 8;
176 regnum
<= SPARC_F31_REGNUM
; regnum
++, addr
+= 4)
177 saved_regs
[regnum
].addr
= addr
;
183 static struct sparc_frame_cache
*
184 sparc32nbsd_sigcontext_frame_cache (struct frame_info
*this_frame
,
187 struct sparc_frame_cache
*cache
;
193 cache
= sparc_frame_cache (this_frame
, this_cache
);
194 gdb_assert (cache
== *this_cache
);
196 /* If we couldn't find the frame's function, we're probably dealing
197 with an on-stack signal trampoline. */
200 cache
->pc
= sparc32nbsd_sigtramp_start
;
202 /* Since we couldn't find the frame's function, the cache was
203 initialized under the assumption that we're frameless. */
204 cache
->frameless_p
= 0;
205 addr
= get_frame_register_unsigned (this_frame
, SPARC_FP_REGNUM
);
209 cache
->saved_regs
= sparc32nbsd_sigcontext_saved_regs (this_frame
);
215 sparc32nbsd_sigcontext_frame_this_id (struct frame_info
*this_frame
,
217 struct frame_id
*this_id
)
219 struct sparc_frame_cache
*cache
=
220 sparc32nbsd_sigcontext_frame_cache (this_frame
, this_cache
);
222 (*this_id
) = frame_id_build (cache
->base
, cache
->pc
);
225 static struct value
*
226 sparc32nbsd_sigcontext_frame_prev_register (struct frame_info
*this_frame
,
227 void **this_cache
, int regnum
)
229 struct sparc_frame_cache
*cache
=
230 sparc32nbsd_sigcontext_frame_cache (this_frame
, this_cache
);
232 return trad_frame_get_prev_register (this_frame
, cache
->saved_regs
, regnum
);
236 sparc32nbsd_sigcontext_frame_sniffer (const struct frame_unwind
*self
,
237 struct frame_info
*this_frame
,
240 CORE_ADDR pc
= get_frame_pc (this_frame
);
243 find_pc_partial_function (pc
, &name
, NULL
, NULL
);
244 if (sparc32nbsd_pc_in_sigtramp (pc
, name
))
246 if (name
== NULL
|| strncmp (name
, "__sigtramp_sigcontext", 21))
253 static const struct frame_unwind sparc32nbsd_sigcontext_frame_unwind
=
256 sparc32nbsd_sigcontext_frame_this_id
,
257 sparc32nbsd_sigcontext_frame_prev_register
,
259 sparc32nbsd_sigcontext_frame_sniffer
262 /* Return the address of a system call's alternative return
266 sparcnbsd_step_trap (struct frame_info
*frame
, unsigned long insn
)
268 if ((X_I (insn
) == 0 && X_RS1 (insn
) == 0 && X_RS2 (insn
) == 0)
269 || (X_I (insn
) == 1 && X_RS1 (insn
) == 0 && (insn
& 0x7f) == 0))
271 /* "New" system call. */
272 ULONGEST number
= get_frame_register_unsigned (frame
, SPARC_G1_REGNUM
);
275 return get_frame_register_unsigned (frame
, SPARC_G2_REGNUM
);
277 return get_frame_register_unsigned (frame
, SPARC_G7_REGNUM
);
285 sparc32nbsd_init_abi (struct gdbarch_info info
, struct gdbarch
*gdbarch
)
287 struct gdbarch_tdep
*tdep
= gdbarch_tdep (gdbarch
);
289 /* NetBSD doesn't support the 128-bit `long double' from the psABI. */
290 set_gdbarch_long_double_bit (gdbarch
, 64);
291 set_gdbarch_long_double_format (gdbarch
, floatformats_ieee_double
);
293 tdep
->gregset
= regset_alloc (gdbarch
, sparc32nbsd_supply_gregset
, NULL
);
294 tdep
->sizeof_gregset
= 20 * 4;
296 tdep
->fpregset
= regset_alloc (gdbarch
, sparc32nbsd_supply_fpregset
, NULL
);
297 tdep
->sizeof_fpregset
= 33 * 4;
299 /* Make sure we can single-step "new" syscalls. */
300 tdep
->step_trap
= sparcnbsd_step_trap
;
302 frame_unwind_append_unwinder (gdbarch
, &sparc32nbsd_sigcontext_frame_unwind
);
306 sparc32nbsd_aout_init_abi (struct gdbarch_info info
, struct gdbarch
*gdbarch
)
308 sparc32nbsd_init_abi (info
, gdbarch
);
312 sparc32nbsd_elf_init_abi (struct gdbarch_info info
, struct gdbarch
*gdbarch
)
314 sparc32nbsd_init_abi (info
, gdbarch
);
316 set_solib_svr4_fetch_link_map_offsets
317 (gdbarch
, svr4_ilp32_fetch_link_map_offsets
);
320 static enum gdb_osabi
321 sparcnbsd_aout_osabi_sniffer (bfd
*abfd
)
323 if (strcmp (bfd_get_target (abfd
), "a.out-sparc-netbsd") == 0)
324 return GDB_OSABI_NETBSD_AOUT
;
326 return GDB_OSABI_UNKNOWN
;
329 /* OpenBSD uses the traditional NetBSD core file format, even for
330 ports that use ELF. Therefore, if the default OS ABI is OpenBSD
331 ELF, we return that instead of NetBSD a.out. This is mainly for
332 the benfit of OpenBSD/sparc64, which inherits the sniffer below
333 since we include this file for an OpenBSD/sparc64 target. For
334 OpenBSD/sparc, the NetBSD a.out OS ABI is probably similar enough
335 to both the OpenBSD a.out and the OpenBSD ELF OS ABI. */
336 #if defined (GDB_OSABI_DEFAULT) && (GDB_OSABI_DEFAULT == GDB_OSABI_OPENBSD_ELF)
337 #define GDB_OSABI_NETBSD_CORE GDB_OSABI_OPENBSD_ELF
339 #define GDB_OSABI_NETBSD_CORE GDB_OSABI_NETBSD_AOUT
342 static enum gdb_osabi
343 sparcnbsd_core_osabi_sniffer (bfd
*abfd
)
345 if (strcmp (bfd_get_target (abfd
), "netbsd-core") == 0)
346 return GDB_OSABI_NETBSD_CORE
;
348 return GDB_OSABI_UNKNOWN
;
352 /* Provide a prototype to silence -Wmissing-prototypes. */
353 void _initialize_sparcnbsd_tdep (void);
356 _initialize_sparcnbsd_tdep (void)
358 gdbarch_register_osabi_sniffer (bfd_arch_sparc
, bfd_target_aout_flavour
,
359 sparcnbsd_aout_osabi_sniffer
);
361 /* BFD doesn't set a flavour for NetBSD style a.out core files. */
362 gdbarch_register_osabi_sniffer (bfd_arch_sparc
, bfd_target_unknown_flavour
,
363 sparcnbsd_core_osabi_sniffer
);
365 gdbarch_register_osabi (bfd_arch_sparc
, 0, GDB_OSABI_NETBSD_AOUT
,
366 sparc32nbsd_aout_init_abi
);
367 gdbarch_register_osabi (bfd_arch_sparc
, 0, GDB_OSABI_NETBSD_ELF
,
368 sparc32nbsd_elf_init_abi
);