[apple/xnu.git] / bsd / kern / mach_process.c

/*
 * Copyright (c) 2000-2006 Apple Computer, Inc. All rights reserved.
 *
 * @APPLE_OSREFERENCE_LICENSE_HEADER_START@
 * 
 * This file contains Original Code and/or Modifications of Original Code
 * as defined in and that are subject to the Apple Public Source License
 * Version 2.0 (the 'License'). You may not use this file except in
 * compliance with the License. The rights granted to you under the License
 * may not be used to create, or enable the creation or redistribution of,
 * unlawful or unlicensed copies of an Apple operating system, or to
 * circumvent, violate, or enable the circumvention or violation of, any
 * terms of an Apple operating system software license agreement.
 * 
 * Please obtain a copy of the License at
 * http://www.opensource.apple.com/apsl/ and read it before using this file.
 * 
 * The Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
 * Please see the License for the specific language governing rights and
 * limitations under the License.
 * 
 * @APPLE_OSREFERENCE_LICENSE_HEADER_END@
 */
/* Copyright (c) 1995 NeXT Computer, Inc. All Rights Reserved */
/*-
 * Copyright (c) 1982, 1986, 1989, 1993
 *	The Regents of the University of California.  All rights reserved.
 * (c) UNIX System Laboratories, Inc.
 * All or some portions of this file are derived from material licensed
 * to the University of California by American Telephone and Telegraph
 * Co. or Unix System Laboratories, Inc. and are reproduced herein with
 * the permission of UNIX System Laboratories, Inc.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 *	from: @(#)sys_process.c	8.1 (Berkeley) 6/10/93
 */

#include <machine/reg.h>
#include <machine/psl.h>

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/proc_internal.h>
#include <sys/kauth.h>
#include <sys/errno.h>
#include <sys/ptrace.h>
#include <sys/uio.h>
#include <sys/user.h>
#include <sys/sysctl.h>
#include <sys/wait.h>

#include <sys/mount_internal.h>
#include <sys/sysproto.h>
#include <sys/kdebug.h>
#include <sys/codesign.h>		/* cs_allow_invalid() */

#include <security/audit/audit.h>

#include <kern/task.h>
#include <kern/thread.h>

#include <mach/task.h>			/* for task_resume() */
#include <kern/sched_prim.h>		/* for thread_exception_return() */

#include <pexpert/pexpert.h>

/* XXX ken/bsd_kern.c - prototype should be in common header */
int get_task_userstop(task_t);

/* Macros to clear/set/test flags. */
#define	SET(t, f)	(t) |= (f)
#define	CLR(t, f)	(t) &= ~(f)
#define	ISSET(t, f)	((t) & (f))

extern thread_t	port_name_to_thread(mach_port_name_t port_name);
extern thread_t get_firstthread(task_t);


/*
 * sys-trace system call.
 */

int
ptrace(struct proc *p, struct ptrace_args *uap, int32_t *retval)
{
	struct proc *t = current_proc();	/* target process */
	task_t		task;
	thread_t	th_act;
	struct uthread 	*ut;
	int tr_sigexc = 0;
	int error = 0;
	int stopped = 0;

	AUDIT_ARG(cmd, uap->req);
	AUDIT_ARG(pid, uap->pid);
	AUDIT_ARG(addr, uap->addr);
	AUDIT_ARG(value32, uap->data);

	if (uap->req == PT_DENY_ATTACH) {
		proc_lock(p);
		if (ISSET(p->p_lflag, P_LTRACED)) {
			proc_unlock(p);
			KERNEL_DEBUG_CONSTANT(BSDDBG_CODE(DBG_BSD_PROC, BSD_PROC_FRCEXIT) | DBG_FUNC_NONE,
					      p->p_pid, W_EXITCODE(ENOTSUP, 0), 4, 0, 0);
			exit1(p, W_EXITCODE(ENOTSUP, 0), retval);
			/* drop funnel before we return */
			thread_exception_return();
			/* NOTREACHED */
		}
		SET(p->p_lflag, P_LNOATTACH);
		proc_unlock(p);

		return(0);
	}

	if (uap->req == PT_FORCEQUOTA) {
		if (kauth_cred_issuser(kauth_cred_get())) {
			OSBitOrAtomic(P_FORCEQUOTA, &t->p_flag);
			return (0);
		} else
			return (EPERM);
	}

	/*
	 *	Intercept and deal with "please trace me" request.
	 */	 
	if (uap->req == PT_TRACE_ME) {
		proc_lock(p);
		SET(p->p_lflag, P_LTRACED);
		/* Non-attached case, our tracer is our parent. */
		p->p_oppid = p->p_ppid;
		/* Check whether child and parent are allowed to run modified
		 * code (they'll have to) */
		struct proc *pproc=proc_find(p->p_oppid);
		proc_unlock(p);
		cs_allow_invalid(p);
		if(pproc) {
			cs_allow_invalid(pproc);
			proc_rele(pproc);
		}
		return(0);
	}
	if (uap->req == PT_SIGEXC) {
		proc_lock(p);
		if (ISSET(p->p_lflag, P_LTRACED)) {
			SET(p->p_lflag, P_LSIGEXC);
			proc_unlock(p);
			return(0);
		} else {
			proc_unlock(p);
			return(EINVAL);
		}
	}

	/* 
	 * We do not want ptrace to do anything with kernel or launchd 
	 */
	if (uap->pid < 2) {
		return(EPERM);
	}

	/*
	 *	Locate victim, and make sure it is traceable.
	 */
	if ((t = proc_find(uap->pid)) == NULL)
			return (ESRCH);

	AUDIT_ARG(process, t);

	task = t->task;
	if (uap->req == PT_ATTACHEXC) {
		uap->req = PT_ATTACH;
		tr_sigexc = 1;
	}
	if (uap->req == PT_ATTACH) {
		int		err;
		
		if ( kauth_authorize_process(proc_ucred(p), KAUTH_PROCESS_CANTRACE, 
									 t, (uintptr_t)&err, 0, 0) == 0 ) {
			/* it's OK to attach */
			proc_lock(t);
			SET(t->p_lflag, P_LTRACED);
			if (tr_sigexc) 
				SET(t->p_lflag, P_LSIGEXC);
	
			t->p_oppid = t->p_ppid;
			/* Check whether child and parent are allowed to run modified
			 * code (they'll have to) */
			proc_unlock(t);
			cs_allow_invalid(t);
			cs_allow_invalid(p);
			if (t->p_pptr != p)
				proc_reparentlocked(t, p, 1, 0);
	
			proc_lock(t);
			if (get_task_userstop(task) > 0 ) {
				stopped = 1;
			}
			t->p_xstat = 0;
			proc_unlock(t);
			psignal(t, SIGSTOP);
			/*
			 * If the process was stopped, wake up and run through
			 * issignal() again to properly connect to the tracing
			 * process.
			 */
			if (stopped)
				task_resume(task);       
			error = 0;
			goto out;
		}
		else {
			/* not allowed to attach, proper error code returned by kauth_authorize_process */
			if (ISSET(t->p_lflag, P_LNOATTACH)) {
				psignal(p, SIGSEGV);
			}
			
			error = err;
			goto out;
		}
	}

	/*
	 * You can't do what you want to the process if:
	 *	(1) It's not being traced at all,
	 */
	proc_lock(t);
	if (!ISSET(t->p_lflag, P_LTRACED)) {
		proc_unlock(t);
		error = EPERM;
		goto out;
	}

	/*
	 *	(2) it's not being traced by _you_, or
	 */
	if (t->p_pptr != p) {
		proc_unlock(t);
		error = EBUSY;
		goto out;
	}

	/*
	 *	(3) it's not currently stopped.
	 */
	if (t->p_stat != SSTOP) {
		proc_unlock(t);
		error = EBUSY;
		goto out;
	}

	/*
	 *	Mach version of ptrace executes request directly here,
	 *	thus simplifying the interaction of ptrace and signals.
	 */
	/* proc lock is held here */
	switch (uap->req) {

	case PT_DETACH:
		if (t->p_oppid != t->p_ppid) {
			struct proc *pp;

			proc_unlock(t);
			pp = proc_find(t->p_oppid);
			if (pp != PROC_NULL) {
				proc_reparentlocked(t, pp, 1, 0);
				proc_rele(pp);
			} else {
				/* original parent exited while traced */
				proc_list_lock();
				t->p_listflag |= P_LIST_DEADPARENT;
				proc_list_unlock();
				proc_reparentlocked(t, initproc, 1, 0);
			}
			proc_lock(t);
		}

		t->p_oppid = 0;
		CLR(t->p_lflag, P_LTRACED);
		CLR(t->p_lflag, P_LSIGEXC);
		proc_unlock(t);
		goto resume;
		
	case PT_KILL:
		/*
		 *	Tell child process to kill itself after it
		 *	is resumed by adding NSIG to p_cursig. [see issig]
		 */
		proc_unlock(t);
#if CONFIG_MACF
		error = mac_proc_check_signal(p, t, SIGKILL);
		if (0 != error)
			goto resume;
#endif
		psignal(t, SIGKILL);
		goto resume;

	case PT_STEP:			/* single step the child */
	case PT_CONTINUE:		/* continue the child */
		proc_unlock(t);
		th_act = (thread_t)get_firstthread(task);
		if (th_act == THREAD_NULL) {
			error = EINVAL;
			goto out;
		}

		/* force use of Mach SPIs (and task_for_pid security checks) to adjust PC */
		if (uap->addr != (user_addr_t)1) {
			error = ENOTSUP;
			goto out;
		}

		if ((unsigned)uap->data >= NSIG) {
			error = EINVAL;
			goto out;
		}

		if (uap->data != 0) {
			psignal(t, uap->data);
                }

		if (uap->req == PT_STEP) {
		        /*
			 * set trace bit 
			 * we use sending SIGSTOP as a comparable security check.
			 */
#if CONFIG_MACF
			error = mac_proc_check_signal(p, t, SIGSTOP);
			if (0 != error) {
				goto out;
			}
#endif
			if (thread_setsinglestep(th_act, 1) != KERN_SUCCESS) {
				error = ENOTSUP;
				goto out;
			}
		} else {
		        /*
			 * clear trace bit if on
			 * we use sending SIGCONT as a comparable security check.
			 */
#if CONFIG_MACF
			error = mac_proc_check_signal(p, t, SIGCONT);
			if (0 != error) {
				goto out;
			}
#endif
			if (thread_setsinglestep(th_act, 0) != KERN_SUCCESS) {
				error = ENOTSUP;
				goto out;
			}
		}	
	resume:
		proc_lock(t);
		t->p_xstat = uap->data;
		t->p_stat = SRUN;
		if (t->sigwait) {
			wakeup((caddr_t)&(t->sigwait));
			proc_unlock(t);
			if ((t->p_lflag & P_LSIGEXC) == 0) {
				task_resume(task);
			}
		} else
			proc_unlock(t);
			
		break;
		
	case PT_THUPDATE:  {
		proc_unlock(t);
		if ((unsigned)uap->data >= NSIG) {
			error = EINVAL;
			goto out;
		}
		th_act = port_name_to_thread(CAST_MACH_PORT_TO_NAME(uap->addr));
		if (th_act == THREAD_NULL)
			return (ESRCH);
		ut = (uthread_t)get_bsdthread_info(th_act);
		if (uap->data)
			ut->uu_siglist |= sigmask(uap->data);
		proc_lock(t);
		t->p_xstat = uap->data;
		t->p_stat = SRUN;
		proc_unlock(t);
		thread_deallocate(th_act);
		error = 0;
		}
		break;
	default:
		proc_unlock(t);
		error = EINVAL;
		goto out;
	}

	error = 0;
out:
	proc_rele(t);
	return(error);
}


/*
 * determine if one process (cur_procp) can trace another process (traced_procp).
 */

int
cantrace(proc_t cur_procp, kauth_cred_t creds, proc_t traced_procp, int *errp)
{
	int		my_err;
	/*
	 * You can't trace a process if:
	 *	(1) it's the process that's doing the tracing,
	 */
	if (traced_procp->p_pid == cur_procp->p_pid) {
		*errp = EINVAL;
		return (0);
	}

	/*
	 *	(2) it's already being traced, or
	 */
	if (ISSET(traced_procp->p_lflag, P_LTRACED)) {
		*errp = EBUSY;
		return (0);
	}

	/*
	 *	(3) it's not owned by you, or is set-id on exec
	 *	    (unless you're root).
	 */
	if ((kauth_cred_getruid(creds) != kauth_cred_getruid(proc_ucred(traced_procp)) ||
		ISSET(traced_procp->p_flag, P_SUGID)) &&
		(my_err = suser(creds, &cur_procp->p_acflag)) != 0) {
		*errp = my_err;
		return (0);
	}

	if ((cur_procp->p_lflag & P_LTRACED) && isinferior(cur_procp, traced_procp)) {
		*errp = EPERM;
		return (0);
	}

	if (ISSET(traced_procp->p_lflag, P_LNOATTACH)) {
		*errp = EBUSY;
		return (0);
	}
	return(1);
}
Commit	Line	Data
1c79356b	1	/*
2d21ac55	2	* Copyright (c) 2000-2006 Apple Computer, Inc. All rights reserved.
5d5c5d0d	3	*
2d21ac55	4	* @APPLE_OSREFERENCE_LICENSE_HEADER_START@
1c79356b	5	*
2d21ac55 A	6	* This file contains Original Code and/or Modifications of Original Code
	7	* as defined in and that are subject to the Apple Public Source License
	8	* Version 2.0 (the 'License'). You may not use this file except in
	9	* compliance with the License. The rights granted to you under the License
	10	* may not be used to create, or enable the creation or redistribution of,
	11	* unlawful or unlicensed copies of an Apple operating system, or to
	12	* circumvent, violate, or enable the circumvention or violation of, any
	13	* terms of an Apple operating system software license agreement.
8f6c56a5	14	*
2d21ac55 A	15	* Please obtain a copy of the License at
	16	* http://www.opensource.apple.com/apsl/ and read it before using this file.
	17	*
	18	* The Original Code and all software distributed under the License are
	19	* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
8f6c56a5 A	20	* EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
8f6c56a5 A	21	* INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
2d21ac55 A	22	* FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
	23	* Please see the License for the specific language governing rights and
	24	* limitations under the License.
8f6c56a5	25	*
2d21ac55	26	* @APPLE_OSREFERENCE_LICENSE_HEADER_END@
1c79356b A	27	*/
	28	/* Copyright (c) 1995 NeXT Computer, Inc. All Rights Reserved */
	29	/*-
	30	* Copyright (c) 1982, 1986, 1989, 1993
	31	* The Regents of the University of California. All rights reserved.
	32	* (c) UNIX System Laboratories, Inc.
	33	* All or some portions of this file are derived from material licensed
	34	* to the University of California by American Telephone and Telegraph
	35	* Co. or Unix System Laboratories, Inc. and are reproduced herein with
	36	* the permission of UNIX System Laboratories, Inc.
	37	*
	38	* Redistribution and use in source and binary forms, with or without
	39	* modification, are permitted provided that the following conditions
	40	* are met:
	41	* 1. Redistributions of source code must retain the above copyright
	42	* notice, this list of conditions and the following disclaimer.
	43	* 2. Redistributions in binary form must reproduce the above copyright
	44	* notice, this list of conditions and the following disclaimer in the
	45	* documentation and/or other materials provided with the distribution.
	46	* 3. All advertising materials mentioning features or use of this software
	47	* must display the following acknowledgement:
	48	* This product includes software developed by the University of
	49	* California, Berkeley and its contributors.
	50	* 4. Neither the name of the University nor the names of its contributors
	51	* may be used to endorse or promote products derived from this software
	52	* without specific prior written permission.
	53	*
	54	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	55	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	56	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	57	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	58	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	59	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	60	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	61	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	62	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	63	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	64	* SUCH DAMAGE.
	65	*
	66	* from: @(#)sys_process.c 8.1 (Berkeley) 6/10/93
	67	*/
1c79356b A	68
	69	#include <machine/reg.h>
	70	#include <machine/psl.h>
	71
	72	#include <sys/param.h>
	73	#include <sys/systm.h>
91447636 A	74	#include <sys/proc_internal.h>
91447636 A	75	#include <sys/kauth.h>
1c79356b A	76	#include <sys/errno.h>
	77	#include <sys/ptrace.h>
	78	#include <sys/uio.h>
	79	#include <sys/user.h>
	80	#include <sys/sysctl.h>
0b4e3aa0	81	#include <sys/wait.h>
1c79356b	82
91447636 A	83	#include <sys/mount_internal.h>
91447636 A	84	#include <sys/sysproto.h>
b0d623f7	85	#include <sys/kdebug.h>
39236c6e	86	#include <sys/codesign.h> /* cs_allow_invalid() */
1c79356b	87
b0d623f7	88	#include <security/audit/audit.h>
e5568f75	89
1c79356b A	90	#include <kern/task.h>
1c79356b A	91	#include <kern/thread.h>
1c79356b	92
2d21ac55 A	93	#include <mach/task.h> /* for task_resume() */
	94	#include <kern/sched_prim.h> /* for thread_exception_return() */
	95
6d2010ae A	96	#include <pexpert/pexpert.h>
6d2010ae A	97
2d21ac55 A	98	/* XXX ken/bsd_kern.c - prototype should be in common header */
2d21ac55 A	99	int get_task_userstop(task_t);
91447636	100
1c79356b A	101	/* Macros to clear/set/test flags. */
	102	#define SET(t, f) (t) \|= (f)
	103	#define CLR(t, f) (t) &= ~(f)
	104	#define ISSET(t, f) ((t) & (f))
	105
91447636	106	extern thread_t port_name_to_thread(mach_port_name_t port_name);
91447636 A	107	extern thread_t get_firstthread(task_t);
91447636 A	108
9bccf70c	109
1c79356b A	110	/*
	111	* sys-trace system call.
	112	*/
9bccf70c	113
1c79356b	114	int
b0d623f7	115	ptrace(struct proc p, struct ptrace_args uap, int32_t *retval)
1c79356b A	116	{
1c79356b A	117	struct proc t = current_proc(); / target process */
1c79356b	118	task_t task;
91447636	119	thread_t th_act;
1c79356b	120	struct uthread *ut;
9bccf70c	121	int tr_sigexc = 0;
2d21ac55 A	122	int error = 0;
2d21ac55 A	123	int stopped = 0;
1c79356b	124
e5568f75 A	125	AUDIT_ARG(cmd, uap->req);
	126	AUDIT_ARG(pid, uap->pid);
	127	AUDIT_ARG(addr, uap->addr);
b0d623f7	128	AUDIT_ARG(value32, uap->data);
1c79356b	129
91447636	130	if (uap->req == PT_DENY_ATTACH) {
2d21ac55 A	131	proc_lock(p);
	132	if (ISSET(p->p_lflag, P_LTRACED)) {
	133	proc_unlock(p);
b0d623f7 A	134	KERNEL_DEBUG_CONSTANT(BSDDBG_CODE(DBG_BSD_PROC, BSD_PROC_FRCEXIT) \| DBG_FUNC_NONE,
b0d623f7 A	135	p->p_pid, W_EXITCODE(ENOTSUP, 0), 4, 0, 0);
91447636 A	136	exit1(p, W_EXITCODE(ENOTSUP, 0), retval);
91447636 A	137	/* drop funnel before we return */
91447636 A	138	thread_exception_return();
	139	/* NOTREACHED */
	140	}
2d21ac55 A	141	SET(p->p_lflag, P_LNOATTACH);
2d21ac55 A	142	proc_unlock(p);
0b4e3aa0 A	143
	144	return(0);
	145	}
	146
9bccf70c	147	if (uap->req == PT_FORCEQUOTA) {
39236c6e	148	if (kauth_cred_issuser(kauth_cred_get())) {
b0d623f7	149	OSBitOrAtomic(P_FORCEQUOTA, &t->p_flag);
9bccf70c A	150	return (0);
	151	} else
	152	return (EPERM);
	153	}
	154
1c79356b A	155	/*
	156	* Intercept and deal with "please trace me" request.
	157	*/
	158	if (uap->req == PT_TRACE_ME) {
2d21ac55 A	159	proc_lock(p);
2d21ac55 A	160	SET(p->p_lflag, P_LTRACED);
1c79356b	161	/* Non-attached case, our tracer is our parent. */
2d21ac55	162	p->p_oppid = p->p_ppid;
b0d623f7 A	163	/* Check whether child and parent are allowed to run modified
	164	* code (they'll have to) */
	165	struct proc *pproc=proc_find(p->p_oppid);
2d21ac55	166	proc_unlock(p);
b0d623f7	167	cs_allow_invalid(p);
6d2010ae A	168	if(pproc) {
	169	cs_allow_invalid(pproc);
	170	proc_rele(pproc);
	171	}
1c79356b A	172	return(0);
1c79356b A	173	}
9bccf70c	174	if (uap->req == PT_SIGEXC) {
2d21ac55 A	175	proc_lock(p);
	176	if (ISSET(p->p_lflag, P_LTRACED)) {
	177	SET(p->p_lflag, P_LSIGEXC);
	178	proc_unlock(p);
9bccf70c	179	return(0);
2d21ac55 A	180	} else {
2d21ac55 A	181	proc_unlock(p);
9bccf70c	182	return(EINVAL);
2d21ac55 A	183	}
	184	}
	185
	186	/*
	187	* We do not want ptrace to do anything with kernel or launchd
	188	*/
	189	if (uap->pid < 2) {
	190	return(EPERM);
9bccf70c	191	}
1c79356b A	192
	193	/*
	194	* Locate victim, and make sure it is traceable.
	195	*/
2d21ac55	196	if ((t = proc_find(uap->pid)) == NULL)
1c79356b A	197	return (ESRCH);
1c79356b A	198
e5568f75 A	199	AUDIT_ARG(process, t);
e5568f75 A	200
1c79356b	201	task = t->task;
9bccf70c A	202	if (uap->req == PT_ATTACHEXC) {
	203	uap->req = PT_ATTACH;
	204	tr_sigexc = 1;
	205	}
1c79356b	206	if (uap->req == PT_ATTACH) {
91447636 A	207	int err;
	208
	209	if ( kauth_authorize_process(proc_ucred(p), KAUTH_PROCESS_CANTRACE,
	210	t, (uintptr_t)&err, 0, 0) == 0 ) {
	211	/* it's OK to attach */
2d21ac55 A	212	proc_lock(t);
2d21ac55 A	213	SET(t->p_lflag, P_LTRACED);
91447636	214	if (tr_sigexc)
2d21ac55	215	SET(t->p_lflag, P_LSIGEXC);
91447636	216
2d21ac55	217	t->p_oppid = t->p_ppid;
b0d623f7 A	218	/* Check whether child and parent are allowed to run modified
b0d623f7 A	219	* code (they'll have to) */
2d21ac55	220	proc_unlock(t);
b0d623f7 A	221	cs_allow_invalid(t);
b0d623f7 A	222	cs_allow_invalid(p);
91447636	223	if (t->p_pptr != p)
2d21ac55	224	proc_reparentlocked(t, p, 1, 0);
91447636	225
2d21ac55 A	226	proc_lock(t);
	227	if (get_task_userstop(task) > 0 ) {
	228	stopped = 1;
91447636	229	}
2d21ac55 A	230	t->p_xstat = 0;
	231	proc_unlock(t);
	232	psignal(t, SIGSTOP);
	233	/*
	234	* If the process was stopped, wake up and run through
	235	* issignal() again to properly connect to the tracing
	236	* process.
	237	*/
	238	if (stopped)
	239	task_resume(task);
	240	error = 0;
	241	goto out;
0b4e3aa0	242	}
91447636 A	243	else {
91447636 A	244	/* not allowed to attach, proper error code returned by kauth_authorize_process */
2d21ac55	245	if (ISSET(t->p_lflag, P_LNOATTACH)) {
91447636 A	246	psignal(p, SIGSEGV);
91447636 A	247	}
2d21ac55 A	248
	249	error = err;
	250	goto out;
1c79356b	251	}
1c79356b A	252	}
	253
	254	/*
	255	* You can't do what you want to the process if:
	256	* (1) It's not being traced at all,
	257	*/
2d21ac55 A	258	proc_lock(t);
	259	if (!ISSET(t->p_lflag, P_LTRACED)) {
	260	proc_unlock(t);
	261	error = EPERM;
	262	goto out;
	263	}
1c79356b A	264
	265	/*
	266	* (2) it's not being traced by _you_, or
	267	*/
2d21ac55 A	268	if (t->p_pptr != p) {
	269	proc_unlock(t);
	270	error = EBUSY;
	271	goto out;
	272	}
1c79356b A	273
	274	/*
	275	* (3) it's not currently stopped.
	276	*/
2d21ac55 A	277	if (t->p_stat != SSTOP) {
	278	proc_unlock(t);
	279	error = EBUSY;
	280	goto out;
	281	}
1c79356b A	282
	283	/*
	284	* Mach version of ptrace executes request directly here,
	285	* thus simplifying the interaction of ptrace and signals.
	286	*/
2d21ac55	287	/* proc lock is held here */
1c79356b A	288	switch (uap->req) {
	289
	290	case PT_DETACH:
2d21ac55	291	if (t->p_oppid != t->p_ppid) {
1c79356b A	292	struct proc *pp;
1c79356b A	293
2d21ac55 A	294	proc_unlock(t);
2d21ac55 A	295	pp = proc_find(t->p_oppid);
39236c6e A	296	if (pp != PROC_NULL) {
39236c6e A	297	proc_reparentlocked(t, pp, 1, 0);
2d21ac55	298	proc_rele(pp);
39236c6e A	299	} else {
	300	/* original parent exited while traced */
	301	proc_list_lock();
	302	t->p_listflag \|= P_LIST_DEADPARENT;
	303	proc_list_unlock();
	304	proc_reparentlocked(t, initproc, 1, 0);
	305	}
2d21ac55	306	proc_lock(t);
1c79356b A	307	}
	308
	309	t->p_oppid = 0;
2d21ac55 A	310	CLR(t->p_lflag, P_LTRACED);
	311	CLR(t->p_lflag, P_LSIGEXC);
	312	proc_unlock(t);
1c79356b A	313	goto resume;
	314
	315	case PT_KILL:
	316	/*
	317	* Tell child process to kill itself after it
	318	* is resumed by adding NSIG to p_cursig. [see issig]
	319	*/
2d21ac55	320	proc_unlock(t);
39236c6e	321	#if CONFIG_MACF
316670eb A	322	error = mac_proc_check_signal(p, t, SIGKILL);
	323	if (0 != error)
	324	goto resume;
	325	#endif
2d21ac55	326	psignal(t, SIGKILL);
1c79356b A	327	goto resume;
	328
	329	case PT_STEP: /* single step the child */
	330	case PT_CONTINUE: /* continue the child */
2d21ac55	331	proc_unlock(t);
91447636	332	th_act = (thread_t)get_firstthread(task);
2d21ac55 A	333	if (th_act == THREAD_NULL) {
	334	error = EINVAL;
	335	goto out;
	336	}
0c530ab8	337
13f56ec4	338	/* force use of Mach SPIs (and task_for_pid security checks) to adjust PC */
91447636	339	if (uap->addr != (user_addr_t)1) {
13f56ec4 A	340	error = ENOTSUP;
13f56ec4 A	341	goto out;
0c530ab8	342	}
1c79356b	343
2d21ac55 A	344	if ((unsigned)uap->data >= NSIG) {
	345	error = EINVAL;
	346	goto out;
	347	}
1c79356b A	348
1c79356b A	349	if (uap->data != 0) {
2d21ac55	350	psignal(t, uap->data);
1c79356b	351	}
1c79356b A	352
1c79356b A	353	if (uap->req == PT_STEP) {
0c530ab8	354	/*
316670eb A	355	* set trace bit
316670eb A	356	* we use sending SIGSTOP as a comparable security check.
0c530ab8	357	*/
39236c6e	358	#if CONFIG_MACF
316670eb A	359	error = mac_proc_check_signal(p, t, SIGSTOP);
	360	if (0 != error) {
	361	goto out;
	362	}
	363	#endif
2d21ac55 A	364	if (thread_setsinglestep(th_act, 1) != KERN_SUCCESS) {
	365	error = ENOTSUP;
	366	goto out;
	367	}
0c530ab8 A	368	} else {
	369	/*
	370	* clear trace bit if on
316670eb	371	* we use sending SIGCONT as a comparable security check.
0c530ab8	372	*/
39236c6e	373	#if CONFIG_MACF
316670eb A	374	error = mac_proc_check_signal(p, t, SIGCONT);
	375	if (0 != error) {
	376	goto out;
	377	}
	378	#endif
2d21ac55 A	379	if (thread_setsinglestep(th_act, 0) != KERN_SUCCESS) {
	380	error = ENOTSUP;
	381	goto out;
	382	}
	383	}
1c79356b	384	resume:
2d21ac55	385	proc_lock(t);
1c79356b A	386	t->p_xstat = uap->data;
	387	t->p_stat = SRUN;
	388	if (t->sigwait) {
	389	wakeup((caddr_t)&(t->sigwait));
2d21ac55 A	390	proc_unlock(t);
	391	if ((t->p_lflag & P_LSIGEXC) == 0) {
	392	task_resume(task);
	393	}
	394	} else
	395	proc_unlock(t);
	396
1c79356b A	397	break;
1c79356b A	398
9bccf70c	399	case PT_THUPDATE: {
2d21ac55 A	400	proc_unlock(t);
	401	if ((unsigned)uap->data >= NSIG) {
	402	error = EINVAL;
	403	goto out;
	404	}
b0d623f7	405	th_act = port_name_to_thread(CAST_MACH_PORT_TO_NAME(uap->addr));
91447636	406	if (th_act == THREAD_NULL)
9bccf70c A	407	return (ESRCH);
	408	ut = (uthread_t)get_bsdthread_info(th_act);
	409	if (uap->data)
	410	ut->uu_siglist \|= sigmask(uap->data);
2d21ac55	411	proc_lock(t);
9bccf70c A	412	t->p_xstat = uap->data;
9bccf70c A	413	t->p_stat = SRUN;
2d21ac55	414	proc_unlock(t);
91447636	415	thread_deallocate(th_act);
2d21ac55	416	error = 0;
9bccf70c A	417	}
9bccf70c A	418	break;
1c79356b	419	default:
2d21ac55 A	420	proc_unlock(t);
	421	error = EINVAL;
	422	goto out;
1c79356b	423	}
9bccf70c	424
2d21ac55 A	425	error = 0;
	426	out:
	427	proc_rele(t);
	428	return(error);
1c79356b A	429	}
1c79356b A	430
91447636 A	431
	432	/*
	433	* determine if one process (cur_procp) can trace another process (traced_procp).
	434	*/
	435
	436	int
	437	cantrace(proc_t cur_procp, kauth_cred_t creds, proc_t traced_procp, int *errp)
	438	{
	439	int my_err;
	440	/*
	441	* You can't trace a process if:
	442	* (1) it's the process that's doing the tracing,
	443	*/
	444	if (traced_procp->p_pid == cur_procp->p_pid) {
	445	*errp = EINVAL;
	446	return (0);
	447	}
	448
	449	/*
	450	* (2) it's already being traced, or
	451	*/
2d21ac55	452	if (ISSET(traced_procp->p_lflag, P_LTRACED)) {
91447636 A	453	*errp = EBUSY;
	454	return (0);
	455	}
	456
	457	/*
	458	* (3) it's not owned by you, or is set-id on exec
	459	* (unless you're root).
	460	*/
6d2010ae	461	if ((kauth_cred_getruid(creds) != kauth_cred_getruid(proc_ucred(traced_procp)) \|\|
91447636 A	462	ISSET(traced_procp->p_flag, P_SUGID)) &&
	463	(my_err = suser(creds, &cur_procp->p_acflag)) != 0) {
	464	*errp = my_err;
	465	return (0);
	466	}
	467
2d21ac55	468	if ((cur_procp->p_lflag & P_LTRACED) && isinferior(cur_procp, traced_procp)) {
91447636 A	469	*errp = EPERM;
	470	return (0);
	471	}
	472
2d21ac55	473	if (ISSET(traced_procp->p_lflag, P_LNOATTACH)) {
91447636 A	474	*errp = EBUSY;
	475	return (0);
	476	}
	477	return(1);
	478	}