]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - gdb/sparc-nat.c
Automatic date update in version.in
[thirdparty/binutils-gdb.git] / gdb / sparc-nat.c
CommitLineData
386c036b 1/* Native-dependent code for SPARC.
2555fe1a 2
d01e8234 3 Copyright (C) 2003-2025 Free Software Foundation, Inc.
c906108c 4
c5aa993b 5 This file is part of GDB.
c906108c 6
c5aa993b
JM
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
a9762ec7 9 the Free Software Foundation; either version 3 of the License, or
c5aa993b 10 (at your option) any later version.
c906108c 11
c5aa993b
JM
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
c906108c 16
c5aa993b 17 You should have received a copy of the GNU General Public License
a9762ec7 18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
c906108c 19
c906108c 20#include "inferior.h"
4e052eda 21#include "regcache.h"
baf92889 22#include "target.h"
c906108c
SS
23
24#include <signal.h>
25#include <sys/ptrace.h>
268a13a5 26#include "gdbsupport/gdb_wait.h"
386c036b 27#ifdef HAVE_MACHINE_REG_H
c906108c
SS
28#include <machine/reg.h>
29#endif
c906108c 30
386c036b
MK
31#include "sparc-tdep.h"
32#include "sparc-nat.h"
1b9445c2 33#include "inf-ptrace.h"
386c036b
MK
34
35/* With some trickery we can use the code in this file for most (if
36 not all) ptrace(2) based SPARC systems, which includes SunOS 4,
1a111ce3 37 GNU/Linux and the various SPARC BSD's.
386c036b
MK
38
39 First, we need a data structure for use with ptrace(2). SunOS has
40 `struct regs' and `struct fp_status' in <machine/reg.h>. BSD's
41 have `struct reg' and `struct fpreg' in <machine/reg.h>. GNU/Linux
42 has the same structures as SunOS 4, but they're in <asm/reg.h>,
43 which is a kernel header. As a general rule we avoid including
44 GNU/Linux kernel headers. Fortunately GNU/Linux has a `gregset_t'
45 and a `fpregset_t' that are equivalent to `struct regs' and `struct
46 fp_status' in <sys/ucontext.h>, which is automatically included by
47 <signal.h>. Settling on using the `gregset_t' and `fpregset_t'
48 typedefs, providing them for the other systems, therefore solves
49 the puzzle. */
50
51#ifdef HAVE_MACHINE_REG_H
52#ifdef HAVE_STRUCT_REG
53typedef struct reg gregset_t;
54typedef struct fpreg fpregset_t;
55#else
56typedef struct regs gregset_t;
57typedef struct fp_status fpregset_t;
58#endif
59#endif
60
61/* Second, we need to remap the BSD ptrace(2) requests to their SunOS
62 equivalents. GNU/Linux already follows SunOS here. */
c906108c 63
386c036b
MK
64#ifndef PTRACE_GETREGS
65#define PTRACE_GETREGS PT_GETREGS
66#endif
67
68#ifndef PTRACE_SETREGS
69#define PTRACE_SETREGS PT_SETREGS
70#endif
c906108c 71
386c036b
MK
72#ifndef PTRACE_GETFPREGS
73#define PTRACE_GETFPREGS PT_GETFPREGS
74#endif
75
76#ifndef PTRACE_SETFPREGS
77#define PTRACE_SETFPREGS PT_SETFPREGS
78#endif
79
1ff700c2 80static PTRACE_TYPE_RET
2108a63a
KR
81gdb_ptrace (PTRACE_TYPE_ARG1 request, ptid_t ptid, PTRACE_TYPE_ARG3 addr)
82{
83#ifdef __NetBSD__
84 /* Support for NetBSD threads: unlike other ptrace implementations in this
85 file, NetBSD requires that we pass both the pid and lwp. */
86 return ptrace (request, ptid.pid (), addr, ptid.lwp ());
87#else
88 pid_t pid = get_ptrace_pid (ptid);
89 return ptrace (request, pid, addr, 0);
90#endif
91}
92
386c036b 93/* Register set description. */
b4fd25c9
AA
94const struct sparc_gregmap *sparc_gregmap;
95const struct sparc_fpregmap *sparc_fpregmap;
96void (*sparc_supply_gregset) (const struct sparc_gregmap *,
386c036b 97 struct regcache *, int , const void *);
b4fd25c9 98void (*sparc_collect_gregset) (const struct sparc_gregmap *,
386c036b 99 const struct regcache *, int, void *);
b4fd25c9 100void (*sparc_supply_fpregset) (const struct sparc_fpregmap *,
db75c717 101 struct regcache *, int , const void *);
b4fd25c9 102void (*sparc_collect_fpregset) (const struct sparc_fpregmap *,
db75c717 103 const struct regcache *, int , void *);
ec22ec34
UW
104int (*sparc_gregset_supplies_p) (struct gdbarch *, int);
105int (*sparc_fpregset_supplies_p) (struct gdbarch *, int);
386c036b
MK
106
107/* Determine whether `gregset_t' contains register REGNUM. */
108
109int
ec22ec34 110sparc32_gregset_supplies_p (struct gdbarch *gdbarch, int regnum)
386c036b
MK
111{
112 /* Integer registers. */
113 if ((regnum >= SPARC_G1_REGNUM && regnum <= SPARC_G7_REGNUM)
114 || (regnum >= SPARC_O0_REGNUM && regnum <= SPARC_O7_REGNUM)
115 || (regnum >= SPARC_L0_REGNUM && regnum <= SPARC_L7_REGNUM)
116 || (regnum >= SPARC_I0_REGNUM && regnum <= SPARC_I7_REGNUM))
117 return 1;
118
119 /* Control registers. */
120 if (regnum == SPARC32_PC_REGNUM
121 || regnum == SPARC32_NPC_REGNUM
122 || regnum == SPARC32_PSR_REGNUM
123 || regnum == SPARC32_Y_REGNUM)
124 return 1;
125
126 return 0;
127}
128
129/* Determine whether `fpregset_t' contains register REGNUM. */
130
131int
ec22ec34 132sparc32_fpregset_supplies_p (struct gdbarch *gdbarch, int regnum)
386c036b
MK
133{
134 /* Floating-point registers. */
135 if (regnum >= SPARC_F0_REGNUM && regnum <= SPARC_F31_REGNUM)
136 return 1;
137
138 /* Control registers. */
139 if (regnum == SPARC32_FSR_REGNUM)
140 return 1;
141
142 return 0;
143}
144
145/* Fetch register REGNUM from the inferior. If REGNUM is -1, do this
146 for all registers (including the floating-point registers). */
c906108c
SS
147
148void
d1e93af6
SM
149sparc_fetch_inferior_registers (process_stratum_target *proc_target,
150 regcache *regcache, int regnum)
c906108c 151{
ac7936df 152 struct gdbarch *gdbarch = regcache->arch ();
2108a63a 153 ptid_t ptid = regcache->ptid ();
02ae7771 154
386c036b 155 if (regnum == SPARC_G0_REGNUM)
c906108c 156 {
1873768e 157 regcache->raw_supply_zeroed (SPARC_G0_REGNUM);
386c036b 158 return;
c906108c
SS
159 }
160
ec22ec34 161 if (regnum == -1 || sparc_gregset_supplies_p (gdbarch, regnum))
c906108c 162 {
386c036b 163 gregset_t regs;
c906108c 164
2108a63a 165 if (gdb_ptrace (PTRACE_GETREGS, ptid, (PTRACE_TYPE_ARG3) &regs) == -1)
e2e0b3e5 166 perror_with_name (_("Couldn't get registers"));
386c036b 167
d1e93af6
SM
168 /* Deep down, sparc_supply_rwindow reads memory, so needs the global
169 thread context to be set. */
cfa8e270
SM
170 scoped_restore restore_inferior_ptid
171 = make_scoped_restore (&inferior_ptid, ptid);
d1e93af6 172
b4fd25c9 173 sparc_supply_gregset (sparc_gregmap, regcache, -1, &regs);
386c036b
MK
174 if (regnum != -1)
175 return;
c906108c 176 }
386c036b 177
ec22ec34 178 if (regnum == -1 || sparc_fpregset_supplies_p (gdbarch, regnum))
c906108c 179 {
386c036b
MK
180 fpregset_t fpregs;
181
2108a63a 182 if (gdb_ptrace (PTRACE_GETFPREGS, ptid, (PTRACE_TYPE_ARG3) &fpregs) == -1)
e2e0b3e5 183 perror_with_name (_("Couldn't get floating point status"));
386c036b 184
b4fd25c9 185 sparc_supply_fpregset (sparc_fpregmap, regcache, -1, &fpregs);
c906108c
SS
186 }
187}
188
c906108c 189void
d1e93af6
SM
190sparc_store_inferior_registers (process_stratum_target *proc_target,
191 regcache *regcache, int regnum)
c906108c 192{
ac7936df 193 struct gdbarch *gdbarch = regcache->arch ();
2108a63a 194 ptid_t ptid = regcache->ptid ();
c906108c 195
ec22ec34 196 if (regnum == -1 || sparc_gregset_supplies_p (gdbarch, regnum))
e1925118 197 {
386c036b 198 gregset_t regs;
c906108c 199
2108a63a 200 if (gdb_ptrace (PTRACE_GETREGS, ptid, (PTRACE_TYPE_ARG3) &regs) == -1)
e2e0b3e5 201 perror_with_name (_("Couldn't get registers"));
c906108c 202
b4fd25c9 203 sparc_collect_gregset (sparc_gregmap, regcache, regnum, &regs);
c906108c 204
2108a63a 205 if (gdb_ptrace (PTRACE_SETREGS, ptid, (PTRACE_TYPE_ARG3) &regs) == -1)
e2e0b3e5 206 perror_with_name (_("Couldn't write registers"));
c5aa993b 207
386c036b
MK
208 /* Deal with the stack regs. */
209 if (regnum == -1 || regnum == SPARC_SP_REGNUM
210 || (regnum >= SPARC_L0_REGNUM && regnum <= SPARC_I7_REGNUM))
211 {
212 ULONGEST sp;
c906108c 213
386c036b 214 regcache_cooked_read_unsigned (regcache, SPARC_SP_REGNUM, &sp);
d1e93af6
SM
215
216 /* Deep down, sparc_collect_rwindow writes memory, so needs the global
217 thread context to be set. */
cfa8e270
SM
218 scoped_restore restore_inferior_ptid
219 = make_scoped_restore (&inferior_ptid, ptid);
d1e93af6 220
386c036b
MK
221 sparc_collect_rwindow (regcache, sp, regnum);
222 }
c906108c 223
386c036b
MK
224 if (regnum != -1)
225 return;
c906108c 226 }
c906108c 227
ec22ec34 228 if (regnum == -1 || sparc_fpregset_supplies_p (gdbarch, regnum))
c5aa993b 229 {
386c036b 230 fpregset_t fpregs, saved_fpregs;
c906108c 231
2108a63a 232 if (gdb_ptrace (PTRACE_GETFPREGS, ptid, (PTRACE_TYPE_ARG3) &fpregs) == -1)
e2e0b3e5 233 perror_with_name (_("Couldn't get floating-point registers"));
c906108c 234
386c036b 235 memcpy (&saved_fpregs, &fpregs, sizeof (fpregs));
b4fd25c9 236 sparc_collect_fpregset (sparc_fpregmap, regcache, regnum, &fpregs);
c906108c 237
386c036b
MK
238 /* Writing the floating-point registers will fail on NetBSD with
239 EINVAL if the inferior process doesn't have an FPU state
240 (i.e. if it didn't use the FPU yet). Therefore we don't try
241 to write the registers if nothing changed. */
242 if (memcmp (&saved_fpregs, &fpregs, sizeof (fpregs)) != 0)
c5aa993b 243 {
2108a63a
KR
244 if (gdb_ptrace (PTRACE_SETFPREGS, ptid,
245 (PTRACE_TYPE_ARG3) &fpregs) == -1)
e2e0b3e5 246 perror_with_name (_("Couldn't write floating-point registers"));
c5aa993b 247 }
c906108c 248
386c036b
MK
249 if (regnum != -1)
250 return;
251 }
c906108c 252}
baf92889 253
c906108c 254\f
edcc890f
YQ
255/* Implement the to_xfer_partial target_ops method for
256 TARGET_OBJECT_WCOOKIE. Fetch StackGhost Per-Process XOR cookie. */
baf92889 257
f6ac5f3d 258enum target_xfer_status
cadc9cb8 259sparc_xfer_wcookie (enum target_object object,
961cb7b5 260 const char *annex, gdb_byte *readbuf,
9b409511
YQ
261 const gdb_byte *writebuf, ULONGEST offset, ULONGEST len,
262 ULONGEST *xfered_len)
baf92889
MK
263{
264 unsigned long wcookie = 0;
265 char *buf = (char *)&wcookie;
266
267 gdb_assert (object == TARGET_OBJECT_WCOOKIE);
268 gdb_assert (readbuf && writebuf == NULL);
269
2c9771d3 270 if (offset == sizeof (unsigned long))
9b409511 271 return TARGET_XFER_EOF; /* Signal EOF. */
2c9771d3 272 if (offset > sizeof (unsigned long))
2ed4b548 273 return TARGET_XFER_E_IO;
c5aa993b 274
baf92889
MK
275#ifdef PT_WCOOKIE
276 /* If PT_WCOOKIE is defined (by <sys/ptrace.h>), assume we're
277 running on an OpenBSD release that uses StackGhost (3.1 or
2c9771d3
MK
278 later). Since release 3.6, OpenBSD uses a fully randomized
279 cookie. */
645d6d10 280 {
e99b03dc 281 int pid = inferior_ptid.pid ();
645d6d10
MK
282
283 /* Sanity check. The proper type for a cookie is register_t, but
284 we can't assume that this type exists on all systems supported
285 by the code in this file. */
286 gdb_assert (sizeof (wcookie) == sizeof (register_t));
287
288 /* Fetch the cookie. */
49ec097f 289 if (ptrace (PT_WCOOKIE, pid, (PTRACE_TYPE_ARG3) &wcookie, 0) == -1)
645d6d10
MK
290 {
291 if (errno != EINVAL)
e2e0b3e5 292 perror_with_name (_("Couldn't get StackGhost cookie"));
645d6d10
MK
293
294 /* Although PT_WCOOKIE is defined on OpenBSD 3.1 and later,
295 the request wasn't implemented until after OpenBSD 3.4. If
296 the kernel doesn't support the PT_WCOOKIE request, assume
297 we're running on a kernel that uses non-randomized cookies. */
298 wcookie = 0x3;
299 }
300 }
baf92889
MK
301#endif /* PT_WCOOKIE */
302
303 if (len > sizeof (unsigned long) - offset)
304 len = sizeof (unsigned long) - offset;
305
306 memcpy (readbuf, buf + offset, len);
9b409511
YQ
307 *xfered_len = (ULONGEST) len;
308 return TARGET_XFER_OK;
baf92889 309}
1b9445c2 310\f
baf92889 311
5fe70629 312INIT_GDB_FILE (sparc_nat)
c906108c 313{
405feb71 314 /* Default to using SunOS 4 register sets. */
b4fd25c9
AA
315 if (sparc_gregmap == NULL)
316 sparc_gregmap = &sparc32_sunos4_gregmap;
317 if (sparc_fpregmap == NULL)
318 sparc_fpregmap = &sparc32_sunos4_fpregmap;
386c036b
MK
319 if (sparc_supply_gregset == NULL)
320 sparc_supply_gregset = sparc32_supply_gregset;
321 if (sparc_collect_gregset == NULL)
322 sparc_collect_gregset = sparc32_collect_gregset;
323 if (sparc_supply_fpregset == NULL)
324 sparc_supply_fpregset = sparc32_supply_fpregset;
325 if (sparc_collect_fpregset == NULL)
326 sparc_collect_fpregset = sparc32_collect_fpregset;
327 if (sparc_gregset_supplies_p == NULL)
328 sparc_gregset_supplies_p = sparc32_gregset_supplies_p;
329 if (sparc_fpregset_supplies_p == NULL)
330 sparc_fpregset_supplies_p = sparc32_fpregset_supplies_p;
c906108c 331}