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 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 (current_gdbarch
, 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 (current_gdbarch
, inferior_registers
.r_pc
);
108 regcache_raw_supply (regcache
, ARM_PC_REGNUM
,
109 (char *) &inferior_registers
.r_pc
);
114 regcache_raw_supply (regcache
, ARM_PS_REGNUM
,
115 (char *) &inferior_registers
.r_cpsr
);
117 regcache_raw_supply (regcache
, ARM_PS_REGNUM
,
118 (char *) &inferior_registers
.r_pc
);
122 regcache_raw_supply (regcache
, regno
,
123 (char *) &inferior_registers
.r
[regno
]);
129 fetch_regs (struct regcache
*regcache
)
131 struct reg inferior_registers
;
135 ret
= ptrace (PT_GETREGS
, PIDGET (inferior_ptid
),
136 (PTRACE_TYPE_ARG3
) &inferior_registers
, 0);
140 warning (_("unable to fetch general registers"));
144 arm_supply_gregset (regcache
, &inferior_registers
);
148 fetch_fp_register (struct regcache
*regcache
, int regno
)
150 struct fpreg inferior_fp_registers
;
153 ret
= ptrace (PT_GETFPREGS
, PIDGET (inferior_ptid
),
154 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
158 warning (_("unable to fetch floating-point register"));
165 regcache_raw_supply (regcache
, ARM_FPS_REGNUM
,
166 (char *) &inferior_fp_registers
.fpr_fpsr
);
170 regcache_raw_supply (regcache
, regno
,
171 (char *) &inferior_fp_registers
.fpr
[regno
- ARM_F0_REGNUM
]);
177 fetch_fp_regs (struct regcache
*regcache
)
179 struct fpreg inferior_fp_registers
;
183 ret
= ptrace (PT_GETFPREGS
, PIDGET (inferior_ptid
),
184 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
188 warning (_("unable to fetch general registers"));
192 arm_supply_fparegset (regcache
, &inferior_fp_registers
);
196 armnbsd_fetch_registers (struct regcache
*regcache
, int regno
)
200 if (regno
< ARM_F0_REGNUM
|| regno
> ARM_FPS_REGNUM
)
201 fetch_register (regcache
, regno
);
203 fetch_fp_register (regcache
, regno
);
207 fetch_regs (regcache
);
208 fetch_fp_regs (regcache
);
214 store_register (const struct regcache
*regcache
, int regno
)
216 struct reg inferior_registers
;
219 ret
= ptrace (PT_GETREGS
, PIDGET (inferior_ptid
),
220 (PTRACE_TYPE_ARG3
) &inferior_registers
, 0);
224 warning (_("unable to fetch general registers"));
231 regcache_raw_collect (regcache
, ARM_SP_REGNUM
,
232 (char *) &inferior_registers
.r_sp
);
236 regcache_raw_collect (regcache
, ARM_LR_REGNUM
,
237 (char *) &inferior_registers
.r_lr
);
242 regcache_raw_collect (regcache
, ARM_PC_REGNUM
,
243 (char *) &inferior_registers
.r_pc
);
248 regcache_raw_collect (regcache
, ARM_PC_REGNUM
,
251 pc_val
= gdbarch_addr_bits_remove (current_gdbarch
, pc_val
);
252 inferior_registers
.r_pc
^= gdbarch_addr_bits_remove
254 inferior_registers
.r_pc
);
255 inferior_registers
.r_pc
|= pc_val
;
261 regcache_raw_collect (regcache
, ARM_PS_REGNUM
,
262 (char *) &inferior_registers
.r_cpsr
);
267 regcache_raw_collect (regcache
, ARM_PS_REGNUM
,
270 psr_val
^= gdbarch_addr_bits_remove (current_gdbarch
, psr_val
);
271 inferior_registers
.r_pc
= gdbarch_addr_bits_remove
273 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 reg inferior_registers
;
299 for (regno
= ARM_A1_REGNUM
; regno
< ARM_SP_REGNUM
; regno
++)
300 regcache_raw_collect (regcache
, regno
,
301 (char *) &inferior_registers
.r
[regno
]);
303 regcache_raw_collect (regcache
, ARM_SP_REGNUM
,
304 (char *) &inferior_registers
.r_sp
);
305 regcache_raw_collect (regcache
, ARM_LR_REGNUM
,
306 (char *) &inferior_registers
.r_lr
);
310 regcache_raw_collect (regcache
, ARM_PC_REGNUM
,
311 (char *) &inferior_registers
.r_pc
);
312 regcache_raw_collect (regcache
, ARM_PS_REGNUM
,
313 (char *) &inferior_registers
.r_cpsr
);
320 regcache_raw_collect (regcache
, ARM_PC_REGNUM
,
322 regcache_raw_collect (regcache
, ARM_PS_REGNUM
,
325 pc_val
= gdbarch_addr_bits_remove (current_gdbarch
, pc_val
);
326 psr_val
^= gdbarch_addr_bits_remove (current_gdbarch
, psr_val
);
328 inferior_registers
.r_pc
= pc_val
| psr_val
;
331 ret
= ptrace (PT_SETREGS
, PIDGET (inferior_ptid
),
332 (PTRACE_TYPE_ARG3
) &inferior_registers
, 0);
335 warning (_("unable to store general registers"));
339 store_fp_register (const struct regcache
*regcache
, int regno
)
341 struct fpreg inferior_fp_registers
;
344 ret
= ptrace (PT_GETFPREGS
, PIDGET (inferior_ptid
),
345 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
349 warning (_("unable to fetch floating-point registers"));
356 regcache_raw_collect (regcache
, ARM_FPS_REGNUM
,
357 (char *) &inferior_fp_registers
.fpr_fpsr
);
361 regcache_raw_collect (regcache
, regno
,
362 (char *) &inferior_fp_registers
.fpr
[regno
- ARM_F0_REGNUM
]);
366 ret
= ptrace (PT_SETFPREGS
, PIDGET (inferior_ptid
),
367 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
370 warning (_("unable to write register %d to inferior"), regno
);
374 store_fp_regs (const struct regcache
*regcache
)
376 struct fpreg inferior_fp_registers
;
381 for (regno
= ARM_F0_REGNUM
; regno
<= ARM_F7_REGNUM
; regno
++)
382 regcache_raw_collect (regcache
, regno
,
383 (char *) &inferior_fp_registers
.fpr
[regno
- ARM_F0_REGNUM
]);
385 regcache_raw_collect (regcache
, ARM_FPS_REGNUM
,
386 (char *) &inferior_fp_registers
.fpr_fpsr
);
388 ret
= ptrace (PT_SETFPREGS
, PIDGET (inferior_ptid
),
389 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
392 warning (_("unable to store floating-point registers"));
396 armnbsd_store_registers (struct regcache
*regcache
, int regno
)
400 if (regno
< ARM_F0_REGNUM
|| regno
> ARM_FPS_REGNUM
)
401 store_register (regcache
, regno
);
403 store_fp_register (regcache
, regno
);
407 store_regs (regcache
);
408 store_fp_regs (regcache
);
419 fetch_core_registers (struct regcache
*regcache
,
420 char *core_reg_sect
, unsigned core_reg_size
,
421 int which
, CORE_ADDR ignore
)
423 struct md_core
*core_reg
= (struct md_core
*) core_reg_sect
;
427 arm_supply_gregset (regcache
, &core_reg
->intreg
);
428 arm_supply_fparegset (regcache
, &core_reg
->freg
);
432 fetch_elfcore_registers (struct regcache
*regcache
,
433 char *core_reg_sect
, unsigned core_reg_size
,
434 int which
, CORE_ADDR ignore
)
437 struct fpreg fparegset
;
441 case 0: /* Integer registers. */
442 if (core_reg_size
!= sizeof (struct reg
))
443 warning (_("wrong size of register set in core file"));
446 /* The memcpy may be unnecessary, but we can't really be sure
447 of the alignment of the data in the core file. */
448 memcpy (&gregset
, core_reg_sect
, sizeof (gregset
));
449 arm_supply_gregset (regcache
, &gregset
);
454 if (core_reg_size
!= sizeof (struct fpreg
))
455 warning (_("wrong size of FPA register set in core file"));
458 /* The memcpy may be unnecessary, but we can't really be sure
459 of the alignment of the data in the core file. */
460 memcpy (&fparegset
, core_reg_sect
, sizeof (fparegset
));
461 arm_supply_fparegset (regcache
, &fparegset
);
466 /* Don't know what kind of register request this is; just ignore it. */
471 static struct core_fns arm_netbsd_core_fns
=
473 bfd_target_unknown_flavour
, /* core_flovour. */
474 default_check_format
, /* check_format. */
475 default_core_sniffer
, /* core_sniffer. */
476 fetch_core_registers
, /* core_read_registers. */
480 static struct core_fns arm_netbsd_elfcore_fns
=
482 bfd_target_elf_flavour
, /* core_flovour. */
483 default_check_format
, /* check_format. */
484 default_core_sniffer
, /* core_sniffer. */
485 fetch_elfcore_registers
, /* core_read_registers. */
490 _initialize_arm_netbsd_nat (void)
492 struct target_ops
*t
;
494 t
= inf_ptrace_target ();
495 t
->to_fetch_registers
= armnbsd_fetch_registers
;
496 t
->to_store_registers
= armnbsd_store_registers
;
499 deprecated_add_core_fns (&arm_netbsd_core_fns
);
500 deprecated_add_core_fns (&arm_netbsd_elfcore_fns
);