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);