Pull bugzilla-5737 into release branch
[linux-2.6] / arch / um / sys-x86_64 / ptrace.c
1 /*
2  * Copyright 2003 PathScale, Inc.
3  *
4  * Licensed under the GPL
5  */
6
7 #define __FRAME_OFFSETS
8 #include <asm/ptrace.h>
9 #include <linux/sched.h>
10 #include <linux/errno.h>
11 #include <linux/mm.h>
12 #include <asm/uaccess.h>
13 #include <asm/elf.h>
14
15 /* XXX x86_64 */
16 unsigned long not_ss;
17 unsigned long not_ds;
18 unsigned long not_es;
19
20 #define SC_SS(r) (not_ss)
21 #define SC_DS(r) (not_ds)
22 #define SC_ES(r) (not_es)
23
24 /* determines which flags the user has access to. */
25 /* 1 = access 0 = no access */
26 #define FLAG_MASK 0x44dd5UL
27
28 int putreg(struct task_struct *child, int regno, unsigned long value)
29 {
30         unsigned long tmp;
31
32 #ifdef TIF_IA32
33         /* Some code in the 64bit emulation may not be 64bit clean.
34            Don't take any chances. */
35         if (test_tsk_thread_flag(child, TIF_IA32))
36                 value &= 0xffffffff;
37 #endif
38         switch (regno){
39         case FS:
40         case GS:
41         case DS:
42         case ES:
43         case SS:
44         case CS:
45                 if (value && (value & 3) != 3)
46                         return -EIO;
47                 value &= 0xffff;
48                 break;
49
50         case FS_BASE:
51         case GS_BASE:
52                 if (!((value >> 48) == 0 || (value >> 48) == 0xffff))
53                         return -EIO;
54                 break;
55
56         case EFLAGS:
57                 value &= FLAG_MASK;
58                 tmp = PT_REGS_EFLAGS(&child->thread.regs) & ~FLAG_MASK;
59                 value |= tmp;
60                 break;
61         }
62
63         PT_REGS_SET(&child->thread.regs, regno, value);
64         return 0;
65 }
66
67 int poke_user(struct task_struct *child, long addr, long data)
68 {
69         if ((addr & 3) || addr < 0)
70                 return -EIO;
71
72         if (addr < MAX_REG_OFFSET)
73                 return putreg(child, addr, data);
74
75 #if 0 /* Need x86_64 debugregs handling */
76         else if((addr >= offsetof(struct user, u_debugreg[0])) &&
77                 (addr <= offsetof(struct user, u_debugreg[7]))){
78                 addr -= offsetof(struct user, u_debugreg[0]);
79                 addr = addr >> 2;
80                 if((addr == 4) || (addr == 5)) return -EIO;
81                 child->thread.arch.debugregs[addr] = data;
82                 return 0;
83         }
84 #endif
85         return -EIO;
86 }
87
88 unsigned long getreg(struct task_struct *child, int regno)
89 {
90         unsigned long retval = ~0UL;
91         switch (regno) {
92         case FS:
93         case GS:
94         case DS:
95         case ES:
96         case SS:
97         case CS:
98                 retval = 0xffff;
99                 /* fall through */
100         default:
101                 retval &= PT_REG(&child->thread.regs, regno);
102 #ifdef TIF_IA32
103                 if (test_tsk_thread_flag(child, TIF_IA32))
104                         retval &= 0xffffffff;
105 #endif
106         }
107         return retval;
108 }
109
110 int peek_user(struct task_struct *child, long addr, long data)
111 {
112         /* read the word at location addr in the USER area. */
113         unsigned long tmp;
114
115         if ((addr & 3) || addr < 0)
116                 return -EIO;
117
118         tmp = 0;  /* Default return condition */
119         if(addr < MAX_REG_OFFSET){
120                 tmp = getreg(child, addr);
121         }
122 #if 0 /* Need x86_64 debugregs handling */
123         else if((addr >= offsetof(struct user, u_debugreg[0])) &&
124                 (addr <= offsetof(struct user, u_debugreg[7]))){
125                 addr -= offsetof(struct user, u_debugreg[0]);
126                 addr = addr >> 2;
127                 tmp = child->thread.arch.debugregs[addr];
128         }
129 #endif
130         return put_user(tmp, (unsigned long *) data);
131 }
132
133 void arch_switch(void)
134 {
135 /* XXX
136         printk("arch_switch\n");
137 */
138 }
139
140 /* XXX Mostly copied from sys-i386 */
141 int is_syscall(unsigned long addr)
142 {
143         unsigned short instr;
144         int n;
145
146         n = copy_from_user(&instr, (void __user *) addr, sizeof(instr));
147         if(n){
148                 /* access_process_vm() grants access to vsyscall and stub,
149                  * while copy_from_user doesn't. Maybe access_process_vm is
150                  * slow, but that doesn't matter, since it will be called only
151                  * in case of singlestepping, if copy_from_user failed.
152                  */
153                 n = access_process_vm(current, addr, &instr, sizeof(instr), 0);
154                 if(n != sizeof(instr)) {
155                         printk("is_syscall : failed to read instruction from "
156                                "0x%lx\n", addr);
157                         return(1);
158                 }
159         }
160         /* sysenter */
161         return(instr == 0x050f);
162 }
163
164 int dump_fpu(struct pt_regs *regs, elf_fpregset_t *fpu )
165 {
166         panic("dump_fpu");
167         return(1);
168 }
169
170 int get_fpregs(unsigned long buf, struct task_struct *child)
171 {
172         panic("get_fpregs");
173         return(0);
174 }
175
176 int set_fpregs(unsigned long buf, struct task_struct *child)
177 {
178         panic("set_fpregs");
179         return(0);
180 }
181
182 int get_fpxregs(unsigned long buf, struct task_struct *tsk)
183 {
184         panic("get_fpxregs");
185         return(0);
186 }
187
188 int set_fpxregs(unsigned long buf, struct task_struct *tsk)
189 {
190         panic("set_fxpregs");
191         return(0);
192 }
193
194 /*
195  * Overrides for Emacs so that we follow Linus's tabbing style.
196  * Emacs will notice this stuff at the end of the file and automatically
197  * adjust the settings for this buffer only.  This must remain at the end
198  * of the file.
199  * ---------------------------------------------------------------------------
200  * Local variables:
201  * c-file-style: "linux"
202  * End:
203  */