1 /* Native-dependent code for BSD Unix running on ARM's, for GDB.
3 Copyright (C) 1988, 1989, 1991, 1992, 1994, 1996, 1999, 2002, 2004, 2007,
4 2008 Free Software Foundation, Inc.
6 This file is part of GDB.
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 3 of the License, or
11 (at your option) any later version.
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.
18 You should have received a copy of the GNU General Public License
19 along with this program. If not, see <http://www.gnu.org/licenses/>. */
27 #include "gdb_string.h"
28 #include <sys/types.h>
29 #include <sys/ptrace.h>
30 #include <machine/reg.h>
31 #include <machine/frame.h>
34 #include "inf-ptrace.h"
36 extern int arm_apcs_32
;
39 arm_supply_gregset (struct regcache
*regcache
, struct reg
*gregset
)
44 /* Integer registers. */
45 for (regno
= ARM_A1_REGNUM
; regno
< ARM_SP_REGNUM
; regno
++)
46 regcache_raw_supply (regcache
, regno
, (char *) &gregset
->r
[regno
]);
48 regcache_raw_supply (regcache
, ARM_SP_REGNUM
,
49 (char *) &gregset
->r_sp
);
50 regcache_raw_supply (regcache
, ARM_LR_REGNUM
,
51 (char *) &gregset
->r_lr
);
52 /* This is ok: we're running native... */
53 r_pc
= gdbarch_addr_bits_remove (get_regcache_arch (regcache
), gregset
->r_pc
);
54 regcache_raw_supply (regcache
, ARM_PC_REGNUM
, (char *) &r_pc
);
57 regcache_raw_supply (regcache
, ARM_PS_REGNUM
,
58 (char *) &gregset
->r_cpsr
);
60 regcache_raw_supply (regcache
, ARM_PS_REGNUM
,
61 (char *) &gregset
->r_pc
);
65 arm_supply_fparegset (struct regcache
*regcache
, struct fpreg
*fparegset
)
69 for (regno
= ARM_F0_REGNUM
; regno
<= ARM_F7_REGNUM
; regno
++)
70 regcache_raw_supply (regcache
, regno
,
71 (char *) &fparegset
->fpr
[regno
- ARM_F0_REGNUM
]);
73 regcache_raw_supply (regcache
, ARM_FPS_REGNUM
,
74 (char *) &fparegset
->fpr_fpsr
);
78 fetch_register (struct regcache
*regcache
, int regno
)
80 struct reg inferior_registers
;
83 ret
= ptrace (PT_GETREGS
, PIDGET (inferior_ptid
),
84 (PTRACE_TYPE_ARG3
) &inferior_registers
, 0);
88 warning (_("unable to fetch general register"));
95 regcache_raw_supply (regcache
, ARM_SP_REGNUM
,
96 (char *) &inferior_registers
.r_sp
);
100 regcache_raw_supply (regcache
, ARM_LR_REGNUM
,
101 (char *) &inferior_registers
.r_lr
);
105 /* This is ok: we're running native... */
106 inferior_registers
.r_pc
= gdbarch_addr_bits_remove
107 (get_regcache_arch (regcache
),
108 inferior_registers
.r_pc
);
109 regcache_raw_supply (regcache
, ARM_PC_REGNUM
,
110 (char *) &inferior_registers
.r_pc
);
115 regcache_raw_supply (regcache
, ARM_PS_REGNUM
,
116 (char *) &inferior_registers
.r_cpsr
);
118 regcache_raw_supply (regcache
, ARM_PS_REGNUM
,
119 (char *) &inferior_registers
.r_pc
);
123 regcache_raw_supply (regcache
, regno
,
124 (char *) &inferior_registers
.r
[regno
]);
130 fetch_regs (struct regcache
*regcache
)
132 struct reg inferior_registers
;
136 ret
= ptrace (PT_GETREGS
, PIDGET (inferior_ptid
),
137 (PTRACE_TYPE_ARG3
) &inferior_registers
, 0);
141 warning (_("unable to fetch general registers"));
145 arm_supply_gregset (regcache
, &inferior_registers
);
149 fetch_fp_register (struct regcache
*regcache
, int regno
)
151 struct fpreg inferior_fp_registers
;
154 ret
= ptrace (PT_GETFPREGS
, PIDGET (inferior_ptid
),
155 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
159 warning (_("unable to fetch floating-point register"));
166 regcache_raw_supply (regcache
, ARM_FPS_REGNUM
,
167 (char *) &inferior_fp_registers
.fpr_fpsr
);
171 regcache_raw_supply (regcache
, regno
,
172 (char *) &inferior_fp_registers
.fpr
[regno
- ARM_F0_REGNUM
]);
178 fetch_fp_regs (struct regcache
*regcache
)
180 struct fpreg inferior_fp_registers
;
184 ret
= ptrace (PT_GETFPREGS
, PIDGET (inferior_ptid
),
185 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
189 warning (_("unable to fetch general registers"));
193 arm_supply_fparegset (regcache
, &inferior_fp_registers
);
197 armnbsd_fetch_registers (struct regcache
*regcache
, int regno
)
201 if (regno
< ARM_F0_REGNUM
|| regno
> ARM_FPS_REGNUM
)
202 fetch_register (regcache
, regno
);
204 fetch_fp_register (regcache
, regno
);
208 fetch_regs (regcache
);
209 fetch_fp_regs (regcache
);
215 store_register (const struct regcache
*regcache
, int regno
)
217 struct gdbarch
*gdbarch
= get_regcache_arch (regcache
);
218 struct reg inferior_registers
;
221 ret
= ptrace (PT_GETREGS
, PIDGET (inferior_ptid
),
222 (PTRACE_TYPE_ARG3
) &inferior_registers
, 0);
226 warning (_("unable to fetch general registers"));
233 regcache_raw_collect (regcache
, ARM_SP_REGNUM
,
234 (char *) &inferior_registers
.r_sp
);
238 regcache_raw_collect (regcache
, ARM_LR_REGNUM
,
239 (char *) &inferior_registers
.r_lr
);
244 regcache_raw_collect (regcache
, ARM_PC_REGNUM
,
245 (char *) &inferior_registers
.r_pc
);
250 regcache_raw_collect (regcache
, ARM_PC_REGNUM
,
253 pc_val
= gdbarch_addr_bits_remove (gdbarch
, pc_val
);
254 inferior_registers
.r_pc
^= gdbarch_addr_bits_remove
255 (gdbarch
, inferior_registers
.r_pc
);
256 inferior_registers
.r_pc
|= pc_val
;
262 regcache_raw_collect (regcache
, ARM_PS_REGNUM
,
263 (char *) &inferior_registers
.r_cpsr
);
268 regcache_raw_collect (regcache
, ARM_PS_REGNUM
,
271 psr_val
^= gdbarch_addr_bits_remove (gdbarch
, psr_val
);
272 inferior_registers
.r_pc
= gdbarch_addr_bits_remove
273 (gdbarch
, inferior_registers
.r_pc
);
274 inferior_registers
.r_pc
|= psr_val
;
279 regcache_raw_collect (regcache
, regno
,
280 (char *) &inferior_registers
.r
[regno
]);
284 ret
= ptrace (PT_SETREGS
, PIDGET (inferior_ptid
),
285 (PTRACE_TYPE_ARG3
) &inferior_registers
, 0);
288 warning (_("unable to write register %d to inferior"), regno
);
292 store_regs (const struct regcache
*regcache
)
294 struct gdbarch
*gdbarch
= get_regcache_arch (regcache
);
295 struct reg inferior_registers
;
300 for (regno
= ARM_A1_REGNUM
; regno
< ARM_SP_REGNUM
; regno
++)
301 regcache_raw_collect (regcache
, regno
,
302 (char *) &inferior_registers
.r
[regno
]);
304 regcache_raw_collect (regcache
, ARM_SP_REGNUM
,
305 (char *) &inferior_registers
.r_sp
);
306 regcache_raw_collect (regcache
, ARM_LR_REGNUM
,
307 (char *) &inferior_registers
.r_lr
);
311 regcache_raw_collect (regcache
, ARM_PC_REGNUM
,
312 (char *) &inferior_registers
.r_pc
);
313 regcache_raw_collect (regcache
, ARM_PS_REGNUM
,
314 (char *) &inferior_registers
.r_cpsr
);
321 regcache_raw_collect (regcache
, ARM_PC_REGNUM
,
323 regcache_raw_collect (regcache
, ARM_PS_REGNUM
,
326 pc_val
= gdbarch_addr_bits_remove (gdbarch
, pc_val
);
327 psr_val
^= gdbarch_addr_bits_remove (gdbarch
, psr_val
);
329 inferior_registers
.r_pc
= pc_val
| psr_val
;
332 ret
= ptrace (PT_SETREGS
, PIDGET (inferior_ptid
),
333 (PTRACE_TYPE_ARG3
) &inferior_registers
, 0);
336 warning (_("unable to store general registers"));
340 store_fp_register (const struct regcache
*regcache
, int regno
)
342 struct fpreg inferior_fp_registers
;
345 ret
= ptrace (PT_GETFPREGS
, PIDGET (inferior_ptid
),
346 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
350 warning (_("unable to fetch floating-point registers"));
357 regcache_raw_collect (regcache
, ARM_FPS_REGNUM
,
358 (char *) &inferior_fp_registers
.fpr_fpsr
);
362 regcache_raw_collect (regcache
, regno
,
363 (char *) &inferior_fp_registers
.fpr
[regno
- ARM_F0_REGNUM
]);
367 ret
= ptrace (PT_SETFPREGS
, PIDGET (inferior_ptid
),
368 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
371 warning (_("unable to write register %d to inferior"), regno
);
375 store_fp_regs (const struct regcache
*regcache
)
377 struct fpreg inferior_fp_registers
;
382 for (regno
= ARM_F0_REGNUM
; regno
<= ARM_F7_REGNUM
; regno
++)
383 regcache_raw_collect (regcache
, regno
,
384 (char *) &inferior_fp_registers
.fpr
[regno
- ARM_F0_REGNUM
]);
386 regcache_raw_collect (regcache
, ARM_FPS_REGNUM
,
387 (char *) &inferior_fp_registers
.fpr_fpsr
);
389 ret
= ptrace (PT_SETFPREGS
, PIDGET (inferior_ptid
),
390 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
393 warning (_("unable to store floating-point registers"));
397 armnbsd_store_registers (struct regcache
*regcache
, int regno
)
401 if (regno
< ARM_F0_REGNUM
|| regno
> ARM_FPS_REGNUM
)
402 store_register (regcache
, regno
);
404 store_fp_register (regcache
, regno
);
408 store_regs (regcache
);
409 store_fp_regs (regcache
);
420 fetch_core_registers (struct regcache
*regcache
,
421 char *core_reg_sect
, unsigned core_reg_size
,
422 int which
, CORE_ADDR ignore
)
424 struct md_core
*core_reg
= (struct md_core
*) core_reg_sect
;
428 arm_supply_gregset (regcache
, &core_reg
->intreg
);
429 arm_supply_fparegset (regcache
, &core_reg
->freg
);
433 fetch_elfcore_registers (struct regcache
*regcache
,
434 char *core_reg_sect
, unsigned core_reg_size
,
435 int which
, CORE_ADDR ignore
)
438 struct fpreg fparegset
;
442 case 0: /* Integer registers. */
443 if (core_reg_size
!= sizeof (struct reg
))
444 warning (_("wrong size of register set in core file"));
447 /* The memcpy may be unnecessary, but we can't really be sure
448 of the alignment of the data in the core file. */
449 memcpy (&gregset
, core_reg_sect
, sizeof (gregset
));
450 arm_supply_gregset (regcache
, &gregset
);
455 if (core_reg_size
!= sizeof (struct fpreg
))
456 warning (_("wrong size of FPA register set in core file"));
459 /* The memcpy may be unnecessary, but we can't really be sure
460 of the alignment of the data in the core file. */
461 memcpy (&fparegset
, core_reg_sect
, sizeof (fparegset
));
462 arm_supply_fparegset (regcache
, &fparegset
);
467 /* Don't know what kind of register request this is; just ignore it. */
472 static struct core_fns arm_netbsd_core_fns
=
474 bfd_target_unknown_flavour
, /* core_flovour. */
475 default_check_format
, /* check_format. */
476 default_core_sniffer
, /* core_sniffer. */
477 fetch_core_registers
, /* core_read_registers. */
481 static struct core_fns arm_netbsd_elfcore_fns
=
483 bfd_target_elf_flavour
, /* core_flovour. */
484 default_check_format
, /* check_format. */
485 default_core_sniffer
, /* core_sniffer. */
486 fetch_elfcore_registers
, /* core_read_registers. */
491 _initialize_arm_netbsd_nat (void)
493 struct target_ops
*t
;
495 t
= inf_ptrace_target ();
496 t
->to_fetch_registers
= armnbsd_fetch_registers
;
497 t
->to_store_registers
= armnbsd_store_registers
;
500 deprecated_add_core_fns (&arm_netbsd_core_fns
);
501 deprecated_add_core_fns (&arm_netbsd_elfcore_fns
);