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/>. */
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
43 #include <asm/ptrace.h>
45 #include "gdb_proc_service.h"
47 /* Prototypes for supply_gregset etc. */
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 ... */
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,
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
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
108 /* Fill GDB's register cache with the general-purpose register values
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. */
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. */
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. */
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
158 amd64_linux_fetch_inferior_registers (struct target_ops
*ops
,
159 struct regcache
*regcache
, int regnum
)
161 struct gdbarch
*gdbarch
= get_regcache_arch (regcache
);
164 /* GNU/Linux LWP ID's are process ID's. */
165 tid
= TIDGET (inferior_ptid
);
167 tid
= PIDGET (inferior_ptid
); /* Not a threaded program. */
169 if (regnum
== -1 || amd64_native_gregset_supplies_p (gdbarch
, regnum
))
173 if (ptrace (PTRACE_GETREGS
, tid
, 0, (long) ®s
) < 0)
174 perror_with_name (_("Couldn't get registers"));
176 amd64_supply_native_gregset (regcache
, ®s
, -1);
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
197 amd64_linux_store_inferior_registers (struct target_ops
*ops
,
198 struct regcache
*regcache
, int regnum
)
200 struct gdbarch
*gdbarch
= get_regcache_arch (regcache
);
203 /* GNU/Linux LWP ID's are process ID's. */
204 tid
= TIDGET (inferior_ptid
);
206 tid
= PIDGET (inferior_ptid
); /* Not a threaded program. */
208 if (regnum
== -1 || amd64_native_gregset_supplies_p (gdbarch
, regnum
))
212 if (ptrace (PTRACE_GETREGS
, tid
, 0, (long) ®s
) < 0)
213 perror_with_name (_("Couldn't get registers"));
215 amd64_collect_native_gregset (regcache
, ®s
, regnum
);
217 if (ptrace (PTRACE_SETREGS
, tid
, 0, (long) ®s
) < 0)
218 perror_with_name (_("Couldn't write registers"));
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"));
240 /* Support for debug registers. */
242 static unsigned long amd64_linux_dr
[DR_CONTROL
+ 1];
245 amd64_linux_dr_get (ptid_t ptid
, int regnum
)
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. */
260 value
= ptrace (PTRACE_PEEKUSER
, tid
,
261 offsetof (struct user
, u_debugreg
[regnum
]), 0);
264 perror_with_name (_("Couldn't read debug register"));
273 amd64_linux_dr_set (ptid_t ptid
, int regnum
, unsigned long value
)
282 ptrace (PTRACE_POKEUSER
, tid
,
283 offsetof (struct user
, u_debugreg
[regnum
]), value
);
285 perror_with_name (_("Couldn't write debug register"));
289 amd64_linux_dr_set_control (unsigned long control
)
294 amd64_linux_dr
[DR_CONTROL
] = control
;
296 amd64_linux_dr_set (ptid
, DR_CONTROL
, control
);
300 amd64_linux_dr_set_addr (int regnum
, CORE_ADDR addr
)
305 gdb_assert (regnum
>= 0 && regnum
<= DR_LASTADDR
- DR_FIRSTADDR
);
307 amd64_linux_dr
[DR_FIRSTADDR
+ regnum
] = addr
;
309 amd64_linux_dr_set (ptid
, DR_FIRSTADDR
+ regnum
, addr
);
313 amd64_linux_dr_reset_addr (int regnum
)
315 amd64_linux_dr_set_addr (regnum
, 0);
319 amd64_linux_dr_get_status (void)
321 return amd64_linux_dr_get (inferior_ptid
, DR_STATUS
);
325 amd64_linux_new_thread (ptid_t ptid
)
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. */
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
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
357 if (ptrace (PTRACE_GET_THREAD_AREA
,
358 lwpid
, (void *) (long) idx
, (unsigned long) &desc
) < 0)
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];
368 /* This definition comes from prctl.h, but some kernels may not
370 #ifndef PTRACE_ARCH_PRCTL
371 #define PTRACE_ARCH_PRCTL 30
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
);
380 if (ptrace (PTRACE_ARCH_PRCTL
, lwpid
, base
, ARCH_GET_FS
) == 0)
384 if (ptrace (PTRACE_ARCH_PRCTL
, lwpid
, base
, ARCH_GET_GS
) == 0)
387 default: /* Should not happen. */
391 return PS_ERR
; /* ptrace failed. */
395 static void (*super_post_startup_inferior
) (ptid_t ptid
);
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
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
;
428 typedef union compat_sigval
430 compat_int_t sival_int
;
431 compat_uptr_t sival_ptr
;
434 typedef struct compat_siginfo
442 int _pad
[((128 / sizeof (int)) - 3)];
451 /* POSIX.1b timers */
456 compat_sigval_t _sigval
;
459 /* POSIX.1b signals */
464 compat_sigval_t _sigval
;
473 compat_clock_t _utime
;
474 compat_clock_t _stime
;
477 /* SIGILL, SIGFPE, SIGSEGV, SIGBUS */
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 /* glibc at least up to 2.3.2 doesn't have si_timerid, si_overrun.
505 In their place is si_timer1,si_timer2. */
507 #define si_timerid si_timer1
510 #define si_overrun si_timer2
514 compat_siginfo_from_siginfo (compat_siginfo_t
*to
, siginfo_t
*from
)
516 memset (to
, 0, sizeof (*to
));
518 to
->si_signo
= from
->si_signo
;
519 to
->si_errno
= from
->si_errno
;
520 to
->si_code
= from
->si_code
;
524 to
->cpt_si_ptr
= (intptr_t) from
->si_ptr
;
526 else if (to
->si_code
== SI_USER
)
528 to
->cpt_si_pid
= from
->si_pid
;
529 to
->cpt_si_uid
= from
->si_uid
;
531 else if (to
->si_code
== SI_TIMER
)
533 to
->cpt_si_timerid
= from
->si_timerid
;
534 to
->cpt_si_overrun
= from
->si_overrun
;
535 to
->cpt_si_ptr
= (intptr_t) from
->si_ptr
;
539 switch (to
->si_signo
)
542 to
->cpt_si_pid
= from
->si_pid
;
543 to
->cpt_si_uid
= from
->si_uid
;
544 to
->cpt_si_status
= from
->si_status
;
545 to
->cpt_si_utime
= from
->si_utime
;
546 to
->cpt_si_stime
= from
->si_stime
;
552 to
->cpt_si_addr
= (intptr_t) from
->si_addr
;
555 to
->cpt_si_band
= from
->si_band
;
556 to
->cpt_si_fd
= from
->si_fd
;
559 to
->cpt_si_pid
= from
->si_pid
;
560 to
->cpt_si_uid
= from
->si_uid
;
561 to
->cpt_si_ptr
= (intptr_t) from
->si_ptr
;
568 siginfo_from_compat_siginfo (siginfo_t
*to
, compat_siginfo_t
*from
)
570 memset (to
, 0, sizeof (*to
));
572 to
->si_signo
= from
->si_signo
;
573 to
->si_errno
= from
->si_errno
;
574 to
->si_code
= from
->si_code
;
578 to
->si_ptr
= (void *) (intptr_t) from
->cpt_si_ptr
;
580 else if (to
->si_code
== SI_USER
)
582 to
->si_pid
= from
->cpt_si_pid
;
583 to
->si_uid
= from
->cpt_si_uid
;
585 else if (to
->si_code
== SI_TIMER
)
587 to
->si_timerid
= from
->cpt_si_timerid
;
588 to
->si_overrun
= from
->cpt_si_overrun
;
589 to
->si_ptr
= (void *) (intptr_t) from
->cpt_si_ptr
;
593 switch (to
->si_signo
)
596 to
->si_pid
= from
->cpt_si_pid
;
597 to
->si_uid
= from
->cpt_si_uid
;
598 to
->si_status
= from
->cpt_si_status
;
599 to
->si_utime
= from
->cpt_si_utime
;
600 to
->si_stime
= from
->cpt_si_stime
;
606 to
->si_addr
= (void *) (intptr_t) from
->cpt_si_addr
;
609 to
->si_band
= from
->cpt_si_band
;
610 to
->si_fd
= from
->cpt_si_fd
;
613 to
->si_pid
= from
->cpt_si_pid
;
614 to
->si_uid
= from
->cpt_si_uid
;
615 to
->si_ptr
= (void* ) (intptr_t) from
->cpt_si_ptr
;
621 /* Convert a native/host siginfo object, into/from the siginfo in the
622 layout of the inferiors' architecture. Returns true if any
623 conversion was done; false otherwise. If DIRECTION is 1, then copy
624 from INF to NATIVE. If DIRECTION is 0, copy from NATIVE to
628 amd64_linux_siginfo_fixup (struct siginfo
*native
, gdb_byte
*inf
, int direction
)
630 /* Is the inferior 32-bit? If so, then do fixup the siginfo
632 if (gdbarch_addr_bit (get_frame_arch (get_current_frame ())) == 32)
634 gdb_assert (sizeof (struct siginfo
) == sizeof (compat_siginfo_t
));
637 compat_siginfo_from_siginfo ((struct compat_siginfo
*) inf
, native
);
639 siginfo_from_compat_siginfo (native
, (struct compat_siginfo
*) inf
);
647 /* Provide a prototype to silence -Wmissing-prototypes. */
648 void _initialize_amd64_linux_nat (void);
651 _initialize_amd64_linux_nat (void)
653 struct target_ops
*t
;
655 amd64_native_gregset32_reg_offset
= amd64_linux_gregset32_reg_offset
;
656 amd64_native_gregset32_num_regs
= I386_LINUX_NUM_REGS
;
657 amd64_native_gregset64_reg_offset
= amd64_linux_gregset64_reg_offset
;
658 amd64_native_gregset64_num_regs
= AMD64_LINUX_NUM_REGS
;
660 gdb_assert (ARRAY_SIZE (amd64_linux_gregset32_reg_offset
)
661 == amd64_native_gregset32_num_regs
);
662 gdb_assert (ARRAY_SIZE (amd64_linux_gregset64_reg_offset
)
663 == amd64_native_gregset64_num_regs
);
665 /* Fill in the generic GNU/Linux methods. */
668 i386_use_watchpoints (t
);
670 /* Override the GNU/Linux inferior startup hook. */
671 super_post_startup_inferior
= t
->to_post_startup_inferior
;
672 t
->to_post_startup_inferior
= amd64_linux_child_post_startup_inferior
;
674 /* Add our register access methods. */
675 t
->to_fetch_registers
= amd64_linux_fetch_inferior_registers
;
676 t
->to_store_registers
= amd64_linux_store_inferior_registers
;
678 /* Register the target. */
679 linux_nat_add_target (t
);
680 linux_nat_set_new_thread (t
, amd64_linux_new_thread
);
681 linux_nat_set_siginfo_fixup (t
, amd64_linux_siginfo_fixup
);