blob: 9486882ef0afa8318fca682d24ff3c382c18997b [file] [log] [blame]
Chris Zankel5a0015d2005-06-23 22:01:16 -07001// TODO some minor issues
2/*
3 * This file is subject to the terms and conditions of the GNU General Public
4 * License. See the file "COPYING" in the main directory of this archive
5 * for more details.
6 *
Chris Zankelc658eac2008-02-12 13:17:07 -08007 * Copyright (C) 2001 - 2007 Tensilica Inc.
Chris Zankel5a0015d2005-06-23 22:01:16 -07008 *
9 * Joe Taylor <joe@tensilica.com, joetylr@yahoo.com>
10 * Chris Zankel <chris@zankel.net>
11 * Scott Foehner<sfoehner@yahoo.com>,
12 * Kevin Chea
13 * Marc Gauthier<marc@tensilica.com> <marc@alumni.uwaterloo.ca>
14 */
15
Chris Zankel5a0015d2005-06-23 22:01:16 -070016#include <linux/kernel.h>
17#include <linux/sched.h>
18#include <linux/mm.h>
19#include <linux/errno.h>
20#include <linux/ptrace.h>
21#include <linux/smp.h>
Chris Zankel5a0015d2005-06-23 22:01:16 -070022#include <linux/security.h>
Jesper Juhl0ee23b52005-06-30 02:58:56 -070023#include <linux/signal.h>
Chris Zankel5a0015d2005-06-23 22:01:16 -070024
25#include <asm/pgtable.h>
26#include <asm/page.h>
27#include <asm/system.h>
28#include <asm/uaccess.h>
29#include <asm/ptrace.h>
30#include <asm/elf.h>
Chris Zankelc658eac2008-02-12 13:17:07 -080031#include <asm/coprocessor.h>
Chris Zankel5a0015d2005-06-23 22:01:16 -070032
33/*
Chris Zankelc658eac2008-02-12 13:17:07 -080034 * Called by kernel/ptrace.c when detaching to disable single stepping.
Chris Zankel5a0015d2005-06-23 22:01:16 -070035 */
36
37void ptrace_disable(struct task_struct *child)
38{
39 /* Nothing to do.. */
40}
41
Chris Zankelc658eac2008-02-12 13:17:07 -080042int ptrace_getregs(struct task_struct *child, void __user *uregs)
Chris Zankel5a0015d2005-06-23 22:01:16 -070043{
Chris Zankelc658eac2008-02-12 13:17:07 -080044 struct pt_regs *regs = task_pt_regs(child);
45 xtensa_gregset_t __user *gregset = uregs;
Chris Zankelc658eac2008-02-12 13:17:07 -080046 unsigned long wm = regs->wmask;
Chris Zankel42086ce2008-01-28 15:55:01 -080047 unsigned long wb = regs->windowbase;
48 int live, i;
Chris Zankel5a0015d2005-06-23 22:01:16 -070049
Chris Zankelc658eac2008-02-12 13:17:07 -080050 if (!access_ok(VERIFY_WRITE, uregs, sizeof(xtensa_gregset_t)))
51 return -EIO;
Chris Zankel5a0015d2005-06-23 22:01:16 -070052
Chris Zankel42086ce2008-01-28 15:55:01 -080053 __put_user(regs->pc, &gregset->pc);
54 __put_user(regs->ps & ~(1 << PS_EXCM_BIT), &gregset->ps);
55 __put_user(regs->lbeg, &gregset->lbeg);
56 __put_user(regs->lend, &gregset->lend);
57 __put_user(regs->lcount, &gregset->lcount);
58 __put_user(regs->windowstart, &gregset->windowstart);
59 __put_user(regs->windowbase, &gregset->windowbase);
Chris Zankel5a0015d2005-06-23 22:01:16 -070060
Chris Zankelc658eac2008-02-12 13:17:07 -080061 live = (wm & 2) ? 4 : (wm & 4) ? 8 : (wm & 8) ? 12 : 16;
Chris Zankelc658eac2008-02-12 13:17:07 -080062
Chris Zankel42086ce2008-01-28 15:55:01 -080063 for (i = 0; i < live; i++)
64 __put_user(regs->areg[i],gregset->a+((wb*4+i)%XCHAL_NUM_AREGS));
65 for (i = XCHAL_NUM_AREGS - (wm >> 4) * 4; i < XCHAL_NUM_AREGS; i++)
66 __put_user(regs->areg[i],gregset->a+((wb*4+i)%XCHAL_NUM_AREGS));
67
68 return 0;
Chris Zankelc658eac2008-02-12 13:17:07 -080069}
70
71int ptrace_setregs(struct task_struct *child, void __user *uregs)
72{
73 struct pt_regs *regs = task_pt_regs(child);
74 xtensa_gregset_t *gregset = uregs;
75 const unsigned long ps_mask = PS_CALLINC_MASK | PS_OWB_MASK;
Chris Zankelc658eac2008-02-12 13:17:07 -080076 unsigned long ps;
Chris Zankel42086ce2008-01-28 15:55:01 -080077 unsigned long wb;
Chris Zankelc658eac2008-02-12 13:17:07 -080078
79 if (!access_ok(VERIFY_WRITE, uregs, sizeof(xtensa_gregset_t)))
80 return -EIO;
81
Chris Zankel42086ce2008-01-28 15:55:01 -080082 __get_user(regs->pc, &gregset->pc);
83 __get_user(ps, &gregset->ps);
84 __get_user(regs->lbeg, &gregset->lbeg);
85 __get_user(regs->lend, &gregset->lend);
86 __get_user(regs->lcount, &gregset->lcount);
87 __get_user(regs->windowstart, &gregset->windowstart);
88 __get_user(wb, &gregset->windowbase);
Chris Zankelc658eac2008-02-12 13:17:07 -080089
90 regs->ps = (regs->ps & ~ps_mask) | (ps & ps_mask) | (1 << PS_EXCM_BIT);
91
Chris Zankel42086ce2008-01-28 15:55:01 -080092 if (wb >= XCHAL_NUM_AREGS / 4)
93 return -EFAULT;
Chris Zankelc658eac2008-02-12 13:17:07 -080094
Chris Zankel42086ce2008-01-28 15:55:01 -080095 regs->windowbase = wb;
96
97 if (wb != 0 && __copy_from_user(regs->areg + XCHAL_NUM_AREGS - wb * 4,
98 gregset->a, wb * 16))
99 return -EFAULT;
100
101 if (__copy_from_user(regs->areg, gregset->a + wb*4, (WSBITS-wb) * 16))
102 return -EFAULT;
103
104 return 0;
Chris Zankelc658eac2008-02-12 13:17:07 -0800105}
106
107
108int ptrace_getxregs(struct task_struct *child, void __user *uregs)
109{
110 struct pt_regs *regs = task_pt_regs(child);
111 struct thread_info *ti = task_thread_info(child);
112 elf_xtregs_t __user *xtregs = uregs;
113 int ret = 0;
114
115 if (!access_ok(VERIFY_WRITE, uregs, sizeof(elf_xtregs_t)))
116 return -EIO;
117
118#if XTENSA_HAVE_COPROCESSORS
119 /* Flush all coprocessor registers to memory. */
120 coprocessor_flush_all(ti);
121 ret |= __copy_to_user(&xtregs->cp0, &ti->xtregs_cp,
122 sizeof(xtregs_coprocessor_t));
123#endif
124 ret |= __copy_to_user(&xtregs->opt, &regs->xtregs_opt,
125 sizeof(xtregs->opt));
126 ret |= __copy_to_user(&xtregs->user,&ti->xtregs_user,
127 sizeof(xtregs->user));
128
129 return ret ? -EFAULT : 0;
130}
131
132int ptrace_setxregs(struct task_struct *child, void __user *uregs)
133{
134 struct thread_info *ti = task_thread_info(child);
135 struct pt_regs *regs = task_pt_regs(child);
136 elf_xtregs_t *xtregs = uregs;
137 int ret = 0;
138
139#if XTENSA_HAVE_COPROCESSORS
140 /* Flush all coprocessors before we overwrite them. */
141 coprocessor_flush_all(ti);
142 coprocessor_release_all(ti);
143
144 ret |= __copy_from_user(&ti->xtregs_cp, &xtregs->cp0,
145 sizeof(xtregs_coprocessor_t));
146#endif
147 ret |= __copy_from_user(&regs->xtregs_opt, &xtregs->opt,
148 sizeof(xtregs->opt));
149 ret |= __copy_from_user(&ti->xtregs_user, &xtregs->user,
150 sizeof(xtregs->user));
151
152 return ret ? -EFAULT : 0;
153}
154
155int ptrace_peekusr(struct task_struct *child, long regno, long __user *ret)
156{
157 struct pt_regs *regs;
158 unsigned long tmp;
159
160 regs = task_pt_regs(child);
161 tmp = 0; /* Default return value. */
162
163 switch(regno) {
Chris Zankel5a0015d2005-06-23 22:01:16 -0700164
165 case REG_AR_BASE ... REG_AR_BASE + XCHAL_NUM_AREGS - 1:
Chris Zankelc658eac2008-02-12 13:17:07 -0800166 tmp = regs->areg[regno - REG_AR_BASE];
Chris Zankel5a0015d2005-06-23 22:01:16 -0700167 break;
Chris Zankelc658eac2008-02-12 13:17:07 -0800168
Chris Zankel5a0015d2005-06-23 22:01:16 -0700169 case REG_A_BASE ... REG_A_BASE + 15:
Chris Zankelc658eac2008-02-12 13:17:07 -0800170 tmp = regs->areg[regno - REG_A_BASE];
Chris Zankel5a0015d2005-06-23 22:01:16 -0700171 break;
Chris Zankelc658eac2008-02-12 13:17:07 -0800172
Chris Zankel5a0015d2005-06-23 22:01:16 -0700173 case REG_PC:
174 tmp = regs->pc;
175 break;
Chris Zankelc658eac2008-02-12 13:17:07 -0800176
Chris Zankel5a0015d2005-06-23 22:01:16 -0700177 case REG_PS:
178 /* Note: PS.EXCM is not set while user task is running;
179 * its being set in regs is for exception handling
180 * convenience. */
Chris Zankel173d6682006-12-10 02:18:48 -0800181 tmp = (regs->ps & ~(1 << PS_EXCM_BIT));
Chris Zankel5a0015d2005-06-23 22:01:16 -0700182 break;
Chris Zankelc658eac2008-02-12 13:17:07 -0800183
Chris Zankel5a0015d2005-06-23 22:01:16 -0700184 case REG_WB:
Chris Zankelc658eac2008-02-12 13:17:07 -0800185 break; /* tmp = 0 */
186
Chris Zankel5a0015d2005-06-23 22:01:16 -0700187 case REG_WS:
Chris Zankelc658eac2008-02-12 13:17:07 -0800188 {
189 unsigned long wb = regs->windowbase;
190 unsigned long ws = regs->windowstart;
191 tmp = ((ws>>wb) | (ws<<(WSBITS-wb))) & ((1<<WSBITS)-1);
Chris Zankel5a0015d2005-06-23 22:01:16 -0700192 break;
Chris Zankelc658eac2008-02-12 13:17:07 -0800193 }
Chris Zankel5a0015d2005-06-23 22:01:16 -0700194 case REG_LBEG:
195 tmp = regs->lbeg;
196 break;
Chris Zankelc658eac2008-02-12 13:17:07 -0800197
Chris Zankel5a0015d2005-06-23 22:01:16 -0700198 case REG_LEND:
199 tmp = regs->lend;
200 break;
Chris Zankelc658eac2008-02-12 13:17:07 -0800201
Chris Zankel5a0015d2005-06-23 22:01:16 -0700202 case REG_LCOUNT:
203 tmp = regs->lcount;
204 break;
Chris Zankelc658eac2008-02-12 13:17:07 -0800205
Chris Zankel5a0015d2005-06-23 22:01:16 -0700206 case REG_SAR:
207 tmp = regs->sar;
208 break;
Chris Zankelc658eac2008-02-12 13:17:07 -0800209
Chris Zankel5a0015d2005-06-23 22:01:16 -0700210 case SYSCALL_NR:
211 tmp = regs->syscall;
212 break;
Chris Zankel5a0015d2005-06-23 22:01:16 -0700213
Chris Zankelc658eac2008-02-12 13:17:07 -0800214 default:
215 return -EIO;
216 }
217 return put_user(tmp, ret);
218}
219
220int ptrace_pokeusr(struct task_struct *child, long regno, long val)
221{
222 struct pt_regs *regs;
223 regs = task_pt_regs(child);
224
225 switch (regno) {
226 case REG_AR_BASE ... REG_AR_BASE + XCHAL_NUM_AREGS - 1:
227 regs->areg[regno - REG_AR_BASE] = val;
228 break;
229
230 case REG_A_BASE ... REG_A_BASE + 15:
231 regs->areg[regno - REG_A_BASE] = val;
232 break;
233
234 case REG_PC:
235 regs->pc = val;
236 break;
237
238 case SYSCALL_NR:
239 regs->syscall = val;
240 break;
241
242 default:
243 return -EIO;
244 }
245 return 0;
246}
247
248long arch_ptrace(struct task_struct *child, long request, long addr, long data)
249{
250 int ret = -EPERM;
251
252 switch (request) {
253 case PTRACE_PEEKTEXT: /* read word at location addr. */
254 case PTRACE_PEEKDATA:
255 ret = generic_ptrace_peekdata(child, addr, data);
256 break;
257
258 case PTRACE_PEEKUSR: /* read register specified by addr. */
259 ret = ptrace_peekusr(child, addr, (void __user *) data);
260 break;
261
262 case PTRACE_POKETEXT: /* write the word at location addr. */
Chris Zankel5a0015d2005-06-23 22:01:16 -0700263 case PTRACE_POKEDATA:
Alexey Dobriyanf284ce72007-07-17 04:03:44 -0700264 ret = generic_ptrace_pokedata(child, addr, data);
Chris Zankel5a0015d2005-06-23 22:01:16 -0700265 break;
Chris Zankelc658eac2008-02-12 13:17:07 -0800266
267 case PTRACE_POKEUSR: /* write register specified by addr. */
268 ret = ptrace_pokeusr(child, addr, data);
269 break;
Chris Zankel5a0015d2005-06-23 22:01:16 -0700270
271 /* continue and stop at next (return from) syscall */
Chris Zankelc658eac2008-02-12 13:17:07 -0800272
Chris Zankel5a0015d2005-06-23 22:01:16 -0700273 case PTRACE_SYSCALL:
274 case PTRACE_CONT: /* restart after signal. */
275 {
276 ret = -EIO;
Jesper Juhl0ee23b52005-06-30 02:58:56 -0700277 if (!valid_signal(data))
Chris Zankel5a0015d2005-06-23 22:01:16 -0700278 break;
279 if (request == PTRACE_SYSCALL)
280 set_tsk_thread_flag(child, TIF_SYSCALL_TRACE);
281 else
282 clear_tsk_thread_flag(child, TIF_SYSCALL_TRACE);
283 child->exit_code = data;
284 /* Make sure the single step bit is not set. */
285 child->ptrace &= ~PT_SINGLESTEP;
286 wake_up_process(child);
287 ret = 0;
288 break;
289 }
290
291 /*
292 * make the child exit. Best I can do is send it a sigkill.
293 * perhaps it should be put in the status that it wants to
294 * exit.
295 */
296 case PTRACE_KILL:
297 ret = 0;
Bill Huey (huid742eae2006-08-31 21:27:39 -0700298 if (child->exit_state == EXIT_ZOMBIE) /* already dead */
Chris Zankel5a0015d2005-06-23 22:01:16 -0700299 break;
300 child->exit_code = SIGKILL;
301 child->ptrace &= ~PT_SINGLESTEP;
302 wake_up_process(child);
303 break;
304
305 case PTRACE_SINGLESTEP:
306 ret = -EIO;
Jesper Juhl0ee23b52005-06-30 02:58:56 -0700307 if (!valid_signal(data))
Chris Zankel5a0015d2005-06-23 22:01:16 -0700308 break;
309 clear_tsk_thread_flag(child, TIF_SYSCALL_TRACE);
310 child->ptrace |= PT_SINGLESTEP;
311 child->exit_code = data;
312 wake_up_process(child);
313 ret = 0;
314 break;
315
316 case PTRACE_GETREGS:
Chris Zankelc658eac2008-02-12 13:17:07 -0800317 ret = ptrace_getregs(child, (void __user *) data);
Chris Zankel5a0015d2005-06-23 22:01:16 -0700318 break;
Chris Zankel5a0015d2005-06-23 22:01:16 -0700319
320 case PTRACE_SETREGS:
Chris Zankelc658eac2008-02-12 13:17:07 -0800321 ret = ptrace_setregs(child, (void __user *) data);
Chris Zankel5a0015d2005-06-23 22:01:16 -0700322 break;
Chris Zankel5a0015d2005-06-23 22:01:16 -0700323
Chris Zankelc658eac2008-02-12 13:17:07 -0800324 case PTRACE_GETXTREGS:
325 ret = ptrace_getxregs(child, (void __user *) data);
Chris Zankel5a0015d2005-06-23 22:01:16 -0700326 break;
Chris Zankel5a0015d2005-06-23 22:01:16 -0700327
Chris Zankelc658eac2008-02-12 13:17:07 -0800328 case PTRACE_SETXTREGS:
329 ret = ptrace_setxregs(child, (void __user *) data);
Chris Zankel5a0015d2005-06-23 22:01:16 -0700330 break;
331
Chris Zankel5a0015d2005-06-23 22:01:16 -0700332 default:
333 ret = ptrace_request(child, request, addr, data);
Chris Zankelc658eac2008-02-12 13:17:07 -0800334 break;
Chris Zankel5a0015d2005-06-23 22:01:16 -0700335 }
Chris Zankelc658eac2008-02-12 13:17:07 -0800336
Chris Zankel5a0015d2005-06-23 22:01:16 -0700337 return ret;
338}
339
340void do_syscall_trace(void)
341{
Chris Zankel5a0015d2005-06-23 22:01:16 -0700342 /*
343 * The 0x80 provides a way for the tracing parent to distinguish
344 * between a syscall stop and SIGTRAP delivery
345 */
346 ptrace_notify(SIGTRAP|((current->ptrace & PT_TRACESYSGOOD) ? 0x80 : 0));
347
348 /*
349 * this isn't the same as continuing with a signal, but it will do
350 * for normal use. strace only continues with a signal if the
351 * stopping signal is not SIGTRAP. -brl
352 */
353 if (current->exit_code) {
354 send_sig(current->exit_code, current, 1);
355 current->exit_code = 0;
356 }
357}
Chris Zankelfc4fb2a2006-12-10 02:18:52 -0800358
359void do_syscall_trace_enter(struct pt_regs *regs)
360{
361 if (test_thread_flag(TIF_SYSCALL_TRACE)
362 && (current->ptrace & PT_PTRACED))
363 do_syscall_trace();
364
365#if 0
366 if (unlikely(current->audit_context))
367 audit_syscall_entry(current, AUDIT_ARCH_XTENSA..);
368#endif
369}
370
371void do_syscall_trace_leave(struct pt_regs *regs)
372{
373 if ((test_thread_flag(TIF_SYSCALL_TRACE))
374 && (current->ptrace & PT_PTRACED))
375 do_syscall_trace();
376}
377