1 /* OBSOLETE /* Low level Pyramid interface to ptrace, for GDB when running under Unix. */
2 /* OBSOLETE Copyright (C) 1988, 1989, 1991 Free Software Foundation, Inc. */
4 /* OBSOLETE This file is part of GDB. */
6 /* OBSOLETE This program is free software; you can redistribute it and/or modify */
7 /* OBSOLETE it under the terms of the GNU General Public License as published by */
8 /* OBSOLETE the Free Software Foundation; either version 2 of the License, or */
9 /* OBSOLETE (at your option) any later version. */
11 /* OBSOLETE This program is distributed in the hope that it will be useful, */
12 /* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */
13 /* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
14 /* OBSOLETE GNU General Public License for more details. */
16 /* OBSOLETE You should have received a copy of the GNU General Public License */
17 /* OBSOLETE along with this program; if not, write to the Free Software */
18 /* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *x/ */
20 /* OBSOLETE #include "defs.h" */
21 /* OBSOLETE #include "frame.h" */
22 /* OBSOLETE #include "inferior.h" */
24 /* OBSOLETE #include <sys/param.h> */
25 /* OBSOLETE #include <sys/dir.h> */
26 /* OBSOLETE #include <signal.h> */
27 /* OBSOLETE #include <sys/ioctl.h> */
28 /* OBSOLETE /* #include <fcntl.h> Can we live without this? *x/ */
30 /* OBSOLETE #include "gdbcore.h" */
31 /* OBSOLETE #include <sys/user.h> /* After a.out.h *x/ */
32 /* OBSOLETE #include <sys/file.h> */
33 /* OBSOLETE #include "gdb_stat.h" */
37 /* OBSOLETE fetch_inferior_registers (regno) */
38 /* OBSOLETE int regno; */
40 /* OBSOLETE register int datum; */
41 /* OBSOLETE register unsigned int regaddr; */
42 /* OBSOLETE int reg_buf[NUM_REGS+1]; */
43 /* OBSOLETE struct user u; */
44 /* OBSOLETE register int skipped_frames = 0; */
46 /* OBSOLETE registers_fetched (); */
48 /* OBSOLETE for (regno = 0; regno < 64; regno++) { */
49 /* OBSOLETE reg_buf[regno] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) regno, 0); */
51 /* OBSOLETE #if defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */
52 /* OBSOLETE printf_unfiltered ("Fetching register %s, got %0x\n", */
53 /* OBSOLETE REGISTER_NAME (regno), */
54 /* OBSOLETE reg_buf[regno]); */
55 /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
57 /* OBSOLETE if (reg_buf[regno] == -1 && errno == EIO) { */
58 /* OBSOLETE printf_unfiltered("fetch_interior_registers: fetching register %s\n", */
59 /* OBSOLETE REGISTER_NAME (regno)); */
60 /* OBSOLETE errno = 0; */
62 /* OBSOLETE supply_register (regno, reg_buf+regno); */
64 /* OBSOLETE /* that leaves regs 64, 65, and 66 *x/ */
65 /* OBSOLETE datum = ptrace (3, inferior_pid, */
66 /* OBSOLETE (PTRACE_ARG3_TYPE) (((char *)&u.u_pcb.pcb_csp) - */
67 /* OBSOLETE ((char *)&u)), 0); */
71 /* OBSOLETE /* FIXME: Find the Current Frame Pointer (CFP). CFP is a global */
72 /* OBSOLETE register (ie, NOT windowed), that gets saved in a frame iff */
73 /* OBSOLETE the code for that frame has a prologue (ie, "adsf N"). If */
74 /* OBSOLETE there is a prologue, the adsf insn saves the old cfp in */
75 /* OBSOLETE pr13, cfp is set to sp, and N bytes of locals are allocated */
76 /* OBSOLETE (sp is decremented by n). */
77 /* OBSOLETE This makes finding CFP hard. I guess the right way to do it */
79 /* OBSOLETE - If this is the innermost frame, believe ptrace() or */
80 /* OBSOLETE the core area. */
81 /* OBSOLETE - Otherwise: */
82 /* OBSOLETE Find the first insn of the current frame. */
83 /* OBSOLETE - find the saved pc; */
84 /* OBSOLETE - find the call insn that saved it; */
85 /* OBSOLETE - figure out where the call is to; */
86 /* OBSOLETE - if the first insn is an adsf, we got a frame */
87 /* OBSOLETE pointer. *x/ */
90 /* OBSOLETE /* Normal processors have separate stack pointers for user and */
91 /* OBSOLETE kernel mode. Getting the last user mode frame on such */
92 /* OBSOLETE machines is easy: the kernel context of the ptrace()'d */
93 /* OBSOLETE process is on the kernel stack, and the USP points to what */
94 /* OBSOLETE we want. But Pyramids only have a single cfp for both user and */
95 /* OBSOLETE kernel mode. And processes being ptrace()'d have some */
96 /* OBSOLETE kernel-context control frames on their stack. */
97 /* OBSOLETE To avoid tracing back into the kernel context of an inferior, */
98 /* OBSOLETE we skip 0 or more contiguous control frames where the pc is */
99 /* OBSOLETE in the kernel. *x/ */
101 /* OBSOLETE while (1) { */
102 /* OBSOLETE register int inferior_saved_pc; */
103 /* OBSOLETE inferior_saved_pc = ptrace (1, inferior_pid, */
104 /* OBSOLETE (PTRACE_ARG3_TYPE) (datum+((32+15)*4)), 0); */
105 /* OBSOLETE if (inferior_saved_pc > 0) break; */
106 /* OBSOLETE #if defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */
107 /* OBSOLETE printf_unfiltered("skipping kernel frame %08x, pc=%08x\n", datum, */
108 /* OBSOLETE inferior_saved_pc); */
109 /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
110 /* OBSOLETE skipped_frames++; */
111 /* OBSOLETE datum -= CONTROL_STACK_FRAME_SIZE; */
114 /* OBSOLETE reg_buf[CSP_REGNUM] = datum; */
115 /* OBSOLETE supply_register(CSP_REGNUM, reg_buf+CSP_REGNUM); */
116 /* OBSOLETE #ifdef PYRAMID_CONTROL_FRAME_DEBUGGING */
117 /* OBSOLETE if (skipped_frames) { */
118 /* OBSOLETE fprintf_unfiltered (gdb_stderr, */
119 /* OBSOLETE "skipped %d frames from %x to %x; cfp was %x, now %x\n", */
120 /* OBSOLETE skipped_frames, reg_buf[CSP_REGNUM]); */
122 /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
125 /* OBSOLETE /* Store our register values back into the inferior. */
126 /* OBSOLETE If REGNO is -1, do this for all registers. */
127 /* OBSOLETE Otherwise, REGNO specifies which register (so we can save time). *x/ */
130 /* OBSOLETE store_inferior_registers (regno) */
131 /* OBSOLETE int regno; */
133 /* OBSOLETE register unsigned int regaddr; */
134 /* OBSOLETE char buf[80]; */
136 /* OBSOLETE if (regno >= 0) */
138 /* OBSOLETE if ((0 <= regno) && (regno < 64)) { */
139 /* OBSOLETE /*regaddr = register_addr (regno, offset);*x/ */
140 /* OBSOLETE regaddr = regno; */
141 /* OBSOLETE errno = 0; */
142 /* OBSOLETE ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, */
143 /* OBSOLETE read_register (regno)); */
144 /* OBSOLETE if (errno != 0) */
146 /* OBSOLETE sprintf (buf, "writing register number %d", regno); */
147 /* OBSOLETE perror_with_name (buf); */
153 /* OBSOLETE for (regno = 0; regno < NUM_REGS; regno++) */
155 /* OBSOLETE /*regaddr = register_addr (regno, offset);*x/ */
156 /* OBSOLETE regaddr = regno; */
157 /* OBSOLETE errno = 0; */
158 /* OBSOLETE ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, */
159 /* OBSOLETE read_register (regno)); */
160 /* OBSOLETE if (errno != 0) */
162 /* OBSOLETE sprintf (buf, "writing all regs, number %d", regno); */
163 /* OBSOLETE perror_with_name (buf); */
168 /* OBSOLETE /*** Extensions to core and dump files, for GDB. *x/ */
170 /* OBSOLETE extern unsigned int last_frame_offset; */
172 /* OBSOLETE #ifdef PYRAMID_CORE */
174 /* OBSOLETE /* Can't make definitions here static, since corefile.c needs them */
175 /* OBSOLETE to do bounds checking on the core-file areas. O well. *x/ */
177 /* OBSOLETE /* have two stacks: one for data, one for register windows. *x/ */
178 /* OBSOLETE extern CORE_ADDR reg_stack_start; */
179 /* OBSOLETE extern CORE_ADDR reg_stack_end; */
181 /* OBSOLETE /* need this so we can find the global registers: they never get saved. *x/ */
182 /* OBSOLETE CORE_ADDR global_reg_offset; */
183 /* OBSOLETE static CORE_ADDR last_frame_address; */
184 /* OBSOLETE CORE_ADDR last_frame_offset; */
187 /* OBSOLETE /* Address in core file of start of register window stack area. */
188 /* OBSOLETE Don't know if is this any of meaningful, useful or necessary. *x/ */
189 /* OBSOLETE extern int reg_stack_offset; */
191 /* OBSOLETE #endif /* PYRAMID_CORE *x/ */
194 /* OBSOLETE /* Work with core dump and executable files, for GDB. */
195 /* OBSOLETE This code would be in corefile.c if it weren't machine-dependent. *x/ */
198 /* OBSOLETE core_file_command (filename, from_tty) */
199 /* OBSOLETE char *filename; */
200 /* OBSOLETE int from_tty; */
202 /* OBSOLETE int val; */
204 /* OBSOLETE /* Discard all vestiges of any previous core file */
205 /* OBSOLETE and mark data and stack spaces as empty. *x/ */
207 /* OBSOLETE if (corefile) */
208 /* OBSOLETE xfree (corefile); */
209 /* OBSOLETE corefile = 0; */
211 /* OBSOLETE if (corechan >= 0) */
212 /* OBSOLETE close (corechan); */
213 /* OBSOLETE corechan = -1; */
215 /* OBSOLETE data_start = 0; */
216 /* OBSOLETE data_end = 0; */
217 /* OBSOLETE stack_start = STACK_END_ADDR; */
218 /* OBSOLETE stack_end = STACK_END_ADDR; */
220 /* OBSOLETE #ifdef PYRAMID_CORE */
221 /* OBSOLETE reg_stack_start = CONTROL_STACK_ADDR; */
222 /* OBSOLETE reg_stack_end = CONTROL_STACK_ADDR; /* this isn't strictly true...*x/ */
223 /* OBSOLETE #endif /* PYRAMID_CORE *x/ */
225 /* OBSOLETE /* Now, if a new core file was specified, open it and digest it. *x/ */
227 /* OBSOLETE if (filename) */
229 /* OBSOLETE filename = tilde_expand (filename); */
230 /* OBSOLETE make_cleanup (xfree, filename); */
232 /* OBSOLETE if (have_inferior_p ()) */
233 /* OBSOLETE error ("To look at a core file, you must kill the program with \"kill\"."); */
234 /* OBSOLETE corechan = open (filename, O_RDONLY, 0); */
235 /* OBSOLETE if (corechan < 0) */
236 /* OBSOLETE perror_with_name (filename); */
237 /* OBSOLETE /* 4.2-style (and perhaps also sysV-style) core dump file. *x/ */
239 /* OBSOLETE struct user u; */
241 /* OBSOLETE unsigned int reg_offset; */
243 /* OBSOLETE val = myread (corechan, &u, sizeof u); */
244 /* OBSOLETE if (val < 0) */
245 /* OBSOLETE perror_with_name ("Not a core file: reading upage"); */
246 /* OBSOLETE if (val != sizeof u) */
247 /* OBSOLETE error ("Not a core file: could only read %d bytes", val); */
248 /* OBSOLETE data_start = exec_data_start; */
250 /* OBSOLETE data_end = data_start + NBPG * u.u_dsize; */
251 /* OBSOLETE data_offset = NBPG * UPAGES; */
252 /* OBSOLETE stack_offset = NBPG * (UPAGES + u.u_dsize); */
254 /* OBSOLETE /* find registers in core file *x/ */
255 /* OBSOLETE #ifdef PYRAMID_PTRACE */
256 /* OBSOLETE stack_start = stack_end - NBPG * u.u_ussize; */
257 /* OBSOLETE reg_stack_offset = stack_offset + (NBPG *u.u_ussize); */
258 /* OBSOLETE reg_stack_end = reg_stack_start + NBPG * u.u_cssize; */
260 /* OBSOLETE last_frame_address = ((int) u.u_pcb.pcb_csp); */
261 /* OBSOLETE last_frame_offset = reg_stack_offset + last_frame_address */
262 /* OBSOLETE - CONTROL_STACK_ADDR ; */
263 /* OBSOLETE global_reg_offset = (char *)&u - (char *)&u.u_pcb.pcb_gr0 ; */
265 /* OBSOLETE /* skip any control-stack frames that were executed in the */
266 /* OBSOLETE kernel. *x/ */
268 /* OBSOLETE while (1) { */
269 /* OBSOLETE char buf[4]; */
270 /* OBSOLETE val = lseek (corechan, last_frame_offset+(47*4), 0); */
271 /* OBSOLETE if (val < 0) */
272 /* OBSOLETE perror_with_name (filename); */
273 /* OBSOLETE val = myread (corechan, buf, sizeof buf); */
274 /* OBSOLETE if (val < 0) */
275 /* OBSOLETE perror_with_name (filename); */
277 /* OBSOLETE if (*(int *)buf >= 0) */
278 /* OBSOLETE break; */
279 /* OBSOLETE printf_unfiltered ("skipping frame %s\n", local_hex_string (last_frame_address)); */
280 /* OBSOLETE last_frame_offset -= CONTROL_STACK_FRAME_SIZE; */
281 /* OBSOLETE last_frame_address -= CONTROL_STACK_FRAME_SIZE; */
283 /* OBSOLETE reg_offset = last_frame_offset; */
285 /* OBSOLETE #if 1 || defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */
286 /* OBSOLETE printf_unfiltered ("Control stack pointer = %s\n", */
287 /* OBSOLETE local_hex_string (u.u_pcb.pcb_csp)); */
288 /* OBSOLETE printf_unfiltered ("offset to control stack %d outermost frame %d (%s)\n", */
289 /* OBSOLETE reg_stack_offset, reg_offset, local_hex_string (last_frame_address)); */
290 /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
292 /* OBSOLETE #else /* not PYRAMID_CORE *x/ */
293 /* OBSOLETE stack_start = stack_end - NBPG * u.u_ssize; */
294 /* OBSOLETE reg_offset = (int) u.u_ar0 - KERNEL_U_ADDR; */
295 /* OBSOLETE #endif /* not PYRAMID_CORE *x/ */
297 /* OBSOLETE #ifdef __not_on_pyr_yet */
298 /* OBSOLETE /* Some machines put an absolute address in here and some put */
299 /* OBSOLETE the offset in the upage of the regs. *x/ */
300 /* OBSOLETE reg_offset = (int) u.u_ar0; */
301 /* OBSOLETE if (reg_offset > NBPG * UPAGES) */
302 /* OBSOLETE reg_offset -= KERNEL_U_ADDR; */
303 /* OBSOLETE #endif */
305 /* OBSOLETE /* I don't know where to find this info. */
306 /* OBSOLETE So, for now, mark it as not available. *x/ */
307 /* OBSOLETE N_SET_MAGIC (core_aouthdr, 0); */
309 /* OBSOLETE /* Read the register values out of the core file and store */
310 /* OBSOLETE them where `read_register' will find them. *x/ */
313 /* OBSOLETE register int regno; */
315 /* OBSOLETE for (regno = 0; regno < 64; regno++) */
317 /* OBSOLETE char buf[MAX_REGISTER_RAW_SIZE]; */
319 /* OBSOLETE val = lseek (corechan, register_addr (regno, reg_offset), 0); */
320 /* OBSOLETE if (val < 0 */
321 /* OBSOLETE || (val = myread (corechan, buf, sizeof buf)) < 0) */
323 /* OBSOLETE char * buffer = (char *) alloca (strlen (REGISTER_NAME (regno)) */
324 /* OBSOLETE + 30); */
325 /* OBSOLETE strcpy (buffer, "Reading register "); */
326 /* OBSOLETE strcat (buffer, REGISTER_NAME (regno)); */
328 /* OBSOLETE perror_with_name (buffer); */
331 /* OBSOLETE if (val < 0) */
332 /* OBSOLETE perror_with_name (filename); */
333 /* OBSOLETE #ifdef PYRAMID_CONTROL_FRAME_DEBUGGING */
334 /* OBSOLETE printf_unfiltered ("[reg %s(%d), offset in file %s=0x%0x, addr =0x%0x, =%0x]\n", */
335 /* OBSOLETE REGISTER_NAME (regno), regno, filename, */
336 /* OBSOLETE register_addr(regno, reg_offset), */
337 /* OBSOLETE regno * 4 + last_frame_address, */
338 /* OBSOLETE *((int *)buf)); */
339 /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
340 /* OBSOLETE supply_register (regno, buf); */
344 /* OBSOLETE if (filename[0] == '/') */
345 /* OBSOLETE corefile = savestring (filename, strlen (filename)); */
348 /* OBSOLETE corefile = concat (current_directory, "/", filename, NULL); */
351 /* OBSOLETE #if 1 || defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */
352 /* OBSOLETE printf_unfiltered ("Providing CSP (%s) as nominal address of current frame.\n", */
353 /* OBSOLETE local_hex_string(last_frame_address)); */
354 /* OBSOLETE #endif PYRAMID_CONTROL_FRAME_DEBUGGING */
355 /* OBSOLETE /* FIXME: Which of the following is correct? *x/ */
357 /* OBSOLETE set_current_frame ( create_new_frame (read_register (FP_REGNUM), */
358 /* OBSOLETE read_pc ())); */
360 /* OBSOLETE set_current_frame ( create_new_frame (last_frame_address, */
361 /* OBSOLETE read_pc ())); */
362 /* OBSOLETE #endif */
364 /* OBSOLETE select_frame (get_current_frame (), 0); */
365 /* OBSOLETE validate_files (); */
367 /* OBSOLETE else if (from_tty) */
368 /* OBSOLETE printf_unfiltered ("No core file now.\n"); */
This page took 0.044497 seconds and 4 git commands to generate.