Commit | Line | Data |
---|---|---|
e42180d7 | 1 | /* Native-dependent code for PowerPC's running NetBSD, for GDB. |
485721b1 JT |
2 | Copyright 2002 Free Software Foundation, Inc. |
3 | Contributed by Wasabi Systems, Inc. | |
e42180d7 C |
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> | |
e42180d7 C |
25 | |
26 | #include "defs.h" | |
27 | #include "inferior.h" | |
383f0f5b | 28 | #include "gdb_assert.h" |
e42180d7 | 29 | |
485721b1 JT |
30 | #include "ppc-tdep.h" |
31 | #include "ppcnbsd-tdep.h" | |
e42180d7 | 32 | |
485721b1 JT |
33 | /* Returns true if PT_GETREGS fetches this register. */ |
34 | static int | |
35 | getregs_supplies (int regno) | |
e42180d7 | 36 | { |
485721b1 JT |
37 | struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch); |
38 | ||
cdf2c5f5 JB |
39 | return ((regno >= tdep->ppc_gp0_regnum |
40 | && regno < tdep->ppc_gp0_regnum + ppc_num_gprs) | |
485721b1 JT |
41 | || regno == tdep->ppc_lr_regnum |
42 | || regno == tdep->ppc_cr_regnum | |
43 | || regno == tdep->ppc_xer_regnum | |
44 | || regno == tdep->ppc_ctr_regnum | |
45 | || regno == PC_REGNUM); | |
e42180d7 C |
46 | } |
47 | ||
485721b1 JT |
48 | /* Like above, but for PT_GETFPREGS. */ |
49 | static int | |
50 | getfpregs_supplies (int regno) | |
e42180d7 | 51 | { |
485721b1 | 52 | struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch); |
e42180d7 | 53 | |
383f0f5b JB |
54 | /* FIXME: jimb/2004-05-05: Some PPC variants don't have floating |
55 | point registers. Traditionally, GDB's register set has still | |
56 | listed the floating point registers for such machines, so this | |
57 | code is harmless. However, the new E500 port actually omits the | |
58 | floating point registers entirely from the register set --- they | |
59 | don't even have register numbers assigned to them. | |
60 | ||
61 | It's not clear to me how best to update this code, so this assert | |
62 | will alert the first person to encounter the NetBSD/E500 | |
63 | combination to the problem. */ | |
64 | gdb_assert (ppc_floating_point_unit_p (current_gdbarch)); | |
65 | ||
366f009f JB |
66 | return ((regno >= tdep->ppc_fp0_regnum |
67 | && regno < tdep->ppc_fp0_regnum + ppc_num_fprs) | |
485721b1 JT |
68 | || regno == tdep->ppc_fpscr_regnum); |
69 | } | |
e42180d7 C |
70 | |
71 | void | |
485721b1 | 72 | fetch_inferior_registers (int regno) |
e42180d7 | 73 | { |
485721b1 JT |
74 | if (regno == -1 || getregs_supplies (regno)) |
75 | { | |
76 | struct reg regs; | |
77 | ||
78 | if (ptrace (PT_GETREGS, PIDGET (inferior_ptid), | |
79 | (PTRACE_ARG3_TYPE) ®s, 0) == -1) | |
80 | perror_with_name ("Couldn't get registers"); | |
81 | ||
82 | ppcnbsd_supply_reg ((char *) ®s, regno); | |
83 | if (regno != -1) | |
84 | return; | |
85 | } | |
86 | ||
87 | if (regno == -1 || getfpregs_supplies (regno)) | |
88 | { | |
89 | struct fpreg fpregs; | |
90 | ||
91 | if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid), | |
92 | (PTRACE_ARG3_TYPE) &fpregs, 0) == -1) | |
93 | perror_with_name ("Couldn't get FP registers"); | |
94 | ||
95 | ppcnbsd_supply_fpreg ((char *) &fpregs, regno); | |
96 | if (regno != -1) | |
97 | return; | |
98 | } | |
e42180d7 C |
99 | } |
100 | ||
e42180d7 | 101 | void |
485721b1 | 102 | store_inferior_registers (int regno) |
e42180d7 | 103 | { |
485721b1 JT |
104 | if (regno == -1 || getregs_supplies (regno)) |
105 | { | |
106 | struct reg regs; | |
107 | ||
108 | if (ptrace (PT_GETREGS, PIDGET (inferior_ptid), | |
109 | (PTRACE_ARG3_TYPE) ®s, 0) == -1) | |
110 | perror_with_name ("Couldn't get registers"); | |
111 | ||
112 | ppcnbsd_fill_reg ((char *) ®s, regno); | |
113 | ||
114 | if (ptrace (PT_SETREGS, PIDGET (inferior_ptid), | |
115 | (PTRACE_ARG3_TYPE) ®s, 0) == -1) | |
116 | perror_with_name ("Couldn't write registers"); | |
117 | ||
118 | if (regno != -1) | |
119 | return; | |
120 | } | |
121 | ||
122 | if (regno == -1 || getfpregs_supplies (regno)) | |
123 | { | |
124 | struct fpreg fpregs; | |
125 | ||
126 | if (ptrace (PT_GETFPREGS, PIDGET (inferior_ptid), | |
127 | (PTRACE_ARG3_TYPE) &fpregs, 0) == -1) | |
128 | perror_with_name ("Couldn't get FP registers"); | |
129 | ||
130 | ppcnbsd_fill_fpreg ((char *) &fpregs, regno); | |
131 | ||
132 | if (ptrace (PT_SETFPREGS, PIDGET (inferior_ptid), | |
133 | (PTRACE_ARG3_TYPE) &fpregs, 0) == -1) | |
134 | perror_with_name ("Couldn't set FP registers"); | |
135 | } | |
e42180d7 | 136 | } |