Commit | Line | Data |
---|---|---|
a4b6fc86 | 1 | /* Native-dependent code for GNU/Linux x86-64. |
0a65a603 | 2 | |
7b6bb8da JB |
3 | Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, |
4 | 2011 Free Software Foundation, Inc. | |
53e95fcf JS |
5 | Contributed by Jiri Smid, SuSE Labs. |
6 | ||
7 | This file is part of GDB. | |
8 | ||
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 | |
a9762ec7 | 11 | the Free Software Foundation; either version 3 of the License, or |
53e95fcf JS |
12 | (at your option) any later version. |
13 | ||
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. | |
18 | ||
19 | You should have received a copy of the GNU General Public License | |
a9762ec7 | 20 | along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
53e95fcf JS |
21 | |
22 | #include "defs.h" | |
23 | #include "inferior.h" | |
24 | #include "gdbcore.h" | |
25 | #include "regcache.h" | |
a055a187 | 26 | #include "regset.h" |
4056d258 | 27 | #include "linux-nat.h" |
8695c747 | 28 | #include "amd64-linux-tdep.h" |
c4f35dd8 | 29 | |
53e95fcf | 30 | #include "gdb_assert.h" |
30d52491 | 31 | #include "gdb_string.h" |
a055a187 L |
32 | #include "elf/common.h" |
33 | #include <sys/uio.h> | |
53e95fcf JS |
34 | #include <sys/ptrace.h> |
35 | #include <sys/debugreg.h> | |
36 | #include <sys/syscall.h> | |
37 | #include <sys/procfs.h> | |
c43af07c EZ |
38 | #include <asm/prctl.h> |
39 | /* FIXME ezannoni-2003-07-09: we need <sys/reg.h> to be included after | |
40 | <asm/ptrace.h> because the latter redefines FS and GS for no apparent | |
41 | reason, and those definitions don't match the ones that libpthread_db | |
42 | uses, which come from <sys/reg.h>. */ | |
0963b4bd | 43 | /* ezannoni-2003-07-09: I think this is fixed. The extraneous defs have |
c43af07c EZ |
44 | been removed from ptrace.h in the kernel. However, better safe than |
45 | sorry. */ | |
46 | #include <asm/ptrace.h> | |
33a0a2ac | 47 | #include <sys/reg.h> |
c43af07c | 48 | #include "gdb_proc_service.h" |
33a0a2ac | 49 | |
c4f35dd8 MK |
50 | /* Prototypes for supply_gregset etc. */ |
51 | #include "gregset.h" | |
52 | ||
9c1488cb | 53 | #include "amd64-tdep.h" |
60fac5b8 MK |
54 | #include "i386-linux-tdep.h" |
55 | #include "amd64-nat.h" | |
9bb9e8ad | 56 | #include "i386-nat.h" |
a055a187 L |
57 | #include "i386-xstate.h" |
58 | ||
59 | #ifndef PTRACE_GETREGSET | |
60 | #define PTRACE_GETREGSET 0x4204 | |
61 | #endif | |
62 | ||
63 | #ifndef PTRACE_SETREGSET | |
64 | #define PTRACE_SETREGSET 0x4205 | |
65 | #endif | |
66 | ||
7b50312a PA |
67 | /* Per-thread arch-specific data we want to keep. */ |
68 | ||
69 | struct arch_lwp_info | |
70 | { | |
71 | /* Non-zero if our copy differs from what's recorded in the thread. */ | |
72 | int debug_registers_changed; | |
73 | }; | |
74 | ||
a055a187 L |
75 | /* Does the current host support PTRACE_GETREGSET? */ |
76 | static int have_ptrace_getregset = -1; | |
60fac5b8 | 77 | |
60fac5b8 MK |
78 | /* Mapping between the general-purpose registers in GNU/Linux x86-64 |
79 | `struct user' format and GDB's register cache layout for GNU/Linux | |
80 | i386. | |
81 | ||
82 | Note that most GNU/Linux x86-64 registers are 64-bit, while the | |
83 | GNU/Linux i386 registers are all 32-bit, but since we're | |
84 | little-endian we get away with that. */ | |
85 | ||
86 | /* From <sys/reg.h> on GNU/Linux i386. */ | |
430eaf2e | 87 | static int amd64_linux_gregset32_reg_offset[] = |
60fac5b8 | 88 | { |
f5859b4d MK |
89 | RAX * 8, RCX * 8, /* %eax, %ecx */ |
90 | RDX * 8, RBX * 8, /* %edx, %ebx */ | |
91 | RSP * 8, RBP * 8, /* %esp, %ebp */ | |
92 | RSI * 8, RDI * 8, /* %esi, %edi */ | |
93 | RIP * 8, EFLAGS * 8, /* %eip, %eflags */ | |
94 | CS * 8, SS * 8, /* %cs, %ss */ | |
95 | DS * 8, ES * 8, /* %ds, %es */ | |
96 | FS * 8, GS * 8, /* %fs, %gs */ | |
60fac5b8 MK |
97 | -1, -1, -1, -1, -1, -1, -1, -1, |
98 | -1, -1, -1, -1, -1, -1, -1, -1, | |
99 | -1, -1, -1, -1, -1, -1, -1, -1, -1, | |
a055a187 | 100 | -1, -1, -1, -1, -1, -1, -1, -1, |
f5859b4d | 101 | ORIG_RAX * 8 /* "orig_eax" */ |
60fac5b8 | 102 | }; |
53e95fcf JS |
103 | \f |
104 | ||
105 | /* Transfering the general-purpose registers between GDB, inferiors | |
106 | and core files. */ | |
107 | ||
60fac5b8 | 108 | /* Fill GDB's register cache with the general-purpose register values |
53e95fcf JS |
109 | in *GREGSETP. */ |
110 | ||
111 | void | |
7f7fe91e | 112 | supply_gregset (struct regcache *regcache, const elf_gregset_t *gregsetp) |
53e95fcf | 113 | { |
7f7fe91e | 114 | amd64_supply_native_gregset (regcache, gregsetp, -1); |
53e95fcf JS |
115 | } |
116 | ||
60fac5b8 MK |
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, | |
53e95fcf JS |
119 | do this for all registers. */ |
120 | ||
121 | void | |
7f7fe91e UW |
122 | fill_gregset (const struct regcache *regcache, |
123 | elf_gregset_t *gregsetp, int regnum) | |
53e95fcf | 124 | { |
7f7fe91e | 125 | amd64_collect_native_gregset (regcache, gregsetp, regnum); |
53e95fcf JS |
126 | } |
127 | ||
53e95fcf JS |
128 | /* Transfering floating-point registers between GDB, inferiors and cores. */ |
129 | ||
60fac5b8 | 130 | /* Fill GDB's register cache with the floating-point and SSE register |
c4f35dd8 | 131 | values in *FPREGSETP. */ |
53e95fcf JS |
132 | |
133 | void | |
7f7fe91e | 134 | supply_fpregset (struct regcache *regcache, const elf_fpregset_t *fpregsetp) |
53e95fcf | 135 | { |
7f7fe91e | 136 | amd64_supply_fxsave (regcache, -1, fpregsetp); |
53e95fcf JS |
137 | } |
138 | ||
8dda9770 | 139 | /* Fill register REGNUM (if it is a floating-point or SSE register) in |
60fac5b8 | 140 | *FPREGSETP with the value in GDB's register cache. If REGNUM is |
c4f35dd8 | 141 | -1, do this for all registers. */ |
53e95fcf JS |
142 | |
143 | void | |
7f7fe91e UW |
144 | fill_fpregset (const struct regcache *regcache, |
145 | elf_fpregset_t *fpregsetp, int regnum) | |
53e95fcf | 146 | { |
7f7fe91e | 147 | amd64_collect_fxsave (regcache, regnum, fpregsetp); |
53e95fcf | 148 | } |
53e95fcf JS |
149 | \f |
150 | ||
151 | /* Transferring arbitrary registers between GDB and inferior. */ | |
152 | ||
60fac5b8 | 153 | /* Fetch register REGNUM from the child process. If REGNUM is -1, do |
53e95fcf JS |
154 | this for all registers (including the floating point and SSE |
155 | registers). */ | |
156 | ||
10d6c8cd | 157 | static void |
28439f5e PA |
158 | amd64_linux_fetch_inferior_registers (struct target_ops *ops, |
159 | struct regcache *regcache, int regnum) | |
53e95fcf | 160 | { |
f8028488 | 161 | struct gdbarch *gdbarch = get_regcache_arch (regcache); |
53e95fcf JS |
162 | int tid; |
163 | ||
a4b6fc86 | 164 | /* GNU/Linux LWP ID's are process ID's. */ |
c4f35dd8 MK |
165 | tid = TIDGET (inferior_ptid); |
166 | if (tid == 0) | |
167 | tid = PIDGET (inferior_ptid); /* Not a threaded program. */ | |
53e95fcf | 168 | |
f8028488 | 169 | if (regnum == -1 || amd64_native_gregset_supplies_p (gdbarch, regnum)) |
53e95fcf | 170 | { |
99679982 MK |
171 | elf_gregset_t regs; |
172 | ||
173 | if (ptrace (PTRACE_GETREGS, tid, 0, (long) ®s) < 0) | |
edefbb7c | 174 | perror_with_name (_("Couldn't get registers")); |
99679982 | 175 | |
56be3814 | 176 | amd64_supply_native_gregset (regcache, ®s, -1); |
60fac5b8 MK |
177 | if (regnum != -1) |
178 | return; | |
53e95fcf JS |
179 | } |
180 | ||
f8028488 | 181 | if (regnum == -1 || !amd64_native_gregset_supplies_p (gdbarch, regnum)) |
53e95fcf | 182 | { |
99679982 | 183 | elf_fpregset_t fpregs; |
53e95fcf | 184 | |
a055a187 L |
185 | if (have_ptrace_getregset) |
186 | { | |
187 | char xstateregs[I386_XSTATE_MAX_SIZE]; | |
188 | struct iovec iov; | |
189 | ||
190 | iov.iov_base = xstateregs; | |
191 | iov.iov_len = sizeof (xstateregs); | |
192 | if (ptrace (PTRACE_GETREGSET, tid, | |
193 | (unsigned int) NT_X86_XSTATE, (long) &iov) < 0) | |
194 | perror_with_name (_("Couldn't get extended state status")); | |
99679982 | 195 | |
a055a187 L |
196 | amd64_supply_xsave (regcache, -1, xstateregs); |
197 | } | |
198 | else | |
199 | { | |
200 | if (ptrace (PTRACE_GETFPREGS, tid, 0, (long) &fpregs) < 0) | |
201 | perror_with_name (_("Couldn't get floating point status")); | |
202 | ||
203 | amd64_supply_fxsave (regcache, -1, &fpregs); | |
204 | } | |
99679982 | 205 | } |
53e95fcf JS |
206 | } |
207 | ||
60fac5b8 MK |
208 | /* Store register REGNUM back into the child process. If REGNUM is |
209 | -1, do this for all registers (including the floating-point and SSE | |
53e95fcf | 210 | registers). */ |
c4f35dd8 | 211 | |
10d6c8cd | 212 | static void |
28439f5e PA |
213 | amd64_linux_store_inferior_registers (struct target_ops *ops, |
214 | struct regcache *regcache, int regnum) | |
53e95fcf | 215 | { |
f8028488 | 216 | struct gdbarch *gdbarch = get_regcache_arch (regcache); |
53e95fcf JS |
217 | int tid; |
218 | ||
a4b6fc86 | 219 | /* GNU/Linux LWP ID's are process ID's. */ |
c4f35dd8 MK |
220 | tid = TIDGET (inferior_ptid); |
221 | if (tid == 0) | |
222 | tid = PIDGET (inferior_ptid); /* Not a threaded program. */ | |
53e95fcf | 223 | |
f8028488 | 224 | if (regnum == -1 || amd64_native_gregset_supplies_p (gdbarch, regnum)) |
53e95fcf | 225 | { |
99679982 MK |
226 | elf_gregset_t regs; |
227 | ||
228 | if (ptrace (PTRACE_GETREGS, tid, 0, (long) ®s) < 0) | |
edefbb7c | 229 | perror_with_name (_("Couldn't get registers")); |
99679982 | 230 | |
56be3814 | 231 | amd64_collect_native_gregset (regcache, ®s, regnum); |
99679982 MK |
232 | |
233 | if (ptrace (PTRACE_SETREGS, tid, 0, (long) ®s) < 0) | |
edefbb7c | 234 | perror_with_name (_("Couldn't write registers")); |
99679982 | 235 | |
60fac5b8 MK |
236 | if (regnum != -1) |
237 | return; | |
53e95fcf JS |
238 | } |
239 | ||
f8028488 | 240 | if (regnum == -1 || !amd64_native_gregset_supplies_p (gdbarch, regnum)) |
53e95fcf | 241 | { |
99679982 MK |
242 | elf_fpregset_t fpregs; |
243 | ||
a055a187 L |
244 | if (have_ptrace_getregset) |
245 | { | |
246 | char xstateregs[I386_XSTATE_MAX_SIZE]; | |
247 | struct iovec iov; | |
248 | ||
249 | iov.iov_base = xstateregs; | |
250 | iov.iov_len = sizeof (xstateregs); | |
251 | if (ptrace (PTRACE_GETREGSET, tid, | |
252 | (unsigned int) NT_X86_XSTATE, (long) &iov) < 0) | |
253 | perror_with_name (_("Couldn't get extended state status")); | |
99679982 | 254 | |
a055a187 L |
255 | amd64_collect_xsave (regcache, regnum, xstateregs, 0); |
256 | ||
257 | if (ptrace (PTRACE_SETREGSET, tid, | |
258 | (unsigned int) NT_X86_XSTATE, (long) &iov) < 0) | |
259 | perror_with_name (_("Couldn't write extended state status")); | |
260 | } | |
261 | else | |
262 | { | |
263 | if (ptrace (PTRACE_GETFPREGS, tid, 0, (long) &fpregs) < 0) | |
264 | perror_with_name (_("Couldn't get floating point status")); | |
99679982 | 265 | |
a055a187 | 266 | amd64_collect_fxsave (regcache, regnum, &fpregs); |
99679982 | 267 | |
a055a187 L |
268 | if (ptrace (PTRACE_SETFPREGS, tid, 0, (long) &fpregs) < 0) |
269 | perror_with_name (_("Couldn't write floating point status")); | |
270 | } | |
53e95fcf | 271 | } |
53e95fcf JS |
272 | } |
273 | \f | |
9f0bdab8 DJ |
274 | /* Support for debug registers. */ |
275 | ||
c4f35dd8 | 276 | static unsigned long |
9f0bdab8 | 277 | amd64_linux_dr_get (ptid_t ptid, int regnum) |
c4f35dd8 MK |
278 | { |
279 | int tid; | |
280 | unsigned long value; | |
53e95fcf | 281 | |
9f0bdab8 DJ |
282 | tid = TIDGET (ptid); |
283 | if (tid == 0) | |
284 | tid = PIDGET (ptid); | |
53e95fcf | 285 | |
c4f35dd8 | 286 | errno = 0; |
9f0bdab8 | 287 | value = ptrace (PTRACE_PEEKUSER, tid, |
c4f35dd8 MK |
288 | offsetof (struct user, u_debugreg[regnum]), 0); |
289 | if (errno != 0) | |
edefbb7c | 290 | perror_with_name (_("Couldn't read debug register")); |
53e95fcf | 291 | |
c4f35dd8 MK |
292 | return value; |
293 | } | |
53e95fcf | 294 | |
a79d3c27 JK |
295 | /* Set debug register REGNUM to VALUE in only the one LWP of PTID. */ |
296 | ||
53e95fcf | 297 | static void |
9f0bdab8 | 298 | amd64_linux_dr_set (ptid_t ptid, int regnum, unsigned long value) |
53e95fcf | 299 | { |
c4f35dd8 | 300 | int tid; |
53e95fcf | 301 | |
9f0bdab8 DJ |
302 | tid = TIDGET (ptid); |
303 | if (tid == 0) | |
304 | tid = PIDGET (ptid); | |
53e95fcf | 305 | |
c4f35dd8 | 306 | errno = 0; |
9f0bdab8 DJ |
307 | ptrace (PTRACE_POKEUSER, tid, |
308 | offsetof (struct user, u_debugreg[regnum]), value); | |
c4f35dd8 | 309 | if (errno != 0) |
edefbb7c | 310 | perror_with_name (_("Couldn't write debug register")); |
c4f35dd8 | 311 | } |
53e95fcf | 312 | |
7b50312a | 313 | /* Return the inferior's debug register REGNUM. */ |
a79d3c27 | 314 | |
7b50312a PA |
315 | static CORE_ADDR |
316 | amd64_linux_dr_get_addr (int regnum) | |
c4f35dd8 | 317 | { |
7b50312a PA |
318 | /* DR6 and DR7 are retrieved with some other way. */ |
319 | gdb_assert (DR_FIRSTADDR <= regnum && regnum <= DR_LASTADDR); | |
9f0bdab8 | 320 | |
7b50312a | 321 | return amd64_linux_dr_get (inferior_ptid, regnum); |
c4f35dd8 | 322 | } |
53e95fcf | 323 | |
7b50312a | 324 | /* Return the inferior's DR7 debug control register. */ |
a79d3c27 | 325 | |
7b50312a PA |
326 | static unsigned long |
327 | amd64_linux_dr_get_control (void) | |
b7c4cbf8 | 328 | { |
7b50312a PA |
329 | return amd64_linux_dr_get (inferior_ptid, DR_CONTROL); |
330 | } | |
9f0bdab8 | 331 | |
7b50312a PA |
332 | /* Get DR_STATUS from only the one LWP of INFERIOR_PTID. */ |
333 | ||
334 | static unsigned long | |
335 | amd64_linux_dr_get_status (void) | |
336 | { | |
337 | return amd64_linux_dr_get (inferior_ptid, DR_STATUS); | |
338 | } | |
339 | ||
340 | /* Callback for iterate_over_lwps. Update the debug registers of | |
341 | LWP. */ | |
342 | ||
343 | static int | |
344 | update_debug_registers_callback (struct lwp_info *lwp, void *arg) | |
345 | { | |
6e012a6c PA |
346 | if (lwp->arch_private == NULL) |
347 | lwp->arch_private = XCNEW (struct arch_lwp_info); | |
348 | ||
7b50312a PA |
349 | /* The actual update is done later just before resuming the lwp, we |
350 | just mark that the registers need updating. */ | |
351 | lwp->arch_private->debug_registers_changed = 1; | |
352 | ||
353 | /* If the lwp isn't stopped, force it to momentarily pause, so we | |
354 | can update its debug registers. */ | |
355 | if (!lwp->stopped) | |
356 | linux_stop_lwp (lwp); | |
c4f35dd8 | 357 | |
7b50312a | 358 | return 0; |
b7c4cbf8 AJ |
359 | } |
360 | ||
7b50312a | 361 | /* Set DR_CONTROL to CONTROL in all LWPs of the current inferior. */ |
a79d3c27 | 362 | |
9bb9e8ad | 363 | static void |
7b50312a | 364 | amd64_linux_dr_set_control (unsigned long control) |
53e95fcf | 365 | { |
7b50312a PA |
366 | ptid_t pid_ptid = pid_to_ptid (ptid_get_pid (inferior_ptid)); |
367 | ||
368 | iterate_over_lwps (pid_ptid, update_debug_registers_callback, NULL); | |
53e95fcf | 369 | } |
8cfda98c | 370 | |
7b50312a PA |
371 | /* Set address REGNUM (zero based) to ADDR in all LWPs of the current |
372 | inferior. */ | |
a79d3c27 | 373 | |
7b50312a PA |
374 | static void |
375 | amd64_linux_dr_set_addr (int regnum, CORE_ADDR addr) | |
8cfda98c | 376 | { |
7b50312a PA |
377 | ptid_t pid_ptid = pid_to_ptid (ptid_get_pid (inferior_ptid)); |
378 | ||
379 | gdb_assert (regnum >= 0 && regnum <= DR_LASTADDR - DR_FIRSTADDR); | |
380 | ||
381 | iterate_over_lwps (pid_ptid, update_debug_registers_callback, NULL); | |
9f0bdab8 DJ |
382 | } |
383 | ||
7b50312a PA |
384 | /* Called when resuming a thread. |
385 | If the debug regs have changed, update the thread's copies. */ | |
a79d3c27 JK |
386 | |
387 | static void | |
7b50312a | 388 | amd64_linux_prepare_to_resume (struct lwp_info *lwp) |
a79d3c27 | 389 | { |
7b50312a | 390 | int clear_status = 0; |
a79d3c27 | 391 | |
6e012a6c PA |
392 | /* NULL means this is the main thread still going through the shell, |
393 | or, no watchpoint has been set yet. In that case, there's | |
394 | nothing to do. */ | |
395 | if (lwp->arch_private == NULL) | |
396 | return; | |
397 | ||
7b50312a | 398 | if (lwp->arch_private->debug_registers_changed) |
a79d3c27 | 399 | { |
7b50312a PA |
400 | struct i386_debug_reg_state *state = i386_debug_reg_state (); |
401 | int i; | |
402 | ||
403 | for (i = DR_FIRSTADDR; i <= DR_LASTADDR; i++) | |
404 | if (state->dr_ref_count[i] > 0) | |
405 | { | |
406 | amd64_linux_dr_set (lwp->ptid, i, state->dr_mirror[i]); | |
407 | ||
408 | /* If we're setting a watchpoint, any change the inferior | |
409 | had done itself to the debug registers needs to be | |
410 | discarded, otherwise, i386_stopped_data_address can get | |
411 | confused. */ | |
412 | clear_status = 1; | |
413 | } | |
414 | ||
415 | amd64_linux_dr_set (lwp->ptid, DR_CONTROL, state->dr_control_mirror); | |
416 | ||
417 | lwp->arch_private->debug_registers_changed = 0; | |
a79d3c27 | 418 | } |
a79d3c27 | 419 | |
7b50312a PA |
420 | if (clear_status || lwp->stopped_by_watchpoint) |
421 | amd64_linux_dr_set (lwp->ptid, DR_STATUS, 0); | |
422 | } | |
a79d3c27 | 423 | |
9f0bdab8 | 424 | static void |
7b50312a | 425 | amd64_linux_new_thread (struct lwp_info *lp) |
9f0bdab8 | 426 | { |
7b50312a | 427 | struct arch_lwp_info *info = XCNEW (struct arch_lwp_info); |
9f0bdab8 | 428 | |
7b50312a | 429 | info->debug_registers_changed = 1; |
9f0bdab8 | 430 | |
7b50312a | 431 | lp->arch_private = info; |
8cfda98c | 432 | } |
5bca7895 | 433 | \f |
c43af07c | 434 | |
50d71875 AC |
435 | /* This function is called by libthread_db as part of its handling of |
436 | a request for a thread's local storage address. */ | |
437 | ||
5bca7895 | 438 | ps_err_e |
c43af07c EZ |
439 | ps_get_thread_area (const struct ps_prochandle *ph, |
440 | lwpid_t lwpid, int idx, void **base) | |
441 | { | |
a97b0ac8 | 442 | if (gdbarch_ptr_bit (target_gdbarch) == 32) |
50d71875 AC |
443 | { |
444 | /* The full structure is found in <asm-i386/ldt.h>. The second | |
445 | integer is the LDT's base_address and that is used to locate | |
446 | the thread's local storage. See i386-linux-nat.c more | |
447 | info. */ | |
448 | unsigned int desc[4]; | |
449 | ||
450 | /* This code assumes that "int" is 32 bits and that | |
451 | GET_THREAD_AREA returns no more than 4 int values. */ | |
452 | gdb_assert (sizeof (int) == 4); | |
453 | #ifndef PTRACE_GET_THREAD_AREA | |
454 | #define PTRACE_GET_THREAD_AREA 25 | |
455 | #endif | |
456 | if (ptrace (PTRACE_GET_THREAD_AREA, | |
457 | lwpid, (void *) (long) idx, (unsigned long) &desc) < 0) | |
458 | return PS_ERR; | |
459 | ||
460 | /* Extend the value to 64 bits. Here it's assumed that a "long" | |
461 | and a "void *" are the same. */ | |
462 | (*base) = (void *) (long) desc[1]; | |
463 | return PS_OK; | |
464 | } | |
465 | else | |
466 | { | |
467 | /* This definition comes from prctl.h, but some kernels may not | |
468 | have it. */ | |
c43af07c EZ |
469 | #ifndef PTRACE_ARCH_PRCTL |
470 | #define PTRACE_ARCH_PRCTL 30 | |
471 | #endif | |
50d71875 AC |
472 | /* FIXME: ezannoni-2003-07-09 see comment above about include |
473 | file order. We could be getting bogus values for these two. */ | |
474 | gdb_assert (FS < ELF_NGREG); | |
475 | gdb_assert (GS < ELF_NGREG); | |
476 | switch (idx) | |
477 | { | |
478 | case FS: | |
479 | if (ptrace (PTRACE_ARCH_PRCTL, lwpid, base, ARCH_GET_FS) == 0) | |
480 | return PS_OK; | |
481 | break; | |
482 | case GS: | |
483 | if (ptrace (PTRACE_ARCH_PRCTL, lwpid, base, ARCH_GET_GS) == 0) | |
484 | return PS_OK; | |
485 | break; | |
486 | default: /* Should not happen. */ | |
487 | return PS_BADADDR; | |
488 | } | |
c43af07c | 489 | } |
b6d42148 | 490 | return PS_ERR; /* ptrace failed. */ |
c43af07c | 491 | } |
5bca7895 | 492 | \f |
c43af07c | 493 | |
10d6c8cd DJ |
494 | static void (*super_post_startup_inferior) (ptid_t ptid); |
495 | ||
496 | static void | |
497 | amd64_linux_child_post_startup_inferior (ptid_t ptid) | |
4056d258 ML |
498 | { |
499 | i386_cleanup_dregs (); | |
10d6c8cd | 500 | super_post_startup_inferior (ptid); |
4056d258 | 501 | } |
60fac5b8 MK |
502 | \f |
503 | ||
5b009018 PA |
504 | /* When GDB is built as a 64-bit application on linux, the |
505 | PTRACE_GETSIGINFO data is always presented in 64-bit layout. Since | |
506 | debugging a 32-bit inferior with a 64-bit GDB should look the same | |
507 | as debugging it with a 32-bit GDB, we do the 32-bit <-> 64-bit | |
508 | conversion in-place ourselves. */ | |
509 | ||
510 | /* These types below (compat_*) define a siginfo type that is layout | |
511 | compatible with the siginfo type exported by the 32-bit userspace | |
512 | support. */ | |
513 | ||
514 | typedef int compat_int_t; | |
515 | typedef unsigned int compat_uptr_t; | |
516 | ||
517 | typedef int compat_time_t; | |
518 | typedef int compat_timer_t; | |
519 | typedef int compat_clock_t; | |
520 | ||
521 | struct compat_timeval | |
522 | { | |
523 | compat_time_t tv_sec; | |
524 | int tv_usec; | |
525 | }; | |
526 | ||
527 | typedef union compat_sigval | |
528 | { | |
529 | compat_int_t sival_int; | |
530 | compat_uptr_t sival_ptr; | |
531 | } compat_sigval_t; | |
532 | ||
533 | typedef struct compat_siginfo | |
534 | { | |
535 | int si_signo; | |
536 | int si_errno; | |
537 | int si_code; | |
538 | ||
539 | union | |
540 | { | |
541 | int _pad[((128 / sizeof (int)) - 3)]; | |
542 | ||
543 | /* kill() */ | |
544 | struct | |
545 | { | |
546 | unsigned int _pid; | |
547 | unsigned int _uid; | |
548 | } _kill; | |
549 | ||
550 | /* POSIX.1b timers */ | |
551 | struct | |
552 | { | |
553 | compat_timer_t _tid; | |
554 | int _overrun; | |
555 | compat_sigval_t _sigval; | |
556 | } _timer; | |
557 | ||
558 | /* POSIX.1b signals */ | |
559 | struct | |
560 | { | |
561 | unsigned int _pid; | |
562 | unsigned int _uid; | |
563 | compat_sigval_t _sigval; | |
564 | } _rt; | |
565 | ||
566 | /* SIGCHLD */ | |
567 | struct | |
568 | { | |
569 | unsigned int _pid; | |
570 | unsigned int _uid; | |
571 | int _status; | |
572 | compat_clock_t _utime; | |
573 | compat_clock_t _stime; | |
574 | } _sigchld; | |
575 | ||
576 | /* SIGILL, SIGFPE, SIGSEGV, SIGBUS */ | |
577 | struct | |
578 | { | |
579 | unsigned int _addr; | |
580 | } _sigfault; | |
581 | ||
582 | /* SIGPOLL */ | |
583 | struct | |
584 | { | |
585 | int _band; | |
586 | int _fd; | |
587 | } _sigpoll; | |
588 | } _sifields; | |
589 | } compat_siginfo_t; | |
590 | ||
591 | #define cpt_si_pid _sifields._kill._pid | |
592 | #define cpt_si_uid _sifields._kill._uid | |
593 | #define cpt_si_timerid _sifields._timer._tid | |
594 | #define cpt_si_overrun _sifields._timer._overrun | |
595 | #define cpt_si_status _sifields._sigchld._status | |
596 | #define cpt_si_utime _sifields._sigchld._utime | |
597 | #define cpt_si_stime _sifields._sigchld._stime | |
598 | #define cpt_si_ptr _sifields._rt._sigval.sival_ptr | |
599 | #define cpt_si_addr _sifields._sigfault._addr | |
600 | #define cpt_si_band _sifields._sigpoll._band | |
601 | #define cpt_si_fd _sifields._sigpoll._fd | |
602 | ||
14064aa2 DE |
603 | /* glibc at least up to 2.3.2 doesn't have si_timerid, si_overrun. |
604 | In their place is si_timer1,si_timer2. */ | |
605 | #ifndef si_timerid | |
606 | #define si_timerid si_timer1 | |
607 | #endif | |
608 | #ifndef si_overrun | |
609 | #define si_overrun si_timer2 | |
610 | #endif | |
611 | ||
5b009018 PA |
612 | static void |
613 | compat_siginfo_from_siginfo (compat_siginfo_t *to, siginfo_t *from) | |
614 | { | |
615 | memset (to, 0, sizeof (*to)); | |
616 | ||
617 | to->si_signo = from->si_signo; | |
618 | to->si_errno = from->si_errno; | |
619 | to->si_code = from->si_code; | |
620 | ||
b53a1623 | 621 | if (to->si_code == SI_TIMER) |
5b009018 | 622 | { |
b53a1623 PA |
623 | to->cpt_si_timerid = from->si_timerid; |
624 | to->cpt_si_overrun = from->si_overrun; | |
5b009018 PA |
625 | to->cpt_si_ptr = (intptr_t) from->si_ptr; |
626 | } | |
627 | else if (to->si_code == SI_USER) | |
628 | { | |
629 | to->cpt_si_pid = from->si_pid; | |
630 | to->cpt_si_uid = from->si_uid; | |
631 | } | |
b53a1623 | 632 | else if (to->si_code < 0) |
5b009018 | 633 | { |
b53a1623 PA |
634 | to->cpt_si_pid = from->si_pid; |
635 | to->cpt_si_uid = from->si_uid; | |
5b009018 PA |
636 | to->cpt_si_ptr = (intptr_t) from->si_ptr; |
637 | } | |
638 | else | |
639 | { | |
640 | switch (to->si_signo) | |
641 | { | |
642 | case SIGCHLD: | |
643 | to->cpt_si_pid = from->si_pid; | |
644 | to->cpt_si_uid = from->si_uid; | |
645 | to->cpt_si_status = from->si_status; | |
646 | to->cpt_si_utime = from->si_utime; | |
647 | to->cpt_si_stime = from->si_stime; | |
648 | break; | |
649 | case SIGILL: | |
650 | case SIGFPE: | |
651 | case SIGSEGV: | |
652 | case SIGBUS: | |
653 | to->cpt_si_addr = (intptr_t) from->si_addr; | |
654 | break; | |
655 | case SIGPOLL: | |
656 | to->cpt_si_band = from->si_band; | |
657 | to->cpt_si_fd = from->si_fd; | |
658 | break; | |
659 | default: | |
660 | to->cpt_si_pid = from->si_pid; | |
661 | to->cpt_si_uid = from->si_uid; | |
662 | to->cpt_si_ptr = (intptr_t) from->si_ptr; | |
663 | break; | |
664 | } | |
665 | } | |
666 | } | |
667 | ||
668 | static void | |
669 | siginfo_from_compat_siginfo (siginfo_t *to, compat_siginfo_t *from) | |
670 | { | |
671 | memset (to, 0, sizeof (*to)); | |
672 | ||
673 | to->si_signo = from->si_signo; | |
674 | to->si_errno = from->si_errno; | |
675 | to->si_code = from->si_code; | |
676 | ||
b53a1623 | 677 | if (to->si_code == SI_TIMER) |
5b009018 | 678 | { |
b53a1623 PA |
679 | to->si_timerid = from->cpt_si_timerid; |
680 | to->si_overrun = from->cpt_si_overrun; | |
5b009018 PA |
681 | to->si_ptr = (void *) (intptr_t) from->cpt_si_ptr; |
682 | } | |
683 | else if (to->si_code == SI_USER) | |
684 | { | |
685 | to->si_pid = from->cpt_si_pid; | |
686 | to->si_uid = from->cpt_si_uid; | |
687 | } | |
b53a1623 | 688 | if (to->si_code < 0) |
5b009018 | 689 | { |
b53a1623 PA |
690 | to->si_pid = from->cpt_si_pid; |
691 | to->si_uid = from->cpt_si_uid; | |
5b009018 PA |
692 | to->si_ptr = (void *) (intptr_t) from->cpt_si_ptr; |
693 | } | |
694 | else | |
695 | { | |
696 | switch (to->si_signo) | |
697 | { | |
698 | case SIGCHLD: | |
699 | to->si_pid = from->cpt_si_pid; | |
700 | to->si_uid = from->cpt_si_uid; | |
701 | to->si_status = from->cpt_si_status; | |
702 | to->si_utime = from->cpt_si_utime; | |
703 | to->si_stime = from->cpt_si_stime; | |
704 | break; | |
705 | case SIGILL: | |
706 | case SIGFPE: | |
707 | case SIGSEGV: | |
708 | case SIGBUS: | |
709 | to->si_addr = (void *) (intptr_t) from->cpt_si_addr; | |
710 | break; | |
711 | case SIGPOLL: | |
712 | to->si_band = from->cpt_si_band; | |
713 | to->si_fd = from->cpt_si_fd; | |
714 | break; | |
715 | default: | |
716 | to->si_pid = from->cpt_si_pid; | |
717 | to->si_uid = from->cpt_si_uid; | |
718 | to->si_ptr = (void* ) (intptr_t) from->cpt_si_ptr; | |
719 | break; | |
720 | } | |
721 | } | |
722 | } | |
723 | ||
724 | /* Convert a native/host siginfo object, into/from the siginfo in the | |
725 | layout of the inferiors' architecture. Returns true if any | |
726 | conversion was done; false otherwise. If DIRECTION is 1, then copy | |
727 | from INF to NATIVE. If DIRECTION is 0, copy from NATIVE to | |
728 | INF. */ | |
729 | ||
730 | static int | |
731 | amd64_linux_siginfo_fixup (struct siginfo *native, gdb_byte *inf, int direction) | |
732 | { | |
733 | /* Is the inferior 32-bit? If so, then do fixup the siginfo | |
734 | object. */ | |
735 | if (gdbarch_addr_bit (get_frame_arch (get_current_frame ())) == 32) | |
736 | { | |
737 | gdb_assert (sizeof (struct siginfo) == sizeof (compat_siginfo_t)); | |
738 | ||
739 | if (direction == 0) | |
740 | compat_siginfo_from_siginfo ((struct compat_siginfo *) inf, native); | |
741 | else | |
742 | siginfo_from_compat_siginfo (native, (struct compat_siginfo *) inf); | |
743 | ||
744 | return 1; | |
745 | } | |
746 | else | |
747 | return 0; | |
748 | } | |
749 | ||
90884b2b L |
750 | /* Get Linux/x86 target description from running target. |
751 | ||
752 | Value of CS segment register: | |
753 | 1. 64bit process: 0x33. | |
754 | 2. 32bit process: 0x23. | |
755 | */ | |
756 | ||
757 | #define AMD64_LINUX_USER64_CS 0x33 | |
758 | ||
759 | static const struct target_desc * | |
760 | amd64_linux_read_description (struct target_ops *ops) | |
761 | { | |
762 | unsigned long cs; | |
763 | int tid; | |
a055a187 L |
764 | int is_64bit; |
765 | static uint64_t xcr0; | |
90884b2b L |
766 | |
767 | /* GNU/Linux LWP ID's are process ID's. */ | |
768 | tid = TIDGET (inferior_ptid); | |
769 | if (tid == 0) | |
770 | tid = PIDGET (inferior_ptid); /* Not a threaded program. */ | |
771 | ||
772 | /* Get CS register. */ | |
773 | errno = 0; | |
774 | cs = ptrace (PTRACE_PEEKUSER, tid, | |
775 | offsetof (struct user_regs_struct, cs), 0); | |
776 | if (errno != 0) | |
777 | perror_with_name (_("Couldn't get CS register")); | |
778 | ||
a055a187 L |
779 | is_64bit = cs == AMD64_LINUX_USER64_CS; |
780 | ||
781 | if (have_ptrace_getregset == -1) | |
782 | { | |
783 | uint64_t xstateregs[(I386_XSTATE_SSE_SIZE / sizeof (uint64_t))]; | |
784 | struct iovec iov; | |
785 | ||
786 | iov.iov_base = xstateregs; | |
787 | iov.iov_len = sizeof (xstateregs); | |
788 | ||
789 | /* Check if PTRACE_GETREGSET works. */ | |
790 | if (ptrace (PTRACE_GETREGSET, tid, | |
791 | (unsigned int) NT_X86_XSTATE, (long) &iov) < 0) | |
792 | have_ptrace_getregset = 0; | |
793 | else | |
794 | { | |
795 | have_ptrace_getregset = 1; | |
796 | ||
797 | /* Get XCR0 from XSAVE extended state. */ | |
798 | xcr0 = xstateregs[(I386_LINUX_XSAVE_XCR0_OFFSET | |
799 | / sizeof (uint64_t))]; | |
800 | } | |
801 | } | |
802 | ||
803 | /* Check the native XCR0 only if PTRACE_GETREGSET is available. */ | |
804 | if (have_ptrace_getregset | |
805 | && (xcr0 & I386_XSTATE_AVX_MASK) == I386_XSTATE_AVX_MASK) | |
806 | { | |
807 | if (is_64bit) | |
808 | return tdesc_amd64_avx_linux; | |
809 | else | |
810 | return tdesc_i386_avx_linux; | |
811 | } | |
90884b2b | 812 | else |
a055a187 L |
813 | { |
814 | if (is_64bit) | |
815 | return tdesc_amd64_linux; | |
816 | else | |
817 | return tdesc_i386_linux; | |
818 | } | |
90884b2b L |
819 | } |
820 | ||
60fac5b8 | 821 | /* Provide a prototype to silence -Wmissing-prototypes. */ |
430eaf2e | 822 | void _initialize_amd64_linux_nat (void); |
60fac5b8 MK |
823 | |
824 | void | |
430eaf2e | 825 | _initialize_amd64_linux_nat (void) |
60fac5b8 | 826 | { |
10d6c8cd DJ |
827 | struct target_ops *t; |
828 | ||
430eaf2e | 829 | amd64_native_gregset32_reg_offset = amd64_linux_gregset32_reg_offset; |
60fac5b8 | 830 | amd64_native_gregset32_num_regs = I386_LINUX_NUM_REGS; |
6cd6a2ae | 831 | amd64_native_gregset64_reg_offset = amd64_linux_gregset_reg_offset; |
8695c747 | 832 | amd64_native_gregset64_num_regs = AMD64_LINUX_NUM_REGS; |
60fac5b8 | 833 | |
430eaf2e | 834 | gdb_assert (ARRAY_SIZE (amd64_linux_gregset32_reg_offset) |
60fac5b8 | 835 | == amd64_native_gregset32_num_regs); |
10d6c8cd DJ |
836 | |
837 | /* Fill in the generic GNU/Linux methods. */ | |
838 | t = linux_target (); | |
839 | ||
c03374d5 DJ |
840 | i386_use_watchpoints (t); |
841 | ||
9bb9e8ad PM |
842 | i386_dr_low.set_control = amd64_linux_dr_set_control; |
843 | i386_dr_low.set_addr = amd64_linux_dr_set_addr; | |
7b50312a | 844 | i386_dr_low.get_addr = amd64_linux_dr_get_addr; |
9bb9e8ad | 845 | i386_dr_low.get_status = amd64_linux_dr_get_status; |
7b50312a | 846 | i386_dr_low.get_control = amd64_linux_dr_get_control; |
9bb9e8ad PM |
847 | i386_set_debug_register_length (8); |
848 | ||
10d6c8cd DJ |
849 | /* Override the GNU/Linux inferior startup hook. */ |
850 | super_post_startup_inferior = t->to_post_startup_inferior; | |
851 | t->to_post_startup_inferior = amd64_linux_child_post_startup_inferior; | |
852 | ||
853 | /* Add our register access methods. */ | |
854 | t->to_fetch_registers = amd64_linux_fetch_inferior_registers; | |
855 | t->to_store_registers = amd64_linux_store_inferior_registers; | |
856 | ||
90884b2b L |
857 | t->to_read_description = amd64_linux_read_description; |
858 | ||
10d6c8cd | 859 | /* Register the target. */ |
f973ed9c | 860 | linux_nat_add_target (t); |
9f0bdab8 | 861 | linux_nat_set_new_thread (t, amd64_linux_new_thread); |
5b009018 | 862 | linux_nat_set_siginfo_fixup (t, amd64_linux_siginfo_fixup); |
7b50312a | 863 | linux_nat_set_prepare_to_resume (t, amd64_linux_prepare_to_resume); |
60fac5b8 | 864 | } |