1 /* Core dump and executable file functions below target vector, for GDB.
2 Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994, 1995
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, Boston, MA 02111-1307, USA. */
22 #include "gdb_string.h"
26 #include "frame.h" /* required by inferior.h */
33 #include "gdbthread.h"
35 /* List of all available core_fns. On gdb startup, each core file register
36 reader calls add_core_fns() to register information on each core format it
37 is prepared to read. */
39 static struct core_fns
*core_file_fns
= NULL
;
41 static void core_files_info
PARAMS ((struct target_ops
*));
44 static int solib_add_stub
PARAMS ((char *));
47 static void core_open
PARAMS ((char *, int));
49 static void core_detach
PARAMS ((char *, int));
51 static void core_close
PARAMS ((int));
53 static void get_core_registers
PARAMS ((int));
55 /* Link a new core_fns into the global core_file_fns list. Called on gdb
56 startup by the _initialize routine in each core file register reader, to
57 register information about each format the the reader is prepared to
64 cf
-> next
= core_file_fns
;
69 /* Discard all vestiges of any previous core file and mark data and stack
79 inferior_pid
= 0; /* Avoid confusion from thread stuff */
83 name
= bfd_get_filename (core_bfd
);
84 if (!bfd_close (core_bfd
))
85 warning ("cannot close \"%s\": %s",
86 name
, bfd_errmsg (bfd_get_error ()));
92 if (core_ops
.to_sections
)
94 free ((PTR
)core_ops
.to_sections
);
95 core_ops
.to_sections
= NULL
;
96 core_ops
.to_sections_end
= NULL
;
102 /* Stub function for catch_errors around shared library hacking. FROM_TTYP
103 is really an int * which points to from_tty. */
106 solib_add_stub (from_ttyp
)
109 SOLIB_ADD (NULL
, *(int *)from_ttyp
, ¤t_target
);
110 re_enable_breakpoints_in_shlibs ();
113 #endif /* SOLIB_ADD */
115 /* Look for sections whose names start with `.reg/' so that we can extract the
116 list of threads in a core file. */
119 add_to_thread_list (abfd
, asect
, reg_sect_arg
)
125 asection
*reg_sect
= (asection
*) reg_sect_arg
;
127 if (strncmp (bfd_section_name (abfd
, asect
), ".reg/", 5) != 0)
130 thread_id
= atoi (bfd_section_name (abfd
, asect
) + 5);
132 add_thread (thread_id
);
134 /* Warning, Will Robinson, looking at BFD private data! */
137 && asect
->filepos
== reg_sect
->filepos
) /* Did we find .reg? */
138 inferior_pid
= thread_id
; /* Yes, make it current */
141 /* This routine opens and sets up the core file bfd. */
144 core_open (filename
, from_tty
)
150 struct cleanup
*old_chain
;
156 target_preopen (from_tty
);
160 "No core file specified. (Use `detach' to stop debugging a core file.)"
161 : "No core file specified.");
164 filename
= tilde_expand (filename
);
165 if (filename
[0] != '/')
167 temp
= concat (current_directory
, "/", filename
, NULL
);
172 old_chain
= make_cleanup (free
, filename
);
174 scratch_chan
= open (filename
, write_files
? O_RDWR
: O_RDONLY
, 0);
175 if (scratch_chan
< 0)
176 perror_with_name (filename
);
178 temp_bfd
= bfd_fdopenr (filename
, gnutarget
, scratch_chan
);
179 if (temp_bfd
== NULL
)
180 perror_with_name (filename
);
182 if (!bfd_check_format (temp_bfd
, bfd_core
))
184 /* Do it after the err msg */
185 /* FIXME: should be checking for errors from bfd_close (for one thing,
186 on error it does not free all the storage associated with the
188 make_cleanup (bfd_close
, temp_bfd
);
189 error ("\"%s\" is not a core dump: %s",
190 filename
, bfd_errmsg (bfd_get_error ()));
193 /* Looks semi-reasonable. Toss the old core file and work on the new. */
195 discard_cleanups (old_chain
); /* Don't free filename any more */
196 unpush_target (&core_ops
);
198 old_chain
= make_cleanup (core_close
, core_bfd
);
202 /* Find the data section */
203 if (build_section_table (core_bfd
, &core_ops
.to_sections
,
204 &core_ops
.to_sections_end
))
205 error ("\"%s\": Can't find sections: %s",
206 bfd_get_filename (core_bfd
), bfd_errmsg (bfd_get_error ()));
208 ontop
= !push_target (&core_ops
);
209 discard_cleanups (old_chain
);
211 p
= bfd_core_file_failing_command (core_bfd
);
213 printf_filtered ("Core was generated by `%s'.\n", p
);
215 siggy
= bfd_core_file_failing_signal (core_bfd
);
217 printf_filtered ("Program terminated with signal %d, %s.\n", siggy
,
218 safe_strsignal (siggy
));
220 /* Build up thread list from BFD sections. */
223 bfd_map_over_sections (core_bfd
, add_to_thread_list
,
224 bfd_get_section_by_name (core_bfd
, ".reg"));
228 /* Fetch all registers from core file. */
229 target_fetch_registers (-1);
231 /* Add symbols and section mappings for any shared libraries. */
233 catch_errors (solib_add_stub
, &from_tty
, (char *)0,
237 /* Now, set up the frame cache, and print the top of stack. */
238 flush_cached_frames ();
239 select_frame (get_current_frame (), 0);
240 print_stack_frame (selected_frame
, selected_frame_level
, 1);
245 "you won't be able to access this core file until you terminate\n\
246 your %s; do ``info files''", target_longname
);
251 core_detach (args
, from_tty
)
256 error ("Too many arguments");
257 unpush_target (&core_ops
);
258 reinit_frame_cache ();
260 printf_filtered ("No core file now.\n");
263 /* Get the registers out of a core file. This is the machine-
264 independent part. Fetch_core_registers is the machine-dependent
265 part, typically implemented in the xm-file for each architecture. */
267 /* We just get all the registers, so we don't use regno. */
271 get_core_registers (regno
)
278 enum bfd_flavour our_flavour
= bfd_get_flavour (core_bfd
);
281 if (core_file_fns
== NULL
)
283 fprintf_filtered (gdb_stderr
,
284 "Can't fetch registers from this type of core file\n");
288 /* Thread support. If inferior_pid is non-zero, then we have found a core
289 file with threads (or multiple processes). In that case, we need to
290 use the appropriate register section, else we just use `.reg'. */
292 /* XXX - same thing needs to be done for floating-point (.reg2) sections. */
295 sprintf (secname
, ".reg/%d", inferior_pid
);
297 strcpy (secname
, ".reg");
299 reg_sec
= bfd_get_section_by_name (core_bfd
, secname
);
302 size
= bfd_section_size (core_bfd
, reg_sec
);
303 the_regs
= alloca (size
);
304 /* Look for the core functions that match this flavor. Default to the
305 first one if nothing matches. */
306 for (cf
= core_file_fns
; cf
!= NULL
; cf
= cf
-> next
)
308 if (our_flavour
== cf
-> core_flavour
)
318 bfd_get_section_contents (core_bfd
, reg_sec
, the_regs
, (file_ptr
)0, size
) &&
319 cf
-> core_read_registers
!= NULL
)
321 (cf
-> core_read_registers (the_regs
, size
, 0,
322 (unsigned) bfd_section_vma (abfd
,reg_sec
)));
327 fprintf_filtered (gdb_stderr
,
328 "Couldn't fetch registers from core file: %s\n",
329 bfd_errmsg (bfd_get_error ()));
332 /* Now do it again for the float registers, if they exist. */
333 reg_sec
= bfd_get_section_by_name (core_bfd
, ".reg2");
336 size
= bfd_section_size (core_bfd
, reg_sec
);
337 the_regs
= alloca (size
);
339 bfd_get_section_contents (core_bfd
, reg_sec
, the_regs
, (file_ptr
)0, size
) &&
340 cf
-> core_read_registers
!= NULL
)
342 (cf
-> core_read_registers (the_regs
, size
, 2,
343 (unsigned) bfd_section_vma (abfd
,reg_sec
)));
347 fprintf_filtered (gdb_stderr
,
348 "Couldn't fetch register set 2 from core file: %s\n",
349 bfd_errmsg (bfd_get_error ()));
352 registers_fetched ();
357 struct target_ops
*t
;
359 print_section_info (t
, core_bfd
);
362 /* If mourn is being called in all the right places, this could be say
363 `gdb internal error' (since generic_mourn calls breakpoint_init_inferior). */
366 ignore (addr
, contents
)
373 struct target_ops core_ops
= {
374 "core", /* to_shortname */
375 "Local core dump file", /* to_longname */
376 "Use a core file as a target. Specify the filename of the core file.", /* to_doc */
377 core_open
, /* to_open */
378 core_close
, /* to_close */
379 find_default_attach
, /* to_attach */
380 core_detach
, /* to_detach */
383 get_core_registers
, /* to_fetch_registers */
384 0, /* to_store_registers */
385 0, /* to_prepare_to_store */
386 xfer_memory
, /* to_xfer_memory */
387 core_files_info
, /* to_files_info */
388 ignore
, /* to_insert_breakpoint */
389 ignore
, /* to_remove_breakpoint */
390 0, /* to_terminal_init */
391 0, /* to_terminal_inferior */
392 0, /* to_terminal_ours_for_output */
393 0, /* to_terminal_ours */
394 0, /* to_terminal_info */
397 0, /* to_lookup_symbol */
398 find_default_create_inferior
, /* to_create_inferior */
399 0, /* to_mourn_inferior */
401 0, /* to_notice_signals */
402 0, /* to_thread_alive */
404 core_stratum
, /* to_stratum */
406 0, /* to_has_all_memory */
407 1, /* to_has_memory */
408 1, /* to_has_stack */
409 1, /* to_has_registers */
410 0, /* to_has_execution */
412 0, /* to_sections_end */
413 OPS_MAGIC
, /* to_magic */
417 _initialize_corelow()
419 add_target (&core_ops
);