1 /* OBSOLETE /* Native support for Sun 386i's for GDB, the GNU debugger. */
2 /* OBSOLETE Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1995, 1999, 2000, 2001 */
3 /* OBSOLETE Free Software Foundation, Inc. */
4 /* OBSOLETE Changes for sun386i by Jean Daniel Fekete (jdf@litp.univ-p6-7.fr), */
5 /* OBSOLETE C2V Paris, April 89. */
7 /* OBSOLETE This file is part of GDB. */
9 /* OBSOLETE This program is free software; you can redistribute it and/or modify */
10 /* OBSOLETE it under the terms of the GNU General Public License as published by */
11 /* OBSOLETE the Free Software Foundation; either version 2 of the License, or */
12 /* OBSOLETE (at your option) any later version. */
14 /* OBSOLETE This program is distributed in the hope that it will be useful, */
15 /* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */
16 /* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
17 /* OBSOLETE GNU General Public License for more details. */
19 /* OBSOLETE You should have received a copy of the GNU General Public License */
20 /* OBSOLETE along with this program; if not, write to the Free Software */
21 /* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, */
22 /* OBSOLETE Boston, MA 02111-1307, USA. */ */
24 /* OBSOLETE #include "defs.h" */
25 /* OBSOLETE #include "frame.h" */
26 /* OBSOLETE #include "inferior.h" */
27 /* OBSOLETE #include "gdbcore.h" */
28 /* OBSOLETE #include "regcache.h" */
30 /* OBSOLETE #include <sys/param.h> */
31 /* OBSOLETE #include <sys/dir.h> */
32 /* OBSOLETE #include <sys/user.h> */
33 /* OBSOLETE #include <signal.h> */
34 /* OBSOLETE #include <sys/ioctl.h> */
35 /* OBSOLETE #include <fcntl.h> */
37 /* OBSOLETE #include <sys/ptrace.h> */
38 /* OBSOLETE #include <machine/reg.h> */
40 /* OBSOLETE #include <sys/file.h> */
41 /* OBSOLETE #include "gdb_stat.h" */
42 /* OBSOLETE #include <sys/core.h> */
45 /* OBSOLETE /* Machine-dependent code which would otherwise be in corefile.c */ */
46 /* OBSOLETE /* Work with core files, for GDB. */ */
50 /* OBSOLETE core_file_command (char *filename, int from_tty) */
52 /* OBSOLETE int val; */
54 /* OBSOLETE /* Discard all vestiges of any previous core file */
55 /* OBSOLETE and mark data and stack spaces as empty. */ */
57 /* OBSOLETE if (corefile) */
58 /* OBSOLETE xfree (corefile); */
59 /* OBSOLETE corefile = 0; */
61 /* OBSOLETE if (corechan >= 0) */
62 /* OBSOLETE close (corechan); */
63 /* OBSOLETE corechan = -1; */
65 /* OBSOLETE data_start = 0; */
66 /* OBSOLETE data_end = 0; */
67 /* OBSOLETE stack_start = STACK_END_ADDR; */
68 /* OBSOLETE stack_end = STACK_END_ADDR; */
70 /* OBSOLETE /* Now, if a new core file was specified, open it and digest it. */ */
72 /* OBSOLETE if (filename) */
74 /* OBSOLETE filename = tilde_expand (filename); */
75 /* OBSOLETE make_cleanup (xfree, filename); */
77 /* OBSOLETE if (have_inferior_p ()) */
78 /* OBSOLETE error ("To look at a core file, you must kill the program with \"kill\"."); */
79 /* OBSOLETE corechan = open (filename, O_RDONLY, 0); */
80 /* OBSOLETE if (corechan < 0) */
81 /* OBSOLETE perror_with_name (filename); */
84 /* OBSOLETE struct core corestr; */
86 /* OBSOLETE val = myread (corechan, &corestr, sizeof corestr); */
87 /* OBSOLETE if (val < 0) */
88 /* OBSOLETE perror_with_name (filename); */
89 /* OBSOLETE if (corestr.c_magic != CORE_MAGIC) */
90 /* OBSOLETE error ("\"%s\" does not appear to be a core dump file (magic 0x%x, expected 0x%x)", */
91 /* OBSOLETE filename, corestr.c_magic, (int) CORE_MAGIC); */
92 /* OBSOLETE else if (sizeof (struct core) != corestr.c_len) */
93 /* OBSOLETE error ("\"%s\" has an invalid struct core length (%d, expected %d)", */
94 /* OBSOLETE filename, corestr.c_len, (int) sizeof (struct core)); */
96 /* OBSOLETE data_start = exec_data_start; */
97 /* OBSOLETE data_end = data_start + corestr.c_dsize; */
98 /* OBSOLETE stack_start = stack_end - corestr.c_ssize; */
99 /* OBSOLETE data_offset = sizeof corestr; */
100 /* OBSOLETE stack_offset = sizeof corestr + corestr.c_dsize; */
102 /* OBSOLETE memcpy (registers, &corestr.c_regs, sizeof corestr.c_regs); */
104 /* OBSOLETE memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], */
105 /* OBSOLETE corestr.c_fpu.f_fpstatus.f_st, */
106 /* OBSOLETE sizeof corestr.c_fpu.f_fpstatus.f_st); */
107 /* OBSOLETE memcpy (®isters[REGISTER_BYTE (FPC_REGNUM)], */
108 /* OBSOLETE &corestr.c_fpu.f_fpstatus.f_ctrl, */
109 /* OBSOLETE sizeof corestr.c_fpu.f_fpstatus - */
110 /* OBSOLETE sizeof corestr.c_fpu.f_fpstatus.f_st); */
112 /* OBSOLETE /* the struct aouthdr of sun coff is not the struct exec stored */
113 /* OBSOLETE in the core file. */ */
114 /* OBSOLETE memcpy (&core_aouthdr, &corestr.c_aouthdr, sizeof (struct exec)); */
115 /* OBSOLETE #ifndef COFF_ENCAPSULATE */
116 /* OBSOLETE core_aouthdr.magic = corestr.c_aouthdr.a_info; */
117 /* OBSOLETE core_aouthdr.vstamp = /*SUNVERSION */ 31252; */
118 /* OBSOLETE #endif */
119 /* OBSOLETE printf_unfiltered ("Core file is from \"%s\".\n", corestr.c_cmdname); */
120 /* OBSOLETE if (corestr.c_signo > 0) */
121 /* OBSOLETE printf_unfiltered ("Program terminated with signal %d, %s.\n", */
122 /* OBSOLETE corestr.c_signo, safe_strsignal (corestr.c_signo)); */
124 /* OBSOLETE if (filename[0] == '/') */
125 /* OBSOLETE corefile = savestring (filename, strlen (filename)); */
128 /* OBSOLETE corefile = concat (current_directory, "/", filename, NULL); */
131 /* OBSOLETE flush_cached_frames (); */
132 /* OBSOLETE select_frame (get_current_frame (), 0); */
134 /* OBSOLETE validate_files (); */
136 /* OBSOLETE else if (from_tty) */
137 /* OBSOLETE printf_unfiltered ("No core file now.\n"); */
140 /* OBSOLETE i387_to_double (char *from, char *to) */
142 /* OBSOLETE long *lp; */
143 /* OBSOLETE /* push extended mode on 387 stack, then pop in double mode */
145 /* OBSOLETE * first, set exception masks so no error is generated - */
146 /* OBSOLETE * number will be rounded to inf or 0, if necessary */
148 /* OBSOLETE asm ("pushl %eax"); /* grab a stack slot */ */
149 /* OBSOLETE asm ("fstcw (%esp)"); /* get 387 control word */ */
150 /* OBSOLETE asm ("movl (%esp),%eax"); /* save old value */ */
151 /* OBSOLETE asm ("orl $0x3f,%eax"); /* mask all exceptions */ */
152 /* OBSOLETE asm ("pushl %eax"); */
153 /* OBSOLETE asm ("fldcw (%esp)"); /* load new value into 387 */ */
155 /* OBSOLETE asm ("movl 8(%ebp),%eax"); */
156 /* OBSOLETE asm ("fldt (%eax)"); /* push extended number on 387 stack */ */
157 /* OBSOLETE asm ("fwait"); */
158 /* OBSOLETE asm ("movl 12(%ebp),%eax"); */
159 /* OBSOLETE asm ("fstpl (%eax)"); /* pop double */ */
160 /* OBSOLETE asm ("fwait"); */
162 /* OBSOLETE asm ("popl %eax"); /* flush modified control word */ */
163 /* OBSOLETE asm ("fnclex"); /* clear exceptions */ */
164 /* OBSOLETE asm ("fldcw (%esp)"); /* restore original control word */ */
165 /* OBSOLETE asm ("popl %eax"); /* flush saved copy */ */
168 /* OBSOLETE double_to_i387 (char *from, char *to) */
170 /* OBSOLETE /* push double mode on 387 stack, then pop in extended mode */
171 /* OBSOLETE * no errors are possible because every 64-bit pattern */
172 /* OBSOLETE * can be converted to an extended */
174 /* OBSOLETE asm ("movl 8(%ebp),%eax"); */
175 /* OBSOLETE asm ("fldl (%eax)"); */
176 /* OBSOLETE asm ("fwait"); */
177 /* OBSOLETE asm ("movl 12(%ebp),%eax"); */
178 /* OBSOLETE asm ("fstpt (%eax)"); */
179 /* OBSOLETE asm ("fwait"); */
183 /* OBSOLETE fetch_inferior_registers (int regno) */
185 /* OBSOLETE struct regs inferior_registers; */
186 /* OBSOLETE struct fp_state inferior_fp_registers; */
188 /* OBSOLETE registers_fetched (); */
190 /* OBSOLETE ptrace (PTRACE_GETREGS, PIDGET (inferior_ptid), */
191 /* OBSOLETE (PTRACE_ARG3_TYPE) & inferior_registers); */
192 /* OBSOLETE ptrace (PTRACE_GETFPREGS, PIDGET (inferior_ptid), */
193 /* OBSOLETE (PTRACE_ARG3_TYPE) & inferior_fp_registers); */
195 /* OBSOLETE memcpy (registers, &inferior_registers, sizeof inferior_registers); */
197 /* OBSOLETE memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], inferior_fp_registers.f_st, */
198 /* OBSOLETE sizeof inferior_fp_registers.f_st); */
199 /* OBSOLETE memcpy (®isters[REGISTER_BYTE (FPC_REGNUM)], */
200 /* OBSOLETE &inferior_fp_registers.f_ctrl, */
201 /* OBSOLETE sizeof inferior_fp_registers - sizeof inferior_fp_registers.f_st); */
204 /* OBSOLETE /* Store our register values back into the inferior. */
205 /* OBSOLETE If REGNO is -1, do this for all registers. */
206 /* OBSOLETE Otherwise, REGNO specifies which register (so we can save time). */ */
209 /* OBSOLETE store_inferior_registers (int regno) */
211 /* OBSOLETE struct regs inferior_registers; */
212 /* OBSOLETE struct fp_state inferior_fp_registers; */
214 /* OBSOLETE memcpy (&inferior_registers, registers, 20 * 4); */
216 /* OBSOLETE memcpy (inferior_fp_registers.f_st, */
217 /* OBSOLETE ®isters[REGISTER_BYTE (FP0_REGNUM)], */
218 /* OBSOLETE sizeof inferior_fp_registers.f_st); */
219 /* OBSOLETE memcpy (&inferior_fp_registers.f_ctrl, */
220 /* OBSOLETE ®isters[REGISTER_BYTE (FPC_REGNUM)], */
221 /* OBSOLETE sizeof inferior_fp_registers - sizeof inferior_fp_registers.f_st); */
223 /* OBSOLETE #ifdef PTRACE_FP_BUG */
224 /* OBSOLETE if (regno == FP_REGNUM || regno == -1) */
225 /* OBSOLETE /* Storing the frame pointer requires a gross hack, in which an */
226 /* OBSOLETE instruction that moves eax into ebp gets single-stepped. */ */
228 /* OBSOLETE int stack = inferior_registers.r_reg[SP_REGNUM]; */
229 /* OBSOLETE int stuff = ptrace (PTRACE_PEEKDATA, PIDGET (inferior_ptid), */
230 /* OBSOLETE (PTRACE_ARG3_TYPE) stack); */
231 /* OBSOLETE int reg = inferior_registers.r_reg[EAX]; */
232 /* OBSOLETE inferior_registers.r_reg[EAX] = */
233 /* OBSOLETE inferior_registers.r_reg[FP_REGNUM]; */
234 /* OBSOLETE ptrace (PTRACE_SETREGS, PIDGET (inferior_ptid), */
235 /* OBSOLETE (PTRACE_ARG3_TYPE) & inferior_registers); */
236 /* OBSOLETE ptrace (PTRACE_POKEDATA, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) stack, */
237 /* OBSOLETE 0xc589); */
238 /* OBSOLETE ptrace (PTRACE_SINGLESTEP, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) stack, */
240 /* OBSOLETE wait (0); */
241 /* OBSOLETE ptrace (PTRACE_POKEDATA, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) stack, */
242 /* OBSOLETE stuff); */
243 /* OBSOLETE inferior_registers.r_reg[EAX] = reg; */
245 /* OBSOLETE #endif */
246 /* OBSOLETE ptrace (PTRACE_SETREGS, PIDGET (inferior_ptid), */
247 /* OBSOLETE (PTRACE_ARG3_TYPE) & inferior_registers); */
248 /* OBSOLETE ptrace (PTRACE_SETFPREGS, PIDGET (inferior_ptid), */
249 /* OBSOLETE (PTRACE_ARG3_TYPE) & inferior_fp_registers); */
This page took 0.034809 seconds and 4 git commands to generate.