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