user32: Make the excessive scroll test pass under Windows.
[wine] / server / context_powerpc.c
1 /*
2  * PowerPC register context support
3  *
4  * Copyright (C) 2002 Marcus Meissner, SuSE Linux AG.
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include "config.h"
22
23 #ifdef __powerpc__
24
25 #include <assert.h>
26 #include <errno.h>
27 #include <sys/types.h>
28 #ifdef HAVE_SYS_REG_H
29 # include <sys/reg.h>
30 #endif
31 #include <stdarg.h>
32 #include <unistd.h>
33 #ifdef HAVE_SYS_PTRACE_H
34 # include <sys/ptrace.h>
35 #endif
36
37 #include "windef.h"
38
39 #if 0  /* no longer used */
40
41 #ifndef PTRACE_PEEKUSER
42 # ifdef PT_READ_D
43 #  define PTRACE_PEEKUSER PT_READ_D
44 # endif
45 #endif /* PTRACE_PEEKUSER */
46
47 #ifndef PTRACE_POKEUSER
48 # ifdef PT_WRITE_D
49 #  define PTRACE_POKEUSER PT_WRITE_D
50 # endif
51 #endif /* PTRACE_POKEUSER */
52
53 #include "file.h"
54 #include "thread.h"
55 #include "request.h"
56
57 /* retrieve a thread context */
58 static void get_thread_context_ptrace( struct thread *thread, unsigned int flags, CONTEXT *context )
59 {
60     int pid = get_ptrace_pid(thread);
61     if (flags & CONTEXT_INTEGER)
62     {
63 #define XREG(x,y) if (ptrace( PTRACE_PEEKUSER, pid, (void*)(x<<2), &context->y) == -1) goto error;
64 #define IREG(x) if (ptrace( PTRACE_PEEKUSER, pid, (void*)(x<<2), &context->Gpr##x) == -1) goto error;
65         IREG(0); IREG(1); IREG(2); IREG(3); IREG(4); IREG(5); IREG(6);
66         IREG(7); IREG(8); IREG(9); IREG(10); IREG(11); IREG(12); IREG(13);
67         IREG(14); IREG(15); IREG(16); IREG(17); IREG(18); IREG(19);
68         IREG(20); IREG(21); IREG(22); IREG(23); IREG(24); IREG(25);
69         IREG(26); IREG(27); IREG(28); IREG(29); IREG(30); IREG(31);
70 #undef IREG
71         XREG(37,Xer);
72         XREG(38,Cr);
73         context->ContextFlags |= CONTEXT_INTEGER;
74     }
75     if (flags & CONTEXT_CONTROL)
76     {
77         XREG(32,Iar);
78         XREG(33,Msr);
79         XREG(35,Ctr);
80         XREG(36,Lr); /* 36 is LNK ... probably Lr ? */
81         context->ContextFlags |= CONTEXT_CONTROL;
82     }
83     if (flags & CONTEXT_FLOATING_POINT)
84     {
85 #define FREG(x) if (ptrace( PTRACE_PEEKUSER, pid, (void*)((48+x*2)<<2), &context->Fpr##x) == -1) goto error;
86         FREG(0);
87         FREG(1);
88         FREG(2);
89         FREG(3);
90         FREG(4);
91         FREG(5);
92         FREG(6);
93         FREG(7);
94         FREG(8);
95         FREG(9);
96         FREG(10);
97         FREG(11);
98         FREG(12);
99         FREG(13);
100         FREG(14);
101         FREG(15);
102         FREG(16);
103         FREG(17);
104         FREG(18);
105         FREG(19);
106         FREG(20);
107         FREG(21);
108         FREG(22);
109         FREG(23);
110         FREG(24);
111         FREG(25);
112         FREG(26);
113         FREG(27);
114         FREG(28);
115         FREG(29);
116         FREG(30);
117         FREG(31);
118         XREG((48+32*2),Fpscr);
119         context->ContextFlags |= CONTEXT_FLOATING_POINT;
120     }
121     return;
122  error:
123     file_set_error();
124 }
125 #undef XREG
126 #undef IREG
127 #undef FREG
128
129 #define XREG(x,y) if (ptrace( PTRACE_POKEUSER, pid, (void*)(x<<2), &context->y) == -1) goto error;
130 #define IREG(x) if (ptrace( PTRACE_POKEUSER, pid, (void*)(x<<2), &context->Gpr##x) == -1) goto error;
131 #define FREG(x) if (ptrace( PTRACE_POKEUSER, pid, (void*)((48+x*2)<<2), &context->Fpr##x) == -1) goto error;
132 /* set a thread context */
133 static void set_thread_context_ptrace( struct thread *thread, unsigned int flags, const CONTEXT *context )
134 {
135     int pid = get_ptrace_pid(thread);
136     if (flags & CONTEXT_FULL)
137     {
138         if (flags & CONTEXT_INTEGER)
139         {
140             IREG(0); IREG(1); IREG(2); IREG(3); IREG(4); IREG(5); IREG(6);
141             IREG(7); IREG(8); IREG(9); IREG(10); IREG(11); IREG(12); IREG(13);
142             IREG(14); IREG(15); IREG(16); IREG(17); IREG(18); IREG(19);
143             IREG(20); IREG(21); IREG(22); IREG(23); IREG(24); IREG(25);
144             IREG(26); IREG(27); IREG(28); IREG(29); IREG(30); IREG(31);
145             XREG(37,Xer);
146             XREG(38,Cr);
147
148         }
149         if (flags & CONTEXT_CONTROL)
150         {
151             XREG(32,Iar);
152             XREG(33,Msr);
153             XREG(35,Ctr);
154             XREG(36,Lr);
155         }
156     }
157     if (flags & CONTEXT_FLOATING_POINT)
158     {
159         FREG(0);
160         FREG(1);
161         FREG(2);
162         FREG(3);
163         FREG(4);
164         FREG(5);
165         FREG(6);
166         FREG(7);
167         FREG(8);
168         FREG(9);
169         FREG(10);
170         FREG(11);
171         FREG(12);
172         FREG(13);
173         FREG(14);
174         FREG(15);
175         FREG(16);
176         FREG(17);
177         FREG(18);
178         FREG(19);
179         FREG(20);
180         FREG(21);
181         FREG(22);
182         FREG(23);
183         FREG(24);
184         FREG(25);
185         FREG(26);
186         FREG(27);
187         FREG(28);
188         FREG(29);
189         FREG(30);
190         FREG(31);
191 #undef FREG
192         XREG((48+32*2),Fpscr);
193     }
194     return;
195  error:
196     file_set_error();
197 }
198 #undef XREG
199 #undef IREG
200 #undef FREG
201
202 #endif /* 0 */
203
204 #define IREG(x) to->Gpr##x = from->Gpr##x;
205 #define FREG(x) to->Fpr##x = from->Fpr##x;
206 #define CREG(x) to->x = from->x;
207 /* copy a context structure according to the flags */
208 void copy_context( CONTEXT *to, const CONTEXT *from, unsigned int flags )
209 {
210     if (flags & CONTEXT_CONTROL)
211     {
212         CREG(Msr);
213         CREG(Ctr);
214         CREG(Iar);
215         to->ContextFlags |= CONTEXT_CONTROL;
216     }
217     if (flags & CONTEXT_INTEGER)
218     {
219         IREG(0); IREG(1); IREG(2); IREG(3); IREG(4); IREG(5); IREG(6);
220         IREG(7); IREG(8); IREG(9); IREG(10); IREG(11); IREG(12); IREG(13);
221         IREG(14); IREG(15); IREG(16); IREG(17); IREG(18); IREG(19);
222         IREG(20); IREG(21); IREG(22); IREG(23); IREG(24); IREG(25);
223         IREG(26); IREG(27); IREG(28); IREG(29); IREG(30); IREG(31);
224         CREG(Xer);
225         CREG(Cr);
226         to->ContextFlags |= CONTEXT_INTEGER;
227     }
228     if (flags & CONTEXT_FLOATING_POINT)
229     {
230         FREG(0);
231         FREG(1);
232         FREG(2);
233         FREG(3);
234         FREG(4);
235         FREG(5);
236         FREG(6);
237         FREG(7);
238         FREG(8);
239         FREG(9);
240         FREG(10);
241         FREG(11);
242         FREG(12);
243         FREG(13);
244         FREG(14);
245         FREG(15);
246         FREG(16);
247         FREG(17);
248         FREG(18);
249         FREG(19);
250         FREG(20);
251         FREG(21);
252         FREG(22);
253         FREG(23);
254         FREG(24);
255         FREG(25);
256         FREG(26);
257         FREG(27);
258         FREG(28);
259         FREG(29);
260         FREG(30);
261         FREG(31);
262         CREG(Fpscr);
263         to->ContextFlags |= CONTEXT_FLOATING_POINT;
264     }
265 }
266
267 /* retrieve the current instruction pointer of a context */
268 void *get_context_ip( const CONTEXT *context )
269 {
270     return (void *)context->Iar;
271 }
272
273 /* return the context flag that contains the CPU id */
274 unsigned int get_context_cpu_flag(void)
275 {
276     return 0;
277 }
278
279 /* return only the context flags that correspond to system regs */
280 /* (system regs are the ones we can't access on the client side) */
281 unsigned int get_context_system_regs( unsigned int flags )
282 {
283     return 0;  /* FIXME: implement client-side handling */
284 }
285
286 #endif  /* __powerpc__ */