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

/* BFD back-end for HPPA BSD core files.
   Copyright 1993, 1994, 1995, 1998, 1999, 2001, 2002, 2003, 2004, 2005
   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.  */
  {
    struct stat statbuf;

    if (bfd_stat (abfd, &statbuf) < 0)
      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.
b677b8c0	2	Copyright 1993, 1994, 1995, 1998, 1999, 2001, 2002, 2003, 2004, 2005
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	{
252b5132	140	struct stat statbuf;
33216455	141
b677b8c0	142	if (bfd_stat (abfd, &statbuf) < 0)
3dff57e8	143	return NULL;
b677b8c0	144
252b5132 RH	145	if (NBPG * (UPAGES + u.u_dsize + u.u_ssize) > statbuf.st_size)
	146	{
	147	bfd_set_error (bfd_error_file_truncated);
	148	return NULL;
	149	}
	150	if (clicksz * (UPAGES + u.u_dsize + u.u_ssize) < statbuf.st_size)
	151	{
	152	/* The file is too big. Maybe it's not a core file
	153	or we otherwise have bad values for u_dsize and u_ssize). */
	154	bfd_set_error (bfd_error_wrong_format);
	155	return NULL;
	156	}
	157	}
	158
	159	/* OK, we believe you. You're a core file (sure, sure). */
	160
	161	coredata = (struct hppabsd_core_struct *)
dc810e39	162	bfd_zalloc (abfd, (bfd_size_type) sizeof (struct hppabsd_core_struct));
252b5132 RH	163	if (!coredata)
	164	return NULL;
	165
	166	/* Make the core data and available via the tdata part of the BFD. */
	167	abfd->tdata.hppabsd_core_data = coredata;
	168
	169	/* Create the sections. */
	170	core_stacksec (abfd) = make_bfd_asection (abfd, ".stack",
	171	SEC_ALLOC + SEC_HAS_CONTENTS,
	172	clicksz * u.u_ssize,
3fde5a36	173	NBPG * (USIZE + KSTAKSIZE)
252b5132	174	+ clicksz * u.u_dsize, 2);
9e7b37b3 AM	175	if (core_stacksec (abfd) == NULL)
9e7b37b3 AM	176	goto fail;
3fde5a36	177	core_stacksec (abfd)->vma = USRSTACK;
252b5132 RH	178
	179	core_datasec (abfd) = make_bfd_asection (abfd, ".data",
	180	SEC_ALLOC + SEC_LOAD
	181	+ SEC_HAS_CONTENTS,
	182	clicksz * u.u_dsize,
	183	NBPG * (USIZE + KSTAKSIZE), 2);
9e7b37b3 AM	184	if (core_datasec (abfd) == NULL)
9e7b37b3 AM	185	goto fail;
252b5132 RH	186	core_datasec (abfd)->vma = UDATASEG;
	187
	188	core_regsec (abfd) = make_bfd_asection (abfd, ".reg",
	189	SEC_HAS_CONTENTS,
	190	KSTAKSIZE * NBPG,
	191	NBPG * USIZE, 2);
9e7b37b3 AM	192	if (core_regsec (abfd) == NULL)
9e7b37b3 AM	193	goto fail;
252b5132 RH	194	core_regsec (abfd)->vma = 0;
	195
	196	strncpy (core_command (abfd), u.u_comm, MAXCOMLEN + 1);
	197	core_signal (abfd) = u.u_code;
	198	return abfd->xvec;
9e7b37b3 AM	199
	200	fail:
	201	bfd_release (abfd, abfd->tdata.any);
	202	abfd->tdata.any = NULL;
	203	bfd_section_list_clear (abfd);
	204	return NULL;
252b5132 RH	205	}
	206
	207	static char *
	208	hppabsd_core_core_file_failing_command (abfd)
	209	bfd *abfd;
	210	{
	211	return core_command (abfd);
	212	}
	213
252b5132 RH	214	static int
	215	hppabsd_core_core_file_failing_signal (abfd)
	216	bfd *abfd;
	217	{
	218	return core_signal (abfd);
	219	}
	220
b34976b6	221	static bfd_boolean
252b5132 RH	222	hppabsd_core_core_file_matches_executable_p (core_bfd, exec_bfd)
	223	bfd core_bfd, exec_bfd;
	224	{
	225	/* There's no way to know this... */
b34976b6	226	return TRUE;
252b5132	227	}
252b5132	228	\f
252b5132 RH	229	/* If somebody calls any byte-swapping routines, shoot them. */
	230	static void
	231	swap_abort ()
	232	{
	233	/* This way doesn't require any declaration for ANSI to fuck up. */
3fde5a36	234	abort ();
252b5132 RH	235	}
252b5132 RH	236
edeb6e24 AM	237	#define NO_GET ((bfd_vma () (const void )) swap_abort)
	238	#define NO_PUT ((void () (bfd_vma, void )) swap_abort)
	239	#define NO_GETS ((bfd_signed_vma () (const void )) swap_abort)
8ce8c090 AM	240	#define NO_GET64 ((bfd_uint64_t () (const void )) swap_abort)
	241	#define NO_PUT64 ((void () (bfd_uint64_t, void )) swap_abort)
	242	#define NO_GETS64 ((bfd_int64_t () (const void )) swap_abort)
252b5132 RH	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 */
8ce8c090	257	NO_GET64, NO_GETS64, NO_PUT64, /* 64 bit data */
edeb6e24 AM	258	NO_GET, NO_GETS, NO_PUT, /* 32 bit data */
edeb6e24 AM	259	NO_GET, NO_GETS, NO_PUT, /* 16 bit data */
8ce8c090	260	NO_GET64, NO_GETS64, NO_PUT64, /* 64 bit hdrs */
edeb6e24 AM	261	NO_GET, NO_GETS, NO_PUT, /* 32 bit hdrs */
edeb6e24 AM	262	NO_GET, NO_GETS, NO_PUT, /* 16 bit hdrs */
252b5132 RH	263
252b5132 RH	264	{ /* bfd_check_format */
8ce8c090 AM	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 */
252b5132 RH	269	},
252b5132 RH	270	{ /* bfd_set_format */
8ce8c090 AM	271	bfd_false, bfd_false,
8ce8c090 AM	272	bfd_false, bfd_false
252b5132 RH	273	},
252b5132 RH	274	{ /* bfd_write_contents */
8ce8c090 AM	275	bfd_false, bfd_false,
8ce8c090 AM	276	bfd_false, bfd_false
252b5132	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	291	(PTR) 0 /* backend_data */
8ce8c090	292	};
252b5132	293	#endif