StrRetToStrN returns BOOL and shouldn't crash on NULL dest.
[wine/hacks.git] / server / context_powerpc.c
blob96d81e2d97fa3b8ef442d43feb83d85e98b14980
1 /*
2 * PowerPC register context support
4 * Copyright (C) 2002 Marcus Meissner, SuSE Linux AG.
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.
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.
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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 #include "config.h"
23 #ifdef __powerpc__
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
37 #ifndef PTRACE_PEEKUSER
38 # ifdef PT_READ_D
39 # define PTRACE_PEEKUSER PT_READ_D
40 # endif
41 #endif /* PTRACE_PEEKUSER */
43 #ifndef PTRACE_POKEUSER
44 # ifdef PT_WRITE_D
45 # define PTRACE_POKEUSER PT_WRITE_D
46 # endif
47 #endif /* PTRACE_POKEUSER */
49 #include "windef.h"
50 #include "winbase.h"
52 #include "file.h"
53 #include "thread.h"
54 #include "request.h"
56 /* retrieve a thread context */
57 static void get_thread_context( struct thread *thread, unsigned int flags, CONTEXT *context )
59 int pid = get_ptrace_pid(thread);
60 if (flags & CONTEXT_FULL)
62 if (flags & CONTEXT_INTEGER)
64 #define XREG(x,y) if (ptrace( PTRACE_PEEKUSER, pid, (void*)(x<<2), &context->y) == -1) goto error;
65 #define IREG(x) if (ptrace( PTRACE_PEEKUSER, pid, (void*)(x<<2), &context->Gpr##x) == -1) goto error;
66 IREG(0); IREG(1); IREG(2); IREG(3); IREG(4); IREG(5); IREG(6);
67 IREG(7); IREG(8); IREG(9); IREG(10); IREG(11); IREG(12); IREG(13);
68 IREG(14); IREG(15); IREG(16); IREG(17); IREG(18); IREG(19);
69 IREG(20); IREG(21); IREG(22); IREG(23); IREG(24); IREG(25);
70 IREG(26); IREG(27); IREG(28); IREG(29); IREG(30); IREG(31);
71 #undef IREG
72 XREG(37,Xer);
73 XREG(38,Cr);
75 if (flags & CONTEXT_CONTROL)
77 XREG(32,Iar);
78 XREG(33,Msr);
79 XREG(35,Ctr);
80 XREG(36,Lr); /* 36 is LNK ... probably Lr ? */
83 if (flags & CONTEXT_FLOATING_POINT)
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);
120 return;
121 error:
122 file_set_error();
124 #undef XREG
125 #undef IREG
126 #undef FREG
128 #define XREG(x,y) if (ptrace( PTRACE_POKEUSER, pid, (void*)(x<<2), &context->y) == -1) goto error;
129 #define IREG(x) if (ptrace( PTRACE_POKEUSER, pid, (void*)(x<<2), &context->Gpr##x) == -1) goto error;
130 #define FREG(x) if (ptrace( PTRACE_POKEUSER, pid, (void*)((48+x*2)<<2), &context->Fpr##x) == -1) goto error;
131 /* set a thread context */
132 static void set_thread_context( struct thread *thread, unsigned int flags, const CONTEXT *context )
134 int pid = get_ptrace_pid(thread);
135 if (flags & CONTEXT_FULL)
137 if (flags & CONTEXT_INTEGER)
139 IREG(0); IREG(1); IREG(2); IREG(3); IREG(4); IREG(5); IREG(6);
140 IREG(7); IREG(8); IREG(9); IREG(10); IREG(11); IREG(12); IREG(13);
141 IREG(14); IREG(15); IREG(16); IREG(17); IREG(18); IREG(19);
142 IREG(20); IREG(21); IREG(22); IREG(23); IREG(24); IREG(25);
143 IREG(26); IREG(27); IREG(28); IREG(29); IREG(30); IREG(31);
144 XREG(37,Xer);
145 XREG(38,Cr);
148 if (flags & CONTEXT_CONTROL)
150 XREG(32,Iar);
151 XREG(33,Msr);
152 XREG(35,Ctr);
153 XREG(36,Lr);
156 if (flags & CONTEXT_FLOATING_POINT)
158 FREG(0);
159 FREG(1);
160 FREG(2);
161 FREG(3);
162 FREG(4);
163 FREG(5);
164 FREG(6);
165 FREG(7);
166 FREG(8);
167 FREG(9);
168 FREG(10);
169 FREG(11);
170 FREG(12);
171 FREG(13);
172 FREG(14);
173 FREG(15);
174 FREG(16);
175 FREG(17);
176 FREG(18);
177 FREG(19);
178 FREG(20);
179 FREG(21);
180 FREG(22);
181 FREG(23);
182 FREG(24);
183 FREG(25);
184 FREG(26);
185 FREG(27);
186 FREG(28);
187 FREG(29);
188 FREG(30);
189 FREG(31);
190 #undef FREG
191 XREG((48+32*2),Fpscr);
193 return;
194 error:
195 file_set_error();
197 #undef XREG
198 #undef IREG
199 #undef FREG
201 #define IREG(x) to->Gpr##x = from->Gpr##x;
202 #define FREG(x) to->Fpr##x = from->Fpr##x;
203 #define CREG(x) to->x = from->x;
204 /* copy a context structure according to the flags */
205 static void copy_context( CONTEXT *to, const CONTEXT *from, int flags )
207 if (flags & CONTEXT_CONTROL)
209 CREG(Msr);
210 CREG(Ctr);
211 CREG(Iar);
213 if (flags & CONTEXT_INTEGER)
215 IREG(0); IREG(1); IREG(2); IREG(3); IREG(4); IREG(5); IREG(6);
216 IREG(7); IREG(8); IREG(9); IREG(10); IREG(11); IREG(12); IREG(13);
217 IREG(14); IREG(15); IREG(16); IREG(17); IREG(18); IREG(19);
218 IREG(20); IREG(21); IREG(22); IREG(23); IREG(24); IREG(25);
219 IREG(26); IREG(27); IREG(28); IREG(29); IREG(30); IREG(31);
220 CREG(Xer);
221 CREG(Cr);
223 if (flags & CONTEXT_FLOATING_POINT)
225 FREG(0);
226 FREG(1);
227 FREG(2);
228 FREG(3);
229 FREG(4);
230 FREG(5);
231 FREG(6);
232 FREG(7);
233 FREG(8);
234 FREG(9);
235 FREG(10);
236 FREG(11);
237 FREG(12);
238 FREG(13);
239 FREG(14);
240 FREG(15);
241 FREG(16);
242 FREG(17);
243 FREG(18);
244 FREG(19);
245 FREG(20);
246 FREG(21);
247 FREG(22);
248 FREG(23);
249 FREG(24);
250 FREG(25);
251 FREG(26);
252 FREG(27);
253 FREG(28);
254 FREG(29);
255 FREG(30);
256 FREG(31);
257 CREG(Fpscr);
261 /* retrieve the current instruction pointer of a thread */
262 void *get_thread_ip( struct thread *thread )
264 CONTEXT context;
265 context.Iar = 0;
266 if (suspend_for_ptrace( thread ))
268 get_thread_context( thread, CONTEXT_CONTROL, &context );
269 resume_after_ptrace( thread );
271 return (void *)context.Iar;
274 /* determine if we should continue the thread in single-step mode */
275 int get_thread_single_step( struct thread *thread )
277 CONTEXT context;
278 if (thread->context) return 0;
279 get_thread_context( thread, CONTEXT_CONTROL, &context );
280 #ifndef MSR_SE
281 # define MSR_SE (1<<10)
282 #endif
283 return (context.Msr & MSR_SE) != 0;
286 /* send a signal to a specific thread */
287 int tkill( int pid, int sig )
289 /* FIXME: should do something here */
290 errno = ENOSYS;
291 return -1;
294 /* retrieve the current context of a thread */
295 DECL_HANDLER(get_thread_context)
297 struct thread *thread;
298 void *data;
299 int flags = req->flags;
301 if (get_reply_max_size() < sizeof(CONTEXT))
303 set_error( STATUS_INVALID_PARAMETER );
304 return;
306 if (!(thread = get_thread_from_handle( req->handle, THREAD_GET_CONTEXT ))) return;
308 if ((data = set_reply_data_size( sizeof(CONTEXT) )))
310 if (thread->context) /* thread is inside an exception event */
312 copy_context( data, thread->context, flags );
313 flags = 0;
315 if (flags && suspend_for_ptrace( thread ))
317 get_thread_context( thread, flags, data );
318 resume_after_ptrace( thread );
321 release_object( thread );
325 /* set the current context of a thread */
326 DECL_HANDLER(set_thread_context)
328 struct thread *thread;
329 int flags = req->flags;
331 if (get_req_data_size() < sizeof(CONTEXT))
333 set_error( STATUS_INVALID_PARAMETER );
334 return;
336 if ((thread = get_thread_from_handle( req->handle, THREAD_SET_CONTEXT )))
338 if (thread->context) /* thread is inside an exception event */
340 copy_context( thread->context, get_req_data(), flags );
341 flags = 0;
343 if (flags && suspend_for_ptrace( thread ))
345 set_thread_context( thread, flags, get_req_data() );
346 resume_after_ptrace( thread );
348 release_object( thread );
352 #endif /* __powerpc__ */