sys_ptrace_common.c revision 1.5.2.4
1 1.5.2.4 skrll /* $NetBSD: sys_ptrace_common.c,v 1.5.2.4 2017/08/28 17:53:07 skrll Exp $ */ 2 1.5.2.2 skrll 3 1.5.2.2 skrll /*- 4 1.5.2.2 skrll * Copyright (c) 2008, 2009 The NetBSD Foundation, Inc. 5 1.5.2.2 skrll * All rights reserved. 6 1.5.2.2 skrll * 7 1.5.2.2 skrll * This code is derived from software contributed to The NetBSD Foundation 8 1.5.2.2 skrll * by Andrew Doran. 9 1.5.2.2 skrll * 10 1.5.2.2 skrll * Redistribution and use in source and binary forms, with or without 11 1.5.2.2 skrll * modification, are permitted provided that the following conditions 12 1.5.2.2 skrll * are met: 13 1.5.2.2 skrll * 1. Redistributions of source code must retain the above copyright 14 1.5.2.2 skrll * notice, this list of conditions and the following disclaimer. 15 1.5.2.2 skrll * 2. Redistributions in binary form must reproduce the above copyright 16 1.5.2.2 skrll * notice, this list of conditions and the following disclaimer in the 17 1.5.2.2 skrll * documentation and/or other materials provided with the distribution. 18 1.5.2.2 skrll * 19 1.5.2.2 skrll * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 20 1.5.2.2 skrll * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 21 1.5.2.2 skrll * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 22 1.5.2.2 skrll * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 23 1.5.2.2 skrll * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 24 1.5.2.2 skrll * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 25 1.5.2.2 skrll * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 26 1.5.2.2 skrll * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 27 1.5.2.2 skrll * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 28 1.5.2.2 skrll * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 29 1.5.2.2 skrll * POSSIBILITY OF SUCH DAMAGE. 30 1.5.2.2 skrll */ 31 1.5.2.2 skrll 32 1.5.2.2 skrll /*- 33 1.5.2.2 skrll * Copyright (c) 1982, 1986, 1989, 1993 34 1.5.2.2 skrll * The Regents of the University of California. All rights reserved. 35 1.5.2.2 skrll * (c) UNIX System Laboratories, Inc. 36 1.5.2.2 skrll * All or some portions of this file are derived from material licensed 37 1.5.2.2 skrll * to the University of California by American Telephone and Telegraph 38 1.5.2.2 skrll * Co. or Unix System Laboratories, Inc. and are reproduced herein with 39 1.5.2.2 skrll * the permission of UNIX System Laboratories, Inc. 40 1.5.2.2 skrll * 41 1.5.2.2 skrll * This code is derived from software contributed to Berkeley by 42 1.5.2.2 skrll * Jan-Simon Pendry. 43 1.5.2.2 skrll * 44 1.5.2.2 skrll * Redistribution and use in source and binary forms, with or without 45 1.5.2.2 skrll * modification, are permitted provided that the following conditions 46 1.5.2.2 skrll * are met: 47 1.5.2.2 skrll * 1. Redistributions of source code must retain the above copyright 48 1.5.2.2 skrll * notice, this list of conditions and the following disclaimer. 49 1.5.2.2 skrll * 2. Redistributions in binary form must reproduce the above copyright 50 1.5.2.2 skrll * notice, this list of conditions and the following disclaimer in the 51 1.5.2.2 skrll * documentation and/or other materials provided with the distribution. 52 1.5.2.2 skrll * 3. Neither the name of the University nor the names of its contributors 53 1.5.2.2 skrll * may be used to endorse or promote products derived from this software 54 1.5.2.2 skrll * without specific prior written permission. 55 1.5.2.2 skrll * 56 1.5.2.2 skrll * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 57 1.5.2.2 skrll * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 58 1.5.2.2 skrll * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 59 1.5.2.2 skrll * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 60 1.5.2.2 skrll * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 61 1.5.2.2 skrll * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 62 1.5.2.2 skrll * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 63 1.5.2.2 skrll * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 64 1.5.2.2 skrll * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 65 1.5.2.2 skrll * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 66 1.5.2.2 skrll * SUCH DAMAGE. 67 1.5.2.2 skrll * 68 1.5.2.2 skrll * from: @(#)sys_process.c 8.1 (Berkeley) 6/10/93 69 1.5.2.2 skrll */ 70 1.5.2.2 skrll 71 1.5.2.2 skrll /*- 72 1.5.2.2 skrll * Copyright (c) 1993 Jan-Simon Pendry. 73 1.5.2.2 skrll * Copyright (c) 1994 Christopher G. Demetriou. All rights reserved. 74 1.5.2.2 skrll * 75 1.5.2.2 skrll * This code is derived from software contributed to Berkeley by 76 1.5.2.2 skrll * Jan-Simon Pendry. 77 1.5.2.2 skrll * 78 1.5.2.2 skrll * Redistribution and use in source and binary forms, with or without 79 1.5.2.2 skrll * modification, are permitted provided that the following conditions 80 1.5.2.2 skrll * are met: 81 1.5.2.2 skrll * 1. Redistributions of source code must retain the above copyright 82 1.5.2.2 skrll * notice, this list of conditions and the following disclaimer. 83 1.5.2.2 skrll * 2. Redistributions in binary form must reproduce the above copyright 84 1.5.2.2 skrll * notice, this list of conditions and the following disclaimer in the 85 1.5.2.2 skrll * documentation and/or other materials provided with the distribution. 86 1.5.2.2 skrll * 3. All advertising materials mentioning features or use of this software 87 1.5.2.2 skrll * must display the following acknowledgement: 88 1.5.2.2 skrll * This product includes software developed by the University of 89 1.5.2.2 skrll * California, Berkeley and its contributors. 90 1.5.2.2 skrll * 4. Neither the name of the University nor the names of its contributors 91 1.5.2.2 skrll * may be used to endorse or promote products derived from this software 92 1.5.2.2 skrll * without specific prior written permission. 93 1.5.2.2 skrll * 94 1.5.2.2 skrll * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 95 1.5.2.2 skrll * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 96 1.5.2.2 skrll * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 97 1.5.2.2 skrll * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 98 1.5.2.2 skrll * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 99 1.5.2.2 skrll * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 100 1.5.2.2 skrll * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 101 1.5.2.2 skrll * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 102 1.5.2.2 skrll * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 103 1.5.2.2 skrll * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 104 1.5.2.2 skrll * SUCH DAMAGE. 105 1.5.2.2 skrll * 106 1.5.2.2 skrll * from: @(#)sys_process.c 8.1 (Berkeley) 6/10/93 107 1.5.2.2 skrll */ 108 1.5.2.2 skrll 109 1.5.2.2 skrll /* 110 1.5.2.2 skrll * References: 111 1.5.2.2 skrll * (1) Bach's "The Design of the UNIX Operating System", 112 1.5.2.2 skrll * (2) sys/miscfs/procfs from UCB's 4.4BSD-Lite distribution, 113 1.5.2.2 skrll * (3) the "4.4BSD Programmer's Reference Manual" published 114 1.5.2.2 skrll * by USENIX and O'Reilly & Associates. 115 1.5.2.2 skrll * The 4.4BSD PRM does a reasonably good job of documenting what the various 116 1.5.2.2 skrll * ptrace() requests should actually do, and its text is quoted several times 117 1.5.2.2 skrll * in this file. 118 1.5.2.2 skrll */ 119 1.5.2.2 skrll 120 1.5.2.2 skrll #include <sys/cdefs.h> 121 1.5.2.4 skrll __KERNEL_RCSID(0, "$NetBSD: sys_ptrace_common.c,v 1.5.2.4 2017/08/28 17:53:07 skrll Exp $"); 122 1.5.2.2 skrll 123 1.5.2.2 skrll #ifdef _KERNEL_OPT 124 1.5.2.2 skrll #include "opt_ptrace.h" 125 1.5.2.2 skrll #include "opt_ktrace.h" 126 1.5.2.2 skrll #include "opt_pax.h" 127 1.5.2.2 skrll #endif 128 1.5.2.2 skrll 129 1.5.2.2 skrll #include <sys/param.h> 130 1.5.2.2 skrll #include <sys/systm.h> 131 1.5.2.2 skrll #include <sys/proc.h> 132 1.5.2.2 skrll #include <sys/errno.h> 133 1.5.2.2 skrll #include <sys/exec.h> 134 1.5.2.2 skrll #include <sys/pax.h> 135 1.5.2.2 skrll #include <sys/ptrace.h> 136 1.5.2.2 skrll #include <sys/uio.h> 137 1.5.2.2 skrll #include <sys/ras.h> 138 1.5.2.2 skrll #include <sys/kmem.h> 139 1.5.2.2 skrll #include <sys/kauth.h> 140 1.5.2.2 skrll #include <sys/mount.h> 141 1.5.2.2 skrll #include <sys/syscallargs.h> 142 1.5.2.2 skrll #include <sys/module.h> 143 1.5.2.2 skrll #include <sys/condvar.h> 144 1.5.2.2 skrll #include <sys/mutex.h> 145 1.5.2.2 skrll 146 1.5.2.2 skrll #include <uvm/uvm_extern.h> 147 1.5.2.2 skrll 148 1.5.2.2 skrll #include <machine/reg.h> 149 1.5.2.2 skrll 150 1.5.2.2 skrll #ifdef PTRACE 151 1.5.2.2 skrll 152 1.5.2.2 skrll # ifdef DEBUG 153 1.5.2.2 skrll # define DPRINTF(a) uprintf a 154 1.5.2.2 skrll # else 155 1.5.2.2 skrll # define DPRINTF(a) 156 1.5.2.2 skrll # endif 157 1.5.2.2 skrll 158 1.5.2.2 skrll static kauth_listener_t ptrace_listener; 159 1.5.2.2 skrll static int process_auxv_offset(struct proc *, struct uio *); 160 1.5.2.2 skrll 161 1.5.2.2 skrll #if 0 162 1.5.2.2 skrll static int ptrace_cbref; 163 1.5.2.2 skrll static kmutex_t ptrace_mtx; 164 1.5.2.2 skrll static kcondvar_t ptrace_cv; 165 1.5.2.2 skrll #endif 166 1.5.2.2 skrll 167 1.5.2.2 skrll static int 168 1.5.2.2 skrll ptrace_listener_cb(kauth_cred_t cred, kauth_action_t action, void *cookie, 169 1.5.2.2 skrll void *arg0, void *arg1, void *arg2, void *arg3) 170 1.5.2.2 skrll { 171 1.5.2.2 skrll struct proc *p; 172 1.5.2.2 skrll int result; 173 1.5.2.2 skrll 174 1.5.2.2 skrll result = KAUTH_RESULT_DEFER; 175 1.5.2.2 skrll p = arg0; 176 1.5.2.2 skrll 177 1.5.2.2 skrll #if 0 178 1.5.2.2 skrll mutex_enter(&ptrace_mtx); 179 1.5.2.2 skrll ptrace_cbref++; 180 1.5.2.2 skrll mutex_exit(&ptrace_mtx); 181 1.5.2.2 skrll #endif 182 1.5.2.2 skrll if (action != KAUTH_PROCESS_PTRACE) 183 1.5.2.2 skrll goto out; 184 1.5.2.2 skrll 185 1.5.2.2 skrll switch ((u_long)arg1) { 186 1.5.2.2 skrll case PT_TRACE_ME: 187 1.5.2.2 skrll case PT_ATTACH: 188 1.5.2.2 skrll case PT_WRITE_I: 189 1.5.2.2 skrll case PT_WRITE_D: 190 1.5.2.2 skrll case PT_READ_I: 191 1.5.2.2 skrll case PT_READ_D: 192 1.5.2.2 skrll case PT_IO: 193 1.5.2.2 skrll #ifdef PT_GETREGS 194 1.5.2.2 skrll case PT_GETREGS: 195 1.5.2.2 skrll #endif 196 1.5.2.2 skrll #ifdef PT_SETREGS 197 1.5.2.2 skrll case PT_SETREGS: 198 1.5.2.2 skrll #endif 199 1.5.2.2 skrll #ifdef PT_GETFPREGS 200 1.5.2.2 skrll case PT_GETFPREGS: 201 1.5.2.2 skrll #endif 202 1.5.2.2 skrll #ifdef PT_SETFPREGS 203 1.5.2.2 skrll case PT_SETFPREGS: 204 1.5.2.2 skrll #endif 205 1.5.2.4 skrll #ifdef PT_GETDBREGS 206 1.5.2.4 skrll case PT_GETDBREGS: 207 1.5.2.4 skrll #endif 208 1.5.2.4 skrll #ifdef PT_SETDBREGS 209 1.5.2.4 skrll case PT_SETDBREGS: 210 1.5.2.3 skrll #endif 211 1.5.2.2 skrll case PT_SET_EVENT_MASK: 212 1.5.2.2 skrll case PT_GET_EVENT_MASK: 213 1.5.2.2 skrll case PT_GET_PROCESS_STATE: 214 1.5.2.3 skrll case PT_SET_SIGINFO: 215 1.5.2.3 skrll case PT_GET_SIGINFO: 216 1.5.2.4 skrll case PT_SET_SIGMASK: 217 1.5.2.4 skrll case PT_GET_SIGMASK: 218 1.5.2.2 skrll #ifdef __HAVE_PTRACE_MACHDEP 219 1.5.2.2 skrll PTRACE_MACHDEP_REQUEST_CASES 220 1.5.2.2 skrll #endif 221 1.5.2.2 skrll if (kauth_cred_getuid(cred) != kauth_cred_getuid(p->p_cred) || 222 1.5.2.2 skrll ISSET(p->p_flag, PK_SUGID)) { 223 1.5.2.2 skrll break; 224 1.5.2.2 skrll } 225 1.5.2.2 skrll 226 1.5.2.2 skrll result = KAUTH_RESULT_ALLOW; 227 1.5.2.2 skrll 228 1.5.2.2 skrll break; 229 1.5.2.2 skrll 230 1.5.2.2 skrll #ifdef PT_STEP 231 1.5.2.2 skrll case PT_STEP: 232 1.5.2.4 skrll case PT_SETSTEP: 233 1.5.2.4 skrll case PT_CLEARSTEP: 234 1.5.2.2 skrll #endif 235 1.5.2.2 skrll case PT_CONTINUE: 236 1.5.2.2 skrll case PT_KILL: 237 1.5.2.2 skrll case PT_DETACH: 238 1.5.2.2 skrll case PT_LWPINFO: 239 1.5.2.2 skrll case PT_SYSCALL: 240 1.5.2.2 skrll case PT_SYSCALLEMU: 241 1.5.2.2 skrll case PT_DUMPCORE: 242 1.5.2.4 skrll case PT_RESUME: 243 1.5.2.4 skrll case PT_SUSPEND: 244 1.5.2.2 skrll result = KAUTH_RESULT_ALLOW; 245 1.5.2.2 skrll break; 246 1.5.2.2 skrll 247 1.5.2.2 skrll default: 248 1.5.2.2 skrll break; 249 1.5.2.2 skrll } 250 1.5.2.2 skrll 251 1.5.2.2 skrll out: 252 1.5.2.2 skrll #if 0 253 1.5.2.2 skrll mutex_enter(&ptrace_mtx); 254 1.5.2.2 skrll if (--ptrace_cbref == 0) 255 1.5.2.2 skrll cv_broadcast(&ptrace_cv); 256 1.5.2.2 skrll mutex_exit(&ptrace_mtx); 257 1.5.2.2 skrll #endif 258 1.5.2.2 skrll 259 1.5.2.2 skrll return result; 260 1.5.2.2 skrll } 261 1.5.2.2 skrll 262 1.5.2.2 skrll int 263 1.5.2.2 skrll ptrace_init(void) 264 1.5.2.2 skrll { 265 1.5.2.2 skrll 266 1.5.2.2 skrll #if 0 267 1.5.2.2 skrll mutex_init(&ptrace_mtx, MUTEX_DEFAULT, IPL_NONE); 268 1.5.2.2 skrll cv_init(&ptrace_cv, "ptracecb"); 269 1.5.2.2 skrll ptrace_cbref = 0; 270 1.5.2.2 skrll #endif 271 1.5.2.2 skrll ptrace_listener = kauth_listen_scope(KAUTH_SCOPE_PROCESS, 272 1.5.2.2 skrll ptrace_listener_cb, NULL); 273 1.5.2.2 skrll return 0; 274 1.5.2.2 skrll } 275 1.5.2.2 skrll 276 1.5.2.2 skrll int 277 1.5.2.2 skrll ptrace_fini(void) 278 1.5.2.2 skrll { 279 1.5.2.2 skrll 280 1.5.2.2 skrll kauth_unlisten_scope(ptrace_listener); 281 1.5.2.2 skrll 282 1.5.2.2 skrll #if 0 283 1.5.2.2 skrll /* Make sure no-one is executing our kauth listener */ 284 1.5.2.2 skrll 285 1.5.2.2 skrll mutex_enter(&ptrace_mtx); 286 1.5.2.2 skrll while (ptrace_cbref != 0) 287 1.5.2.2 skrll cv_wait(&ptrace_cv, &ptrace_mtx); 288 1.5.2.2 skrll mutex_exit(&ptrace_mtx); 289 1.5.2.2 skrll mutex_destroy(&ptrace_mtx); 290 1.5.2.2 skrll cv_destroy(&ptrace_cv); 291 1.5.2.2 skrll #endif 292 1.5.2.2 skrll 293 1.5.2.2 skrll return 0; 294 1.5.2.2 skrll } 295 1.5.2.2 skrll 296 1.5.2.2 skrll int 297 1.5.2.2 skrll do_ptrace(struct ptrace_methods *ptm, struct lwp *l, int req, pid_t pid, 298 1.5.2.2 skrll void *addr, int data, register_t *retval) 299 1.5.2.2 skrll { 300 1.5.2.2 skrll struct proc *p = l->l_proc; 301 1.5.2.2 skrll struct lwp *lt; 302 1.5.2.2 skrll struct lwp *lt2; 303 1.5.2.2 skrll struct proc *t; /* target process */ 304 1.5.2.2 skrll struct uio uio; 305 1.5.2.2 skrll struct iovec iov; 306 1.5.2.2 skrll struct ptrace_io_desc piod; 307 1.5.2.2 skrll struct ptrace_event pe; 308 1.5.2.2 skrll struct ptrace_state ps; 309 1.5.2.2 skrll struct ptrace_lwpinfo pl; 310 1.5.2.3 skrll struct ptrace_siginfo psi; 311 1.5.2.2 skrll struct vmspace *vm; 312 1.5.2.2 skrll int error, write, tmp, pheld; 313 1.5.2.2 skrll int signo = 0; 314 1.5.2.2 skrll int resume_all; 315 1.5.2.2 skrll ksiginfo_t ksi; 316 1.5.2.2 skrll char *path; 317 1.5.2.2 skrll int len = 0; 318 1.5.2.2 skrll error = 0; 319 1.5.2.2 skrll 320 1.5.2.2 skrll /* 321 1.5.2.2 skrll * If attaching or detaching, we need to get a write hold on the 322 1.5.2.2 skrll * proclist lock so that we can re-parent the target process. 323 1.5.2.2 skrll */ 324 1.5.2.2 skrll mutex_enter(proc_lock); 325 1.5.2.2 skrll 326 1.5.2.2 skrll /* "A foolish consistency..." XXX */ 327 1.5.2.2 skrll if (req == PT_TRACE_ME) { 328 1.5.2.2 skrll t = p; 329 1.5.2.2 skrll mutex_enter(t->p_lock); 330 1.5.2.2 skrll } else { 331 1.5.2.2 skrll /* Find the process we're supposed to be operating on. */ 332 1.5.2.2 skrll t = proc_find(pid); 333 1.5.2.2 skrll if (t == NULL) { 334 1.5.2.2 skrll mutex_exit(proc_lock); 335 1.5.2.2 skrll return ESRCH; 336 1.5.2.2 skrll } 337 1.5.2.2 skrll 338 1.5.2.2 skrll /* XXX-elad */ 339 1.5.2.2 skrll mutex_enter(t->p_lock); 340 1.5.2.2 skrll error = kauth_authorize_process(l->l_cred, KAUTH_PROCESS_CANSEE, 341 1.5.2.2 skrll t, KAUTH_ARG(KAUTH_REQ_PROCESS_CANSEE_ENTRY), NULL, NULL); 342 1.5.2.2 skrll if (error) { 343 1.5.2.2 skrll mutex_exit(proc_lock); 344 1.5.2.2 skrll mutex_exit(t->p_lock); 345 1.5.2.2 skrll return ESRCH; 346 1.5.2.2 skrll } 347 1.5.2.2 skrll } 348 1.5.2.2 skrll 349 1.5.2.2 skrll /* 350 1.5.2.2 skrll * Grab a reference on the process to prevent it from execing or 351 1.5.2.2 skrll * exiting. 352 1.5.2.2 skrll */ 353 1.5.2.2 skrll if (!rw_tryenter(&t->p_reflock, RW_READER)) { 354 1.5.2.2 skrll mutex_exit(proc_lock); 355 1.5.2.2 skrll mutex_exit(t->p_lock); 356 1.5.2.2 skrll return EBUSY; 357 1.5.2.2 skrll } 358 1.5.2.2 skrll 359 1.5.2.2 skrll /* Make sure we can operate on it. */ 360 1.5.2.2 skrll switch (req) { 361 1.5.2.2 skrll case PT_TRACE_ME: 362 1.5.2.2 skrll /* Saying that you're being traced is always legal. */ 363 1.5.2.2 skrll break; 364 1.5.2.2 skrll 365 1.5.2.2 skrll case PT_ATTACH: 366 1.5.2.2 skrll /* 367 1.5.2.2 skrll * You can't attach to a process if: 368 1.5.2.2 skrll * (1) it's the process that's doing the attaching, 369 1.5.2.2 skrll */ 370 1.5.2.2 skrll if (t->p_pid == p->p_pid) { 371 1.5.2.2 skrll error = EINVAL; 372 1.5.2.2 skrll break; 373 1.5.2.2 skrll } 374 1.5.2.2 skrll 375 1.5.2.2 skrll /* 376 1.5.2.2 skrll * (2) it's a system process 377 1.5.2.2 skrll */ 378 1.5.2.2 skrll if (t->p_flag & PK_SYSTEM) { 379 1.5.2.2 skrll error = EPERM; 380 1.5.2.2 skrll break; 381 1.5.2.2 skrll } 382 1.5.2.2 skrll 383 1.5.2.2 skrll /* 384 1.5.2.2 skrll * (3) it's already being traced, or 385 1.5.2.2 skrll */ 386 1.5.2.2 skrll if (ISSET(t->p_slflag, PSL_TRACED)) { 387 1.5.2.2 skrll error = EBUSY; 388 1.5.2.2 skrll break; 389 1.5.2.2 skrll } 390 1.5.2.2 skrll 391 1.5.2.2 skrll /* 392 1.5.2.2 skrll * (4) the tracer is chrooted, and its root directory is 393 1.5.2.2 skrll * not at or above the root directory of the tracee 394 1.5.2.2 skrll */ 395 1.5.2.2 skrll mutex_exit(t->p_lock); /* XXXSMP */ 396 1.5.2.2 skrll tmp = proc_isunder(t, l); 397 1.5.2.2 skrll mutex_enter(t->p_lock); /* XXXSMP */ 398 1.5.2.2 skrll if (!tmp) { 399 1.5.2.2 skrll error = EPERM; 400 1.5.2.2 skrll break; 401 1.5.2.2 skrll } 402 1.5.2.2 skrll break; 403 1.5.2.2 skrll 404 1.5.2.2 skrll case PT_READ_I: 405 1.5.2.2 skrll case PT_READ_D: 406 1.5.2.2 skrll case PT_WRITE_I: 407 1.5.2.2 skrll case PT_WRITE_D: 408 1.5.2.2 skrll case PT_IO: 409 1.5.2.4 skrll case PT_SET_SIGINFO: 410 1.5.2.4 skrll case PT_GET_SIGINFO: 411 1.5.2.4 skrll case PT_SET_SIGMASK: 412 1.5.2.4 skrll case PT_GET_SIGMASK: 413 1.5.2.2 skrll #ifdef PT_GETREGS 414 1.5.2.2 skrll case PT_GETREGS: 415 1.5.2.2 skrll #endif 416 1.5.2.2 skrll #ifdef PT_SETREGS 417 1.5.2.2 skrll case PT_SETREGS: 418 1.5.2.2 skrll #endif 419 1.5.2.2 skrll #ifdef PT_GETFPREGS 420 1.5.2.2 skrll case PT_GETFPREGS: 421 1.5.2.2 skrll #endif 422 1.5.2.2 skrll #ifdef PT_SETFPREGS 423 1.5.2.2 skrll case PT_SETFPREGS: 424 1.5.2.2 skrll #endif 425 1.5.2.4 skrll #ifdef PT_GETDBREGS 426 1.5.2.4 skrll case PT_GETDBREGS: 427 1.5.2.4 skrll #endif 428 1.5.2.4 skrll #ifdef PT_SETDBREGS 429 1.5.2.4 skrll case PT_SETDBREGS: 430 1.5.2.3 skrll #endif 431 1.5.2.2 skrll #ifdef __HAVE_PTRACE_MACHDEP 432 1.5.2.2 skrll PTRACE_MACHDEP_REQUEST_CASES 433 1.5.2.2 skrll #endif 434 1.5.2.2 skrll /* 435 1.5.2.2 skrll * You can't read/write the memory or registers of a process 436 1.5.2.2 skrll * if the tracer is chrooted, and its root directory is not at 437 1.5.2.2 skrll * or above the root directory of the tracee. 438 1.5.2.2 skrll */ 439 1.5.2.2 skrll mutex_exit(t->p_lock); /* XXXSMP */ 440 1.5.2.2 skrll tmp = proc_isunder(t, l); 441 1.5.2.2 skrll mutex_enter(t->p_lock); /* XXXSMP */ 442 1.5.2.2 skrll if (!tmp) { 443 1.5.2.2 skrll error = EPERM; 444 1.5.2.2 skrll break; 445 1.5.2.2 skrll } 446 1.5.2.2 skrll /*FALLTHROUGH*/ 447 1.5.2.2 skrll 448 1.5.2.2 skrll case PT_CONTINUE: 449 1.5.2.2 skrll case PT_KILL: 450 1.5.2.2 skrll case PT_DETACH: 451 1.5.2.2 skrll case PT_LWPINFO: 452 1.5.2.2 skrll case PT_SYSCALL: 453 1.5.2.2 skrll case PT_SYSCALLEMU: 454 1.5.2.2 skrll case PT_DUMPCORE: 455 1.5.2.2 skrll #ifdef PT_STEP 456 1.5.2.2 skrll case PT_STEP: 457 1.5.2.4 skrll case PT_SETSTEP: 458 1.5.2.4 skrll case PT_CLEARSTEP: 459 1.5.2.2 skrll #endif 460 1.5.2.2 skrll case PT_SET_EVENT_MASK: 461 1.5.2.2 skrll case PT_GET_EVENT_MASK: 462 1.5.2.2 skrll case PT_GET_PROCESS_STATE: 463 1.5.2.4 skrll case PT_RESUME: 464 1.5.2.4 skrll case PT_SUSPEND: 465 1.5.2.2 skrll /* 466 1.5.2.2 skrll * You can't do what you want to the process if: 467 1.5.2.2 skrll * (1) It's not being traced at all, 468 1.5.2.2 skrll */ 469 1.5.2.2 skrll if (!ISSET(t->p_slflag, PSL_TRACED)) { 470 1.5.2.2 skrll error = EPERM; 471 1.5.2.2 skrll break; 472 1.5.2.2 skrll } 473 1.5.2.2 skrll 474 1.5.2.2 skrll /* 475 1.5.2.2 skrll * (2) it's being traced by procfs (which has 476 1.5.2.2 skrll * different signal delivery semantics), 477 1.5.2.2 skrll */ 478 1.5.2.2 skrll if (ISSET(t->p_slflag, PSL_FSTRACE)) { 479 1.5.2.2 skrll DPRINTF(("file system traced\n")); 480 1.5.2.2 skrll error = EBUSY; 481 1.5.2.2 skrll break; 482 1.5.2.2 skrll } 483 1.5.2.2 skrll 484 1.5.2.2 skrll /* 485 1.5.2.2 skrll * (3) it's not being traced by _you_, or 486 1.5.2.2 skrll */ 487 1.5.2.2 skrll if (t->p_pptr != p) { 488 1.5.2.2 skrll DPRINTF(("parent %d != %d\n", t->p_pptr->p_pid, 489 1.5.2.2 skrll p->p_pid)); 490 1.5.2.2 skrll error = EBUSY; 491 1.5.2.2 skrll break; 492 1.5.2.2 skrll } 493 1.5.2.2 skrll 494 1.5.2.2 skrll /* 495 1.5.2.2 skrll * (4) it's not currently stopped. 496 1.5.2.2 skrll */ 497 1.5.2.2 skrll if (t->p_stat != SSTOP || !t->p_waited /* XXXSMP */) { 498 1.5.2.2 skrll DPRINTF(("stat %d flag %d\n", t->p_stat, 499 1.5.2.2 skrll !t->p_waited)); 500 1.5.2.2 skrll error = EBUSY; 501 1.5.2.2 skrll break; 502 1.5.2.2 skrll } 503 1.5.2.2 skrll break; 504 1.5.2.2 skrll 505 1.5.2.2 skrll default: /* It was not a legal request. */ 506 1.5.2.2 skrll error = EINVAL; 507 1.5.2.2 skrll break; 508 1.5.2.2 skrll } 509 1.5.2.2 skrll 510 1.5.2.2 skrll if (error == 0) { 511 1.5.2.2 skrll error = kauth_authorize_process(l->l_cred, 512 1.5.2.2 skrll KAUTH_PROCESS_PTRACE, t, KAUTH_ARG(req), 513 1.5.2.2 skrll NULL, NULL); 514 1.5.2.2 skrll } 515 1.5.2.2 skrll if (error == 0) { 516 1.5.2.2 skrll lt = lwp_find_first(t); 517 1.5.2.2 skrll if (lt == NULL) 518 1.5.2.2 skrll error = ESRCH; 519 1.5.2.2 skrll } 520 1.5.2.2 skrll 521 1.5.2.2 skrll if (error != 0) { 522 1.5.2.2 skrll mutex_exit(proc_lock); 523 1.5.2.2 skrll mutex_exit(t->p_lock); 524 1.5.2.2 skrll rw_exit(&t->p_reflock); 525 1.5.2.2 skrll return error; 526 1.5.2.2 skrll } 527 1.5.2.2 skrll 528 1.5.2.2 skrll /* Do single-step fixup if needed. */ 529 1.5.2.2 skrll FIX_SSTEP(t); 530 1.5.2.2 skrll KASSERT(lt != NULL); 531 1.5.2.2 skrll lwp_addref(lt); 532 1.5.2.2 skrll 533 1.5.2.2 skrll /* 534 1.5.2.2 skrll * Which locks do we need held? XXX Ugly. 535 1.5.2.2 skrll */ 536 1.5.2.2 skrll switch (req) { 537 1.5.2.2 skrll #ifdef PT_STEP 538 1.5.2.2 skrll case PT_STEP: 539 1.5.2.2 skrll #endif 540 1.5.2.2 skrll case PT_CONTINUE: 541 1.5.2.2 skrll case PT_DETACH: 542 1.5.2.2 skrll case PT_KILL: 543 1.5.2.2 skrll case PT_SYSCALL: 544 1.5.2.2 skrll case PT_SYSCALLEMU: 545 1.5.2.2 skrll case PT_ATTACH: 546 1.5.2.2 skrll case PT_TRACE_ME: 547 1.5.2.2 skrll pheld = 1; 548 1.5.2.2 skrll break; 549 1.5.2.2 skrll default: 550 1.5.2.2 skrll mutex_exit(proc_lock); 551 1.5.2.2 skrll mutex_exit(t->p_lock); 552 1.5.2.2 skrll pheld = 0; 553 1.5.2.2 skrll break; 554 1.5.2.2 skrll } 555 1.5.2.2 skrll 556 1.5.2.2 skrll /* Now do the operation. */ 557 1.5.2.2 skrll write = 0; 558 1.5.2.2 skrll *retval = 0; 559 1.5.2.2 skrll tmp = 0; 560 1.5.2.2 skrll resume_all = 1; 561 1.5.2.2 skrll 562 1.5.2.2 skrll switch (req) { 563 1.5.2.2 skrll case PT_TRACE_ME: 564 1.5.2.2 skrll /* Just set the trace flag. */ 565 1.5.2.2 skrll SET(t->p_slflag, PSL_TRACED); 566 1.5.2.2 skrll t->p_opptr = t->p_pptr; 567 1.5.2.2 skrll break; 568 1.5.2.2 skrll 569 1.5.2.2 skrll case PT_WRITE_I: /* XXX no separate I and D spaces */ 570 1.5.2.2 skrll case PT_WRITE_D: 571 1.5.2.2 skrll #if defined(__HAVE_RAS) 572 1.5.2.2 skrll /* 573 1.5.2.2 skrll * Can't write to a RAS 574 1.5.2.2 skrll */ 575 1.5.2.2 skrll if (ras_lookup(t, addr) != (void *)-1) { 576 1.5.2.2 skrll error = EACCES; 577 1.5.2.2 skrll break; 578 1.5.2.2 skrll } 579 1.5.2.2 skrll #endif 580 1.5.2.2 skrll write = 1; 581 1.5.2.2 skrll tmp = data; 582 1.5.2.2 skrll /* FALLTHROUGH */ 583 1.5.2.2 skrll 584 1.5.2.2 skrll case PT_READ_I: /* XXX no separate I and D spaces */ 585 1.5.2.2 skrll case PT_READ_D: 586 1.5.2.2 skrll /* write = 0 done above. */ 587 1.5.2.2 skrll iov.iov_base = (void *)&tmp; 588 1.5.2.2 skrll iov.iov_len = sizeof(tmp); 589 1.5.2.2 skrll uio.uio_iov = &iov; 590 1.5.2.2 skrll uio.uio_iovcnt = 1; 591 1.5.2.2 skrll uio.uio_offset = (off_t)(unsigned long)addr; 592 1.5.2.2 skrll uio.uio_resid = sizeof(tmp); 593 1.5.2.2 skrll uio.uio_rw = write ? UIO_WRITE : UIO_READ; 594 1.5.2.2 skrll UIO_SETUP_SYSSPACE(&uio); 595 1.5.2.2 skrll 596 1.5.2.2 skrll error = process_domem(l, lt, &uio); 597 1.5.2.2 skrll if (!write) 598 1.5.2.2 skrll *retval = tmp; 599 1.5.2.2 skrll break; 600 1.5.2.2 skrll 601 1.5.2.2 skrll case PT_IO: 602 1.5.2.2 skrll error = ptm->ptm_copyinpiod(&piod, addr); 603 1.5.2.2 skrll if (error) 604 1.5.2.2 skrll break; 605 1.5.2.2 skrll 606 1.5.2.2 skrll iov.iov_base = piod.piod_addr; 607 1.5.2.2 skrll iov.iov_len = piod.piod_len; 608 1.5.2.2 skrll uio.uio_iov = &iov; 609 1.5.2.2 skrll uio.uio_iovcnt = 1; 610 1.5.2.2 skrll uio.uio_offset = (off_t)(unsigned long)piod.piod_offs; 611 1.5.2.2 skrll uio.uio_resid = piod.piod_len; 612 1.5.2.2 skrll 613 1.5.2.2 skrll switch (piod.piod_op) { 614 1.5.2.2 skrll case PIOD_READ_D: 615 1.5.2.2 skrll case PIOD_READ_I: 616 1.5.2.2 skrll uio.uio_rw = UIO_READ; 617 1.5.2.2 skrll break; 618 1.5.2.2 skrll case PIOD_WRITE_D: 619 1.5.2.2 skrll case PIOD_WRITE_I: 620 1.5.2.2 skrll /* 621 1.5.2.2 skrll * Can't write to a RAS 622 1.5.2.2 skrll */ 623 1.5.2.2 skrll if (ras_lookup(t, addr) != (void *)-1) { 624 1.5.2.2 skrll return EACCES; 625 1.5.2.2 skrll } 626 1.5.2.2 skrll uio.uio_rw = UIO_WRITE; 627 1.5.2.2 skrll break; 628 1.5.2.2 skrll case PIOD_READ_AUXV: 629 1.5.2.2 skrll req = PT_READ_D; 630 1.5.2.2 skrll uio.uio_rw = UIO_READ; 631 1.5.2.3 skrll tmp = t->p_execsw->es_arglen; 632 1.5.2.2 skrll if (uio.uio_offset > tmp) 633 1.5.2.2 skrll return EIO; 634 1.5.2.2 skrll if (uio.uio_resid > tmp - uio.uio_offset) 635 1.5.2.2 skrll uio.uio_resid = tmp - uio.uio_offset; 636 1.5.2.2 skrll piod.piod_len = iov.iov_len = uio.uio_resid; 637 1.5.2.2 skrll error = process_auxv_offset(t, &uio); 638 1.5.2.2 skrll break; 639 1.5.2.2 skrll default: 640 1.5.2.2 skrll error = EINVAL; 641 1.5.2.2 skrll break; 642 1.5.2.2 skrll } 643 1.5.2.2 skrll if (error) 644 1.5.2.2 skrll break; 645 1.5.2.2 skrll error = proc_vmspace_getref(l->l_proc, &vm); 646 1.5.2.2 skrll if (error) 647 1.5.2.2 skrll break; 648 1.5.2.2 skrll uio.uio_vmspace = vm; 649 1.5.2.2 skrll 650 1.5.2.2 skrll error = process_domem(l, lt, &uio); 651 1.5.2.2 skrll piod.piod_len -= uio.uio_resid; 652 1.5.2.2 skrll (void) ptm->ptm_copyoutpiod(&piod, addr); 653 1.5.2.2 skrll 654 1.5.2.2 skrll uvmspace_free(vm); 655 1.5.2.2 skrll break; 656 1.5.2.2 skrll 657 1.5.2.2 skrll case PT_DUMPCORE: 658 1.5.2.2 skrll if ((path = addr) != NULL) { 659 1.5.2.2 skrll char *dst; 660 1.5.2.2 skrll len = data; 661 1.5.2.2 skrll 662 1.5.2.2 skrll if (len < 0 || len >= MAXPATHLEN) { 663 1.5.2.2 skrll error = EINVAL; 664 1.5.2.2 skrll break; 665 1.5.2.2 skrll } 666 1.5.2.2 skrll dst = kmem_alloc(len + 1, KM_SLEEP); 667 1.5.2.2 skrll if ((error = copyin(path, dst, len)) != 0) { 668 1.5.2.2 skrll kmem_free(dst, len + 1); 669 1.5.2.2 skrll break; 670 1.5.2.2 skrll } 671 1.5.2.2 skrll path = dst; 672 1.5.2.2 skrll path[len] = '\0'; 673 1.5.2.2 skrll } 674 1.5.2.2 skrll error = (*coredump_vec)(lt, path); 675 1.5.2.2 skrll if (path) 676 1.5.2.2 skrll kmem_free(path, len + 1); 677 1.5.2.2 skrll break; 678 1.5.2.2 skrll 679 1.5.2.2 skrll #ifdef PT_STEP 680 1.5.2.2 skrll case PT_STEP: 681 1.5.2.2 skrll /* 682 1.5.2.2 skrll * From the 4.4BSD PRM: 683 1.5.2.2 skrll * "Execution continues as in request PT_CONTINUE; however 684 1.5.2.2 skrll * as soon as possible after execution of at least one 685 1.5.2.2 skrll * instruction, execution stops again. [ ... ]" 686 1.5.2.2 skrll */ 687 1.5.2.2 skrll #endif 688 1.5.2.2 skrll case PT_CONTINUE: 689 1.5.2.2 skrll case PT_SYSCALL: 690 1.5.2.2 skrll case PT_DETACH: 691 1.5.2.2 skrll if (req == PT_SYSCALL) { 692 1.5.2.2 skrll if (!ISSET(t->p_slflag, PSL_SYSCALL)) { 693 1.5.2.2 skrll SET(t->p_slflag, PSL_SYSCALL); 694 1.5.2.2 skrll #ifdef __HAVE_SYSCALL_INTERN 695 1.5.2.2 skrll (*t->p_emul->e_syscall_intern)(t); 696 1.5.2.2 skrll #endif 697 1.5.2.2 skrll } 698 1.5.2.2 skrll } else { 699 1.5.2.2 skrll if (ISSET(t->p_slflag, PSL_SYSCALL)) { 700 1.5.2.2 skrll CLR(t->p_slflag, PSL_SYSCALL); 701 1.5.2.2 skrll #ifdef __HAVE_SYSCALL_INTERN 702 1.5.2.2 skrll (*t->p_emul->e_syscall_intern)(t); 703 1.5.2.2 skrll #endif 704 1.5.2.2 skrll } 705 1.5.2.2 skrll } 706 1.5.2.2 skrll t->p_trace_enabled = trace_is_enabled(t); 707 1.5.2.2 skrll 708 1.5.2.2 skrll /* 709 1.5.2.2 skrll * Pick up the LWPID, if supplied. There are two cases: 710 1.5.2.2 skrll * data < 0 : step or continue single thread, lwp = -data 711 1.5.2.2 skrll * data > 0 in PT_STEP : step this thread, continue others 712 1.5.2.2 skrll * For operations other than PT_STEP, data > 0 means 713 1.5.2.2 skrll * data is the signo to deliver to the process. 714 1.5.2.2 skrll */ 715 1.5.2.2 skrll tmp = data; 716 1.5.2.2 skrll if (tmp >= 0) { 717 1.5.2.2 skrll #ifdef PT_STEP 718 1.5.2.2 skrll if (req == PT_STEP) 719 1.5.2.2 skrll signo = 0; 720 1.5.2.2 skrll else 721 1.5.2.2 skrll #endif 722 1.5.2.2 skrll { 723 1.5.2.2 skrll signo = tmp; 724 1.5.2.2 skrll tmp = 0; /* don't search for LWP */ 725 1.5.2.2 skrll } 726 1.5.2.2 skrll } else 727 1.5.2.2 skrll tmp = -tmp; 728 1.5.2.2 skrll 729 1.5.2.2 skrll if (tmp > 0) { 730 1.5.2.2 skrll if (req == PT_DETACH) { 731 1.5.2.2 skrll error = EINVAL; 732 1.5.2.2 skrll break; 733 1.5.2.2 skrll } 734 1.5.2.2 skrll lwp_delref2 (lt); 735 1.5.2.2 skrll lt = lwp_find(t, tmp); 736 1.5.2.2 skrll if (lt == NULL) { 737 1.5.2.2 skrll error = ESRCH; 738 1.5.2.2 skrll break; 739 1.5.2.2 skrll } 740 1.5.2.2 skrll lwp_addref(lt); 741 1.5.2.2 skrll resume_all = 0; 742 1.5.2.2 skrll signo = 0; 743 1.5.2.2 skrll } 744 1.5.2.2 skrll 745 1.5.2.2 skrll /* 746 1.5.2.2 skrll * From the 4.4BSD PRM: 747 1.5.2.2 skrll * "The data argument is taken as a signal number and the 748 1.5.2.2 skrll * child's execution continues at location addr as if it 749 1.5.2.2 skrll * incurred that signal. Normally the signal number will 750 1.5.2.2 skrll * be either 0 to indicate that the signal that caused the 751 1.5.2.2 skrll * stop should be ignored, or that value fetched out of 752 1.5.2.2 skrll * the process's image indicating which signal caused 753 1.5.2.2 skrll * the stop. If addr is (int *)1 then execution continues 754 1.5.2.2 skrll * from where it stopped." 755 1.5.2.2 skrll */ 756 1.5.2.2 skrll 757 1.5.2.2 skrll /* Check that the data is a valid signal number or zero. */ 758 1.5.2.2 skrll if (signo < 0 || signo >= NSIG) { 759 1.5.2.2 skrll error = EINVAL; 760 1.5.2.2 skrll break; 761 1.5.2.2 skrll } 762 1.5.2.2 skrll 763 1.5.2.4 skrll /* Prevent process deadlock */ 764 1.5.2.4 skrll if (resume_all) { 765 1.5.2.4 skrll #ifdef PT_STEP 766 1.5.2.4 skrll if (req == PT_STEP) { 767 1.5.2.4 skrll if (lt->l_flag & LW_WSUSPEND) { 768 1.5.2.4 skrll error = EDEADLK; 769 1.5.2.4 skrll break; 770 1.5.2.4 skrll } 771 1.5.2.4 skrll } else 772 1.5.2.4 skrll #endif 773 1.5.2.4 skrll { 774 1.5.2.4 skrll error = EDEADLK; 775 1.5.2.4 skrll LIST_FOREACH(lt2, &t->p_lwps, l_sibling) { 776 1.5.2.4 skrll if ((lt2->l_flag & LW_WSUSPEND) == 0) { 777 1.5.2.4 skrll error = 0; 778 1.5.2.4 skrll break; 779 1.5.2.4 skrll } 780 1.5.2.4 skrll } 781 1.5.2.4 skrll if (error != 0) 782 1.5.2.4 skrll break; 783 1.5.2.4 skrll } 784 1.5.2.4 skrll } else { 785 1.5.2.4 skrll if (lt->l_flag & LW_WSUSPEND) { 786 1.5.2.4 skrll error = EDEADLK; 787 1.5.2.4 skrll break; 788 1.5.2.4 skrll } 789 1.5.2.4 skrll } 790 1.5.2.4 skrll 791 1.5.2.2 skrll /* If the address parameter is not (int *)1, set the pc. */ 792 1.5.2.2 skrll if ((int *)addr != (int *)1) { 793 1.5.2.2 skrll error = process_set_pc(lt, addr); 794 1.5.2.2 skrll if (error != 0) 795 1.5.2.2 skrll break; 796 1.5.2.2 skrll } 797 1.5.2.2 skrll #ifdef PT_STEP 798 1.5.2.2 skrll /* 799 1.5.2.2 skrll * Arrange for a single-step, if that's requested and possible. 800 1.5.2.2 skrll * More precisely, set the single step status as requested for 801 1.5.2.2 skrll * the requested thread, and clear it for other threads. 802 1.5.2.2 skrll */ 803 1.5.2.2 skrll LIST_FOREACH(lt2, &t->p_lwps, l_sibling) { 804 1.5.2.4 skrll if (ISSET(lt2->l_pflag, LP_SINGLESTEP)) { 805 1.5.2.4 skrll lwp_lock(lt2); 806 1.5.2.4 skrll process_sstep(lt2, 1); 807 1.5.2.4 skrll lwp_unlock(lt2); 808 1.5.2.4 skrll } else if (lt != lt2) { 809 1.5.2.2 skrll lwp_lock(lt2); 810 1.5.2.2 skrll process_sstep(lt2, 0); 811 1.5.2.2 skrll lwp_unlock(lt2); 812 1.5.2.2 skrll } 813 1.5.2.2 skrll } 814 1.5.2.4 skrll error = process_sstep(lt, 815 1.5.2.4 skrll ISSET(lt->l_pflag, LP_SINGLESTEP) || req == PT_STEP); 816 1.5.2.2 skrll if (error) 817 1.5.2.2 skrll break; 818 1.5.2.2 skrll #endif 819 1.5.2.2 skrll if (req == PT_DETACH) { 820 1.5.2.2 skrll CLR(t->p_slflag, PSL_TRACED|PSL_FSTRACE|PSL_SYSCALL); 821 1.5.2.2 skrll 822 1.5.2.2 skrll /* give process back to original parent or init */ 823 1.5.2.2 skrll if (t->p_opptr != t->p_pptr) { 824 1.5.2.2 skrll struct proc *pp = t->p_opptr; 825 1.5.2.2 skrll proc_reparent(t, pp ? pp : initproc); 826 1.5.2.2 skrll } 827 1.5.2.2 skrll 828 1.5.2.2 skrll /* not being traced any more */ 829 1.5.2.2 skrll t->p_opptr = NULL; 830 1.5.2.4 skrll 831 1.5.2.4 skrll /* clear single step */ 832 1.5.2.4 skrll LIST_FOREACH(lt2, &t->p_lwps, l_sibling) { 833 1.5.2.4 skrll CLR(lt2->l_pflag, LP_SINGLESTEP); 834 1.5.2.4 skrll } 835 1.5.2.4 skrll CLR(lt->l_pflag, LP_SINGLESTEP); 836 1.5.2.2 skrll } 837 1.5.2.2 skrll sendsig: 838 1.5.2.2 skrll t->p_fpid = 0; 839 1.5.2.3 skrll t->p_vfpid = 0; 840 1.5.2.3 skrll t->p_vfpid_done = 0; 841 1.5.2.3 skrll t->p_lwp_created = 0; 842 1.5.2.3 skrll t->p_lwp_exited = 0; 843 1.5.2.2 skrll /* Finally, deliver the requested signal (or none). */ 844 1.5.2.2 skrll if (t->p_stat == SSTOP) { 845 1.5.2.2 skrll /* 846 1.5.2.2 skrll * Unstop the process. If it needs to take a 847 1.5.2.2 skrll * signal, make all efforts to ensure that at 848 1.5.2.2 skrll * an LWP runs to see it. 849 1.5.2.2 skrll */ 850 1.5.2.2 skrll t->p_xsig = signo; 851 1.5.2.2 skrll if (resume_all) 852 1.5.2.2 skrll proc_unstop(t); 853 1.5.2.2 skrll else 854 1.5.2.2 skrll lwp_unstop(lt); 855 1.5.2.3 skrll } else if (t->p_sigctx.ps_faked) { 856 1.5.2.3 skrll if (signo != t->p_sigctx.ps_info._signo) { 857 1.5.2.3 skrll error = EINVAL; 858 1.5.2.3 skrll break; 859 1.5.2.3 skrll } 860 1.5.2.3 skrll t->p_sigctx.ps_faked = false; 861 1.5.2.3 skrll KSI_INIT_EMPTY(&ksi); 862 1.5.2.3 skrll ksi.ksi_info = t->p_sigctx.ps_info; 863 1.5.2.3 skrll ksi.ksi_lid = t->p_sigctx.ps_lwp; 864 1.5.2.3 skrll kpsignal2(t, &ksi); 865 1.5.2.2 skrll } else if (signo != 0) { 866 1.5.2.2 skrll KSI_INIT_EMPTY(&ksi); 867 1.5.2.2 skrll ksi.ksi_signo = signo; 868 1.5.2.2 skrll kpsignal2(t, &ksi); 869 1.5.2.2 skrll } 870 1.5.2.2 skrll break; 871 1.5.2.2 skrll 872 1.5.2.2 skrll case PT_SYSCALLEMU: 873 1.5.2.2 skrll if (!ISSET(t->p_slflag, PSL_SYSCALL) || t->p_stat != SSTOP) { 874 1.5.2.2 skrll error = EINVAL; 875 1.5.2.2 skrll break; 876 1.5.2.2 skrll } 877 1.5.2.2 skrll SET(t->p_slflag, PSL_SYSCALLEMU); 878 1.5.2.2 skrll break; 879 1.5.2.2 skrll 880 1.5.2.4 skrll #ifdef PT_STEP 881 1.5.2.4 skrll case PT_SETSTEP: 882 1.5.2.4 skrll write = 1; 883 1.5.2.4 skrll 884 1.5.2.4 skrll case PT_CLEARSTEP: 885 1.5.2.4 skrll /* write = 0 done above. */ 886 1.5.2.4 skrll 887 1.5.2.4 skrll tmp = data; 888 1.5.2.4 skrll if (tmp != 0 && t->p_nlwps > 1) { 889 1.5.2.4 skrll lwp_delref(lt); 890 1.5.2.4 skrll mutex_enter(t->p_lock); 891 1.5.2.4 skrll lt = lwp_find(t, tmp); 892 1.5.2.4 skrll if (lt == NULL) { 893 1.5.2.4 skrll mutex_exit(t->p_lock); 894 1.5.2.4 skrll error = ESRCH; 895 1.5.2.4 skrll break; 896 1.5.2.4 skrll } 897 1.5.2.4 skrll lwp_addref(lt); 898 1.5.2.4 skrll mutex_exit(t->p_lock); 899 1.5.2.4 skrll } 900 1.5.2.4 skrll 901 1.5.2.4 skrll if (ISSET(lt->l_flag, LW_SYSTEM)) 902 1.5.2.4 skrll error = EINVAL; 903 1.5.2.4 skrll else if (write) 904 1.5.2.4 skrll SET(lt->l_pflag, LP_SINGLESTEP); 905 1.5.2.4 skrll else 906 1.5.2.4 skrll CLR(lt->l_pflag, LP_SINGLESTEP); 907 1.5.2.4 skrll break; 908 1.5.2.4 skrll #endif 909 1.5.2.4 skrll 910 1.5.2.2 skrll case PT_KILL: 911 1.5.2.2 skrll /* just send the process a KILL signal. */ 912 1.5.2.2 skrll signo = SIGKILL; 913 1.5.2.2 skrll goto sendsig; /* in PT_CONTINUE, above. */ 914 1.5.2.2 skrll 915 1.5.2.2 skrll case PT_ATTACH: 916 1.5.2.2 skrll /* 917 1.5.2.2 skrll * Go ahead and set the trace flag. 918 1.5.2.2 skrll * Save the old parent (it's reset in 919 1.5.2.2 skrll * _DETACH, and also in kern_exit.c:wait4() 920 1.5.2.2 skrll * Reparent the process so that the tracing 921 1.5.2.2 skrll * proc gets to see all the action. 922 1.5.2.2 skrll * Stop the target. 923 1.5.2.2 skrll */ 924 1.5.2.2 skrll proc_changeparent(t, p); 925 1.5.2.2 skrll signo = SIGSTOP; 926 1.5.2.2 skrll goto sendsig; 927 1.5.2.2 skrll 928 1.5.2.2 skrll case PT_GET_EVENT_MASK: 929 1.5.2.2 skrll if (data != sizeof(pe)) { 930 1.5.2.2 skrll DPRINTF(("ptrace(%d): %d != %zu\n", req, 931 1.5.2.2 skrll data, sizeof(pe))); 932 1.5.2.2 skrll error = EINVAL; 933 1.5.2.2 skrll break; 934 1.5.2.2 skrll } 935 1.5.2.2 skrll memset(&pe, 0, sizeof(pe)); 936 1.5.2.2 skrll pe.pe_set_event = ISSET(t->p_slflag, PSL_TRACEFORK) ? 937 1.5.2.2 skrll PTRACE_FORK : 0; 938 1.5.2.3 skrll pe.pe_set_event |= ISSET(t->p_slflag, PSL_TRACEVFORK) ? 939 1.5.2.3 skrll PTRACE_VFORK : 0; 940 1.5.2.3 skrll pe.pe_set_event |= ISSET(t->p_slflag, PSL_TRACEVFORK_DONE) ? 941 1.5.2.3 skrll PTRACE_VFORK_DONE : 0; 942 1.5.2.3 skrll pe.pe_set_event |= ISSET(t->p_slflag, PSL_TRACELWP_CREATE) ? 943 1.5.2.3 skrll PTRACE_LWP_CREATE : 0; 944 1.5.2.3 skrll pe.pe_set_event |= ISSET(t->p_slflag, PSL_TRACELWP_EXIT) ? 945 1.5.2.3 skrll PTRACE_LWP_EXIT : 0; 946 1.5.2.2 skrll error = copyout(&pe, addr, sizeof(pe)); 947 1.5.2.2 skrll break; 948 1.5.2.2 skrll 949 1.5.2.2 skrll case PT_SET_EVENT_MASK: 950 1.5.2.2 skrll if (data != sizeof(pe)) { 951 1.5.2.2 skrll DPRINTF(("ptrace(%d): %d != %zu\n", req, data, 952 1.5.2.2 skrll sizeof(pe))); 953 1.5.2.2 skrll error = EINVAL; 954 1.5.2.2 skrll break; 955 1.5.2.2 skrll } 956 1.5.2.2 skrll if ((error = copyin(addr, &pe, sizeof(pe))) != 0) 957 1.5.2.2 skrll return error; 958 1.5.2.2 skrll if (pe.pe_set_event & PTRACE_FORK) 959 1.5.2.2 skrll SET(t->p_slflag, PSL_TRACEFORK); 960 1.5.2.2 skrll else 961 1.5.2.2 skrll CLR(t->p_slflag, PSL_TRACEFORK); 962 1.5.2.3 skrll #if notyet 963 1.5.2.3 skrll if (pe.pe_set_event & PTRACE_VFORK) 964 1.5.2.3 skrll SET(t->p_slflag, PSL_TRACEVFORK); 965 1.5.2.3 skrll else 966 1.5.2.3 skrll CLR(t->p_slflag, PSL_TRACEVFORK); 967 1.5.2.3 skrll #else 968 1.5.2.3 skrll if (pe.pe_set_event & PTRACE_VFORK) { 969 1.5.2.3 skrll error = ENOTSUP; 970 1.5.2.3 skrll break; 971 1.5.2.3 skrll } 972 1.5.2.3 skrll #endif 973 1.5.2.3 skrll if (pe.pe_set_event & PTRACE_VFORK_DONE) 974 1.5.2.3 skrll SET(t->p_slflag, PSL_TRACEVFORK_DONE); 975 1.5.2.3 skrll else 976 1.5.2.3 skrll CLR(t->p_slflag, PSL_TRACEVFORK_DONE); 977 1.5.2.3 skrll if (pe.pe_set_event & PTRACE_LWP_CREATE) 978 1.5.2.3 skrll SET(t->p_slflag, PSL_TRACELWP_CREATE); 979 1.5.2.3 skrll else 980 1.5.2.3 skrll CLR(t->p_slflag, PSL_TRACELWP_CREATE); 981 1.5.2.3 skrll if (pe.pe_set_event & PTRACE_LWP_EXIT) 982 1.5.2.3 skrll SET(t->p_slflag, PSL_TRACELWP_EXIT); 983 1.5.2.3 skrll else 984 1.5.2.3 skrll CLR(t->p_slflag, PSL_TRACELWP_EXIT); 985 1.5.2.2 skrll break; 986 1.5.2.2 skrll 987 1.5.2.2 skrll case PT_GET_PROCESS_STATE: 988 1.5.2.2 skrll if (data != sizeof(ps)) { 989 1.5.2.2 skrll DPRINTF(("ptrace(%d): %d != %zu\n", req, data, 990 1.5.2.2 skrll sizeof(ps))); 991 1.5.2.2 skrll error = EINVAL; 992 1.5.2.2 skrll break; 993 1.5.2.2 skrll } 994 1.5.2.2 skrll memset(&ps, 0, sizeof(ps)); 995 1.5.2.2 skrll if (t->p_fpid) { 996 1.5.2.2 skrll ps.pe_report_event = PTRACE_FORK; 997 1.5.2.2 skrll ps.pe_other_pid = t->p_fpid; 998 1.5.2.3 skrll } else if (t->p_vfpid) { 999 1.5.2.3 skrll ps.pe_report_event = PTRACE_VFORK; 1000 1.5.2.3 skrll ps.pe_other_pid = t->p_vfpid; 1001 1.5.2.3 skrll } else if (t->p_vfpid_done) { 1002 1.5.2.3 skrll ps.pe_report_event = PTRACE_VFORK_DONE; 1003 1.5.2.3 skrll ps.pe_other_pid = t->p_vfpid_done; 1004 1.5.2.3 skrll } else if (t->p_lwp_created) { 1005 1.5.2.3 skrll ps.pe_report_event = PTRACE_LWP_CREATE; 1006 1.5.2.3 skrll ps.pe_lwp = t->p_lwp_created; 1007 1.5.2.3 skrll } else if (t->p_lwp_exited) { 1008 1.5.2.3 skrll ps.pe_report_event = PTRACE_LWP_EXIT; 1009 1.5.2.3 skrll ps.pe_lwp = t->p_lwp_exited; 1010 1.5.2.2 skrll } 1011 1.5.2.2 skrll error = copyout(&ps, addr, sizeof(ps)); 1012 1.5.2.2 skrll break; 1013 1.5.2.2 skrll 1014 1.5.2.2 skrll case PT_LWPINFO: 1015 1.5.2.2 skrll if (data != sizeof(pl)) { 1016 1.5.2.2 skrll DPRINTF(("ptrace(%d): %d != %zu\n", req, data, 1017 1.5.2.2 skrll sizeof(pl))); 1018 1.5.2.2 skrll error = EINVAL; 1019 1.5.2.2 skrll break; 1020 1.5.2.2 skrll } 1021 1.5.2.2 skrll error = copyin(addr, &pl, sizeof(pl)); 1022 1.5.2.2 skrll if (error) 1023 1.5.2.2 skrll break; 1024 1.5.2.2 skrll tmp = pl.pl_lwpid; 1025 1.5.2.2 skrll lwp_delref(lt); 1026 1.5.2.2 skrll mutex_enter(t->p_lock); 1027 1.5.2.2 skrll if (tmp == 0) 1028 1.5.2.2 skrll lt = lwp_find_first(t); 1029 1.5.2.2 skrll else { 1030 1.5.2.2 skrll lt = lwp_find(t, tmp); 1031 1.5.2.2 skrll if (lt == NULL) { 1032 1.5.2.2 skrll mutex_exit(t->p_lock); 1033 1.5.2.2 skrll error = ESRCH; 1034 1.5.2.2 skrll break; 1035 1.5.2.2 skrll } 1036 1.5.2.2 skrll lt = LIST_NEXT(lt, l_sibling); 1037 1.5.2.2 skrll } 1038 1.5.2.2 skrll while (lt != NULL && !lwp_alive(lt)) 1039 1.5.2.2 skrll lt = LIST_NEXT(lt, l_sibling); 1040 1.5.2.2 skrll pl.pl_lwpid = 0; 1041 1.5.2.2 skrll pl.pl_event = 0; 1042 1.5.2.2 skrll if (lt) { 1043 1.5.2.2 skrll lwp_addref(lt); 1044 1.5.2.2 skrll pl.pl_lwpid = lt->l_lid; 1045 1.5.2.4 skrll 1046 1.5.2.4 skrll if (lt->l_flag & LW_WSUSPEND) 1047 1.5.2.4 skrll pl.pl_event = PL_EVENT_SUSPENDED; 1048 1.5.2.3 skrll /* 1049 1.5.2.3 skrll * If we match the lwp, or it was sent to every lwp, 1050 1.5.2.3 skrll * we set PL_EVENT_SIGNAL. 1051 1.5.2.3 skrll * XXX: ps_lwp == 0 means everyone and noone, so 1052 1.5.2.3 skrll * check ps_signo too. 1053 1.5.2.3 skrll */ 1054 1.5.2.4 skrll else if (lt->l_lid == t->p_sigctx.ps_lwp 1055 1.5.2.4 skrll || (t->p_sigctx.ps_lwp == 0 && 1056 1.5.2.4 skrll t->p_sigctx.ps_info._signo)) 1057 1.5.2.2 skrll pl.pl_event = PL_EVENT_SIGNAL; 1058 1.5.2.2 skrll } 1059 1.5.2.2 skrll mutex_exit(t->p_lock); 1060 1.5.2.2 skrll 1061 1.5.2.2 skrll error = copyout(&pl, addr, sizeof(pl)); 1062 1.5.2.2 skrll break; 1063 1.5.2.2 skrll 1064 1.5.2.3 skrll case PT_SET_SIGINFO: 1065 1.5.2.3 skrll if (data != sizeof(psi)) { 1066 1.5.2.3 skrll DPRINTF(("ptrace(%d): %d != %zu\n", req, data, 1067 1.5.2.3 skrll sizeof(psi))); 1068 1.5.2.3 skrll error = EINVAL; 1069 1.5.2.3 skrll break; 1070 1.5.2.3 skrll } 1071 1.5.2.3 skrll 1072 1.5.2.3 skrll error = copyin(addr, &psi, sizeof(psi)); 1073 1.5.2.3 skrll if (error) 1074 1.5.2.3 skrll break; 1075 1.5.2.3 skrll 1076 1.5.2.3 skrll /* Check that the data is a valid signal number or zero. */ 1077 1.5.2.3 skrll if (psi.psi_siginfo.si_signo < 0 || 1078 1.5.2.3 skrll psi.psi_siginfo.si_signo >= NSIG) { 1079 1.5.2.3 skrll error = EINVAL; 1080 1.5.2.3 skrll break; 1081 1.5.2.3 skrll } 1082 1.5.2.3 skrll 1083 1.5.2.3 skrll tmp = psi.psi_lwpid; 1084 1.5.2.3 skrll if (tmp != 0) 1085 1.5.2.3 skrll lwp_delref(lt); 1086 1.5.2.3 skrll 1087 1.5.2.3 skrll mutex_enter(t->p_lock); 1088 1.5.2.3 skrll 1089 1.5.2.3 skrll if (tmp != 0) { 1090 1.5.2.3 skrll lt = lwp_find(t, tmp); 1091 1.5.2.3 skrll if (lt == NULL) { 1092 1.5.2.3 skrll mutex_exit(t->p_lock); 1093 1.5.2.3 skrll error = ESRCH; 1094 1.5.2.3 skrll break; 1095 1.5.2.3 skrll } 1096 1.5.2.3 skrll lwp_addref(lt); 1097 1.5.2.3 skrll } 1098 1.5.2.3 skrll 1099 1.5.2.3 skrll t->p_sigctx.ps_faked = true; 1100 1.5.2.3 skrll t->p_sigctx.ps_info = psi.psi_siginfo._info; 1101 1.5.2.3 skrll t->p_sigctx.ps_lwp = psi.psi_lwpid; 1102 1.5.2.3 skrll mutex_exit(t->p_lock); 1103 1.5.2.3 skrll break; 1104 1.5.2.3 skrll 1105 1.5.2.3 skrll case PT_GET_SIGINFO: 1106 1.5.2.3 skrll if (data != sizeof(psi)) { 1107 1.5.2.3 skrll DPRINTF(("ptrace(%d): %d != %zu\n", req, data, 1108 1.5.2.3 skrll sizeof(psi))); 1109 1.5.2.3 skrll error = EINVAL; 1110 1.5.2.3 skrll break; 1111 1.5.2.3 skrll } 1112 1.5.2.3 skrll mutex_enter(t->p_lock); 1113 1.5.2.3 skrll psi.psi_siginfo._info = t->p_sigctx.ps_info; 1114 1.5.2.3 skrll psi.psi_lwpid = t->p_sigctx.ps_lwp; 1115 1.5.2.3 skrll mutex_exit(t->p_lock); 1116 1.5.2.3 skrll 1117 1.5.2.3 skrll error = copyout(&psi, addr, sizeof(psi)); 1118 1.5.2.3 skrll if (error) 1119 1.5.2.3 skrll break; 1120 1.5.2.3 skrll 1121 1.5.2.3 skrll break; 1122 1.5.2.3 skrll 1123 1.5.2.4 skrll case PT_SET_SIGMASK: 1124 1.5.2.4 skrll write = 1; 1125 1.5.2.4 skrll 1126 1.5.2.4 skrll case PT_GET_SIGMASK: 1127 1.5.2.4 skrll /* write = 0 done above. */ 1128 1.5.2.4 skrll 1129 1.5.2.4 skrll tmp = data; 1130 1.5.2.4 skrll if (tmp != 0 && t->p_nlwps > 1) { 1131 1.5.2.4 skrll lwp_delref(lt); 1132 1.5.2.4 skrll mutex_enter(t->p_lock); 1133 1.5.2.4 skrll lt = lwp_find(t, tmp); 1134 1.5.2.4 skrll if (lt == NULL) { 1135 1.5.2.4 skrll mutex_exit(t->p_lock); 1136 1.5.2.4 skrll error = ESRCH; 1137 1.5.2.4 skrll break; 1138 1.5.2.4 skrll } 1139 1.5.2.4 skrll lwp_addref(lt); 1140 1.5.2.4 skrll mutex_exit(t->p_lock); 1141 1.5.2.4 skrll } 1142 1.5.2.4 skrll 1143 1.5.2.4 skrll if (lt->l_flag & LW_SYSTEM) 1144 1.5.2.4 skrll error = EINVAL; 1145 1.5.2.4 skrll else if (write == 1) { 1146 1.5.2.4 skrll error = copyin(addr, <->l_sigmask, sizeof(sigset_t)); 1147 1.5.2.4 skrll sigminusset(&sigcantmask, <->l_sigmask); 1148 1.5.2.4 skrll } else 1149 1.5.2.4 skrll error = copyout(<->l_sigmask, addr, sizeof(sigset_t)); 1150 1.5.2.4 skrll 1151 1.5.2.4 skrll break; 1152 1.5.2.4 skrll 1153 1.5.2.4 skrll case PT_RESUME: 1154 1.5.2.4 skrll write = 1; 1155 1.5.2.4 skrll 1156 1.5.2.4 skrll case PT_SUSPEND: 1157 1.5.2.4 skrll /* write = 0 done above. */ 1158 1.5.2.4 skrll 1159 1.5.2.4 skrll tmp = data; 1160 1.5.2.4 skrll if (tmp != 0 && t->p_nlwps > 1) { 1161 1.5.2.4 skrll lwp_delref(lt); 1162 1.5.2.4 skrll mutex_enter(t->p_lock); 1163 1.5.2.4 skrll lt = lwp_find(t, tmp); 1164 1.5.2.4 skrll if (lt == NULL) { 1165 1.5.2.4 skrll mutex_exit(t->p_lock); 1166 1.5.2.4 skrll error = ESRCH; 1167 1.5.2.4 skrll break; 1168 1.5.2.4 skrll } 1169 1.5.2.4 skrll lwp_addref(lt); 1170 1.5.2.4 skrll mutex_exit(t->p_lock); 1171 1.5.2.4 skrll } 1172 1.5.2.4 skrll if (lt->l_flag & LW_SYSTEM) { 1173 1.5.2.4 skrll error = EINVAL; 1174 1.5.2.4 skrll } else { 1175 1.5.2.4 skrll lwp_lock(lt); 1176 1.5.2.4 skrll if (write == 0) 1177 1.5.2.4 skrll lt->l_flag |= LW_WSUSPEND; 1178 1.5.2.4 skrll else 1179 1.5.2.4 skrll lt->l_flag &= ~LW_WSUSPEND; 1180 1.5.2.4 skrll lwp_unlock(lt); 1181 1.5.2.4 skrll } 1182 1.5.2.4 skrll break; 1183 1.5.2.4 skrll 1184 1.5.2.2 skrll #ifdef PT_SETREGS 1185 1.5.2.2 skrll case PT_SETREGS: 1186 1.5.2.2 skrll write = 1; 1187 1.5.2.2 skrll #endif 1188 1.5.2.2 skrll #ifdef PT_GETREGS 1189 1.5.2.2 skrll case PT_GETREGS: 1190 1.5.2.2 skrll /* write = 0 done above. */ 1191 1.5.2.2 skrll #endif 1192 1.5.2.2 skrll #if defined(PT_SETREGS) || defined(PT_GETREGS) 1193 1.5.2.2 skrll tmp = data; 1194 1.5.2.2 skrll if (tmp != 0 && t->p_nlwps > 1) { 1195 1.5.2.2 skrll lwp_delref(lt); 1196 1.5.2.2 skrll mutex_enter(t->p_lock); 1197 1.5.2.2 skrll lt = lwp_find(t, tmp); 1198 1.5.2.2 skrll if (lt == NULL) { 1199 1.5.2.2 skrll mutex_exit(t->p_lock); 1200 1.5.2.2 skrll error = ESRCH; 1201 1.5.2.2 skrll break; 1202 1.5.2.2 skrll } 1203 1.5.2.2 skrll lwp_addref(lt); 1204 1.5.2.2 skrll mutex_exit(t->p_lock); 1205 1.5.2.2 skrll } 1206 1.5.2.2 skrll if (!process_validregs(lt)) 1207 1.5.2.2 skrll error = EINVAL; 1208 1.5.2.2 skrll else { 1209 1.5.2.2 skrll error = proc_vmspace_getref(p, &vm); 1210 1.5.2.2 skrll if (error) 1211 1.5.2.2 skrll break; 1212 1.5.2.2 skrll iov.iov_base = addr; 1213 1.5.2.2 skrll iov.iov_len = PROC_REGSZ(p); 1214 1.5.2.2 skrll uio.uio_iov = &iov; 1215 1.5.2.2 skrll uio.uio_iovcnt = 1; 1216 1.5.2.2 skrll uio.uio_offset = 0; 1217 1.5.2.2 skrll uio.uio_resid = iov.iov_len; 1218 1.5.2.2 skrll uio.uio_rw = write ? UIO_WRITE : UIO_READ; 1219 1.5.2.2 skrll uio.uio_vmspace = vm; 1220 1.5.2.2 skrll 1221 1.5.2.2 skrll error = ptm->ptm_doregs(l, lt, &uio); 1222 1.5.2.2 skrll uvmspace_free(vm); 1223 1.5.2.2 skrll } 1224 1.5.2.2 skrll break; 1225 1.5.2.2 skrll #endif 1226 1.5.2.2 skrll 1227 1.5.2.2 skrll #ifdef PT_SETFPREGS 1228 1.5.2.2 skrll case PT_SETFPREGS: 1229 1.5.2.2 skrll write = 1; 1230 1.5.2.2 skrll /*FALLTHROUGH*/ 1231 1.5.2.2 skrll #endif 1232 1.5.2.2 skrll #ifdef PT_GETFPREGS 1233 1.5.2.2 skrll case PT_GETFPREGS: 1234 1.5.2.2 skrll /* write = 0 done above. */ 1235 1.5.2.2 skrll #endif 1236 1.5.2.2 skrll #if defined(PT_SETFPREGS) || defined(PT_GETFPREGS) 1237 1.5.2.2 skrll tmp = data; 1238 1.5.2.2 skrll if (tmp != 0 && t->p_nlwps > 1) { 1239 1.5.2.2 skrll lwp_delref(lt); 1240 1.5.2.2 skrll mutex_enter(t->p_lock); 1241 1.5.2.2 skrll lt = lwp_find(t, tmp); 1242 1.5.2.2 skrll if (lt == NULL) { 1243 1.5.2.2 skrll mutex_exit(t->p_lock); 1244 1.5.2.2 skrll error = ESRCH; 1245 1.5.2.2 skrll break; 1246 1.5.2.2 skrll } 1247 1.5.2.2 skrll lwp_addref(lt); 1248 1.5.2.2 skrll mutex_exit(t->p_lock); 1249 1.5.2.2 skrll } 1250 1.5.2.2 skrll if (!process_validfpregs(lt)) 1251 1.5.2.2 skrll error = EINVAL; 1252 1.5.2.2 skrll else { 1253 1.5.2.2 skrll error = proc_vmspace_getref(p, &vm); 1254 1.5.2.2 skrll if (error) 1255 1.5.2.2 skrll break; 1256 1.5.2.2 skrll iov.iov_base = addr; 1257 1.5.2.2 skrll iov.iov_len = PROC_FPREGSZ(p); 1258 1.5.2.2 skrll uio.uio_iov = &iov; 1259 1.5.2.2 skrll uio.uio_iovcnt = 1; 1260 1.5.2.2 skrll uio.uio_offset = 0; 1261 1.5.2.2 skrll uio.uio_resid = iov.iov_len; 1262 1.5.2.2 skrll uio.uio_rw = write ? UIO_WRITE : UIO_READ; 1263 1.5.2.2 skrll uio.uio_vmspace = vm; 1264 1.5.2.2 skrll 1265 1.5.2.2 skrll error = ptm->ptm_dofpregs(l, lt, &uio); 1266 1.5.2.2 skrll uvmspace_free(vm); 1267 1.5.2.2 skrll } 1268 1.5.2.2 skrll break; 1269 1.5.2.2 skrll #endif 1270 1.5.2.2 skrll 1271 1.5.2.4 skrll #ifdef PT_SETDBREGS 1272 1.5.2.4 skrll case PT_SETDBREGS: 1273 1.5.2.3 skrll write = 1; 1274 1.5.2.4 skrll /*FALLTHROUGH*/ 1275 1.5.2.4 skrll #endif 1276 1.5.2.4 skrll #ifdef PT_GETDBREGS 1277 1.5.2.4 skrll case PT_GETDBREGS: 1278 1.5.2.4 skrll /* write = 0 done above. */ 1279 1.5.2.4 skrll #endif 1280 1.5.2.4 skrll #if defined(PT_SETDBREGS) || defined(PT_GETDBREGS) 1281 1.5.2.4 skrll tmp = data; 1282 1.5.2.3 skrll if (tmp != 0 && t->p_nlwps > 1) { 1283 1.5.2.3 skrll lwp_delref(lt); 1284 1.5.2.3 skrll mutex_enter(t->p_lock); 1285 1.5.2.3 skrll lt = lwp_find(t, tmp); 1286 1.5.2.3 skrll if (lt == NULL) { 1287 1.5.2.3 skrll mutex_exit(t->p_lock); 1288 1.5.2.3 skrll error = ESRCH; 1289 1.5.2.3 skrll break; 1290 1.5.2.3 skrll } 1291 1.5.2.3 skrll lwp_addref(lt); 1292 1.5.2.3 skrll mutex_exit(t->p_lock); 1293 1.5.2.3 skrll } 1294 1.5.2.4 skrll if (!process_validdbregs(lt)) 1295 1.5.2.3 skrll error = EINVAL; 1296 1.5.2.3 skrll else { 1297 1.5.2.4 skrll error = proc_vmspace_getref(p, &vm); 1298 1.5.2.4 skrll if (error) 1299 1.5.2.4 skrll break; 1300 1.5.2.4 skrll iov.iov_base = addr; 1301 1.5.2.4 skrll iov.iov_len = PROC_DBREGSZ(p); 1302 1.5.2.4 skrll uio.uio_iov = &iov; 1303 1.5.2.4 skrll uio.uio_iovcnt = 1; 1304 1.5.2.4 skrll uio.uio_offset = 0; 1305 1.5.2.4 skrll uio.uio_resid = iov.iov_len; 1306 1.5.2.4 skrll uio.uio_rw = write ? UIO_WRITE : UIO_READ; 1307 1.5.2.4 skrll uio.uio_vmspace = vm; 1308 1.5.2.4 skrll 1309 1.5.2.4 skrll error = ptm->ptm_dodbregs(l, lt, &uio); 1310 1.5.2.4 skrll uvmspace_free(vm); 1311 1.5.2.3 skrll } 1312 1.5.2.3 skrll break; 1313 1.5.2.3 skrll #endif 1314 1.5.2.3 skrll 1315 1.5.2.2 skrll #ifdef __HAVE_PTRACE_MACHDEP 1316 1.5.2.2 skrll PTRACE_MACHDEP_REQUEST_CASES 1317 1.5.2.2 skrll error = ptrace_machdep_dorequest(l, lt, req, addr, data); 1318 1.5.2.2 skrll break; 1319 1.5.2.2 skrll #endif 1320 1.5.2.2 skrll } 1321 1.5.2.2 skrll 1322 1.5.2.2 skrll if (pheld) { 1323 1.5.2.2 skrll mutex_exit(t->p_lock); 1324 1.5.2.2 skrll mutex_exit(proc_lock); 1325 1.5.2.2 skrll } 1326 1.5.2.2 skrll if (lt != NULL) 1327 1.5.2.2 skrll lwp_delref(lt); 1328 1.5.2.2 skrll rw_exit(&t->p_reflock); 1329 1.5.2.2 skrll 1330 1.5.2.2 skrll return error; 1331 1.5.2.2 skrll } 1332 1.5.2.2 skrll 1333 1.5.2.2 skrll int 1334 1.5.2.2 skrll process_doregs(struct lwp *curl /*tracer*/, 1335 1.5.2.2 skrll struct lwp *l /*traced*/, 1336 1.5.2.2 skrll struct uio *uio) 1337 1.5.2.2 skrll { 1338 1.5.2.2 skrll #if defined(PT_GETREGS) || defined(PT_SETREGS) 1339 1.5.2.2 skrll int error; 1340 1.5.2.2 skrll struct reg r; 1341 1.5.2.2 skrll char *kv; 1342 1.5.2.2 skrll int kl; 1343 1.5.2.2 skrll 1344 1.5.2.2 skrll if (uio->uio_offset < 0 || uio->uio_offset > (off_t)sizeof(r)) 1345 1.5.2.2 skrll return EINVAL; 1346 1.5.2.2 skrll 1347 1.5.2.2 skrll kl = sizeof(r); 1348 1.5.2.2 skrll kv = (char *)&r; 1349 1.5.2.2 skrll 1350 1.5.2.2 skrll kv += uio->uio_offset; 1351 1.5.2.2 skrll kl -= uio->uio_offset; 1352 1.5.2.2 skrll if ((size_t)kl > uio->uio_resid) 1353 1.5.2.2 skrll kl = uio->uio_resid; 1354 1.5.2.2 skrll 1355 1.5.2.2 skrll error = process_read_regs(l, &r); 1356 1.5.2.2 skrll if (error == 0) 1357 1.5.2.2 skrll error = uiomove(kv, kl, uio); 1358 1.5.2.2 skrll if (error == 0 && uio->uio_rw == UIO_WRITE) { 1359 1.5.2.2 skrll if (l->l_stat != LSSTOP) 1360 1.5.2.2 skrll error = EBUSY; 1361 1.5.2.2 skrll else 1362 1.5.2.2 skrll error = process_write_regs(l, &r); 1363 1.5.2.2 skrll } 1364 1.5.2.2 skrll 1365 1.5.2.2 skrll uio->uio_offset = 0; 1366 1.5.2.2 skrll return error; 1367 1.5.2.2 skrll #else 1368 1.5.2.2 skrll return EINVAL; 1369 1.5.2.2 skrll #endif 1370 1.5.2.2 skrll } 1371 1.5.2.2 skrll 1372 1.5.2.2 skrll int 1373 1.5.2.2 skrll process_validregs(struct lwp *l) 1374 1.5.2.2 skrll { 1375 1.5.2.2 skrll 1376 1.5.2.2 skrll #if defined(PT_SETREGS) || defined(PT_GETREGS) 1377 1.5.2.2 skrll return (l->l_flag & LW_SYSTEM) == 0; 1378 1.5.2.2 skrll #else 1379 1.5.2.2 skrll return 0; 1380 1.5.2.2 skrll #endif 1381 1.5.2.2 skrll } 1382 1.5.2.2 skrll 1383 1.5.2.2 skrll int 1384 1.5.2.2 skrll process_dofpregs(struct lwp *curl /*tracer*/, 1385 1.5.2.2 skrll struct lwp *l /*traced*/, 1386 1.5.2.2 skrll struct uio *uio) 1387 1.5.2.2 skrll { 1388 1.5.2.2 skrll #if defined(PT_GETFPREGS) || defined(PT_SETFPREGS) 1389 1.5.2.2 skrll int error; 1390 1.5.2.2 skrll struct fpreg r; 1391 1.5.2.2 skrll char *kv; 1392 1.5.2.2 skrll size_t kl; 1393 1.5.2.2 skrll 1394 1.5.2.2 skrll if (uio->uio_offset < 0 || uio->uio_offset > (off_t)sizeof(r)) 1395 1.5.2.2 skrll return EINVAL; 1396 1.5.2.2 skrll 1397 1.5.2.2 skrll kl = sizeof(r); 1398 1.5.2.2 skrll kv = (char *)&r; 1399 1.5.2.2 skrll 1400 1.5.2.2 skrll kv += uio->uio_offset; 1401 1.5.2.2 skrll kl -= uio->uio_offset; 1402 1.5.2.2 skrll if (kl > uio->uio_resid) 1403 1.5.2.2 skrll kl = uio->uio_resid; 1404 1.5.2.2 skrll 1405 1.5.2.2 skrll error = process_read_fpregs(l, &r, &kl); 1406 1.5.2.2 skrll if (error == 0) 1407 1.5.2.2 skrll error = uiomove(kv, kl, uio); 1408 1.5.2.2 skrll if (error == 0 && uio->uio_rw == UIO_WRITE) { 1409 1.5.2.2 skrll if (l->l_stat != LSSTOP) 1410 1.5.2.2 skrll error = EBUSY; 1411 1.5.2.2 skrll else 1412 1.5.2.2 skrll error = process_write_fpregs(l, &r, kl); 1413 1.5.2.2 skrll } 1414 1.5.2.2 skrll uio->uio_offset = 0; 1415 1.5.2.2 skrll return error; 1416 1.5.2.2 skrll #else 1417 1.5.2.2 skrll return EINVAL; 1418 1.5.2.2 skrll #endif 1419 1.5.2.2 skrll } 1420 1.5.2.2 skrll 1421 1.5.2.2 skrll int 1422 1.5.2.2 skrll process_validfpregs(struct lwp *l) 1423 1.5.2.2 skrll { 1424 1.5.2.2 skrll 1425 1.5.2.2 skrll #if defined(PT_SETFPREGS) || defined(PT_GETFPREGS) 1426 1.5.2.2 skrll return (l->l_flag & LW_SYSTEM) == 0; 1427 1.5.2.2 skrll #else 1428 1.5.2.2 skrll return 0; 1429 1.5.2.2 skrll #endif 1430 1.5.2.2 skrll } 1431 1.5.2.2 skrll 1432 1.5.2.4 skrll int 1433 1.5.2.4 skrll process_dodbregs(struct lwp *curl /*tracer*/, 1434 1.5.2.4 skrll struct lwp *l /*traced*/, 1435 1.5.2.4 skrll struct uio *uio) 1436 1.5.2.4 skrll { 1437 1.5.2.4 skrll #if defined(PT_GETDBREGS) || defined(PT_SETDBREGS) 1438 1.5.2.4 skrll int error; 1439 1.5.2.4 skrll struct dbreg r; 1440 1.5.2.4 skrll char *kv; 1441 1.5.2.4 skrll size_t kl; 1442 1.5.2.4 skrll 1443 1.5.2.4 skrll if (uio->uio_offset < 0 || uio->uio_offset > (off_t)sizeof(r)) 1444 1.5.2.4 skrll return EINVAL; 1445 1.5.2.4 skrll 1446 1.5.2.4 skrll kl = sizeof(r); 1447 1.5.2.4 skrll kv = (char *)&r; 1448 1.5.2.4 skrll 1449 1.5.2.4 skrll kv += uio->uio_offset; 1450 1.5.2.4 skrll kl -= uio->uio_offset; 1451 1.5.2.4 skrll if (kl > uio->uio_resid) 1452 1.5.2.4 skrll kl = uio->uio_resid; 1453 1.5.2.4 skrll 1454 1.5.2.4 skrll error = process_read_dbregs(l, &r, &kl); 1455 1.5.2.4 skrll if (error == 0) 1456 1.5.2.4 skrll error = uiomove(kv, kl, uio); 1457 1.5.2.4 skrll if (error == 0 && uio->uio_rw == UIO_WRITE) { 1458 1.5.2.4 skrll if (l->l_stat != LSSTOP) 1459 1.5.2.4 skrll error = EBUSY; 1460 1.5.2.4 skrll else 1461 1.5.2.4 skrll error = process_write_dbregs(l, &r, kl); 1462 1.5.2.4 skrll } 1463 1.5.2.4 skrll uio->uio_offset = 0; 1464 1.5.2.4 skrll return error; 1465 1.5.2.4 skrll #else 1466 1.5.2.4 skrll return EINVAL; 1467 1.5.2.4 skrll #endif 1468 1.5.2.4 skrll } 1469 1.5.2.4 skrll 1470 1.5.2.4 skrll int 1471 1.5.2.4 skrll process_validdbregs(struct lwp *l) 1472 1.5.2.4 skrll { 1473 1.5.2.4 skrll 1474 1.5.2.4 skrll #if defined(PT_SETDBREGS) || defined(PT_GETDBREGS) 1475 1.5.2.4 skrll return (l->l_flag & LW_SYSTEM) == 0; 1476 1.5.2.4 skrll #else 1477 1.5.2.4 skrll return 0; 1478 1.5.2.4 skrll #endif 1479 1.5.2.4 skrll } 1480 1.5.2.4 skrll 1481 1.5.2.2 skrll static int 1482 1.5.2.2 skrll process_auxv_offset(struct proc *p, struct uio *uio) 1483 1.5.2.2 skrll { 1484 1.5.2.2 skrll struct ps_strings pss; 1485 1.5.2.2 skrll int error; 1486 1.5.2.2 skrll off_t off = (off_t)p->p_psstrp; 1487 1.5.2.2 skrll 1488 1.5.2.2 skrll if ((error = copyin_psstrings(p, &pss)) != 0) 1489 1.5.2.2 skrll return error; 1490 1.5.2.2 skrll 1491 1.5.2.2 skrll if (pss.ps_envstr == NULL) 1492 1.5.2.2 skrll return EIO; 1493 1.5.2.2 skrll 1494 1.5.2.2 skrll uio->uio_offset += (off_t)(vaddr_t)(pss.ps_envstr + pss.ps_nenvstr + 1); 1495 1.5.2.2 skrll #ifdef __MACHINE_STACK_GROWS_UP 1496 1.5.2.2 skrll if (uio->uio_offset < off) 1497 1.5.2.2 skrll return EIO; 1498 1.5.2.2 skrll #else 1499 1.5.2.2 skrll if (uio->uio_offset > off) 1500 1.5.2.2 skrll return EIO; 1501 1.5.2.2 skrll if ((uio->uio_offset + uio->uio_resid) > off) 1502 1.5.2.2 skrll uio->uio_resid = off - uio->uio_offset; 1503 1.5.2.2 skrll #endif 1504 1.5.2.2 skrll return 0; 1505 1.5.2.2 skrll } 1506 1.5.2.2 skrll #endif /* PTRACE */ 1507 1.5.2.2 skrll 1508 1.5.2.2 skrll MODULE(MODULE_CLASS_EXEC, ptrace_common, ""); 1509 1.5.2.3 skrll 1510 1.5.2.2 skrll static int 1511 1.5.2.2 skrll ptrace_common_modcmd(modcmd_t cmd, void *arg) 1512 1.5.2.2 skrll { 1513 1.5.2.2 skrll int error; 1514 1.5.2.3 skrll 1515 1.5.2.2 skrll switch (cmd) { 1516 1.5.2.2 skrll case MODULE_CMD_INIT: 1517 1.5.2.2 skrll error = ptrace_init(); 1518 1.5.2.2 skrll break; 1519 1.5.2.2 skrll case MODULE_CMD_FINI: 1520 1.5.2.2 skrll error = ptrace_fini(); 1521 1.5.2.2 skrll break; 1522 1.5.2.2 skrll default: 1523 1.5.2.2 skrll ptrace_hooks(); 1524 1.5.2.2 skrll error = ENOTTY; 1525 1.5.2.2 skrll break; 1526 1.5.2.2 skrll } 1527 1.5.2.2 skrll return error; 1528 1.5.2.2 skrll } 1529
Indexes created Tue Sep 30 20:09:53 GMT 2025