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
)
152 if (regno
== tdep
->ppc_fpscr_regnum
)
153 u_addr
= PT_FPSCR
* 4;
159 ppc_ptrace_cannot_fetch_store_register (int regno
)
161 return (ppc_register_u_addr (regno
) == -1);
164 /* The Linux kernel ptrace interface for AltiVec registers uses the
165 registers set mechanism, as opposed to the interface for all the
166 other registers, that stores/fetches each register individually. */
168 fetch_altivec_register (int tid
, int regno
)
173 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
174 int vrregsize
= REGISTER_RAW_SIZE (tdep
->ppc_vr0_regnum
);
176 ret
= ptrace (PTRACE_GETVRREGS
, tid
, 0, ®s
);
181 have_ptrace_getvrregs
= 0;
184 perror_with_name ("Unable to fetch AltiVec register");
187 /* VSCR is fetched as a 16 bytes quantity, but it is really 4 bytes
188 long on the hardware. We deal only with the lower 4 bytes of the
189 vector. VRSAVE is at the end of the array in a 4 bytes slot, so
190 there is no need to define an offset for it. */
191 if (regno
== (tdep
->ppc_vrsave_regnum
- 1))
192 offset
= vrregsize
- REGISTER_RAW_SIZE (tdep
->ppc_vrsave_regnum
);
194 supply_register (regno
,
195 regs
+ (regno
- tdep
->ppc_vr0_regnum
) * vrregsize
+ offset
);
199 fetch_register (int tid
, int regno
)
201 /* This isn't really an address. But ptrace thinks of it as one. */
202 char mess
[128]; /* For messages */
204 unsigned int offset
; /* Offset of registers within the u area. */
205 char *buf
= alloca (MAX_REGISTER_RAW_SIZE
);
206 CORE_ADDR regaddr
= ppc_register_u_addr (regno
);
208 if (altivec_register_p (regno
))
210 /* If this is the first time through, or if it is not the first
211 time through, and we have comfirmed that there is kernel
212 support for such a ptrace request, then go and fetch the
214 if (have_ptrace_getvrregs
)
216 fetch_altivec_register (tid
, regno
);
219 /* If we have discovered that there is no ptrace support for
220 AltiVec registers, fall through and return zeroes, because
221 regaddr will be -1 in this case. */
226 memset (buf
, '\0', REGISTER_RAW_SIZE (regno
)); /* Supply zeroes */
227 supply_register (regno
, buf
);
231 for (i
= 0; i
< REGISTER_RAW_SIZE (regno
); i
+= sizeof (PTRACE_XFER_TYPE
))
234 *(PTRACE_XFER_TYPE
*) & buf
[i
] = ptrace (PT_READ_U
, tid
,
235 (PTRACE_ARG3_TYPE
) regaddr
, 0);
236 regaddr
+= sizeof (PTRACE_XFER_TYPE
);
239 sprintf (mess
, "reading register %s (#%d)",
240 REGISTER_NAME (regno
), regno
);
241 perror_with_name (mess
);
244 supply_register (regno
, buf
);
248 supply_vrregset (gdb_vrregset_t
*vrregsetp
)
251 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
252 int num_of_vrregs
= tdep
->ppc_vrsave_regnum
- tdep
->ppc_vr0_regnum
+ 1;
253 int vrregsize
= REGISTER_RAW_SIZE (tdep
->ppc_vr0_regnum
);
254 int offset
= vrregsize
- REGISTER_RAW_SIZE (tdep
->ppc_vrsave_regnum
);
256 for (i
= 0; i
< num_of_vrregs
; i
++)
258 /* The last 2 registers of this set are only 32 bit long, not
259 128. However an offset is necessary only for VSCR because it
260 occupies a whole vector, while VRSAVE occupies a full 4 bytes
262 if (i
== (num_of_vrregs
- 2))
263 supply_register (tdep
->ppc_vr0_regnum
+ i
,
264 *vrregsetp
+ i
* vrregsize
+ offset
);
266 supply_register (tdep
->ppc_vr0_regnum
+ i
, *vrregsetp
+ i
* vrregsize
);
271 fetch_altivec_registers (int tid
)
276 ret
= ptrace (PTRACE_GETVRREGS
, tid
, 0, ®s
);
281 have_ptrace_getvrregs
= 0;
284 perror_with_name ("Unable to fetch AltiVec registers");
286 supply_vrregset (®s
);
290 fetch_ppc_registers (int tid
)
293 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
295 for (i
= 0; i
<= tdep
->ppc_fpscr_regnum
; i
++)
296 fetch_register (tid
, i
);
297 if (tdep
->ppc_mq_regnum
!= -1)
298 fetch_register (tid
, tdep
->ppc_mq_regnum
);
299 if (have_ptrace_getvrregs
)
300 if (tdep
->ppc_vr0_regnum
!= -1 && tdep
->ppc_vrsave_regnum
!= -1)
301 fetch_altivec_registers (tid
);
304 /* Fetch registers from the child process. Fetch all registers if
305 regno == -1, otherwise fetch all general registers or all floating
306 point registers depending upon the value of regno. */
308 fetch_inferior_registers (int regno
)
310 /* Overload thread id onto process id */
311 int tid
= TIDGET (inferior_ptid
);
313 /* No thread id, just use process id */
315 tid
= PIDGET (inferior_ptid
);
318 fetch_ppc_registers (tid
);
320 fetch_register (tid
, regno
);
323 /* Store one register. */
325 store_altivec_register (int tid
, int regno
)
330 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
331 int vrregsize
= REGISTER_RAW_SIZE (tdep
->ppc_vr0_regnum
);
333 ret
= ptrace (PTRACE_GETVRREGS
, tid
, 0, ®s
);
338 have_ptrace_getvrregs
= 0;
341 perror_with_name ("Unable to fetch AltiVec register");
344 /* VSCR is fetched as a 16 bytes quantity, but it is really 4 bytes
345 long on the hardware. */
346 if (regno
== (tdep
->ppc_vrsave_regnum
- 1))
347 offset
= vrregsize
- REGISTER_RAW_SIZE (tdep
->ppc_vrsave_regnum
);
349 regcache_collect (regno
,
350 regs
+ (regno
- tdep
->ppc_vr0_regnum
) * vrregsize
+ offset
);
352 ret
= ptrace (PTRACE_SETVRREGS
, tid
, 0, ®s
);
354 perror_with_name ("Unable to store AltiVec register");
358 store_register (int tid
, int regno
)
360 /* This isn't really an address. But ptrace thinks of it as one. */
361 CORE_ADDR regaddr
= ppc_register_u_addr (regno
);
362 char mess
[128]; /* For messages */
364 unsigned int offset
; /* Offset of registers within the u area. */
365 char *buf
= alloca (MAX_REGISTER_RAW_SIZE
);
367 if (altivec_register_p (regno
))
369 store_altivec_register (tid
, regno
);
376 regcache_collect (regno
, buf
);
377 for (i
= 0; i
< REGISTER_RAW_SIZE (regno
); i
+= sizeof (PTRACE_XFER_TYPE
))
380 ptrace (PT_WRITE_U
, tid
, (PTRACE_ARG3_TYPE
) regaddr
,
381 *(PTRACE_XFER_TYPE
*) & buf
[i
]);
382 regaddr
+= sizeof (PTRACE_XFER_TYPE
);
385 && regno
== gdbarch_tdep (current_gdbarch
)->ppc_fpscr_regnum
)
387 /* Some older kernel versions don't allow fpscr to be written. */
393 sprintf (mess
, "writing register %s (#%d)",
394 REGISTER_NAME (regno
), regno
);
395 perror_with_name (mess
);
401 fill_vrregset (gdb_vrregset_t
*vrregsetp
)
404 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
405 int num_of_vrregs
= tdep
->ppc_vrsave_regnum
- tdep
->ppc_vr0_regnum
+ 1;
406 int vrregsize
= REGISTER_RAW_SIZE (tdep
->ppc_vr0_regnum
);
407 int offset
= vrregsize
- REGISTER_RAW_SIZE (tdep
->ppc_vrsave_regnum
);
409 for (i
= 0; i
< num_of_vrregs
; i
++)
411 /* The last 2 registers of this set are only 32 bit long, not
412 128, but only VSCR is fetched as a 16 bytes quantity. */
413 if (i
== (num_of_vrregs
- 2))
414 regcache_collect (tdep
->ppc_vr0_regnum
+ i
,
415 *vrregsetp
+ i
* vrregsize
+ offset
);
417 regcache_collect (tdep
->ppc_vr0_regnum
+ i
, *vrregsetp
+ i
* vrregsize
);
422 store_altivec_registers (int tid
)
427 ret
= ptrace (PTRACE_GETVRREGS
, tid
, 0, (int) ®s
);
432 have_ptrace_getvrregs
= 0;
435 perror_with_name ("Couldn't get AltiVec registers");
438 fill_vrregset (®s
);
440 if (ptrace (PTRACE_SETVRREGS
, tid
, 0, (int) ®s
) < 0)
441 perror_with_name ("Couldn't write AltiVec registers");
445 store_ppc_registers (int tid
)
448 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
450 for (i
= 0; i
<= tdep
->ppc_fpscr_regnum
; i
++)
451 store_register (tid
, i
);
452 if (tdep
->ppc_mq_regnum
!= -1)
453 store_register (tid
, tdep
->ppc_mq_regnum
);
454 if (have_ptrace_getvrregs
)
455 if (tdep
->ppc_vr0_regnum
!= -1 && tdep
->ppc_vrsave_regnum
!= -1)
456 store_altivec_registers (tid
);
460 store_inferior_registers (int regno
)
462 /* Overload thread id onto process id */
463 int tid
= TIDGET (inferior_ptid
);
465 /* No thread id, just use process id */
467 tid
= PIDGET (inferior_ptid
);
470 store_register (tid
, regno
);
472 store_ppc_registers (tid
);
476 supply_gregset (gdb_gregset_t
*gregsetp
)
478 ppc_linux_supply_gregset ((char *) gregsetp
);
482 fill_gregset (gdb_gregset_t
*gregsetp
, int regno
)
485 elf_greg_t
*regp
= (elf_greg_t
*) gregsetp
;
486 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
488 for (regi
= 0; regi
< 32; regi
++)
490 if ((regno
== -1) || regno
== regi
)
491 regcache_collect (regi
, regp
+ PT_R0
+ regi
);
494 if ((regno
== -1) || regno
== PC_REGNUM
)
495 regcache_collect (PC_REGNUM
, regp
+ PT_NIP
);
496 if ((regno
== -1) || regno
== tdep
->ppc_lr_regnum
)
497 regcache_collect (tdep
->ppc_lr_regnum
, regp
+ PT_LNK
);
498 if ((regno
== -1) || regno
== tdep
->ppc_cr_regnum
)
499 regcache_collect (tdep
->ppc_cr_regnum
, regp
+ PT_CCR
);
500 if ((regno
== -1) || regno
== tdep
->ppc_xer_regnum
)
501 regcache_collect (tdep
->ppc_xer_regnum
, regp
+ PT_XER
);
502 if ((regno
== -1) || regno
== tdep
->ppc_ctr_regnum
)
503 regcache_collect (tdep
->ppc_ctr_regnum
, regp
+ PT_CTR
);
504 if (((regno
== -1) || regno
== tdep
->ppc_mq_regnum
)
505 && (tdep
->ppc_mq_regnum
!= -1))
506 regcache_collect (tdep
->ppc_mq_regnum
, regp
+ PT_MQ
);
507 if ((regno
== -1) || regno
== tdep
->ppc_ps_regnum
)
508 regcache_collect (tdep
->ppc_ps_regnum
, regp
+ PT_MSR
);
512 supply_fpregset (gdb_fpregset_t
* fpregsetp
)
514 ppc_linux_supply_fpregset ((char *) fpregsetp
);
517 /* Given a pointer to a floating point register set in /proc format
518 (fpregset_t *), update the register specified by REGNO from gdb's
519 idea of the current floating point register set. If REGNO is -1,
522 fill_fpregset (gdb_fpregset_t
*fpregsetp
, int regno
)
525 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
527 for (regi
= 0; regi
< 32; regi
++)
529 if ((regno
== -1) || (regno
== FP0_REGNUM
+ regi
))
530 regcache_collect (FP0_REGNUM
+ regi
, (char *) (*fpregsetp
+ regi
));
532 if ((regno
== -1) || regno
== tdep
->ppc_fpscr_regnum
)
533 regcache_collect (tdep
->ppc_fpscr_regnum
, (char *) (*fpregsetp
+ regi
));
This page took 0.0546 seconds and 4 git commands to generate.