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

/* BFD back-end for HPPA BSD core files.
   Copyright 1993, 1994, 1995, 1998, 1999, 2001, 2002, 2003, 2004
   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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, 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, size, offset, alignment_power)
     bfd *abfd;
     const char *name;
     flagword flags;
     bfd_size_type size;
     file_ptr offset;
     unsigned int alignment_power;
{
  asection *asect;

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

  asect->flags = flags;
  asect->size = 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)
      return NULL;
    if (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 (*) (const void *)) swap_abort)
#define	NO_PUT ((void (*) (bfd_vma, void *)) swap_abort)
#define	NO_GETS ((bfd_signed_vma (*) (const void *)) swap_abort)
#define	NO_GET64 ((bfd_uint64_t (*) (const void *)) swap_abort)
#define	NO_PUT64 ((void (*) (bfd_uint64_t, void *)) swap_abort)
#define	NO_GETS64 ((bfd_int64_t (*) (const void *)) 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_GET64, NO_GETS64, NO_PUT64,	/* 64 bit data */
    NO_GET, NO_GETS, NO_PUT,		/* 32 bit data */
    NO_GET, NO_GETS, NO_PUT,		/* 16 bit data */
    NO_GET64, NO_GETS64, NO_PUT64,	/* 64 bit hdrs */
    NO_GET, NO_GETS, NO_PUT,		/* 32 bit hdrs */
    NO_GET, NO_GETS, 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.
edeb6e24	2	Copyright 1993, 1994, 1995, 1998, 1999, 2001, 2002, 2003, 2004
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
3e110533	19	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
252b5132 RH	20
252b5132 RH	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 *
eea6121a	84	make_bfd_asection (abfd, name, flags, size, offset, alignment_power)
252b5132	85	bfd *abfd;
dc810e39	86	const char *name;
252b5132	87	flagword flags;
eea6121a	88	bfd_size_type size;
252b5132 RH	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;
eea6121a	99	asect->size = size;
252b5132 RH	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;
33216455	142
3dff57e8 AM	143	if (stream == NULL)
3dff57e8 AM	144	return NULL;
33216455	145	if (fstat (fileno (stream), &statbuf) < 0)
252b5132 RH	146	{
	147	bfd_set_error (bfd_error_system_call);
	148	return NULL;
	149	}
	150	if (NBPG * (UPAGES + u.u_dsize + u.u_ssize) > statbuf.st_size)
	151	{
	152	bfd_set_error (bfd_error_file_truncated);
	153	return NULL;
	154	}
	155	if (clicksz * (UPAGES + u.u_dsize + u.u_ssize) < statbuf.st_size)
	156	{
	157	/* The file is too big. Maybe it's not a core file
	158	or we otherwise have bad values for u_dsize and u_ssize). */
	159	bfd_set_error (bfd_error_wrong_format);
	160	return NULL;
	161	}
	162	}
	163
	164	/* OK, we believe you. You're a core file (sure, sure). */
	165
	166	coredata = (struct hppabsd_core_struct *)
dc810e39	167	bfd_zalloc (abfd, (bfd_size_type) sizeof (struct hppabsd_core_struct));
252b5132 RH	168	if (!coredata)
	169	return NULL;
	170
	171	/* Make the core data and available via the tdata part of the BFD. */
	172	abfd->tdata.hppabsd_core_data = coredata;
	173
	174	/* Create the sections. */
	175	core_stacksec (abfd) = make_bfd_asection (abfd, ".stack",
	176	SEC_ALLOC + SEC_HAS_CONTENTS,
	177	clicksz * u.u_ssize,
3fde5a36	178	NBPG * (USIZE + KSTAKSIZE)
252b5132	179	+ clicksz * u.u_dsize, 2);
9e7b37b3 AM	180	if (core_stacksec (abfd) == NULL)
9e7b37b3 AM	181	goto fail;
3fde5a36	182	core_stacksec (abfd)->vma = USRSTACK;
252b5132 RH	183
	184	core_datasec (abfd) = make_bfd_asection (abfd, ".data",
	185	SEC_ALLOC + SEC_LOAD
	186	+ SEC_HAS_CONTENTS,
	187	clicksz * u.u_dsize,
	188	NBPG * (USIZE + KSTAKSIZE), 2);
9e7b37b3 AM	189	if (core_datasec (abfd) == NULL)
9e7b37b3 AM	190	goto fail;
252b5132 RH	191	core_datasec (abfd)->vma = UDATASEG;
	192
	193	core_regsec (abfd) = make_bfd_asection (abfd, ".reg",
	194	SEC_HAS_CONTENTS,
	195	KSTAKSIZE * NBPG,
	196	NBPG * USIZE, 2);
9e7b37b3 AM	197	if (core_regsec (abfd) == NULL)
9e7b37b3 AM	198	goto fail;
252b5132 RH	199	core_regsec (abfd)->vma = 0;
	200
	201	strncpy (core_command (abfd), u.u_comm, MAXCOMLEN + 1);
	202	core_signal (abfd) = u.u_code;
	203	return abfd->xvec;
9e7b37b3 AM	204
	205	fail:
	206	bfd_release (abfd, abfd->tdata.any);
	207	abfd->tdata.any = NULL;
	208	bfd_section_list_clear (abfd);
	209	return NULL;
252b5132 RH	210	}
	211
	212	static char *
	213	hppabsd_core_core_file_failing_command (abfd)
	214	bfd *abfd;
	215	{
	216	return core_command (abfd);
	217	}
	218
252b5132 RH	219	static int
	220	hppabsd_core_core_file_failing_signal (abfd)
	221	bfd *abfd;
	222	{
	223	return core_signal (abfd);
	224	}
	225
b34976b6	226	static bfd_boolean
252b5132 RH	227	hppabsd_core_core_file_matches_executable_p (core_bfd, exec_bfd)
	228	bfd core_bfd, exec_bfd;
	229	{
	230	/* There's no way to know this... */
b34976b6	231	return TRUE;
252b5132	232	}
252b5132	233	\f
252b5132 RH	234	/* If somebody calls any byte-swapping routines, shoot them. */
	235	static void
	236	swap_abort ()
	237	{
	238	/* This way doesn't require any declaration for ANSI to fuck up. */
3fde5a36	239	abort ();
252b5132 RH	240	}
252b5132 RH	241
edeb6e24 AM	242	#define NO_GET ((bfd_vma () (const void )) swap_abort)
	243	#define NO_PUT ((void () (bfd_vma, void )) swap_abort)
	244	#define NO_GETS ((bfd_signed_vma () (const void )) swap_abort)
8ce8c090 AM	245	#define NO_GET64 ((bfd_uint64_t () (const void )) swap_abort)
	246	#define NO_PUT64 ((void () (bfd_uint64_t, void )) swap_abort)
	247	#define NO_GETS64 ((bfd_int64_t () (const void )) swap_abort)
252b5132 RH	248
	249	const bfd_target hppabsd_core_vec =
	250	{
	251	"hppabsd-core",
	252	bfd_target_unknown_flavour,
	253	BFD_ENDIAN_BIG, /* target byte order */
	254	BFD_ENDIAN_BIG, /* target headers byte order */
	255	(HAS_RELOC \| EXEC_P \| /* object flags */
	256	HAS_LINENO \| HAS_DEBUG \|
	257	HAS_SYMS \| HAS_LOCALS \| WP_TEXT \| D_PAGED),
	258	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC), /* section flags */
	259	0, /* symbol prefix */
	260	' ', /* ar_pad_char */
	261	16, /* ar_max_namelen */
8ce8c090	262	NO_GET64, NO_GETS64, NO_PUT64, /* 64 bit data */
edeb6e24 AM	263	NO_GET, NO_GETS, NO_PUT, /* 32 bit data */
edeb6e24 AM	264	NO_GET, NO_GETS, NO_PUT, /* 16 bit data */
8ce8c090	265	NO_GET64, NO_GETS64, NO_PUT64, /* 64 bit hdrs */
edeb6e24 AM	266	NO_GET, NO_GETS, NO_PUT, /* 32 bit hdrs */
edeb6e24 AM	267	NO_GET, NO_GETS, NO_PUT, /* 16 bit hdrs */
252b5132 RH	268
252b5132 RH	269	{ /* bfd_check_format */
8ce8c090 AM	270	_bfd_dummy_target, /* unknown format */
	271	_bfd_dummy_target, /* object file */
	272	_bfd_dummy_target, /* archive */
	273	hppabsd_core_core_file_p /* a core file */
252b5132 RH	274	},
252b5132 RH	275	{ /* bfd_set_format */
8ce8c090 AM	276	bfd_false, bfd_false,
8ce8c090 AM	277	bfd_false, bfd_false
252b5132 RH	278	},
252b5132 RH	279	{ /* bfd_write_contents */
8ce8c090 AM	280	bfd_false, bfd_false,
8ce8c090 AM	281	bfd_false, bfd_false
252b5132	282	},
3fde5a36	283
3f3c5c34 AM	284	BFD_JUMP_TABLE_GENERIC (_bfd_generic),
	285	BFD_JUMP_TABLE_COPY (_bfd_generic),
	286	BFD_JUMP_TABLE_CORE (hppabsd_core),
	287	BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
	288	BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols),
	289	BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
	290	BFD_JUMP_TABLE_WRITE (_bfd_generic),
	291	BFD_JUMP_TABLE_LINK (_bfd_nolink),
	292	BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
252b5132	293
c3c89269	294	NULL,
3fde5a36	295
252b5132	296	(PTR) 0 /* backend_data */
8ce8c090	297	};
252b5132	298	#endif