1 /* Target-dependent code for NetBSD/Alpha.
2 Copyright 2002, 2003 Free Software Foundation, Inc.
3 Contributed by Wasabi Systems, 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. */
29 #include "solib-svr4.h"
31 #include "alpha-tdep.h"
32 #include "alphabsd-tdep.h"
33 #include "nbsd-tdep.h"
36 fetch_core_registers (char *core_reg_sect
, unsigned core_reg_size
, int which
,
42 /* Table to map a gdb register number to a trapframe register index. */
43 static const int regmap
[] =
54 #define SIZEOF_TRAPFRAME (33 * 8)
56 /* We get everything from one section. */
61 fpregs
= core_reg_sect
+ SIZEOF_TRAPFRAME
;
63 if (core_reg_size
< (SIZEOF_TRAPFRAME
+ SIZEOF_STRUCT_FPREG
))
65 warning ("Wrong size register set in core file.");
69 /* Integer registers. */
70 for (regno
= 0; regno
< ALPHA_ZERO_REGNUM
; regno
++)
71 supply_register (regno
, regs
+ (regmap
[regno
] * 8));
72 supply_register (ALPHA_ZERO_REGNUM
, NULL
);
73 supply_register (FP_REGNUM
, NULL
);
74 supply_register (PC_REGNUM
, regs
+ (28 * 8));
76 /* Floating point registers. */
77 alphabsd_supply_fpreg (fpregs
, -1);
81 fetch_elfcore_registers (char *core_reg_sect
, unsigned core_reg_size
, int which
,
86 case 0: /* Integer registers. */
87 if (core_reg_size
!= SIZEOF_STRUCT_REG
)
88 warning ("Wrong size register set in core file.");
90 alphabsd_supply_reg (core_reg_sect
, -1);
93 case 2: /* Floating point registers. */
94 if (core_reg_size
!= SIZEOF_STRUCT_FPREG
)
95 warning ("Wrong size FP register set in core file.");
97 alphabsd_supply_fpreg (core_reg_sect
, -1);
101 /* Don't know what kind of register request this is; just ignore it. */
106 static struct core_fns alphanbsd_core_fns
=
108 bfd_target_unknown_flavour
, /* core_flavour */
109 default_check_format
, /* check_format */
110 default_core_sniffer
, /* core_sniffer */
111 fetch_core_registers
, /* core_read_registers */
115 static struct core_fns alphanbsd_elfcore_fns
=
117 bfd_target_elf_flavour
, /* core_flavour */
118 default_check_format
, /* check_format */
119 default_core_sniffer
, /* core_sniffer */
120 fetch_elfcore_registers
, /* core_read_registers */
124 /* Under NetBSD/alpha, signal handler invocations can be identified by the
125 designated code sequence that is used to return from a signal handler.
126 In particular, the return address of a signal handler points to the
127 following code sequence:
131 lda v0, 295(zero) # __sigreturn14
134 Each instruction has a unique encoding, so we simply attempt to match
135 the instruction the PC is pointing to with any of the above instructions.
136 If there is a hit, we know the offset to the start of the designated
137 sequence and can then check whether we really are executing in the
138 signal trampoline. If not, -1 is returned, otherwise the offset from the
139 start of the return sequence is returned. */
140 static const unsigned char sigtramp_retcode
[] =
142 0x00, 0x00, 0x1e, 0xa6, /* ldq a0, 0(sp) */
143 0x10, 0x00, 0xde, 0x23, /* lda sp, 16(sp) */
144 0x27, 0x01, 0x1f, 0x20, /* lda v0, 295(zero) */
145 0x83, 0x00, 0x00, 0x00, /* call_pal callsys */
147 #define RETCODE_NWORDS 4
148 #define RETCODE_SIZE (RETCODE_NWORDS * 4)
151 alphanbsd_sigtramp_offset (CORE_ADDR pc
)
153 unsigned char ret
[RETCODE_SIZE
], w
[4];
157 if (read_memory_nobpt (pc
, (char *) w
, 4) != 0)
160 for (i
= 0; i
< RETCODE_NWORDS
; i
++)
162 if (memcmp (w
, sigtramp_retcode
+ (i
* 4), 4) == 0)
165 if (i
== RETCODE_NWORDS
)
171 if (read_memory_nobpt (pc
, (char *) ret
, sizeof (ret
)) != 0)
174 if (memcmp (ret
, sigtramp_retcode
, RETCODE_SIZE
) == 0)
181 alphanbsd_pc_in_sigtramp (CORE_ADDR pc
, char *func_name
)
183 return (nbsd_pc_in_sigtramp (pc
, func_name
)
184 || alphanbsd_sigtramp_offset (pc
) >= 0);
188 alphanbsd_sigcontext_addr (struct frame_info
*frame
)
190 /* FIXME: This is not correct for all versions of NetBSD/alpha.
191 We will probably need to disassemble the trampoline to figure
192 out which trampoline frame type we have. */
197 alphanbsd_skip_sigtramp_frame (struct frame_info
*frame
, CORE_ADDR pc
)
201 /* FIXME: This is not correct for all versions of NetBSD/alpha.
202 We will probably need to disassemble the trampoline to figure
203 out which trampoline frame type we have. */
204 find_pc_partial_function (pc
, &name
, (CORE_ADDR
*) NULL
, (CORE_ADDR
*) NULL
);
205 if (PC_IN_SIGTRAMP (pc
, name
))
211 alphanbsd_init_abi (struct gdbarch_info info
,
212 struct gdbarch
*gdbarch
)
214 struct gdbarch_tdep
*tdep
= gdbarch_tdep (gdbarch
);
216 set_gdbarch_pc_in_sigtramp (gdbarch
, alphanbsd_pc_in_sigtramp
);
218 /* NetBSD/alpha does not provide single step support via ptrace(2); we
219 must use software single-stepping. */
220 set_gdbarch_software_single_step (gdbarch
, alpha_software_single_step
);
222 set_solib_svr4_fetch_link_map_offsets (gdbarch
,
223 nbsd_lp64_solib_svr4_fetch_link_map_offsets
);
225 tdep
->skip_sigtramp_frame
= alphanbsd_skip_sigtramp_frame
;
226 tdep
->dynamic_sigtramp_offset
= alphanbsd_sigtramp_offset
;
227 tdep
->sigcontext_addr
= alphanbsd_sigcontext_addr
;
230 tdep
->jb_elt_size
= 8;
234 _initialize_alphanbsd_tdep (void)
236 gdbarch_register_osabi (bfd_arch_alpha
, 0, GDB_OSABI_NETBSD_ELF
,
239 add_core_fns (&alphanbsd_core_fns
);
240 add_core_fns (&alphanbsd_elfcore_fns
);