11da177e4SLinus Torvalds /* 21da177e4SLinus Torvalds * This file is subject to the terms and conditions of the GNU General Public 31da177e4SLinus Torvalds * License. See the file "COPYING" in the main directory of this archive 41da177e4SLinus Torvalds * for more details. 51da177e4SLinus Torvalds * 61da177e4SLinus Torvalds * Copyright (C) 1992 Ross Biro 71da177e4SLinus Torvalds * Copyright (C) Linus Torvalds 81da177e4SLinus Torvalds * Copyright (C) 1994, 95, 96, 97, 98, 2000 Ralf Baechle 91da177e4SLinus Torvalds * Copyright (C) 1996 David S. Miller 101da177e4SLinus Torvalds * Kevin D. Kissell, kevink@mips.com and Carsten Langgaard, carstenl@mips.com 111da177e4SLinus Torvalds * Copyright (C) 1999 MIPS Technologies, Inc. 121da177e4SLinus Torvalds * Copyright (C) 2000 Ulf Carlsson 131da177e4SLinus Torvalds * 141da177e4SLinus Torvalds * At this time Linux/MIPS64 only supports syscall tracing, even for 32-bit 151da177e4SLinus Torvalds * binaries. 161da177e4SLinus Torvalds */ 171da177e4SLinus Torvalds #include <linux/compiler.h> 181da177e4SLinus Torvalds #include <linux/kernel.h> 191da177e4SLinus Torvalds #include <linux/sched.h> 201da177e4SLinus Torvalds #include <linux/mm.h> 211da177e4SLinus Torvalds #include <linux/errno.h> 221da177e4SLinus Torvalds #include <linux/ptrace.h> 231da177e4SLinus Torvalds #include <linux/smp.h> 241da177e4SLinus Torvalds #include <linux/smp_lock.h> 251da177e4SLinus Torvalds #include <linux/user.h> 261da177e4SLinus Torvalds #include <linux/security.h> 271da177e4SLinus Torvalds 281da177e4SLinus Torvalds #include <asm/cpu.h> 29*e50c0a8fSRalf Baechle #include <asm/dsp.h> 301da177e4SLinus Torvalds #include <asm/fpu.h> 311da177e4SLinus Torvalds #include <asm/mipsregs.h> 321da177e4SLinus Torvalds #include <asm/pgtable.h> 331da177e4SLinus Torvalds #include <asm/page.h> 341da177e4SLinus Torvalds #include <asm/system.h> 351da177e4SLinus Torvalds #include <asm/uaccess.h> 361da177e4SLinus Torvalds #include <asm/bootinfo.h> 371da177e4SLinus Torvalds 381da177e4SLinus Torvalds /* 391da177e4SLinus Torvalds * Tracing a 32-bit process with a 64-bit strace and vice versa will not 401da177e4SLinus Torvalds * work. I don't know how to fix this. 411da177e4SLinus Torvalds */ 421da177e4SLinus Torvalds asmlinkage int sys32_ptrace(int request, int pid, int addr, int data) 431da177e4SLinus Torvalds { 441da177e4SLinus Torvalds struct task_struct *child; 451da177e4SLinus Torvalds int ret; 461da177e4SLinus Torvalds 471da177e4SLinus Torvalds #if 0 481da177e4SLinus Torvalds printk("ptrace(r=%d,pid=%d,addr=%08lx,data=%08lx)\n", 491da177e4SLinus Torvalds (int) request, (int) pid, (unsigned long) addr, 501da177e4SLinus Torvalds (unsigned long) data); 511da177e4SLinus Torvalds #endif 521da177e4SLinus Torvalds lock_kernel(); 531da177e4SLinus Torvalds ret = -EPERM; 541da177e4SLinus Torvalds if (request == PTRACE_TRACEME) { 551da177e4SLinus Torvalds /* are we already being traced? */ 561da177e4SLinus Torvalds if (current->ptrace & PT_PTRACED) 571da177e4SLinus Torvalds goto out; 581da177e4SLinus Torvalds if ((ret = security_ptrace(current->parent, current))) 591da177e4SLinus Torvalds goto out; 601da177e4SLinus Torvalds /* set the ptrace bit in the process flags. */ 611da177e4SLinus Torvalds current->ptrace |= PT_PTRACED; 621da177e4SLinus Torvalds ret = 0; 631da177e4SLinus Torvalds goto out; 641da177e4SLinus Torvalds } 651da177e4SLinus Torvalds ret = -ESRCH; 661da177e4SLinus Torvalds read_lock(&tasklist_lock); 671da177e4SLinus Torvalds child = find_task_by_pid(pid); 681da177e4SLinus Torvalds if (child) 691da177e4SLinus Torvalds get_task_struct(child); 701da177e4SLinus Torvalds read_unlock(&tasklist_lock); 711da177e4SLinus Torvalds if (!child) 721da177e4SLinus Torvalds goto out; 731da177e4SLinus Torvalds 741da177e4SLinus Torvalds ret = -EPERM; 751da177e4SLinus Torvalds if (pid == 1) /* you may not mess with init */ 761da177e4SLinus Torvalds goto out_tsk; 771da177e4SLinus Torvalds 781da177e4SLinus Torvalds if (request == PTRACE_ATTACH) { 791da177e4SLinus Torvalds ret = ptrace_attach(child); 801da177e4SLinus Torvalds goto out_tsk; 811da177e4SLinus Torvalds } 821da177e4SLinus Torvalds 831da177e4SLinus Torvalds ret = ptrace_check_attach(child, request == PTRACE_KILL); 841da177e4SLinus Torvalds if (ret < 0) 851da177e4SLinus Torvalds goto out_tsk; 861da177e4SLinus Torvalds 871da177e4SLinus Torvalds switch (request) { 881da177e4SLinus Torvalds /* when I and D space are separate, these will need to be fixed. */ 891da177e4SLinus Torvalds case PTRACE_PEEKTEXT: /* read word at location addr. */ 901da177e4SLinus Torvalds case PTRACE_PEEKDATA: { 911da177e4SLinus Torvalds unsigned int tmp; 921da177e4SLinus Torvalds int copied; 931da177e4SLinus Torvalds 941da177e4SLinus Torvalds copied = access_process_vm(child, addr, &tmp, sizeof(tmp), 0); 951da177e4SLinus Torvalds ret = -EIO; 961da177e4SLinus Torvalds if (copied != sizeof(tmp)) 971da177e4SLinus Torvalds break; 981da177e4SLinus Torvalds ret = put_user(tmp, (unsigned int *) (unsigned long) data); 991da177e4SLinus Torvalds break; 1001da177e4SLinus Torvalds } 1011da177e4SLinus Torvalds 1021da177e4SLinus Torvalds /* Read the word at location addr in the USER area. */ 1031da177e4SLinus Torvalds case PTRACE_PEEKUSR: { 1041da177e4SLinus Torvalds struct pt_regs *regs; 1051da177e4SLinus Torvalds unsigned int tmp; 1061da177e4SLinus Torvalds 1071da177e4SLinus Torvalds regs = (struct pt_regs *) ((unsigned long) child->thread_info + 1081da177e4SLinus Torvalds THREAD_SIZE - 32 - sizeof(struct pt_regs)); 1091da177e4SLinus Torvalds ret = 0; /* Default return value. */ 1101da177e4SLinus Torvalds 1111da177e4SLinus Torvalds switch (addr) { 1121da177e4SLinus Torvalds case 0 ... 31: 1131da177e4SLinus Torvalds tmp = regs->regs[addr]; 1141da177e4SLinus Torvalds break; 1151da177e4SLinus Torvalds case FPR_BASE ... FPR_BASE + 31: 1161da177e4SLinus Torvalds if (tsk_used_math(child)) { 1171da177e4SLinus Torvalds fpureg_t *fregs = get_fpu_regs(child); 1181da177e4SLinus Torvalds 1191da177e4SLinus Torvalds /* 1201da177e4SLinus Torvalds * The odd registers are actually the high 1211da177e4SLinus Torvalds * order bits of the values stored in the even 1221da177e4SLinus Torvalds * registers - unless we're using r2k_switch.S. 1231da177e4SLinus Torvalds */ 1241da177e4SLinus Torvalds if (addr & 1) 1251da177e4SLinus Torvalds tmp = (unsigned long) (fregs[((addr & ~1) - 32)] >> 32); 1261da177e4SLinus Torvalds else 1271da177e4SLinus Torvalds tmp = (unsigned long) (fregs[(addr - 32)] & 0xffffffff); 1281da177e4SLinus Torvalds } else { 1291da177e4SLinus Torvalds tmp = -1; /* FP not yet used */ 1301da177e4SLinus Torvalds } 1311da177e4SLinus Torvalds break; 1321da177e4SLinus Torvalds case PC: 1331da177e4SLinus Torvalds tmp = regs->cp0_epc; 1341da177e4SLinus Torvalds break; 1351da177e4SLinus Torvalds case CAUSE: 1361da177e4SLinus Torvalds tmp = regs->cp0_cause; 1371da177e4SLinus Torvalds break; 1381da177e4SLinus Torvalds case BADVADDR: 1391da177e4SLinus Torvalds tmp = regs->cp0_badvaddr; 1401da177e4SLinus Torvalds break; 1411da177e4SLinus Torvalds case MMHI: 1421da177e4SLinus Torvalds tmp = regs->hi; 1431da177e4SLinus Torvalds break; 1441da177e4SLinus Torvalds case MMLO: 1451da177e4SLinus Torvalds tmp = regs->lo; 1461da177e4SLinus Torvalds break; 1471da177e4SLinus Torvalds case FPC_CSR: 1481da177e4SLinus Torvalds if (cpu_has_fpu) 1491da177e4SLinus Torvalds tmp = child->thread.fpu.hard.fcr31; 1501da177e4SLinus Torvalds else 1511da177e4SLinus Torvalds tmp = child->thread.fpu.soft.fcr31; 1521da177e4SLinus Torvalds break; 1531da177e4SLinus Torvalds case FPC_EIR: { /* implementation / version register */ 1541da177e4SLinus Torvalds unsigned int flags; 1551da177e4SLinus Torvalds 1561da177e4SLinus Torvalds if (!cpu_has_fpu) 1571da177e4SLinus Torvalds break; 1581da177e4SLinus Torvalds 1591da177e4SLinus Torvalds flags = read_c0_status(); 1601da177e4SLinus Torvalds __enable_fpu(); 1611da177e4SLinus Torvalds __asm__ __volatile__("cfc1\t%0,$0": "=r" (tmp)); 1621da177e4SLinus Torvalds write_c0_status(flags); 1631da177e4SLinus Torvalds break; 1641da177e4SLinus Torvalds } 165*e50c0a8fSRalf Baechle case DSP_BASE ... DSP_BASE + 5: 166*e50c0a8fSRalf Baechle if (!cpu_has_dsp) { 167*e50c0a8fSRalf Baechle tmp = 0; 168*e50c0a8fSRalf Baechle ret = -EIO; 169*e50c0a8fSRalf Baechle goto out_tsk; 170*e50c0a8fSRalf Baechle } 171*e50c0a8fSRalf Baechle if (child->thread.dsp.used_dsp) { 172*e50c0a8fSRalf Baechle dspreg_t *dregs = __get_dsp_regs(child); 173*e50c0a8fSRalf Baechle tmp = (unsigned long) (dregs[addr - DSP_BASE]); 174*e50c0a8fSRalf Baechle } else { 175*e50c0a8fSRalf Baechle tmp = -1; /* DSP registers yet used */ 176*e50c0a8fSRalf Baechle } 177*e50c0a8fSRalf Baechle break; 178*e50c0a8fSRalf Baechle case DSP_CONTROL: 179*e50c0a8fSRalf Baechle if (!cpu_has_dsp) { 180*e50c0a8fSRalf Baechle tmp = 0; 181*e50c0a8fSRalf Baechle ret = -EIO; 182*e50c0a8fSRalf Baechle goto out_tsk; 183*e50c0a8fSRalf Baechle } 184*e50c0a8fSRalf Baechle tmp = child->thread.dsp.dspcontrol; 185*e50c0a8fSRalf Baechle break; 1861da177e4SLinus Torvalds default: 1871da177e4SLinus Torvalds tmp = 0; 1881da177e4SLinus Torvalds ret = -EIO; 1891da177e4SLinus Torvalds goto out_tsk; 1901da177e4SLinus Torvalds } 1911da177e4SLinus Torvalds ret = put_user(tmp, (unsigned *) (unsigned long) data); 1921da177e4SLinus Torvalds break; 1931da177e4SLinus Torvalds } 1941da177e4SLinus Torvalds 1951da177e4SLinus Torvalds /* when I and D space are separate, this will have to be fixed. */ 1961da177e4SLinus Torvalds case PTRACE_POKETEXT: /* write the word at location addr. */ 1971da177e4SLinus Torvalds case PTRACE_POKEDATA: 1981da177e4SLinus Torvalds ret = 0; 1991da177e4SLinus Torvalds if (access_process_vm(child, addr, &data, sizeof(data), 1) 2001da177e4SLinus Torvalds == sizeof(data)) 2011da177e4SLinus Torvalds break; 2021da177e4SLinus Torvalds ret = -EIO; 2031da177e4SLinus Torvalds break; 2041da177e4SLinus Torvalds 2051da177e4SLinus Torvalds case PTRACE_POKEUSR: { 2061da177e4SLinus Torvalds struct pt_regs *regs; 2071da177e4SLinus Torvalds ret = 0; 2081da177e4SLinus Torvalds regs = (struct pt_regs *) ((unsigned long) child->thread_info + 2091da177e4SLinus Torvalds THREAD_SIZE - 32 - sizeof(struct pt_regs)); 2101da177e4SLinus Torvalds 2111da177e4SLinus Torvalds switch (addr) { 2121da177e4SLinus Torvalds case 0 ... 31: 2131da177e4SLinus Torvalds regs->regs[addr] = data; 2141da177e4SLinus Torvalds break; 2151da177e4SLinus Torvalds case FPR_BASE ... FPR_BASE + 31: { 2161da177e4SLinus Torvalds fpureg_t *fregs = get_fpu_regs(child); 2171da177e4SLinus Torvalds 2181da177e4SLinus Torvalds if (!tsk_used_math(child)) { 2191da177e4SLinus Torvalds /* FP not yet used */ 2201da177e4SLinus Torvalds memset(&child->thread.fpu.hard, ~0, 2211da177e4SLinus Torvalds sizeof(child->thread.fpu.hard)); 2221da177e4SLinus Torvalds child->thread.fpu.hard.fcr31 = 0; 2231da177e4SLinus Torvalds } 2241da177e4SLinus Torvalds /* 2251da177e4SLinus Torvalds * The odd registers are actually the high order bits 2261da177e4SLinus Torvalds * of the values stored in the even registers - unless 2271da177e4SLinus Torvalds * we're using r2k_switch.S. 2281da177e4SLinus Torvalds */ 2291da177e4SLinus Torvalds if (addr & 1) { 2301da177e4SLinus Torvalds fregs[(addr & ~1) - FPR_BASE] &= 0xffffffff; 2311da177e4SLinus Torvalds fregs[(addr & ~1) - FPR_BASE] |= ((unsigned long long) data) << 32; 2321da177e4SLinus Torvalds } else { 2331da177e4SLinus Torvalds fregs[addr - FPR_BASE] &= ~0xffffffffLL; 2341da177e4SLinus Torvalds /* Must cast, lest sign extension fill upper 2351da177e4SLinus Torvalds bits! */ 2361da177e4SLinus Torvalds fregs[addr - FPR_BASE] |= (unsigned int)data; 2371da177e4SLinus Torvalds } 2381da177e4SLinus Torvalds break; 2391da177e4SLinus Torvalds } 2401da177e4SLinus Torvalds case PC: 2411da177e4SLinus Torvalds regs->cp0_epc = data; 2421da177e4SLinus Torvalds break; 2431da177e4SLinus Torvalds case MMHI: 2441da177e4SLinus Torvalds regs->hi = data; 2451da177e4SLinus Torvalds break; 2461da177e4SLinus Torvalds case MMLO: 2471da177e4SLinus Torvalds regs->lo = data; 2481da177e4SLinus Torvalds break; 2491da177e4SLinus Torvalds case FPC_CSR: 2501da177e4SLinus Torvalds if (cpu_has_fpu) 2511da177e4SLinus Torvalds child->thread.fpu.hard.fcr31 = data; 2521da177e4SLinus Torvalds else 2531da177e4SLinus Torvalds child->thread.fpu.soft.fcr31 = data; 2541da177e4SLinus Torvalds break; 255*e50c0a8fSRalf Baechle case DSP_BASE ... DSP_BASE + 5: 256*e50c0a8fSRalf Baechle if (!cpu_has_dsp) { 257*e50c0a8fSRalf Baechle ret = -EIO; 258*e50c0a8fSRalf Baechle break; 259*e50c0a8fSRalf Baechle } 260*e50c0a8fSRalf Baechle 261*e50c0a8fSRalf Baechle dspreg_t *dregs = __get_dsp_regs(child); 262*e50c0a8fSRalf Baechle dregs[addr - DSP_BASE] = data; 263*e50c0a8fSRalf Baechle break; 264*e50c0a8fSRalf Baechle case DSP_CONTROL: 265*e50c0a8fSRalf Baechle if (!cpu_has_dsp) { 266*e50c0a8fSRalf Baechle ret = -EIO; 267*e50c0a8fSRalf Baechle break; 268*e50c0a8fSRalf Baechle } 269*e50c0a8fSRalf Baechle child->thread.dsp.dspcontrol = data; 270*e50c0a8fSRalf Baechle break; 2711da177e4SLinus Torvalds default: 2721da177e4SLinus Torvalds /* The rest are not allowed. */ 2731da177e4SLinus Torvalds ret = -EIO; 2741da177e4SLinus Torvalds break; 2751da177e4SLinus Torvalds } 2761da177e4SLinus Torvalds break; 2771da177e4SLinus Torvalds } 2781da177e4SLinus Torvalds 2791da177e4SLinus Torvalds case PTRACE_SYSCALL: /* continue and stop at next (return from) syscall */ 2801da177e4SLinus Torvalds case PTRACE_CONT: { /* restart after signal. */ 2811da177e4SLinus Torvalds ret = -EIO; 2827ed20e1aSJesper Juhl if (!valid_signal(data)) 2831da177e4SLinus Torvalds break; 2841da177e4SLinus Torvalds if (request == PTRACE_SYSCALL) { 2851da177e4SLinus Torvalds set_tsk_thread_flag(child, TIF_SYSCALL_TRACE); 2861da177e4SLinus Torvalds } 2871da177e4SLinus Torvalds else { 2881da177e4SLinus Torvalds clear_tsk_thread_flag(child, TIF_SYSCALL_TRACE); 2891da177e4SLinus Torvalds } 2901da177e4SLinus Torvalds child->exit_code = data; 2911da177e4SLinus Torvalds wake_up_process(child); 2921da177e4SLinus Torvalds ret = 0; 2931da177e4SLinus Torvalds break; 2941da177e4SLinus Torvalds } 2951da177e4SLinus Torvalds 2961da177e4SLinus Torvalds /* 2971da177e4SLinus Torvalds * make the child exit. Best I can do is send it a sigkill. 2981da177e4SLinus Torvalds * perhaps it should be put in the status that it wants to 2991da177e4SLinus Torvalds * exit. 3001da177e4SLinus Torvalds */ 3011da177e4SLinus Torvalds case PTRACE_KILL: 3021da177e4SLinus Torvalds ret = 0; 3031da177e4SLinus Torvalds if (child->exit_state == EXIT_ZOMBIE) /* already dead */ 3041da177e4SLinus Torvalds break; 3051da177e4SLinus Torvalds child->exit_code = SIGKILL; 3061da177e4SLinus Torvalds wake_up_process(child); 3071da177e4SLinus Torvalds break; 3081da177e4SLinus Torvalds 3093c37026dSRalf Baechle case PTRACE_GET_THREAD_AREA: 3103c37026dSRalf Baechle ret = put_user(child->thread_info->tp_value, 3113c37026dSRalf Baechle (unsigned int __user *) (unsigned long) data); 3123c37026dSRalf Baechle break; 3133c37026dSRalf Baechle 3141da177e4SLinus Torvalds case PTRACE_DETACH: /* detach a process that was attached. */ 3151da177e4SLinus Torvalds ret = ptrace_detach(child, data); 3161da177e4SLinus Torvalds break; 3171da177e4SLinus Torvalds 31809276d90SRalf Baechle case PTRACE_GETEVENTMSG: 31909276d90SRalf Baechle ret = put_user(child->ptrace_message, 32009276d90SRalf Baechle (unsigned int __user *) (unsigned long) data); 32109276d90SRalf Baechle break; 32209276d90SRalf Baechle 3231da177e4SLinus Torvalds default: 3241da177e4SLinus Torvalds ret = ptrace_request(child, request, addr, data); 3251da177e4SLinus Torvalds break; 3261da177e4SLinus Torvalds } 3271da177e4SLinus Torvalds 3281da177e4SLinus Torvalds out_tsk: 3291da177e4SLinus Torvalds put_task_struct(child); 3301da177e4SLinus Torvalds out: 3311da177e4SLinus Torvalds unlock_kernel(); 3321da177e4SLinus Torvalds return ret; 3331da177e4SLinus Torvalds } 334