Merge HEAD from master.kernel.org:/home/rmk/linux-2.6-serial.git
[linux-2.6] / arch / x86_64 / ia32 / ptrace32.c
1 /* 
2  * 32bit ptrace for x86-64.
3  *
4  * Copyright 2001,2002 Andi Kleen, SuSE Labs.
5  * Some parts copied from arch/i386/kernel/ptrace.c. See that file for earlier 
6  * copyright.
7  * 
8  * This allows to access 64bit processes too; but there is no way to see the extended 
9  * register contents.
10  *
11  * $Id: ptrace32.c,v 1.16 2003/03/14 16:06:35 ak Exp $
12  */ 
13
14 #include <linux/kernel.h>
15 #include <linux/stddef.h>
16 #include <linux/sched.h>
17 #include <linux/syscalls.h>
18 #include <linux/unistd.h>
19 #include <linux/mm.h>
20 #include <linux/ptrace.h>
21 #include <asm/ptrace.h>
22 #include <asm/compat.h>
23 #include <asm/uaccess.h>
24 #include <asm/user32.h>
25 #include <asm/user.h>
26 #include <asm/errno.h>
27 #include <asm/debugreg.h>
28 #include <asm/i387.h>
29 #include <asm/fpu32.h>
30
31 /* determines which flags the user has access to. */
32 /* 1 = access 0 = no access */
33 #define FLAG_MASK 0x44dd5UL
34
35 #define R32(l,q) \
36         case offsetof(struct user32, regs.l): stack[offsetof(struct pt_regs, q)/8] = val; break
37
38 static int putreg32(struct task_struct *child, unsigned regno, u32 val)
39 {
40         int i;
41         __u64 *stack = (__u64 *)(child->thread.rsp0 - sizeof(struct pt_regs)); 
42
43         switch (regno) {
44         case offsetof(struct user32, regs.fs):
45                 if (val && (val & 3) != 3) return -EIO; 
46                 child->thread.fsindex = val & 0xffff;
47                 break;
48         case offsetof(struct user32, regs.gs):
49                 if (val && (val & 3) != 3) return -EIO; 
50                 child->thread.gsindex = val & 0xffff;
51                 break;
52         case offsetof(struct user32, regs.ds):
53                 if (val && (val & 3) != 3) return -EIO; 
54                 child->thread.ds = val & 0xffff;
55                 break;
56         case offsetof(struct user32, regs.es):
57                 child->thread.es = val & 0xffff;
58                 break;
59         case offsetof(struct user32, regs.ss): 
60                 if ((val & 3) != 3) return -EIO;
61                 stack[offsetof(struct pt_regs, ss)/8] = val & 0xffff;
62                 break;
63         case offsetof(struct user32, regs.cs): 
64                 if ((val & 3) != 3) return -EIO;
65                 stack[offsetof(struct pt_regs, cs)/8] = val & 0xffff;
66                 break;
67
68         R32(ebx, rbx); 
69         R32(ecx, rcx);
70         R32(edx, rdx);
71         R32(edi, rdi);
72         R32(esi, rsi);
73         R32(ebp, rbp);
74         R32(eax, rax);
75         R32(orig_eax, orig_rax);
76         R32(eip, rip);
77         R32(esp, rsp);
78
79         case offsetof(struct user32, regs.eflags): {
80                 __u64 *flags = &stack[offsetof(struct pt_regs, eflags)/8];
81                 val &= FLAG_MASK;
82                 *flags = val | (*flags & ~FLAG_MASK);
83                 break;
84         }
85
86         case offsetof(struct user32, u_debugreg[4]): 
87         case offsetof(struct user32, u_debugreg[5]):
88                 return -EIO;
89
90         case offsetof(struct user32, u_debugreg[0]):
91                 child->thread.debugreg0 = val;
92                 break;
93
94         case offsetof(struct user32, u_debugreg[1]):
95                 child->thread.debugreg1 = val;
96                 break;
97
98         case offsetof(struct user32, u_debugreg[2]):
99                 child->thread.debugreg2 = val;
100                 break;
101
102         case offsetof(struct user32, u_debugreg[3]):
103                 child->thread.debugreg3 = val;
104                 break;
105
106         case offsetof(struct user32, u_debugreg[6]):
107                 child->thread.debugreg6 = val;
108                 break; 
109
110         case offsetof(struct user32, u_debugreg[7]):
111                 val &= ~DR_CONTROL_RESERVED;
112                 /* See arch/i386/kernel/ptrace.c for an explanation of
113                  * this awkward check.*/
114                 for(i=0; i<4; i++)
115                         if ((0x5454 >> ((val >> (16 + 4*i)) & 0xf)) & 1)
116                                return -EIO;
117                 child->thread.debugreg7 = val; 
118                 break; 
119                     
120         default:
121                 if (regno > sizeof(struct user32) || (regno & 3))
122                         return -EIO;
123                
124                 /* Other dummy fields in the virtual user structure are ignored */ 
125                 break;          
126         }
127         return 0;
128 }
129
130 #undef R32
131
132 #define R32(l,q) \
133         case offsetof(struct user32, regs.l): *val = stack[offsetof(struct pt_regs, q)/8]; break
134
135 static int getreg32(struct task_struct *child, unsigned regno, u32 *val)
136 {
137         __u64 *stack = (__u64 *)(child->thread.rsp0 - sizeof(struct pt_regs)); 
138
139         switch (regno) {
140         case offsetof(struct user32, regs.fs):
141                 *val = child->thread.fsindex;
142                 break;
143         case offsetof(struct user32, regs.gs):
144                 *val = child->thread.gsindex;
145                 break;
146         case offsetof(struct user32, regs.ds):
147                 *val = child->thread.ds;
148                 break;
149         case offsetof(struct user32, regs.es):
150                 *val = child->thread.es;
151                 break;
152
153         R32(cs, cs);
154         R32(ss, ss);
155         R32(ebx, rbx); 
156         R32(ecx, rcx);
157         R32(edx, rdx);
158         R32(edi, rdi);
159         R32(esi, rsi);
160         R32(ebp, rbp);
161         R32(eax, rax);
162         R32(orig_eax, orig_rax);
163         R32(eip, rip);
164         R32(eflags, eflags);
165         R32(esp, rsp);
166
167         case offsetof(struct user32, u_debugreg[0]): 
168                 *val = child->thread.debugreg0; 
169                 break; 
170         case offsetof(struct user32, u_debugreg[1]): 
171                 *val = child->thread.debugreg1; 
172                 break; 
173         case offsetof(struct user32, u_debugreg[2]): 
174                 *val = child->thread.debugreg2; 
175                 break; 
176         case offsetof(struct user32, u_debugreg[3]): 
177                 *val = child->thread.debugreg3; 
178                 break; 
179         case offsetof(struct user32, u_debugreg[6]): 
180                 *val = child->thread.debugreg6; 
181                 break; 
182         case offsetof(struct user32, u_debugreg[7]): 
183                 *val = child->thread.debugreg7; 
184                 break; 
185                     
186         default:
187                 if (regno > sizeof(struct user32) || (regno & 3))
188                         return -EIO;
189
190                 /* Other dummy fields in the virtual user structure are ignored */ 
191                 *val = 0;
192                 break;          
193         }
194         return 0;
195 }
196
197 #undef R32
198
199 static struct task_struct *find_target(int request, int pid, int *err)
200
201         struct task_struct *child;
202
203         *err = -EPERM; 
204         if (pid == 1)
205                 return NULL; 
206
207         *err = -ESRCH;
208         read_lock(&tasklist_lock);
209         child = find_task_by_pid(pid);
210         if (child)
211                 get_task_struct(child);
212         read_unlock(&tasklist_lock);
213         if (child) { 
214                 *err = -EPERM;
215                 if (child->pid == 1) 
216                         goto out;
217                 *err = ptrace_check_attach(child, request == PTRACE_KILL); 
218                 if (*err < 0) 
219                         goto out;
220                 return child; 
221         } 
222  out:
223         if (child)
224         put_task_struct(child);
225         return NULL; 
226         
227
228
229 asmlinkage long sys32_ptrace(long request, u32 pid, u32 addr, u32 data)
230 {
231         struct task_struct *child;
232         struct pt_regs *childregs; 
233         void __user *datap = compat_ptr(data);
234         int ret;
235         __u32 val;
236
237         switch (request) { 
238         default:
239                 return sys_ptrace(request, pid, addr, data); 
240
241         case PTRACE_PEEKTEXT:
242         case PTRACE_PEEKDATA:
243         case PTRACE_POKEDATA:
244         case PTRACE_POKETEXT:
245         case PTRACE_POKEUSR:       
246         case PTRACE_PEEKUSR:
247         case PTRACE_GETREGS:
248         case PTRACE_SETREGS:
249         case PTRACE_SETFPREGS:
250         case PTRACE_GETFPREGS:
251         case PTRACE_SETFPXREGS:
252         case PTRACE_GETFPXREGS:
253         case PTRACE_GETEVENTMSG:
254                 break;
255         } 
256
257         child = find_target(request, pid, &ret);
258         if (!child)
259                 return ret;
260
261         childregs = (struct pt_regs *)(child->thread.rsp0 - sizeof(struct pt_regs)); 
262
263         switch (request) {
264         case PTRACE_PEEKDATA:
265         case PTRACE_PEEKTEXT:
266                 ret = 0;
267                 if (access_process_vm(child, addr, &val, sizeof(u32), 0)!=sizeof(u32))
268                         ret = -EIO;
269                 else
270                         ret = put_user(val, (unsigned int __user *)datap); 
271                 break; 
272
273         case PTRACE_POKEDATA:
274         case PTRACE_POKETEXT:
275                 ret = 0;
276                 if (access_process_vm(child, addr, &data, sizeof(u32), 1)!=sizeof(u32))
277                         ret = -EIO; 
278                 break;
279
280         case PTRACE_PEEKUSR:
281                 ret = getreg32(child, addr, &val);
282                 if (ret == 0)
283                         ret = put_user(val, (__u32 __user *)datap);
284                 break;
285
286         case PTRACE_POKEUSR:
287                 ret = putreg32(child, addr, data);
288                 break;
289
290         case PTRACE_GETREGS: { /* Get all gp regs from the child. */
291                 int i;
292                 if (!access_ok(VERIFY_WRITE, datap, 16*4)) {
293                         ret = -EIO;
294                         break;
295                 }
296                 ret = 0;
297                 for ( i = 0; i <= 16*4 ; i += sizeof(__u32) ) {
298                         getreg32(child, i, &val);
299                         ret |= __put_user(val,(u32 __user *)datap);
300                         datap += sizeof(u32);
301                 }
302                 break;
303         }
304
305         case PTRACE_SETREGS: { /* Set all gp regs in the child. */
306                 unsigned long tmp;
307                 int i;
308                 if (!access_ok(VERIFY_READ, datap, 16*4)) {
309                         ret = -EIO;
310                         break;
311                 }
312                 ret = 0; 
313                 for ( i = 0; i <= 16*4; i += sizeof(u32) ) {
314                         ret |= __get_user(tmp, (u32 __user *)datap);
315                         putreg32(child, i, tmp);
316                         datap += sizeof(u32);
317                 }
318                 break;
319         }
320
321         case PTRACE_GETFPREGS:
322                 ret = -EIO; 
323                 if (!access_ok(VERIFY_READ, compat_ptr(data), 
324                                sizeof(struct user_i387_struct)))
325                         break;
326                 save_i387_ia32(child, datap, childregs, 1);
327                 ret = 0; 
328                         break;
329
330         case PTRACE_SETFPREGS:
331                 ret = -EIO;
332                 if (!access_ok(VERIFY_WRITE, datap, 
333                                sizeof(struct user_i387_struct)))
334                         break;
335                 ret = 0;
336                 /* don't check EFAULT to be bug-to-bug compatible to i386 */
337                 restore_i387_ia32(child, datap, 1);
338                 break;
339
340         case PTRACE_GETFPXREGS: { 
341                 struct user32_fxsr_struct __user *u = datap;
342                 init_fpu(child); 
343                 ret = -EIO;
344                 if (!access_ok(VERIFY_WRITE, u, sizeof(*u)))
345                         break;
346                         ret = -EFAULT;
347                 if (__copy_to_user(u, &child->thread.i387.fxsave, sizeof(*u)))
348                         break;
349                 ret = __put_user(childregs->cs, &u->fcs);
350                 ret |= __put_user(child->thread.ds, &u->fos); 
351                 break; 
352         } 
353         case PTRACE_SETFPXREGS: { 
354                 struct user32_fxsr_struct __user *u = datap;
355                 unlazy_fpu(child);
356                 ret = -EIO;
357                 if (!access_ok(VERIFY_READ, u, sizeof(*u)))
358                         break;
359                 /* no checking to be bug-to-bug compatible with i386 */
360                 __copy_from_user(&child->thread.i387.fxsave, u, sizeof(*u));
361                 set_stopped_child_used_math(child);
362                 child->thread.i387.fxsave.mxcsr &= mxcsr_feature_mask;
363                 ret = 0; 
364                 break;
365         }
366
367         case PTRACE_GETEVENTMSG:
368                 ret = put_user(child->ptrace_message,(unsigned int __user *)compat_ptr(data));
369                 break;
370
371         default:
372                 ret = -EINVAL;
373                 break;
374         }
375
376         put_task_struct(child);
377         return ret;
378 }
379