Updated copyright notices for most files.
[external/binutils.git] / gdb / ppcnbsd-nat.c
1 /* Native-dependent code for NetBSD/powerpc.
2
3    Copyright (C) 2002, 2004, 2005, 2006, 2007, 2008
4    Free Software Foundation, Inc.
5
6    Contributed by Wasabi Systems, Inc.
7
8    This file is part of GDB.
9
10    This program is free software; you can redistribute it and/or modify
11    it under the terms of the GNU General Public License as published by
12    the Free Software Foundation; either version 3 of the License, or
13    (at your option) any later version.
14
15    This program is distributed in the hope that it will be useful,
16    but WITHOUT ANY WARRANTY; without even the implied warranty of
17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18    GNU General Public License for more details.
19
20    You should have received a copy of the GNU General Public License
21    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
22
23 #include <sys/types.h>
24 #include <sys/ptrace.h>
25 #include <machine/reg.h>
26 #include <machine/frame.h>
27 #include <machine/pcb.h>
28
29 #include "defs.h"
30 #include "gdbcore.h"
31 #include "inferior.h"
32 #include "regcache.h"
33
34 #include "gdb_assert.h"
35
36 #include "ppc-tdep.h"
37 #include "ppcnbsd-tdep.h"
38 #include "bsd-kvm.h"
39 #include "inf-ptrace.h"
40
41 /* Returns true if PT_GETREGS fetches this register.  */
42
43 static int
44 getregs_supplies (int regnum)
45 {
46   struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
47
48   return ((regnum >= tdep->ppc_gp0_regnum
49            && regnum < tdep->ppc_gp0_regnum + ppc_num_gprs)
50           || regnum == tdep->ppc_lr_regnum
51           || regnum == tdep->ppc_cr_regnum
52           || regnum == tdep->ppc_xer_regnum
53           || regnum == tdep->ppc_ctr_regnum
54           || regnum == gdbarch_pc_regnum (current_gdbarch));
55 }
56
57 /* Like above, but for PT_GETFPREGS.  */
58
59 static int
60 getfpregs_supplies (int regnum)
61 {
62   struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
63
64   /* FIXME: jimb/2004-05-05: Some PPC variants don't have floating
65      point registers.  Traditionally, GDB's register set has still
66      listed the floating point registers for such machines, so this
67      code is harmless.  However, the new E500 port actually omits the
68      floating point registers entirely from the register set --- they
69      don't even have register numbers assigned to them.
70
71      It's not clear to me how best to update this code, so this assert
72      will alert the first person to encounter the NetBSD/E500
73      combination to the problem.  */
74   gdb_assert (ppc_floating_point_unit_p (current_gdbarch));
75
76   return ((regnum >= tdep->ppc_fp0_regnum
77            && regnum < tdep->ppc_fp0_regnum + ppc_num_fprs)
78           || regnum == tdep->ppc_fpscr_regnum);
79 }
80
81 static void
82 ppcnbsd_fetch_inferior_registers (struct regcache *regcache, int regnum)
83 {
84   if (regnum == -1 || getregs_supplies (regnum))
85     {
86       struct reg regs;
87
88       if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
89                   (PTRACE_TYPE_ARG3) &regs, 0) == -1)
90         perror_with_name (_("Couldn't get registers"));
91
92       ppc_supply_gregset (&ppcnbsd_gregset, regcache,
93                           regnum, &regs, sizeof regs);
94     }
95
96   if (regnum == -1 || getfpregs_supplies (regnum))
97     {
98       struct fpreg fpregs;
99
100       if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
101                   (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
102         perror_with_name (_("Couldn't get FP registers"));
103
104       ppc_supply_fpregset (&ppcnbsd_fpregset, regcache,
105                            regnum, &fpregs, sizeof fpregs);
106     }
107 }
108
109 static void
110 ppcnbsd_store_inferior_registers (struct regcache *regcache, int regnum)
111 {
112   if (regnum == -1 || getregs_supplies (regnum))
113     {
114       struct reg regs;
115
116       if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
117                   (PTRACE_TYPE_ARG3) &regs, 0) == -1)
118         perror_with_name (_("Couldn't get registers"));
119
120       ppc_collect_gregset (&ppcnbsd_gregset, regcache,
121                            regnum, &regs, sizeof regs);
122
123       if (ptrace (PT_SETREGS, PIDGET (inferior_ptid),
124                   (PTRACE_TYPE_ARG3) &regs, 0) == -1)
125         perror_with_name (_("Couldn't write registers"));
126     }
127
128   if (regnum == -1 || getfpregs_supplies (regnum))
129     {
130       struct fpreg fpregs;
131
132       if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
133                   (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
134         perror_with_name (_("Couldn't get FP registers"));
135
136       ppc_collect_fpregset (&ppcnbsd_fpregset, regcache,
137                             regnum, &fpregs, sizeof fpregs);
138
139       if (ptrace (PT_SETFPREGS, PIDGET (inferior_ptid),
140                   (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
141         perror_with_name (_("Couldn't set FP registers"));
142     }
143 }
144
145 static int
146 ppcnbsd_supply_pcb (struct regcache *regcache, struct pcb *pcb)
147 {
148   struct switchframe sf;
149   struct callframe cf;
150   struct gdbarch *gdbarch = get_regcache_arch (regcache);
151   struct gdbarch_tdep *tdep = gdbarch_tdep (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, gdbarch_pc_regnum (gdbarch), &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 }