* corelow.c (get_core_registers): Adjust.
[binutils-gdb.git] / gdb / amd64-linux-nat.c
blobe46bd039781411b2c64b39e4b81f44c35ae5bae9
1 /* Native-dependent code for GNU/Linux x86-64.
3 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
4 Free Software Foundation, Inc.
5 Contributed by Jiri Smid, SuSE Labs.
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>. */
22 #include "defs.h"
23 #include "inferior.h"
24 #include "gdbcore.h"
25 #include "regcache.h"
26 #include "linux-nat.h"
27 #include "amd64-linux-tdep.h"
29 #include "gdb_assert.h"
30 #include "gdb_string.h"
31 #include <sys/ptrace.h>
32 #include <sys/debugreg.h>
33 #include <sys/syscall.h>
34 #include <sys/procfs.h>
35 #include <asm/prctl.h>
36 /* FIXME ezannoni-2003-07-09: we need <sys/reg.h> to be included after
37 <asm/ptrace.h> because the latter redefines FS and GS for no apparent
38 reason, and those definitions don't match the ones that libpthread_db
39 uses, which come from <sys/reg.h>. */
40 /* ezannoni-2003-07-09: I think this is fixed. The extraneous defs have
41 been removed from ptrace.h in the kernel. However, better safe than
42 sorry. */
43 #include <asm/ptrace.h>
44 #include <sys/reg.h>
45 #include "gdb_proc_service.h"
47 /* Prototypes for supply_gregset etc. */
48 #include "gregset.h"
50 #include "amd64-tdep.h"
51 #include "i386-linux-tdep.h"
52 #include "amd64-nat.h"
54 /* Mapping between the general-purpose registers in GNU/Linux x86-64
55 `struct user' format and GDB's register cache layout. */
57 static int amd64_linux_gregset64_reg_offset[] =
59 RAX * 8, RBX * 8, /* %rax, %rbx */
60 RCX * 8, RDX * 8, /* %rcx, %rdx */
61 RSI * 8, RDI * 8, /* %rsi, %rdi */
62 RBP * 8, RSP * 8, /* %rbp, %rsp */
63 R8 * 8, R9 * 8, /* %r8 ... */
64 R10 * 8, R11 * 8,
65 R12 * 8, R13 * 8,
66 R14 * 8, R15 * 8, /* ... %r15 */
67 RIP * 8, EFLAGS * 8, /* %rip, %eflags */
68 CS * 8, SS * 8, /* %cs, %ss */
69 DS * 8, ES * 8, /* %ds, %es */
70 FS * 8, GS * 8, /* %fs, %gs */
71 -1, -1, -1, -1, -1, -1, -1, -1,
72 -1, -1, -1, -1, -1, -1, -1, -1,
73 -1, -1, -1, -1, -1, -1, -1, -1,
74 -1, -1, -1, -1, -1, -1, -1, -1, -1,
75 ORIG_RAX * 8
79 /* Mapping between the general-purpose registers in GNU/Linux x86-64
80 `struct user' format and GDB's register cache layout for GNU/Linux
81 i386.
83 Note that most GNU/Linux x86-64 registers are 64-bit, while the
84 GNU/Linux i386 registers are all 32-bit, but since we're
85 little-endian we get away with that. */
87 /* From <sys/reg.h> on GNU/Linux i386. */
88 static int amd64_linux_gregset32_reg_offset[] =
90 RAX * 8, RCX * 8, /* %eax, %ecx */
91 RDX * 8, RBX * 8, /* %edx, %ebx */
92 RSP * 8, RBP * 8, /* %esp, %ebp */
93 RSI * 8, RDI * 8, /* %esi, %edi */
94 RIP * 8, EFLAGS * 8, /* %eip, %eflags */
95 CS * 8, SS * 8, /* %cs, %ss */
96 DS * 8, ES * 8, /* %ds, %es */
97 FS * 8, GS * 8, /* %fs, %gs */
98 -1, -1, -1, -1, -1, -1, -1, -1,
99 -1, -1, -1, -1, -1, -1, -1, -1,
100 -1, -1, -1, -1, -1, -1, -1, -1, -1,
101 ORIG_RAX * 8 /* "orig_eax" */
105 /* Transfering the general-purpose registers between GDB, inferiors
106 and core files. */
108 /* Fill GDB's register cache with the general-purpose register values
109 in *GREGSETP. */
111 void
112 supply_gregset (struct regcache *regcache, const elf_gregset_t *gregsetp)
114 amd64_supply_native_gregset (regcache, gregsetp, -1);
117 /* Fill register REGNUM (if it is a general-purpose register) in
118 *GREGSETP with the value in GDB's register cache. If REGNUM is -1,
119 do this for all registers. */
121 void
122 fill_gregset (const struct regcache *regcache,
123 elf_gregset_t *gregsetp, int regnum)
125 amd64_collect_native_gregset (regcache, gregsetp, regnum);
128 /* Transfering floating-point registers between GDB, inferiors and cores. */
130 /* Fill GDB's register cache with the floating-point and SSE register
131 values in *FPREGSETP. */
133 void
134 supply_fpregset (struct regcache *regcache, const elf_fpregset_t *fpregsetp)
136 amd64_supply_fxsave (regcache, -1, fpregsetp);
139 /* Fill register REGNUM (if it is a floating-point or SSE register) in
140 *FPREGSETP with the value in GDB's register cache. If REGNUM is
141 -1, do this for all registers. */
143 void
144 fill_fpregset (const struct regcache *regcache,
145 elf_fpregset_t *fpregsetp, int regnum)
147 amd64_collect_fxsave (regcache, regnum, fpregsetp);
151 /* Transferring arbitrary registers between GDB and inferior. */
153 /* Fetch register REGNUM from the child process. If REGNUM is -1, do
154 this for all registers (including the floating point and SSE
155 registers). */
157 static void
158 amd64_linux_fetch_inferior_registers (struct target_ops *ops,
159 struct regcache *regcache, int regnum)
161 struct gdbarch *gdbarch = get_regcache_arch (regcache);
162 int tid;
164 /* GNU/Linux LWP ID's are process ID's. */
165 tid = TIDGET (inferior_ptid);
166 if (tid == 0)
167 tid = PIDGET (inferior_ptid); /* Not a threaded program. */
169 if (regnum == -1 || amd64_native_gregset_supplies_p (gdbarch, regnum))
171 elf_gregset_t regs;
173 if (ptrace (PTRACE_GETREGS, tid, 0, (long) &regs) < 0)
174 perror_with_name (_("Couldn't get registers"));
176 amd64_supply_native_gregset (regcache, &regs, -1);
177 if (regnum != -1)
178 return;
181 if (regnum == -1 || !amd64_native_gregset_supplies_p (gdbarch, regnum))
183 elf_fpregset_t fpregs;
185 if (ptrace (PTRACE_GETFPREGS, tid, 0, (long) &fpregs) < 0)
186 perror_with_name (_("Couldn't get floating point status"));
188 amd64_supply_fxsave (regcache, -1, &fpregs);
192 /* Store register REGNUM back into the child process. If REGNUM is
193 -1, do this for all registers (including the floating-point and SSE
194 registers). */
196 static void
197 amd64_linux_store_inferior_registers (struct target_ops *ops,
198 struct regcache *regcache, int regnum)
200 struct gdbarch *gdbarch = get_regcache_arch (regcache);
201 int tid;
203 /* GNU/Linux LWP ID's are process ID's. */
204 tid = TIDGET (inferior_ptid);
205 if (tid == 0)
206 tid = PIDGET (inferior_ptid); /* Not a threaded program. */
208 if (regnum == -1 || amd64_native_gregset_supplies_p (gdbarch, regnum))
210 elf_gregset_t regs;
212 if (ptrace (PTRACE_GETREGS, tid, 0, (long) &regs) < 0)
213 perror_with_name (_("Couldn't get registers"));
215 amd64_collect_native_gregset (regcache, &regs, regnum);
217 if (ptrace (PTRACE_SETREGS, tid, 0, (long) &regs) < 0)
218 perror_with_name (_("Couldn't write registers"));
220 if (regnum != -1)
221 return;
224 if (regnum == -1 || !amd64_native_gregset_supplies_p (gdbarch, regnum))
226 elf_fpregset_t fpregs;
228 if (ptrace (PTRACE_GETFPREGS, tid, 0, (long) &fpregs) < 0)
229 perror_with_name (_("Couldn't get floating point status"));
231 amd64_collect_fxsave (regcache, regnum, &fpregs);
233 if (ptrace (PTRACE_SETFPREGS, tid, 0, (long) &fpregs) < 0)
234 perror_with_name (_("Couldn't write floating point status"));
236 return;
240 /* Support for debug registers. */
242 static unsigned long amd64_linux_dr[DR_CONTROL + 1];
244 static unsigned long
245 amd64_linux_dr_get (ptid_t ptid, int regnum)
247 int tid;
248 unsigned long value;
250 tid = TIDGET (ptid);
251 if (tid == 0)
252 tid = PIDGET (ptid);
254 /* FIXME: kettenis/2001-03-27: Calling perror_with_name if the
255 ptrace call fails breaks debugging remote targets. The correct
256 way to fix this is to add the hardware breakpoint and watchpoint
257 stuff to the target vector. For now, just return zero if the
258 ptrace call fails. */
259 errno = 0;
260 value = ptrace (PTRACE_PEEKUSER, tid,
261 offsetof (struct user, u_debugreg[regnum]), 0);
262 if (errno != 0)
263 #if 0
264 perror_with_name (_("Couldn't read debug register"));
265 #else
266 return 0;
267 #endif
269 return value;
272 static void
273 amd64_linux_dr_set (ptid_t ptid, int regnum, unsigned long value)
275 int tid;
277 tid = TIDGET (ptid);
278 if (tid == 0)
279 tid = PIDGET (ptid);
281 errno = 0;
282 ptrace (PTRACE_POKEUSER, tid,
283 offsetof (struct user, u_debugreg[regnum]), value);
284 if (errno != 0)
285 perror_with_name (_("Couldn't write debug register"));
288 void
289 amd64_linux_dr_set_control (unsigned long control)
291 struct lwp_info *lp;
292 ptid_t ptid;
294 amd64_linux_dr[DR_CONTROL] = control;
295 ALL_LWPS (lp, ptid)
296 amd64_linux_dr_set (ptid, DR_CONTROL, control);
299 void
300 amd64_linux_dr_set_addr (int regnum, CORE_ADDR addr)
302 struct lwp_info *lp;
303 ptid_t ptid;
305 gdb_assert (regnum >= 0 && regnum <= DR_LASTADDR - DR_FIRSTADDR);
307 amd64_linux_dr[DR_FIRSTADDR + regnum] = addr;
308 ALL_LWPS (lp, ptid)
309 amd64_linux_dr_set (ptid, DR_FIRSTADDR + regnum, addr);
312 void
313 amd64_linux_dr_reset_addr (int regnum)
315 amd64_linux_dr_set_addr (regnum, 0);
318 unsigned long
319 amd64_linux_dr_get_status (void)
321 return amd64_linux_dr_get (inferior_ptid, DR_STATUS);
324 static void
325 amd64_linux_new_thread (ptid_t ptid)
327 int i;
329 for (i = DR_FIRSTADDR; i <= DR_LASTADDR; i++)
330 amd64_linux_dr_set (ptid, i, amd64_linux_dr[i]);
332 amd64_linux_dr_set (ptid, DR_CONTROL, amd64_linux_dr[DR_CONTROL]);
336 /* This function is called by libthread_db as part of its handling of
337 a request for a thread's local storage address. */
339 ps_err_e
340 ps_get_thread_area (const struct ps_prochandle *ph,
341 lwpid_t lwpid, int idx, void **base)
343 if (gdbarch_ptr_bit (current_gdbarch) == 32)
345 /* The full structure is found in <asm-i386/ldt.h>. The second
346 integer is the LDT's base_address and that is used to locate
347 the thread's local storage. See i386-linux-nat.c more
348 info. */
349 unsigned int desc[4];
351 /* This code assumes that "int" is 32 bits and that
352 GET_THREAD_AREA returns no more than 4 int values. */
353 gdb_assert (sizeof (int) == 4);
354 #ifndef PTRACE_GET_THREAD_AREA
355 #define PTRACE_GET_THREAD_AREA 25
356 #endif
357 if (ptrace (PTRACE_GET_THREAD_AREA,
358 lwpid, (void *) (long) idx, (unsigned long) &desc) < 0)
359 return PS_ERR;
361 /* Extend the value to 64 bits. Here it's assumed that a "long"
362 and a "void *" are the same. */
363 (*base) = (void *) (long) desc[1];
364 return PS_OK;
366 else
368 /* This definition comes from prctl.h, but some kernels may not
369 have it. */
370 #ifndef PTRACE_ARCH_PRCTL
371 #define PTRACE_ARCH_PRCTL 30
372 #endif
373 /* FIXME: ezannoni-2003-07-09 see comment above about include
374 file order. We could be getting bogus values for these two. */
375 gdb_assert (FS < ELF_NGREG);
376 gdb_assert (GS < ELF_NGREG);
377 switch (idx)
379 case FS:
380 if (ptrace (PTRACE_ARCH_PRCTL, lwpid, base, ARCH_GET_FS) == 0)
381 return PS_OK;
382 break;
383 case GS:
384 if (ptrace (PTRACE_ARCH_PRCTL, lwpid, base, ARCH_GET_GS) == 0)
385 return PS_OK;
386 break;
387 default: /* Should not happen. */
388 return PS_BADADDR;
391 return PS_ERR; /* ptrace failed. */
395 static void (*super_post_startup_inferior) (ptid_t ptid);
397 static void
398 amd64_linux_child_post_startup_inferior (ptid_t ptid)
400 i386_cleanup_dregs ();
401 super_post_startup_inferior (ptid);
405 /* When GDB is built as a 64-bit application on linux, the
406 PTRACE_GETSIGINFO data is always presented in 64-bit layout. Since
407 debugging a 32-bit inferior with a 64-bit GDB should look the same
408 as debugging it with a 32-bit GDB, we do the 32-bit <-> 64-bit
409 conversion in-place ourselves. */
411 /* These types below (compat_*) define a siginfo type that is layout
412 compatible with the siginfo type exported by the 32-bit userspace
413 support. */
415 typedef int compat_int_t;
416 typedef unsigned int compat_uptr_t;
418 typedef int compat_time_t;
419 typedef int compat_timer_t;
420 typedef int compat_clock_t;
422 struct compat_timeval
424 compat_time_t tv_sec;
425 int tv_usec;
428 typedef union compat_sigval
430 compat_int_t sival_int;
431 compat_uptr_t sival_ptr;
432 } compat_sigval_t;
434 typedef struct compat_siginfo
436 int si_signo;
437 int si_errno;
438 int si_code;
440 union
442 int _pad[((128 / sizeof (int)) - 3)];
444 /* kill() */
445 struct
447 unsigned int _pid;
448 unsigned int _uid;
449 } _kill;
451 /* POSIX.1b timers */
452 struct
454 compat_timer_t _tid;
455 int _overrun;
456 compat_sigval_t _sigval;
457 } _timer;
459 /* POSIX.1b signals */
460 struct
462 unsigned int _pid;
463 unsigned int _uid;
464 compat_sigval_t _sigval;
465 } _rt;
467 /* SIGCHLD */
468 struct
470 unsigned int _pid;
471 unsigned int _uid;
472 int _status;
473 compat_clock_t _utime;
474 compat_clock_t _stime;
475 } _sigchld;
477 /* SIGILL, SIGFPE, SIGSEGV, SIGBUS */
478 struct
480 unsigned int _addr;
481 } _sigfault;
483 /* SIGPOLL */
484 struct
486 int _band;
487 int _fd;
488 } _sigpoll;
489 } _sifields;
490 } compat_siginfo_t;
492 #define cpt_si_pid _sifields._kill._pid
493 #define cpt_si_uid _sifields._kill._uid
494 #define cpt_si_timerid _sifields._timer._tid
495 #define cpt_si_overrun _sifields._timer._overrun
496 #define cpt_si_status _sifields._sigchld._status
497 #define cpt_si_utime _sifields._sigchld._utime
498 #define cpt_si_stime _sifields._sigchld._stime
499 #define cpt_si_ptr _sifields._rt._sigval.sival_ptr
500 #define cpt_si_addr _sifields._sigfault._addr
501 #define cpt_si_band _sifields._sigpoll._band
502 #define cpt_si_fd _sifields._sigpoll._fd
504 static void
505 compat_siginfo_from_siginfo (compat_siginfo_t *to, siginfo_t *from)
507 memset (to, 0, sizeof (*to));
509 to->si_signo = from->si_signo;
510 to->si_errno = from->si_errno;
511 to->si_code = from->si_code;
513 if (to->si_code < 0)
515 to->cpt_si_ptr = (intptr_t) from->si_ptr;
517 else if (to->si_code == SI_USER)
519 to->cpt_si_pid = from->si_pid;
520 to->cpt_si_uid = from->si_uid;
522 else if (to->si_code == SI_TIMER)
524 to->cpt_si_timerid = from->si_timerid;
525 to->cpt_si_overrun = from->si_overrun;
526 to->cpt_si_ptr = (intptr_t) from->si_ptr;
528 else
530 switch (to->si_signo)
532 case SIGCHLD:
533 to->cpt_si_pid = from->si_pid;
534 to->cpt_si_uid = from->si_uid;
535 to->cpt_si_status = from->si_status;
536 to->cpt_si_utime = from->si_utime;
537 to->cpt_si_stime = from->si_stime;
538 break;
539 case SIGILL:
540 case SIGFPE:
541 case SIGSEGV:
542 case SIGBUS:
543 to->cpt_si_addr = (intptr_t) from->si_addr;
544 break;
545 case SIGPOLL:
546 to->cpt_si_band = from->si_band;
547 to->cpt_si_fd = from->si_fd;
548 break;
549 default:
550 to->cpt_si_pid = from->si_pid;
551 to->cpt_si_uid = from->si_uid;
552 to->cpt_si_ptr = (intptr_t) from->si_ptr;
553 break;
558 static void
559 siginfo_from_compat_siginfo (siginfo_t *to, compat_siginfo_t *from)
561 memset (to, 0, sizeof (*to));
563 to->si_signo = from->si_signo;
564 to->si_errno = from->si_errno;
565 to->si_code = from->si_code;
567 if (to->si_code < 0)
569 to->si_ptr = (void *) (intptr_t) from->cpt_si_ptr;
571 else if (to->si_code == SI_USER)
573 to->si_pid = from->cpt_si_pid;
574 to->si_uid = from->cpt_si_uid;
576 else if (to->si_code == SI_TIMER)
578 to->si_timerid = from->cpt_si_timerid;
579 to->si_overrun = from->cpt_si_overrun;
580 to->si_ptr = (void *) (intptr_t) from->cpt_si_ptr;
582 else
584 switch (to->si_signo)
586 case SIGCHLD:
587 to->si_pid = from->cpt_si_pid;
588 to->si_uid = from->cpt_si_uid;
589 to->si_status = from->cpt_si_status;
590 to->si_utime = from->cpt_si_utime;
591 to->si_stime = from->cpt_si_stime;
592 break;
593 case SIGILL:
594 case SIGFPE:
595 case SIGSEGV:
596 case SIGBUS:
597 to->si_addr = (void *) (intptr_t) from->cpt_si_addr;
598 break;
599 case SIGPOLL:
600 to->si_band = from->cpt_si_band;
601 to->si_fd = from->cpt_si_fd;
602 break;
603 default:
604 to->si_pid = from->cpt_si_pid;
605 to->si_uid = from->cpt_si_uid;
606 to->si_ptr = (void* ) (intptr_t) from->cpt_si_ptr;
607 break;
612 /* Convert a native/host siginfo object, into/from the siginfo in the
613 layout of the inferiors' architecture. Returns true if any
614 conversion was done; false otherwise. If DIRECTION is 1, then copy
615 from INF to NATIVE. If DIRECTION is 0, copy from NATIVE to
616 INF. */
618 static int
619 amd64_linux_siginfo_fixup (struct siginfo *native, gdb_byte *inf, int direction)
621 /* Is the inferior 32-bit? If so, then do fixup the siginfo
622 object. */
623 if (gdbarch_addr_bit (get_frame_arch (get_current_frame ())) == 32)
625 gdb_assert (sizeof (struct siginfo) == sizeof (compat_siginfo_t));
627 if (direction == 0)
628 compat_siginfo_from_siginfo ((struct compat_siginfo *) inf, native);
629 else
630 siginfo_from_compat_siginfo (native, (struct compat_siginfo *) inf);
632 return 1;
634 else
635 return 0;
638 /* Provide a prototype to silence -Wmissing-prototypes. */
639 void _initialize_amd64_linux_nat (void);
641 void
642 _initialize_amd64_linux_nat (void)
644 struct target_ops *t;
646 amd64_native_gregset32_reg_offset = amd64_linux_gregset32_reg_offset;
647 amd64_native_gregset32_num_regs = I386_LINUX_NUM_REGS;
648 amd64_native_gregset64_reg_offset = amd64_linux_gregset64_reg_offset;
649 amd64_native_gregset64_num_regs = AMD64_LINUX_NUM_REGS;
651 gdb_assert (ARRAY_SIZE (amd64_linux_gregset32_reg_offset)
652 == amd64_native_gregset32_num_regs);
653 gdb_assert (ARRAY_SIZE (amd64_linux_gregset64_reg_offset)
654 == amd64_native_gregset64_num_regs);
656 /* Fill in the generic GNU/Linux methods. */
657 t = linux_target ();
659 i386_use_watchpoints (t);
661 /* Override the GNU/Linux inferior startup hook. */
662 super_post_startup_inferior = t->to_post_startup_inferior;
663 t->to_post_startup_inferior = amd64_linux_child_post_startup_inferior;
665 /* Add our register access methods. */
666 t->to_fetch_registers = amd64_linux_fetch_inferior_registers;
667 t->to_store_registers = amd64_linux_store_inferior_registers;
669 /* Register the target. */
670 linux_nat_add_target (t);
671 linux_nat_set_new_thread (t, amd64_linux_new_thread);
672 linux_nat_set_siginfo_fixup (t, amd64_linux_siginfo_fixup);