Loading...
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/compat.h>
19#include <linux/kernel.h>
20#include <linux/sched.h>
21#include <linux/mm.h>
22#include <linux/errno.h>
23#include <linux/ptrace.h>
24#include <linux/smp.h>
25#include <linux/user.h>
26#include <linux/security.h>
27
28#include <asm/cpu.h>
29#include <asm/dsp.h>
30#include <asm/fpu.h>
31#include <asm/mipsregs.h>
32#include <asm/mipsmtregs.h>
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
39/*
40 * Tracing a 32-bit process with a 64-bit strace and vice versa will not
41 * work. I don't know how to fix this.
42 */
43long compat_arch_ptrace(struct task_struct *child, compat_long_t request,
44 compat_ulong_t caddr, compat_ulong_t cdata)
45{
46 int addr = caddr;
47 int data = cdata;
48 int ret;
49
50 switch (request) {
51
52 /*
53 * Read 4 bytes of the other process' storage
54 * data is a pointer specifying where the user wants the
55 * 4 bytes copied into
56 * addr is a pointer in the user's storage that contains an 8 byte
57 * address in the other process of the 4 bytes that is to be read
58 * (this is run in a 32-bit process looking at a 64-bit process)
59 * when I and D space are separate, these will need to be fixed.
60 */
61 case PTRACE_PEEKTEXT_3264:
62 case PTRACE_PEEKDATA_3264: {
63 u32 tmp;
64 int copied;
65 u32 __user * addrOthers;
66
67 ret = -EIO;
68
69 /* Get the addr in the other process that we want to read */
70 if (get_user(addrOthers, (u32 __user * __user *) (unsigned long) addr) != 0)
71 break;
72
73 copied = access_process_vm(child, (u64)addrOthers, &tmp,
74 sizeof(tmp), 0);
75 if (copied != sizeof(tmp))
76 break;
77 ret = put_user(tmp, (u32 __user *) (unsigned long) data);
78 break;
79 }
80
81 /* Read the word at location addr in the USER area. */
82 case PTRACE_PEEKUSR: {
83 struct pt_regs *regs;
84 unsigned int tmp;
85
86 regs = task_pt_regs(child);
87 ret = 0; /* Default return value. */
88
89 switch (addr) {
90 case 0 ... 31:
91 tmp = regs->regs[addr];
92 break;
93 case FPR_BASE ... FPR_BASE + 31:
94 if (tsk_used_math(child)) {
95 fpureg_t *fregs = get_fpu_regs(child);
96
97 /*
98 * The odd registers are actually the high
99 * order bits of the values stored in the even
100 * registers - unless we're using r2k_switch.S.
101 */
102 if (addr & 1)
103 tmp = (unsigned long) (fregs[((addr & ~1) - 32)] >> 32);
104 else
105 tmp = (unsigned long) (fregs[(addr - 32)] & 0xffffffff);
106 } else {
107 tmp = -1; /* FP not yet used */
108 }
109 break;
110 case PC:
111 tmp = regs->cp0_epc;
112 break;
113 case CAUSE:
114 tmp = regs->cp0_cause;
115 break;
116 case BADVADDR:
117 tmp = regs->cp0_badvaddr;
118 break;
119 case MMHI:
120 tmp = regs->hi;
121 break;
122 case MMLO:
123 tmp = regs->lo;
124 break;
125 case FPC_CSR:
126 tmp = child->thread.fpu.fcr31;
127 break;
128 case FPC_EIR: { /* implementation / version register */
129 unsigned int flags;
130#ifdef CONFIG_MIPS_MT_SMTC
131 unsigned int irqflags;
132 unsigned int mtflags;
133#endif /* CONFIG_MIPS_MT_SMTC */
134
135 preempt_disable();
136 if (!cpu_has_fpu) {
137 preempt_enable();
138 tmp = 0;
139 break;
140 }
141
142#ifdef CONFIG_MIPS_MT_SMTC
143 /* Read-modify-write of Status must be atomic */
144 local_irq_save(irqflags);
145 mtflags = dmt();
146#endif /* CONFIG_MIPS_MT_SMTC */
147
148 if (cpu_has_mipsmt) {
149 unsigned int vpflags = dvpe();
150 flags = read_c0_status();
151 __enable_fpu();
152 __asm__ __volatile__("cfc1\t%0,$0": "=r" (tmp));
153 write_c0_status(flags);
154 evpe(vpflags);
155 } else {
156 flags = read_c0_status();
157 __enable_fpu();
158 __asm__ __volatile__("cfc1\t%0,$0": "=r" (tmp));
159 write_c0_status(flags);
160 }
161#ifdef CONFIG_MIPS_MT_SMTC
162 emt(mtflags);
163 local_irq_restore(irqflags);
164#endif /* CONFIG_MIPS_MT_SMTC */
165 preempt_enable();
166 break;
167 }
168 case DSP_BASE ... DSP_BASE + 5: {
169 dspreg_t *dregs;
170
171 if (!cpu_has_dsp) {
172 tmp = 0;
173 ret = -EIO;
174 goto out;
175 }
176 dregs = __get_dsp_regs(child);
177 tmp = (unsigned long) (dregs[addr - DSP_BASE]);
178 break;
179 }
180 case DSP_CONTROL:
181 if (!cpu_has_dsp) {
182 tmp = 0;
183 ret = -EIO;
184 goto out;
185 }
186 tmp = child->thread.dsp.dspcontrol;
187 break;
188 default:
189 tmp = 0;
190 ret = -EIO;
191 goto out;
192 }
193 ret = put_user(tmp, (unsigned __user *) (unsigned long) data);
194 break;
195 }
196
197 /*
198 * Write 4 bytes into the other process' storage
199 * data is the 4 bytes that the user wants written
200 * addr is a pointer in the user's storage that contains an
201 * 8 byte address in the other process where the 4 bytes
202 * that is to be written
203 * (this is run in a 32-bit process looking at a 64-bit process)
204 * when I and D space are separate, these will need to be fixed.
205 */
206 case PTRACE_POKETEXT_3264:
207 case PTRACE_POKEDATA_3264: {
208 u32 __user * addrOthers;
209
210 /* Get the addr in the other process that we want to write into */
211 ret = -EIO;
212 if (get_user(addrOthers, (u32 __user * __user *) (unsigned long) addr) != 0)
213 break;
214 ret = 0;
215 if (access_process_vm(child, (u64)addrOthers, &data,
216 sizeof(data), 1) == sizeof(data))
217 break;
218 ret = -EIO;
219 break;
220 }
221
222 case PTRACE_POKEUSR: {
223 struct pt_regs *regs;
224 ret = 0;
225 regs = task_pt_regs(child);
226
227 switch (addr) {
228 case 0 ... 31:
229 regs->regs[addr] = data;
230 break;
231 case FPR_BASE ... FPR_BASE + 31: {
232 fpureg_t *fregs = get_fpu_regs(child);
233
234 if (!tsk_used_math(child)) {
235 /* FP not yet used */
236 memset(&child->thread.fpu, ~0,
237 sizeof(child->thread.fpu));
238 child->thread.fpu.fcr31 = 0;
239 }
240 /*
241 * The odd registers are actually the high order bits
242 * of the values stored in the even registers - unless
243 * we're using r2k_switch.S.
244 */
245 if (addr & 1) {
246 fregs[(addr & ~1) - FPR_BASE] &= 0xffffffff;
247 fregs[(addr & ~1) - FPR_BASE] |= ((unsigned long long) data) << 32;
248 } else {
249 fregs[addr - FPR_BASE] &= ~0xffffffffLL;
250 /* Must cast, lest sign extension fill upper
251 bits! */
252 fregs[addr - FPR_BASE] |= (unsigned int)data;
253 }
254 break;
255 }
256 case PC:
257 regs->cp0_epc = data;
258 break;
259 case MMHI:
260 regs->hi = data;
261 break;
262 case MMLO:
263 regs->lo = data;
264 break;
265 case FPC_CSR:
266 child->thread.fpu.fcr31 = data;
267 break;
268 case DSP_BASE ... DSP_BASE + 5: {
269 dspreg_t *dregs;
270
271 if (!cpu_has_dsp) {
272 ret = -EIO;
273 break;
274 }
275
276 dregs = __get_dsp_regs(child);
277 dregs[addr - DSP_BASE] = data;
278 break;
279 }
280 case DSP_CONTROL:
281 if (!cpu_has_dsp) {
282 ret = -EIO;
283 break;
284 }
285 child->thread.dsp.dspcontrol = data;
286 break;
287 default:
288 /* The rest are not allowed. */
289 ret = -EIO;
290 break;
291 }
292 break;
293 }
294
295 case PTRACE_GETREGS:
296 ret = ptrace_getregs(child, (__s64 __user *) (__u64) data);
297 break;
298
299 case PTRACE_SETREGS:
300 ret = ptrace_setregs(child, (__s64 __user *) (__u64) data);
301 break;
302
303 case PTRACE_GETFPREGS:
304 ret = ptrace_getfpregs(child, (__u32 __user *) (__u64) data);
305 break;
306
307 case PTRACE_SETFPREGS:
308 ret = ptrace_setfpregs(child, (__u32 __user *) (__u64) data);
309 break;
310
311 case PTRACE_GET_THREAD_AREA:
312 ret = put_user(task_thread_info(child)->tp_value,
313 (unsigned int __user *) (unsigned long) data);
314 break;
315
316 case PTRACE_GET_THREAD_AREA_3264:
317 ret = put_user(task_thread_info(child)->tp_value,
318 (unsigned long __user *) (unsigned long) data);
319 break;
320
321 case PTRACE_GET_WATCH_REGS:
322 ret = ptrace_get_watch_regs(child,
323 (struct pt_watch_regs __user *) (unsigned long) addr);
324 break;
325
326 case PTRACE_SET_WATCH_REGS:
327 ret = ptrace_set_watch_regs(child,
328 (struct pt_watch_regs __user *) (unsigned long) addr);
329 break;
330
331 default:
332 ret = compat_ptrace_request(child, request, addr, data);
333 break;
334 }
335out:
336 return ret;
337}
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/compat.h>
19#include <linux/kernel.h>
20#include <linux/sched.h>
21#include <linux/sched/task_stack.h>
22#include <linux/mm.h>
23#include <linux/errno.h>
24#include <linux/ptrace.h>
25#include <linux/smp.h>
26#include <linux/security.h>
27
28#include <asm/cpu.h>
29#include <asm/dsp.h>
30#include <asm/fpu.h>
31#include <asm/mipsregs.h>
32#include <asm/mipsmtregs.h>
33#include <asm/pgtable.h>
34#include <asm/page.h>
35#include <asm/reg.h>
36#include <asm/syscall.h>
37#include <linux/uaccess.h>
38#include <asm/bootinfo.h>
39
40/*
41 * Tracing a 32-bit process with a 64-bit strace and vice versa will not
42 * work. I don't know how to fix this.
43 */
44long compat_arch_ptrace(struct task_struct *child, compat_long_t request,
45 compat_ulong_t caddr, compat_ulong_t cdata)
46{
47 int addr = caddr;
48 int data = cdata;
49 int ret;
50
51 switch (request) {
52
53 /*
54 * Read 4 bytes of the other process' storage
55 * data is a pointer specifying where the user wants the
56 * 4 bytes copied into
57 * addr is a pointer in the user's storage that contains an 8 byte
58 * address in the other process of the 4 bytes that is to be read
59 * (this is run in a 32-bit process looking at a 64-bit process)
60 * when I and D space are separate, these will need to be fixed.
61 */
62 case PTRACE_PEEKTEXT_3264:
63 case PTRACE_PEEKDATA_3264: {
64 u32 tmp;
65 int copied;
66 u32 __user * addrOthers;
67
68 ret = -EIO;
69
70 /* Get the addr in the other process that we want to read */
71 if (get_user(addrOthers, (u32 __user * __user *) (unsigned long) addr) != 0)
72 break;
73
74 copied = ptrace_access_vm(child, (u64)addrOthers, &tmp,
75 sizeof(tmp), FOLL_FORCE);
76 if (copied != sizeof(tmp))
77 break;
78 ret = put_user(tmp, (u32 __user *) (unsigned long) data);
79 break;
80 }
81
82 /* Read the word at location addr in the USER area. */
83 case PTRACE_PEEKUSR: {
84 struct pt_regs *regs;
85 unsigned int tmp;
86
87 regs = task_pt_regs(child);
88 ret = 0; /* Default return value. */
89
90 switch (addr) {
91 case 0 ... 31:
92 tmp = regs->regs[addr];
93 break;
94#ifdef CONFIG_MIPS_FP_SUPPORT
95 case FPR_BASE ... FPR_BASE + 31: {
96 union fpureg *fregs;
97
98 if (!tsk_used_math(child)) {
99 /* FP not yet used */
100 tmp = -1;
101 break;
102 }
103 fregs = get_fpu_regs(child);
104 if (test_tsk_thread_flag(child, TIF_32BIT_FPREGS)) {
105 /*
106 * The odd registers are actually the high
107 * order bits of the values stored in the even
108 * registers.
109 */
110 tmp = get_fpr32(&fregs[(addr & ~1) - FPR_BASE],
111 addr & 1);
112 break;
113 }
114 tmp = get_fpr64(&fregs[addr - FPR_BASE], 0);
115 break;
116 }
117 case FPC_CSR:
118 tmp = child->thread.fpu.fcr31;
119 break;
120 case FPC_EIR:
121 /* implementation / version register */
122 tmp = boot_cpu_data.fpu_id;
123 break;
124#endif /* CONFIG_MIPS_FP_SUPPORT */
125 case PC:
126 tmp = regs->cp0_epc;
127 break;
128 case CAUSE:
129 tmp = regs->cp0_cause;
130 break;
131 case BADVADDR:
132 tmp = regs->cp0_badvaddr;
133 break;
134 case MMHI:
135 tmp = regs->hi;
136 break;
137 case MMLO:
138 tmp = regs->lo;
139 break;
140 case DSP_BASE ... DSP_BASE + 5: {
141 dspreg_t *dregs;
142
143 if (!cpu_has_dsp) {
144 tmp = 0;
145 ret = -EIO;
146 goto out;
147 }
148 dregs = __get_dsp_regs(child);
149 tmp = dregs[addr - DSP_BASE];
150 break;
151 }
152 case DSP_CONTROL:
153 if (!cpu_has_dsp) {
154 tmp = 0;
155 ret = -EIO;
156 goto out;
157 }
158 tmp = child->thread.dsp.dspcontrol;
159 break;
160 default:
161 tmp = 0;
162 ret = -EIO;
163 goto out;
164 }
165 ret = put_user(tmp, (unsigned __user *) (unsigned long) data);
166 break;
167 }
168
169 /*
170 * Write 4 bytes into the other process' storage
171 * data is the 4 bytes that the user wants written
172 * addr is a pointer in the user's storage that contains an
173 * 8 byte address in the other process where the 4 bytes
174 * that is to be written
175 * (this is run in a 32-bit process looking at a 64-bit process)
176 * when I and D space are separate, these will need to be fixed.
177 */
178 case PTRACE_POKETEXT_3264:
179 case PTRACE_POKEDATA_3264: {
180 u32 __user * addrOthers;
181
182 /* Get the addr in the other process that we want to write into */
183 ret = -EIO;
184 if (get_user(addrOthers, (u32 __user * __user *) (unsigned long) addr) != 0)
185 break;
186 ret = 0;
187 if (ptrace_access_vm(child, (u64)addrOthers, &data,
188 sizeof(data),
189 FOLL_FORCE | FOLL_WRITE) == sizeof(data))
190 break;
191 ret = -EIO;
192 break;
193 }
194
195 case PTRACE_POKEUSR: {
196 struct pt_regs *regs;
197 ret = 0;
198 regs = task_pt_regs(child);
199
200 switch (addr) {
201 case 0 ... 31:
202 regs->regs[addr] = data;
203 /* System call number may have been changed */
204 if (addr == 2)
205 mips_syscall_update_nr(child, regs);
206 else if (addr == 4 &&
207 mips_syscall_is_indirect(child, regs))
208 mips_syscall_update_nr(child, regs);
209 break;
210#ifdef CONFIG_MIPS_FP_SUPPORT
211 case FPR_BASE ... FPR_BASE + 31: {
212 union fpureg *fregs = get_fpu_regs(child);
213
214 if (!tsk_used_math(child)) {
215 /* FP not yet used */
216 memset(&child->thread.fpu, ~0,
217 sizeof(child->thread.fpu));
218 child->thread.fpu.fcr31 = 0;
219 }
220 if (test_tsk_thread_flag(child, TIF_32BIT_FPREGS)) {
221 /*
222 * The odd registers are actually the high
223 * order bits of the values stored in the even
224 * registers.
225 */
226 set_fpr32(&fregs[(addr & ~1) - FPR_BASE],
227 addr & 1, data);
228 break;
229 }
230 set_fpr64(&fregs[addr - FPR_BASE], 0, data);
231 break;
232 }
233 case FPC_CSR:
234 child->thread.fpu.fcr31 = data;
235 break;
236#endif /* CONFIG_MIPS_FP_SUPPORT */
237 case PC:
238 regs->cp0_epc = data;
239 break;
240 case MMHI:
241 regs->hi = data;
242 break;
243 case MMLO:
244 regs->lo = data;
245 break;
246 case DSP_BASE ... DSP_BASE + 5: {
247 dspreg_t *dregs;
248
249 if (!cpu_has_dsp) {
250 ret = -EIO;
251 break;
252 }
253
254 dregs = __get_dsp_regs(child);
255 dregs[addr - DSP_BASE] = data;
256 break;
257 }
258 case DSP_CONTROL:
259 if (!cpu_has_dsp) {
260 ret = -EIO;
261 break;
262 }
263 child->thread.dsp.dspcontrol = data;
264 break;
265 default:
266 /* The rest are not allowed. */
267 ret = -EIO;
268 break;
269 }
270 break;
271 }
272
273 case PTRACE_GETREGS:
274 ret = ptrace_getregs(child,
275 (struct user_pt_regs __user *) (__u64) data);
276 break;
277
278 case PTRACE_SETREGS:
279 ret = ptrace_setregs(child,
280 (struct user_pt_regs __user *) (__u64) data);
281 break;
282
283#ifdef CONFIG_MIPS_FP_SUPPORT
284 case PTRACE_GETFPREGS:
285 ret = ptrace_getfpregs(child, (__u32 __user *) (__u64) data);
286 break;
287
288 case PTRACE_SETFPREGS:
289 ret = ptrace_setfpregs(child, (__u32 __user *) (__u64) data);
290 break;
291#endif
292 case PTRACE_GET_THREAD_AREA:
293 ret = put_user(task_thread_info(child)->tp_value,
294 (unsigned int __user *) (unsigned long) data);
295 break;
296
297 case PTRACE_GET_THREAD_AREA_3264:
298 ret = put_user(task_thread_info(child)->tp_value,
299 (unsigned long __user *) (unsigned long) data);
300 break;
301
302 case PTRACE_GET_WATCH_REGS:
303 ret = ptrace_get_watch_regs(child,
304 (struct pt_watch_regs __user *) (unsigned long) addr);
305 break;
306
307 case PTRACE_SET_WATCH_REGS:
308 ret = ptrace_set_watch_regs(child,
309 (struct pt_watch_regs __user *) (unsigned long) addr);
310 break;
311
312 default:
313 ret = compat_ptrace_request(child, request, addr, data);
314 break;
315 }
316out:
317 return ret;
318}