1 /* Native-dependent code for FreeBSD/riscv.
3 Copyright (C) 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/>. */
23 #include <sys/types.h>
24 #include <sys/ptrace.h>
25 #include <machine/reg.h>
28 #include "riscv-tdep.h"
29 #include "riscv-fbsd-tdep.h"
30 #include "inf-ptrace.h"
32 struct riscv_fbsd_nat_target final
: public fbsd_nat_target
34 void fetch_registers (struct regcache
*, int) override
;
35 void store_registers (struct regcache
*, int) override
;
38 static riscv_fbsd_nat_target the_riscv_fbsd_nat_target
;
40 /* Determine if PT_GETREGS fetches REGNUM. */
43 getregs_supplies (struct gdbarch
*gdbarch
, int regnum
)
45 return (regnum
>= RISCV_RA_REGNUM
&& regnum
<= RISCV_PC_REGNUM
);
48 /* Determine if PT_GETFPREGS fetches REGNUM. */
51 getfpregs_supplies (struct gdbarch
*gdbarch
, int regnum
)
53 return ((regnum
>= RISCV_FIRST_FP_REGNUM
&& regnum
<= RISCV_LAST_FP_REGNUM
)
54 || regnum
== RISCV_CSR_FCSR_REGNUM
);
57 /* Fetch register REGNUM from the inferior. If REGNUM is -1, do this
61 riscv_fbsd_nat_target::fetch_registers (struct regcache
*regcache
,
64 pid_t pid
= get_ptrace_pid (regcache
->ptid ());
66 struct gdbarch
*gdbarch
= regcache
->arch ();
67 if (regnum
== -1 || regnum
== RISCV_ZERO_REGNUM
)
68 regcache
->raw_supply_zeroed (RISCV_ZERO_REGNUM
);
69 if (regnum
== -1 || getregs_supplies (gdbarch
, regnum
))
73 if (ptrace (PT_GETREGS
, pid
, (PTRACE_TYPE_ARG3
) ®s
, 0) == -1)
74 perror_with_name (_("Couldn't get registers"));
76 regcache
->supply_regset (&riscv_fbsd_gregset
, regnum
, ®s
,
80 if (regnum
== -1 || getfpregs_supplies (gdbarch
, regnum
))
84 if (ptrace (PT_GETFPREGS
, pid
, (PTRACE_TYPE_ARG3
) &fpregs
, 0) == -1)
85 perror_with_name (_("Couldn't get floating point status"));
87 regcache
->supply_regset (&riscv_fbsd_fpregset
, regnum
, &fpregs
,
92 /* Store register REGNUM back into the inferior. If REGNUM is -1, do
93 this for all registers. */
96 riscv_fbsd_nat_target::store_registers (struct regcache
*regcache
,
99 pid_t pid
= get_ptrace_pid (regcache
->ptid ());
101 struct gdbarch
*gdbarch
= regcache
->arch ();
102 if (regnum
== -1 || getregs_supplies (gdbarch
, regnum
))
106 if (ptrace (PT_GETREGS
, pid
, (PTRACE_TYPE_ARG3
) ®s
, 0) == -1)
107 perror_with_name (_("Couldn't get registers"));
109 regcache
->collect_regset (&riscv_fbsd_gregset
, regnum
, ®s
,
112 if (ptrace (PT_SETREGS
, pid
, (PTRACE_TYPE_ARG3
) ®s
, 0) == -1)
113 perror_with_name (_("Couldn't write registers"));
116 if (regnum
== -1 || getfpregs_supplies (gdbarch
, regnum
))
120 if (ptrace (PT_GETFPREGS
, pid
, (PTRACE_TYPE_ARG3
) &fpregs
, 0) == -1)
121 perror_with_name (_("Couldn't get floating point status"));
123 regcache
->collect_regset (&riscv_fbsd_fpregset
, regnum
, &fpregs
,
126 if (ptrace (PT_SETFPREGS
, pid
, (PTRACE_TYPE_ARG3
) &fpregs
, 0) == -1)
127 perror_with_name (_("Couldn't write floating point status"));
132 _initialize_riscv_fbsd_nat (void)
134 add_inf_child_target (&the_riscv_fbsd_nat_target
);