1 /* Native-dependent code for BSD Unix running on ARM's, for GDB.
2 Copyright 1988, 1989, 1991, 1992, 1994, 1996, 1999, 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. */
24 #ifndef FETCH_INFERIOR_REGISTERS
25 #error Not FETCH_INFERIOR_REGISTERS
26 #endif /* !FETCH_INFERIOR_REGISTERS */
30 #include <sys/types.h>
31 #include <sys/ptrace.h>
32 #include <machine/reg.h>
33 #include <machine/frame.h>
38 extern int arm_apcs_32
;
41 supply_gregset (struct reg
*gregset
)
46 /* Integer registers. */
47 for (regno
= ARM_A1_REGNUM
; regno
< ARM_SP_REGNUM
; regno
++)
48 regcache_raw_supply (current_regcache
, regno
, (char *) &gregset
->r
[regno
]);
50 regcache_raw_supply (current_regcache
, ARM_SP_REGNUM
,
51 (char *) &gregset
->r_sp
);
52 regcache_raw_supply (current_regcache
, ARM_LR_REGNUM
,
53 (char *) &gregset
->r_lr
);
54 /* This is ok: we're running native... */
55 r_pc
= ADDR_BITS_REMOVE (gregset
->r_pc
);
56 regcache_raw_supply (current_regcache
, ARM_PC_REGNUM
, (char *) &r_pc
);
59 regcache_raw_supply (current_regcache
, ARM_PS_REGNUM
,
60 (char *) &gregset
->r_cpsr
);
62 regcache_raw_supply (current_regcache
, ARM_PS_REGNUM
,
63 (char *) &gregset
->r_pc
);
67 supply_fparegset (struct fpreg
*fparegset
)
71 for (regno
= ARM_F0_REGNUM
; regno
<= ARM_F7_REGNUM
; regno
++)
72 regcache_raw_supply (current_regcache
, regno
,
73 (char *) &fparegset
->fpr
[regno
- ARM_F0_REGNUM
]);
75 regcache_raw_supply (current_regcache
, ARM_FPS_REGNUM
,
76 (char *) &fparegset
->fpr_fpsr
);
80 fetch_register (int regno
)
82 struct reg inferior_registers
;
85 ret
= ptrace (PT_GETREGS
, PIDGET (inferior_ptid
),
86 (PTRACE_ARG3_TYPE
) &inferior_registers
, 0);
90 warning ("unable to fetch general register");
97 regcache_raw_supply (current_regcache
, ARM_SP_REGNUM
,
98 (char *) &inferior_registers
.r_sp
);
102 regcache_raw_supply (current_regcache
, ARM_LR_REGNUM
,
103 (char *) &inferior_registers
.r_lr
);
107 /* This is ok: we're running native... */
108 inferior_registers
.r_pc
= ADDR_BITS_REMOVE (inferior_registers
.r_pc
);
109 regcache_raw_supply (current_regcache
, ARM_PC_REGNUM
,
110 (char *) &inferior_registers
.r_pc
);
115 regcache_raw_supply (current_regcache
, ARM_PS_REGNUM
,
116 (char *) &inferior_registers
.r_cpsr
);
118 regcache_raw_supply (current_regcache
, ARM_PS_REGNUM
,
119 (char *) &inferior_registers
.r_pc
);
123 regcache_raw_supply (current_regcache
, regno
,
124 (char *) &inferior_registers
.r
[regno
]);
132 struct reg inferior_registers
;
136 ret
= ptrace (PT_GETREGS
, PIDGET (inferior_ptid
),
137 (PTRACE_ARG3_TYPE
) &inferior_registers
, 0);
141 warning ("unable to fetch general registers");
145 supply_gregset (&inferior_registers
);
149 fetch_fp_register (int regno
)
151 struct fpreg inferior_fp_registers
;
154 ret
= ptrace (PT_GETFPREGS
, PIDGET (inferior_ptid
),
155 (PTRACE_ARG3_TYPE
) &inferior_fp_registers
, 0);
159 warning ("unable to fetch floating-point register");
166 regcache_raw_supply (current_regcache
, ARM_FPS_REGNUM
,
167 (char *) &inferior_fp_registers
.fpr_fpsr
);
171 regcache_raw_supply (current_regcache
, regno
,
172 (char *) &inferior_fp_registers
.fpr
[regno
- ARM_F0_REGNUM
]);
180 struct fpreg inferior_fp_registers
;
184 ret
= ptrace (PT_GETFPREGS
, PIDGET (inferior_ptid
),
185 (PTRACE_ARG3_TYPE
) &inferior_fp_registers
, 0);
189 warning ("unable to fetch general registers");
193 supply_fparegset (&inferior_fp_registers
);
197 fetch_inferior_registers (int regno
)
201 if (regno
< ARM_F0_REGNUM
|| regno
> ARM_FPS_REGNUM
)
202 fetch_register (regno
);
204 fetch_fp_register (regno
);
215 store_register (int regno
)
217 struct reg inferior_registers
;
220 ret
= ptrace (PT_GETREGS
, PIDGET (inferior_ptid
),
221 (PTRACE_ARG3_TYPE
) &inferior_registers
, 0);
225 warning ("unable to fetch general registers");
232 regcache_collect (ARM_SP_REGNUM
, (char *) &inferior_registers
.r_sp
);
236 regcache_collect (ARM_LR_REGNUM
, (char *) &inferior_registers
.r_lr
);
241 regcache_collect (ARM_PC_REGNUM
, (char *) &inferior_registers
.r_pc
);
246 regcache_collect (ARM_PC_REGNUM
, (char *) &pc_val
);
248 pc_val
= ADDR_BITS_REMOVE (pc_val
);
249 inferior_registers
.r_pc
250 ^= ADDR_BITS_REMOVE (inferior_registers
.r_pc
);
251 inferior_registers
.r_pc
|= pc_val
;
257 regcache_collect (ARM_PS_REGNUM
, (char *) &inferior_registers
.r_cpsr
);
262 regcache_collect (ARM_PS_REGNUM
, (char *) &psr_val
);
264 psr_val
^= ADDR_BITS_REMOVE (psr_val
);
265 inferior_registers
.r_pc
= ADDR_BITS_REMOVE (inferior_registers
.r_pc
);
266 inferior_registers
.r_pc
|= psr_val
;
271 regcache_collect (regno
, (char *) &inferior_registers
.r
[regno
]);
275 ret
= ptrace (PT_SETREGS
, PIDGET (inferior_ptid
),
276 (PTRACE_ARG3_TYPE
) &inferior_registers
, 0);
279 warning ("unable to write register %d to inferior", regno
);
285 struct reg inferior_registers
;
290 for (regno
= ARM_A1_REGNUM
; regno
< ARM_SP_REGNUM
; regno
++)
291 regcache_collect (regno
, (char *) &inferior_registers
.r
[regno
]);
293 regcache_collect (ARM_SP_REGNUM
, (char *) &inferior_registers
.r_sp
);
294 regcache_collect (ARM_LR_REGNUM
, (char *) &inferior_registers
.r_lr
);
298 regcache_collect (ARM_PC_REGNUM
, (char *) &inferior_registers
.r_pc
);
299 regcache_collect (ARM_PS_REGNUM
, (char *) &inferior_registers
.r_cpsr
);
306 regcache_collect (ARM_PC_REGNUM
, (char *) &pc_val
);
307 regcache_collect (ARM_PS_REGNUM
, (char *) &psr_val
);
309 pc_val
= ADDR_BITS_REMOVE (pc_val
);
310 psr_val
^= ADDR_BITS_REMOVE (psr_val
);
312 inferior_registers
.r_pc
= pc_val
| psr_val
;
315 ret
= ptrace (PT_SETREGS
, PIDGET (inferior_ptid
),
316 (PTRACE_ARG3_TYPE
) &inferior_registers
, 0);
319 warning ("unable to store general registers");
323 store_fp_register (int regno
)
325 struct fpreg inferior_fp_registers
;
328 ret
= ptrace (PT_GETFPREGS
, PIDGET (inferior_ptid
),
329 (PTRACE_ARG3_TYPE
) &inferior_fp_registers
, 0);
333 warning ("unable to fetch floating-point registers");
340 regcache_collect (ARM_FPS_REGNUM
,
341 (char *) &inferior_fp_registers
.fpr_fpsr
);
346 (regno
, (char *) &inferior_fp_registers
.fpr
[regno
- ARM_F0_REGNUM
]);
350 ret
= ptrace (PT_SETFPREGS
, PIDGET (inferior_ptid
),
351 (PTRACE_ARG3_TYPE
) &inferior_fp_registers
, 0);
354 warning ("unable to write register %d to inferior", regno
);
360 struct fpreg inferior_fp_registers
;
365 for (regno
= ARM_F0_REGNUM
; regno
<= ARM_F7_REGNUM
; regno
++)
367 (regno
, (char *) &inferior_fp_registers
.fpr
[regno
- ARM_F0_REGNUM
]);
369 regcache_collect (ARM_FPS_REGNUM
, (char *) &inferior_fp_registers
.fpr_fpsr
);
371 ret
= ptrace (PT_SETFPREGS
, PIDGET (inferior_ptid
),
372 (PTRACE_ARG3_TYPE
) &inferior_fp_registers
, 0);
375 warning ("unable to store floating-point registers");
379 store_inferior_registers (int regno
)
383 if (regno
< ARM_F0_REGNUM
|| regno
> ARM_FPS_REGNUM
)
384 store_register (regno
);
386 store_fp_register (regno
);
402 fetch_core_registers (char *core_reg_sect
, unsigned core_reg_size
,
403 int which
, CORE_ADDR ignore
)
405 struct md_core
*core_reg
= (struct md_core
*) core_reg_sect
;
409 supply_gregset (&core_reg
->intreg
);
410 supply_fparegset (&core_reg
->freg
);
414 fetch_elfcore_registers (char *core_reg_sect
, unsigned core_reg_size
,
415 int which
, CORE_ADDR ignore
)
418 struct fpreg fparegset
;
422 case 0: /* Integer registers. */
423 if (core_reg_size
!= sizeof (struct reg
))
424 warning ("wrong size of register set in core file");
427 /* The memcpy may be unnecessary, but we can't really be sure
428 of the alignment of the data in the core file. */
429 memcpy (&gregset
, core_reg_sect
, sizeof (gregset
));
430 supply_gregset (&gregset
);
435 if (core_reg_size
!= sizeof (struct fpreg
))
436 warning ("wrong size of FPA register set in core file");
439 /* The memcpy may be unnecessary, but we can't really be sure
440 of the alignment of the data in the core file. */
441 memcpy (&fparegset
, core_reg_sect
, sizeof (fparegset
));
442 supply_fparegset (&fparegset
);
447 /* Don't know what kind of register request this is; just ignore it. */
452 static struct core_fns arm_netbsd_core_fns
=
454 bfd_target_unknown_flavour
, /* core_flovour. */
455 default_check_format
, /* check_format. */
456 default_core_sniffer
, /* core_sniffer. */
457 fetch_core_registers
, /* core_read_registers. */
461 static struct core_fns arm_netbsd_elfcore_fns
=
463 bfd_target_elf_flavour
, /* core_flovour. */
464 default_check_format
, /* check_format. */
465 default_core_sniffer
, /* core_sniffer. */
466 fetch_elfcore_registers
, /* core_read_registers. */
471 _initialize_arm_netbsd_nat (void)
473 deprecated_add_core_fns (&arm_netbsd_core_fns
);
474 deprecated_add_core_fns (&arm_netbsd_elfcore_fns
);