xref: /netbsd-src/external/gpl3/gdb.old/dist/gdb/aarch64-fbsd-nat.c (revision 4b004442778f1201b2161e87fd65ba87aae6601a)
1 /* Native-dependent code for FreeBSD/aarch64.
2 
3    Copyright (C) 2017-2020 Free Software Foundation, 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 3 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, see <http://www.gnu.org/licenses/>.  */
19 
20 #include "defs.h"
21 #include "regcache.h"
22 #include "target.h"
23 
24 #include <sys/types.h>
25 #include <sys/ptrace.h>
26 #include <machine/reg.h>
27 
28 #include "fbsd-nat.h"
29 #include "aarch64-tdep.h"
30 #include "aarch64-fbsd-tdep.h"
31 #include "inf-ptrace.h"
32 
33 struct aarch64_fbsd_nat_target final : public fbsd_nat_target
34 {
35   void fetch_registers (struct regcache *, int) override;
36   void store_registers (struct regcache *, int) override;
37 };
38 
39 static aarch64_fbsd_nat_target the_aarch64_fbsd_nat_target;
40 
41 /* Determine if PT_GETREGS fetches REGNUM.  */
42 
43 static bool
44 getregs_supplies (int regnum)
45 {
46   return (regnum >= AARCH64_X0_REGNUM && regnum <= AARCH64_CPSR_REGNUM);
47 }
48 
49 /* Determine if PT_GETFPREGS fetches REGNUM.  */
50 
51 static bool
52 getfpregs_supplies (int regnum)
53 {
54   return (regnum >= AARCH64_V0_REGNUM && regnum <= AARCH64_FPCR_REGNUM);
55 }
56 
57 /* Fetch register REGNUM from the inferior.  If REGNUM is -1, do this
58    for all registers.  */
59 
60 void
61 aarch64_fbsd_nat_target::fetch_registers (struct regcache *regcache,
62 					  int regnum)
63 {
64   pid_t pid = get_ptrace_pid (regcache->ptid ());
65 
66   if (regnum == -1 || getregs_supplies (regnum))
67     {
68       struct reg regs;
69 
70       if (ptrace (PT_GETREGS, pid, (PTRACE_TYPE_ARG3) &regs, 0) == -1)
71 	perror_with_name (_("Couldn't get registers"));
72 
73       regcache->supply_regset (&aarch64_fbsd_gregset, regnum, &regs,
74 			       sizeof (regs));
75     }
76 
77   if (regnum == -1 || getfpregs_supplies (regnum))
78     {
79       struct fpreg fpregs;
80 
81       if (ptrace (PT_GETFPREGS, pid, (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
82 	perror_with_name (_("Couldn't get floating point status"));
83 
84       regcache->supply_regset (&aarch64_fbsd_fpregset, regnum, &fpregs,
85 			       sizeof (fpregs));
86     }
87 }
88 
89 /* Store register REGNUM back into the inferior.  If REGNUM is -1, do
90    this for all registers.  */
91 
92 void
93 aarch64_fbsd_nat_target::store_registers (struct regcache *regcache,
94 					  int regnum)
95 {
96   pid_t pid = get_ptrace_pid (regcache->ptid ());
97 
98   if (regnum == -1 || getregs_supplies (regnum))
99     {
100       struct reg regs;
101 
102       if (ptrace (PT_GETREGS, pid, (PTRACE_TYPE_ARG3) &regs, 0) == -1)
103 	perror_with_name (_("Couldn't get registers"));
104 
105       regcache->collect_regset (&aarch64_fbsd_gregset, regnum, &regs,
106 			       sizeof (regs));
107 
108       if (ptrace (PT_SETREGS, pid, (PTRACE_TYPE_ARG3) &regs, 0) == -1)
109 	perror_with_name (_("Couldn't write registers"));
110     }
111 
112   if (regnum == -1 || getfpregs_supplies (regnum))
113     {
114       struct fpreg fpregs;
115 
116       if (ptrace (PT_GETFPREGS, pid, (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
117 	perror_with_name (_("Couldn't get floating point status"));
118 
119       regcache->collect_regset (&aarch64_fbsd_fpregset, regnum, &fpregs,
120 				sizeof (fpregs));
121 
122       if (ptrace (PT_SETFPREGS, pid, (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
123 	perror_with_name (_("Couldn't write floating point status"));
124     }
125 }
126 
127 void _initialize_aarch64_fbsd_nat ();
128 void
129 _initialize_aarch64_fbsd_nat ()
130 {
131   add_inf_child_target (&the_aarch64_fbsd_nat_target);
132 }
133