]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - gdb/i386-linux-nat.c
* regcache.c (struct regcache): Add ptid_t member.
[thirdparty/binutils-gdb.git] / gdb / i386-linux-nat.c
CommitLineData
a4194092 1/* Native-dependent code for GNU/Linux i386.
a4b6fc86 2
6aba47ca 3 Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
31828840 4 Free Software Foundation, Inc.
d4f3574e 5
04cd15b6 6 This file is part of GDB.
d4f3574e 7
04cd15b6
MK
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
d4f3574e 12
04cd15b6
MK
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
d4f3574e 17
04cd15b6
MK
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
197e01b6
EZ
20 Foundation, Inc., 51 Franklin Street, Fifth Floor,
21 Boston, MA 02110-1301, USA. */
d4f3574e
SS
22
23#include "defs.h"
24#include "inferior.h"
25#include "gdbcore.h"
4e052eda 26#include "regcache.h"
10d6c8cd 27#include "target.h"
4de4c07c 28#include "linux-nat.h"
d4f3574e 29
84346e11 30#include "gdb_assert.h"
309367d4 31#include "gdb_string.h"
d4f3574e
SS
32#include <sys/ptrace.h>
33#include <sys/user.h>
34#include <sys/procfs.h>
35
36#ifdef HAVE_SYS_REG_H
37#include <sys/reg.h>
38#endif
39
ce556f85
MK
40#ifndef ORIG_EAX
41#define ORIG_EAX -1
42#endif
43
84346e11
MK
44#ifdef HAVE_SYS_DEBUGREG_H
45#include <sys/debugreg.h>
46#endif
47
48#ifndef DR_FIRSTADDR
49#define DR_FIRSTADDR 0
50#endif
51
52#ifndef DR_LASTADDR
53#define DR_LASTADDR 3
54#endif
55
56#ifndef DR_STATUS
57#define DR_STATUS 6
58#endif
59
60#ifndef DR_CONTROL
61#define DR_CONTROL 7
62#endif
63
6ce2ac0b 64/* Prototypes for supply_gregset etc. */
c60c0f5f
MS
65#include "gregset.h"
66
e750d25e 67#include "i387-tdep.h"
c3833324 68#include "i386-tdep.h"
5179e78f
AC
69#include "i386-linux-tdep.h"
70
b757528f
JJ
71/* Defines ps_err_e, struct ps_prochandle. */
72#include "gdb_proc_service.h"
6ce2ac0b 73\f
d4f3574e 74
a4b6fc86
AC
75/* The register sets used in GNU/Linux ELF core-dumps are identical to
76 the register sets in `struct user' that is used for a.out
77 core-dumps, and is also used by `ptrace'. The corresponding types
78 are `elf_gregset_t' for the general-purpose registers (with
04cd15b6
MK
79 `elf_greg_t' the type of a single GP register) and `elf_fpregset_t'
80 for the floating-point registers.
81
82 Those types used to be available under the names `gregset_t' and
83 `fpregset_t' too, and this file used those names in the past. But
84 those names are now used for the register sets used in the
85 `mcontext_t' type, and have a different size and layout. */
86
87/* Mapping between the general-purpose registers in `struct user'
88 format and GDB's register array layout. */
d4f3574e
SS
89static int regmap[] =
90{
91 EAX, ECX, EDX, EBX,
92 UESP, EBP, ESI, EDI,
93 EIP, EFL, CS, SS,
ce556f85
MK
94 DS, ES, FS, GS,
95 -1, -1, -1, -1, /* st0, st1, st2, st3 */
96 -1, -1, -1, -1, /* st4, st5, st6, st7 */
97 -1, -1, -1, -1, /* fctrl, fstat, ftag, fiseg */
98 -1, -1, -1, -1, /* fioff, foseg, fooff, fop */
99 -1, -1, -1, -1, /* xmm0, xmm1, xmm2, xmm3 */
100 -1, -1, -1, -1, /* xmm4, xmm5, xmm6, xmm6 */
101 -1, /* mxcsr */
102 ORIG_EAX
d4f3574e
SS
103};
104
5c44784c
JM
105/* Which ptrace request retrieves which registers?
106 These apply to the corresponding SET requests as well. */
e64a344c 107
5c44784c 108#define GETREGS_SUPPLIES(regno) \
3fb1c838 109 ((0 <= (regno) && (regno) <= 15) || (regno) == I386_LINUX_ORIG_EAX_REGNUM)
e64a344c 110
6ce2ac0b 111#define GETFPXREGS_SUPPLIES(regno) \
f6792ef4 112 (I386_ST0_REGNUM <= (regno) && (regno) < I386_SSE_NUM_REGS)
5c44784c 113
f60300e7
MK
114/* Does the current host support the GETREGS request? */
115int have_ptrace_getregs =
116#ifdef HAVE_PTRACE_GETREGS
117 1
118#else
119 0
120#endif
121;
122
6ce2ac0b 123/* Does the current host support the GETFPXREGS request? The header
5c44784c
JM
124 file may or may not define it, and even if it is defined, the
125 kernel will return EIO if it's running on a pre-SSE processor.
126
127 My instinct is to attach this to some architecture- or
128 target-specific data structure, but really, a particular GDB
129 process can only run on top of one kernel at a time. So it's okay
130 for this to be a simple variable. */
6ce2ac0b
MK
131int have_ptrace_getfpxregs =
132#ifdef HAVE_PTRACE_GETFPXREGS
5c44784c
JM
133 1
134#else
135 0
136#endif
137;
f60300e7 138\f
6ce2ac0b 139
ce556f85 140/* Accessing registers through the U area, one at a time. */
f60300e7
MK
141
142/* Fetch one register. */
143
144static void
56be3814 145fetch_register (struct regcache *regcache, int regno)
f60300e7 146{
f60300e7 147 int tid;
ce556f85 148 int val;
f60300e7 149
ce556f85 150 gdb_assert (!have_ptrace_getregs);
de732108 151 if (regmap[regno] == -1)
f60300e7 152 {
56be3814 153 regcache_raw_supply (regcache, regno, NULL);
f60300e7
MK
154 return;
155 }
156
ce556f85 157 /* GNU/Linux LWP ID's are process ID's. */
e64a344c
MK
158 tid = TIDGET (inferior_ptid);
159 if (tid == 0)
160 tid = PIDGET (inferior_ptid); /* Not a threaded program. */
f60300e7 161
ce556f85 162 errno = 0;
de732108 163 val = ptrace (PTRACE_PEEKUSER, tid, 4 * regmap[regno], 0);
ce556f85 164 if (errno != 0)
c9f4d572
UW
165 error (_("Couldn't read register %s (#%d): %s."),
166 gdbarch_register_name (current_gdbarch, regno),
ce556f85 167 regno, safe_strerror (errno));
f60300e7 168
56be3814 169 regcache_raw_supply (regcache, regno, &val);
f60300e7
MK
170}
171
f60300e7
MK
172/* Store one register. */
173
174static void
56be3814 175store_register (const struct regcache *regcache, int regno)
f60300e7 176{
f60300e7 177 int tid;
ce556f85 178 int val;
f60300e7 179
ce556f85 180 gdb_assert (!have_ptrace_getregs);
de732108 181 if (regmap[regno] == -1)
ce556f85 182 return;
f60300e7 183
ce556f85 184 /* GNU/Linux LWP ID's are process ID's. */
e64a344c
MK
185 tid = TIDGET (inferior_ptid);
186 if (tid == 0)
187 tid = PIDGET (inferior_ptid); /* Not a threaded program. */
f60300e7 188
ce556f85 189 errno = 0;
56be3814 190 regcache_raw_collect (regcache, regno, &val);
de732108 191 ptrace (PTRACE_POKEUSER, tid, 4 * regmap[regno], val);
ce556f85 192 if (errno != 0)
c9f4d572
UW
193 error (_("Couldn't write register %s (#%d): %s."),
194 gdbarch_register_name (current_gdbarch, regno),
ce556f85 195 regno, safe_strerror (errno));
f60300e7 196}
5c44784c 197\f
6ce2ac0b 198
04cd15b6
MK
199/* Transfering the general-purpose registers between GDB, inferiors
200 and core files. */
201
ad2a4d09 202/* Fill GDB's register array with the general-purpose register values
04cd15b6 203 in *GREGSETP. */
5c44784c 204
d4f3574e 205void
7f7fe91e 206supply_gregset (struct regcache *regcache, const elf_gregset_t *gregsetp)
d4f3574e 207{
7f7fe91e 208 const elf_greg_t *regp = (const elf_greg_t *) gregsetp;
6ce2ac0b 209 int i;
d4f3574e 210
98df6387 211 for (i = 0; i < I386_NUM_GREGS; i++)
7f7fe91e 212 regcache_raw_supply (regcache, i, regp + regmap[i]);
3fb1c838 213
f57d151a 214 if (I386_LINUX_ORIG_EAX_REGNUM < gdbarch_num_regs (current_gdbarch))
7f7fe91e 215 regcache_raw_supply (regcache, I386_LINUX_ORIG_EAX_REGNUM,
31828840 216 regp + ORIG_EAX);
917317f4
JM
217}
218
04cd15b6
MK
219/* Fill register REGNO (if it is a general-purpose register) in
220 *GREGSETPS with the value in GDB's register array. If REGNO is -1,
221 do this for all registers. */
6ce2ac0b 222
917317f4 223void
7f7fe91e
UW
224fill_gregset (const struct regcache *regcache,
225 elf_gregset_t *gregsetp, int regno)
917317f4 226{
6ce2ac0b
MK
227 elf_greg_t *regp = (elf_greg_t *) gregsetp;
228 int i;
04cd15b6 229
98df6387 230 for (i = 0; i < I386_NUM_GREGS; i++)
099a9414 231 if (regno == -1 || regno == i)
7f7fe91e 232 regcache_raw_collect (regcache, i, regp + regmap[i]);
3fb1c838 233
82ea117a 234 if ((regno == -1 || regno == I386_LINUX_ORIG_EAX_REGNUM)
f57d151a 235 && I386_LINUX_ORIG_EAX_REGNUM < gdbarch_num_regs (current_gdbarch))
7f7fe91e 236 regcache_raw_collect (regcache, I386_LINUX_ORIG_EAX_REGNUM,
31828840 237 regp + ORIG_EAX);
d4f3574e
SS
238}
239
f60300e7
MK
240#ifdef HAVE_PTRACE_GETREGS
241
04cd15b6
MK
242/* Fetch all general-purpose registers from process/thread TID and
243 store their values in GDB's register array. */
d4f3574e 244
5c44784c 245static void
56be3814 246fetch_regs (struct regcache *regcache, int tid)
5c44784c 247{
04cd15b6 248 elf_gregset_t regs;
5c44784c 249
6ce2ac0b 250 if (ptrace (PTRACE_GETREGS, tid, 0, (int) &regs) < 0)
5c44784c 251 {
f60300e7
MK
252 if (errno == EIO)
253 {
254 /* The kernel we're running on doesn't support the GETREGS
255 request. Reset `have_ptrace_getregs'. */
256 have_ptrace_getregs = 0;
257 return;
258 }
259
e2e0b3e5 260 perror_with_name (_("Couldn't get registers"));
5c44784c
JM
261 }
262
56be3814 263 supply_gregset (regcache, (const elf_gregset_t *) &regs);
5c44784c
JM
264}
265
04cd15b6
MK
266/* Store all valid general-purpose registers in GDB's register array
267 into the process/thread specified by TID. */
5c44784c 268
5c44784c 269static void
56be3814 270store_regs (const struct regcache *regcache, int tid, int regno)
5c44784c 271{
04cd15b6 272 elf_gregset_t regs;
5c44784c 273
6ce2ac0b 274 if (ptrace (PTRACE_GETREGS, tid, 0, (int) &regs) < 0)
e2e0b3e5 275 perror_with_name (_("Couldn't get registers"));
5c44784c 276
56be3814 277 fill_gregset (regcache, &regs, regno);
6ce2ac0b
MK
278
279 if (ptrace (PTRACE_SETREGS, tid, 0, (int) &regs) < 0)
e2e0b3e5 280 perror_with_name (_("Couldn't write registers"));
5c44784c
JM
281}
282
f60300e7
MK
283#else
284
56be3814
UW
285static void fetch_regs (struct regcache *regcache, int tid) {}
286static void store_regs (const struct regcache *regcache, int tid, int regno) {}
f60300e7
MK
287
288#endif
5c44784c 289\f
5c44784c 290
6ce2ac0b 291/* Transfering floating-point registers between GDB, inferiors and cores. */
d4f3574e 292
04cd15b6 293/* Fill GDB's register array with the floating-point register values in
917317f4 294 *FPREGSETP. */
04cd15b6 295
d4f3574e 296void
7f7fe91e 297supply_fpregset (struct regcache *regcache, const elf_fpregset_t *fpregsetp)
d4f3574e 298{
7f7fe91e 299 i387_supply_fsave (regcache, -1, fpregsetp);
917317f4 300}
d4f3574e 301
04cd15b6
MK
302/* Fill register REGNO (if it is a floating-point register) in
303 *FPREGSETP with the value in GDB's register array. If REGNO is -1,
304 do this for all registers. */
917317f4
JM
305
306void
7f7fe91e
UW
307fill_fpregset (const struct regcache *regcache,
308 elf_fpregset_t *fpregsetp, int regno)
917317f4 309{
7f7fe91e 310 i387_collect_fsave (regcache, regno, fpregsetp);
d4f3574e
SS
311}
312
f60300e7
MK
313#ifdef HAVE_PTRACE_GETREGS
314
04cd15b6
MK
315/* Fetch all floating-point registers from process/thread TID and store
316 thier values in GDB's register array. */
917317f4 317
d4f3574e 318static void
56be3814 319fetch_fpregs (struct regcache *regcache, int tid)
d4f3574e 320{
04cd15b6 321 elf_fpregset_t fpregs;
d4f3574e 322
6ce2ac0b 323 if (ptrace (PTRACE_GETFPREGS, tid, 0, (int) &fpregs) < 0)
e2e0b3e5 324 perror_with_name (_("Couldn't get floating point status"));
d4f3574e 325
56be3814 326 supply_fpregset (regcache, (const elf_fpregset_t *) &fpregs);
d4f3574e
SS
327}
328
04cd15b6
MK
329/* Store all valid floating-point registers in GDB's register array
330 into the process/thread specified by TID. */
d4f3574e 331
d4f3574e 332static void
56be3814 333store_fpregs (const struct regcache *regcache, int tid, int regno)
d4f3574e 334{
04cd15b6 335 elf_fpregset_t fpregs;
d4f3574e 336
6ce2ac0b 337 if (ptrace (PTRACE_GETFPREGS, tid, 0, (int) &fpregs) < 0)
e2e0b3e5 338 perror_with_name (_("Couldn't get floating point status"));
d4f3574e 339
56be3814 340 fill_fpregset (regcache, &fpregs, regno);
d4f3574e 341
6ce2ac0b 342 if (ptrace (PTRACE_SETFPREGS, tid, 0, (int) &fpregs) < 0)
e2e0b3e5 343 perror_with_name (_("Couldn't write floating point status"));
d4f3574e
SS
344}
345
f60300e7
MK
346#else
347
56be3814
UW
348static void fetch_fpregs (struct regcache *regcache, int tid) {}
349static void store_fpregs (const struct regcache *regcache, int tid, int regno) {}
f60300e7
MK
350
351#endif
5c44784c 352\f
d4f3574e 353
6ce2ac0b 354/* Transfering floating-point and SSE registers to and from GDB. */
11cf8741 355
6ce2ac0b 356#ifdef HAVE_PTRACE_GETFPXREGS
04cd15b6
MK
357
358/* Fill GDB's register array with the floating-point and SSE register
6ce2ac0b 359 values in *FPXREGSETP. */
04cd15b6 360
975aec09 361void
7f7fe91e
UW
362supply_fpxregset (struct regcache *regcache,
363 const elf_fpxregset_t *fpxregsetp)
d4f3574e 364{
7f7fe91e 365 i387_supply_fxsave (regcache, -1, fpxregsetp);
d4f3574e
SS
366}
367
6ce2ac0b
MK
368/* Fill register REGNO (if it is a floating-point or SSE register) in
369 *FPXREGSETP with the value in GDB's register array. If REGNO is
370 -1, do this for all registers. */
d4f3574e 371
975aec09 372void
7f7fe91e
UW
373fill_fpxregset (const struct regcache *regcache,
374 elf_fpxregset_t *fpxregsetp, int regno)
d4f3574e 375{
7f7fe91e 376 i387_collect_fxsave (regcache, regno, fpxregsetp);
5c44784c
JM
377}
378
6ce2ac0b 379/* Fetch all registers covered by the PTRACE_GETFPXREGS request from
04cd15b6
MK
380 process/thread TID and store their values in GDB's register array.
381 Return non-zero if successful, zero otherwise. */
5c44784c 382
5c44784c 383static int
56be3814 384fetch_fpxregs (struct regcache *regcache, int tid)
5c44784c 385{
6ce2ac0b 386 elf_fpxregset_t fpxregs;
5c44784c 387
6ce2ac0b 388 if (! have_ptrace_getfpxregs)
5c44784c
JM
389 return 0;
390
6ce2ac0b 391 if (ptrace (PTRACE_GETFPXREGS, tid, 0, (int) &fpxregs) < 0)
d4f3574e 392 {
5c44784c
JM
393 if (errno == EIO)
394 {
6ce2ac0b 395 have_ptrace_getfpxregs = 0;
5c44784c
JM
396 return 0;
397 }
398
e2e0b3e5 399 perror_with_name (_("Couldn't read floating-point and SSE registers"));
d4f3574e
SS
400 }
401
56be3814 402 supply_fpxregset (regcache, (const elf_fpxregset_t *) &fpxregs);
5c44784c
JM
403 return 1;
404}
d4f3574e 405
04cd15b6 406/* Store all valid registers in GDB's register array covered by the
6ce2ac0b 407 PTRACE_SETFPXREGS request into the process/thread specified by TID.
04cd15b6 408 Return non-zero if successful, zero otherwise. */
5c44784c 409
5c44784c 410static int
56be3814 411store_fpxregs (const struct regcache *regcache, int tid, int regno)
5c44784c 412{
6ce2ac0b 413 elf_fpxregset_t fpxregs;
5c44784c 414
6ce2ac0b 415 if (! have_ptrace_getfpxregs)
5c44784c 416 return 0;
6ce2ac0b
MK
417
418 if (ptrace (PTRACE_GETFPXREGS, tid, 0, &fpxregs) == -1)
2866d305
MK
419 {
420 if (errno == EIO)
421 {
422 have_ptrace_getfpxregs = 0;
423 return 0;
424 }
425
e2e0b3e5 426 perror_with_name (_("Couldn't read floating-point and SSE registers"));
2866d305 427 }
5c44784c 428
56be3814 429 fill_fpxregset (regcache, &fpxregs, regno);
5c44784c 430
6ce2ac0b 431 if (ptrace (PTRACE_SETFPXREGS, tid, 0, &fpxregs) == -1)
e2e0b3e5 432 perror_with_name (_("Couldn't write floating-point and SSE registers"));
5c44784c
JM
433
434 return 1;
435}
436
5c44784c
JM
437#else
438
56be3814
UW
439static int fetch_fpxregs (struct regcache *regcache, int tid) { return 0; }
440static int store_fpxregs (const struct regcache *regcache, int tid, int regno) { return 0; }
5c44784c 441
6ce2ac0b 442#endif /* HAVE_PTRACE_GETFPXREGS */
5c44784c 443\f
6ce2ac0b 444
5c44784c 445/* Transferring arbitrary registers between GDB and inferior. */
d4f3574e 446
04cd15b6
MK
447/* Fetch register REGNO from the child process. If REGNO is -1, do
448 this for all registers (including the floating point and SSE
449 registers). */
d4f3574e 450
10d6c8cd 451static void
56be3814 452i386_linux_fetch_inferior_registers (struct regcache *regcache, int regno)
d4f3574e 453{
ed9a39eb
JM
454 int tid;
455
f60300e7
MK
456 /* Use the old method of peeking around in `struct user' if the
457 GETREGS request isn't available. */
ce556f85 458 if (!have_ptrace_getregs)
f60300e7 459 {
ce556f85
MK
460 int i;
461
f57d151a 462 for (i = 0; i < gdbarch_num_regs (current_gdbarch); i++)
ce556f85 463 if (regno == -1 || regno == i)
56be3814 464 fetch_register (regcache, i);
ce556f85 465
f60300e7
MK
466 return;
467 }
468
a4b6fc86 469 /* GNU/Linux LWP ID's are process ID's. */
e64a344c
MK
470 tid = TIDGET (inferior_ptid);
471 if (tid == 0)
472 tid = PIDGET (inferior_ptid); /* Not a threaded program. */
ed9a39eb 473
6ce2ac0b 474 /* Use the PTRACE_GETFPXREGS request whenever possible, since it
04cd15b6 475 transfers more registers in one system call, and we'll cache the
6ce2ac0b 476 results. But remember that fetch_fpxregs can fail, and return
04cd15b6 477 zero. */
5c44784c
JM
478 if (regno == -1)
479 {
56be3814 480 fetch_regs (regcache, tid);
f60300e7
MK
481
482 /* The call above might reset `have_ptrace_getregs'. */
ce556f85 483 if (!have_ptrace_getregs)
f60300e7 484 {
56be3814 485 i386_linux_fetch_inferior_registers (regcache, regno);
f60300e7
MK
486 return;
487 }
488
56be3814 489 if (fetch_fpxregs (regcache, tid))
5c44784c 490 return;
56be3814 491 fetch_fpregs (regcache, tid);
5c44784c
JM
492 return;
493 }
d4f3574e 494
5c44784c
JM
495 if (GETREGS_SUPPLIES (regno))
496 {
56be3814 497 fetch_regs (regcache, tid);
5c44784c
JM
498 return;
499 }
500
6ce2ac0b 501 if (GETFPXREGS_SUPPLIES (regno))
5c44784c 502 {
56be3814 503 if (fetch_fpxregs (regcache, tid))
5c44784c
JM
504 return;
505
506 /* Either our processor or our kernel doesn't support the SSE
507 registers, so read the FP registers in the traditional way,
508 and fill the SSE registers with dummy values. It would be
509 more graceful to handle differences in the register set using
510 gdbarch. Until then, this will at least make things work
511 plausibly. */
56be3814 512 fetch_fpregs (regcache, tid);
5c44784c
JM
513 return;
514 }
515
8e65ff28 516 internal_error (__FILE__, __LINE__,
e2e0b3e5 517 _("Got request for bad register number %d."), regno);
d4f3574e
SS
518}
519
04cd15b6
MK
520/* Store register REGNO back into the child process. If REGNO is -1,
521 do this for all registers (including the floating point and SSE
522 registers). */
10d6c8cd 523static void
56be3814 524i386_linux_store_inferior_registers (struct regcache *regcache, int regno)
d4f3574e 525{
ed9a39eb
JM
526 int tid;
527
f60300e7
MK
528 /* Use the old method of poking around in `struct user' if the
529 SETREGS request isn't available. */
ce556f85 530 if (!have_ptrace_getregs)
f60300e7 531 {
ce556f85
MK
532 int i;
533
f57d151a 534 for (i = 0; i < gdbarch_num_regs (current_gdbarch); i++)
ce556f85 535 if (regno == -1 || regno == i)
56be3814 536 store_register (regcache, i);
ce556f85 537
f60300e7
MK
538 return;
539 }
540
a4b6fc86 541 /* GNU/Linux LWP ID's are process ID's. */
e64a344c
MK
542 tid = TIDGET (inferior_ptid);
543 if (tid == 0)
544 tid = PIDGET (inferior_ptid); /* Not a threaded program. */
ed9a39eb 545
6ce2ac0b 546 /* Use the PTRACE_SETFPXREGS requests whenever possible, since it
04cd15b6 547 transfers more registers in one system call. But remember that
6ce2ac0b 548 store_fpxregs can fail, and return zero. */
5c44784c
JM
549 if (regno == -1)
550 {
56be3814
UW
551 store_regs (regcache, tid, regno);
552 if (store_fpxregs (regcache, tid, regno))
5c44784c 553 return;
56be3814 554 store_fpregs (regcache, tid, regno);
5c44784c
JM
555 return;
556 }
d4f3574e 557
5c44784c
JM
558 if (GETREGS_SUPPLIES (regno))
559 {
56be3814 560 store_regs (regcache, tid, regno);
5c44784c
JM
561 return;
562 }
563
6ce2ac0b 564 if (GETFPXREGS_SUPPLIES (regno))
5c44784c 565 {
56be3814 566 if (store_fpxregs (regcache, tid, regno))
5c44784c
JM
567 return;
568
569 /* Either our processor or our kernel doesn't support the SSE
04cd15b6
MK
570 registers, so just write the FP registers in the traditional
571 way. */
56be3814 572 store_fpregs (regcache, tid, regno);
5c44784c
JM
573 return;
574 }
575
8e65ff28 576 internal_error (__FILE__, __LINE__,
e2e0b3e5 577 _("Got request to store bad register number %d."), regno);
d4f3574e 578}
de57eccd 579\f
6ce2ac0b 580
4ffc8466
MK
581/* Support for debug registers. */
582
7bf0983e 583static unsigned long
84346e11
MK
584i386_linux_dr_get (int regnum)
585{
586 int tid;
7bf0983e 587 unsigned long value;
84346e11
MK
588
589 /* FIXME: kettenis/2001-01-29: It's not clear what we should do with
590 multi-threaded processes here. For now, pretend there is just
591 one thread. */
39f77062 592 tid = PIDGET (inferior_ptid);
84346e11 593
b9511b9a
MK
594 /* FIXME: kettenis/2001-03-27: Calling perror_with_name if the
595 ptrace call fails breaks debugging remote targets. The correct
596 way to fix this is to add the hardware breakpoint and watchpoint
7532965f 597 stuff to the target vector. For now, just return zero if the
b9511b9a 598 ptrace call fails. */
84346e11 599 errno = 0;
ce556f85 600 value = ptrace (PTRACE_PEEKUSER, tid,
84346e11
MK
601 offsetof (struct user, u_debugreg[regnum]), 0);
602 if (errno != 0)
b9511b9a 603#if 0
e2e0b3e5 604 perror_with_name (_("Couldn't read debug register"));
b9511b9a
MK
605#else
606 return 0;
607#endif
84346e11
MK
608
609 return value;
610}
611
612static void
7bf0983e 613i386_linux_dr_set (int regnum, unsigned long value)
84346e11
MK
614{
615 int tid;
616
617 /* FIXME: kettenis/2001-01-29: It's not clear what we should do with
618 multi-threaded processes here. For now, pretend there is just
619 one thread. */
39f77062 620 tid = PIDGET (inferior_ptid);
84346e11
MK
621
622 errno = 0;
ce556f85 623 ptrace (PTRACE_POKEUSER, tid,
84346e11
MK
624 offsetof (struct user, u_debugreg[regnum]), value);
625 if (errno != 0)
e2e0b3e5 626 perror_with_name (_("Couldn't write debug register"));
84346e11
MK
627}
628
629void
7bf0983e 630i386_linux_dr_set_control (unsigned long control)
84346e11
MK
631{
632 i386_linux_dr_set (DR_CONTROL, control);
633}
634
635void
636i386_linux_dr_set_addr (int regnum, CORE_ADDR addr)
637{
638 gdb_assert (regnum >= 0 && regnum <= DR_LASTADDR - DR_FIRSTADDR);
639
640 i386_linux_dr_set (DR_FIRSTADDR + regnum, addr);
641}
642
643void
644i386_linux_dr_reset_addr (int regnum)
645{
646 gdb_assert (regnum >= 0 && regnum <= DR_LASTADDR - DR_FIRSTADDR);
647
648 i386_linux_dr_set (DR_FIRSTADDR + regnum, 0L);
649}
650
7bf0983e 651unsigned long
84346e11
MK
652i386_linux_dr_get_status (void)
653{
654 return i386_linux_dr_get (DR_STATUS);
655}
656\f
657
5bca7895
MK
658/* Called by libthread_db. Returns a pointer to the thread local
659 storage (or its descriptor). */
660
661ps_err_e
662ps_get_thread_area (const struct ps_prochandle *ph,
663 lwpid_t lwpid, int idx, void **base)
664{
665 /* NOTE: cagney/2003-08-26: The definition of this buffer is found
666 in the kernel header <asm-i386/ldt.h>. It, after padding, is 4 x
667 4 byte integers in size: `entry_number', `base_addr', `limit',
668 and a bunch of status bits.
669
670 The values returned by this ptrace call should be part of the
671 regcache buffer, and ps_get_thread_area should channel its
672 request through the regcache. That way remote targets could
673 provide the value using the remote protocol and not this direct
674 call.
675
676 Is this function needed? I'm guessing that the `base' is the
677 address of a a descriptor that libthread_db uses to find the
b2fa5097 678 thread local address base that GDB needs. Perhaps that
5bca7895
MK
679 descriptor is defined by the ABI. Anyway, given that
680 libthread_db calls this function without prompting (gdb
681 requesting tls base) I guess it needs info in there anyway. */
682 unsigned int desc[4];
683 gdb_assert (sizeof (int) == 4);
684
685#ifndef PTRACE_GET_THREAD_AREA
686#define PTRACE_GET_THREAD_AREA 25
687#endif
688
689 if (ptrace (PTRACE_GET_THREAD_AREA, lwpid,
690 (void *) idx, (unsigned long) &desc) < 0)
691 return PS_ERR;
692
693 *(int *)base = desc[1];
694 return PS_OK;
695}
696\f
697
a4b6fc86 698/* The instruction for a GNU/Linux system call is:
a6abb2c0
MK
699 int $0x80
700 or 0xcd 0x80. */
701
702static const unsigned char linux_syscall[] = { 0xcd, 0x80 };
703
704#define LINUX_SYSCALL_LEN (sizeof linux_syscall)
705
706/* The system call number is stored in the %eax register. */
7532965f 707#define LINUX_SYSCALL_REGNUM I386_EAX_REGNUM
a6abb2c0
MK
708
709/* We are specifically interested in the sigreturn and rt_sigreturn
710 system calls. */
711
712#ifndef SYS_sigreturn
713#define SYS_sigreturn 0x77
714#endif
715#ifndef SYS_rt_sigreturn
716#define SYS_rt_sigreturn 0xad
717#endif
718
719/* Offset to saved processor flags, from <asm/sigcontext.h>. */
720#define LINUX_SIGCONTEXT_EFLAGS_OFFSET (64)
721
722/* Resume execution of the inferior process.
723 If STEP is nonzero, single-step it.
724 If SIGNAL is nonzero, give it that signal. */
725
10d6c8cd
DJ
726static void
727i386_linux_resume (ptid_t ptid, int step, enum target_signal signal)
a6abb2c0 728{
39f77062
KB
729 int pid = PIDGET (ptid);
730
a6abb2c0
MK
731 int request = PTRACE_CONT;
732
733 if (pid == -1)
734 /* Resume all threads. */
735 /* I think this only gets used in the non-threaded case, where "resume
39f77062
KB
736 all threads" and "resume inferior_ptid" are the same. */
737 pid = PIDGET (inferior_ptid);
a6abb2c0
MK
738
739 if (step)
740 {
594f7785 741 struct regcache *regcache = get_thread_regcache (pid_to_ptid (pid));
7b86a1b8 742 ULONGEST pc;
8e70166d 743 gdb_byte buf[LINUX_SYSCALL_LEN];
a6abb2c0
MK
744
745 request = PTRACE_SINGLESTEP;
746
7b86a1b8
UW
747 regcache_cooked_read_unsigned (regcache, PC_REGNUM, &pc);
748
a6abb2c0
MK
749 /* Returning from a signal trampoline is done by calling a
750 special system call (sigreturn or rt_sigreturn, see
751 i386-linux-tdep.c for more information). This system call
752 restores the registers that were saved when the signal was
753 raised, including %eflags. That means that single-stepping
754 won't work. Instead, we'll have to modify the signal context
755 that's about to be restored, and set the trace flag there. */
756
757 /* First check if PC is at a system call. */
359a9262 758 if (read_memory_nobpt (pc, buf, LINUX_SYSCALL_LEN) == 0
a6abb2c0
MK
759 && memcmp (buf, linux_syscall, LINUX_SYSCALL_LEN) == 0)
760 {
7b86a1b8
UW
761 ULONGEST syscall;
762 regcache_cooked_read_unsigned (regcache,
763 LINUX_SYSCALL_REGNUM, &syscall);
a6abb2c0
MK
764
765 /* Then check the system call number. */
766 if (syscall == SYS_sigreturn || syscall == SYS_rt_sigreturn)
767 {
7b86a1b8 768 ULONGEST sp, addr;
a6abb2c0 769 unsigned long int eflags;
7bf0983e 770
7b86a1b8 771 regcache_cooked_read_unsigned (regcache, I386_ESP_REGNUM, &sp);
a6abb2c0
MK
772 if (syscall == SYS_rt_sigreturn)
773 addr = read_memory_integer (sp + 8, 4) + 20;
7b86a1b8
UW
774 else
775 addr = sp;
a6abb2c0
MK
776
777 /* Set the trace flag in the context that's about to be
778 restored. */
779 addr += LINUX_SIGCONTEXT_EFLAGS_OFFSET;
8e70166d 780 read_memory (addr, (gdb_byte *) &eflags, 4);
a6abb2c0 781 eflags |= 0x0100;
8e70166d 782 write_memory (addr, (gdb_byte *) &eflags, 4);
a6abb2c0
MK
783 }
784 }
785 }
786
787 if (ptrace (request, pid, 0, target_signal_to_host (signal)) == -1)
e2e0b3e5 788 perror_with_name (("ptrace"));
a6abb2c0 789}
4de4c07c 790
10d6c8cd
DJ
791static void (*super_post_startup_inferior) (ptid_t ptid);
792
793static void
794i386_linux_child_post_startup_inferior (ptid_t ptid)
4de4c07c
DJ
795{
796 i386_cleanup_dregs ();
10d6c8cd
DJ
797 super_post_startup_inferior (ptid);
798}
799
800void
801_initialize_i386_linux_nat (void)
802{
803 struct target_ops *t;
804
805 /* Fill in the generic GNU/Linux methods. */
806 t = linux_target ();
807
808 /* Override the default ptrace resume method. */
809 t->to_resume = i386_linux_resume;
810
811 /* Override the GNU/Linux inferior startup hook. */
812 super_post_startup_inferior = t->to_post_startup_inferior;
813 t->to_post_startup_inferior = i386_linux_child_post_startup_inferior;
814
815 /* Add our register access methods. */
816 t->to_fetch_registers = i386_linux_fetch_inferior_registers;
817 t->to_store_registers = i386_linux_store_inferior_registers;
818
819 /* Register the target. */
f973ed9c 820 linux_nat_add_target (t);
4de4c07c 821}