1 /* Functions specific to running gdb native on a SPARC running SunOS4.
2 Copyright 1989, 1992, 1993, 1994, 1996, 1997, 1998, 1999, 2000, 2001
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. */
28 #ifdef HAVE_SYS_PARAM_H
29 #include <sys/param.h>
32 #include <sys/ptrace.h>
37 #include <machine/reg.h>
41 /* We don't store all registers immediately when requested, since they
42 get sent over in large chunks anyway. Instead, we accumulate most
43 of the changes and send them over once. "deferred_stores" keeps
44 track of which sets of registers we have locally-changed copies of,
45 so we only need send the groups that have changed. */
51 /* Fetch one or more registers from the inferior. REGNO == -1 to get
52 them all. We actually fetch more than requested, when convenient,
53 marking them as valid so we won't fetch them again. */
56 fetch_inferior_registers (int regno
)
58 struct regs inferior_registers
;
59 struct fp_status inferior_fp_registers
;
62 /* We should never be called with deferred stores, because a prerequisite
63 for writing regs is to have fetched them all (PREPARE_TO_STORE), sigh. */
65 internal_error (__FILE__
, __LINE__
, "failed internal consistency check");
69 /* Global and Out regs are fetched directly, as well as the control
70 registers. If we're getting one of the in or local regs,
71 and the stack pointer has not yet been fetched,
72 we have to do that first, since they're found in memory relative
73 to the stack pointer. */
74 if (regno
< O7_REGNUM
/* including -1 */
76 || (!register_valid
[SP_REGNUM
] && regno
< I7_REGNUM
))
78 if (0 != ptrace (PTRACE_GETREGS
, PIDGET (inferior_ptid
),
79 (PTRACE_ARG3_TYPE
) & inferior_registers
, 0))
80 perror ("ptrace_getregs");
82 registers
[REGISTER_BYTE (0)] = 0;
83 memcpy (®isters
[REGISTER_BYTE (1)], &inferior_registers
.r_g1
,
84 15 * REGISTER_RAW_SIZE (G0_REGNUM
));
85 *(int *) ®isters
[REGISTER_BYTE (PS_REGNUM
)] = inferior_registers
.r_ps
;
86 *(int *) ®isters
[REGISTER_BYTE (PC_REGNUM
)] = inferior_registers
.r_pc
;
87 *(int *) ®isters
[REGISTER_BYTE (NPC_REGNUM
)] = inferior_registers
.r_npc
;
88 *(int *) ®isters
[REGISTER_BYTE (Y_REGNUM
)] = inferior_registers
.r_y
;
90 for (i
= G0_REGNUM
; i
<= O7_REGNUM
; i
++)
91 register_valid
[i
] = 1;
92 register_valid
[Y_REGNUM
] = 1;
93 register_valid
[PS_REGNUM
] = 1;
94 register_valid
[PC_REGNUM
] = 1;
95 register_valid
[NPC_REGNUM
] = 1;
96 /* If we don't set these valid, read_register_bytes() rereads
97 all the regs every time it is called! FIXME. */
98 register_valid
[WIM_REGNUM
] = 1; /* Not true yet, FIXME */
99 register_valid
[TBR_REGNUM
] = 1; /* Not true yet, FIXME */
100 register_valid
[CPS_REGNUM
] = 1; /* Not true yet, FIXME */
103 /* Floating point registers */
105 regno
== FPS_REGNUM
||
106 (regno
>= FP0_REGNUM
&& regno
<= FP0_REGNUM
+ 31))
108 if (0 != ptrace (PTRACE_GETFPREGS
, PIDGET (inferior_ptid
),
109 (PTRACE_ARG3_TYPE
) & inferior_fp_registers
,
111 perror ("ptrace_getfpregs");
112 memcpy (®isters
[REGISTER_BYTE (FP0_REGNUM
)], &inferior_fp_registers
,
113 sizeof inferior_fp_registers
.fpu_fr
);
114 memcpy (®isters
[REGISTER_BYTE (FPS_REGNUM
)],
115 &inferior_fp_registers
.Fpu_fsr
,
116 sizeof (FPU_FSR_TYPE
));
117 for (i
= FP0_REGNUM
; i
<= FP0_REGNUM
+ 31; i
++)
118 register_valid
[i
] = 1;
119 register_valid
[FPS_REGNUM
] = 1;
122 /* These regs are saved on the stack by the kernel. Only read them
123 all (16 ptrace calls!) if we really need them. */
126 CORE_ADDR sp
= *(unsigned int *) & registers
[REGISTER_BYTE (SP_REGNUM
)];
127 target_read_memory (sp
, ®isters
[REGISTER_BYTE (L0_REGNUM
)],
128 16 * REGISTER_RAW_SIZE (L0_REGNUM
));
129 for (i
= L0_REGNUM
; i
<= I7_REGNUM
; i
++)
130 register_valid
[i
] = 1;
132 else if (regno
>= L0_REGNUM
&& regno
<= I7_REGNUM
)
134 CORE_ADDR sp
= *(unsigned int *) & registers
[REGISTER_BYTE (SP_REGNUM
)];
135 i
= REGISTER_BYTE (regno
);
136 if (register_valid
[regno
])
137 printf_unfiltered ("register %d valid and read\n", regno
);
138 target_read_memory (sp
+ i
- REGISTER_BYTE (L0_REGNUM
),
139 ®isters
[i
], REGISTER_RAW_SIZE (regno
));
140 register_valid
[regno
] = 1;
144 /* Store our register values back into the inferior.
145 If REGNO is -1, do this for all registers.
146 Otherwise, REGNO specifies which register (so we can save time). */
149 store_inferior_registers (int regno
)
151 struct regs inferior_registers
;
152 struct fp_status inferior_fp_registers
;
153 int wanna_store
= INT_REGS
+ STACK_REGS
+ FP_REGS
;
155 /* First decide which pieces of machine-state we need to modify.
156 Default for regno == -1 case is all pieces. */
158 if (FP0_REGNUM
<= regno
&& regno
< FP0_REGNUM
+ 32)
160 wanna_store
= FP_REGS
;
164 if (regno
== SP_REGNUM
)
165 wanna_store
= INT_REGS
+ STACK_REGS
;
166 else if (regno
< L0_REGNUM
|| regno
> I7_REGNUM
)
167 wanna_store
= INT_REGS
;
168 else if (regno
== FPS_REGNUM
)
169 wanna_store
= FP_REGS
;
171 wanna_store
= STACK_REGS
;
174 /* See if we're forcing the stores to happen now, or deferring. */
177 wanna_store
= deferred_stores
;
182 if (wanna_store
== STACK_REGS
)
184 /* Fall through and just store one stack reg. If we deferred
185 it, we'd have to store them all, or remember more info. */
189 deferred_stores
|= wanna_store
;
194 if (wanna_store
& STACK_REGS
)
196 CORE_ADDR sp
= *(unsigned int *) & registers
[REGISTER_BYTE (SP_REGNUM
)];
198 if (regno
< 0 || regno
== SP_REGNUM
)
200 if (!register_valid
[L0_REGNUM
+ 5])
201 internal_error (__FILE__
, __LINE__
, "failed internal consistency check");
202 target_write_memory (sp
,
203 ®isters
[REGISTER_BYTE (L0_REGNUM
)],
204 16 * REGISTER_RAW_SIZE (L0_REGNUM
));
208 if (!register_valid
[regno
])
209 internal_error (__FILE__
, __LINE__
, "failed internal consistency check");
210 target_write_memory (sp
+ REGISTER_BYTE (regno
) - REGISTER_BYTE (L0_REGNUM
),
211 ®isters
[REGISTER_BYTE (regno
)],
212 REGISTER_RAW_SIZE (regno
));
217 if (wanna_store
& INT_REGS
)
219 if (!register_valid
[G1_REGNUM
])
220 internal_error (__FILE__
, __LINE__
, "failed internal consistency check");
222 memcpy (&inferior_registers
.r_g1
, ®isters
[REGISTER_BYTE (G1_REGNUM
)],
223 15 * REGISTER_RAW_SIZE (G1_REGNUM
));
225 inferior_registers
.r_ps
=
226 *(int *) ®isters
[REGISTER_BYTE (PS_REGNUM
)];
227 inferior_registers
.r_pc
=
228 *(int *) ®isters
[REGISTER_BYTE (PC_REGNUM
)];
229 inferior_registers
.r_npc
=
230 *(int *) ®isters
[REGISTER_BYTE (NPC_REGNUM
)];
231 inferior_registers
.r_y
=
232 *(int *) ®isters
[REGISTER_BYTE (Y_REGNUM
)];
234 if (0 != ptrace (PTRACE_SETREGS
, PIDGET (inferior_ptid
),
235 (PTRACE_ARG3_TYPE
) & inferior_registers
, 0))
236 perror ("ptrace_setregs");
239 if (wanna_store
& FP_REGS
)
241 if (!register_valid
[FP0_REGNUM
+ 9])
242 internal_error (__FILE__
, __LINE__
, "failed internal consistency check");
243 memcpy (&inferior_fp_registers
, ®isters
[REGISTER_BYTE (FP0_REGNUM
)],
244 sizeof inferior_fp_registers
.fpu_fr
);
245 memcpy (&inferior_fp_registers
.Fpu_fsr
,
246 ®isters
[REGISTER_BYTE (FPS_REGNUM
)], sizeof (FPU_FSR_TYPE
));
248 ptrace (PTRACE_SETFPREGS
, PIDGET (inferior_ptid
),
249 (PTRACE_ARG3_TYPE
) & inferior_fp_registers
, 0))
250 perror ("ptrace_setfpregs");
254 /* Provide registers to GDB from a core file.
256 CORE_REG_SECT points to an array of bytes, which are the contents
257 of a `note' from a core file which BFD thinks might contain
258 register contents. CORE_REG_SIZE is its size.
260 WHICH says which register set corelow suspects this is:
261 0 --- the general-purpose register set
262 2 --- the floating-point register set
267 fetch_core_registers (char *core_reg_sect
, unsigned core_reg_size
,
268 int which
, CORE_ADDR ignore
)
274 /* Integer registers */
276 #define gregs ((struct regs *)core_reg_sect)
277 /* G0 *always* holds 0. */
278 *(int *) ®isters
[REGISTER_BYTE (0)] = 0;
280 /* The globals and output registers. */
281 memcpy (®isters
[REGISTER_BYTE (G1_REGNUM
)], &gregs
->r_g1
,
282 15 * REGISTER_RAW_SIZE (G1_REGNUM
));
283 *(int *) ®isters
[REGISTER_BYTE (PS_REGNUM
)] = gregs
->r_ps
;
284 *(int *) ®isters
[REGISTER_BYTE (PC_REGNUM
)] = gregs
->r_pc
;
285 *(int *) ®isters
[REGISTER_BYTE (NPC_REGNUM
)] = gregs
->r_npc
;
286 *(int *) ®isters
[REGISTER_BYTE (Y_REGNUM
)] = gregs
->r_y
;
288 /* My best guess at where to get the locals and input
289 registers is exactly where they usually are, right above
290 the stack pointer. If the core dump was caused by a bus error
291 from blowing away the stack pointer (as is possible) then this
292 won't work, but it's worth the try. */
296 sp
= *(int *) ®isters
[REGISTER_BYTE (SP_REGNUM
)];
297 if (0 != target_read_memory (sp
, ®isters
[REGISTER_BYTE (L0_REGNUM
)],
298 16 * REGISTER_RAW_SIZE (L0_REGNUM
)))
300 /* fprintf_unfiltered so user can still use gdb */
301 fprintf_unfiltered (gdb_stderr
,
302 "Couldn't read input and local registers from core file\n");
309 /* Floating point registers */
311 #define fpuregs ((struct fpu *) core_reg_sect)
312 if (core_reg_size
>= sizeof (struct fpu
))
314 memcpy (®isters
[REGISTER_BYTE (FP0_REGNUM
)], fpuregs
->fpu_regs
,
315 sizeof (fpuregs
->fpu_regs
));
316 memcpy (®isters
[REGISTER_BYTE (FPS_REGNUM
)], &fpuregs
->fpu_fsr
,
317 sizeof (FPU_FSR_TYPE
));
320 fprintf_unfiltered (gdb_stderr
, "Couldn't read float regs from core file\n");
327 return (sizeof (struct user
));
331 /* Register that we are able to handle sparc core file formats.
332 FIXME: is this really bfd_target_unknown_flavour? */
334 static struct core_fns sparc_core_fns
=
336 bfd_target_unknown_flavour
, /* core_flavour */
337 default_check_format
, /* check_format */
338 default_core_sniffer
, /* core_sniffer */
339 fetch_core_registers
, /* core_read_registers */
344 _initialize_core_sparc (void)
346 add_core_fns (&sparc_core_fns
);