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 2 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, write to the Free Software
20 Foundation, Inc., 51 Franklin Street, Fifth Floor,
21 Boston, MA 02110-1301, USA. */
29 #include "gdb_string.h"
30 #include <sys/types.h>
31 #include <sys/ptrace.h>
32 #include <machine/reg.h>
33 #include <machine/frame.h>
36 #include "inf-ptrace.h"
38 extern int arm_apcs_32
;
41 arm_supply_gregset (struct regcache
*regcache
, struct reg
*gregset
)
46 /* Integer registers. */
47 for (regno
= ARM_A1_REGNUM
; regno
< ARM_SP_REGNUM
; regno
++)
48 regcache_raw_supply (regcache
, regno
, (char *) &gregset
->r
[regno
]);
50 regcache_raw_supply (regcache
, ARM_SP_REGNUM
,
51 (char *) &gregset
->r_sp
);
52 regcache_raw_supply (regcache
, ARM_LR_REGNUM
,
53 (char *) &gregset
->r_lr
);
54 /* This is ok: we're running native... */
55 r_pc
= gdbarch_addr_bits_remove (current_gdbarch
, gregset
->r_pc
);
56 regcache_raw_supply (regcache
, ARM_PC_REGNUM
, (char *) &r_pc
);
59 regcache_raw_supply (regcache
, ARM_PS_REGNUM
,
60 (char *) &gregset
->r_cpsr
);
62 regcache_raw_supply (regcache
, ARM_PS_REGNUM
,
63 (char *) &gregset
->r_pc
);
67 arm_supply_fparegset (struct regcache
*regcache
, struct fpreg
*fparegset
)
71 for (regno
= ARM_F0_REGNUM
; regno
<= ARM_F7_REGNUM
; regno
++)
72 regcache_raw_supply (regcache
, regno
,
73 (char *) &fparegset
->fpr
[regno
- ARM_F0_REGNUM
]);
75 regcache_raw_supply (regcache
, ARM_FPS_REGNUM
,
76 (char *) &fparegset
->fpr_fpsr
);
80 fetch_register (struct regcache
*regcache
, int regno
)
82 struct reg inferior_registers
;
85 ret
= ptrace (PT_GETREGS
, PIDGET (inferior_ptid
),
86 (PTRACE_TYPE_ARG3
) &inferior_registers
, 0);
90 warning (_("unable to fetch general register"));
97 regcache_raw_supply (regcache
, ARM_SP_REGNUM
,
98 (char *) &inferior_registers
.r_sp
);
102 regcache_raw_supply (regcache
, ARM_LR_REGNUM
,
103 (char *) &inferior_registers
.r_lr
);
107 /* This is ok: we're running native... */
108 inferior_registers
.r_pc
= gdbarch_addr_bits_remove
109 (current_gdbarch
, inferior_registers
.r_pc
);
110 regcache_raw_supply (regcache
, ARM_PC_REGNUM
,
111 (char *) &inferior_registers
.r_pc
);
116 regcache_raw_supply (regcache
, ARM_PS_REGNUM
,
117 (char *) &inferior_registers
.r_cpsr
);
119 regcache_raw_supply (regcache
, ARM_PS_REGNUM
,
120 (char *) &inferior_registers
.r_pc
);
124 regcache_raw_supply (regcache
, regno
,
125 (char *) &inferior_registers
.r
[regno
]);
131 fetch_regs (struct regcache
*regcache
)
133 struct reg inferior_registers
;
137 ret
= ptrace (PT_GETREGS
, PIDGET (inferior_ptid
),
138 (PTRACE_TYPE_ARG3
) &inferior_registers
, 0);
142 warning (_("unable to fetch general registers"));
146 arm_supply_gregset (regcache
, &inferior_registers
);
150 fetch_fp_register (struct regcache
*regcache
, int regno
)
152 struct fpreg inferior_fp_registers
;
155 ret
= ptrace (PT_GETFPREGS
, PIDGET (inferior_ptid
),
156 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
160 warning (_("unable to fetch floating-point register"));
167 regcache_raw_supply (regcache
, ARM_FPS_REGNUM
,
168 (char *) &inferior_fp_registers
.fpr_fpsr
);
172 regcache_raw_supply (regcache
, regno
,
173 (char *) &inferior_fp_registers
.fpr
[regno
- ARM_F0_REGNUM
]);
179 fetch_fp_regs (struct regcache
*regcache
)
181 struct fpreg inferior_fp_registers
;
185 ret
= ptrace (PT_GETFPREGS
, PIDGET (inferior_ptid
),
186 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
190 warning (_("unable to fetch general registers"));
194 arm_supply_fparegset (regcache
, &inferior_fp_registers
);
198 armnbsd_fetch_registers (struct regcache
*regcache
, int regno
)
202 if (regno
< ARM_F0_REGNUM
|| regno
> ARM_FPS_REGNUM
)
203 fetch_register (regcache
, regno
);
205 fetch_fp_register (regcache
, regno
);
209 fetch_regs (regcache
);
210 fetch_fp_regs (regcache
);
216 store_register (const struct regcache
*regcache
, int regno
)
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 (current_gdbarch
, pc_val
);
254 inferior_registers
.r_pc
^= gdbarch_addr_bits_remove
256 inferior_registers
.r_pc
);
257 inferior_registers
.r_pc
|= pc_val
;
263 regcache_raw_collect (regcache
, ARM_PS_REGNUM
,
264 (char *) &inferior_registers
.r_cpsr
);
269 regcache_raw_collect (regcache
, ARM_PS_REGNUM
,
272 psr_val
^= gdbarch_addr_bits_remove (current_gdbarch
, psr_val
);
273 inferior_registers
.r_pc
= gdbarch_addr_bits_remove
275 inferior_registers
.r_pc
);
276 inferior_registers
.r_pc
|= psr_val
;
281 regcache_raw_collect (regcache
, regno
,
282 (char *) &inferior_registers
.r
[regno
]);
286 ret
= ptrace (PT_SETREGS
, PIDGET (inferior_ptid
),
287 (PTRACE_TYPE_ARG3
) &inferior_registers
, 0);
290 warning (_("unable to write register %d to inferior"), regno
);
294 store_regs (const struct regcache
*regcache
)
296 struct reg inferior_registers
;
301 for (regno
= ARM_A1_REGNUM
; regno
< ARM_SP_REGNUM
; regno
++)
302 regcache_raw_collect (regcache
, regno
,
303 (char *) &inferior_registers
.r
[regno
]);
305 regcache_raw_collect (regcache
, ARM_SP_REGNUM
,
306 (char *) &inferior_registers
.r_sp
);
307 regcache_raw_collect (regcache
, ARM_LR_REGNUM
,
308 (char *) &inferior_registers
.r_lr
);
312 regcache_raw_collect (regcache
, ARM_PC_REGNUM
,
313 (char *) &inferior_registers
.r_pc
);
314 regcache_raw_collect (regcache
, ARM_PS_REGNUM
,
315 (char *) &inferior_registers
.r_cpsr
);
322 regcache_raw_collect (regcache
, ARM_PC_REGNUM
,
324 regcache_raw_collect (regcache
, ARM_PS_REGNUM
,
327 pc_val
= gdbarch_addr_bits_remove (current_gdbarch
, pc_val
);
328 psr_val
^= gdbarch_addr_bits_remove (current_gdbarch
, psr_val
);
330 inferior_registers
.r_pc
= pc_val
| psr_val
;
333 ret
= ptrace (PT_SETREGS
, PIDGET (inferior_ptid
),
334 (PTRACE_TYPE_ARG3
) &inferior_registers
, 0);
337 warning (_("unable to store general registers"));
341 store_fp_register (const struct regcache
*regcache
, int regno
)
343 struct fpreg inferior_fp_registers
;
346 ret
= ptrace (PT_GETFPREGS
, PIDGET (inferior_ptid
),
347 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
351 warning (_("unable to fetch floating-point registers"));
358 regcache_raw_collect (regcache
, ARM_FPS_REGNUM
,
359 (char *) &inferior_fp_registers
.fpr_fpsr
);
363 regcache_raw_collect (regcache
, regno
,
364 (char *) &inferior_fp_registers
.fpr
[regno
- ARM_F0_REGNUM
]);
368 ret
= ptrace (PT_SETFPREGS
, PIDGET (inferior_ptid
),
369 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
372 warning (_("unable to write register %d to inferior"), regno
);
376 store_fp_regs (const struct regcache
*regcache
)
378 struct fpreg inferior_fp_registers
;
383 for (regno
= ARM_F0_REGNUM
; regno
<= ARM_F7_REGNUM
; regno
++)
384 regcache_raw_collect (regcache
, regno
,
385 (char *) &inferior_fp_registers
.fpr
[regno
- ARM_F0_REGNUM
]);
387 regcache_raw_collect (regcache
, ARM_FPS_REGNUM
,
388 (char *) &inferior_fp_registers
.fpr_fpsr
);
390 ret
= ptrace (PT_SETFPREGS
, PIDGET (inferior_ptid
),
391 (PTRACE_TYPE_ARG3
) &inferior_fp_registers
, 0);
394 warning (_("unable to store floating-point registers"));
398 armnbsd_store_registers (struct regcache
*regcache
, int regno
)
402 if (regno
< ARM_F0_REGNUM
|| regno
> ARM_FPS_REGNUM
)
403 store_register (regcache
, regno
);
405 store_fp_register (regcache
, regno
);
409 store_regs (regcache
);
410 store_fp_regs (regcache
);
421 fetch_core_registers (struct regcache
*regcache
,
422 char *core_reg_sect
, unsigned core_reg_size
,
423 int which
, CORE_ADDR ignore
)
425 struct md_core
*core_reg
= (struct md_core
*) core_reg_sect
;
429 arm_supply_gregset (regcache
, &core_reg
->intreg
);
430 arm_supply_fparegset (regcache
, &core_reg
->freg
);
434 fetch_elfcore_registers (struct regcache
*regcache
,
435 char *core_reg_sect
, unsigned core_reg_size
,
436 int which
, CORE_ADDR ignore
)
439 struct fpreg fparegset
;
443 case 0: /* Integer registers. */
444 if (core_reg_size
!= sizeof (struct reg
))
445 warning (_("wrong size of register set in core file"));
448 /* The memcpy may be unnecessary, but we can't really be sure
449 of the alignment of the data in the core file. */
450 memcpy (&gregset
, core_reg_sect
, sizeof (gregset
));
451 arm_supply_gregset (regcache
, &gregset
);
456 if (core_reg_size
!= sizeof (struct fpreg
))
457 warning (_("wrong size of FPA register set in core file"));
460 /* The memcpy may be unnecessary, but we can't really be sure
461 of the alignment of the data in the core file. */
462 memcpy (&fparegset
, core_reg_sect
, sizeof (fparegset
));
463 arm_supply_fparegset (regcache
, &fparegset
);
468 /* Don't know what kind of register request this is; just ignore it. */
473 static struct core_fns arm_netbsd_core_fns
=
475 bfd_target_unknown_flavour
, /* core_flovour. */
476 default_check_format
, /* check_format. */
477 default_core_sniffer
, /* core_sniffer. */
478 fetch_core_registers
, /* core_read_registers. */
482 static struct core_fns arm_netbsd_elfcore_fns
=
484 bfd_target_elf_flavour
, /* core_flovour. */
485 default_check_format
, /* check_format. */
486 default_core_sniffer
, /* core_sniffer. */
487 fetch_elfcore_registers
, /* core_read_registers. */
492 _initialize_arm_netbsd_nat (void)
494 struct target_ops
*t
;
496 t
= inf_ptrace_target ();
497 t
->to_fetch_registers
= armnbsd_fetch_registers
;
498 t
->to_store_registers
= armnbsd_store_registers
;
501 deprecated_add_core_fns (&arm_netbsd_core_fns
);
502 deprecated_add_core_fns (&arm_netbsd_elfcore_fns
);