vserver 2.0 rc7
[linux-2.6.git] / arch / um / kernel / ptrace.c
index 0005a9b..e846eee 100644 (file)
@@ -9,22 +9,41 @@
 #include "linux/smp_lock.h"
 #include "linux/security.h"
 #include "linux/ptrace.h"
+#include "linux/audit.h"
 #ifdef CONFIG_PROC_MM
 #include "linux/proc_mm.h"
 #endif
 #include "asm/ptrace.h"
 #include "asm/uaccess.h"
 #include "kern_util.h"
-#include "ptrace_user.h"
+#include "skas_ptrace.h"
+#include "sysdep/ptrace.h"
+
+static inline void set_singlestepping(struct task_struct *child, int on)
+{
+        if (on)
+                child->ptrace |= PT_DTRACE;
+        else
+                child->ptrace &= ~PT_DTRACE;
+        child->thread.singlestep_syscall = 0;
+
+#ifdef SUBARCH_SET_SINGLESTEPPING
+        SUBARCH_SET_SINGLESTEPPING(child, on);
+#endif
+}
 
 /*
  * Called by kernel/ptrace.c when detaching..
  */
 void ptrace_disable(struct task_struct *child)
 { 
+        set_singlestepping(child,0);
 }
 
-int sys_ptrace(long request, long pid, long addr, long data)
+extern int peek_user(struct task_struct * child, long addr, long data);
+extern int poke_user(struct task_struct * child, long addr, long data);
+
+long sys_ptrace(long request, long pid, long addr, long data)
 {
        struct task_struct *child;
        int i, ret;
@@ -65,6 +84,10 @@ int sys_ptrace(long request, long pid, long addr, long data)
                goto out_tsk;
        }
 
+#ifdef SUBACH_PTRACE_SPECIAL
+        SUBARCH_PTRACE_SPECIAL(child,request,addr,data);
+#endif
+
        ret = ptrace_check_attach(child, request == PTRACE_KILL);
        if (ret < 0)
                goto out_tsk;
@@ -80,31 +103,14 @@ int sys_ptrace(long request, long pid, long addr, long data)
                copied = access_process_vm(child, addr, &tmp, sizeof(tmp), 0);
                if (copied != sizeof(tmp))
                        break;
-               ret = put_user(tmp,(unsigned long *) data);
+               ret = put_user(tmp, (unsigned long __user *) data);
                break;
        }
 
        /* read the word at location addr in the USER area. */
-       case PTRACE_PEEKUSR: {
-               unsigned long tmp;
-
-               ret = -EIO;
-               if ((addr & 3) || addr < 0) 
-                       break;
-
-               tmp = 0;  /* Default return condition */
-               if(addr < FRAME_SIZE_OFFSET){
-                       tmp = getreg(child, addr);
-               }
-               else if((addr >= offsetof(struct user, u_debugreg[0])) &&
-                       (addr <= offsetof(struct user, u_debugreg[7]))){
-                       addr -= offsetof(struct user, u_debugreg[0]);
-                       addr = addr >> 2;
-                       tmp = child->thread.arch.debugregs[addr];
-               }
-               ret = put_user(tmp, (unsigned long *) data);
-               break;
-       }
+        case PTRACE_PEEKUSR:
+                ret = peek_user(child, addr, data);
+                break;
 
        /* when I and D space are separate, this will have to be fixed. */
        case PTRACE_POKETEXT: /* write the word at location addr. */
@@ -117,30 +123,16 @@ int sys_ptrace(long request, long pid, long addr, long data)
                break;
 
        case PTRACE_POKEUSR: /* write the word at location addr in the USER area */
-               ret = -EIO;
-               if ((addr & 3) || addr < 0)
-                       break;
-
-               if (addr < FRAME_SIZE_OFFSET) {
-                       ret = putreg(child, addr, data);
-                       break;
-               }
-               else if((addr >= offsetof(struct user, u_debugreg[0])) &&
-                       (addr <= offsetof(struct user, u_debugreg[7]))){
-                         addr -= offsetof(struct user, u_debugreg[0]);
-                         addr = addr >> 2;
-                         if((addr == 4) || (addr == 5)) break;
-                         child->thread.arch.debugregs[addr] = data;
-                         ret = 0;
-               }
-
-               break;
+                ret = poke_user(child, addr, data);
+                break;
 
        case PTRACE_SYSCALL: /* continue and stop at next (return from) syscall */
        case PTRACE_CONT: { /* restart after signal. */
                ret = -EIO;
-               if ((unsigned long) data > _NSIG)
+               if (!valid_signal(data))
                        break;
+
+                set_singlestepping(child, 0);
                if (request == PTRACE_SYSCALL) {
                        set_tsk_thread_flag(child, TIF_SYSCALL_TRACE);
                }
@@ -160,8 +152,10 @@ int sys_ptrace(long request, long pid, long addr, long data)
  */
        case PTRACE_KILL: {
                ret = 0;
-               if (child->state == TASK_ZOMBIE)        /* already dead */
+               if (child->exit_state == EXIT_ZOMBIE)   /* already dead */
                        break;
+
+                set_singlestepping(child, 0);
                child->exit_code = SIGKILL;
                wake_up_process(child);
                break;
@@ -169,10 +163,10 @@ int sys_ptrace(long request, long pid, long addr, long data)
 
        case PTRACE_SINGLESTEP: {  /* set the trap flag. */
                ret = -EIO;
-               if ((unsigned long) data > _NSIG)
+               if (!valid_signal(data))
                        break;
                clear_tsk_thread_flag(child, TIF_SYSCALL_TRACE);
-               child->ptrace |= PT_DTRACE;
+                set_singlestepping(child, 1);
                child->exit_code = data;
                /* give it a chance to run. */
                wake_up_process(child);
@@ -188,12 +182,13 @@ int sys_ptrace(long request, long pid, long addr, long data)
 #ifdef PTRACE_GETREGS
        case PTRACE_GETREGS: { /* Get all gp regs from the child. */
                if (!access_ok(VERIFY_WRITE, (unsigned long *)data, 
-                              FRAME_SIZE_OFFSET)) {
+                              MAX_REG_OFFSET)) {
                        ret = -EIO;
                        break;
                }
-               for ( i = 0; i < FRAME_SIZE_OFFSET; i += sizeof(long) ) {
-                       __put_user(getreg(child, i), (unsigned long *) data);
+               for ( i = 0; i < MAX_REG_OFFSET; i += sizeof(long) ) {
+                       __put_user(getreg(child, i),
+                                  (unsigned long __user *) data);
                        data += sizeof(long);
                }
                ret = 0;
@@ -204,12 +199,12 @@ int sys_ptrace(long request, long pid, long addr, long data)
        case PTRACE_SETREGS: { /* Set all gp regs in the child. */
                unsigned long tmp = 0;
                if (!access_ok(VERIFY_READ, (unsigned *)data, 
-                              FRAME_SIZE_OFFSET)) {
+                              MAX_REG_OFFSET)) {
                        ret = -EIO;
                        break;
                }
-               for ( i = 0; i < FRAME_SIZE_OFFSET; i += sizeof(long) ) {
-                       __get_user(tmp, (unsigned long *) data);
+               for ( i = 0; i < MAX_REG_OFFSET; i += sizeof(long) ) {
+                       __get_user(tmp, (unsigned long __user *) data);
                        putreg(child, i, tmp);
                        data += sizeof(long);
                }
@@ -238,27 +233,23 @@ int sys_ptrace(long request, long pid, long addr, long data)
                break;
 #endif
        case PTRACE_FAULTINFO: {
-               struct ptrace_faultinfo fault;
-
-               fault = ((struct ptrace_faultinfo) 
-                       { .is_write     = child->thread.err,
-                         .addr         = child->thread.cr2 });
-               ret = copy_to_user((unsigned long *) data, &fault, 
-                                  sizeof(fault));
+                /* Take the info from thread->arch->faultinfo,
+                 * but transfer max. sizeof(struct ptrace_faultinfo).
+                 * On i386, ptrace_faultinfo is smaller!
+                 */
+                ret = copy_to_user((unsigned long __user *) data,
+                                   &child->thread.arch.faultinfo,
+                                   sizeof(struct ptrace_faultinfo));
                if(ret)
                        break;
                break;
        }
-       case PTRACE_SIGPENDING:
-               ret = copy_to_user((unsigned long *) data, 
-                                  &child->pending.signal,
-                                  sizeof(child->pending.signal));
-               break;
 
+#ifdef PTRACE_LDT
        case PTRACE_LDT: {
                struct ptrace_ldt ldt;
 
-               if(copy_from_user(&ldt, (unsigned long *) data, 
+               if(copy_from_user(&ldt, (unsigned long __user *) data,
                                  sizeof(ldt))){
                        ret = -EIO;
                        break;
@@ -270,6 +261,7 @@ int sys_ptrace(long request, long pid, long addr, long data)
                ret = -EIO;
                break;
        }
+#endif
 #ifdef CONFIG_PROC_MM
        case PTRACE_SWITCH_MM: {
                struct mm_struct *old = child->mm;
@@ -299,29 +291,63 @@ int sys_ptrace(long request, long pid, long addr, long data)
        return ret;
 }
 
+void send_sigtrap(struct task_struct *tsk, union uml_pt_regs *regs,
+                 int error_code)
+{
+       struct siginfo info;
+
+       memset(&info, 0, sizeof(info));
+       info.si_signo = SIGTRAP;
+       info.si_code = TRAP_BRKPT;
+
+       /* User-mode eip? */
+       info.si_addr = UPT_IS_USER(regs) ? (void __user *) UPT_IP(regs) : NULL;
+
+       /* Send us the fakey SIGTRAP */
+       force_sig_info(SIGTRAP, &info, tsk);
+}
+
+/* XXX Check PT_DTRACE vs TIF_SINGLESTEP for singlestepping check and
+ * PT_PTRACED vs TIF_SYSCALL_TRACE for syscall tracing check
+ */
 void syscall_trace(union uml_pt_regs *regs, int entryexit)
 {
+       int is_singlestep = (current->ptrace & PT_DTRACE) && entryexit;
+       int tracesysgood;
+
        if (unlikely(current->audit_context)) {
                if (!entryexit)
-                       audit_syscall_entry(current, regs->orig_eax,
-                                           regs->ebx, regs->ecx,
-                                           regs->edx, regs->esi);
-               else
-                       audit_syscall_exit(current, regs->eax);
+                       audit_syscall_entry(current,
+                                            HOST_AUDIT_ARCH,
+                                           UPT_SYSCALL_NR(regs),
+                                           UPT_SYSCALL_ARG1(regs),
+                                           UPT_SYSCALL_ARG2(regs),
+                                           UPT_SYSCALL_ARG3(regs),
+                                           UPT_SYSCALL_ARG4(regs));
+               else audit_syscall_exit(current,
+                                        AUDITSC_RESULT(UPT_SYSCALL_RET(regs)),
+                                        UPT_SYSCALL_RET(regs));
        }
 
+       /* Fake a debug trap */
+       if (is_singlestep)
+               send_sigtrap(current, regs, 0);
+
        if (!test_thread_flag(TIF_SYSCALL_TRACE))
                return;
+
        if (!(current->ptrace & PT_PTRACED))
                return;
 
        /* the 0x80 provides a way for the tracing parent to distinguish
           between a syscall stop and SIGTRAP delivery */
-       ptrace_notify(SIGTRAP | ((current->ptrace & PT_TRACESYSGOOD)
-                                ? 0x80 : 0));
+       tracesysgood = (current->ptrace & PT_TRACESYSGOOD);
+       ptrace_notify(SIGTRAP | (tracesysgood ? 0x80 : 0));
+
+       if (entryexit) /* force do_signal() --> is_syscall() */
+               set_thread_flag(TIF_SIGPENDING);
 
-       /*
-        * this isn't the same as continuing with a signal, but it will do
+       /* this isn't the same as continuing with a signal, but it will do
         * for normal use.  strace only continues with a signal if the
         * stopping signal is not SIGTRAP.  -brl
         */
@@ -330,14 +356,3 @@ void syscall_trace(union uml_pt_regs *regs, int entryexit)
                current->exit_code = 0;
        }
 }
-
-/*
- * Overrides for Emacs so that we follow Linus's tabbing style.
- * Emacs will notice this stuff at the end of the file and automatically
- * adjust the settings for this buffer only.  This must remain at the end
- * of the file.
- * ---------------------------------------------------------------------------
- * Local variables:
- * c-file-style: "linux"
- * End:
- */