[deliverable/binutils-gdb.git] / bfd / hppabsd-core.c

/* BFD back-end for HPPA BSD core files.
   Copyright 1993, 1994, 1995, 1998, 1999, 2001, 2002
   Free Software Foundation, Inc.

   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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

   Written by the Center for Software Science at the University of Utah
   and by Cygnus Support.

   The core file structure for the Utah 4.3BSD and OSF1 ports on the
   PA is a mix between traditional cores and hpux cores -- just
   different enough that supporting this format would tend to add
   gross hacks to trad-core.c or hpux-core.c.  So instead we keep any
   gross hacks isolated to this file.  */

/* This file can only be compiled on systems which use HPPA-BSD style
   core files.

   I would not expect this to be of use to any other host/target, but
   you never know.  */

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

#if defined (HOST_HPPABSD)

#include "machine/vmparam.h"

#include <sys/param.h>
#include <sys/dir.h>
#include <signal.h>
#include <machine/reg.h>
#include <sys/user.h>		/* After a.out.h  */
#include <sys/file.h>

static asection *make_bfd_asection
  PARAMS ((bfd *, const char *, flagword, bfd_size_type, file_ptr,
	   unsigned int));
static const bfd_target *hppabsd_core_core_file_p
  PARAMS ((bfd *));
static char *hppabsd_core_core_file_failing_command
  PARAMS ((bfd *));
static int hppabsd_core_core_file_failing_signal
  PARAMS ((bfd *));
static bfd_boolean hppabsd_core_core_file_matches_executable_p
  PARAMS ((bfd *, bfd *));
static void swap_abort
  PARAMS ((void));

/* These are stored in the bfd's tdata.  */

struct hppabsd_core_struct
  {
    int sig;
    char cmd[MAXCOMLEN + 1];
    asection *data_section;
    asection *stack_section;
    asection *reg_section;
  };

#define core_hdr(bfd) ((bfd)->tdata.hppabsd_core_data)
#define core_signal(bfd) (core_hdr(bfd)->sig)
#define core_command(bfd) (core_hdr(bfd)->cmd)
#define core_datasec(bfd) (core_hdr(bfd)->data_section)
#define core_stacksec(bfd) (core_hdr(bfd)->stack_section)
#define core_regsec(bfd) (core_hdr(bfd)->reg_section)

static asection *
make_bfd_asection (abfd, name, flags, _raw_size, offset, alignment_power)
     bfd *abfd;
     const char *name;
     flagword flags;
     bfd_size_type _raw_size;
     file_ptr offset;
     unsigned int alignment_power;
{
  asection *asect;

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

  asect->flags = flags;
  asect->_raw_size = _raw_size;
  asect->filepos = offset;
  asect->alignment_power = alignment_power;

  return asect;
}

static const bfd_target *
hppabsd_core_core_file_p (abfd)
     bfd *abfd;
{
  int val;
  struct user u;
  struct hppabsd_core_struct *coredata;
  int clicksz;

  /* Try to read in the u-area.  We will need information from this
     to know how to grok the rest of the core structures.  */
  val = bfd_bread ((void *) &u, (bfd_size_type) sizeof u, abfd);
  if (val != sizeof u)
    {
      if (bfd_get_error () != bfd_error_system_call)
	bfd_set_error (bfd_error_wrong_format);
      return NULL;
    }

  /* Get the page size out of the u structure.  This will be different
     for PA 1.0 machines and PA 1.1 machines.   Yuk!  */
  clicksz = u.u_pcb.pcb_pgsz;

  /* clicksz must be a power of two >= 2k.  */
  if (clicksz < 0x800
      || clicksz != (clicksz & -clicksz))
    {
      bfd_set_error (bfd_error_wrong_format);
      return NULL;
    }

  /* Sanity checks.  Make sure the size of the core file matches the
     the size computed from information within the core itself.  */
  {
    FILE *stream = bfd_cache_lookup (abfd);
    struct stat statbuf;
    if (stream == NULL || fstat (fileno (stream), &statbuf) < 0)
      {
	bfd_set_error (bfd_error_system_call);
	return NULL;
      }
    if (NBPG * (UPAGES + u.u_dsize + u.u_ssize) > statbuf.st_size)
      {
	bfd_set_error (bfd_error_file_truncated);
	return NULL;
      }
    if (clicksz * (UPAGES + u.u_dsize + u.u_ssize) < statbuf.st_size)
      {
	/* The file is too big.  Maybe it's not a core file
	   or we otherwise have bad values for u_dsize and u_ssize).  */
	bfd_set_error (bfd_error_wrong_format);
	return NULL;
      }
  }

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

  coredata = (struct hppabsd_core_struct *)
    bfd_zalloc (abfd, (bfd_size_type) sizeof (struct hppabsd_core_struct));
  if (!coredata)
    return NULL;

  /* Make the core data and available via the tdata part of the BFD.  */
  abfd->tdata.hppabsd_core_data = coredata;

  /* Create the sections.  */
  core_stacksec (abfd) = make_bfd_asection (abfd, ".stack",
					   SEC_ALLOC + SEC_HAS_CONTENTS,
					   clicksz * u.u_ssize,
					   NBPG * (USIZE + KSTAKSIZE)
					     + clicksz * u.u_dsize, 2);
  if (core_stacksec (abfd) == NULL)
    goto fail;
  core_stacksec (abfd)->vma = USRSTACK;

  core_datasec (abfd) = make_bfd_asection (abfd, ".data",
					  SEC_ALLOC + SEC_LOAD
					    + SEC_HAS_CONTENTS,
					  clicksz * u.u_dsize,
					  NBPG * (USIZE + KSTAKSIZE), 2);
  if (core_datasec (abfd) == NULL)
    goto fail;
  core_datasec (abfd)->vma = UDATASEG;

  core_regsec (abfd) = make_bfd_asection (abfd, ".reg",
					 SEC_HAS_CONTENTS,
					 KSTAKSIZE * NBPG,
					 NBPG * USIZE, 2);
  if (core_regsec (abfd) == NULL)
    goto fail;
  core_regsec (abfd)->vma = 0;

  strncpy (core_command (abfd), u.u_comm, MAXCOMLEN + 1);
  core_signal (abfd) = u.u_code;
  return abfd->xvec;

 fail:
  bfd_release (abfd, abfd->tdata.any);
  abfd->tdata.any = NULL;
  bfd_section_list_clear (abfd);
  return NULL;
}

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

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

static bfd_boolean
hppabsd_core_core_file_matches_executable_p (core_bfd, exec_bfd)
     bfd *core_bfd, *exec_bfd;
{
  /* There's no way to know this...  */
  return TRUE;
}
\f
/* If somebody calls any byte-swapping routines, shoot them.  */
static void
swap_abort ()
{
  /* This way doesn't require any declaration for ANSI to fuck up.  */
  abort ();
}

#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 )

const bfd_target hppabsd_core_vec =
  {
    "hppabsd-core",
    bfd_target_unknown_flavour,
    BFD_ENDIAN_BIG,		/* target byte order */
    BFD_ENDIAN_BIG,		/* 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 */
    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 */
     hppabsd_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 (hppabsd_core),
    BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
    BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols),
    BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
    BFD_JUMP_TABLE_WRITE (_bfd_generic),
    BFD_JUMP_TABLE_LINK (_bfd_nolink),
    BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),

    NULL,

    (PTR) 0			/* backend_data */
};
#endif
Commit	Line	Data
252b5132	1	/* BFD back-end for HPPA BSD core files.
9e7b37b3	2	Copyright 1993, 1994, 1995, 1998, 1999, 2001, 2002
7898deda	3	Free Software Foundation, Inc.
252b5132 RH	4
	5	This file is part of BFD, the Binary File Descriptor library.
	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	Written by the Center for Software Science at the University of Utah
3fde5a36	22	and by Cygnus Support.
252b5132 RH	23
	24	The core file structure for the Utah 4.3BSD and OSF1 ports on the
	25	PA is a mix between traditional cores and hpux cores -- just
	26	different enough that supporting this format would tend to add
	27	gross hacks to trad-core.c or hpux-core.c. So instead we keep any
	28	gross hacks isolated to this file. */
252b5132 RH	29
	30	/* This file can only be compiled on systems which use HPPA-BSD style
	31	core files.
	32
	33	I would not expect this to be of use to any other host/target, but
	34	you never know. */
	35
	36	#include "bfd.h"
	37	#include "sysdep.h"
	38	#include "libbfd.h"
	39
	40	#if defined (HOST_HPPABSD)
	41
	42	#include "machine/vmparam.h"
	43
	44	#include <sys/param.h>
	45	#include <sys/dir.h>
	46	#include <signal.h>
	47	#include <machine/reg.h>
	48	#include <sys/user.h> /* After a.out.h */
	49	#include <sys/file.h>
	50
b34976b6 AM	51	static asection *make_bfd_asection
	52	PARAMS ((bfd , const char , flagword, bfd_size_type, file_ptr,
	53	unsigned int));
	54	static const bfd_target *hppabsd_core_core_file_p
	55	PARAMS ((bfd *));
	56	static char *hppabsd_core_core_file_failing_command
	57	PARAMS ((bfd *));
	58	static int hppabsd_core_core_file_failing_signal
	59	PARAMS ((bfd *));
	60	static bfd_boolean hppabsd_core_core_file_matches_executable_p
252b5132	61	PARAMS ((bfd , bfd ));
b34976b6 AM	62	static void swap_abort
b34976b6 AM	63	PARAMS ((void));
252b5132 RH	64
	65	/* These are stored in the bfd's tdata. */
	66
	67	struct hppabsd_core_struct
	68	{
	69	int sig;
	70	char cmd[MAXCOMLEN + 1];
	71	asection *data_section;
	72	asection *stack_section;
	73	asection *reg_section;
	74	};
	75
	76	#define core_hdr(bfd) ((bfd)->tdata.hppabsd_core_data)
	77	#define core_signal(bfd) (core_hdr(bfd)->sig)
	78	#define core_command(bfd) (core_hdr(bfd)->cmd)
	79	#define core_datasec(bfd) (core_hdr(bfd)->data_section)
	80	#define core_stacksec(bfd) (core_hdr(bfd)->stack_section)
	81	#define core_regsec(bfd) (core_hdr(bfd)->reg_section)
	82
	83	static asection *
	84	make_bfd_asection (abfd, name, flags, _raw_size, offset, alignment_power)
	85	bfd *abfd;
dc810e39	86	const char *name;
252b5132 RH	87	flagword flags;
	88	bfd_size_type _raw_size;
	89	file_ptr offset;
	90	unsigned int alignment_power;
	91	{
	92	asection *asect;
	93
	94	asect = bfd_make_section (abfd, name);
	95	if (!asect)
	96	return NULL;
	97
	98	asect->flags = flags;
	99	asect->_raw_size = _raw_size;
	100	asect->filepos = offset;
	101	asect->alignment_power = alignment_power;
	102
	103	return asect;
	104	}
	105
252b5132 RH	106	static const bfd_target *
	107	hppabsd_core_core_file_p (abfd)
	108	bfd *abfd;
	109	{
	110	int val;
	111	struct user u;
	112	struct hppabsd_core_struct *coredata;
	113	int clicksz;
	114
	115	/* Try to read in the u-area. We will need information from this
	116	to know how to grok the rest of the core structures. */
dc810e39	117	val = bfd_bread ((void *) &u, (bfd_size_type) sizeof u, abfd);
252b5132 RH	118	if (val != sizeof u)
	119	{
	120	if (bfd_get_error () != bfd_error_system_call)
	121	bfd_set_error (bfd_error_wrong_format);
	122	return NULL;
	123	}
	124
	125	/* Get the page size out of the u structure. This will be different
	126	for PA 1.0 machines and PA 1.1 machines. Yuk! */
	127	clicksz = u.u_pcb.pcb_pgsz;
	128
	129	/* clicksz must be a power of two >= 2k. */
	130	if (clicksz < 0x800
	131	\|\| clicksz != (clicksz & -clicksz))
	132	{
	133	bfd_set_error (bfd_error_wrong_format);
	134	return NULL;
	135	}
	136
252b5132 RH	137	/* Sanity checks. Make sure the size of the core file matches the
	138	the size computed from information within the core itself. */
	139	{
	140	FILE *stream = bfd_cache_lookup (abfd);
	141	struct stat statbuf;
	142	if (stream == NULL \|\| fstat (fileno (stream), &statbuf) < 0)
	143	{
	144	bfd_set_error (bfd_error_system_call);
	145	return NULL;
	146	}
	147	if (NBPG * (UPAGES + u.u_dsize + u.u_ssize) > statbuf.st_size)
	148	{
	149	bfd_set_error (bfd_error_file_truncated);
	150	return NULL;
	151	}
	152	if (clicksz * (UPAGES + u.u_dsize + u.u_ssize) < statbuf.st_size)
	153	{
	154	/* The file is too big. Maybe it's not a core file
	155	or we otherwise have bad values for u_dsize and u_ssize). */
	156	bfd_set_error (bfd_error_wrong_format);
	157	return NULL;
	158	}
	159	}
	160
	161	/* OK, we believe you. You're a core file (sure, sure). */
	162
	163	coredata = (struct hppabsd_core_struct *)
dc810e39	164	bfd_zalloc (abfd, (bfd_size_type) sizeof (struct hppabsd_core_struct));
252b5132 RH	165	if (!coredata)
	166	return NULL;
	167
	168	/* Make the core data and available via the tdata part of the BFD. */
	169	abfd->tdata.hppabsd_core_data = coredata;
	170
	171	/* Create the sections. */
	172	core_stacksec (abfd) = make_bfd_asection (abfd, ".stack",
	173	SEC_ALLOC + SEC_HAS_CONTENTS,
	174	clicksz * u.u_ssize,
3fde5a36	175	NBPG * (USIZE + KSTAKSIZE)
252b5132	176	+ clicksz * u.u_dsize, 2);
9e7b37b3 AM	177	if (core_stacksec (abfd) == NULL)
9e7b37b3 AM	178	goto fail;
3fde5a36	179	core_stacksec (abfd)->vma = USRSTACK;
252b5132 RH	180
	181	core_datasec (abfd) = make_bfd_asection (abfd, ".data",
	182	SEC_ALLOC + SEC_LOAD
	183	+ SEC_HAS_CONTENTS,
	184	clicksz * u.u_dsize,
	185	NBPG * (USIZE + KSTAKSIZE), 2);
9e7b37b3 AM	186	if (core_datasec (abfd) == NULL)
9e7b37b3 AM	187	goto fail;
252b5132 RH	188	core_datasec (abfd)->vma = UDATASEG;
	189
	190	core_regsec (abfd) = make_bfd_asection (abfd, ".reg",
	191	SEC_HAS_CONTENTS,
	192	KSTAKSIZE * NBPG,
	193	NBPG * USIZE, 2);
9e7b37b3 AM	194	if (core_regsec (abfd) == NULL)
9e7b37b3 AM	195	goto fail;
252b5132 RH	196	core_regsec (abfd)->vma = 0;
	197
	198	strncpy (core_command (abfd), u.u_comm, MAXCOMLEN + 1);
	199	core_signal (abfd) = u.u_code;
	200	return abfd->xvec;
9e7b37b3 AM	201
	202	fail:
	203	bfd_release (abfd, abfd->tdata.any);
	204	abfd->tdata.any = NULL;
	205	bfd_section_list_clear (abfd);
	206	return NULL;
252b5132 RH	207	}
	208
	209	static char *
	210	hppabsd_core_core_file_failing_command (abfd)
	211	bfd *abfd;
	212	{
	213	return core_command (abfd);
	214	}
	215
252b5132 RH	216	static int
	217	hppabsd_core_core_file_failing_signal (abfd)
	218	bfd *abfd;
	219	{
	220	return core_signal (abfd);
	221	}
	222
b34976b6	223	static bfd_boolean
252b5132 RH	224	hppabsd_core_core_file_matches_executable_p (core_bfd, exec_bfd)
	225	bfd core_bfd, exec_bfd;
	226	{
	227	/* There's no way to know this... */
b34976b6	228	return TRUE;
252b5132	229	}
252b5132	230	\f
252b5132 RH	231	/* If somebody calls any byte-swapping routines, shoot them. */
	232	static void
	233	swap_abort ()
	234	{
	235	/* This way doesn't require any declaration for ANSI to fuck up. */
3fde5a36	236	abort ();
252b5132 RH	237	}
	238
	239	#define NO_GET ((bfd_vma () PARAMS (( const bfd_byte ))) swap_abort )
	240	#define NO_PUT ((void () PARAMS ((bfd_vma, bfd_byte ))) swap_abort )
	241	#define NO_SIGNED_GET \
	242	((bfd_signed_vma () PARAMS ((const bfd_byte ))) swap_abort )
	243
	244	const bfd_target hppabsd_core_vec =
	245	{
	246	"hppabsd-core",
	247	bfd_target_unknown_flavour,
	248	BFD_ENDIAN_BIG, /* target byte order */
	249	BFD_ENDIAN_BIG, /* target headers byte order */
	250	(HAS_RELOC \| EXEC_P \| /* object flags */
	251	HAS_LINENO \| HAS_DEBUG \|
	252	HAS_SYMS \| HAS_LOCALS \| WP_TEXT \| D_PAGED),
	253	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC), /* section flags */
	254	0, /* symbol prefix */
	255	' ', /* ar_pad_char */
	256	16, /* ar_max_namelen */
	257	NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */
	258	NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */
	259	NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */
	260	NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */
	261	NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */
	262	NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */
	263
	264	{ /* bfd_check_format */
	265	_bfd_dummy_target, /* unknown format */
	266	_bfd_dummy_target, /* object file */
	267	_bfd_dummy_target, /* archive */
	268	hppabsd_core_core_file_p /* a core file */
	269	},
	270	{ /* bfd_set_format */
	271	bfd_false, bfd_false,
	272	bfd_false, bfd_false
	273	},
	274	{ /* bfd_write_contents */
	275	bfd_false, bfd_false,
	276	bfd_false, bfd_false
	277	},
3fde5a36	278
3f3c5c34 AM	279	BFD_JUMP_TABLE_GENERIC (_bfd_generic),
	280	BFD_JUMP_TABLE_COPY (_bfd_generic),
	281	BFD_JUMP_TABLE_CORE (hppabsd_core),
	282	BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
	283	BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols),
	284	BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
	285	BFD_JUMP_TABLE_WRITE (_bfd_generic),
	286	BFD_JUMP_TABLE_LINK (_bfd_nolink),
	287	BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
252b5132	288
c3c89269	289	NULL,
3fde5a36	290
252b5132 RH	291	(PTR) 0 /* backend_data */
	292	};
	293	#endif