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