[linux-2.6-block.git] / arch / parisc / kernel / ptrace.c

/*
 * Kernel support for the ptrace() and syscall tracing interfaces.
 *
 * Copyright (C) 2000 Hewlett-Packard Co, Linuxcare Inc.
 * Copyright (C) 2000 Matthew Wilcox <matthew@wil.cx>
 * Copyright (C) 2000 David Huggins-Daines <dhd@debian.org>
 * Copyright (C) 2008 Helge Deller <deller@gmx.de>
 */

#include <linux/kernel.h>
#include <linux/sched.h>
#include <linux/mm.h>
#include <linux/smp.h>
#include <linux/errno.h>
#include <linux/ptrace.h>
#include <linux/tracehook.h>
#include <linux/user.h>
#include <linux/personality.h>
#include <linux/security.h>
#include <linux/compat.h>
#include <linux/signal.h>

#include <asm/uaccess.h>
#include <asm/pgtable.h>
#include <asm/system.h>
#include <asm/processor.h>
#include <asm/asm-offsets.h>

/* PSW bits we allow the debugger to modify */
#define USER_PSW_BITS	(PSW_N | PSW_V | PSW_CB)

/*
 * Called by kernel/ptrace.c when detaching..
 *
 * Make sure single step bits etc are not set.
 */
void ptrace_disable(struct task_struct *task)
{
	clear_tsk_thread_flag(task, TIF_SINGLESTEP);
	clear_tsk_thread_flag(task, TIF_BLOCKSTEP);

	/* make sure the trap bits are not set */
	pa_psw(task)->r = 0;
	pa_psw(task)->t = 0;
	pa_psw(task)->h = 0;
	pa_psw(task)->l = 0;
}

/*
 * The following functions are called by ptrace_resume() when
 * enabling or disabling single/block tracing.
 */
void user_disable_single_step(struct task_struct *task)
{
	ptrace_disable(task);
}

void user_enable_single_step(struct task_struct *task)
{
	clear_tsk_thread_flag(task, TIF_BLOCKSTEP);
	set_tsk_thread_flag(task, TIF_SINGLESTEP);

	if (pa_psw(task)->n) {
		struct siginfo si;

		/* Nullified, just crank over the queue. */
		task_regs(task)->iaoq[0] = task_regs(task)->iaoq[1];
		task_regs(task)->iasq[0] = task_regs(task)->iasq[1];
		task_regs(task)->iaoq[1] = task_regs(task)->iaoq[0] + 4;
		pa_psw(task)->n = 0;
		pa_psw(task)->x = 0;
		pa_psw(task)->y = 0;
		pa_psw(task)->z = 0;
		pa_psw(task)->b = 0;
		ptrace_disable(task);
		/* Don't wake up the task, but let the
		   parent know something happened. */
		si.si_code = TRAP_TRACE;
		si.si_addr = (void __user *) (task_regs(task)->iaoq[0] & ~3);
		si.si_signo = SIGTRAP;
		si.si_errno = 0;
		force_sig_info(SIGTRAP, &si, task);
		/* notify_parent(task, SIGCHLD); */
		return;
	}

	/* Enable recovery counter traps.  The recovery counter
	 * itself will be set to zero on a task switch.  If the
	 * task is suspended on a syscall then the syscall return
	 * path will overwrite the recovery counter with a suitable
	 * value such that it traps once back in user space.  We
	 * disable interrupts in the tasks PSW here also, to avoid
	 * interrupts while the recovery counter is decrementing.
	 */
	pa_psw(task)->r = 1;
	pa_psw(task)->t = 0;
	pa_psw(task)->h = 0;
	pa_psw(task)->l = 0;
}

void user_enable_block_step(struct task_struct *task)
{
	clear_tsk_thread_flag(task, TIF_SINGLESTEP);
	set_tsk_thread_flag(task, TIF_BLOCKSTEP);

	/* Enable taken branch trap. */
	pa_psw(task)->r = 0;
	pa_psw(task)->t = 1;
	pa_psw(task)->h = 0;
	pa_psw(task)->l = 0;
}

long arch_ptrace(struct task_struct *child, long request, long addr, long data)
{
	unsigned long tmp;
	long ret = -EIO;

	switch (request) {

	/* Read the word at location addr in the USER area.  For ptraced
	   processes, the kernel saves all regs on a syscall. */
	case PTRACE_PEEKUSR:
		if ((addr & (sizeof(long)-1)) ||
		    (unsigned long) addr >= sizeof(struct pt_regs))
			break;
		tmp = *(unsigned long *) ((char *) task_regs(child) + addr);
		ret = put_user(tmp, (unsigned long *) data);
		break;

	/* Write the word at location addr in the USER area.  This will need
	   to change when the kernel no longer saves all regs on a syscall.
	   FIXME.  There is a problem at the moment in that r3-r18 are only
	   saved if the process is ptraced on syscall entry, and even then
	   those values are overwritten by actual register values on syscall
	   exit. */
	case PTRACE_POKEUSR:
		/* Some register values written here may be ignored in
		 * entry.S:syscall_restore_rfi; e.g. iaoq is written with
		 * r31/r31+4, and not with the values in pt_regs.
		 */
		if (addr == PT_PSW) {
			/* Allow writing to Nullify, Divide-step-correction,
			 * and carry/borrow bits.
			 * BEWARE, if you set N, and then single step, it won't
			 * stop on the nullified instruction.
			 */
			data &= USER_PSW_BITS;
			task_regs(child)->gr[0] &= ~USER_PSW_BITS;
			task_regs(child)->gr[0] |= data;
			ret = 0;
			break;
		}

		if ((addr & (sizeof(long)-1)) ||
		    (unsigned long) addr >= sizeof(struct pt_regs))
			break;
		if ((addr >= PT_GR1 && addr <= PT_GR31) ||
				addr == PT_IAOQ0 || addr == PT_IAOQ1 ||
				(addr >= PT_FR0 && addr <= PT_FR31 + 4) ||
				addr == PT_SAR) {
			*(unsigned long *) ((char *) task_regs(child) + addr) = data;
			ret = 0;
		}
		break;

	default:
		ret = ptrace_request(child, request, addr, data);
		break;
	}

	return ret;
}


#ifdef CONFIG_COMPAT

/* This function is needed to translate 32 bit pt_regs offsets in to
 * 64 bit pt_regs offsets.  For example, a 32 bit gdb under a 64 bit kernel
 * will request offset 12 if it wants gr3, but the lower 32 bits of
 * the 64 bit kernels view of gr3 will be at offset 28 (3*8 + 4).
 * This code relies on a 32 bit pt_regs being comprised of 32 bit values
 * except for the fp registers which (a) are 64 bits, and (b) follow
 * the gr registers at the start of pt_regs.  The 32 bit pt_regs should
 * be half the size of the 64 bit pt_regs, plus 32*4 to allow for fr[]
 * being 64 bit in both cases.
 */

static compat_ulong_t translate_usr_offset(compat_ulong_t offset)
{
	if (offset < 0)
		return sizeof(struct pt_regs);
	else if (offset <= 32*4)	/* gr[0..31] */
		return offset * 2 + 4;
	else if (offset <= 32*4+32*8)	/* gr[0..31] + fr[0..31] */
		return offset + 32*4;
	else if (offset < sizeof(struct pt_regs)/2 + 32*4)
		return offset * 2 + 4 - 32*8;
	else
		return sizeof(struct pt_regs);
}

long compat_arch_ptrace(struct task_struct *child, compat_long_t request,
			compat_ulong_t addr, compat_ulong_t data)
{
	compat_uint_t tmp;
	long ret = -EIO;

	switch (request) {

	case PTRACE_PEEKUSR:
		if (addr & (sizeof(compat_uint_t)-1))
			break;
		addr = translate_usr_offset(addr);
		if (addr >= sizeof(struct pt_regs))
			break;

		tmp = *(compat_uint_t *) ((char *) task_regs(child) + addr);
		ret = put_user(tmp, (compat_uint_t *) (unsigned long) data);
		break;

	/* Write the word at location addr in the USER area.  This will need
	   to change when the kernel no longer saves all regs on a syscall.
	   FIXME.  There is a problem at the moment in that r3-r18 are only
	   saved if the process is ptraced on syscall entry, and even then
	   those values are overwritten by actual register values on syscall
	   exit. */
	case PTRACE_POKEUSR:
		/* Some register values written here may be ignored in
		 * entry.S:syscall_restore_rfi; e.g. iaoq is written with
		 * r31/r31+4, and not with the values in pt_regs.
		 */
		if (addr == PT_PSW) {
			/* Since PT_PSW==0, it is valid for 32 bit processes
			 * under 64 bit kernels as well.
			 */
			ret = arch_ptrace(child, request, addr, data);
		} else {
			if (addr & (sizeof(compat_uint_t)-1))
				break;
			addr = translate_usr_offset(addr);
			if (addr >= sizeof(struct pt_regs))
				break;
			if (addr >= PT_FR0 && addr <= PT_FR31 + 4) {
				/* Special case, fp regs are 64 bits anyway */
				*(__u64 *) ((char *) task_regs(child) + addr) = data;
				ret = 0;
			}
			else if ((addr >= PT_GR1+4 && addr <= PT_GR31+4) ||
					addr == PT_IAOQ0+4 || addr == PT_IAOQ1+4 ||
					addr == PT_SAR+4) {
				/* Zero the top 32 bits */
				*(__u32 *) ((char *) task_regs(child) + addr - 4) = 0;
				*(__u32 *) ((char *) task_regs(child) + addr) = data;
				ret = 0;
			}
		}
		break;

	default:
		ret = compat_ptrace_request(child, request, addr, data);
		break;
	}

	return ret;
}
#endif

long do_syscall_trace_enter(struct pt_regs *regs)
{
	if (test_thread_flag(TIF_SYSCALL_TRACE) &&
	    tracehook_report_syscall_entry(regs))
		return -1L;

	return regs->gr[20];
}

void do_syscall_trace_exit(struct pt_regs *regs)
{
	int stepping = test_thread_flag(TIF_SINGLESTEP) ||
		test_thread_flag(TIF_BLOCKSTEP);

	if (stepping || test_thread_flag(TIF_SYSCALL_TRACE))
		tracehook_report_syscall_exit(regs, stepping);
}
Commit	Line	Data
1da177e4 LT	1	/*
	2	* Kernel support for the ptrace() and syscall tracing interfaces.
	3	*
	4	* Copyright (C) 2000 Hewlett-Packard Co, Linuxcare Inc.
	5	* Copyright (C) 2000 Matthew Wilcox <matthew@wil.cx>
	6	* Copyright (C) 2000 David Huggins-Daines <dhd@debian.org>
81e192d6	7	* Copyright (C) 2008 Helge Deller <deller@gmx.de>
1da177e4 LT	8	*/
	9
	10	#include <linux/kernel.h>
	11	#include <linux/sched.h>
	12	#include <linux/mm.h>
	13	#include <linux/smp.h>
1da177e4 LT	14	#include <linux/errno.h>
1da177e4 LT	15	#include <linux/ptrace.h>
d6b58772	16	#include <linux/tracehook.h>
1da177e4 LT	17	#include <linux/user.h>
	18	#include <linux/personality.h>
	19	#include <linux/security.h>
	20	#include <linux/compat.h>
7ed20e1a	21	#include <linux/signal.h>
1da177e4 LT	22
	23	#include <asm/uaccess.h>
	24	#include <asm/pgtable.h>
	25	#include <asm/system.h>
	26	#include <asm/processor.h>
0013a854	27	#include <asm/asm-offsets.h>
1da177e4 LT	28
	29	/* PSW bits we allow the debugger to modify */
	30	#define USER_PSW_BITS (PSW_N \| PSW_V \| PSW_CB)
	31
81e192d6 HD	32	/*
	33	* Called by kernel/ptrace.c when detaching..
	34	*
	35	* Make sure single step bits etc are not set.
	36	*/
	37	void ptrace_disable(struct task_struct *task)
	38	{
ecd3d4bc KM	39	clear_tsk_thread_flag(task, TIF_SINGLESTEP);
ecd3d4bc KM	40	clear_tsk_thread_flag(task, TIF_BLOCKSTEP);
1da177e4	41
81e192d6 HD	42	/* make sure the trap bits are not set */
	43	pa_psw(task)->r = 0;
	44	pa_psw(task)->t = 0;
	45	pa_psw(task)->h = 0;
	46	pa_psw(task)->l = 0;
	47	}
	48
	49	/*
	50	* The following functions are called by ptrace_resume() when
	51	* enabling or disabling single/block tracing.
	52	*/
	53	void user_disable_single_step(struct task_struct *task)
	54	{
	55	ptrace_disable(task);
	56	}
	57
	58	void user_enable_single_step(struct task_struct *task)
	59	{
ecd3d4bc KM	60	clear_tsk_thread_flag(task, TIF_BLOCKSTEP);
ecd3d4bc KM	61	set_tsk_thread_flag(task, TIF_SINGLESTEP);
81e192d6 HD	62
	63	if (pa_psw(task)->n) {
	64	struct siginfo si;
	65
	66	/* Nullified, just crank over the queue. */
	67	task_regs(task)->iaoq[0] = task_regs(task)->iaoq[1];
	68	task_regs(task)->iasq[0] = task_regs(task)->iasq[1];
	69	task_regs(task)->iaoq[1] = task_regs(task)->iaoq[0] + 4;
	70	pa_psw(task)->n = 0;
	71	pa_psw(task)->x = 0;
	72	pa_psw(task)->y = 0;
	73	pa_psw(task)->z = 0;
	74	pa_psw(task)->b = 0;
	75	ptrace_disable(task);
	76	/* Don't wake up the task, but let the
	77	parent know something happened. */
	78	si.si_code = TRAP_TRACE;
	79	si.si_addr = (void __user *) (task_regs(task)->iaoq[0] & ~3);
	80	si.si_signo = SIGTRAP;
	81	si.si_errno = 0;
	82	force_sig_info(SIGTRAP, &si, task);
	83	/* notify_parent(task, SIGCHLD); */
	84	return;
	85	}
	86
	87	/* Enable recovery counter traps. The recovery counter
	88	* itself will be set to zero on a task switch. If the
	89	* task is suspended on a syscall then the syscall return
	90	* path will overwrite the recovery counter with a suitable
	91	* value such that it traps once back in user space. We
	92	* disable interrupts in the tasks PSW here also, to avoid
	93	* interrupts while the recovery counter is decrementing.
	94	*/
	95	pa_psw(task)->r = 1;
	96	pa_psw(task)->t = 0;
	97	pa_psw(task)->h = 0;
	98	pa_psw(task)->l = 0;
	99	}
	100
	101	void user_enable_block_step(struct task_struct *task)
	102	{
ecd3d4bc KM	103	clear_tsk_thread_flag(task, TIF_SINGLESTEP);
ecd3d4bc KM	104	set_tsk_thread_flag(task, TIF_BLOCKSTEP);
81e192d6 HD	105
	106	/* Enable taken branch trap. */
	107	pa_psw(task)->r = 0;
	108	pa_psw(task)->t = 1;
	109	pa_psw(task)->h = 0;
	110	pa_psw(task)->l = 0;
	111	}
	112
	113	long arch_ptrace(struct task_struct *child, long request, long addr, long data)
	114	{
	115	unsigned long tmp;
	116	long ret = -EIO;
1da177e4	117
81e192d6 HD	118	switch (request) {
	119
	120	/* Read the word at location addr in the USER area. For ptraced
	121	processes, the kernel saves all regs on a syscall. */
	122	case PTRACE_PEEKUSR:
	123	if ((addr & (sizeof(long)-1)) \|\|
	124	(unsigned long) addr >= sizeof(struct pt_regs))
	125	break;
	126	tmp = (unsigned long ) ((char *) task_regs(child) + addr);
	127	ret = put_user(tmp, (unsigned long *) data);
	128	break;
	129
	130	/* Write the word at location addr in the USER area. This will need
	131	to change when the kernel no longer saves all regs on a syscall.
	132	FIXME. There is a problem at the moment in that r3-r18 are only
	133	saved if the process is ptraced on syscall entry, and even then
	134	those values are overwritten by actual register values on syscall
	135	exit. */
	136	case PTRACE_POKEUSR:
	137	/* Some register values written here may be ignored in
	138	* entry.S:syscall_restore_rfi; e.g. iaoq is written with
	139	* r31/r31+4, and not with the values in pt_regs.
	140	*/
	141	if (addr == PT_PSW) {
	142	/* Allow writing to Nullify, Divide-step-correction,
	143	* and carry/borrow bits.
	144	* BEWARE, if you set N, and then single step, it won't
	145	* stop on the nullified instruction.
	146	*/
	147	data &= USER_PSW_BITS;
	148	task_regs(child)->gr[0] &= ~USER_PSW_BITS;
	149	task_regs(child)->gr[0] \|= data;
	150	ret = 0;
	151	break;
	152	}
	153
	154	if ((addr & (sizeof(long)-1)) \|\|
	155	(unsigned long) addr >= sizeof(struct pt_regs))
	156	break;
	157	if ((addr >= PT_GR1 && addr <= PT_GR31) \|\|
	158	addr == PT_IAOQ0 \|\| addr == PT_IAOQ1 \|\|
	159	(addr >= PT_FR0 && addr <= PT_FR31 + 4) \|\|
	160	addr == PT_SAR) {
	161	(unsigned long ) ((char *) task_regs(child) + addr) = data;
	162	ret = 0;
	163	}
	164	break;
	165
	166	default:
	167	ret = ptrace_request(child, request, addr, data);
	168	break;
	169	}
	170
	171	return ret;
	172	}
	173
	174
	175	#ifdef CONFIG_COMPAT
1da177e4 LT	176
	177	/* This function is needed to translate 32 bit pt_regs offsets in to
	178	* 64 bit pt_regs offsets. For example, a 32 bit gdb under a 64 bit kernel
	179	* will request offset 12 if it wants gr3, but the lower 32 bits of
	180	* the 64 bit kernels view of gr3 will be at offset 28 (3*8 + 4).
	181	* This code relies on a 32 bit pt_regs being comprised of 32 bit values
	182	* except for the fp registers which (a) are 64 bits, and (b) follow
	183	* the gr registers at the start of pt_regs. The 32 bit pt_regs should
	184	* be half the size of the 64 bit pt_regs, plus 32*4 to allow for fr[]
	185	* being 64 bit in both cases.
	186	*/
	187
ed79b86d	188	static compat_ulong_t translate_usr_offset(compat_ulong_t offset)
1da177e4 LT	189	{
1da177e4 LT	190	if (offset < 0)
ed79b86d	191	return sizeof(struct pt_regs);
1da177e4 LT	192	else if (offset <= 324) / gr[0..31] */
	193	return offset * 2 + 4;
	194	else if (offset <= 324+328) /* gr[0..31] + fr[0..31] */
	195	return offset + 32*4;
	196	else if (offset < sizeof(struct pt_regs)/2 + 32*4)
	197	return offset * 2 + 4 - 32*8;
	198	else
ed79b86d	199	return sizeof(struct pt_regs);
1da177e4	200	}
1da177e4	201
81e192d6 HD	202	long compat_arch_ptrace(struct task_struct *child, compat_long_t request,
81e192d6 HD	203	compat_ulong_t addr, compat_ulong_t data)
1da177e4	204	{
81e192d6 HD	205	compat_uint_t tmp;
81e192d6 HD	206	long ret = -EIO;
1da177e4	207
1da177e4	208	switch (request) {
1da177e4	209
81e192d6 HD	210	case PTRACE_PEEKUSR:
	211	if (addr & (sizeof(compat_uint_t)-1))
	212	break;
	213	addr = translate_usr_offset(addr);
ed79b86d	214	if (addr >= sizeof(struct pt_regs))
81e192d6	215	break;
1da177e4	216
81e192d6 HD	217	tmp = (compat_uint_t ) ((char *) task_regs(child) + addr);
	218	ret = put_user(tmp, (compat_uint_t *) (unsigned long) data);
	219	break;
1da177e4 LT	220
	221	/* Write the word at location addr in the USER area. This will need
	222	to change when the kernel no longer saves all regs on a syscall.
	223	FIXME. There is a problem at the moment in that r3-r18 are only
	224	saved if the process is ptraced on syscall entry, and even then
	225	those values are overwritten by actual register values on syscall
	226	exit. */
	227	case PTRACE_POKEUSR:
1da177e4 LT	228	/* Some register values written here may be ignored in
	229	* entry.S:syscall_restore_rfi; e.g. iaoq is written with
	230	* r31/r31+4, and not with the values in pt_regs.
	231	*/
1da177e4	232	if (addr == PT_PSW) {
81e192d6 HD	233	/* Since PT_PSW==0, it is valid for 32 bit processes
81e192d6 HD	234	* under 64 bit kernels as well.
1da177e4	235	*/
81e192d6 HD	236	ret = arch_ptrace(child, request, addr, data);
	237	} else {
	238	if (addr & (sizeof(compat_uint_t)-1))
	239	break;
	240	addr = translate_usr_offset(addr);
ed79b86d	241	if (addr >= sizeof(struct pt_regs))
81e192d6	242	break;
1da177e4 LT	243	if (addr >= PT_FR0 && addr <= PT_FR31 + 4) {
1da177e4 LT	244	/* Special case, fp regs are 64 bits anyway */
81e192d6	245	(__u64 ) ((char *) task_regs(child) + addr) = data;
1da177e4 LT	246	ret = 0;
	247	}
	248	else if ((addr >= PT_GR1+4 && addr <= PT_GR31+4) \|\|
	249	addr == PT_IAOQ0+4 \|\| addr == PT_IAOQ1+4 \|\|
	250	addr == PT_SAR+4) {
	251	/* Zero the top 32 bits */
81e192d6 HD	252	(__u32 ) ((char *) task_regs(child) + addr - 4) = 0;
81e192d6 HD	253	(__u32 ) ((char *) task_regs(child) + addr) = data;
1da177e4 LT	254	ret = 0;
1da177e4 LT	255	}
1da177e4	256	}
81e192d6	257	break;
1da177e4 LT	258
1da177e4 LT	259	default:
81e192d6 HD	260	ret = compat_ptrace_request(child, request, addr, data);
81e192d6 HD	261	break;
1da177e4 LT	262	}
1da177e4 LT	263
1da177e4 LT	264	return ret;
1da177e4 LT	265	}
81e192d6 HD	266	#endif
81e192d6 HD	267
2798af1a KM	268	long do_syscall_trace_enter(struct pt_regs *regs)
	269	{
	270	if (test_thread_flag(TIF_SYSCALL_TRACE) &&
	271	tracehook_report_syscall_entry(regs))
	272	return -1L;
	273
	274	return regs->gr[20];
	275	}
1da177e4	276
2798af1a	277	void do_syscall_trace_exit(struct pt_regs *regs)
1da177e4	278	{
ecd3d4bc KM	279	int stepping = test_thread_flag(TIF_SINGLESTEP) \|\|
ecd3d4bc KM	280	test_thread_flag(TIF_BLOCKSTEP);
d6b58772	281
2798af1a KM	282	if (stepping \|\| test_thread_flag(TIF_SYSCALL_TRACE))
2798af1a KM	283	tracehook_report_syscall_exit(regs, stepping);
1da177e4	284	}