[MIPS] kpsd and other AP/SP improvements.
[linux-2.6-block.git] / arch / mips / kernel / ptrace32.c
CommitLineData
1da177e4
LT
1/*
2 * This file is subject to the terms and conditions of the GNU General Public
3 * License. See the file "COPYING" in the main directory of this archive
4 * for more details.
5 *
6 * Copyright (C) 1992 Ross Biro
7 * Copyright (C) Linus Torvalds
8 * Copyright (C) 1994, 95, 96, 97, 98, 2000 Ralf Baechle
9 * Copyright (C) 1996 David S. Miller
10 * Kevin D. Kissell, kevink@mips.com and Carsten Langgaard, carstenl@mips.com
11 * Copyright (C) 1999 MIPS Technologies, Inc.
12 * Copyright (C) 2000 Ulf Carlsson
13 *
14 * At this time Linux/MIPS64 only supports syscall tracing, even for 32-bit
15 * binaries.
16 */
17#include <linux/compiler.h>
18#include <linux/kernel.h>
19#include <linux/sched.h>
20#include <linux/mm.h>
21#include <linux/errno.h>
22#include <linux/ptrace.h>
23#include <linux/smp.h>
24#include <linux/smp_lock.h>
25#include <linux/user.h>
26#include <linux/security.h>
27
28#include <asm/cpu.h>
e50c0a8f 29#include <asm/dsp.h>
1da177e4
LT
30#include <asm/fpu.h>
31#include <asm/mipsregs.h>
101b3531 32#include <asm/mipsmtregs.h>
1da177e4
LT
33#include <asm/pgtable.h>
34#include <asm/page.h>
35#include <asm/system.h>
36#include <asm/uaccess.h>
37#include <asm/bootinfo.h>
38
ea3d710f
DJ
39int ptrace_getregs (struct task_struct *child, __s64 __user *data);
40int ptrace_setregs (struct task_struct *child, __s64 __user *data);
41
42int ptrace_getfpregs (struct task_struct *child, __u32 __user *data);
43int ptrace_setfpregs (struct task_struct *child, __u32 __user *data);
44
1da177e4
LT
45/*
46 * Tracing a 32-bit process with a 64-bit strace and vice versa will not
47 * work. I don't know how to fix this.
48 */
49asmlinkage int sys32_ptrace(int request, int pid, int addr, int data)
50{
51 struct task_struct *child;
52 int ret;
53
54#if 0
55 printk("ptrace(r=%d,pid=%d,addr=%08lx,data=%08lx)\n",
56 (int) request, (int) pid, (unsigned long) addr,
57 (unsigned long) data);
58#endif
59 lock_kernel();
1da177e4 60 if (request == PTRACE_TRACEME) {
6b9c7ed8 61 ret = ptrace_traceme();
1da177e4
LT
62 goto out;
63 }
1da177e4 64
6b9c7ed8
CH
65 child = ptrace_get_task_struct(pid);
66 if (IS_ERR(child)) {
67 ret = PTR_ERR(child);
68 goto out;
69 }
1da177e4
LT
70
71 if (request == PTRACE_ATTACH) {
72 ret = ptrace_attach(child);
73 goto out_tsk;
74 }
75
76 ret = ptrace_check_attach(child, request == PTRACE_KILL);
77 if (ret < 0)
78 goto out_tsk;
79
80 switch (request) {
81 /* when I and D space are separate, these will need to be fixed. */
82 case PTRACE_PEEKTEXT: /* read word at location addr. */
83 case PTRACE_PEEKDATA: {
84 unsigned int tmp;
85 int copied;
86
87 copied = access_process_vm(child, addr, &tmp, sizeof(tmp), 0);
88 ret = -EIO;
89 if (copied != sizeof(tmp))
90 break;
3055acb0 91 ret = put_user(tmp, (unsigned int __user *) (unsigned long) data);
1da177e4
LT
92 break;
93 }
94
ea3d710f
DJ
95 /*
96 * Read 4 bytes of the other process' storage
97 * data is a pointer specifying where the user wants the
98 * 4 bytes copied into
99 * addr is a pointer in the user's storage that contains an 8 byte
100 * address in the other process of the 4 bytes that is to be read
101 * (this is run in a 32-bit process looking at a 64-bit process)
102 * when I and D space are separate, these will need to be fixed.
103 */
104 case PTRACE_PEEKTEXT_3264:
105 case PTRACE_PEEKDATA_3264: {
106 u32 tmp;
107 int copied;
108 u32 __user * addrOthers;
109
110 ret = -EIO;
111
112 /* Get the addr in the other process that we want to read */
113 if (get_user(addrOthers, (u32 __user * __user *) (unsigned long) addr) != 0)
114 break;
115
116 copied = access_process_vm(child, (u64)addrOthers, &tmp,
117 sizeof(tmp), 0);
118 if (copied != sizeof(tmp))
119 break;
120 ret = put_user(tmp, (u32 __user *) (unsigned long) data);
121 break;
122 }
123
1da177e4
LT
124 /* Read the word at location addr in the USER area. */
125 case PTRACE_PEEKUSR: {
126 struct pt_regs *regs;
127 unsigned int tmp;
128
40bc9c67 129 regs = task_pt_regs(child);
1da177e4
LT
130 ret = 0; /* Default return value. */
131
132 switch (addr) {
133 case 0 ... 31:
134 tmp = regs->regs[addr];
135 break;
136 case FPR_BASE ... FPR_BASE + 31:
137 if (tsk_used_math(child)) {
138 fpureg_t *fregs = get_fpu_regs(child);
139
140 /*
141 * The odd registers are actually the high
142 * order bits of the values stored in the even
143 * registers - unless we're using r2k_switch.S.
144 */
145 if (addr & 1)
146 tmp = (unsigned long) (fregs[((addr & ~1) - 32)] >> 32);
147 else
148 tmp = (unsigned long) (fregs[(addr - 32)] & 0xffffffff);
149 } else {
150 tmp = -1; /* FP not yet used */
151 }
152 break;
153 case PC:
154 tmp = regs->cp0_epc;
155 break;
156 case CAUSE:
157 tmp = regs->cp0_cause;
158 break;
159 case BADVADDR:
160 tmp = regs->cp0_badvaddr;
161 break;
162 case MMHI:
163 tmp = regs->hi;
164 break;
165 case MMLO:
166 tmp = regs->lo;
167 break;
168 case FPC_CSR:
169 if (cpu_has_fpu)
170 tmp = child->thread.fpu.hard.fcr31;
171 else
172 tmp = child->thread.fpu.soft.fcr31;
173 break;
174 case FPC_EIR: { /* implementation / version register */
175 unsigned int flags;
176
3055acb0
AN
177 if (!cpu_has_fpu) {
178 tmp = 0;
1da177e4 179 break;
3055acb0 180 }
1da177e4 181
101b3531
RB
182 preempt_disable();
183 if (cpu_has_mipsmt) {
184 unsigned int vpflags = dvpe();
185 flags = read_c0_status();
186 __enable_fpu();
187 __asm__ __volatile__("cfc1\t%0,$0": "=r" (tmp));
188 write_c0_status(flags);
189 evpe(vpflags);
190 } else {
191 flags = read_c0_status();
192 __enable_fpu();
193 __asm__ __volatile__("cfc1\t%0,$0": "=r" (tmp));
194 write_c0_status(flags);
195 }
196 preempt_enable();
1da177e4
LT
197 break;
198 }
3055acb0
AN
199 case DSP_BASE ... DSP_BASE + 5: {
200 dspreg_t *dregs;
201
e50c0a8f
RB
202 if (!cpu_has_dsp) {
203 tmp = 0;
204 ret = -EIO;
205 goto out_tsk;
206 }
3055acb0 207 dregs = __get_dsp_regs(child);
6c355852 208 tmp = (unsigned long) (dregs[addr - DSP_BASE]);
e50c0a8f 209 break;
3055acb0 210 }
e50c0a8f
RB
211 case DSP_CONTROL:
212 if (!cpu_has_dsp) {
213 tmp = 0;
214 ret = -EIO;
215 goto out_tsk;
216 }
217 tmp = child->thread.dsp.dspcontrol;
218 break;
1da177e4
LT
219 default:
220 tmp = 0;
221 ret = -EIO;
222 goto out_tsk;
223 }
3055acb0 224 ret = put_user(tmp, (unsigned __user *) (unsigned long) data);
1da177e4
LT
225 break;
226 }
227
228 /* when I and D space are separate, this will have to be fixed. */
229 case PTRACE_POKETEXT: /* write the word at location addr. */
230 case PTRACE_POKEDATA:
231 ret = 0;
232 if (access_process_vm(child, addr, &data, sizeof(data), 1)
233 == sizeof(data))
234 break;
235 ret = -EIO;
236 break;
237
ea3d710f
DJ
238 /*
239 * Write 4 bytes into the other process' storage
240 * data is the 4 bytes that the user wants written
241 * addr is a pointer in the user's storage that contains an
242 * 8 byte address in the other process where the 4 bytes
243 * that is to be written
244 * (this is run in a 32-bit process looking at a 64-bit process)
245 * when I and D space are separate, these will need to be fixed.
246 */
247 case PTRACE_POKETEXT_3264:
248 case PTRACE_POKEDATA_3264: {
249 u32 __user * addrOthers;
250
251 /* Get the addr in the other process that we want to write into */
252 ret = -EIO;
253 if (get_user(addrOthers, (u32 __user * __user *) (unsigned long) addr) != 0)
254 break;
255 ret = 0;
256 if (access_process_vm(child, (u64)addrOthers, &data,
257 sizeof(data), 1) == sizeof(data))
258 break;
259 ret = -EIO;
260 break;
261 }
262
1da177e4
LT
263 case PTRACE_POKEUSR: {
264 struct pt_regs *regs;
265 ret = 0;
40bc9c67 266 regs = task_pt_regs(child);
1da177e4
LT
267
268 switch (addr) {
269 case 0 ... 31:
270 regs->regs[addr] = data;
271 break;
272 case FPR_BASE ... FPR_BASE + 31: {
273 fpureg_t *fregs = get_fpu_regs(child);
274
275 if (!tsk_used_math(child)) {
276 /* FP not yet used */
277 memset(&child->thread.fpu.hard, ~0,
278 sizeof(child->thread.fpu.hard));
279 child->thread.fpu.hard.fcr31 = 0;
280 }
281 /*
282 * The odd registers are actually the high order bits
283 * of the values stored in the even registers - unless
284 * we're using r2k_switch.S.
285 */
286 if (addr & 1) {
287 fregs[(addr & ~1) - FPR_BASE] &= 0xffffffff;
288 fregs[(addr & ~1) - FPR_BASE] |= ((unsigned long long) data) << 32;
289 } else {
290 fregs[addr - FPR_BASE] &= ~0xffffffffLL;
291 /* Must cast, lest sign extension fill upper
292 bits! */
293 fregs[addr - FPR_BASE] |= (unsigned int)data;
294 }
295 break;
296 }
297 case PC:
298 regs->cp0_epc = data;
299 break;
300 case MMHI:
301 regs->hi = data;
302 break;
303 case MMLO:
304 regs->lo = data;
305 break;
306 case FPC_CSR:
307 if (cpu_has_fpu)
308 child->thread.fpu.hard.fcr31 = data;
309 else
310 child->thread.fpu.soft.fcr31 = data;
311 break;
3055acb0
AN
312 case DSP_BASE ... DSP_BASE + 5: {
313 dspreg_t *dregs;
314
e50c0a8f
RB
315 if (!cpu_has_dsp) {
316 ret = -EIO;
317 break;
318 }
319
3055acb0 320 dregs = __get_dsp_regs(child);
e50c0a8f
RB
321 dregs[addr - DSP_BASE] = data;
322 break;
3055acb0 323 }
e50c0a8f
RB
324 case DSP_CONTROL:
325 if (!cpu_has_dsp) {
326 ret = -EIO;
327 break;
328 }
329 child->thread.dsp.dspcontrol = data;
330 break;
1da177e4
LT
331 default:
332 /* The rest are not allowed. */
333 ret = -EIO;
334 break;
335 }
336 break;
337 }
338
ea3d710f
DJ
339 case PTRACE_GETREGS:
340 ret = ptrace_getregs (child, (__u64 __user *) (__u64) data);
341 break;
342
343 case PTRACE_SETREGS:
344 ret = ptrace_setregs (child, (__u64 __user *) (__u64) data);
345 break;
346
347 case PTRACE_GETFPREGS:
348 ret = ptrace_getfpregs (child, (__u32 __user *) (__u64) data);
349 break;
350
351 case PTRACE_SETFPREGS:
352 ret = ptrace_setfpregs (child, (__u32 __user *) (__u64) data);
353 break;
354
1da177e4
LT
355 case PTRACE_SYSCALL: /* continue and stop at next (return from) syscall */
356 case PTRACE_CONT: { /* restart after signal. */
357 ret = -EIO;
7ed20e1a 358 if (!valid_signal(data))
1da177e4
LT
359 break;
360 if (request == PTRACE_SYSCALL) {
361 set_tsk_thread_flag(child, TIF_SYSCALL_TRACE);
362 }
363 else {
364 clear_tsk_thread_flag(child, TIF_SYSCALL_TRACE);
365 }
366 child->exit_code = data;
367 wake_up_process(child);
368 ret = 0;
369 break;
370 }
371
372 /*
373 * make the child exit. Best I can do is send it a sigkill.
374 * perhaps it should be put in the status that it wants to
375 * exit.
376 */
377 case PTRACE_KILL:
378 ret = 0;
379 if (child->exit_state == EXIT_ZOMBIE) /* already dead */
380 break;
381 child->exit_code = SIGKILL;
382 wake_up_process(child);
383 break;
384
3c37026d 385 case PTRACE_GET_THREAD_AREA:
dc8f6029 386 ret = put_user(task_thread_info(child)->tp_value,
3c37026d
RB
387 (unsigned int __user *) (unsigned long) data);
388 break;
389
1da177e4
LT
390 case PTRACE_DETACH: /* detach a process that was attached. */
391 ret = ptrace_detach(child, data);
392 break;
393
09276d90
RB
394 case PTRACE_GETEVENTMSG:
395 ret = put_user(child->ptrace_message,
396 (unsigned int __user *) (unsigned long) data);
397 break;
398
ea3d710f 399 case PTRACE_GET_THREAD_AREA_3264:
dc8f6029 400 ret = put_user(task_thread_info(child)->tp_value,
ea3d710f
DJ
401 (unsigned long __user *) (unsigned long) data);
402 break;
403
1da177e4
LT
404 default:
405 ret = ptrace_request(child, request, addr, data);
406 break;
407 }
408
409out_tsk:
410 put_task_struct(child);
411out:
412 unlock_kernel();
413 return ret;
414}