2 * Kernel support for the ptrace() and syscall tracing interfaces.
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>
7 * Copyright (C) 2008-2016 Helge Deller <deller@gmx.de>
10 #include <linux/kernel.h>
11 #include <linux/sched.h>
13 #include <linux/smp.h>
14 #include <linux/elf.h>
15 #include <linux/errno.h>
16 #include <linux/ptrace.h>
17 #include <linux/tracehook.h>
18 #include <linux/user.h>
19 #include <linux/personality.h>
20 #include <linux/regset.h>
21 #include <linux/security.h>
22 #include <linux/seccomp.h>
23 #include <linux/compat.h>
24 #include <linux/signal.h>
25 #include <linux/audit.h>
27 #include <asm/uaccess.h>
28 #include <asm/pgtable.h>
29 #include <asm/processor.h>
30 #include <asm/asm-offsets.h>
32 /* PSW bits we allow the debugger to modify */
33 #define USER_PSW_BITS (PSW_N | PSW_B | PSW_V | PSW_CB)
35 #define CREATE_TRACE_POINTS
36 #include <trace/events/syscalls.h>
39 * These are our native regset flavors.
47 * Called by kernel/ptrace.c when detaching..
49 * Make sure single step bits etc are not set.
51 void ptrace_disable(struct task_struct
*task
)
53 clear_tsk_thread_flag(task
, TIF_SINGLESTEP
);
54 clear_tsk_thread_flag(task
, TIF_BLOCKSTEP
);
56 /* make sure the trap bits are not set */
64 * The following functions are called by ptrace_resume() when
65 * enabling or disabling single/block tracing.
67 void user_disable_single_step(struct task_struct
*task
)
72 void user_enable_single_step(struct task_struct
*task
)
74 clear_tsk_thread_flag(task
, TIF_BLOCKSTEP
);
75 set_tsk_thread_flag(task
, TIF_SINGLESTEP
);
77 if (pa_psw(task
)->n
) {
80 /* Nullified, just crank over the queue. */
81 task_regs(task
)->iaoq
[0] = task_regs(task
)->iaoq
[1];
82 task_regs(task
)->iasq
[0] = task_regs(task
)->iasq
[1];
83 task_regs(task
)->iaoq
[1] = task_regs(task
)->iaoq
[0] + 4;
90 /* Don't wake up the task, but let the
91 parent know something happened. */
92 si
.si_code
= TRAP_TRACE
;
93 si
.si_addr
= (void __user
*) (task_regs(task
)->iaoq
[0] & ~3);
94 si
.si_signo
= SIGTRAP
;
96 force_sig_info(SIGTRAP
, &si
, task
);
97 /* notify_parent(task, SIGCHLD); */
101 /* Enable recovery counter traps. The recovery counter
102 * itself will be set to zero on a task switch. If the
103 * task is suspended on a syscall then the syscall return
104 * path will overwrite the recovery counter with a suitable
105 * value such that it traps once back in user space. We
106 * disable interrupts in the tasks PSW here also, to avoid
107 * interrupts while the recovery counter is decrementing.
115 void user_enable_block_step(struct task_struct
*task
)
117 clear_tsk_thread_flag(task
, TIF_SINGLESTEP
);
118 set_tsk_thread_flag(task
, TIF_BLOCKSTEP
);
120 /* Enable taken branch trap. */
127 long arch_ptrace(struct task_struct
*child
, long request
,
128 unsigned long addr
, unsigned long data
)
130 unsigned long __user
*datap
= (unsigned long __user
*)data
;
136 /* Read the word at location addr in the USER area. For ptraced
137 processes, the kernel saves all regs on a syscall. */
139 if ((addr
& (sizeof(unsigned long)-1)) ||
140 addr
>= sizeof(struct pt_regs
))
142 tmp
= *(unsigned long *) ((char *) task_regs(child
) + addr
);
143 ret
= put_user(tmp
, datap
);
146 /* Write the word at location addr in the USER area. This will need
147 to change when the kernel no longer saves all regs on a syscall.
148 FIXME. There is a problem at the moment in that r3-r18 are only
149 saved if the process is ptraced on syscall entry, and even then
150 those values are overwritten by actual register values on syscall
153 /* Some register values written here may be ignored in
154 * entry.S:syscall_restore_rfi; e.g. iaoq is written with
155 * r31/r31+4, and not with the values in pt_regs.
157 if (addr
== PT_PSW
) {
158 /* Allow writing to Nullify, Divide-step-correction,
159 * and carry/borrow bits.
160 * BEWARE, if you set N, and then single step, it won't
161 * stop on the nullified instruction.
163 data
&= USER_PSW_BITS
;
164 task_regs(child
)->gr
[0] &= ~USER_PSW_BITS
;
165 task_regs(child
)->gr
[0] |= data
;
170 if ((addr
& (sizeof(unsigned long)-1)) ||
171 addr
>= sizeof(struct pt_regs
))
173 if ((addr
>= PT_GR1
&& addr
<= PT_GR31
) ||
174 addr
== PT_IAOQ0
|| addr
== PT_IAOQ1
||
175 (addr
>= PT_FR0
&& addr
<= PT_FR31
+ 4) ||
177 *(unsigned long *) ((char *) task_regs(child
) + addr
) = data
;
182 case PTRACE_GETREGS
: /* Get all gp regs from the child. */
183 return copy_regset_to_user(child
,
184 task_user_regset_view(current
),
186 0, sizeof(struct user_regs_struct
),
189 case PTRACE_SETREGS
: /* Set all gp regs in the child. */
190 return copy_regset_from_user(child
,
191 task_user_regset_view(current
),
193 0, sizeof(struct user_regs_struct
),
196 case PTRACE_GETFPREGS
: /* Get the child FPU state. */
197 return copy_regset_to_user(child
,
198 task_user_regset_view(current
),
200 0, sizeof(struct user_fp_struct
),
203 case PTRACE_SETFPREGS
: /* Set the child FPU state. */
204 return copy_regset_from_user(child
,
205 task_user_regset_view(current
),
207 0, sizeof(struct user_fp_struct
),
211 ret
= ptrace_request(child
, request
, addr
, data
);
221 /* This function is needed to translate 32 bit pt_regs offsets in to
222 * 64 bit pt_regs offsets. For example, a 32 bit gdb under a 64 bit kernel
223 * will request offset 12 if it wants gr3, but the lower 32 bits of
224 * the 64 bit kernels view of gr3 will be at offset 28 (3*8 + 4).
225 * This code relies on a 32 bit pt_regs being comprised of 32 bit values
226 * except for the fp registers which (a) are 64 bits, and (b) follow
227 * the gr registers at the start of pt_regs. The 32 bit pt_regs should
228 * be half the size of the 64 bit pt_regs, plus 32*4 to allow for fr[]
229 * being 64 bit in both cases.
232 static compat_ulong_t
translate_usr_offset(compat_ulong_t offset
)
235 return sizeof(struct pt_regs
);
236 else if (offset
<= 32*4) /* gr[0..31] */
237 return offset
* 2 + 4;
238 else if (offset
<= 32*4+32*8) /* gr[0..31] + fr[0..31] */
239 return offset
+ 32*4;
240 else if (offset
< sizeof(struct pt_regs
)/2 + 32*4)
241 return offset
* 2 + 4 - 32*8;
243 return sizeof(struct pt_regs
);
246 long compat_arch_ptrace(struct task_struct
*child
, compat_long_t request
,
247 compat_ulong_t addr
, compat_ulong_t data
)
255 if (addr
& (sizeof(compat_uint_t
)-1))
257 addr
= translate_usr_offset(addr
);
258 if (addr
>= sizeof(struct pt_regs
))
261 tmp
= *(compat_uint_t
*) ((char *) task_regs(child
) + addr
);
262 ret
= put_user(tmp
, (compat_uint_t
*) (unsigned long) data
);
265 /* Write the word at location addr in the USER area. This will need
266 to change when the kernel no longer saves all regs on a syscall.
267 FIXME. There is a problem at the moment in that r3-r18 are only
268 saved if the process is ptraced on syscall entry, and even then
269 those values are overwritten by actual register values on syscall
272 /* Some register values written here may be ignored in
273 * entry.S:syscall_restore_rfi; e.g. iaoq is written with
274 * r31/r31+4, and not with the values in pt_regs.
276 if (addr
== PT_PSW
) {
277 /* Since PT_PSW==0, it is valid for 32 bit processes
278 * under 64 bit kernels as well.
280 ret
= arch_ptrace(child
, request
, addr
, data
);
282 if (addr
& (sizeof(compat_uint_t
)-1))
284 addr
= translate_usr_offset(addr
);
285 if (addr
>= sizeof(struct pt_regs
))
287 if (addr
>= PT_FR0
&& addr
<= PT_FR31
+ 4) {
288 /* Special case, fp regs are 64 bits anyway */
289 *(__u64
*) ((char *) task_regs(child
) + addr
) = data
;
292 else if ((addr
>= PT_GR1
+4 && addr
<= PT_GR31
+4) ||
293 addr
== PT_IAOQ0
+4 || addr
== PT_IAOQ1
+4 ||
295 /* Zero the top 32 bits */
296 *(__u32
*) ((char *) task_regs(child
) + addr
- 4) = 0;
297 *(__u32
*) ((char *) task_regs(child
) + addr
) = data
;
304 ret
= compat_ptrace_request(child
, request
, addr
, data
);
312 long do_syscall_trace_enter(struct pt_regs
*regs
)
314 if (test_thread_flag(TIF_SYSCALL_TRACE
) &&
315 tracehook_report_syscall_entry(regs
)) {
317 * Tracing decided this syscall should not happen or the
318 * debugger stored an invalid system call number. Skip
319 * the system call and the system call restart handling.
325 /* Do the secure computing check after ptrace. */
326 if (secure_computing(NULL
) == -1)
329 #ifdef CONFIG_HAVE_SYSCALL_TRACEPOINTS
330 if (unlikely(test_thread_flag(TIF_SYSCALL_TRACEPOINT
)))
331 trace_sys_enter(regs
, regs
->gr
[20]);
335 if (!is_compat_task())
336 audit_syscall_entry(regs
->gr
[20], regs
->gr
[26], regs
->gr
[25],
337 regs
->gr
[24], regs
->gr
[23]);
340 audit_syscall_entry(regs
->gr
[20] & 0xffffffff,
341 regs
->gr
[26] & 0xffffffff,
342 regs
->gr
[25] & 0xffffffff,
343 regs
->gr
[24] & 0xffffffff,
344 regs
->gr
[23] & 0xffffffff);
348 * Sign extend the syscall number to 64bit since it may have been
349 * modified by a compat ptrace call
351 return (int) ((u32
) regs
->gr
[20]);
354 void do_syscall_trace_exit(struct pt_regs
*regs
)
356 int stepping
= test_thread_flag(TIF_SINGLESTEP
) ||
357 test_thread_flag(TIF_BLOCKSTEP
);
359 audit_syscall_exit(regs
);
361 #ifdef CONFIG_HAVE_SYSCALL_TRACEPOINTS
362 if (unlikely(test_thread_flag(TIF_SYSCALL_TRACEPOINT
)))
363 trace_sys_exit(regs
, regs
->gr
[20]);
366 if (stepping
|| test_thread_flag(TIF_SYSCALL_TRACE
))
367 tracehook_report_syscall_exit(regs
, stepping
);
375 static int fpr_get(struct task_struct
*target
,
376 const struct user_regset
*regset
,
377 unsigned int pos
, unsigned int count
,
378 void *kbuf
, void __user
*ubuf
)
380 struct pt_regs
*regs
= task_regs(target
);
382 __u64 __user
*u
= ubuf
;
386 count
/= sizeof(reg
);
389 for (; count
> 0 && pos
< ELF_NFPREG
; --count
)
390 *k
++ = regs
->fr
[pos
++];
392 for (; count
> 0 && pos
< ELF_NFPREG
; --count
)
393 if (__put_user(regs
->fr
[pos
++], u
++))
399 count
*= sizeof(reg
);
400 return user_regset_copyout_zero(&pos
, &count
, &kbuf
, &ubuf
,
401 ELF_NFPREG
* sizeof(reg
), -1);
404 static int fpr_set(struct task_struct
*target
,
405 const struct user_regset
*regset
,
406 unsigned int pos
, unsigned int count
,
407 const void *kbuf
, const void __user
*ubuf
)
409 struct pt_regs
*regs
= task_regs(target
);
410 const __u64
*k
= kbuf
;
411 const __u64 __user
*u
= ubuf
;
415 count
/= sizeof(reg
);
418 for (; count
> 0 && pos
< ELF_NFPREG
; --count
)
419 regs
->fr
[pos
++] = *k
++;
421 for (; count
> 0 && pos
< ELF_NFPREG
; --count
) {
422 if (__get_user(reg
, u
++))
424 regs
->fr
[pos
++] = reg
;
430 count
*= sizeof(reg
);
431 return user_regset_copyin_ignore(&pos
, &count
, &kbuf
, &ubuf
,
432 ELF_NFPREG
* sizeof(reg
), -1);
435 #define RI(reg) (offsetof(struct user_regs_struct,reg) / sizeof(long))
437 static unsigned long get_reg(struct pt_regs
*regs
, int num
)
440 case RI(gr
[0]) ... RI(gr
[31]): return regs
->gr
[num
- RI(gr
[0])];
441 case RI(sr
[0]) ... RI(sr
[7]): return regs
->sr
[num
- RI(sr
[0])];
442 case RI(iasq
[0]): return regs
->iasq
[0];
443 case RI(iasq
[1]): return regs
->iasq
[1];
444 case RI(iaoq
[0]): return regs
->iaoq
[0];
445 case RI(iaoq
[1]): return regs
->iaoq
[1];
446 case RI(sar
): return regs
->sar
;
447 case RI(iir
): return regs
->iir
;
448 case RI(isr
): return regs
->isr
;
449 case RI(ior
): return regs
->ior
;
450 case RI(ipsw
): return regs
->ipsw
;
451 case RI(cr27
): return regs
->cr27
;
452 case RI(cr0
): return mfctl(0);
453 case RI(cr24
): return mfctl(24);
454 case RI(cr25
): return mfctl(25);
455 case RI(cr26
): return mfctl(26);
456 case RI(cr28
): return mfctl(28);
457 case RI(cr29
): return mfctl(29);
458 case RI(cr30
): return mfctl(30);
459 case RI(cr31
): return mfctl(31);
460 case RI(cr8
): return mfctl(8);
461 case RI(cr9
): return mfctl(9);
462 case RI(cr12
): return mfctl(12);
463 case RI(cr13
): return mfctl(13);
464 case RI(cr10
): return mfctl(10);
465 case RI(cr15
): return mfctl(15);
470 static void set_reg(struct pt_regs
*regs
, int num
, unsigned long val
)
475 * Allow writing to Nullify, Divide-step-correction,
476 * and carry/borrow bits.
477 * BEWARE, if you set N, and then single step, it won't
478 * stop on the nullified instruction.
480 val
&= USER_PSW_BITS
;
481 regs
->gr
[0] &= ~USER_PSW_BITS
;
484 case RI(gr
[1]) ... RI(gr
[31]):
485 regs
->gr
[num
- RI(gr
[0])] = val
;
489 regs
->iaoq
[num
- RI(iaoq
[0])] = val
;
491 case RI(sar
): regs
->sar
= val
;
495 /* do not allow to change any of the following registers (yet) */
496 case RI(sr
[0]) ... RI(sr
[7]): return regs
->sr
[num
- RI(sr
[0])];
497 case RI(iasq
[0]): return regs
->iasq
[0];
498 case RI(iasq
[1]): return regs
->iasq
[1];
499 case RI(iir
): return regs
->iir
;
500 case RI(isr
): return regs
->isr
;
501 case RI(ior
): return regs
->ior
;
502 case RI(ipsw
): return regs
->ipsw
;
503 case RI(cr27
): return regs
->cr27
;
504 case cr0
, cr24
, cr25
, cr26
, cr27
, cr28
, cr29
, cr30
, cr31
;
505 case cr8
, cr9
, cr12
, cr13
, cr10
, cr15
;
510 static int gpr_get(struct task_struct
*target
,
511 const struct user_regset
*regset
,
512 unsigned int pos
, unsigned int count
,
513 void *kbuf
, void __user
*ubuf
)
515 struct pt_regs
*regs
= task_regs(target
);
516 unsigned long *k
= kbuf
;
517 unsigned long __user
*u
= ubuf
;
521 count
/= sizeof(reg
);
524 for (; count
> 0 && pos
< ELF_NGREG
; --count
)
525 *k
++ = get_reg(regs
, pos
++);
527 for (; count
> 0 && pos
< ELF_NGREG
; --count
)
528 if (__put_user(get_reg(regs
, pos
++), u
++))
533 count
*= sizeof(reg
);
534 return user_regset_copyout_zero(&pos
, &count
, &kbuf
, &ubuf
,
535 ELF_NGREG
* sizeof(reg
), -1);
538 static int gpr_set(struct task_struct
*target
,
539 const struct user_regset
*regset
,
540 unsigned int pos
, unsigned int count
,
541 const void *kbuf
, const void __user
*ubuf
)
543 struct pt_regs
*regs
= task_regs(target
);
544 const unsigned long *k
= kbuf
;
545 const unsigned long __user
*u
= ubuf
;
549 count
/= sizeof(reg
);
552 for (; count
> 0 && pos
< ELF_NGREG
; --count
)
553 set_reg(regs
, pos
++, *k
++);
555 for (; count
> 0 && pos
< ELF_NGREG
; --count
) {
556 if (__get_user(reg
, u
++))
558 set_reg(regs
, pos
++, reg
);
564 count
*= sizeof(reg
);
565 return user_regset_copyin_ignore(&pos
, &count
, &kbuf
, &ubuf
,
566 ELF_NGREG
* sizeof(reg
), -1);
569 static const struct user_regset native_regsets
[] = {
571 .core_note_type
= NT_PRSTATUS
, .n
= ELF_NGREG
,
572 .size
= sizeof(long), .align
= sizeof(long),
573 .get
= gpr_get
, .set
= gpr_set
576 .core_note_type
= NT_PRFPREG
, .n
= ELF_NFPREG
,
577 .size
= sizeof(__u64
), .align
= sizeof(__u64
),
578 .get
= fpr_get
, .set
= fpr_set
582 static const struct user_regset_view user_parisc_native_view
= {
583 .name
= "parisc", .e_machine
= ELF_ARCH
, .ei_osabi
= ELFOSABI_LINUX
,
584 .regsets
= native_regsets
, .n
= ARRAY_SIZE(native_regsets
)
588 #include <linux/compat.h>
590 static int gpr32_get(struct task_struct
*target
,
591 const struct user_regset
*regset
,
592 unsigned int pos
, unsigned int count
,
593 void *kbuf
, void __user
*ubuf
)
595 struct pt_regs
*regs
= task_regs(target
);
596 compat_ulong_t
*k
= kbuf
;
597 compat_ulong_t __user
*u
= ubuf
;
601 count
/= sizeof(reg
);
604 for (; count
> 0 && pos
< ELF_NGREG
; --count
)
605 *k
++ = get_reg(regs
, pos
++);
607 for (; count
> 0 && pos
< ELF_NGREG
; --count
)
608 if (__put_user((compat_ulong_t
) get_reg(regs
, pos
++), u
++))
614 count
*= sizeof(reg
);
615 return user_regset_copyout_zero(&pos
, &count
, &kbuf
, &ubuf
,
616 ELF_NGREG
* sizeof(reg
), -1);
619 static int gpr32_set(struct task_struct
*target
,
620 const struct user_regset
*regset
,
621 unsigned int pos
, unsigned int count
,
622 const void *kbuf
, const void __user
*ubuf
)
624 struct pt_regs
*regs
= task_regs(target
);
625 const compat_ulong_t
*k
= kbuf
;
626 const compat_ulong_t __user
*u
= ubuf
;
630 count
/= sizeof(reg
);
633 for (; count
> 0 && pos
< ELF_NGREG
; --count
)
634 set_reg(regs
, pos
++, *k
++);
636 for (; count
> 0 && pos
< ELF_NGREG
; --count
) {
637 if (__get_user(reg
, u
++))
639 set_reg(regs
, pos
++, reg
);
645 count
*= sizeof(reg
);
646 return user_regset_copyin_ignore(&pos
, &count
, &kbuf
, &ubuf
,
647 ELF_NGREG
* sizeof(reg
), -1);
651 * These are the regset flavors matching the 32bit native set.
653 static const struct user_regset compat_regsets
[] = {
655 .core_note_type
= NT_PRSTATUS
, .n
= ELF_NGREG
,
656 .size
= sizeof(compat_long_t
), .align
= sizeof(compat_long_t
),
657 .get
= gpr32_get
, .set
= gpr32_set
660 .core_note_type
= NT_PRFPREG
, .n
= ELF_NFPREG
,
661 .size
= sizeof(__u64
), .align
= sizeof(__u64
),
662 .get
= fpr_get
, .set
= fpr_set
666 static const struct user_regset_view user_parisc_compat_view
= {
667 .name
= "parisc", .e_machine
= EM_PARISC
, .ei_osabi
= ELFOSABI_LINUX
,
668 .regsets
= compat_regsets
, .n
= ARRAY_SIZE(compat_regsets
)
670 #endif /* CONFIG_64BIT */
672 const struct user_regset_view
*task_user_regset_view(struct task_struct
*task
)
674 BUILD_BUG_ON(sizeof(struct user_regs_struct
)/sizeof(long) != ELF_NGREG
);
675 BUILD_BUG_ON(sizeof(struct user_fp_struct
)/sizeof(__u64
) != ELF_NFPREG
);
677 if (is_compat_task())
678 return &user_parisc_compat_view
;
680 return &user_parisc_native_view
;