[binutils.git] / bfd / irix-core.c

/* BFD back-end for Irix core files.
   Copyright 1993 Free Software Foundation, Inc.
   Written by Stu Grossman, Cygnus Support.
   Converted to back-end form by Ian Lance Taylor, Cygnus Support

This file is part of BFD, the Binary File Descriptor library.

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., 675 Mass Ave, Cambridge, MA 02139, USA.  */

/* This file can only be compiled on systems which use Irix style core
   files (namely, Irix 4 and Irix 5, so far).  In the config/XXXXXX.mh
   file for such a system add
      HDEFINES=-DIRIX_CORE
      HDEPFILES=irix-core.o
   */

#include "bfd.h"
#include "sysdep.h"
#include "libbfd.h"

#ifdef IRIX_CORE

#include <core.out.h>

struct sgi_core_struct 
{
  int sig;
  char cmd[CORE_NAMESIZE];
};

#define core_hdr(bfd) ((bfd)->tdata.sgi_core_data)
#define core_signal(bfd) (core_hdr(bfd)->sig)
#define core_command(bfd) (core_hdr(bfd)->cmd)

static asection *
make_bfd_asection (abfd, name, flags, _raw_size, vma, filepos)
     bfd *abfd;
     CONST char *name;
     flagword flags;
     bfd_size_type _raw_size;
     bfd_vma vma;
     file_ptr filepos;
{
  asection *asect;

  asect = bfd_make_section_anyway (abfd, name);
  if (!asect)
    return NULL;

  asect->flags = flags;
  asect->_raw_size = _raw_size;
  asect->vma = vma;
  asect->filepos = filepos;
  asect->alignment_power = 4;

  return asect;
}

static bfd_target *
irix_core_core_file_p (abfd)
     bfd *abfd;
{
  int val;
  int i;
  char *secname;
  struct coreout coreout;
  struct idesc *idg, *idf, *ids;

  val = bfd_read ((PTR)&coreout, 1, sizeof coreout, abfd);
  if (val != sizeof coreout)
    {
      if (bfd_get_error () != bfd_error_system_call)
	bfd_set_error (bfd_error_wrong_format);
      return 0;
    }

  if (coreout.c_magic != CORE_MAGIC
      || coreout.c_version != CORE_VERSION1)
    return 0;

  core_hdr (abfd) = (struct sgi_core_struct *) bfd_zalloc (abfd, sizeof (struct sgi_core_struct));
  if (!core_hdr (abfd))
    return NULL;

  strncpy (core_command (abfd), coreout.c_name, CORE_NAMESIZE);
  core_signal (abfd) = coreout.c_sigcause;

  if (bfd_seek (abfd, coreout.c_vmapoffset, SEEK_SET) != 0)
    return NULL;

  for (i = 0; i < coreout.c_nvmap; i++)
    {
      struct vmap vmap;

      val = bfd_read ((PTR)&vmap, 1, sizeof vmap, abfd);
      if (val != sizeof vmap)
	break;

      switch (vmap.v_type)
	{
	case VDATA:
	  secname = ".data";
	  break;
	case VSTACK:
	  secname = ".stack";
	  break;
#ifdef VMAPFILE
	case VMAPFILE:
	  secname = ".mapfile";
	  break;
#endif
	default:
	  continue;
	}

      if (!make_bfd_asection (abfd, secname,
			      SEC_ALLOC+SEC_LOAD+SEC_HAS_CONTENTS,
			      vmap.v_len,
			      vmap.v_vaddr,
			      vmap.v_offset,
			      2))
	return NULL;
    }

  /* Make sure that the regs are contiguous within the core file. */

  idg = &coreout.c_idesc[I_GPREGS];
  idf = &coreout.c_idesc[I_FPREGS];
  ids = &coreout.c_idesc[I_SPECREGS];

  if (idg->i_offset + idg->i_len != idf->i_offset
      || idf->i_offset + idf->i_len != ids->i_offset)
    return 0;			/* Can't deal with non-contig regs */

  if (bfd_seek (abfd, idg->i_offset, SEEK_SET) != 0)
    return NULL;

  make_bfd_asection (abfd, ".reg",
		     SEC_ALLOC+SEC_HAS_CONTENTS,
		     idg->i_len + idf->i_len + ids->i_len,
		     0,
		     idg->i_offset);

  /* OK, we believe you.  You're a core file (sure, sure).  */

  return abfd->xvec;
}

static char *
irix_core_core_file_failing_command (abfd)
     bfd *abfd;
{
  return core_command (abfd);
}

static int
irix_core_core_file_failing_signal (abfd)
     bfd *abfd;
{
  return core_signal (abfd);
}

static boolean
irix_core_core_file_matches_executable_p (core_bfd, exec_bfd)
     bfd *core_bfd, *exec_bfd;
{
  return true;			/* XXX - FIXME */
}

static asymbol *
irix_core_make_empty_symbol (abfd)
     bfd *abfd;
{
  asymbol *new = (asymbol *) bfd_zalloc (abfd, sizeof (asymbol));
  if (new)
    new->the_bfd = abfd;
  return new;
}

#define irix_core_get_symtab_upper_bound _bfd_nosymbols_get_symtab_upper_bound
#define irix_core_get_symtab _bfd_nosymbols_get_symtab
#define irix_core_print_symbol _bfd_nosymbols_print_symbol
#define irix_core_get_symbol_info _bfd_nosymbols_get_symbol_info
#define irix_core_bfd_is_local_label _bfd_nosymbols_bfd_is_local_label
#define irix_core_get_lineno _bfd_nosymbols_get_lineno
#define irix_core_find_nearest_line _bfd_nosymbols_find_nearest_line
#define irix_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol

/* If somebody calls any byte-swapping routines, shoot them.  */
void
swap_abort()
{
  abort(); /* This way doesn't require any declaration for ANSI to fuck up */
}
#define	NO_GET	((bfd_vma (*) PARAMS ((   const bfd_byte *))) swap_abort )
#define	NO_PUT	((void    (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort )
#define	NO_SIGNED_GET \
  ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort )

bfd_target irix_core_vec =
  {
    "irix-core",
    bfd_target_unknown_flavour,
    true,			/* target byte order */
    true,			/* target headers byte order */
    (HAS_RELOC | EXEC_P |	/* object flags */
     HAS_LINENO | HAS_DEBUG |
     HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
    (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
    0,			                                   /* symbol prefix */
    ' ',						   /* ar_pad_char */
    16,							   /* ar_max_namelen */
    3,							   /* minimum alignment power */
    NO_GET, NO_SIGNED_GET, NO_PUT,	/* 64 bit data */
    NO_GET, NO_SIGNED_GET, NO_PUT,	/* 32 bit data */
    NO_GET, NO_SIGNED_GET, NO_PUT,	/* 16 bit data */
    NO_GET, NO_SIGNED_GET, NO_PUT,	/* 64 bit hdrs */
    NO_GET, NO_SIGNED_GET, NO_PUT,	/* 32 bit hdrs */
    NO_GET, NO_SIGNED_GET, NO_PUT,	/* 16 bit hdrs */

    {				/* bfd_check_format */
     _bfd_dummy_target,		/* unknown format */
     _bfd_dummy_target,		/* object file */
     _bfd_dummy_target,		/* archive */
     irix_core_core_file_p	/* a core file */
    },
    {				/* bfd_set_format */
     bfd_false, bfd_false,
     bfd_false, bfd_false
    },
    {				/* bfd_write_contents */
     bfd_false, bfd_false,
     bfd_false, bfd_false
    },
    
       BFD_JUMP_TABLE_GENERIC (_bfd_generic),
       BFD_JUMP_TABLE_COPY (_bfd_generic),
       BFD_JUMP_TABLE_CORE (irix_core),
       BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
       BFD_JUMP_TABLE_SYMBOLS (irix_core),
       BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
       BFD_JUMP_TABLE_WRITE (_bfd_generic),
       BFD_JUMP_TABLE_LINK (_bfd_nolink),

    (PTR) 0			/* backend_data */
};

#endif /* IRIX_CORE */
Commit	Line	Data
4c3721d5 ILT	1	/* BFD back-end for Irix core files.
	2	Copyright 1993 Free Software Foundation, Inc.
	3	Written by Stu Grossman, Cygnus Support.
	4	Converted to back-end form by Ian Lance Taylor, Cygnus Support
	5
	6	This file is part of BFD, the Binary File Descriptor library.
	7
	8	This program is free software; you can redistribute it and/or modify
	9	it under the terms of the GNU General Public License as published by
	10	the Free Software Foundation; either version 2 of the License, or
	11	(at your option) any later version.
	12
	13	This program is distributed in the hope that it will be useful,
	14	but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	GNU General Public License for more details.
	17
	18	You should have received a copy of the GNU General Public License
	19	along with this program; if not, write to the Free Software
	20	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
	21
	22	/* This file can only be compiled on systems which use Irix style core
	23	files (namely, Irix 4 and Irix 5, so far). In the config/XXXXXX.mh
	24	file for such a system add
	25	HDEFINES=-DIRIX_CORE
	26	HDEPFILES=irix-core.o
	27	*/
	28
	29	#include "bfd.h"
	30	#include "sysdep.h"
	31	#include "libbfd.h"
	32
	33	#ifdef IRIX_CORE
	34
	35	#include <core.out.h>
	36
	37	struct sgi_core_struct
	38	{
	39	int sig;
	40	char cmd[CORE_NAMESIZE];
	41	};
	42
	43	#define core_hdr(bfd) ((bfd)->tdata.sgi_core_data)
	44	#define core_signal(bfd) (core_hdr(bfd)->sig)
	45	#define core_command(bfd) (core_hdr(bfd)->cmd)
	46
	47	static asection *
	48	make_bfd_asection (abfd, name, flags, _raw_size, vma, filepos)
	49	bfd *abfd;
	50	CONST char *name;
	51	flagword flags;
	52	bfd_size_type _raw_size;
	53	bfd_vma vma;
	54	file_ptr filepos;
	55	{
	56	asection *asect;
	57
	58	asect = bfd_make_section_anyway (abfd, name);
	59	if (!asect)
	60	return NULL;
	61
	62	asect->flags = flags;
	63	asect->_raw_size = _raw_size;
	64	asect->vma = vma;
65	asect->filepos = filepos;
66	asect->alignment_power = 4;
67
68	return asect;
69	}
70
71	static bfd_target *
72	irix_core_core_file_p (abfd)
73	bfd *abfd;
74	{
75	int val;
76	int i;
77	char *secname;
78	struct coreout coreout;
79	struct idesc idg, idf, *ids;
80
81	val = bfd_read ((PTR)&coreout, 1, sizeof coreout, abfd);
82	if (val != sizeof coreout)
4002f18a ILT	83	{
	84	if (bfd_get_error () != bfd_error_system_call)
	85	bfd_set_error (bfd_error_wrong_format);
	86	return 0;
	87	}
4c3721d5 ILT	88
	89	if (coreout.c_magic != CORE_MAGIC
	90	\|\| coreout.c_version != CORE_VERSION1)
	91	return 0;
	92
	93	core_hdr (abfd) = (struct sgi_core_struct *) bfd_zalloc (abfd, sizeof (struct sgi_core_struct));
	94	if (!core_hdr (abfd))
	95	return NULL;
	96
	97	strncpy (core_command (abfd), coreout.c_name, CORE_NAMESIZE);
	98	core_signal (abfd) = coreout.c_sigcause;
	99
4002f18a ILT	100	if (bfd_seek (abfd, coreout.c_vmapoffset, SEEK_SET) != 0)
4002f18a ILT	101	return NULL;
4c3721d5 ILT	102
	103	for (i = 0; i < coreout.c_nvmap; i++)
	104	{
	105	struct vmap vmap;
	106
	107	val = bfd_read ((PTR)&vmap, 1, sizeof vmap, abfd);
	108	if (val != sizeof vmap)
	109	break;
	110
	111	switch (vmap.v_type)
	112	{
	113	case VDATA:
	114	secname = ".data";
	115	break;
	116	case VSTACK:
	117	secname = ".stack";
	118	break;
	119	#ifdef VMAPFILE
	120	case VMAPFILE:
	121	secname = ".mapfile";
	122	break;
	123	#endif
	124	default:
	125	continue;
	126	}
	127
	128	if (!make_bfd_asection (abfd, secname,
	129	SEC_ALLOC+SEC_LOAD+SEC_HAS_CONTENTS,
	130	vmap.v_len,
	131	vmap.v_vaddr,
	132	vmap.v_offset,
	133	2))
	134	return NULL;
	135	}
	136
	137	/* Make sure that the regs are contiguous within the core file. */
	138
	139	idg = &coreout.c_idesc[I_GPREGS];
	140	idf = &coreout.c_idesc[I_FPREGS];
	141	ids = &coreout.c_idesc[I_SPECREGS];
	142
	143	if (idg->i_offset + idg->i_len != idf->i_offset
	144	\|\| idf->i_offset + idf->i_len != ids->i_offset)
	145	return 0; /* Can't deal with non-contig regs */
	146
4002f18a ILT	147	if (bfd_seek (abfd, idg->i_offset, SEEK_SET) != 0)
4002f18a ILT	148	return NULL;
4c3721d5 ILT	149
	150	make_bfd_asection (abfd, ".reg",
	151	SEC_ALLOC+SEC_HAS_CONTENTS,
	152	idg->i_len + idf->i_len + ids->i_len,
	153	0,
	154	idg->i_offset);
	155
	156	/* OK, we believe you. You're a core file (sure, sure). */
	157
	158	return abfd->xvec;
	159	}
	160
	161	static char *
	162	irix_core_core_file_failing_command (abfd)
	163	bfd *abfd;
	164	{
	165	return core_command (abfd);
	166	}
	167
	168	static int
	169	irix_core_core_file_failing_signal (abfd)
	170	bfd *abfd;
	171	{
	172	return core_signal (abfd);
	173	}
	174
	175	static boolean
	176	irix_core_core_file_matches_executable_p (core_bfd, exec_bfd)
	177	bfd core_bfd, exec_bfd;
	178	{
	179	return true; /* XXX - FIXME */
	180	}
	181
	182	static asymbol *
	183	irix_core_make_empty_symbol (abfd)
	184	bfd *abfd;
	185	{
	186	asymbol new = (asymbol ) bfd_zalloc (abfd, sizeof (asymbol));
326e32d7 ILT	187	if (new)
326e32d7 ILT	188	new->the_bfd = abfd;
4c3721d5 ILT	189	return new;
	190	}
	191
6812b607 ILT	192	#define irix_core_get_symtab_upper_bound _bfd_nosymbols_get_symtab_upper_bound
	193	#define irix_core_get_symtab _bfd_nosymbols_get_symtab
	194	#define irix_core_print_symbol _bfd_nosymbols_print_symbol
	195	#define irix_core_get_symbol_info _bfd_nosymbols_get_symbol_info
	196	#define irix_core_bfd_is_local_label _bfd_nosymbols_bfd_is_local_label
	197	#define irix_core_get_lineno _bfd_nosymbols_get_lineno
	198	#define irix_core_find_nearest_line _bfd_nosymbols_find_nearest_line
	199	#define irix_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
326e32d7	200
4c3721d5 ILT	201	/* If somebody calls any byte-swapping routines, shoot them. */
	202	void
	203	swap_abort()
	204	{
	205	abort(); /* This way doesn't require any declaration for ANSI to fuck up */
	206	}
326e32d7	207	#define NO_GET ((bfd_vma () PARAMS (( const bfd_byte ))) swap_abort )
4c3721d5	208	#define NO_PUT ((void () PARAMS ((bfd_vma, bfd_byte ))) swap_abort )
326e32d7 ILT	209	#define NO_SIGNED_GET \
326e32d7 ILT	210	((bfd_signed_vma () PARAMS ((const bfd_byte ))) swap_abort )
4c3721d5 ILT	211
	212	bfd_target irix_core_vec =
	213	{
	214	"irix-core",
	215	bfd_target_unknown_flavour,
	216	true, /* target byte order */
	217	true, /* target headers byte order */
	218	(HAS_RELOC \| EXEC_P \| /* object flags */
	219	HAS_LINENO \| HAS_DEBUG \|
	220	HAS_SYMS \| HAS_LOCALS \| WP_TEXT \| D_PAGED),
	221	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC), /* section flags */
	222	0, /* symbol prefix */
	223	' ', /* ar_pad_char */
	224	16, /* ar_max_namelen */
	225	3, /* minimum alignment power */
	226	NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */
	227	NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */
	228	NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */
	229	NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */
	230	NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */
	231	NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */
	232
	233	{ /* bfd_check_format */
	234	_bfd_dummy_target, /* unknown format */
	235	_bfd_dummy_target, /* object file */
	236	_bfd_dummy_target, /* archive */
	237	irix_core_core_file_p /* a core file */
	238	},
	239	{ /* bfd_set_format */
	240	bfd_false, bfd_false,
	241	bfd_false, bfd_false
	242	},
	243	{ /* bfd_write_contents */
	244	bfd_false, bfd_false,
	245	bfd_false, bfd_false
	246	},
	247
6812b607 ILT	248	BFD_JUMP_TABLE_GENERIC (_bfd_generic),
	249	BFD_JUMP_TABLE_COPY (_bfd_generic),
	250	BFD_JUMP_TABLE_CORE (irix_core),
	251	BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
	252	BFD_JUMP_TABLE_SYMBOLS (irix_core),
	253	BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
	254	BFD_JUMP_TABLE_WRITE (_bfd_generic),
	255	BFD_JUMP_TABLE_LINK (_bfd_nolink),
	256
4c3721d5 ILT	257	(PTR) 0 /* backend_data */
	258	};
	259
	260	#endif /* IRIX_CORE */