[deliverable/binutils-gdb.git] / gdb / corelow.c

/* Core dump and executable file functions below target vector, for GDB.
   Copyright 1986, 87, 89, 91, 92, 93, 94, 95, 96, 97, 1998
   Free Software Foundation, Inc.

This file is part of GDB.

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

#include "defs.h"
#include "gdb_string.h"
#include <errno.h>
#include <signal.h>
#include <fcntl.h>
#include "frame.h"  /* required by inferior.h */
#include "inferior.h"
#include "symtab.h"
#include "command.h"
#include "bfd.h"
#include "target.h"
#include "gdbcore.h"
#include "gdbthread.h"

/* List of all available core_fns.  On gdb startup, each core file register
   reader calls add_core_fns() to register information on each core format it
   is prepared to read. */

static struct core_fns *core_file_fns = NULL;

static void core_files_info PARAMS ((struct target_ops *));

#ifdef SOLIB_ADD
static int solib_add_stub PARAMS ((char *));
#endif

static void core_open PARAMS ((char *, int));

static void core_detach PARAMS ((char *, int));

static void core_close PARAMS ((int));

static void get_core_registers PARAMS ((int));

static void add_to_thread_list PARAMS ((bfd *, asection *, PTR));

static int ignore PARAMS ((CORE_ADDR, char *));

void _initialize_corelow PARAMS ((void));

/* Link a new core_fns into the global core_file_fns list.  Called on gdb
   startup by the _initialize routine in each core file register reader, to
   register information about each format the the reader is prepared to
   handle. */

void
add_core_fns (cf)
     struct core_fns *cf;
{
  cf -> next = core_file_fns;
  core_file_fns = cf;
}


/* Discard all vestiges of any previous core file and mark data and stack
   spaces as empty.  */

/* ARGSUSED */
static void
core_close (quitting)
     int quitting;
{
  char *name;

  if (core_bfd)
    {
      inferior_pid = 0;		/* Avoid confusion from thread stuff */

      name = bfd_get_filename (core_bfd);
      if (!bfd_close (core_bfd))
	warning ("cannot close \"%s\": %s",
		 name, bfd_errmsg (bfd_get_error ()));
      free (name);
      core_bfd = NULL;
#ifdef CLEAR_SOLIB
      CLEAR_SOLIB ();
#endif
      if (core_ops.to_sections)
	{
	  free ((PTR)core_ops.to_sections);
	  core_ops.to_sections = NULL;
	  core_ops.to_sections_end = NULL;
	}
    }
}

#ifdef SOLIB_ADD
/* Stub function for catch_errors around shared library hacking.  FROM_TTYP
   is really an int * which points to from_tty.  */

static int 
solib_add_stub (from_ttyp)
     char *from_ttyp;
{
  SOLIB_ADD (NULL, *(int *)from_ttyp, &current_target);
  re_enable_breakpoints_in_shlibs ();
  return 0;
}
#endif /* SOLIB_ADD */

/* Look for sections whose names start with `.reg/' so that we can extract the
   list of threads in a core file.  */

static void
add_to_thread_list (abfd, asect, reg_sect_arg)
     bfd *abfd;
     asection *asect;
     PTR reg_sect_arg;
{
  int thread_id;
  asection *reg_sect = (asection *) reg_sect_arg;

  if (strncmp (bfd_section_name (abfd, asect), ".reg/", 5) != 0)
    return;

  thread_id = atoi (bfd_section_name (abfd, asect) + 5);

  add_thread (thread_id);

/* Warning, Will Robinson, looking at BFD private data! */

  if (reg_sect != NULL
      && asect->filepos == reg_sect->filepos) /* Did we find .reg? */
    inferior_pid = thread_id;	/* Yes, make it current */
}

/* This routine opens and sets up the core file bfd.  */

static void
core_open (filename, from_tty)
     char *filename;
     int from_tty;
{
  const char *p;
  int siggy;
  struct cleanup *old_chain;
  char *temp;
  bfd *temp_bfd;
  int ontop;
  int scratch_chan;

  target_preopen (from_tty);
  if (!filename)
    {
      error (core_bfd ? 
       "No core file specified.  (Use `detach' to stop debugging a core file.)"
     : "No core file specified.");
    }

  filename = tilde_expand (filename);
  if (filename[0] != '/')
    {
      temp = concat (current_directory, "/", filename, NULL);
      free (filename);
      filename = temp;
    }

  old_chain = make_cleanup (free, filename);

  scratch_chan = open (filename, write_files ? O_RDWR : O_RDONLY, 0);
  if (scratch_chan < 0)
    perror_with_name (filename);

  temp_bfd = bfd_fdopenr (filename, gnutarget, scratch_chan);
  if (temp_bfd == NULL)
    perror_with_name (filename);

  if (!bfd_check_format (temp_bfd, bfd_core))
    {
      /* Do it after the err msg */
      /* FIXME: should be checking for errors from bfd_close (for one thing,
	 on error it does not free all the storage associated with the
	 bfd).  */
      make_cleanup ((make_cleanup_func) bfd_close, temp_bfd);
      error ("\"%s\" is not a core dump: %s",
	     filename, bfd_errmsg (bfd_get_error ()));
    }

  /* Looks semi-reasonable.  Toss the old core file and work on the new.  */

  discard_cleanups (old_chain);		/* Don't free filename any more */
  unpush_target (&core_ops);
  core_bfd = temp_bfd;
  old_chain = make_cleanup ((make_cleanup_func) core_close, core_bfd);

  validate_files ();

  /* Find the data section */
  if (build_section_table (core_bfd, &core_ops.to_sections,
			   &core_ops.to_sections_end))
    error ("\"%s\": Can't find sections: %s",
	   bfd_get_filename (core_bfd), bfd_errmsg (bfd_get_error ()));

  ontop = !push_target (&core_ops);
  discard_cleanups (old_chain);

  p = bfd_core_file_failing_command (core_bfd);
  if (p)
    printf_filtered ("Core was generated by `%s'.\n", p);

  siggy = bfd_core_file_failing_signal (core_bfd);
  if (siggy > 0)
    printf_filtered ("Program terminated with signal %d, %s.\n", siggy,
		     safe_strsignal (siggy));

  /* Build up thread list from BFD sections. */

  init_thread_list ();
  bfd_map_over_sections (core_bfd, add_to_thread_list,
			 bfd_get_section_by_name (core_bfd, ".reg"));

  if (ontop)
    {
      /* Fetch all registers from core file.  */
      target_fetch_registers (-1);

      /* Add symbols and section mappings for any shared libraries.  */
#ifdef SOLIB_ADD
      catch_errors (solib_add_stub, &from_tty, (char *)0,
		    RETURN_MASK_ALL);
#endif

      /* Now, set up the frame cache, and print the top of stack.  */
      flush_cached_frames ();
      select_frame (get_current_frame (), 0);
      print_stack_frame (selected_frame, selected_frame_level, 1);
    }
  else
    {
      warning (
"you won't be able to access this core file until you terminate\n\
your %s; do ``info files''", target_longname);
    }
}

static void
core_detach (args, from_tty)
     char *args;
     int from_tty;
{
  if (args)
    error ("Too many arguments");
  unpush_target (&core_ops);
  reinit_frame_cache ();
  if (from_tty)
    printf_filtered ("No core file now.\n");
}

/* Get the registers out of a core file.  This is the machine-
   independent part.  Fetch_core_registers is the machine-dependent
   part, typically implemented in the xm-file for each architecture.  */

/* We just get all the registers, so we don't use regno.  */

/* ARGSUSED */
static void
get_core_registers (regno)
     int regno;
{
  sec_ptr reg_sec;
  unsigned size;
  char *the_regs;
  char secname[30];
  enum bfd_flavour our_flavour = bfd_get_flavour (core_bfd);
  struct core_fns *cf = NULL;

  if (core_file_fns == NULL)
    {
      fprintf_filtered (gdb_stderr,
			"Can't fetch registers from this type of core file\n");
      return;
    }

  /* Thread support.  If inferior_pid is non-zero, then we have found a core
     file with threads (or multiple processes).  In that case, we need to
     use the appropriate register section, else we just use `.reg'. */

  /* XXX - same thing needs to be done for floating-point (.reg2) sections. */

  if (inferior_pid)
    sprintf (secname, ".reg/%d", inferior_pid);
  else
    strcpy (secname, ".reg");

  reg_sec = bfd_get_section_by_name (core_bfd, secname);
  if (!reg_sec)
    goto cant;
  size = bfd_section_size (core_bfd, reg_sec);
  the_regs = alloca (size);
  /* Look for the core functions that match this flavor.  Default to the
     first one if nothing matches. */
  for (cf = core_file_fns; cf != NULL; cf = cf -> next)
    {
      if (our_flavour == cf -> core_flavour)
	{
	  break;
	}
    }
  if (cf == NULL)
    {
      cf = core_file_fns;
    }
  if (cf != NULL &&
      bfd_get_section_contents (core_bfd, reg_sec, the_regs, (file_ptr)0, size) &&
      cf -> core_read_registers != NULL)
    {
      (cf -> core_read_registers (the_regs, size, 0,
				  (unsigned) bfd_section_vma (abfd,reg_sec)));
    }
  else
    {
cant:
      fprintf_filtered (gdb_stderr,
			"Couldn't fetch registers from core file: %s\n",
			bfd_errmsg (bfd_get_error ()));
    }

  /* Now do it again for the float registers, if they exist.  */
  reg_sec = bfd_get_section_by_name (core_bfd, ".reg2");
  if (reg_sec)
    {
      size = bfd_section_size (core_bfd, reg_sec);
      the_regs = alloca (size);
      if (cf != NULL &&
	  bfd_get_section_contents (core_bfd, reg_sec, the_regs, (file_ptr)0, size) &&
	  cf -> core_read_registers != NULL)
	{
	  (cf -> core_read_registers (the_regs, size, 2,
				      (unsigned) bfd_section_vma (abfd,reg_sec)));
	}
      else
	{
	  fprintf_filtered (gdb_stderr, 
			    "Couldn't fetch register set 2 from core file: %s\n",
			    bfd_errmsg (bfd_get_error ()));
	}
    }
  registers_fetched ();
}

static void
core_files_info (t)
  struct target_ops *t;
{
  print_section_info (t, core_bfd);
}
\f
/* If mourn is being called in all the right places, this could be say
   `gdb internal error' (since generic_mourn calls breakpoint_init_inferior).  */

static int
ignore (addr, contents)
     CORE_ADDR addr;
     char *contents;
{
  return 0;
}

struct target_ops core_ops = {
  "core",			/* to_shortname */
  "Local core dump file",	/* to_longname */
  "Use a core file as a target.  Specify the filename of the core file.", /* to_doc */
  core_open,			/* to_open */
  core_close,			/* to_close */
  find_default_attach,		/* to_attach */
  core_detach,			/* to_detach */
  0,				/* to_resume */
  0,				/* to_wait */
  get_core_registers,		/* to_fetch_registers */
  0,				/* to_store_registers */
  0,				/* to_prepare_to_store */
  xfer_memory,			/* to_xfer_memory */
  core_files_info,		/* to_files_info */
  ignore,			/* to_insert_breakpoint */
  ignore,			/* to_remove_breakpoint */
  0,				/* to_terminal_init */
  0,				/* to_terminal_inferior */
  0,				/* to_terminal_ours_for_output */
  0,				/* to_terminal_ours */
  0,				/* to_terminal_info */
  0,				/* to_kill */
  0,				/* to_load */
  0,				/* to_lookup_symbol */
  find_default_create_inferior,	/* to_create_inferior */
  0,				/* to_mourn_inferior */
  0,				/* to_can_run */
  0,				/* to_notice_signals */
  0,				/* to_thread_alive */
  0,				/* to_stop */
  core_stratum,			/* to_stratum */
  0,				/* to_next */
  0,				/* to_has_all_memory */
  1,				/* to_has_memory */
  1,				/* to_has_stack */
  1,				/* to_has_registers */
  0,				/* to_has_execution */
  0,				/* to_sections */
  0,				/* to_sections_end */
  OPS_MAGIC,			/* to_magic */
};

/* non-zero if we should not do the add_target call in
   _initialize_corelow; not initialized (i.e., bss) so that
   the target can initialize it (i.e., data) if appropriate.
   This needs to be set at compile time because we don't know
   for sure whether the target's initialize routine is called
   before us or after us. */
int coreops_suppress_target;

void
_initialize_corelow ()
{
  if (!coreops_suppress_target)
    add_target (&core_ops);
}
Commit	Line	Data
	1	/* Core dump and executable file functions below target vector, for GDB.
	2	Copyright 1986, 87, 89, 91, 92, 93, 94, 95, 96, 97, 1998
	3	Free Software Foundation, Inc.
	4
	5	This file is part of GDB.
	6
	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.
	11
	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.
	16
	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. */
	20
	21	#include "defs.h"
	22	#include "gdb_string.h"
	23	#include <errno.h>
	24	#include <signal.h>
	25	#include <fcntl.h>
	26	#include "frame.h" /* required by inferior.h */
	27	#include "inferior.h"
	28	#include "symtab.h"
	29	#include "command.h"
	30	#include "bfd.h"
	31	#include "target.h"
	32	#include "gdbcore.h"
	33	#include "gdbthread.h"
	34
	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. */
	38
	39	static struct core_fns *core_file_fns = NULL;
	40
	41	static void core_files_info PARAMS ((struct target_ops *));
	42
	43	#ifdef SOLIB_ADD
	44	static int solib_add_stub PARAMS ((char *));
	45	#endif
	46
	47	static void core_open PARAMS ((char *, int));
	48
	49	static void core_detach PARAMS ((char *, int));
	50
	51	static void core_close PARAMS ((int));
	52
	53	static void get_core_registers PARAMS ((int));
	54
	55	static void add_to_thread_list PARAMS ((bfd , asection , PTR));
	56
	57	static int ignore PARAMS ((CORE_ADDR, char *));
	58
	59	void _initialize_corelow PARAMS ((void));
	60
	61	/* Link a new core_fns into the global core_file_fns list. Called on gdb
	62	startup by the _initialize routine in each core file register reader, to
	63	register information about each format the the reader is prepared to
	64	handle. */
	65
	66	void
	67	add_core_fns (cf)
	68	struct core_fns *cf;
	69	{
	70	cf -> next = core_file_fns;
	71	core_file_fns = cf;
	72	}
	73
	74
	75	/* Discard all vestiges of any previous core file and mark data and stack
	76	spaces as empty. */
	77
	78	/* ARGSUSED */
	79	static void
	80	core_close (quitting)
	81	int quitting;
	82	{
	83	char *name;
	84
	85	if (core_bfd)
	86	{
	87	inferior_pid = 0; /* Avoid confusion from thread stuff */
	88
	89	name = bfd_get_filename (core_bfd);
	90	if (!bfd_close (core_bfd))
	91	warning ("cannot close \"%s\": %s",
	92	name, bfd_errmsg (bfd_get_error ()));
	93	free (name);
	94	core_bfd = NULL;
	95	#ifdef CLEAR_SOLIB
	96	CLEAR_SOLIB ();
	97	#endif
	98	if (core_ops.to_sections)
	99	{
	100	free ((PTR)core_ops.to_sections);
	101	core_ops.to_sections = NULL;
	102	core_ops.to_sections_end = NULL;
	103	}
	104	}
	105	}
	106
	107	#ifdef SOLIB_ADD
	108	/* Stub function for catch_errors around shared library hacking. FROM_TTYP
	109	is really an int * which points to from_tty. */
	110
	111	static int
	112	solib_add_stub (from_ttyp)
	113	char *from_ttyp;
	114	{
	115	SOLIB_ADD (NULL, (int )from_ttyp, &current_target);
	116	re_enable_breakpoints_in_shlibs ();
	117	return 0;
	118	}
	119	#endif /* SOLIB_ADD */
	120
	121	/* Look for sections whose names start with `.reg/' so that we can extract the
	122	list of threads in a core file. */
	123
	124	static void
	125	add_to_thread_list (abfd, asect, reg_sect_arg)
	126	bfd *abfd;
	127	asection *asect;
	128	PTR reg_sect_arg;
	129	{
	130	int thread_id;
	131	asection reg_sect = (asection ) reg_sect_arg;
	132
	133	if (strncmp (bfd_section_name (abfd, asect), ".reg/", 5) != 0)
	134	return;
	135
	136	thread_id = atoi (bfd_section_name (abfd, asect) + 5);
	137
	138	add_thread (thread_id);
	139
	140	/* Warning, Will Robinson, looking at BFD private data! */
	141
	142	if (reg_sect != NULL
	143	&& asect->filepos == reg_sect->filepos) /* Did we find .reg? */
	144	inferior_pid = thread_id; /* Yes, make it current */
	145	}
	146
	147	/* This routine opens and sets up the core file bfd. */
	148
	149	static void
	150	core_open (filename, from_tty)
	151	char *filename;
	152	int from_tty;
	153	{
	154	const char *p;
	155	int siggy;
	156	struct cleanup *old_chain;
	157	char *temp;
	158	bfd *temp_bfd;
	159	int ontop;
	160	int scratch_chan;
	161
	162	target_preopen (from_tty);
	163	if (!filename)
	164	{
	165	error (core_bfd ?
	166	"No core file specified. (Use `detach' to stop debugging a core file.)"
	167	: "No core file specified.");
	168	}
	169
	170	filename = tilde_expand (filename);
	171	if (filename[0] != '/')
	172	{
	173	temp = concat (current_directory, "/", filename, NULL);
	174	free (filename);
	175	filename = temp;
	176	}
	177
	178	old_chain = make_cleanup (free, filename);
	179
	180	scratch_chan = open (filename, write_files ? O_RDWR : O_RDONLY, 0);
	181	if (scratch_chan < 0)
	182	perror_with_name (filename);
	183
	184	temp_bfd = bfd_fdopenr (filename, gnutarget, scratch_chan);
	185	if (temp_bfd == NULL)
	186	perror_with_name (filename);
	187
	188	if (!bfd_check_format (temp_bfd, bfd_core))
	189	{
	190	/* Do it after the err msg */
	191	/* FIXME: should be checking for errors from bfd_close (for one thing,
	192	on error it does not free all the storage associated with the
	193	bfd). */
	194	make_cleanup ((make_cleanup_func) bfd_close, temp_bfd);
	195	error ("\"%s\" is not a core dump: %s",
	196	filename, bfd_errmsg (bfd_get_error ()));
	197	}
	198
	199	/* Looks semi-reasonable. Toss the old core file and work on the new. */
	200
	201	discard_cleanups (old_chain); /* Don't free filename any more */
	202	unpush_target (&core_ops);
	203	core_bfd = temp_bfd;
	204	old_chain = make_cleanup ((make_cleanup_func) core_close, core_bfd);
	205
	206	validate_files ();
	207
	208	/* Find the data section */
	209	if (build_section_table (core_bfd, &core_ops.to_sections,
	210	&core_ops.to_sections_end))
	211	error ("\"%s\": Can't find sections: %s",
	212	bfd_get_filename (core_bfd), bfd_errmsg (bfd_get_error ()));
	213
	214	ontop = !push_target (&core_ops);
	215	discard_cleanups (old_chain);
	216
	217	p = bfd_core_file_failing_command (core_bfd);
	218	if (p)
	219	printf_filtered ("Core was generated by `%s'.\n", p);
	220
	221	siggy = bfd_core_file_failing_signal (core_bfd);
	222	if (siggy > 0)
	223	printf_filtered ("Program terminated with signal %d, %s.\n", siggy,
	224	safe_strsignal (siggy));
	225
	226	/* Build up thread list from BFD sections. */
	227
	228	init_thread_list ();
	229	bfd_map_over_sections (core_bfd, add_to_thread_list,
	230	bfd_get_section_by_name (core_bfd, ".reg"));
	231
	232	if (ontop)
	233	{
	234	/* Fetch all registers from core file. */
	235	target_fetch_registers (-1);
	236
	237	/* Add symbols and section mappings for any shared libraries. */
	238	#ifdef SOLIB_ADD
	239	catch_errors (solib_add_stub, &from_tty, (char *)0,
	240	RETURN_MASK_ALL);
	241	#endif
	242
	243	/* Now, set up the frame cache, and print the top of stack. */
	244	flush_cached_frames ();
	245	select_frame (get_current_frame (), 0);
	246	print_stack_frame (selected_frame, selected_frame_level, 1);
	247	}
	248	else
	249	{
	250	warning (
	251	"you won't be able to access this core file until you terminate\n\
	252	your %s; do ``info files''", target_longname);
	253	}
	254	}
	255
	256	static void
	257	core_detach (args, from_tty)
	258	char *args;
	259	int from_tty;
	260	{
	261	if (args)
	262	error ("Too many arguments");
	263	unpush_target (&core_ops);
	264	reinit_frame_cache ();
	265	if (from_tty)
	266	printf_filtered ("No core file now.\n");
	267	}
	268
	269	/* Get the registers out of a core file. This is the machine-
	270	independent part. Fetch_core_registers is the machine-dependent
	271	part, typically implemented in the xm-file for each architecture. */
	272
	273	/* We just get all the registers, so we don't use regno. */
	274
	275	/* ARGSUSED */
	276	static void
	277	get_core_registers (regno)
	278	int regno;
	279	{
	280	sec_ptr reg_sec;
	281	unsigned size;
	282	char *the_regs;
	283	char secname[30];
	284	enum bfd_flavour our_flavour = bfd_get_flavour (core_bfd);
	285	struct core_fns *cf = NULL;
	286
	287	if (core_file_fns == NULL)
	288	{
	289	fprintf_filtered (gdb_stderr,
	290	"Can't fetch registers from this type of core file\n");
	291	return;
	292	}
	293
	294	/* Thread support. If inferior_pid is non-zero, then we have found a core
	295	file with threads (or multiple processes). In that case, we need to
	296	use the appropriate register section, else we just use `.reg'. */
	297
	298	/* XXX - same thing needs to be done for floating-point (.reg2) sections. */
	299
	300	if (inferior_pid)
	301	sprintf (secname, ".reg/%d", inferior_pid);
	302	else
	303	strcpy (secname, ".reg");
	304
	305	reg_sec = bfd_get_section_by_name (core_bfd, secname);
	306	if (!reg_sec)
	307	goto cant;
	308	size = bfd_section_size (core_bfd, reg_sec);
	309	the_regs = alloca (size);
	310	/* Look for the core functions that match this flavor. Default to the
	311	first one if nothing matches. */
	312	for (cf = core_file_fns; cf != NULL; cf = cf -> next)
	313	{
	314	if (our_flavour == cf -> core_flavour)
	315	{
	316	break;
	317	}
	318	}
	319	if (cf == NULL)
	320	{
	321	cf = core_file_fns;
	322	}
	323	if (cf != NULL &&
	324	bfd_get_section_contents (core_bfd, reg_sec, the_regs, (file_ptr)0, size) &&
	325	cf -> core_read_registers != NULL)
	326	{
	327	(cf -> core_read_registers (the_regs, size, 0,
	328	(unsigned) bfd_section_vma (abfd,reg_sec)));
	329	}
	330	else
	331	{
	332	cant:
	333	fprintf_filtered (gdb_stderr,
	334	"Couldn't fetch registers from core file: %s\n",
	335	bfd_errmsg (bfd_get_error ()));
	336	}
	337
	338	/* Now do it again for the float registers, if they exist. */
	339	reg_sec = bfd_get_section_by_name (core_bfd, ".reg2");
	340	if (reg_sec)
	341	{
	342	size = bfd_section_size (core_bfd, reg_sec);
	343	the_regs = alloca (size);
	344	if (cf != NULL &&
	345	bfd_get_section_contents (core_bfd, reg_sec, the_regs, (file_ptr)0, size) &&
	346	cf -> core_read_registers != NULL)
	347	{
	348	(cf -> core_read_registers (the_regs, size, 2,
	349	(unsigned) bfd_section_vma (abfd,reg_sec)));
	350	}
	351	else
	352	{
	353	fprintf_filtered (gdb_stderr,
	354	"Couldn't fetch register set 2 from core file: %s\n",
	355	bfd_errmsg (bfd_get_error ()));
	356	}
	357	}
	358	registers_fetched ();
	359	}
	360
	361	static void
	362	core_files_info (t)
	363	struct target_ops *t;
	364	{
	365	print_section_info (t, core_bfd);
	366	}
	367	\f
	368	/* If mourn is being called in all the right places, this could be say
	369	`gdb internal error' (since generic_mourn calls breakpoint_init_inferior). */
	370
	371	static int
	372	ignore (addr, contents)
	373	CORE_ADDR addr;
	374	char *contents;
	375	{
	376	return 0;
	377	}
	378
	379	struct target_ops core_ops = {
	380	"core", /* to_shortname */
	381	"Local core dump file", /* to_longname */
	382	"Use a core file as a target. Specify the filename of the core file.", /* to_doc */
	383	core_open, /* to_open */
	384	core_close, /* to_close */
	385	find_default_attach, /* to_attach */
	386	core_detach, /* to_detach */
	387	0, /* to_resume */
	388	0, /* to_wait */
	389	get_core_registers, /* to_fetch_registers */
	390	0, /* to_store_registers */
	391	0, /* to_prepare_to_store */
	392	xfer_memory, /* to_xfer_memory */
	393	core_files_info, /* to_files_info */
	394	ignore, /* to_insert_breakpoint */
	395	ignore, /* to_remove_breakpoint */
	396	0, /* to_terminal_init */
	397	0, /* to_terminal_inferior */
	398	0, /* to_terminal_ours_for_output */
	399	0, /* to_terminal_ours */
	400	0, /* to_terminal_info */
	401	0, /* to_kill */
	402	0, /* to_load */
	403	0, /* to_lookup_symbol */
	404	find_default_create_inferior, /* to_create_inferior */
	405	0, /* to_mourn_inferior */
	406	0, /* to_can_run */
	407	0, /* to_notice_signals */
	408	0, /* to_thread_alive */
	409	0, /* to_stop */
	410	core_stratum, /* to_stratum */
	411	0, /* to_next */
	412	0, /* to_has_all_memory */
	413	1, /* to_has_memory */
	414	1, /* to_has_stack */
	415	1, /* to_has_registers */
	416	0, /* to_has_execution */
	417	0, /* to_sections */
	418	0, /* to_sections_end */
	419	OPS_MAGIC, /* to_magic */
	420	};
	421
	422	/* non-zero if we should not do the add_target call in
	423	_initialize_corelow; not initialized (i.e., bss) so that
	424	the target can initialize it (i.e., data) if appropriate.
	425	This needs to be set at compile time because we don't know
	426	for sure whether the target's initialize routine is called
	427	before us or after us. */
	428	int coreops_suppress_target;
	429
	430	void
	431	_initialize_corelow ()
	432	{
	433	if (!coreops_suppress_target)
	434	add_target (&core_ops);
	435	}