1 /* Core dump and executable file functions below target vector, for GDB.
2 Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994
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., 675 Mass Ave, Cambridge, MA 02139, USA. */
26 #include "frame.h" /* required by inferior.h */
36 core_files_info
PARAMS ((struct target_ops
*));
40 solib_add_stub
PARAMS ((char *));
44 core_close
PARAMS ((int));
47 get_core_registers
PARAMS ((int));
49 /* Discard all vestiges of any previous core file
50 and mark data and stack spaces as empty. */
57 inferior_pid
= 0; /* Avoid confusion from thread stuff */
60 free (bfd_get_filename (core_bfd
));
66 if (core_ops
.to_sections
) {
67 free ((PTR
)core_ops
.to_sections
);
68 core_ops
.to_sections
= NULL
;
69 core_ops
.to_sections_end
= NULL
;
75 /* Stub function for catch_errors around shared library hacking. FROM_TTYP
76 is really an int * which points to from_tty. */
79 solib_add_stub (from_ttyp
)
82 SOLIB_ADD (NULL
, *(int *)from_ttyp
, &core_ops
);
84 /* SOLIB_ADD usually modifies core_ops.to_sections, which has to
85 be reflected in current_target. */
86 current_target
.to_sections
= core_ops
.to_sections
;
87 current_target
.to_sections_end
= core_ops
.to_sections_end
;
90 #endif /* SOLIB_ADD */
92 /* Look for sections whose names start with `.reg/' so that we can extract the
93 list of threads in a core file. */
96 add_to_thread_list (abfd
, asect
, reg_sect_arg
)
102 asection
*reg_sect
= (asection
*) reg_sect_arg
;
104 if (strncmp (bfd_section_name (abfd
, asect
), ".reg/", 5) != 0)
107 thread_id
= atoi (bfd_section_name (abfd
, asect
) + 5);
109 add_thread (thread_id
);
111 /* Warning, Will Robinson, looking at BFD private data! */
113 if (asect
->filepos
== reg_sect
->filepos
) /* Did we find .reg? */
114 inferior_pid
= thread_id
; /* Yes, make it current */
117 /* This routine opens and sets up the core file bfd */
120 core_open (filename
, from_tty
)
126 struct cleanup
*old_chain
;
132 target_preopen (from_tty
);
136 "No core file specified. (Use `detach' to stop debugging a core file.)"
137 : "No core file specified.");
140 filename
= tilde_expand (filename
);
141 if (filename
[0] != '/') {
142 temp
= concat (current_directory
, "/", filename
, NULL
);
147 old_chain
= make_cleanup (free
, filename
);
149 scratch_chan
= open (filename
, write_files
? O_RDWR
: O_RDONLY
, 0);
150 if (scratch_chan
< 0)
151 perror_with_name (filename
);
153 temp_bfd
= bfd_fdopenr (filename
, gnutarget
, scratch_chan
);
154 if (temp_bfd
== NULL
)
156 perror_with_name (filename
);
159 if (!bfd_check_format (temp_bfd
, bfd_core
))
161 /* Do it after the err msg */
162 make_cleanup (bfd_close
, temp_bfd
);
163 error ("\"%s\" is not a core dump: %s", filename
, bfd_errmsg(bfd_get_error ()));
166 /* Looks semi-reasonable. Toss the old core file and work on the new. */
168 discard_cleanups (old_chain
); /* Don't free filename any more */
169 unpush_target (&core_ops
);
171 old_chain
= make_cleanup (core_close
, core_bfd
);
175 /* Find the data section */
176 if (build_section_table (core_bfd
, &core_ops
.to_sections
,
177 &core_ops
.to_sections_end
))
178 error ("Can't find sections in `%s': %s", bfd_get_filename(core_bfd
),
179 bfd_errmsg (bfd_get_error ()));
181 ontop
= !push_target (&core_ops
);
182 discard_cleanups (old_chain
);
184 p
= bfd_core_file_failing_command (core_bfd
);
186 printf_filtered ("Core was generated by `%s'.\n", p
);
188 siggy
= bfd_core_file_failing_signal (core_bfd
);
190 printf_filtered ("Program terminated with signal %d, %s.\n", siggy
,
191 safe_strsignal (siggy
));
193 /* Build up thread list from BFD sections. */
196 bfd_map_over_sections (core_bfd
, add_to_thread_list
,
197 bfd_get_section_by_name (core_bfd
, ".reg"));
200 /* Fetch all registers from core file */
201 target_fetch_registers (-1);
203 /* Add symbols and section mappings for any shared libraries */
205 catch_errors (solib_add_stub
, &from_tty
, (char *)0,
209 /* Now, set up the frame cache, and print the top of stack */
210 set_current_frame (create_new_frame (read_fp (),
212 select_frame (get_current_frame (), 0);
213 print_stack_frame (selected_frame
, selected_frame_level
, 1);
216 "you won't be able to access this core file until you terminate\n\
217 your %s; do ``info files''", target_longname
);
222 core_detach (args
, from_tty
)
227 error ("Too many arguments");
228 unpush_target (&core_ops
);
229 reinit_frame_cache ();
231 printf_filtered ("No core file now.\n");
234 /* Get the registers out of a core file. This is the machine-
235 independent part. Fetch_core_registers is the machine-dependent
236 part, typically implemented in the xm-file for each architecture. */
238 /* We just get all the registers, so we don't use regno. */
241 get_core_registers (regno
)
249 /* Thread support. If inferior_pid is non-zero, then we have found a core
250 file with threads (or multiple processes). In that case, we need to
251 use the appropriate register section, else we just use `.reg'. */
253 /* XXX - same thing needs to be done for floating-point (.reg2) sections. */
256 sprintf (secname
, ".reg/%d", inferior_pid
);
258 strcpy (secname
, ".reg");
260 reg_sec
= bfd_get_section_by_name (core_bfd
, secname
);
261 if (!reg_sec
) goto cant
;
262 size
= bfd_section_size (core_bfd
, reg_sec
);
263 the_regs
= alloca (size
);
264 if (bfd_get_section_contents (core_bfd
, reg_sec
, the_regs
, (file_ptr
)0, size
))
266 fetch_core_registers (the_regs
, size
, 0,
267 (unsigned) bfd_section_vma (abfd
,reg_sec
));
272 fprintf_filtered (gdb_stderr
, "Couldn't fetch registers from core file: %s\n",
273 bfd_errmsg (bfd_get_error ()));
276 /* Now do it again for the float registers, if they exist. */
277 reg_sec
= bfd_get_section_by_name (core_bfd
, ".reg2");
279 size
= bfd_section_size (core_bfd
, reg_sec
);
280 the_regs
= alloca (size
);
281 if (bfd_get_section_contents (core_bfd
, reg_sec
, the_regs
, (file_ptr
)0,
284 fetch_core_registers (the_regs
, size
, 2,
285 (unsigned) bfd_section_vma (abfd
,reg_sec
));
289 fprintf_filtered (gdb_stderr
, "Couldn't fetch register set 2 from core file: %s\n",
290 bfd_errmsg (bfd_get_error ()));
298 struct target_ops
*t
;
300 print_section_info (t
, core_bfd
);
303 /* If mourn is being called in all the right places, this could be say
304 `gdb internal error' (since generic_mourn calls breakpoint_init_inferior). */
307 ignore (addr
, contents
)
314 struct target_ops core_ops
= {
315 "core", "Local core dump file",
316 "Use a core file as a target. Specify the filename of the core file.",
317 core_open
, core_close
,
318 find_default_attach
, core_detach
, 0, 0, /* resume, wait */
320 0, 0, /* store_regs, prepare_to_store */
321 xfer_memory
, core_files_info
,
322 ignore
, ignore
, /* core_insert_breakpoint, core_remove_breakpoint, */
323 0, 0, 0, 0, 0, /* terminal stuff */
324 0, 0, 0, /* kill, load, lookup sym */
325 find_default_create_inferior
, 0, /* mourn_inferior */
327 0, /* notice_signals */
328 core_stratum
, 0, /* next */
329 0, 1, 1, 1, 0, /* all mem, mem, stack, regs, exec */
330 0, 0, /* section pointers */
331 OPS_MAGIC
, /* Always the last thing */
335 _initialize_corelow()
337 add_target (&core_ops
);