]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blob - gdb/ppcnbsd-nat.c
Copyright updates for 2007.
[thirdparty/binutils-gdb.git] / gdb / ppcnbsd-nat.c
1 /* Native-dependent code for NetBSD/powerpc.
2
3 Copyright (C) 2002, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
4
5 Contributed by Wasabi Systems, Inc.
6
7 This file is part of GDB.
8
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 2 of the License, or
12 (at your option) any later version.
13
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.
18
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 51 Franklin Street, Fifth Floor,
22 Boston, MA 02110-1301, USA. */
23
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>
29
30 #include "defs.h"
31 #include "gdbcore.h"
32 #include "inferior.h"
33 #include "regcache.h"
34
35 #include "gdb_assert.h"
36
37 #include "ppc-tdep.h"
38 #include "ppcnbsd-tdep.h"
39 #include "bsd-kvm.h"
40 #include "inf-ptrace.h"
41
42 /* Returns true if PT_GETREGS fetches this register. */
43
44 static int
45 getregs_supplies (int regnum)
46 {
47 struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
48
49 return ((regnum >= tdep->ppc_gp0_regnum
50 && regnum < tdep->ppc_gp0_regnum + ppc_num_gprs)
51 || regnum == tdep->ppc_lr_regnum
52 || regnum == tdep->ppc_cr_regnum
53 || regnum == tdep->ppc_xer_regnum
54 || regnum == tdep->ppc_ctr_regnum
55 || regnum == PC_REGNUM);
56 }
57
58 /* Like above, but for PT_GETFPREGS. */
59
60 static int
61 getfpregs_supplies (int regnum)
62 {
63 struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
64
65 /* FIXME: jimb/2004-05-05: Some PPC variants don't have floating
66 point registers. Traditionally, GDB's register set has still
67 listed the floating point registers for such machines, so this
68 code is harmless. However, the new E500 port actually omits the
69 floating point registers entirely from the register set --- they
70 don't even have register numbers assigned to them.
71
72 It's not clear to me how best to update this code, so this assert
73 will alert the first person to encounter the NetBSD/E500
74 combination to the problem. */
75 gdb_assert (ppc_floating_point_unit_p (current_gdbarch));
76
77 return ((regnum >= tdep->ppc_fp0_regnum
78 && regnum < tdep->ppc_fp0_regnum + ppc_num_fprs)
79 || regnum == tdep->ppc_fpscr_regnum);
80 }
81
82 static void
83 ppcnbsd_fetch_inferior_registers (int regnum)
84 {
85 if (regnum == -1 || getregs_supplies (regnum))
86 {
87 struct reg regs;
88
89 if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
90 (PTRACE_TYPE_ARG3) &regs, 0) == -1)
91 perror_with_name (_("Couldn't get registers"));
92
93 ppc_supply_gregset (&ppcnbsd_gregset, current_regcache,
94 regnum, &regs, sizeof regs);
95 }
96
97 if (regnum == -1 || getfpregs_supplies (regnum))
98 {
99 struct fpreg fpregs;
100
101 if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
102 (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
103 perror_with_name (_("Couldn't get FP registers"));
104
105 ppc_supply_fpregset (&ppcnbsd_fpregset, current_regcache,
106 regnum, &fpregs, sizeof fpregs);
107 }
108 }
109
110 static void
111 ppcnbsd_store_inferior_registers (int regnum)
112 {
113 if (regnum == -1 || getregs_supplies (regnum))
114 {
115 struct reg regs;
116
117 if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
118 (PTRACE_TYPE_ARG3) &regs, 0) == -1)
119 perror_with_name (_("Couldn't get registers"));
120
121 ppc_collect_gregset (&ppcnbsd_gregset, current_regcache,
122 regnum, &regs, sizeof regs);
123
124 if (ptrace (PT_SETREGS, PIDGET (inferior_ptid),
125 (PTRACE_TYPE_ARG3) &regs, 0) == -1)
126 perror_with_name (_("Couldn't write registers"));
127 }
128
129 if (regnum == -1 || getfpregs_supplies (regnum))
130 {
131 struct fpreg fpregs;
132
133 if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
134 (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
135 perror_with_name (_("Couldn't get FP registers"));
136
137 ppc_collect_fpregset (&ppcnbsd_fpregset, current_regcache,
138 regnum, &fpregs, sizeof fpregs);
139
140 if (ptrace (PT_SETFPREGS, PIDGET (inferior_ptid),
141 (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
142 perror_with_name (_("Couldn't set FP registers"));
143 }
144 }
145
146 static int
147 ppcnbsd_supply_pcb (struct regcache *regcache, struct pcb *pcb)
148 {
149 struct switchframe sf;
150 struct callframe cf;
151 struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
152 int i;
153
154 /* The stack pointer shouldn't be zero. */
155 if (pcb->pcb_sp == 0)
156 return 0;
157
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,
163 &sf.fixreg[i]);
164
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);
169
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, PC_REGNUM, &cf.lr);
173
174 return 1;
175 }
176
177 /* Provide a prototype to silence -Wmissing-prototypes. */
178 void _initialize_ppcnbsd_nat (void);
179
180 void
181 _initialize_ppcnbsd_nat (void)
182 {
183 struct target_ops *t;
184
185 /* Support debugging kernel virtual memory images. */
186 bsd_kvm_add_target (ppcnbsd_supply_pcb);
187
188 /* Add in local overrides. */
189 t = inf_ptrace_target ();
190 t->to_fetch_registers = ppcnbsd_fetch_inferior_registers;
191 t->to_store_registers = ppcnbsd_store_inferior_registers;
192 add_target (t);
193 }