ptrace.c 32.6 KB
Newer Older
Linus Torvalds's avatar
Linus Torvalds committed
1 2 3 4 5 6 7 8 9
/*
 * linux/kernel/ptrace.c
 *
 * (C) Copyright 1999 Linus Torvalds
 *
 * Common interfaces for "ptrace()" which we do not want
 * to continually duplicate across every architecture.
 */

10
#include <linux/capability.h>
11
#include <linux/export.h>
Linus Torvalds's avatar
Linus Torvalds committed
12
#include <linux/sched.h>
13
#include <linux/sched/mm.h>
14
#include <linux/sched/coredump.h>
15
#include <linux/sched/task.h>
Linus Torvalds's avatar
Linus Torvalds committed
16 17 18 19 20 21
#include <linux/errno.h>
#include <linux/mm.h>
#include <linux/highmem.h>
#include <linux/pagemap.h>
#include <linux/ptrace.h>
#include <linux/security.h>
22
#include <linux/signal.h>
23
#include <linux/uio.h>
Al Viro's avatar
Al Viro committed
24
#include <linux/audit.h>
25
#include <linux/pid_namespace.h>
26
#include <linux/syscalls.h>
27
#include <linux/uaccess.h>
28
#include <linux/regset.h>
29
#include <linux/hw_breakpoint.h>
30
#include <linux/cn_proc.h>
31
#include <linux/compat.h>
Linus Torvalds's avatar
Linus Torvalds committed
32

33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
/*
 * Access another process' address space via ptrace.
 * Source/target buffer must be kernel space,
 * Do not walk the page table directly, use get_user_pages
 */
int ptrace_access_vm(struct task_struct *tsk, unsigned long addr,
		     void *buf, int len, unsigned int gup_flags)
{
	struct mm_struct *mm;
	int ret;

	mm = get_task_mm(tsk);
	if (!mm)
		return 0;

	if (!tsk->ptrace ||
	    (current != tsk->parent) ||
	    ((get_dumpable(mm) != SUID_DUMP_USER) &&
	     !ptracer_capable(tsk, mm->user_ns))) {
		mmput(mm);
		return 0;
	}

	ret = __access_remote_vm(tsk, mm, addr, buf, len, gup_flags);
	mmput(mm);

	return ret;
}

62

63 64 65 66 67 68 69 70 71
void __ptrace_link(struct task_struct *child, struct task_struct *new_parent,
		   const struct cred *ptracer_cred)
{
	BUG_ON(!list_empty(&child->ptrace_entry));
	list_add(&child->ptrace_entry, &new_parent->ptraced);
	child->parent = new_parent;
	child->ptracer_cred = get_cred(ptracer_cred);
}

Linus Torvalds's avatar
Linus Torvalds committed
72 73 74 75 76 77
/*
 * ptrace a task: make the debugger its new parent and
 * move it to the ptrace list.
 *
 * Must be called with the tasklist lock write-held.
 */
78
static void ptrace_link(struct task_struct *child, struct task_struct *new_parent)
Linus Torvalds's avatar
Linus Torvalds committed
79
{
80
	rcu_read_lock();
81
	__ptrace_link(child, new_parent, __task_cred(new_parent));
82
	rcu_read_unlock();
Linus Torvalds's avatar
Linus Torvalds committed
83
}
84

85 86 87
/**
 * __ptrace_unlink - unlink ptracee and restore its execution state
 * @child: ptracee to be unlinked
Linus Torvalds's avatar
Linus Torvalds committed
88
 *
89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108
 * Remove @child from the ptrace list, move it back to the original parent,
 * and restore the execution state so that it conforms to the group stop
 * state.
 *
 * Unlinking can happen via two paths - explicit PTRACE_DETACH or ptracer
 * exiting.  For PTRACE_DETACH, unless the ptracee has been killed between
 * ptrace_check_attach() and here, it's guaranteed to be in TASK_TRACED.
 * If the ptracer is exiting, the ptracee can be in any state.
 *
 * After detach, the ptracee should be in a state which conforms to the
 * group stop.  If the group is stopped or in the process of stopping, the
 * ptracee should be put into TASK_STOPPED; otherwise, it should be woken
 * up from TASK_TRACED.
 *
 * If the ptracee is in TASK_TRACED and needs to be moved to TASK_STOPPED,
 * it goes through TRACED -> RUNNING -> STOPPED transition which is similar
 * to but in the opposite direction of what happens while attaching to a
 * stopped task.  However, in this direction, the intermediate RUNNING
 * state is not hidden even from the current ptracer and if it immediately
 * re-attaches and performs a WNOHANG wait(2), it may fail.
109 110 111
 *
 * CONTEXT:
 * write_lock_irq(tasklist_lock)
Linus Torvalds's avatar
Linus Torvalds committed
112
 */
113
void __ptrace_unlink(struct task_struct *child)
Linus Torvalds's avatar
Linus Torvalds committed
114
{
115
	const struct cred *old_cred;
116 117
	BUG_ON(!child->ptrace);

118 119
	clear_tsk_thread_flag(child, TIF_SYSCALL_TRACE);

Roland McGrath's avatar
Roland McGrath committed
120 121
	child->parent = child->real_parent;
	list_del_init(&child->ptrace_entry);
122 123 124
	old_cred = child->ptracer_cred;
	child->ptracer_cred = NULL;
	put_cred(old_cred);
Linus Torvalds's avatar
Linus Torvalds committed
125 126

	spin_lock(&child->sighand->siglock);
127
	child->ptrace = 0;
128 129 130 131 132 133 134
	/*
	 * Clear all pending traps and TRAPPING.  TRAPPING should be
	 * cleared regardless of JOBCTL_STOP_PENDING.  Do it explicitly.
	 */
	task_clear_jobctl_pending(child, JOBCTL_TRAP_MASK);
	task_clear_jobctl_trapping(child);

135
	/*
136
	 * Reinstate JOBCTL_STOP_PENDING if group stop is in effect and
137 138 139 140
	 * @child isn't dead.
	 */
	if (!(child->flags & PF_EXITING) &&
	    (child->signal->flags & SIGNAL_STOP_STOPPED ||
141
	     child->signal->group_stop_count)) {
142
		child->jobctl |= JOBCTL_STOP_PENDING;
143

144 145 146 147 148 149 150 151 152 153 154
		/*
		 * This is only possible if this thread was cloned by the
		 * traced task running in the stopped group, set the signal
		 * for the future reports.
		 * FIXME: we should change ptrace_init_task() to handle this
		 * case.
		 */
		if (!(child->jobctl & JOBCTL_STOP_SIGMASK))
			child->jobctl |= SIGSTOP;
	}

155 156 157 158 159 160
	/*
	 * If transition to TASK_STOPPED is pending or in TASK_TRACED, kick
	 * @child in the butt.  Note that @resume should be used iff @child
	 * is in TASK_TRACED; otherwise, we might unduly disrupt
	 * TASK_KILLABLE sleeps.
	 */
161
	if (child->jobctl & JOBCTL_STOP_PENDING || task_is_traced(child))
162
		ptrace_signal_wake_up(child, true);
163

Linus Torvalds's avatar
Linus Torvalds committed
164 165 166
	spin_unlock(&child->sighand->siglock);
}

167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192
/* Ensure that nothing can wake it up, even SIGKILL */
static bool ptrace_freeze_traced(struct task_struct *task)
{
	bool ret = false;

	/* Lockless, nobody but us can set this flag */
	if (task->jobctl & JOBCTL_LISTENING)
		return ret;

	spin_lock_irq(&task->sighand->siglock);
	if (task_is_traced(task) && !__fatal_signal_pending(task)) {
		task->state = __TASK_TRACED;
		ret = true;
	}
	spin_unlock_irq(&task->sighand->siglock);

	return ret;
}

static void ptrace_unfreeze_traced(struct task_struct *task)
{
	if (task->state != __TASK_TRACED)
		return;

	WARN_ON(!task->ptrace || task->parent != current);

193 194 195 196
	/*
	 * PTRACE_LISTEN can allow ptrace_trap_notify to wake us up remotely.
	 * Recheck state under the lock to close this race.
	 */
197
	spin_lock_irq(&task->sighand->siglock);
198 199 200 201 202 203
	if (task->state == __TASK_TRACED) {
		if (__fatal_signal_pending(task))
			wake_up_state(task, __TASK_TRACED);
		else
			task->state = TASK_TRACED;
	}
204 205 206
	spin_unlock_irq(&task->sighand->siglock);
}

207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222
/**
 * ptrace_check_attach - check whether ptracee is ready for ptrace operation
 * @child: ptracee to check for
 * @ignore_state: don't check whether @child is currently %TASK_TRACED
 *
 * Check whether @child is being ptraced by %current and ready for further
 * ptrace operations.  If @ignore_state is %false, @child also should be in
 * %TASK_TRACED state and on return the child is guaranteed to be traced
 * and not executing.  If @ignore_state is %true, @child can be in any
 * state.
 *
 * CONTEXT:
 * Grabs and releases tasklist_lock and @child->sighand->siglock.
 *
 * RETURNS:
 * 0 on success, -ESRCH if %child is not ready.
Linus Torvalds's avatar
Linus Torvalds committed
223
 */
224
static int ptrace_check_attach(struct task_struct *child, bool ignore_state)
Linus Torvalds's avatar
Linus Torvalds committed
225 226 227 228 229 230 231 232 233 234 235
{
	int ret = -ESRCH;

	/*
	 * We take the read lock around doing both checks to close a
	 * possible race where someone else was tracing our child and
	 * detached between these two checks.  After this locked check,
	 * we are sure that this is our traced child and that can only
	 * be changed by us so it's not changing right after this.
	 */
	read_lock(&tasklist_lock);
236 237
	if (child->ptrace && child->parent == current) {
		WARN_ON(child->state == __TASK_TRACED);
238 239 240 241
		/*
		 * child->sighand can't be NULL, release_task()
		 * does ptrace_unlink() before __exit_signal().
		 */
242
		if (ignore_state || ptrace_freeze_traced(child))
243
			ret = 0;
Linus Torvalds's avatar
Linus Torvalds committed
244 245 246
	}
	read_unlock(&tasklist_lock);

247 248 249 250 251 252 253 254 255 256 257
	if (!ret && !ignore_state) {
		if (!wait_task_inactive(child, __TASK_TRACED)) {
			/*
			 * This can only happen if may_ptrace_stop() fails and
			 * ptrace_stop() changes ->state back to TASK_RUNNING,
			 * so we should not worry about leaking __TASK_TRACED.
			 */
			WARN_ON(child->state == __TASK_TRACED);
			ret = -ESRCH;
		}
	}
Linus Torvalds's avatar
Linus Torvalds committed
258 259 260 261

	return ret;
}

262 263 264 265 266 267 268 269
static int ptrace_has_cap(struct user_namespace *ns, unsigned int mode)
{
	if (mode & PTRACE_MODE_NOAUDIT)
		return has_ns_capability_noaudit(current, ns, CAP_SYS_PTRACE);
	else
		return has_ns_capability(current, ns, CAP_SYS_PTRACE);
}

270 271
/* Returns 0 on success, -errno on denial. */
static int __ptrace_may_access(struct task_struct *task, unsigned int mode)
272
{
273
	const struct cred *cred = current_cred(), *tcred;
274
	struct mm_struct *mm;
275 276 277 278 279 280 281
	kuid_t caller_uid;
	kgid_t caller_gid;

	if (!(mode & PTRACE_MODE_FSCREDS) == !(mode & PTRACE_MODE_REALCREDS)) {
		WARN(1, "denying ptrace access check without PTRACE_MODE_*CREDS\n");
		return -EPERM;
	}
282

283 284 285 286 287 288 289 290
	/* May we inspect the given task?
	 * This check is used both for attaching with ptrace
	 * and for allowing access to sensitive information in /proc.
	 *
	 * ptrace_attach denies several cases that /proc allows
	 * because setting up the necessary parent/child relationship
	 * or halting the specified task is impossible.
	 */
291

292
	/* Don't let security modules deny introspection */
293
	if (same_thread_group(task, current))
294
		return 0;
295
	rcu_read_lock();
296 297 298 299 300 301 302 303 304 305 306 307 308 309 310
	if (mode & PTRACE_MODE_FSCREDS) {
		caller_uid = cred->fsuid;
		caller_gid = cred->fsgid;
	} else {
		/*
		 * Using the euid would make more sense here, but something
		 * in userland might rely on the old behavior, and this
		 * shouldn't be a security problem since
		 * PTRACE_MODE_REALCREDS implies that the caller explicitly
		 * used a syscall that requests access to another process
		 * (and not a filesystem syscall to procfs).
		 */
		caller_uid = cred->uid;
		caller_gid = cred->gid;
	}
311
	tcred = __task_cred(task);
312 313 314 315 316 317
	if (uid_eq(caller_uid, tcred->euid) &&
	    uid_eq(caller_uid, tcred->suid) &&
	    uid_eq(caller_uid, tcred->uid)  &&
	    gid_eq(caller_gid, tcred->egid) &&
	    gid_eq(caller_gid, tcred->sgid) &&
	    gid_eq(caller_gid, tcred->gid))
318
		goto ok;
319
	if (ptrace_has_cap(tcred->user_ns, mode))
320 321 322 323
		goto ok;
	rcu_read_unlock();
	return -EPERM;
ok:
324
	rcu_read_unlock();
325 326 327 328 329
	mm = task->mm;
	if (mm &&
	    ((get_dumpable(mm) != SUID_DUMP_USER) &&
	     !ptrace_has_cap(mm->user_ns, mode)))
	    return -EPERM;
330

331
	return security_ptrace_access_check(task, mode);
332 333
}

334
bool ptrace_may_access(struct task_struct *task, unsigned int mode)
335 336 337
{
	int err;
	task_lock(task);
338
	err = __ptrace_may_access(task, mode);
339
	task_unlock(task);
340
	return !err;
341 342
}

343
static int ptrace_attach(struct task_struct *task, long request,
344
			 unsigned long addr,
345
			 unsigned long flags)
Linus Torvalds's avatar
Linus Torvalds committed
346
{
347
	bool seize = (request == PTRACE_SEIZE);
Linus Torvalds's avatar
Linus Torvalds committed
348
	int retval;
349

350
	retval = -EIO;
351 352 353 354 355 356 357 358 359
	if (seize) {
		if (addr != 0)
			goto out;
		if (flags & ~(unsigned long)PTRACE_O_MASK)
			goto out;
		flags = PT_PTRACED | PT_SEIZED | (flags << PT_OPT_FLAG_SHIFT);
	} else {
		flags = PT_PTRACED;
	}
360

Al Viro's avatar
Al Viro committed
361 362
	audit_ptrace(task);

Linus Torvalds's avatar
Linus Torvalds committed
363
	retval = -EPERM;
364 365
	if (unlikely(task->flags & PF_KTHREAD))
		goto out;
366
	if (same_thread_group(task, current))
367 368
		goto out;

369 370
	/*
	 * Protect exec's credential calculations against our interference;
371
	 * SUID, SGID and LSM creds get determined differently
372
	 * under ptrace.
373
	 */
374
	retval = -ERESTARTNOINTR;
375
	if (mutex_lock_interruptible(&task->signal->cred_guard_mutex))
376
		goto out;
377

378
	task_lock(task);
379
	retval = __ptrace_may_access(task, PTRACE_MODE_ATTACH_REALCREDS);
380
	task_unlock(task);
Linus Torvalds's avatar
Linus Torvalds committed
381
	if (retval)
382
		goto unlock_creds;
Linus Torvalds's avatar
Linus Torvalds committed
383

384
	write_lock_irq(&tasklist_lock);
385 386
	retval = -EPERM;
	if (unlikely(task->exit_state))
387
		goto unlock_tasklist;
388
	if (task->ptrace)
389
		goto unlock_tasklist;
390

391
	if (seize)
392 393
		flags |= PT_SEIZED;
	task->ptrace = flags;
Linus Torvalds's avatar
Linus Torvalds committed
394

395
	ptrace_link(task, current);
396 397 398 399

	/* SEIZE doesn't trap tracee on attach */
	if (!seize)
		send_sig_info(SIGSTOP, SEND_SIG_FORCED, task);
400

401 402 403
	spin_lock(&task->sighand->siglock);

	/*
404
	 * If the task is already STOPPED, set JOBCTL_TRAP_STOP and
405 406 407 408 409 410 411 412 413 414 415 416 417 418 419
	 * TRAPPING, and kick it so that it transits to TRACED.  TRAPPING
	 * will be cleared if the child completes the transition or any
	 * event which clears the group stop states happens.  We'll wait
	 * for the transition to complete before returning from this
	 * function.
	 *
	 * This hides STOPPED -> RUNNING -> TRACED transition from the
	 * attaching thread but a different thread in the same group can
	 * still observe the transient RUNNING state.  IOW, if another
	 * thread's WNOHANG wait(2) on the stopped tracee races against
	 * ATTACH, the wait(2) may fail due to the transient RUNNING.
	 *
	 * The following task_is_stopped() test is safe as both transitions
	 * in and out of STOPPED are protected by siglock.
	 */
420
	if (task_is_stopped(task) &&
421
	    task_set_jobctl_pending(task, JOBCTL_TRAP_STOP | JOBCTL_TRAPPING))
422
		signal_wake_up_state(task, __TASK_STOPPED);
423 424 425

	spin_unlock(&task->sighand->siglock);

426
	retval = 0;
427 428 429
unlock_tasklist:
	write_unlock_irq(&tasklist_lock);
unlock_creds:
430
	mutex_unlock(&task->signal->cred_guard_mutex);
431
out:
432
	if (!retval) {
433 434 435 436 437 438 439 440
		/*
		 * We do not bother to change retval or clear JOBCTL_TRAPPING
		 * if wait_on_bit() was interrupted by SIGKILL. The tracer will
		 * not return to user-mode, it will exit and clear this bit in
		 * __ptrace_unlink() if it wasn't already cleared by the tracee;
		 * and until then nobody can ptrace this task.
		 */
		wait_on_bit(&task->jobctl, JOBCTL_TRAPPING_BIT, TASK_KILLABLE);
441 442 443
		proc_ptrace_connector(task, PTRACE_ATTACH);
	}

Linus Torvalds's avatar
Linus Torvalds committed
444 445 446
	return retval;
}

447 448 449 450 451 452
/**
 * ptrace_traceme  --  helper for PTRACE_TRACEME
 *
 * Performs checks and sets PT_PTRACED.
 * Should be used by all ptrace implementations for PTRACE_TRACEME.
 */
453
static int ptrace_traceme(void)
454 455 456
{
	int ret = -EPERM;

457 458
	write_lock_irq(&tasklist_lock);
	/* Are we already being traced? */
459 460 461 462 463 464 465 466 467
	if (!current->ptrace) {
		ret = security_ptrace_traceme(current->parent);
		/*
		 * Check PF_EXITING to ensure ->real_parent has not passed
		 * exit_ptrace(). Otherwise we don't report the error but
		 * pretend ->real_parent untraces us right after return.
		 */
		if (!ret && !(current->real_parent->flags & PF_EXITING)) {
			current->ptrace = PT_PTRACED;
468
			ptrace_link(current, current->real_parent);
469 470
		}
	}
471 472
	write_unlock_irq(&tasklist_lock);

473 474 475
	return ret;
}

476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498
/*
 * Called with irqs disabled, returns true if childs should reap themselves.
 */
static int ignoring_children(struct sighand_struct *sigh)
{
	int ret;
	spin_lock(&sigh->siglock);
	ret = (sigh->action[SIGCHLD-1].sa.sa_handler == SIG_IGN) ||
	      (sigh->action[SIGCHLD-1].sa.sa_flags & SA_NOCLDWAIT);
	spin_unlock(&sigh->siglock);
	return ret;
}

/*
 * Called with tasklist_lock held for writing.
 * Unlink a traced task, and clean it up if it was a traced zombie.
 * Return true if it needs to be reaped with release_task().
 * (We can't call release_task() here because we already hold tasklist_lock.)
 *
 * If it's a zombie, our attachedness prevented normal parent notification
 * or self-reaping.  Do notification now if it would have happened earlier.
 * If it should reap itself, return true.
 *
499 500 501 502
 * If it's our own child, there is no notification to do. But if our normal
 * children self-reap, then this child was prevented by ptrace and we must
 * reap it now, in that case we must also wake up sub-threads sleeping in
 * do_wait().
503 504 505
 */
static bool __ptrace_detach(struct task_struct *tracer, struct task_struct *p)
{
506 507
	bool dead;

508 509
	__ptrace_unlink(p);

510 511 512 513 514 515 516 517 518 519 520
	if (p->exit_state != EXIT_ZOMBIE)
		return false;

	dead = !thread_group_leader(p);

	if (!dead && thread_group_empty(p)) {
		if (!same_thread_group(p->real_parent, tracer))
			dead = do_notify_parent(p, p->exit_signal);
		else if (ignoring_children(tracer->sighand)) {
			__wake_up_parent(p, tracer);
			dead = true;
521 522
		}
	}
523 524 525 526
	/* Mark it as in the process of being reaped. */
	if (dead)
		p->exit_state = EXIT_DEAD;
	return dead;
527 528
}

529
static int ptrace_detach(struct task_struct *child, unsigned int data)
Linus Torvalds's avatar
Linus Torvalds committed
530
{
531
	if (!valid_signal(data))
532
		return -EIO;
Linus Torvalds's avatar
Linus Torvalds committed
533 534 535 536

	/* Architecture-specific hardware disable .. */
	ptrace_disable(child);

537
	write_lock_irq(&tasklist_lock);
538
	/*
539 540
	 * We rely on ptrace_freeze_traced(). It can't be killed and
	 * untraced by another thread, it can't be a zombie.
541
	 */
542 543 544 545 546 547 548
	WARN_ON(!child->ptrace || child->exit_state);
	/*
	 * tasklist_lock avoids the race with wait_task_stopped(), see
	 * the comment in ptrace_resume().
	 */
	child->exit_code = data;
	__ptrace_detach(current, child);
Linus Torvalds's avatar
Linus Torvalds committed
549 550
	write_unlock_irq(&tasklist_lock);

551
	proc_ptrace_connector(child, PTRACE_DETACH);
552

Linus Torvalds's avatar
Linus Torvalds committed
553 554 555
	return 0;
}

556
/*
557
 * Detach all tasks we were using ptrace on. Called with tasklist held
558
 * for writing.
559
 */
560
void exit_ptrace(struct task_struct *tracer, struct list_head *dead)
561 562
{
	struct task_struct *p, *n;
563

564
	list_for_each_entry_safe(p, n, &tracer->ptraced, ptrace_entry) {
565 566 567
		if (unlikely(p->ptrace & PT_EXITKILL))
			send_sig_info(SIGKILL, SEND_SIG_FORCED, p);

568
		if (__ptrace_detach(tracer, p))
569
			list_add(&p->ptrace_entry, dead);
570 571 572
	}
}

Linus Torvalds's avatar
Linus Torvalds committed
573 574 575 576 577 578 579 580 581
int ptrace_readdata(struct task_struct *tsk, unsigned long src, char __user *dst, int len)
{
	int copied = 0;

	while (len > 0) {
		char buf[128];
		int this_len, retval;

		this_len = (len > sizeof(buf)) ? sizeof(buf) : len;
582 583
		retval = ptrace_access_vm(tsk, src, buf, this_len, FOLL_FORCE);

Linus Torvalds's avatar
Linus Torvalds committed
584 585 586 587 588 589 590 591 592 593
		if (!retval) {
			if (copied)
				break;
			return -EIO;
		}
		if (copy_to_user(dst, buf, retval))
			return -EFAULT;
		copied += retval;
		src += retval;
		dst += retval;
594
		len -= retval;
Linus Torvalds's avatar
Linus Torvalds committed
595 596 597 598 599 600 601 602 603 604 605 606 607 608 609
	}
	return copied;
}

int ptrace_writedata(struct task_struct *tsk, char __user *src, unsigned long dst, int len)
{
	int copied = 0;

	while (len > 0) {
		char buf[128];
		int this_len, retval;

		this_len = (len > sizeof(buf)) ? sizeof(buf) : len;
		if (copy_from_user(buf, src, this_len))
			return -EFAULT;
610
		retval = ptrace_access_vm(tsk, dst, buf, this_len,
611
				FOLL_FORCE | FOLL_WRITE);
Linus Torvalds's avatar
Linus Torvalds committed
612 613 614 615 616 617 618 619
		if (!retval) {
			if (copied)
				break;
			return -EIO;
		}
		copied += retval;
		src += retval;
		dst += retval;
620
		len -= retval;
Linus Torvalds's avatar
Linus Torvalds committed
621 622 623 624
	}
	return copied;
}

625
static int ptrace_setoptions(struct task_struct *child, unsigned long data)
Linus Torvalds's avatar
Linus Torvalds committed
626
{
627 628
	unsigned flags;

629 630 631
	if (data & ~(unsigned long)PTRACE_O_MASK)
		return -EINVAL;

632
	if (unlikely(data & PTRACE_O_SUSPEND_SECCOMP)) {
633 634
		if (!IS_ENABLED(CONFIG_CHECKPOINT_RESTORE) ||
		    !IS_ENABLED(CONFIG_SECCOMP))
635 636 637 638 639 640 641 642 643 644
			return -EINVAL;

		if (!capable(CAP_SYS_ADMIN))
			return -EPERM;

		if (seccomp_mode(&current->seccomp) != SECCOMP_MODE_DISABLED ||
		    current->ptrace & PT_SUSPEND_SECCOMP)
			return -EPERM;
	}

645 646 647 648 649
	/* Avoid intermediate state when all opts are cleared */
	flags = child->ptrace;
	flags &= ~(PTRACE_O_MASK << PT_OPT_FLAG_SHIFT);
	flags |= (data << PT_OPT_FLAG_SHIFT);
	child->ptrace = flags;
Linus Torvalds's avatar
Linus Torvalds committed
650

651
	return 0;
Linus Torvalds's avatar
Linus Torvalds committed
652 653
}

654
static int ptrace_getsiginfo(struct task_struct *child, siginfo_t *info)
Linus Torvalds's avatar
Linus Torvalds committed
655
{
656
	unsigned long flags;
Linus Torvalds's avatar
Linus Torvalds committed
657 658
	int error = -ESRCH;

659
	if (lock_task_sighand(child, &flags)) {
Linus Torvalds's avatar
Linus Torvalds committed
660 661
		error = -EINVAL;
		if (likely(child->last_siginfo != NULL)) {
662
			*info = *child->last_siginfo;
Linus Torvalds's avatar
Linus Torvalds committed
663 664
			error = 0;
		}
665
		unlock_task_sighand(child, &flags);
Linus Torvalds's avatar
Linus Torvalds committed
666 667 668 669
	}
	return error;
}

670
static int ptrace_setsiginfo(struct task_struct *child, const siginfo_t *info)
Linus Torvalds's avatar
Linus Torvalds committed
671
{
672
	unsigned long flags;
Linus Torvalds's avatar
Linus Torvalds committed
673 674
	int error = -ESRCH;

675
	if (lock_task_sighand(child, &flags)) {
Linus Torvalds's avatar
Linus Torvalds committed
676 677
		error = -EINVAL;
		if (likely(child->last_siginfo != NULL)) {
678
			*child->last_siginfo = *info;
Linus Torvalds's avatar
Linus Torvalds committed
679 680
			error = 0;
		}
681
		unlock_task_sighand(child, &flags);
Linus Torvalds's avatar
Linus Torvalds committed
682 683 684 685
	}
	return error;
}

686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727
static int ptrace_peek_siginfo(struct task_struct *child,
				unsigned long addr,
				unsigned long data)
{
	struct ptrace_peeksiginfo_args arg;
	struct sigpending *pending;
	struct sigqueue *q;
	int ret, i;

	ret = copy_from_user(&arg, (void __user *) addr,
				sizeof(struct ptrace_peeksiginfo_args));
	if (ret)
		return -EFAULT;

	if (arg.flags & ~PTRACE_PEEKSIGINFO_SHARED)
		return -EINVAL; /* unknown flags */

	if (arg.nr < 0)
		return -EINVAL;

	if (arg.flags & PTRACE_PEEKSIGINFO_SHARED)
		pending = &child->signal->shared_pending;
	else
		pending = &child->pending;

	for (i = 0; i < arg.nr; ) {
		siginfo_t info;
		s32 off = arg.off + i;

		spin_lock_irq(&child->sighand->siglock);
		list_for_each_entry(q, &pending->list, list) {
			if (!off--) {
				copy_siginfo(&info, &q->info);
				break;
			}
		}
		spin_unlock_irq(&child->sighand->siglock);

		if (off >= 0) /* beyond the end of the list */
			break;

#ifdef CONFIG_COMPAT
728
		if (unlikely(in_compat_syscall())) {
729 730
			compat_siginfo_t __user *uinfo = compat_ptr(data);

731
			if (copy_siginfo_to_user32(uinfo, &info)) {
732 733 734 735
				ret = -EFAULT;
				break;
			}

736 737 738 739 740
		} else
#endif
		{
			siginfo_t __user *uinfo = (siginfo_t __user *) data;

741
			if (copy_siginfo_to_user(uinfo, &info)) {
742 743 744
				ret = -EFAULT;
				break;
			}
745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760
		}

		data += sizeof(siginfo_t);
		i++;

		if (signal_pending(current))
			break;

		cond_resched();
	}

	if (i > 0)
		return i;

	return ret;
}
Roland McGrath's avatar
Roland McGrath committed
761 762 763 764 765 766 767

#ifdef PTRACE_SINGLESTEP
#define is_singlestep(request)		((request) == PTRACE_SINGLESTEP)
#else
#define is_singlestep(request)		0
#endif

768 769 770 771 772 773
#ifdef PTRACE_SINGLEBLOCK
#define is_singleblock(request)		((request) == PTRACE_SINGLEBLOCK)
#else
#define is_singleblock(request)		0
#endif

Roland McGrath's avatar
Roland McGrath committed
774 775 776 777 778 779
#ifdef PTRACE_SYSEMU
#define is_sysemu_singlestep(request)	((request) == PTRACE_SYSEMU_SINGLESTEP)
#else
#define is_sysemu_singlestep(request)	0
#endif

780 781
static int ptrace_resume(struct task_struct *child, long request,
			 unsigned long data)
Roland McGrath's avatar
Roland McGrath committed
782
{
783 784
	bool need_siglock;

Roland McGrath's avatar
Roland McGrath committed
785 786 787 788 789 790 791 792 793 794 795 796 797 798 799
	if (!valid_signal(data))
		return -EIO;

	if (request == PTRACE_SYSCALL)
		set_tsk_thread_flag(child, TIF_SYSCALL_TRACE);
	else
		clear_tsk_thread_flag(child, TIF_SYSCALL_TRACE);

#ifdef TIF_SYSCALL_EMU
	if (request == PTRACE_SYSEMU || request == PTRACE_SYSEMU_SINGLESTEP)
		set_tsk_thread_flag(child, TIF_SYSCALL_EMU);
	else
		clear_tsk_thread_flag(child, TIF_SYSCALL_EMU);
#endif

800 801 802 803 804
	if (is_singleblock(request)) {
		if (unlikely(!arch_has_block_step()))
			return -EIO;
		user_enable_block_step(child);
	} else if (is_singlestep(request) || is_sysemu_singlestep(request)) {
Roland McGrath's avatar
Roland McGrath committed
805 806 807
		if (unlikely(!arch_has_single_step()))
			return -EIO;
		user_enable_single_step(child);
808
	} else {
Roland McGrath's avatar
Roland McGrath committed
809
		user_disable_single_step(child);
810
	}
Roland McGrath's avatar
Roland McGrath committed
811

812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827
	/*
	 * Change ->exit_code and ->state under siglock to avoid the race
	 * with wait_task_stopped() in between; a non-zero ->exit_code will
	 * wrongly look like another report from tracee.
	 *
	 * Note that we need siglock even if ->exit_code == data and/or this
	 * status was not reported yet, the new status must not be cleared by
	 * wait_task_stopped() after resume.
	 *
	 * If data == 0 we do not care if wait_task_stopped() reports the old
	 * status and clears the code too; this can't race with the tracee, it
	 * takes siglock after resume.
	 */
	need_siglock = data && !thread_group_empty(current);
	if (need_siglock)
		spin_lock_irq(&child->sighand->siglock);
Roland McGrath's avatar
Roland McGrath committed
828
	child->exit_code = data;
829
	wake_up_state(child, __TASK_TRACED);
830 831
	if (need_siglock)
		spin_unlock_irq(&child->sighand->siglock);
Roland McGrath's avatar
Roland McGrath committed
832 833 834 835

	return 0;
}

836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860
#ifdef CONFIG_HAVE_ARCH_TRACEHOOK

static const struct user_regset *
find_regset(const struct user_regset_view *view, unsigned int type)
{
	const struct user_regset *regset;
	int n;

	for (n = 0; n < view->n; ++n) {
		regset = view->regsets + n;
		if (regset->core_note_type == type)
			return regset;
	}

	return NULL;
}

static int ptrace_regset(struct task_struct *task, int req, unsigned int type,
			 struct iovec *kiov)
{
	const struct user_regset_view *view = task_user_regset_view(task);
	const struct user_regset *regset = find_regset(view, type);
	int regset_no;

	if (!regset || (kiov->iov_len % regset->size) != 0)
861
		return -EINVAL;
862 863 864 865 866 867 868 869 870 871 872 873 874

	regset_no = regset - view->regsets;
	kiov->iov_len = min(kiov->iov_len,
			    (__kernel_size_t) (regset->n * regset->size));

	if (req == PTRACE_GETREGSET)
		return copy_regset_to_user(task, view, regset_no, 0,
					   kiov->iov_len, kiov->iov_base);
	else
		return copy_regset_from_user(task, view, regset_no, 0,
					     kiov->iov_len, kiov->iov_base);
}

875 876 877 878 879 880
/*
 * This is declared in linux/regset.h and defined in machine-dependent
 * code.  We put the export here, near the primary machine-neutral use,
 * to ensure no machine forgets it.
 */
EXPORT_SYMBOL_GPL(task_user_regset_view);
881 882
#endif

Linus Torvalds's avatar
Linus Torvalds committed
883
int ptrace_request(struct task_struct *child, long request,
884
		   unsigned long addr, unsigned long data)
Linus Torvalds's avatar
Linus Torvalds committed
885
{
886
	bool seized = child->ptrace & PT_SEIZED;
Linus Torvalds's avatar
Linus Torvalds committed
887
	int ret = -EIO;
888
	siginfo_t siginfo, *si;
889 890
	void __user *datavp = (void __user *) data;
	unsigned long __user *datalp = datavp;
891
	unsigned long flags;
Linus Torvalds's avatar
Linus Torvalds committed
892 893

	switch (request) {
894 895 896 897 898 899 900
	case PTRACE_PEEKTEXT:
	case PTRACE_PEEKDATA:
		return generic_ptrace_peekdata(child, addr, data);
	case PTRACE_POKETEXT:
	case PTRACE_POKEDATA:
		return generic_ptrace_pokedata(child, addr, data);

Linus Torvalds's avatar
Linus Torvalds committed
901 902 903 904 905 906 907
#ifdef PTRACE_OLDSETOPTIONS
	case PTRACE_OLDSETOPTIONS:
#endif
	case PTRACE_SETOPTIONS:
		ret = ptrace_setoptions(child, data);
		break;
	case PTRACE_GETEVENTMSG:
908
		ret = put_user(child->ptrace_message, datalp);
Linus Torvalds's avatar
Linus Torvalds committed
909
		break;
910

911 912 913 914
	case PTRACE_PEEKSIGINFO:
		ret = ptrace_peek_siginfo(child, addr, data);
		break;

Linus Torvalds's avatar
Linus Torvalds committed
915
	case PTRACE_GETSIGINFO:
916 917
		ret = ptrace_getsiginfo(child, &siginfo);
		if (!ret)
918
			ret = copy_siginfo_to_user(datavp, &siginfo);
Linus Torvalds's avatar
Linus Torvalds committed
919
		break;
920

Linus Torvalds's avatar
Linus Torvalds committed
921
	case PTRACE_SETSIGINFO:
922
		if (copy_from_user(&siginfo, datavp, sizeof siginfo))
923 924 925
			ret = -EFAULT;
		else
			ret = ptrace_setsiginfo(child, &siginfo);
Linus Torvalds's avatar
Linus Torvalds committed
926
		break;
927

928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968
	case PTRACE_GETSIGMASK:
		if (addr != sizeof(sigset_t)) {
			ret = -EINVAL;
			break;
		}

		if (copy_to_user(datavp, &child->blocked, sizeof(sigset_t)))
			ret = -EFAULT;
		else
			ret = 0;

		break;

	case PTRACE_SETSIGMASK: {
		sigset_t new_set;

		if (addr != sizeof(sigset_t)) {
			ret = -EINVAL;
			break;
		}

		if (copy_from_user(&new_set, datavp, sizeof(sigset_t))) {
			ret = -EFAULT;
			break;
		}

		sigdelsetmask(&new_set, sigmask(SIGKILL)|sigmask(SIGSTOP));

		/*
		 * Every thread does recalc_sigpending() after resume, so
		 * retarget_shared_pending() and recalc_sigpending() are not
		 * called here.
		 */
		spin_lock_irq(&child->sighand->siglock);
		child->blocked = new_set;
		spin_unlock_irq(&child->sighand->siglock);

		ret = 0;
		break;
	}

969 970 971 972 973 974 975 976 977 978 979 980 981 982
	case PTRACE_INTERRUPT:
		/*
		 * Stop tracee without any side-effect on signal or job
		 * control.  At least one trap is guaranteed to happen
		 * after this request.  If @child is already trapped, the
		 * current trap is not disturbed and another trap will
		 * happen after the current trap is ended with PTRACE_CONT.
		 *
		 * The actual trap might not be PTRACE_EVENT_STOP trap but
		 * the pending condition is cleared regardless.
		 */
		if (unlikely(!seized || !lock_task_sighand(child, &flags)))
			break;

983 984 985 986 987 988
		/*
		 * INTERRUPT doesn't disturb existing trap sans one
		 * exception.  If ptracer issued LISTEN for the current
		 * STOP, this INTERRUPT should clear LISTEN and re-trap
		 * tracee into STOP.
		 */
989
		if (likely(task_set_jobctl_pending(child, JOBCTL_TRAP_STOP)))
990
			ptrace_signal_wake_up(child, child->jobctl & JOBCTL_LISTENING);
991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008

		unlock_task_sighand(child, &flags);
		ret = 0;
		break;

	case PTRACE_LISTEN:
		/*
		 * Listen for events.  Tracee must be in STOP.  It's not
		 * resumed per-se but is not considered to be in TRACED by
		 * wait(2) or ptrace(2).  If an async event (e.g. group
		 * stop state change) happens, tracee will enter STOP trap
		 * again.  Alternatively, ptracer can issue INTERRUPT to
		 * finish listening and re-trap tracee into STOP.
		 */
		if (unlikely(!seized || !lock_task_sighand(child, &flags)))
			break;

		si = child->last_siginfo;
1009 1010 1011 1012 1013 1014 1015
		if (likely(si && (si->si_code >> 8) == PTRACE_EVENT_STOP)) {
			child->jobctl |= JOBCTL_LISTENING;
			/*
			 * If NOTIFY is set, it means event happened between
			 * start of this trap and now.  Trigger re-trap.
			 */
			if (child->jobctl & JOBCTL_TRAP_NOTIFY)
1016
				ptrace_signal_wake_up(child, true);
1017 1018
			ret = 0;
		}
1019 1020 1021
		unlock_task_sighand(child, &flags);
		break;

1022 1023 1024
	case PTRACE_DETACH:	 /* detach a process that was attached. */
		ret = ptrace_detach(child, data);
		break;
Roland McGrath's avatar
Roland McGrath committed
1025

1026 1027
#ifdef CONFIG_BINFMT_ELF_FDPIC
	case PTRACE_GETFDPIC: {
1028
		struct mm_struct *mm = get_task_mm(child);
1029 1030
		unsigned long tmp = 0;

1031 1032 1033 1034
		ret = -ESRCH;
		if (!mm)
			break;

1035 1036
		switch (addr) {
		case PTRACE_GETFDPIC_EXEC:
1037
			tmp = mm->context.exec_fdpic_loadmap;
1038 1039
			break;
		case PTRACE_GETFDPIC_INTERP:
1040
			tmp = mm->context.interp_fdpic_loadmap;
1041 1042 1043 1044
			break;
		default:
			break;
		}
1045
		mmput(mm);
1046

1047
		ret = put_user(tmp, datalp);
1048 1049 1050 1051
		break;
	}
#endif

Roland McGrath's avatar
Roland McGrath committed
1052 1053 1054
#ifdef PTRACE_SINGLESTEP
	case PTRACE_SINGLESTEP:
#endif
1055 1056 1057
#ifdef PTRACE_SINGLEBLOCK
	case PTRACE_SINGLEBLOCK:
#endif
Roland McGrath's avatar
Roland McGrath committed
1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070
#ifdef PTRACE_SYSEMU
	case PTRACE_SYSEMU:
	case PTRACE_SYSEMU_SINGLESTEP:
#endif
	case PTRACE_SYSCALL:
	case PTRACE_CONT:
		return ptrace_resume(child, request, data);

	case PTRACE_KILL:
		if (child->exit_state)	/* already dead */
			return 0;
		return ptrace_resume(child, request, SIGKILL);

1071 1072
#ifdef CONFIG_HAVE_ARCH_TRACEHOOK
	case PTRACE_GETREGSET:
1073
	case PTRACE_SETREGSET: {
1074
		struct iovec kiov;
1075
		struct iovec __user *uiov = datavp;
1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089

		if (!access_ok(VERIFY_WRITE, uiov, sizeof(*uiov)))
			return -EFAULT;

		if (__get_user(kiov.iov_base, &uiov->iov_base) ||
		    __get_user(kiov.iov_len, &uiov->iov_len))
			return -EFAULT;

		ret = ptrace_regset(child, request, addr, &kiov);
		if (!ret)
			ret = __put_user(kiov.iov_len, &uiov->iov_len);
		break;
	}
#endif
1090 1091 1092 1093 1094

	case PTRACE_SECCOMP_GET_FILTER:
		ret = seccomp_get_filter(child, addr, datavp);
		break;

Linus Torvalds's avatar
Linus Torvalds committed
1095 1096 1097 1098 1099 1100
	default:
		break;
	}

	return ret;
}
1101

1102
static struct task_struct *ptrace_get_task_struct(pid_t pid)
1103 1104
{
	struct task_struct *child;
1105

1106
	rcu_read_lock();
1107
	child = find_task_by_vpid(pid);
1108 1109
	if (child)
		get_task_struct(child);
1110
	rcu_read_unlock();
1111

1112
	if (!child)
1113 1114
		return ERR_PTR(-ESRCH);
	return child;
1115 1116
}

1117 1118 1119 1120
#ifndef arch_ptrace_attach
#define arch_ptrace_attach(child)	do { } while (0)
#endif

1121 1122
SYSCALL_DEFINE4(ptrace, long, request, long, pid, unsigned long, addr,
		unsigned long, data)
1123 1124 1125 1126
{
	struct task_struct *child;
	long ret;

1127 1128
	if (request == PTRACE_TRACEME) {
		ret = ptrace_traceme();
1129 1130
		if (!ret)
			arch_ptrace_attach(current);
1131
		goto out;
1132 1133 1134 1135 1136 1137 1138
	}

	child = ptrace_get_task_struct(pid);
	if (IS_ERR(child)) {
		ret = PTR_ERR(child);
		goto out;
	}
1139

1140
	if (request == PTRACE_ATTACH || request == PTRACE_SEIZE) {
1141
		ret = ptrace_attach(child, request, addr, data);
1142 1143 1144 1145 1146 1147
		/*
		 * Some architectures need to do book-keeping after
		 * a ptrace attach.
		 */
		if (!ret)
			arch_ptrace_attach(child);
1148
		goto out_put_task_struct;
1149 1150
	}

1151 1152
	ret = ptrace_check_attach(child, request == PTRACE_KILL ||
				  request == PTRACE_INTERRUPT);
1153 1154 1155 1156
	if (ret < 0)
		goto out_put_task_struct;

	ret = arch_ptrace(child, request, addr, data);
1157 1158
	if (ret || request != PTRACE_DETACH)
		ptrace_unfreeze_traced(child);
1159 1160 1161 1162 1163 1164

 out_put_task_struct:
	put_task_struct(child);
 out:
	return ret;
}
1165

1166 1167
int generic_ptrace_peekdata(struct task_struct *tsk, unsigned long addr,
			    unsigned long data)
1168 1169 1170 1171
{
	unsigned long tmp;
	int copied;

1172
	copied = ptrace_access_vm(tsk, addr, &tmp, sizeof(tmp), FOLL_FORCE);
1173 1174 1175 1176
	if (copied != sizeof(tmp))
		return -EIO;
	return put_user(tmp, (unsigned long __user *)data);
}
1177

1178 1179
int generic_ptrace_pokedata(struct task_struct *tsk, unsigned long addr,
			    unsigned long data)
1180 1181 1182
{
	int copied;

1183
	copied = ptrace_access_vm(tsk, addr, &data, sizeof(data),
1184
			FOLL_FORCE | FOLL_WRITE);
1185 1186
	return (copied == sizeof(data)) ? 0 : -EIO;
}
1187

1188
#if defined CONFIG_COMPAT
1189 1190 1191 1192 1193 1194

int compat_ptrace_request(struct task_struct *child, compat_long_t request,
			  compat_ulong_t addr, compat_ulong_t data)
{
	compat_ulong_t __user *datap = compat_ptr(data);
	compat_ulong_t word;
1195
	siginfo_t siginfo;
1196 1197 1198 1199 1200
	int ret;

	switch (request) {
	case PTRACE_PEEKTEXT:
	case PTRACE_PEEKDATA:
1201
		ret = ptrace_access_vm(child, addr, &word, sizeof(word),
1202
				FOLL_FORCE);
1203 1204 1205 1206 1207 1208 1209 1210
		if (ret != sizeof(word))
			ret = -EIO;
		else
			ret = put_user(word, datap);
		break;

	case PTRACE_POKETEXT:
	case PTRACE_POKEDATA:
1211
		ret = ptrace_access_vm(child, addr, &data, sizeof(data),
1212
				FOLL_FORCE | FOLL_WRITE);
1213 1214 1215 1216 1217 1218 1219
		ret = (ret != sizeof(data) ? -EIO : 0);
		break;

	case PTRACE_GETEVENTMSG:
		ret = put_user((compat_ulong_t) child->ptrace_message, datap);
		break;

1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235
	case PTRACE_GETSIGINFO:
		ret = ptrace_getsiginfo(child, &siginfo);
		if (!ret)
			ret = copy_siginfo_to_user32(
				(struct compat_siginfo __user *) datap,
				&siginfo);
		break;

	case PTRACE_SETSIGINFO:
		memset(&siginfo, 0, sizeof siginfo);
		if (copy_siginfo_from_user32(
			    &siginfo, (struct compat_siginfo __user *) datap))
			ret = -EFAULT;
		else
			ret = ptrace_setsiginfo(child, &siginfo);
		break;
1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261
#ifdef CONFIG_HAVE_ARCH_TRACEHOOK
	case PTRACE_GETREGSET:
	case PTRACE_SETREGSET:
	{
		struct iovec kiov;
		struct compat_iovec __user *uiov =
			(struct compat_iovec __user *) datap;
		compat_uptr_t ptr;
		compat_size_t len;

		if (!access_ok(VERIFY_WRITE, uiov, sizeof(*uiov)))
			return -EFAULT;

		if (__get_user(ptr, &uiov->iov_base) ||
		    __get_user(len, &uiov->iov_len))
			return -EFAULT;

		kiov.iov_base = compat_ptr(ptr);
		kiov.iov_len = len;

		ret = ptrace_regset(child, request, addr, &kiov);
		if (!ret)
			ret = __put_user(kiov.iov_len, &uiov->iov_len);
		break;
	}
#endif
1262

1263 1264 1265 1266 1267 1268
	default:
		ret = ptrace_request(child, request, addr, data);
	}

	return ret;
}
Roland McGrath's avatar
Roland McGrath committed
1269

1270 1271
COMPAT_SYSCALL_DEFINE4(ptrace, compat_long_t, request, compat_long_t, pid,
		       compat_long_t, addr, compat_long_t, data)
Roland McGrath's avatar
Roland McGrath committed
1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286
{
	struct task_struct *child;
	long ret;

	if (request == PTRACE_TRACEME) {
		ret = ptrace_traceme();
		goto out;
	}

	child = ptrace_get_task_struct(pid);
	if (IS_ERR(child)) {
		ret = PTR_ERR(child);
		goto out;
	}

1287
	if (request == PTRACE_ATTACH || request == PTRACE_SEIZE) {
1288
		ret = ptrace_attach(child, request, addr, data);
Roland McGrath's avatar
Roland McGrath committed
1289 1290 1291 1292 1293 1294 1295 1296 1297
		/*
		 * Some architectures need to do book-keeping after
		 * a ptrace attach.
		 */
		if (!ret)
			arch_ptrace_attach(child);
		goto out_put_task_struct;
	}

1298 1299
	ret = ptrace_check_attach(child, request == PTRACE_KILL ||
				  request == PTRACE_INTERRUPT);
1300
	if (!ret) {
Roland McGrath's avatar
Roland McGrath committed
1301
		ret = compat_arch_ptrace(child, request, addr, data);
1302 1303 1304
		if (ret || request != PTRACE_DETACH)
			ptrace_unfreeze_traced(child);
	}
Roland McGrath's avatar
Roland McGrath committed
1305 1306 1307 1308 1309 1310

 out_put_task_struct:
	put_task_struct(child);
 out:
	return ret;
}
1311
#endif	/* CONFIG_COMPAT */