1 /* Native-dependent code for NetBSD/powerpc.
3 Copyright (C) 2002-2018 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 <sys/types.h>
25 #include <sys/ptrace.h>
26 #include <machine/reg.h>
27 #include <machine/frame.h>
28 #include <machine/pcb.h>
35 #include "ppc-nbsd-tdep.h"
37 #include "inf-ptrace.h"
39 /* Returns true if PT_GETREGS fetches this register. */
42 getregs_supplies (struct gdbarch
*gdbarch
, int regnum
)
44 struct gdbarch_tdep
*tdep
= gdbarch_tdep (gdbarch
);
46 return ((regnum
>= tdep
->ppc_gp0_regnum
47 && regnum
< tdep
->ppc_gp0_regnum
+ ppc_num_gprs
)
48 || regnum
== tdep
->ppc_lr_regnum
49 || regnum
== tdep
->ppc_cr_regnum
50 || regnum
== tdep
->ppc_xer_regnum
51 || regnum
== tdep
->ppc_ctr_regnum
52 || regnum
== gdbarch_pc_regnum (gdbarch
));
55 /* Like above, but for PT_GETFPREGS. */
58 getfpregs_supplies (struct gdbarch
*gdbarch
, int regnum
)
60 struct gdbarch_tdep
*tdep
= gdbarch_tdep (gdbarch
);
62 /* FIXME: jimb/2004-05-05: Some PPC variants don't have floating
63 point registers. Traditionally, GDB's register set has still
64 listed the floating point registers for such machines, so this
65 code is harmless. However, the new E500 port actually omits the
66 floating point registers entirely from the register set --- they
67 don't even have register numbers assigned to them.
69 It's not clear to me how best to update this code, so this assert
70 will alert the first person to encounter the NetBSD/E500
71 combination to the problem. */
72 gdb_assert (ppc_floating_point_unit_p (gdbarch
));
74 return ((regnum
>= tdep
->ppc_fp0_regnum
75 && regnum
< tdep
->ppc_fp0_regnum
+ ppc_num_fprs
)
76 || regnum
== tdep
->ppc_fpscr_regnum
);
80 ppcnbsd_fetch_inferior_registers (struct target_ops
*ops
,
81 struct regcache
*regcache
, int regnum
)
83 struct gdbarch
*gdbarch
= regcache
->arch ();
84 pid_t pid
= ptid_get_pid (regcache_get_ptid (regcache
));
86 if (regnum
== -1 || getregs_supplies (gdbarch
, regnum
))
90 if (ptrace (PT_GETREGS
, pid
, (PTRACE_TYPE_ARG3
) ®s
, 0) == -1)
91 perror_with_name (_("Couldn't get registers"));
93 ppc_supply_gregset (&ppcnbsd_gregset
, regcache
,
94 regnum
, ®s
, sizeof regs
);
97 if (regnum
== -1 || getfpregs_supplies (gdbarch
, regnum
))
101 if (ptrace (PT_GETFPREGS
, pid
, (PTRACE_TYPE_ARG3
) &fpregs
, 0) == -1)
102 perror_with_name (_("Couldn't get FP registers"));
104 ppc_supply_fpregset (&ppcnbsd_fpregset
, regcache
,
105 regnum
, &fpregs
, sizeof fpregs
);
110 ppcnbsd_store_inferior_registers (struct target_ops
*ops
,
111 struct regcache
*regcache
, int regnum
)
113 struct gdbarch
*gdbarch
= regcache
->arch ();
114 pid_t pid
= ptid_get_pid (regcache_get_ptid (regcache
));
116 if (regnum
== -1 || getregs_supplies (gdbarch
, regnum
))
120 if (ptrace (PT_GETREGS
, pid
, (PTRACE_TYPE_ARG3
) ®s
, 0) == -1)
121 perror_with_name (_("Couldn't get registers"));
123 ppc_collect_gregset (&ppcnbsd_gregset
, regcache
,
124 regnum
, ®s
, sizeof regs
);
126 if (ptrace (PT_SETREGS
, pid
, (PTRACE_TYPE_ARG3
) ®s
, 0) == -1)
127 perror_with_name (_("Couldn't write registers"));
130 if (regnum
== -1 || getfpregs_supplies (gdbarch
, regnum
))
134 if (ptrace (PT_GETFPREGS
, pid
, (PTRACE_TYPE_ARG3
) &fpregs
, 0) == -1)
135 perror_with_name (_("Couldn't get FP registers"));
137 ppc_collect_fpregset (&ppcnbsd_fpregset
, regcache
,
138 regnum
, &fpregs
, sizeof fpregs
);
140 if (ptrace (PT_SETFPREGS
, pid
, (PTRACE_TYPE_ARG3
) &fpregs
, 0) == -1)
141 perror_with_name (_("Couldn't set FP registers"));
146 ppcnbsd_supply_pcb (struct regcache
*regcache
, struct pcb
*pcb
)
148 struct switchframe sf
;
150 struct gdbarch
*gdbarch
= regcache
->arch ();
151 struct gdbarch_tdep
*tdep
= gdbarch_tdep (gdbarch
);
154 /* The stack pointer shouldn't be zero. */
155 if (pcb
->pcb_sp
== 0)
158 read_memory (pcb
->pcb_sp
, (gdb_byte
*)&sf
, sizeof sf
);
159 regcache_raw_supply (regcache
, tdep
->ppc_cr_regnum
, &sf
.cr
);
160 regcache_raw_supply (regcache
, tdep
->ppc_gp0_regnum
+ 2, &sf
.fixreg2
);
161 for (i
= 0 ; i
< 19 ; i
++)
162 regcache_raw_supply (regcache
, tdep
->ppc_gp0_regnum
+ 13 + i
,
165 read_memory(sf
.sp
, (gdb_byte
*)&cf
, sizeof(cf
));
166 regcache_raw_supply (regcache
, tdep
->ppc_gp0_regnum
+ 30, &cf
.r30
);
167 regcache_raw_supply (regcache
, tdep
->ppc_gp0_regnum
+ 31, &cf
.r31
);
168 regcache_raw_supply (regcache
, tdep
->ppc_gp0_regnum
+ 1, &cf
.sp
);
170 read_memory(cf
.sp
, (gdb_byte
*)&cf
, sizeof(cf
));
171 regcache_raw_supply (regcache
, tdep
->ppc_lr_regnum
, &cf
.lr
);
172 regcache_raw_supply (regcache
, gdbarch_pc_regnum (gdbarch
), &cf
.lr
);
178 _initialize_ppcnbsd_nat (void)
180 struct target_ops
*t
;
182 /* Support debugging kernel virtual memory images. */
183 bsd_kvm_add_target (ppcnbsd_supply_pcb
);
185 /* Add in local overrides. */
186 t
= inf_ptrace_target ();
187 t
->to_fetch_registers
= ppcnbsd_fetch_inferior_registers
;
188 t
->to_store_registers
= ppcnbsd_store_inferior_registers
;