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