netbsd32_ptrace.c revision 1.8 1 1.8 kamil /* $NetBSD: netbsd32_ptrace.c,v 1.8 2019/12/24 14:50:59 kamil Exp $ */
2 1.1 skrll
3 1.1 skrll /*
4 1.1 skrll * Copyright (c) 2016 The NetBSD Foundation, Inc.
5 1.1 skrll * All rights reserved.
6 1.1 skrll *
7 1.1 skrll * This code is derived from software contributed to The NetBSD Foundation
8 1.1 skrll * by Nick Hudson
9 1.1 skrll *
10 1.1 skrll * Redistribution and use in source and binary forms, with or without
11 1.1 skrll * modification, are permitted provided that the following conditions
12 1.1 skrll * are met:
13 1.1 skrll * 1. Redistributions of source code must retain the above copyright
14 1.1 skrll * notice, this list of conditions and the following disclaimer.
15 1.1 skrll * 2. Redistributions in binary form must reproduce the above copyright
16 1.1 skrll * notice, this list of conditions and the following disclaimer in the
17 1.1 skrll * documentation and/or other materials provided with the distribution.
18 1.1 skrll *
19 1.1 skrll * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 1.1 skrll * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 1.1 skrll * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 1.1 skrll * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 1.1 skrll * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 1.1 skrll * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 1.1 skrll * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 1.1 skrll * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 1.1 skrll * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 1.1 skrll * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 1.1 skrll * POSSIBILITY OF SUCH DAMAGE.
30 1.1 skrll */
31 1.1 skrll
32 1.1 skrll #include <sys/cdefs.h>
33 1.8 kamil __KERNEL_RCSID(0, "$NetBSD: netbsd32_ptrace.c,v 1.8 2019/12/24 14:50:59 kamil Exp $");
34 1.1 skrll
35 1.1 skrll #if defined(_KERNEL_OPT)
36 1.1 skrll #include "opt_ptrace.h"
37 1.1 skrll #include "opt_compat_netbsd.h"
38 1.1 skrll #endif
39 1.1 skrll
40 1.1 skrll #include <sys/param.h>
41 1.1 skrll #include <sys/module.h>
42 1.1 skrll #include <sys/ptrace.h>
43 1.1 skrll #include <sys/syscallvar.h>
44 1.1 skrll
45 1.1 skrll #include <compat/netbsd32/netbsd32.h>
46 1.1 skrll #include <compat/netbsd32/netbsd32_syscall.h>
47 1.1 skrll #include <compat/netbsd32/netbsd32_syscallargs.h>
48 1.1 skrll #include <compat/netbsd32/netbsd32_conv.h>
49 1.1 skrll
50 1.7 mgorny #ifndef PTRACE_TRANSLATE_REQUEST32
51 1.7 mgorny #define PTRACE_TRANSLATE_REQUEST32(x) x
52 1.7 mgorny #endif
53 1.7 mgorny
54 1.8 kamil static void
55 1.8 kamil netbsd32_lwpstatus_to_lwpstatus32(struct netbsd32_ptrace_lwpstatus *pls32,
56 1.8 kamil const struct ptrace_lwpstatus *pls)
57 1.8 kamil {
58 1.8 kamil pls32->pl_lwpid = pls->pl_lwpid;
59 1.8 kamil pls32->pl_sigpend = pls->pl_sigpend;
60 1.8 kamil pls32->pl_sigmask = pls->pl_sigmask;
61 1.8 kamil memcpy(&pls32->pl_name, &pls->pl_name, PL_LNAMELEN);
62 1.8 kamil NETBSD32PTR32(pls32->pl_private, pls->pl_private);
63 1.8 kamil }
64 1.8 kamil
65 1.8 kamil void
66 1.8 kamil netbsd32_read_lwpstatus(struct lwp *l, struct netbsd32_ptrace_lwpstatus *pls32)
67 1.8 kamil {
68 1.8 kamil struct ptrace_lwpstatus pls;
69 1.8 kamil
70 1.8 kamil process_read_lwpstatus(l, &pls);
71 1.8 kamil
72 1.8 kamil netbsd32_lwpstatus_to_lwpstatus32(pls32, &pls);
73 1.8 kamil }
74 1.8 kamil
75 1.1 skrll /*
76 1.1 skrll * PTRACE methods
77 1.1 skrll */
78 1.1 skrll
79 1.1 skrll static int
80 1.5 christos netbsd32_copyin_piod(struct ptrace_io_desc *piod, const void *addr, size_t len)
81 1.1 skrll {
82 1.1 skrll struct netbsd32_ptrace_io_desc piod32;
83 1.1 skrll
84 1.5 christos if (len != 0 && sizeof(piod32) != len)
85 1.5 christos return EINVAL;
86 1.5 christos
87 1.1 skrll int error = copyin(addr, &piod32, sizeof(piod32));
88 1.1 skrll if (error)
89 1.1 skrll return error;
90 1.1 skrll piod->piod_op = piod32.piod_op;
91 1.1 skrll piod->piod_offs = NETBSD32PTR64(piod32.piod_offs);
92 1.1 skrll piod->piod_addr = NETBSD32PTR64(piod32.piod_addr);
93 1.1 skrll piod->piod_len = (size_t)piod32.piod_len;
94 1.1 skrll
95 1.1 skrll return 0;
96 1.1 skrll }
97 1.1 skrll
98 1.5 christos static int
99 1.5 christos netbsd32_copyout_piod(const struct ptrace_io_desc *piod, void *addr, size_t len)
100 1.1 skrll {
101 1.1 skrll struct netbsd32_ptrace_io_desc piod32;
102 1.1 skrll
103 1.5 christos if (len != 0 && sizeof(piod32) != len)
104 1.5 christos return EINVAL;
105 1.5 christos
106 1.1 skrll piod32.piod_op = piod->piod_op;
107 1.1 skrll NETBSD32PTR32(piod32.piod_offs, piod->piod_offs);
108 1.1 skrll NETBSD32PTR32(piod32.piod_addr, piod->piod_addr);
109 1.1 skrll piod32.piod_len = (netbsd32_size_t)piod->piod_len;
110 1.5 christos return copyout(&piod32, addr, sizeof(piod32));
111 1.1 skrll }
112 1.1 skrll
113 1.5 christos static int
114 1.5 christos netbsd32_copyin_siginfo(struct ptrace_siginfo *psi, const void *addr, size_t len)
115 1.5 christos {
116 1.5 christos struct netbsd32_ptrace_siginfo psi32;
117 1.5 christos
118 1.5 christos if (sizeof(psi32) != len)
119 1.5 christos return EINVAL;
120 1.5 christos
121 1.5 christos int error = copyin(addr, &psi32, sizeof(psi32));
122 1.5 christos if (error)
123 1.5 christos return error;
124 1.5 christos psi->psi_lwpid = psi32.psi_lwpid;
125 1.5 christos netbsd32_si32_to_si(&psi->psi_siginfo, &psi32.psi_siginfo);
126 1.5 christos return 0;
127 1.5 christos }
128 1.5 christos
129 1.5 christos static int
130 1.5 christos netbsd32_copyout_siginfo(const struct ptrace_siginfo *psi, void *addr, size_t len)
131 1.5 christos {
132 1.5 christos struct netbsd32_ptrace_siginfo psi32;
133 1.5 christos
134 1.5 christos if (sizeof(psi32) != len)
135 1.5 christos return EINVAL;
136 1.5 christos
137 1.5 christos psi32.psi_lwpid = psi->psi_lwpid;
138 1.5 christos netbsd32_si_to_si32(&psi32.psi_siginfo, &psi->psi_siginfo);
139 1.5 christos return copyout(&psi32, addr, sizeof(psi32));
140 1.5 christos }
141 1.1 skrll
142 1.1 skrll static int
143 1.8 kamil netbsd32_copyout_lwpstatus(const struct ptrace_lwpstatus *pls, void *addr, size_t len)
144 1.8 kamil {
145 1.8 kamil struct netbsd32_ptrace_lwpstatus pls32;
146 1.8 kamil
147 1.8 kamil if (len > sizeof(pls32))
148 1.8 kamil return EINVAL;
149 1.8 kamil
150 1.8 kamil netbsd32_lwpstatus_to_lwpstatus32(&pls32, pls);
151 1.8 kamil
152 1.8 kamil return copyout(&pls32, addr, MIN(len, sizeof(pls32)));
153 1.8 kamil }
154 1.8 kamil
155 1.8 kamil static int
156 1.1 skrll netbsd32_doregs(struct lwp *curl /*tracer*/,
157 1.1 skrll struct lwp *l /*traced*/,
158 1.1 skrll struct uio *uio)
159 1.1 skrll {
160 1.1 skrll #if defined(PT_GETREGS) || defined(PT_SETREGS)
161 1.1 skrll process_reg32 r32;
162 1.1 skrll int error;
163 1.1 skrll char *kv;
164 1.1 skrll int kl;
165 1.1 skrll
166 1.1 skrll if (uio->uio_offset < 0 || uio->uio_offset > (off_t)sizeof(r32))
167 1.1 skrll return EINVAL;
168 1.1 skrll
169 1.1 skrll kl = sizeof(r32);
170 1.1 skrll kv = (char *)&r32;
171 1.1 skrll
172 1.1 skrll kv += uio->uio_offset;
173 1.1 skrll kl -= uio->uio_offset;
174 1.1 skrll if ((size_t)kl > uio->uio_resid)
175 1.1 skrll kl = uio->uio_resid;
176 1.1 skrll error = process_read_regs32(l, &r32);
177 1.1 skrll if (error == 0)
178 1.1 skrll error = uiomove(kv, kl, uio);
179 1.1 skrll if (error == 0 && uio->uio_rw == UIO_WRITE) {
180 1.1 skrll if (l->l_stat != LSSTOP)
181 1.1 skrll error = EBUSY;
182 1.1 skrll else
183 1.1 skrll error = process_write_regs32(l, &r32);
184 1.1 skrll }
185 1.1 skrll
186 1.1 skrll uio->uio_offset = 0;
187 1.1 skrll return error;
188 1.1 skrll #else
189 1.1 skrll return EINVAL;
190 1.1 skrll #endif
191 1.1 skrll }
192 1.1 skrll
193 1.1 skrll static int
194 1.1 skrll netbsd32_dofpregs(struct lwp *curl /*tracer*/,
195 1.1 skrll struct lwp *l /*traced*/,
196 1.1 skrll struct uio *uio)
197 1.1 skrll {
198 1.1 skrll #if defined(PT_GETFPREGS) || defined(PT_SETFPREGS)
199 1.1 skrll process_fpreg32 r32;
200 1.1 skrll int error;
201 1.1 skrll char *kv;
202 1.1 skrll size_t kl;
203 1.1 skrll
204 1.1 skrll KASSERT(l->l_proc->p_flag & PK_32);
205 1.1 skrll if (uio->uio_offset < 0 || uio->uio_offset > (off_t)sizeof(r32))
206 1.1 skrll return EINVAL;
207 1.1 skrll kl = sizeof(r32);
208 1.1 skrll kv = (char *)&r32;
209 1.1 skrll
210 1.1 skrll kv += uio->uio_offset;
211 1.1 skrll kl -= uio->uio_offset;
212 1.1 skrll if (kl > uio->uio_resid)
213 1.1 skrll kl = uio->uio_resid;
214 1.1 skrll
215 1.1 skrll error = process_read_fpregs32(l, &r32, &kl);
216 1.1 skrll if (error == 0)
217 1.1 skrll error = uiomove(kv, kl, uio);
218 1.1 skrll if (error == 0 && uio->uio_rw == UIO_WRITE) {
219 1.1 skrll if (l->l_stat != LSSTOP)
220 1.1 skrll error = EBUSY;
221 1.1 skrll else
222 1.1 skrll error = process_write_fpregs32(l, &r32, kl);
223 1.1 skrll }
224 1.1 skrll uio->uio_offset = 0;
225 1.1 skrll return error;
226 1.1 skrll #else
227 1.1 skrll return EINVAL;
228 1.1 skrll #endif
229 1.1 skrll }
230 1.1 skrll
231 1.3 kamil static int
232 1.4 kamil netbsd32_dodbregs(struct lwp *curl /*tracer*/,
233 1.4 kamil struct lwp *l /*traced*/,
234 1.4 kamil struct uio *uio)
235 1.3 kamil {
236 1.4 kamil #if defined(PT_GETDBREGS) || defined(PT_SETDBREGS)
237 1.4 kamil process_dbreg32 r32;
238 1.4 kamil int error;
239 1.4 kamil char *kv;
240 1.4 kamil size_t kl;
241 1.3 kamil
242 1.4 kamil KASSERT(l->l_proc->p_flag & PK_32);
243 1.4 kamil if (uio->uio_offset < 0 || uio->uio_offset > (off_t)sizeof(r32))
244 1.4 kamil return EINVAL;
245 1.4 kamil kl = sizeof(r32);
246 1.4 kamil kv = (char *)&r32;
247 1.4 kamil
248 1.4 kamil kv += uio->uio_offset;
249 1.4 kamil kl -= uio->uio_offset;
250 1.4 kamil if (kl > uio->uio_resid)
251 1.4 kamil kl = uio->uio_resid;
252 1.3 kamil
253 1.4 kamil error = process_read_dbregs32(l, &r32, &kl);
254 1.4 kamil if (error == 0)
255 1.4 kamil error = uiomove(kv, kl, uio);
256 1.4 kamil if (error == 0 && uio->uio_rw == UIO_WRITE) {
257 1.4 kamil if (l->l_stat != LSSTOP)
258 1.4 kamil error = EBUSY;
259 1.4 kamil else
260 1.4 kamil error = process_write_dbregs32(l, &r32, kl);
261 1.4 kamil }
262 1.4 kamil uio->uio_offset = 0;
263 1.4 kamil return error;
264 1.4 kamil #else
265 1.3 kamil return EINVAL;
266 1.4 kamil #endif
267 1.3 kamil }
268 1.3 kamil
269 1.1 skrll static struct ptrace_methods netbsd32_ptm = {
270 1.5 christos .ptm_copyin_piod = netbsd32_copyin_piod,
271 1.5 christos .ptm_copyout_piod = netbsd32_copyout_piod,
272 1.5 christos .ptm_copyin_siginfo = netbsd32_copyin_siginfo,
273 1.5 christos .ptm_copyout_siginfo = netbsd32_copyout_siginfo,
274 1.8 kamil .ptm_copyout_lwpstatus = netbsd32_copyout_lwpstatus,
275 1.1 skrll .ptm_doregs = netbsd32_doregs,
276 1.3 kamil .ptm_dofpregs = netbsd32_dofpregs,
277 1.4 kamil .ptm_dodbregs = netbsd32_dodbregs
278 1.1 skrll };
279 1.1 skrll
280 1.1 skrll
281 1.1 skrll int
282 1.1 skrll netbsd32_ptrace(struct lwp *l, const struct netbsd32_ptrace_args *uap,
283 1.1 skrll register_t *retval)
284 1.1 skrll {
285 1.7 mgorny int req;
286 1.7 mgorny
287 1.1 skrll /* {
288 1.1 skrll syscallarg(int) req;
289 1.1 skrll syscallarg(pid_t) pid;
290 1.1 skrll syscallarg(netbsd32_voidp *) addr;
291 1.1 skrll syscallarg(int) data;
292 1.1 skrll } */
293 1.1 skrll
294 1.7 mgorny req = PTRACE_TRANSLATE_REQUEST32(SCARG(uap, req));
295 1.7 mgorny if (req == -1)
296 1.7 mgorny return EOPNOTSUPP;
297 1.7 mgorny
298 1.7 mgorny return do_ptrace(&netbsd32_ptm, l, req, SCARG(uap, pid),
299 1.1 skrll SCARG_P32(uap, addr), SCARG(uap, data), retval);
300 1.1 skrll }
301 1.1 skrll
302 1.1 skrll static const struct syscall_package compat_ptrace_syscalls[] = {
303 1.1 skrll { NETBSD32_SYS_netbsd32_ptrace, 0, (sy_call_t *)netbsd32_ptrace },
304 1.1 skrll { 0, 0, NULL },
305 1.1 skrll };
306 1.1 skrll
307 1.2 pgoyette #define DEPS "compat_netbsd32,ptrace_common"
308 1.2 pgoyette
309 1.2 pgoyette MODULE(MODULE_CLASS_EXEC, compat_netbsd32_ptrace, DEPS);
310 1.1 skrll
311 1.1 skrll static int
312 1.1 skrll compat_netbsd32_ptrace_modcmd(modcmd_t cmd, void *arg)
313 1.1 skrll {
314 1.1 skrll int error;
315 1.1 skrll
316 1.1 skrll switch (cmd) {
317 1.1 skrll case MODULE_CMD_INIT:
318 1.1 skrll error = syscall_establish(&emul_netbsd32,
319 1.1 skrll compat_ptrace_syscalls);
320 1.1 skrll break;
321 1.1 skrll case MODULE_CMD_FINI:
322 1.1 skrll error = syscall_disestablish(&emul_netbsd32,
323 1.1 skrll compat_ptrace_syscalls);
324 1.1 skrll break;
325 1.1 skrll default:
326 1.1 skrll error = ENOTTY;
327 1.1 skrll break;
328 1.1 skrll }
329 1.1 skrll return error;
330 1.1 skrll }
331