oleaut: Dump the pointer for VT_ARRAY/VT_VECTOR typed variants.
[wine/wine64.git] / server / context_i386.c
blob7f1bb44023874e2596f48d7700940eb7440af26d
1 /*
2 * i386 register context support
4 * Copyright (C) 1999 Alexandre Julliard
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 __i386__
25 #include <assert.h>
26 #include <errno.h>
27 #ifdef HAVE_SYS_REG_H
28 #include <sys/reg.h>
29 #endif
30 #include <stdarg.h>
31 #include <unistd.h>
32 #ifdef HAVE_SYS_PTRACE_H
33 # include <sys/ptrace.h>
34 #endif
35 #ifdef HAVE_SYS_PARAM_H
36 # include <sys/param.h>
37 #endif
39 #include "windef.h"
41 #include "file.h"
42 #include "thread.h"
43 #include "request.h"
45 #ifndef PTRACE_PEEKUSER
46 # ifdef PTRACE_PEEKUSR /* libc5 uses USR not USER */
47 # define PTRACE_PEEKUSER PTRACE_PEEKUSR
48 # else
49 # define PTRACE_PEEKUSER PT_READ_U
50 # endif
51 #endif
53 #ifndef PTRACE_POKEUSER
54 # ifdef PTRACE_POKEUSR /* libc5 uses USR not USER */
55 # define PTRACE_POKEUSER PTRACE_POKEUSR
56 # else
57 # define PTRACE_POKEUSER PT_WRITE_U
58 # endif
59 #endif
61 #ifndef PTRACE_GETREGS
62 #define PTRACE_GETREGS PT_GETREGS
63 #endif
64 #ifndef PTRACE_GETFPREGS
65 #define PTRACE_GETFPREGS PT_GETFPREGS
66 #endif
67 #ifndef PTRACE_SETREGS
68 #define PTRACE_SETREGS PT_SETREGS
69 #endif
70 #ifndef PTRACE_SETFPREGS
71 #define PTRACE_SETFPREGS PT_SETFPREGS
72 #endif
74 #ifdef PT_GETDBREGS
75 #define PTRACE_GETDBREGS PT_GETDBREGS
76 #endif
78 #ifdef PT_SETDBREGS
79 #define PTRACE_SETDBREGS PT_SETDBREGS
80 #endif
82 #ifdef linux
83 #ifdef HAVE_SYS_USER_H
84 # include <sys/user.h>
85 #endif
87 /* user_regs definitions from asm/user.h */
88 struct kernel_user_regs_struct
90 long ebx, ecx, edx, esi, edi, ebp, eax;
91 unsigned short ds, __ds, es, __es;
92 unsigned short fs, __fs, gs, __gs;
93 long orig_eax, eip;
94 unsigned short cs, __cs;
95 long eflags, esp;
96 unsigned short ss, __ss;
99 /* debug register offset in struct user */
100 #define DR_OFFSET(dr) ((int)((((struct user *)0)->u_debugreg) + (dr)))
102 /* retrieve a debug register */
103 static inline int get_debug_reg( int pid, int num, DWORD *data )
105 int res;
106 errno = 0;
107 res = ptrace( PTRACE_PEEKUSER, pid, DR_OFFSET(num), 0 );
108 if ((res == -1) && errno)
110 file_set_error();
111 return -1;
113 *data = res;
114 return 0;
117 /* retrieve a thread context */
118 static void get_thread_context_ptrace( struct thread *thread, unsigned int flags, CONTEXT *context )
120 int pid = get_ptrace_pid(thread);
121 if (flags & CONTEXT_FULL)
123 struct kernel_user_regs_struct regs;
124 if (ptrace( PTRACE_GETREGS, pid, 0, &regs ) == -1) goto error;
125 if (flags & CONTEXT_INTEGER)
127 context->Eax = regs.eax;
128 context->Ebx = regs.ebx;
129 context->Ecx = regs.ecx;
130 context->Edx = regs.edx;
131 context->Esi = regs.esi;
132 context->Edi = regs.edi;
134 if (flags & CONTEXT_CONTROL)
136 context->Ebp = regs.ebp;
137 context->Esp = regs.esp;
138 context->Eip = regs.eip;
139 context->SegCs = regs.cs;
140 context->SegSs = regs.ss;
141 context->EFlags = regs.eflags;
143 if (flags & CONTEXT_SEGMENTS)
145 context->SegDs = regs.ds;
146 context->SegEs = regs.es;
147 context->SegFs = regs.fs;
148 context->SegGs = regs.gs;
150 context->ContextFlags |= flags & CONTEXT_FULL;
152 if (flags & CONTEXT_DEBUG_REGISTERS)
154 if (get_debug_reg( pid, 0, &context->Dr0 ) == -1) goto error;
155 if (get_debug_reg( pid, 1, &context->Dr1 ) == -1) goto error;
156 if (get_debug_reg( pid, 2, &context->Dr2 ) == -1) goto error;
157 if (get_debug_reg( pid, 3, &context->Dr3 ) == -1) goto error;
158 if (get_debug_reg( pid, 6, &context->Dr6 ) == -1) goto error;
159 if (get_debug_reg( pid, 7, &context->Dr7 ) == -1) goto error;
160 context->ContextFlags |= CONTEXT_DEBUG_REGISTERS;
162 if (flags & CONTEXT_FLOATING_POINT)
164 /* we can use context->FloatSave directly as it is using the */
165 /* correct structure (the same as fsave/frstor) */
166 if (ptrace( PTRACE_GETFPREGS, pid, 0, &context->FloatSave ) == -1) goto error;
167 context->FloatSave.Cr0NpxState = 0; /* FIXME */
168 context->ContextFlags |= CONTEXT_FLOATING_POINT;
170 return;
171 error:
172 file_set_error();
176 /* set a thread context */
177 static void set_thread_context_ptrace( struct thread *thread, unsigned int flags, const CONTEXT *context )
179 int pid = get_ptrace_pid(thread);
180 if (flags & CONTEXT_FULL)
182 struct kernel_user_regs_struct regs;
184 /* need to preserve some registers (at a minimum orig_eax must always be preserved) */
185 if (ptrace( PTRACE_GETREGS, pid, 0, &regs ) == -1) goto error;
187 if (flags & CONTEXT_INTEGER)
189 regs.eax = context->Eax;
190 regs.ebx = context->Ebx;
191 regs.ecx = context->Ecx;
192 regs.edx = context->Edx;
193 regs.esi = context->Esi;
194 regs.edi = context->Edi;
196 if (flags & CONTEXT_CONTROL)
198 regs.ebp = context->Ebp;
199 regs.esp = context->Esp;
200 regs.eip = context->Eip;
201 regs.cs = context->SegCs;
202 regs.ss = context->SegSs;
203 regs.eflags = context->EFlags;
205 if (flags & CONTEXT_SEGMENTS)
207 regs.ds = context->SegDs;
208 regs.es = context->SegEs;
209 regs.fs = context->SegFs;
210 regs.gs = context->SegGs;
212 if (ptrace( PTRACE_SETREGS, pid, 0, &regs ) == -1) goto error;
214 if (flags & CONTEXT_DEBUG_REGISTERS)
216 if (ptrace( PTRACE_POKEUSER, pid, DR_OFFSET(0), context->Dr0 ) == -1) goto error;
217 if (ptrace( PTRACE_POKEUSER, pid, DR_OFFSET(1), context->Dr1 ) == -1) goto error;
218 if (ptrace( PTRACE_POKEUSER, pid, DR_OFFSET(2), context->Dr2 ) == -1) goto error;
219 if (ptrace( PTRACE_POKEUSER, pid, DR_OFFSET(3), context->Dr3 ) == -1) goto error;
220 if (ptrace( PTRACE_POKEUSER, pid, DR_OFFSET(6), context->Dr6 ) == -1) goto error;
221 if (ptrace( PTRACE_POKEUSER, pid, DR_OFFSET(7), context->Dr7 ) == -1) goto error;
223 if (flags & CONTEXT_FLOATING_POINT)
225 /* we can use context->FloatSave directly as it is using the */
226 /* correct structure (the same as fsave/frstor) */
227 if (ptrace( PTRACE_SETFPREGS, pid, 0, &context->FloatSave ) == -1) goto error;
229 return;
230 error:
231 file_set_error();
234 #elif defined(__sun) || defined(__sun__)
236 /* retrieve a thread context */
237 static void get_thread_context_ptrace( struct thread *thread, unsigned int flags, CONTEXT *context )
239 int pid = get_ptrace_pid(thread);
240 if (flags & CONTEXT_FULL)
242 struct regs regs;
243 if (ptrace( PTRACE_GETREGS, pid, (int) &regs, 0 ) == -1) goto error;
244 if (flags & CONTEXT_INTEGER)
246 context->Eax = regs.r_eax;
247 context->Ebx = regs.r_ebx;
248 context->Ecx = regs.r_ecx;
249 context->Edx = regs.r_edx;
250 context->Esi = regs.r_esi;
251 context->Edi = regs.r_edi;
253 if (flags & CONTEXT_CONTROL)
255 context->Ebp = regs.r_ebp;
256 context->Esp = regs.r_esp;
257 context->Eip = regs.r_eip;
258 context->SegCs = regs.r_cs & 0xffff;
259 context->SegSs = regs.r_ss & 0xffff;
260 context->EFlags = regs.r_efl;
262 if (flags & CONTEXT_SEGMENTS)
264 context->SegDs = regs.r_ds & 0xffff;
265 context->SegEs = regs.r_es & 0xffff;
266 context->SegFs = regs.r_fs & 0xffff;
267 context->SegGs = regs.r_gs & 0xffff;
269 context->ContextFlags |= flags & CONTEXT_FULL;
271 if (flags & CONTEXT_DEBUG_REGISTERS)
273 /* FIXME: How is this done on Solaris? */
275 if (flags & CONTEXT_FLOATING_POINT)
277 /* we can use context->FloatSave directly as it is using the */
278 /* correct structure (the same as fsave/frstor) */
279 if (ptrace( PTRACE_GETFPREGS, pid, (int) &context->FloatSave, 0 ) == -1) goto error;
280 context->FloatSave.Cr0NpxState = 0; /* FIXME */
281 context->ContextFlags |= CONTEXT_FLOATING_POINT;
283 return;
284 error:
285 file_set_error();
289 /* set a thread context */
290 static void set_thread_context_ptrace( struct thread *thread, unsigned int flags, const CONTEXT *context )
292 int pid = get_ptrace_pid(thread);
293 if (flags & CONTEXT_FULL)
295 struct regs regs;
296 if (((flags | CONTEXT_i386) & CONTEXT_FULL) != CONTEXT_FULL)
298 /* need to preserve some registers */
299 if (ptrace( PTRACE_GETREGS, pid, (int) &regs, 0 ) == -1) goto error;
301 if (flags & CONTEXT_INTEGER)
303 regs.r_eax = context->Eax;
304 regs.r_ebx = context->Ebx;
305 regs.r_ecx = context->Ecx;
306 regs.r_edx = context->Edx;
307 regs.r_esi = context->Esi;
308 regs.r_edi = context->Edi;
310 if (flags & CONTEXT_CONTROL)
312 regs.r_ebp = context->Ebp;
313 regs.r_esp = context->Esp;
314 regs.r_eip = context->Eip;
315 regs.r_cs = context->SegCs;
316 regs.r_ss = context->SegSs;
317 regs.r_efl = context->EFlags;
319 if (flags & CONTEXT_SEGMENTS)
321 regs.r_ds = context->SegDs;
322 regs.r_es = context->SegEs;
323 regs.r_fs = context->SegFs;
324 regs.r_gs = context->SegGs;
326 if (ptrace( PTRACE_SETREGS, pid, (int) &regs, 0 ) == -1) goto error;
328 if (flags & CONTEXT_DEBUG_REGISTERS)
330 /* FIXME: How is this done on Solaris? */
332 if (flags & CONTEXT_FLOATING_POINT)
334 /* we can use context->FloatSave directly as it is using the */
335 /* correct structure (the same as fsave/frstor) */
336 if (ptrace( PTRACE_SETFPREGS, pid, (int) &context->FloatSave, 0 ) == -1) goto error;
338 return;
339 error:
340 file_set_error();
343 #elif defined(__FreeBSD__) || defined(__OpenBSD__) || defined(__NetBSD__)
344 #include <machine/reg.h>
346 /* retrieve a thread context */
347 static void get_thread_context_ptrace( struct thread *thread, unsigned int flags, CONTEXT *context )
349 int pid = get_ptrace_pid(thread);
350 if (flags & CONTEXT_FULL)
352 struct reg regs;
353 if (ptrace( PTRACE_GETREGS, pid, (caddr_t) &regs, 0 ) == -1) goto error;
354 if (flags & CONTEXT_INTEGER)
356 context->Eax = regs.r_eax;
357 context->Ebx = regs.r_ebx;
358 context->Ecx = regs.r_ecx;
359 context->Edx = regs.r_edx;
360 context->Esi = regs.r_esi;
361 context->Edi = regs.r_edi;
363 if (flags & CONTEXT_CONTROL)
365 context->Ebp = regs.r_ebp;
366 context->Esp = regs.r_esp;
367 context->Eip = regs.r_eip;
368 context->SegCs = regs.r_cs & 0xffff;
369 context->SegSs = regs.r_ss & 0xffff;
370 context->EFlags = regs.r_eflags;
372 if (flags & CONTEXT_SEGMENTS)
374 context->SegDs = regs.r_ds & 0xffff;
375 context->SegEs = regs.r_es & 0xffff;
376 context->SegFs = regs.r_fs & 0xffff;
377 context->SegGs = regs.r_gs & 0xffff;
379 context->ContextFlags |= flags & CONTEXT_FULL;
381 if (flags & CONTEXT_DEBUG_REGISTERS)
383 #ifdef PTRACE_GETDBREGS
384 struct dbreg dbregs;
385 if (ptrace( PTRACE_GETDBREGS, pid, (caddr_t) &dbregs, 0 ) == -1)
386 goto error;
387 #ifdef DBREG_DRX
388 /* needed for FreeBSD, the structure fields have changed under 5.x */
389 context->Dr0 = DBREG_DRX((&dbregs), 0);
390 context->Dr1 = DBREG_DRX((&dbregs), 1);
391 context->Dr2 = DBREG_DRX((&dbregs), 2);
392 context->Dr3 = DBREG_DRX((&dbregs), 3);
393 context->Dr6 = DBREG_DRX((&dbregs), 6);
394 context->Dr7 = DBREG_DRX((&dbregs), 7);
395 #else
396 context->Dr0 = dbregs.dr0;
397 context->Dr1 = dbregs.dr1;
398 context->Dr2 = dbregs.dr2;
399 context->Dr3 = dbregs.dr3;
400 context->Dr6 = dbregs.dr6;
401 context->Dr7 = dbregs.dr7;
402 #endif
403 context->ContextFlags |= CONTEXT_DEBUG_REGISTERS;
404 #endif
406 if (flags & CONTEXT_FLOATING_POINT)
408 /* we can use context->FloatSave directly as it is using the */
409 /* correct structure (the same as fsave/frstor) */
410 if (ptrace( PTRACE_GETFPREGS, pid, (caddr_t) &context->FloatSave, 0 ) == -1) goto error;
411 context->FloatSave.Cr0NpxState = 0; /* FIXME */
412 context->ContextFlags |= CONTEXT_FLOATING_POINT;
414 return;
415 error:
416 file_set_error();
420 /* set a thread context */
421 static void set_thread_context_ptrace( struct thread *thread, unsigned int flags, const CONTEXT *context )
423 int pid = get_ptrace_pid(thread);
424 if (flags & CONTEXT_FULL)
426 struct reg regs;
427 if (((flags | CONTEXT_i386) & CONTEXT_FULL) != CONTEXT_FULL)
429 /* need to preserve some registers */
430 if (ptrace( PTRACE_GETREGS, pid, (caddr_t) &regs, 0 ) == -1) goto error;
432 if (flags & CONTEXT_INTEGER)
434 regs.r_eax = context->Eax;
435 regs.r_ebx = context->Ebx;
436 regs.r_ecx = context->Ecx;
437 regs.r_edx = context->Edx;
438 regs.r_esi = context->Esi;
439 regs.r_edi = context->Edi;
441 if (flags & CONTEXT_CONTROL)
443 regs.r_ebp = context->Ebp;
444 regs.r_esp = context->Esp;
445 regs.r_eip = context->Eip;
446 regs.r_cs = context->SegCs;
447 regs.r_ss = context->SegSs;
448 regs.r_eflags = context->EFlags;
450 if (flags & CONTEXT_SEGMENTS)
452 regs.r_ds = context->SegDs;
453 regs.r_es = context->SegEs;
454 regs.r_fs = context->SegFs;
455 regs.r_gs = context->SegGs;
457 if (ptrace( PTRACE_SETREGS, pid, (caddr_t) &regs, 0 ) == -1) goto error;
459 if (flags & CONTEXT_DEBUG_REGISTERS)
461 #ifdef PTRACE_SETDBREGS
462 struct dbreg dbregs;
463 #ifdef DBREG_DRX
464 /* needed for FreeBSD, the structure fields have changed under 5.x */
465 DBREG_DRX((&dbregs), 0) = context->Dr0;
466 DBREG_DRX((&dbregs), 1) = context->Dr1;
467 DBREG_DRX((&dbregs), 2) = context->Dr2;
468 DBREG_DRX((&dbregs), 3) = context->Dr3;
469 DBREG_DRX((&dbregs), 4) = 0;
470 DBREG_DRX((&dbregs), 5) = 0;
471 DBREG_DRX((&dbregs), 6) = context->Dr6;
472 DBREG_DRX((&dbregs), 7) = context->Dr7;
473 #else
474 dbregs.dr0 = context->Dr0;
475 dbregs.dr1 = context->Dr1;
476 dbregs.dr2 = context->Dr2;
477 dbregs.dr3 = context->Dr3;
478 dbregs.dr4 = 0;
479 dbregs.dr5 = 0;
480 dbregs.dr6 = context->Dr6;
481 dbregs.dr7 = context->Dr7;
482 #endif
483 if (ptrace( PTRACE_SETDBREGS, pid, (caddr_t) &dbregs, 0 ) == -1)
484 goto error;
485 #endif
487 if (flags & CONTEXT_FLOATING_POINT)
489 /* we can use context->FloatSave directly as it is using the */
490 /* correct structure (the same as fsave/frstor) */
491 if (ptrace( PTRACE_SETFPREGS, pid, (caddr_t) &context->FloatSave, 0 ) == -1) goto error;
493 return;
494 error:
495 file_set_error();
498 #else /* linux || __sun__ || __FreeBSD__ */
499 #error You must implement get/set_thread_context_ptrace for your platform
500 #endif /* linux || __sun__ || __FreeBSD__ */
503 /* copy a context structure according to the flags */
504 static void copy_context( CONTEXT *to, const CONTEXT *from, unsigned int flags )
506 if (flags & CONTEXT_CONTROL)
508 to->Ebp = from->Ebp;
509 to->Eip = from->Eip;
510 to->Esp = from->Esp;
511 to->SegCs = from->SegCs;
512 to->SegSs = from->SegSs;
513 to->EFlags = from->EFlags;
515 if (flags & CONTEXT_INTEGER)
517 to->Eax = from->Eax;
518 to->Ebx = from->Ebx;
519 to->Ecx = from->Ecx;
520 to->Edx = from->Edx;
521 to->Esi = from->Esi;
522 to->Edi = from->Edi;
524 if (flags & CONTEXT_SEGMENTS)
526 to->SegDs = from->SegDs;
527 to->SegEs = from->SegEs;
528 to->SegFs = from->SegFs;
529 to->SegGs = from->SegGs;
531 if (flags & CONTEXT_FLOATING_POINT)
533 to->FloatSave = from->FloatSave;
535 /* we don't bother copying the debug registers, since they */
536 /* always need to be accessed by ptrace anyway */
537 to->ContextFlags |= flags & ~CONTEXT_DEBUG_REGISTERS;
540 /* retrieve the current instruction pointer of a thread */
541 void *get_thread_ip( struct thread *thread )
543 CONTEXT context;
544 context.Eip = 0;
545 if (suspend_for_ptrace( thread ))
547 get_thread_context_ptrace( thread, CONTEXT_CONTROL, &context );
548 resume_after_ptrace( thread );
550 return (void *)context.Eip;
553 /* determine if we should continue the thread in single-step mode */
554 int get_thread_single_step( struct thread *thread )
556 CONTEXT context;
557 if (thread->context) return 0; /* don't single-step inside exception event */
558 get_thread_context_ptrace( thread, CONTEXT_CONTROL, &context );
559 return (context.EFlags & 0x100) != 0;
562 /* send a signal to a specific thread */
563 int tkill( int pid, int sig )
565 #ifdef __linux__
566 int ret;
567 __asm__( "pushl %%ebx\n\t"
568 "movl %2,%%ebx\n\t"
569 "int $0x80\n\t"
570 "popl %%ebx\n\t"
571 : "=a" (ret)
572 : "0" (238) /*SYS_tkill*/, "r" (pid), "c" (sig) );
573 if (ret >= 0) return ret;
574 errno = -ret;
575 return -1;
576 #else
577 errno = ENOSYS;
578 return -1;
579 #endif
582 /* retrieve the thread context */
583 void get_thread_context( struct thread *thread, CONTEXT *context, unsigned int flags )
585 context->ContextFlags |= CONTEXT_i386;
586 flags &= ~CONTEXT_i386; /* get rid of CPU id */
588 if (thread->context) /* thread is inside an exception event or suspended */
590 copy_context( context, thread->context, flags );
591 flags &= CONTEXT_DEBUG_REGISTERS;
594 if (flags && suspend_for_ptrace( thread ))
596 get_thread_context_ptrace( thread, flags, context );
597 resume_after_ptrace( thread );
601 /* set the thread context */
602 void set_thread_context( struct thread *thread, const CONTEXT *context, unsigned int flags )
604 flags &= ~CONTEXT_i386; /* get rid of CPU id */
606 if (thread->context) /* thread is inside an exception event or suspended */
607 copy_context( thread->context, context, flags );
609 flags &= CONTEXT_DEBUG_REGISTERS; /* the other registers are handled on the client side */
611 if (flags && suspend_for_ptrace( thread ))
613 set_thread_context_ptrace( thread, flags, context );
614 resume_after_ptrace( thread );
618 #endif /* __i386__ */