1 /* Native-dependent code for FreeBSD/mips.
3 Copyright (C) 2017-2018 Free Software Foundation, Inc.
5 This file is part of GDB.
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 3 of the License, or
10 (at your option) any later version.
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.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
25 #include <sys/types.h>
26 #include <sys/ptrace.h>
27 #include <machine/reg.h>
30 #include "mips-tdep.h"
31 #include "mips-fbsd-tdep.h"
32 #include "inf-ptrace.h"
34 /* Determine if PT_GETREGS fetches REGNUM. */
37 getregs_supplies (struct gdbarch
*gdbarch
, int regnum
)
39 return (regnum
>= MIPS_ZERO_REGNUM
40 && regnum
<= mips_regnum (gdbarch
)->pc
);
43 /* Determine if PT_GETFPREGS fetches REGNUM. */
46 getfpregs_supplies (struct gdbarch
*gdbarch
, int regnum
)
48 return (regnum
>= mips_regnum (gdbarch
)->fp0
49 && regnum
<= mips_regnum (gdbarch
)->fp_implementation_revision
);
52 /* Fetch register REGNUM from the inferior. If REGNUM is -1, do this
56 mips_fbsd_fetch_inferior_registers (struct target_ops
*ops
,
57 struct regcache
*regcache
, int regnum
)
59 pid_t pid
= get_ptrace_pid (regcache_get_ptid (regcache
));
61 struct gdbarch
*gdbarch
= regcache
->arch ();
62 if (regnum
== -1 || getregs_supplies (gdbarch
, regnum
))
66 if (ptrace (PT_GETREGS
, pid
, (PTRACE_TYPE_ARG3
) ®s
, 0) == -1)
67 perror_with_name (_("Couldn't get registers"));
69 mips_fbsd_supply_gregs (regcache
, regnum
, ®s
, sizeof (register_t
));
72 if (regnum
== -1 || getfpregs_supplies (gdbarch
, regnum
))
76 if (ptrace (PT_GETFPREGS
, pid
, (PTRACE_TYPE_ARG3
) &fpregs
, 0) == -1)
77 perror_with_name (_("Couldn't get floating point status"));
79 mips_fbsd_supply_fpregs (regcache
, regnum
, &fpregs
,
80 sizeof (f_register_t
));
84 /* Store register REGNUM back into the inferior. If REGNUM is -1, do
85 this for all registers. */
88 mips_fbsd_store_inferior_registers (struct target_ops
*ops
,
89 struct regcache
*regcache
, int regnum
)
91 pid_t pid
= get_ptrace_pid (regcache_get_ptid (regcache
));
93 struct gdbarch
*gdbarch
= regcache
->arch ();
94 if (regnum
== -1 || getregs_supplies (gdbarch
, regnum
))
98 if (ptrace (PT_GETREGS
, pid
, (PTRACE_TYPE_ARG3
) ®s
, 0) == -1)
99 perror_with_name (_("Couldn't get registers"));
101 mips_fbsd_collect_gregs (regcache
, regnum
, (char *) ®s
,
102 sizeof (register_t
));
104 if (ptrace (PT_SETREGS
, pid
, (PTRACE_TYPE_ARG3
) ®s
, 0) == -1)
105 perror_with_name (_("Couldn't write registers"));
108 if (regnum
== -1 || getfpregs_supplies (gdbarch
, regnum
))
112 if (ptrace (PT_GETFPREGS
, pid
, (PTRACE_TYPE_ARG3
) &fpregs
, 0) == -1)
113 perror_with_name (_("Couldn't get floating point status"));
115 mips_fbsd_collect_fpregs (regcache
, regnum
, (char *) &fpregs
,
116 sizeof (f_register_t
));
118 if (ptrace (PT_SETFPREGS
, pid
, (PTRACE_TYPE_ARG3
) &fpregs
, 0) == -1)
119 perror_with_name (_("Couldn't write floating point status"));
124 _initialize_mips_fbsd_nat (void)
126 struct target_ops
*t
;
128 t
= inf_ptrace_target ();
129 t
->to_fetch_registers
= mips_fbsd_fetch_inferior_registers
;
130 t
->to_store_registers
= mips_fbsd_store_inferior_registers
;
131 fbsd_nat_add_target (t
);