Automatic date update in version.in
[binutils-gdb.git] / gdb / ppc-netbsd-tdep.c
blobd8e4c424ba46aa764cb80d4ca7f8584b48ca5736
1 /* Target-dependent code for NetBSD/powerpc.
3 Copyright (C) 2002-2024 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/>. */
22 #include "gdbtypes.h"
23 #include "osabi.h"
24 #include "regcache.h"
25 #include "regset.h"
26 #include "trad-frame.h"
27 #include "tramp-frame.h"
29 #include "ppc-tdep.h"
30 #include "netbsd-tdep.h"
31 #include "ppc-tdep.h"
32 #include "solib-svr4.h"
34 /* Register offsets from <machine/reg.h>. */
35 static ppc_reg_offsets ppcnbsd_reg_offsets;
38 /* Core file support. */
40 /* NetBSD/powerpc register sets. */
42 const struct regset ppcnbsd_gregset =
44 &ppcnbsd_reg_offsets,
45 ppc_supply_gregset
48 const struct regset ppcnbsd_fpregset =
50 &ppcnbsd_reg_offsets,
51 ppc_supply_fpregset
54 /* Iterate over core file register note sections. */
56 static void
57 ppcnbsd_iterate_over_regset_sections (struct gdbarch *gdbarch,
58 iterate_over_regset_sections_cb *cb,
59 void *cb_data,
60 const struct regcache *regcache)
62 cb (".reg", 148, 148, &ppcnbsd_gregset, NULL, cb_data);
63 cb (".reg2", 264, 264, &ppcnbsd_fpregset, NULL, cb_data);
67 /* NetBSD is confused. It appears that 1.5 was using the correct SVR4
68 convention but, 1.6 switched to the below broken convention. For
69 the moment use the broken convention. Ulgh! */
71 static enum return_value_convention
72 ppcnbsd_return_value (struct gdbarch *gdbarch, struct value *function,
73 struct type *valtype, struct regcache *regcache,
74 gdb_byte *readbuf, const gdb_byte *writebuf)
76 #if 0
77 if ((valtype->code () == TYPE_CODE_STRUCT
78 || valtype->code () == TYPE_CODE_UNION)
79 && !((valtype->length () == 16 || valtype->length () == 8)
80 && valtype->is_vector ())
81 && !(valtype->length () == 1
82 || valtype->length () == 2
83 || valtype->length () == 4
84 || valtype->length () == 8))
85 return RETURN_VALUE_STRUCT_CONVENTION;
86 else
87 #endif
88 return ppc_sysv_abi_broken_return_value (gdbarch, function, valtype,
89 regcache, readbuf, writebuf);
93 /* Signal trampolines. */
95 extern const struct tramp_frame ppcnbsd2_sigtramp;
97 static void
98 ppcnbsd_sigtramp_cache_init (const struct tramp_frame *self,
99 const frame_info_ptr &this_frame,
100 struct trad_frame_cache *this_cache,
101 CORE_ADDR func)
103 struct gdbarch *gdbarch = get_frame_arch (this_frame);
104 ppc_gdbarch_tdep *tdep = gdbarch_tdep<ppc_gdbarch_tdep> (gdbarch);
105 CORE_ADDR addr, base;
106 int i;
108 base = get_frame_register_unsigned (this_frame,
109 gdbarch_sp_regnum (gdbarch));
110 if (self == &ppcnbsd2_sigtramp)
111 addr = base + 0x10 + 2 * tdep->wordsize;
112 else
113 addr = base + 0x18 + 2 * tdep->wordsize;
114 for (i = 0; i < ppc_num_gprs; i++, addr += tdep->wordsize)
116 int regnum = i + tdep->ppc_gp0_regnum;
117 trad_frame_set_reg_addr (this_cache, regnum, addr);
119 trad_frame_set_reg_addr (this_cache, tdep->ppc_lr_regnum, addr);
120 addr += tdep->wordsize;
121 trad_frame_set_reg_addr (this_cache, tdep->ppc_cr_regnum, addr);
122 addr += tdep->wordsize;
123 trad_frame_set_reg_addr (this_cache, tdep->ppc_xer_regnum, addr);
124 addr += tdep->wordsize;
125 trad_frame_set_reg_addr (this_cache, tdep->ppc_ctr_regnum, addr);
126 addr += tdep->wordsize;
127 trad_frame_set_reg_addr (this_cache, gdbarch_pc_regnum (gdbarch),
128 addr); /* SRR0? */
129 addr += tdep->wordsize;
131 /* Construct the frame ID using the function start. */
132 trad_frame_set_id (this_cache, frame_id_build (base, func));
135 static const struct tramp_frame ppcnbsd_sigtramp =
137 SIGTRAMP_FRAME,
140 { 0x3821fff0, ULONGEST_MAX }, /* add r1,r1,-16 */
141 { 0x4e800021, ULONGEST_MAX }, /* blrl */
142 { 0x38610018, ULONGEST_MAX }, /* addi r3,r1,24 */
143 { 0x38000127, ULONGEST_MAX }, /* li r0,295 */
144 { 0x44000002, ULONGEST_MAX }, /* sc */
145 { 0x38000001, ULONGEST_MAX }, /* li r0,1 */
146 { 0x44000002, ULONGEST_MAX }, /* sc */
147 { TRAMP_SENTINEL_INSN, ULONGEST_MAX }
149 ppcnbsd_sigtramp_cache_init
152 /* NetBSD 2.0 introduced a slightly different signal trampoline. */
154 const struct tramp_frame ppcnbsd2_sigtramp =
156 SIGTRAMP_FRAME,
159 { 0x3821fff0, ULONGEST_MAX }, /* add r1,r1,-16 */
160 { 0x4e800021, ULONGEST_MAX }, /* blrl */
161 { 0x38610010, ULONGEST_MAX }, /* addi r3,r1,16 */
162 { 0x38000127, ULONGEST_MAX }, /* li r0,295 */
163 { 0x44000002, ULONGEST_MAX }, /* sc */
164 { 0x38000001, ULONGEST_MAX }, /* li r0,1 */
165 { 0x44000002, ULONGEST_MAX }, /* sc */
166 { TRAMP_SENTINEL_INSN, ULONGEST_MAX }
168 ppcnbsd_sigtramp_cache_init
172 static void
173 ppcnbsd_init_abi (struct gdbarch_info info,
174 struct gdbarch *gdbarch)
176 nbsd_init_abi (info, gdbarch);
178 /* For NetBSD, this is an on again, off again thing. Some systems
179 do use the broken struct convention, and some don't. */
180 set_gdbarch_return_value (gdbarch, ppcnbsd_return_value);
182 /* NetBSD uses SVR4-style shared libraries. */
183 set_solib_svr4_fetch_link_map_offsets
184 (gdbarch, svr4_ilp32_fetch_link_map_offsets);
186 set_gdbarch_iterate_over_regset_sections
187 (gdbarch, ppcnbsd_iterate_over_regset_sections);
189 tramp_frame_prepend_unwinder (gdbarch, &ppcnbsd_sigtramp);
190 tramp_frame_prepend_unwinder (gdbarch, &ppcnbsd2_sigtramp);
193 void _initialize_ppcnbsd_tdep ();
194 void
195 _initialize_ppcnbsd_tdep ()
197 gdbarch_register_osabi (bfd_arch_powerpc, 0, GDB_OSABI_NETBSD,
198 ppcnbsd_init_abi);
200 /* Avoid initializing the register offsets again if they were
201 already initialized by ppc-netbsd-nat.c. */
202 if (ppcnbsd_reg_offsets.pc_offset == 0)
204 /* General-purpose registers. */
205 ppcnbsd_reg_offsets.r0_offset = 0;
206 ppcnbsd_reg_offsets.gpr_size = 4;
207 ppcnbsd_reg_offsets.xr_size = 4;
208 ppcnbsd_reg_offsets.lr_offset = 128;
209 ppcnbsd_reg_offsets.cr_offset = 132;
210 ppcnbsd_reg_offsets.xer_offset = 136;
211 ppcnbsd_reg_offsets.ctr_offset = 140;
212 ppcnbsd_reg_offsets.pc_offset = 144;
213 ppcnbsd_reg_offsets.ps_offset = -1;
214 ppcnbsd_reg_offsets.mq_offset = -1;
216 /* Floating-point registers. */
217 ppcnbsd_reg_offsets.f0_offset = 0;
218 ppcnbsd_reg_offsets.fpscr_offset = 256;
219 ppcnbsd_reg_offsets.fpscr_size = 4;