ppcfbsd-nat.c revision 169185 
1/* Native-dependent code for PowerPC's running FreeBSD, for GDB.
2   Copyright 2002, 2004 Free Software Foundation, Inc.
3   Contributed by Wasabi Systems, Inc.
4
5   This file is part of GDB.
6
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
9   the Free Software Foundation; either version 2 of the License, or
10   (at your option) any later version.
11
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.
16
17   You should have received a copy of the GNU General Public License
18   along with this program; if not, write to the Free Software
19   Foundation, Inc., 59 Temple Place - Suite 330,
20   Boston, MA 02111-1307, USA.  */
21
22#include <sys/types.h>
23#include <sys/ptrace.h>
24#include <machine/reg.h>
25#include <machine/frame.h>
26
27#include "defs.h"
28#include "inferior.h"
29#include "gdb_assert.h"
30#include "gdbcore.h"
31#include "regcache.h"
32
33#include "ppc-tdep.h"
34#include "ppcfbsd-tdep.h"
35
36/* Returns true if PT_GETREGS fetches this register.  */
37static int
38getregs_supplies (int regno)
39{
40  struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
41
42  return ((regno >= tdep->ppc_gp0_regnum && regno <= tdep->ppc_gplast_regnum)
43          || regno == tdep->ppc_lr_regnum
44          || regno == tdep->ppc_cr_regnum
45          || regno == tdep->ppc_xer_regnum
46          || regno == tdep->ppc_ctr_regnum
47	  || regno == PC_REGNUM);
48}
49
50/* Like above, but for PT_GETFPREGS.  */
51static int
52getfpregs_supplies (int regno)
53{
54  struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
55
56  /* FIXME: jimb/2004-05-05: Some PPC variants don't have floating
57     point registers.  Traditionally, GDB's register set has still
58     listed the floating point registers for such machines, so this
59     code is harmless.  However, the new E500 port actually omits the
60     floating point registers entirely from the register set --- they
61     don't even have register numbers assigned to them.
62
63     It's not clear to me how best to update this code, so this assert
64     will alert the first person to encounter the NetBSD/E500
65     combination to the problem.  */
66  gdb_assert (ppc_floating_point_unit_p (current_gdbarch));
67
68  return ((regno >= FP0_REGNUM && regno <= FPLAST_REGNUM)
69	  || regno == tdep->ppc_fpscr_regnum);
70}
71
72void
73fetch_inferior_registers (int regno)
74{
75  if (regno == -1 || getregs_supplies (regno))
76    {
77      struct reg regs;
78
79      if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
80		  (PTRACE_ARG3_TYPE) &regs, 0) == -1)
81        perror_with_name (_("Couldn't get registers"));
82
83      ppcfbsd_supply_reg ((char *) &regs, regno);
84      if (regno != -1)
85	return;
86    }
87
88  if (regno == -1 || getfpregs_supplies (regno))
89    {
90      struct fpreg fpregs;
91
92      if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
93		  (PTRACE_ARG3_TYPE) &fpregs, 0) == -1)
94	perror_with_name (_("Couldn't get FP registers"));
95
96      ppcfbsd_supply_fpreg ((char *) &fpregs, regno);
97      if (regno != -1)
98	return;
99    }
100}
101
102void
103store_inferior_registers (int regno)
104{
105  if (regno == -1 || getregs_supplies (regno))
106    {
107      struct reg regs;
108
109      if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
110		  (PTRACE_ARG3_TYPE) &regs, 0) == -1)
111	perror_with_name (_("Couldn't get registers"));
112
113      ppcfbsd_fill_reg ((char *) &regs, regno);
114
115      if (ptrace (PT_SETREGS, PIDGET (inferior_ptid),
116		  (PTRACE_ARG3_TYPE) &regs, 0) == -1)
117	perror_with_name (_("Couldn't write registers"));
118
119      if (regno != -1)
120	return;
121    }
122
123  if (regno == -1 || getfpregs_supplies (regno))
124    {
125      struct fpreg fpregs;
126
127      if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid),
128		  (PTRACE_ARG3_TYPE) &fpregs, 0) == -1)
129	perror_with_name (_("Couldn't get FP registers"));
130
131      ppcfbsd_fill_fpreg ((char *) &fpregs, regno);
132
133      if (ptrace (PT_SETFPREGS, PIDGET (inferior_ptid),
134		  (PTRACE_ARG3_TYPE) &fpregs, 0) == -1)
135	perror_with_name (_("Couldn't set FP registers"));
136    }
137}
138
139void
140fill_gregset (char *regs, int regnum)
141{
142  ppcfbsd_fill_reg (regs, regnum);
143}
144
145void
146supply_gregset (char *regs)
147{
148  ppcfbsd_supply_reg (regs, -1);
149}
150
151void
152fill_fpregset (char *fpregs, int regnum)
153{
154  ppcfbsd_fill_fpreg (fpregs, regnum);
155}
156
157void
158supply_fpregset (char *fpregs)
159{
160  ppcfbsd_supply_fpreg (fpregs, -1);
161}
162
163/* Provide a prototype to silence -Wmissing-prototypes.  */
164void _initialize_ppcfbsd_nat (void);
165
166void
167_initialize_ppcfbsd_nat (void)
168{
169}
170