1 /* PPC GNU/Linux native support.
2 Copyright 1988, 1989, 1991, 1992, 1994, 1996, 2000, 2001, 2002
3 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
28 #include <sys/types.h>
29 #include <sys/param.h>
32 #include <sys/ioctl.h>
35 #include <sys/procfs.h>
36 #include <sys/ptrace.h>
38 /* Prototypes for supply_gregset etc. */
43 #define PT_READ_U PTRACE_PEEKUSR
46 #define PT_WRITE_U PTRACE_POKEUSR
49 /* Default the type of the ptrace transfer to int. */
50 #ifndef PTRACE_XFER_TYPE
51 #define PTRACE_XFER_TYPE int
54 /* Glibc's headers don't define PTRACE_GETVRREGS so we cannot use a
55 configure time check. Some older glibc's (for instance 2.2.1)
56 don't have a specific powerpc version of ptrace.h, and fall back on
57 a generic one. In such cases, sys/ptrace.h defines
58 PTRACE_GETFPXREGS and PTRACE_SETFPXREGS to the same numbers that
59 ppc kernel's asm/ptrace.h defines PTRACE_GETVRREGS and
60 PTRACE_SETVRREGS to be. This also makes a configury check pretty
63 /* These definitions should really come from the glibc header files,
64 but Glibc doesn't know about the vrregs yet. */
65 #ifndef PTRACE_GETVRREGS
66 #define PTRACE_GETVRREGS 18
67 #define PTRACE_SETVRREGS 19
70 /* This oddity is because the Linux kernel defines elf_vrregset_t as
71 an array of 33 16 bytes long elements. I.e. it leaves out vrsave.
72 However the PTRACE_GETVRREGS and PTRACE_SETVRREGS requests return
73 the vrsave as an extra 4 bytes at the end. I opted for creating a
74 flat array of chars, so that it is easier to manipulate for gdb.
76 There are 32 vector registers 16 bytes longs, plus a VSCR register
77 which is only 4 bytes long, but is fetched as a 16 bytes
78 quantity. Up to here we have the elf_vrregset_t structure.
79 Appended to this there is space for the VRSAVE register: 4 bytes.
80 Even though this vrsave register is not included in the regset
81 typedef, it is handled by the ptrace requests.
83 Note that GNU/Linux doesn't support little endian PPC hardware,
84 therefore the offset at which the real value of the VSCR register
85 is located will be always 12 bytes.
87 The layout is like this (where x is the actual value of the vscr reg): */
91 |.|.|.|.|.....|.|.|.|.||.|.|.|x||.|
92 <-------> <-------><-------><->
97 #define SIZEOF_VRREGS 33*16+4
99 typedef char gdb_vrregset_t
[SIZEOF_VRREGS
];
101 /* For runtime check of ptrace support for VRREGS. */
102 int have_ptrace_getvrregs
= 1;
107 return (sizeof (struct user
));
111 /* registers layout, as presented by the ptrace interface:
112 PT_R0, PT_R1, PT_R2, PT_R3, PT_R4, PT_R5, PT_R6, PT_R7,
113 PT_R8, PT_R9, PT_R10, PT_R11, PT_R12, PT_R13, PT_R14, PT_R15,
114 PT_R16, PT_R17, PT_R18, PT_R19, PT_R20, PT_R21, PT_R22, PT_R23,
115 PT_R24, PT_R25, PT_R26, PT_R27, PT_R28, PT_R29, PT_R30, PT_R31,
116 PT_FPR0, PT_FPR0 + 2, PT_FPR0 + 4, PT_FPR0 + 6, PT_FPR0 + 8, PT_FPR0 + 10, PT_FPR0 + 12, PT_FPR0 + 14,
117 PT_FPR0 + 16, PT_FPR0 + 18, PT_FPR0 + 20, PT_FPR0 + 22, PT_FPR0 + 24, PT_FPR0 + 26, PT_FPR0 + 28, PT_FPR0 + 30,
118 PT_FPR0 + 32, PT_FPR0 + 34, PT_FPR0 + 36, PT_FPR0 + 38, PT_FPR0 + 40, PT_FPR0 + 42, PT_FPR0 + 44, PT_FPR0 + 46,
119 PT_FPR0 + 48, PT_FPR0 + 50, PT_FPR0 + 52, PT_FPR0 + 54, PT_FPR0 + 56, PT_FPR0 + 58, PT_FPR0 + 60, PT_FPR0 + 62,
120 PT_NIP, PT_MSR, PT_CCR, PT_LNK, PT_CTR, PT_XER, PT_MQ */
124 ppc_register_u_addr (int regno
)
127 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
129 /* General purpose registers occupy 1 slot each in the buffer */
130 if (regno
>= tdep
->ppc_gp0_regnum
&& regno
<= tdep
->ppc_gplast_regnum
)
131 u_addr
= ((PT_R0
+ regno
) * 4);
133 /* Floating point regs: 2 slots each */
134 if (regno
>= FP0_REGNUM
&& regno
<= FPLAST_REGNUM
)
135 u_addr
= ((PT_FPR0
+ (regno
- FP0_REGNUM
) * 2) * 4);
137 /* UISA special purpose registers: 1 slot each */
138 if (regno
== PC_REGNUM
)
140 if (regno
== tdep
->ppc_lr_regnum
)
142 if (regno
== tdep
->ppc_cr_regnum
)
144 if (regno
== tdep
->ppc_xer_regnum
)
146 if (regno
== tdep
->ppc_ctr_regnum
)
148 if (regno
== tdep
->ppc_mq_regnum
)
150 if (regno
== tdep
->ppc_ps_regnum
)
157 ppc_ptrace_cannot_fetch_store_register (int regno
)
159 return (ppc_register_u_addr (regno
) == -1);
162 /* The Linux kernel ptrace interface for AltiVec registers uses the
163 registers set mechanism, as opposed to the interface for all the
164 other registers, that stores/fetches each register individually. */
166 fetch_altivec_register (int tid
, int regno
)
171 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
172 int vrregsize
= REGISTER_RAW_SIZE (tdep
->ppc_vr0_regnum
);
174 ret
= ptrace (PTRACE_GETVRREGS
, tid
, 0, ®s
);
179 have_ptrace_getvrregs
= 0;
182 perror_with_name ("Unable to fetch AltiVec register");
185 /* VSCR is fetched as a 16 bytes quantity, but it is really 4 bytes
186 long on the hardware. We deal only with the lower 4 bytes of the
187 vector. VRSAVE is at the end of the array in a 4 bytes slot, so
188 there is no need to define an offset for it. */
189 if (regno
== (tdep
->ppc_vrsave_regnum
- 1))
190 offset
= vrregsize
- REGISTER_RAW_SIZE (tdep
->ppc_vrsave_regnum
);
192 supply_register (regno
,
193 regs
+ (regno
- tdep
->ppc_vr0_regnum
) * vrregsize
+ offset
);
197 fetch_register (int tid
, int regno
)
199 /* This isn't really an address. But ptrace thinks of it as one. */
200 char mess
[128]; /* For messages */
202 unsigned int offset
; /* Offset of registers within the u area. */
203 char *buf
= alloca (MAX_REGISTER_RAW_SIZE
);
204 CORE_ADDR regaddr
= ppc_register_u_addr (regno
);
206 if (altivec_register_p (regno
))
208 /* If this is the first time through, or if it is not the first
209 time through, and we have comfirmed that there is kernel
210 support for such a ptrace request, then go and fetch the
212 if (have_ptrace_getvrregs
)
214 fetch_altivec_register (tid
, regno
);
217 /* If we have discovered that there is no ptrace support for
218 AltiVec registers, fall through and return zeroes, because
219 regaddr will be -1 in this case. */
224 memset (buf
, '\0', REGISTER_RAW_SIZE (regno
)); /* Supply zeroes */
225 supply_register (regno
, buf
);
229 for (i
= 0; i
< REGISTER_RAW_SIZE (regno
); i
+= sizeof (PTRACE_XFER_TYPE
))
232 *(PTRACE_XFER_TYPE
*) & buf
[i
] = ptrace (PT_READ_U
, tid
,
233 (PTRACE_ARG3_TYPE
) regaddr
, 0);
234 regaddr
+= sizeof (PTRACE_XFER_TYPE
);
237 sprintf (mess
, "reading register %s (#%d)",
238 REGISTER_NAME (regno
), regno
);
239 perror_with_name (mess
);
242 supply_register (regno
, buf
);
246 supply_vrregset (gdb_vrregset_t
*vrregsetp
)
249 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
250 int num_of_vrregs
= tdep
->ppc_vrsave_regnum
- tdep
->ppc_vr0_regnum
+ 1;
251 int vrregsize
= REGISTER_RAW_SIZE (tdep
->ppc_vr0_regnum
);
252 int offset
= vrregsize
- REGISTER_RAW_SIZE (tdep
->ppc_vrsave_regnum
);
254 for (i
= 0; i
< num_of_vrregs
; i
++)
256 /* The last 2 registers of this set are only 32 bit long, not
257 128. However an offset is necessary only for VSCR because it
258 occupies a whole vector, while VRSAVE occupies a full 4 bytes
260 if (i
== (num_of_vrregs
- 2))
261 supply_register (tdep
->ppc_vr0_regnum
+ i
,
262 *vrregsetp
+ i
* vrregsize
+ offset
);
264 supply_register (tdep
->ppc_vr0_regnum
+ i
, *vrregsetp
+ i
* vrregsize
);
269 fetch_altivec_registers (int tid
)
274 ret
= ptrace (PTRACE_GETVRREGS
, tid
, 0, ®s
);
279 have_ptrace_getvrregs
= 0;
282 perror_with_name ("Unable to fetch AltiVec registers");
284 supply_vrregset (®s
);
288 fetch_ppc_registers (int tid
)
291 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
293 for (i
= 0; i
<= tdep
->ppc_mq_regnum
; i
++)
294 fetch_register (tid
, i
);
295 if (have_ptrace_getvrregs
)
296 if (tdep
->ppc_vr0_regnum
!= -1 && tdep
->ppc_vrsave_regnum
!= -1)
297 fetch_altivec_registers (tid
);
300 /* Fetch registers from the child process. Fetch all registers if
301 regno == -1, otherwise fetch all general registers or all floating
302 point registers depending upon the value of regno. */
304 fetch_inferior_registers (int regno
)
306 /* Overload thread id onto process id */
307 int tid
= TIDGET (inferior_ptid
);
309 /* No thread id, just use process id */
311 tid
= PIDGET (inferior_ptid
);
314 fetch_ppc_registers (tid
);
316 fetch_register (tid
, regno
);
319 /* Store one register. */
321 store_altivec_register (int tid
, int regno
)
326 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
327 int vrregsize
= REGISTER_RAW_SIZE (tdep
->ppc_vr0_regnum
);
329 ret
= ptrace (PTRACE_GETVRREGS
, tid
, 0, ®s
);
334 have_ptrace_getvrregs
= 0;
337 perror_with_name ("Unable to fetch AltiVec register");
340 /* VSCR is fetched as a 16 bytes quantity, but it is really 4 bytes
341 long on the hardware. */
342 if (regno
== (tdep
->ppc_vrsave_regnum
- 1))
343 offset
= vrregsize
- REGISTER_RAW_SIZE (tdep
->ppc_vrsave_regnum
);
345 regcache_collect (regno
,
346 regs
+ (regno
- tdep
->ppc_vr0_regnum
) * vrregsize
+ offset
);
348 ret
= ptrace (PTRACE_SETVRREGS
, tid
, 0, ®s
);
350 perror_with_name ("Unable to store AltiVec register");
354 store_register (int tid
, int regno
)
356 /* This isn't really an address. But ptrace thinks of it as one. */
357 CORE_ADDR regaddr
= ppc_register_u_addr (regno
);
358 char mess
[128]; /* For messages */
360 unsigned int offset
; /* Offset of registers within the u area. */
361 char *buf
= alloca (MAX_REGISTER_RAW_SIZE
);
363 if (altivec_register_p (regno
))
365 store_altivec_register (tid
, regno
);
372 regcache_collect (regno
, buf
);
373 for (i
= 0; i
< REGISTER_RAW_SIZE (regno
); i
+= sizeof (PTRACE_XFER_TYPE
))
376 ptrace (PT_WRITE_U
, tid
, (PTRACE_ARG3_TYPE
) regaddr
,
377 *(PTRACE_XFER_TYPE
*) & buf
[i
]);
378 regaddr
+= sizeof (PTRACE_XFER_TYPE
);
381 sprintf (mess
, "writing register %s (#%d)",
382 REGISTER_NAME (regno
), regno
);
383 perror_with_name (mess
);
389 fill_vrregset (gdb_vrregset_t
*vrregsetp
)
392 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
393 int num_of_vrregs
= tdep
->ppc_vrsave_regnum
- tdep
->ppc_vr0_regnum
+ 1;
394 int vrregsize
= REGISTER_RAW_SIZE (tdep
->ppc_vr0_regnum
);
395 int offset
= vrregsize
- REGISTER_RAW_SIZE (tdep
->ppc_vrsave_regnum
);
397 for (i
= 0; i
< num_of_vrregs
; i
++)
399 /* The last 2 registers of this set are only 32 bit long, not
400 128, but only VSCR is fetched as a 16 bytes quantity. */
401 if (i
== (num_of_vrregs
- 2))
402 regcache_collect (tdep
->ppc_vr0_regnum
+ i
,
403 *vrregsetp
+ i
* vrregsize
+ offset
);
405 regcache_collect (tdep
->ppc_vr0_regnum
+ i
, *vrregsetp
+ i
* vrregsize
);
410 store_altivec_registers (int tid
)
415 ret
= ptrace (PTRACE_GETVRREGS
, tid
, 0, (int) ®s
);
420 have_ptrace_getvrregs
= 0;
423 perror_with_name ("Couldn't get AltiVec registers");
426 fill_vrregset (®s
);
428 if (ptrace (PTRACE_SETVRREGS
, tid
, 0, (int) ®s
) < 0)
429 perror_with_name ("Couldn't write AltiVec registers");
433 store_ppc_registers (int tid
)
436 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
438 for (i
= 0; i
<= tdep
->ppc_mq_regnum
; i
++)
439 store_register (tid
, i
);
440 if (have_ptrace_getvrregs
)
441 if (tdep
->ppc_vr0_regnum
!= -1 && tdep
->ppc_vrsave_regnum
!= -1)
442 store_altivec_registers (tid
);
446 store_inferior_registers (int regno
)
448 /* Overload thread id onto process id */
449 int tid
= TIDGET (inferior_ptid
);
451 /* No thread id, just use process id */
453 tid
= PIDGET (inferior_ptid
);
456 store_register (tid
, regno
);
458 store_ppc_registers (tid
);
462 supply_gregset (gdb_gregset_t
*gregsetp
)
465 register elf_greg_t
*regp
= (elf_greg_t
*) gregsetp
;
466 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
468 for (regi
= 0; regi
< 32; regi
++)
469 supply_register (regi
, (char *) (regp
+ regi
));
471 supply_register (PC_REGNUM
, (char *) (regp
+ PT_NIP
));
472 supply_register (tdep
->ppc_lr_regnum
, (char *) (regp
+ PT_LNK
));
473 supply_register (tdep
->ppc_cr_regnum
, (char *) (regp
+ PT_CCR
));
474 supply_register (tdep
->ppc_xer_regnum
, (char *) (regp
+ PT_XER
));
475 supply_register (tdep
->ppc_ctr_regnum
, (char *) (regp
+ PT_CTR
));
476 supply_register (tdep
->ppc_mq_regnum
, (char *) (regp
+ PT_MQ
));
477 supply_register (tdep
->ppc_ps_regnum
, (char *) (regp
+ PT_MSR
));
481 fill_gregset (gdb_gregset_t
*gregsetp
, int regno
)
484 elf_greg_t
*regp
= (elf_greg_t
*) gregsetp
;
485 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
487 for (regi
= 0; regi
< 32; regi
++)
489 if ((regno
== -1) || regno
== regi
)
490 regcache_collect (regi
, regp
+ PT_R0
+ regi
);
493 if ((regno
== -1) || regno
== PC_REGNUM
)
494 regcache_collect (PC_REGNUM
, regp
+ PT_NIP
);
495 if ((regno
== -1) || regno
== tdep
->ppc_lr_regnum
)
496 regcache_collect (tdep
->ppc_lr_regnum
, regp
+ PT_LNK
);
497 if ((regno
== -1) || regno
== tdep
->ppc_cr_regnum
)
498 regcache_collect (tdep
->ppc_cr_regnum
, regp
+ PT_CCR
);
499 if ((regno
== -1) || regno
== tdep
->ppc_xer_regnum
)
500 regcache_collect (tdep
->ppc_xer_regnum
, regp
+ PT_XER
);
501 if ((regno
== -1) || regno
== tdep
->ppc_ctr_regnum
)
502 regcache_collect (tdep
->ppc_ctr_regnum
, regp
+ PT_CTR
);
503 if ((regno
== -1) || regno
== tdep
->ppc_mq_regnum
)
504 regcache_collect (tdep
->ppc_mq_regnum
, regp
+ PT_MQ
);
505 if ((regno
== -1) || regno
== tdep
->ppc_ps_regnum
)
506 regcache_collect (tdep
->ppc_ps_regnum
, regp
+ PT_MSR
);
510 supply_fpregset (gdb_fpregset_t
* fpregsetp
)
514 for (regi
= 0; regi
< 32; regi
++)
515 supply_register (FP0_REGNUM
+ regi
, (char *) (*fpregsetp
+ regi
));
518 /* Given a pointer to a floating point register set in /proc format
519 (fpregset_t *), update the register specified by REGNO from gdb's
520 idea of the current floating point register set. If REGNO is -1,
523 fill_fpregset (gdb_fpregset_t
*fpregsetp
, int regno
)
527 for (regi
= 0; regi
< 32; regi
++)
529 if ((regno
== -1) || (regno
== FP0_REGNUM
+ regi
))
530 regcache_collect (FP0_REGNUM
+ regi
, (char *) (*fpregsetp
+ regi
));
This page took 0.040911 seconds and 4 git commands to generate.