[deliverable/binutils-gdb.git] / bfd / coff-ia64.c

/* BFD back-end for HP/Intel IA-64 COFF files.
   Copyright 1999, 2000, 2001 Free Software Foundation, Inc.
   Contributed by David Mosberger <davidm@hpl.hp.com>

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.  */

#include "bfd.h"
#include "sysdep.h"
#include "libbfd.h"
#include "coff/ia64.h"
#include "coff/internal.h"
#include "coff/pe.h"
#include "libcoff.h"

#define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (2)
/* The page size is a guess based on ELF.  */

#define COFF_PAGE_SIZE 0x1000

static reloc_howto_type howto_table[] =
{
  EMPTY_HOWTO (0),
};

#define BADMAG(x) IA64BADMAG(x)
#define IA64 1			/* Customize coffcode.h */

#ifdef COFF_WITH_pep
# undef AOUTSZ
# define AOUTSZ		PEPAOUTSZ
# define PEAOUTHDR	PEPAOUTHDR
#endif

#define RTYPE2HOWTO(cache_ptr, dst) \
	    (cache_ptr)->howto = howto_table + (dst)->r_type;

#ifdef COFF_WITH_PE
/* Return true if this relocation should
   appear in the output .reloc section.  */

static boolean in_reloc_p PARAMS ((bfd *, reloc_howto_type *));

static boolean
in_reloc_p(abfd, howto)
     bfd * abfd ATTRIBUTE_UNUSED;
     reloc_howto_type *howto ATTRIBUTE_UNUSED;
{
  return 0;			/* We don't do relocs for now...  */
}
#endif

#include "coffcode.h"

static const bfd_target *ia64coff_object_p PARAMS ((bfd *));

static const bfd_target *
ia64coff_object_p (abfd)
     bfd *abfd;
{
#ifdef COFF_IMAGE_WITH_PE
  {
    struct external_PEI_DOS_hdr dos_hdr;
    struct external_PEI_IMAGE_hdr image_hdr;
    file_ptr offset;

    if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0
	|| (bfd_bread (&dos_hdr, (bfd_size_type) sizeof (dos_hdr), abfd)
	    != sizeof (dos_hdr)))
      {
	if (bfd_get_error () != bfd_error_system_call)
	  bfd_set_error (bfd_error_wrong_format);
	return NULL;
      }

    /* There are really two magic numbers involved; the magic number
       that says this is a NT executable (PEI) and the magic number
       that determines the architecture.  The former is DOSMAGIC,
       stored in the e_magic field.  The latter is stored in the
       f_magic field.  If the NT magic number isn't valid, the
       architecture magic number could be mimicked by some other
       field (specifically, the number of relocs in section 3).  Since
       this routine can only be called correctly for a PEI file, check
       the e_magic number here, and, if it doesn't match, clobber the
       f_magic number so that we don't get a false match.  */
    if (H_GET_16 (abfd, dos_hdr.e_magic) != DOSMAGIC)
      {
	bfd_set_error (bfd_error_wrong_format);
	return NULL;
      }

    offset = H_GET_32 (abfd, dos_hdr.e_lfanew);
    if (bfd_seek (abfd, offset, SEEK_SET) != 0
	|| (bfd_bread (&image_hdr, (bfd_size_type) sizeof (image_hdr), abfd)
	    != sizeof (image_hdr)))
      {
	if (bfd_get_error () != bfd_error_system_call)
	  bfd_set_error (bfd_error_wrong_format);
	return NULL;
      }

    if (H_GET_32 (abfd, image_hdr.nt_signature)
	!= 0x4550)
      {
	bfd_set_error (bfd_error_wrong_format);
	return NULL;
      }

    /* Here is the hack.  coff_object_p wants to read filhsz bytes to
       pick up the COFF header for PE, see "struct external_PEI_filehdr"
       in include/coff/pe.h.  We adjust so that that will work. */
    if (bfd_seek (abfd, offset - sizeof (dos_hdr), SEEK_SET) != 0)
      {
	if (bfd_get_error () != bfd_error_system_call)
	  bfd_set_error (bfd_error_wrong_format);
	return NULL;
      }
  }
#endif

  return coff_object_p (abfd);
}

const bfd_target
#ifdef TARGET_SYM
  TARGET_SYM =
#else
  ia64coff_vec =
#endif
{
#ifdef TARGET_NAME
  TARGET_NAME,
#else
  "coff-ia64",			/* name */
#endif
  bfd_target_coff_flavour,
  BFD_ENDIAN_LITTLE,		/* data byte order is little */
  BFD_ENDIAN_LITTLE,		/* header byte order is little */

  (HAS_RELOC | EXEC_P |		/* object flags */
   HAS_LINENO | HAS_DEBUG |
   HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),

#ifndef COFF_WITH_PE
  (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC /* section flags */
   | SEC_CODE | SEC_DATA),
#else
  (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC /* section flags */
   | SEC_CODE | SEC_DATA
   | SEC_LINK_ONCE | SEC_LINK_DUPLICATES),
#endif

#ifdef TARGET_UNDERSCORE
  TARGET_UNDERSCORE,		/* leading underscore */
#else
  0,				/* leading underscore */
#endif
  '/',				/* ar_pad_char */
  15,				/* ar_max_namelen */

  bfd_getl64, bfd_getl_signed_64, bfd_putl64,
     bfd_getl32, bfd_getl_signed_32, bfd_putl32,
     bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
  bfd_getl64, bfd_getl_signed_64, bfd_putl64,
     bfd_getl32, bfd_getl_signed_32, bfd_putl32,
     bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */

/* Note that we allow an object file to be treated as a core file as well.  */
    {_bfd_dummy_target, ia64coff_object_p, /* bfd_check_format */
       bfd_generic_archive_p, ia64coff_object_p},
    {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */
       bfd_false},
    {bfd_false, coff_write_object_contents, /* bfd_write_contents */
       _bfd_write_archive_contents, bfd_false},

     BFD_JUMP_TABLE_GENERIC (coff),
     BFD_JUMP_TABLE_COPY (coff),
     BFD_JUMP_TABLE_CORE (_bfd_nocore),
     BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
     BFD_JUMP_TABLE_SYMBOLS (coff),
     BFD_JUMP_TABLE_RELOCS (coff),
     BFD_JUMP_TABLE_WRITE (coff),
     BFD_JUMP_TABLE_LINK (coff),
     BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),

  NULL,

  COFF_SWAP_TABLE
};
Commit	Line	Data
fac41780	1	/* BFD back-end for HP/Intel IA-64 COFF files.
7898deda	2	Copyright 1999, 2000, 2001 Free Software Foundation, Inc.
fac41780 JW	3	Contributed by David Mosberger <davidm@hpl.hp.com>
	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	#include "bfd.h"
	22	#include "sysdep.h"
	23	#include "libbfd.h"
fac41780	24	#include "coff/ia64.h"
fac41780	25	#include "coff/internal.h"
fac41780	26	#include "coff/pe.h"
fac41780 JW	27	#include "libcoff.h"
	28
	29	#define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (2)
	30	/* The page size is a guess based on ELF. */
	31
	32	#define COFF_PAGE_SIZE 0x1000
	33
5fcfd273	34	static reloc_howto_type howto_table[] =
fac41780	35	{
64bf6ae6	36	EMPTY_HOWTO (0),
fac41780 JW	37	};
	38
	39	#define BADMAG(x) IA64BADMAG(x)
	40	#define IA64 1 /* Customize coffcode.h */
	41
cbff5e0d	42	#ifdef COFF_WITH_pep
fac41780	43	# undef AOUTSZ
cbff5e0d DD	44	# define AOUTSZ PEPAOUTSZ
cbff5e0d DD	45	# define PEAOUTHDR PEPAOUTHDR
fac41780 JW	46	#endif
	47
	48	#define RTYPE2HOWTO(cache_ptr, dst) \
	49	(cache_ptr)->howto = howto_table + (dst)->r_type;
	50
	51	#ifdef COFF_WITH_PE
	52	/* Return true if this relocation should
5fcfd273	53	appear in the output .reloc section. */
fac41780	54
cea4409c AM	55	static boolean in_reloc_p PARAMS ((bfd , reloc_howto_type ));
cea4409c AM	56
fac41780 JW	57	static boolean
fac41780 JW	58	in_reloc_p(abfd, howto)
64bf6ae6 JW	59	bfd * abfd ATTRIBUTE_UNUSED;
64bf6ae6 JW	60	reloc_howto_type *howto ATTRIBUTE_UNUSED;
fac41780	61	{
5fcfd273 KH	62	return 0; /* We don't do relocs for now... */
5fcfd273 KH	63	}
fac41780 JW	64	#endif
	65
	66	#include "coffcode.h"
	67
cea4409c AM	68	static const bfd_target ia64coff_object_p PARAMS ((bfd ));
cea4409c AM	69
fac41780 JW	70	static const bfd_target *
	71	ia64coff_object_p (abfd)
	72	bfd *abfd;
	73	{
	74	#ifdef COFF_IMAGE_WITH_PE
fac41780	75	{
27e53099 L	76	struct external_PEI_DOS_hdr dos_hdr;
27e53099 L	77	struct external_PEI_IMAGE_hdr image_hdr;
fac41780	78	file_ptr offset;
fac41780	79
dc810e39 AM	80	if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0
	81	\|\| (bfd_bread (&dos_hdr, (bfd_size_type) sizeof (dos_hdr), abfd)
	82	!= sizeof (dos_hdr)))
fac41780 JW	83	{
	84	if (bfd_get_error () != bfd_error_system_call)
	85	bfd_set_error (bfd_error_wrong_format);
	86	return NULL;
	87	}
27e53099 L	88
	89	/* There are really two magic numbers involved; the magic number
	90	that says this is a NT executable (PEI) and the magic number
	91	that determines the architecture. The former is DOSMAGIC,
	92	stored in the e_magic field. The latter is stored in the
	93	f_magic field. If the NT magic number isn't valid, the
	94	architecture magic number could be mimicked by some other
	95	field (specifically, the number of relocs in section 3). Since
	96	this routine can only be called correctly for a PEI file, check
	97	the e_magic number here, and, if it doesn't match, clobber the
	98	f_magic number so that we don't get a false match. */
dc810e39	99	if (H_GET_16 (abfd, dos_hdr.e_magic) != DOSMAGIC)
27e53099 L	100	{
	101	bfd_set_error (bfd_error_wrong_format);
	102	return NULL;
	103	}
	104
dc810e39 AM	105	offset = H_GET_32 (abfd, dos_hdr.e_lfanew);
	106	if (bfd_seek (abfd, offset, SEEK_SET) != 0
	107	\|\| (bfd_bread (&image_hdr, (bfd_size_type) sizeof (image_hdr), abfd)
	108	!= sizeof (image_hdr)))
fac41780 JW	109	{
	110	if (bfd_get_error () != bfd_error_system_call)
	111	bfd_set_error (bfd_error_wrong_format);
	112	return NULL;
	113	}
fac41780	114
dc810e39	115	if (H_GET_32 (abfd, image_hdr.nt_signature)
27e53099	116	!= 0x4550)
fac41780 JW	117	{
	118	bfd_set_error (bfd_error_wrong_format);
	119	return NULL;
	120	}
	121
	122	/* Here is the hack. coff_object_p wants to read filhsz bytes to
27e53099 L	123	pick up the COFF header for PE, see "struct external_PEI_filehdr"
27e53099 L	124	in include/coff/pe.h. We adjust so that that will work. */
dc810e39	125	if (bfd_seek (abfd, offset - sizeof (dos_hdr), SEEK_SET) != 0)
fac41780 JW	126	{
	127	if (bfd_get_error () != bfd_error_system_call)
	128	bfd_set_error (bfd_error_wrong_format);
	129	return NULL;
	130	}
	131	}
	132	#endif
	133
	134	return coff_object_p (abfd);
	135	}
	136
	137	const bfd_target
	138	#ifdef TARGET_SYM
	139	TARGET_SYM =
	140	#else
	141	ia64coff_vec =
	142	#endif
	143	{
	144	#ifdef TARGET_NAME
	145	TARGET_NAME,
	146	#else
	147	"coff-ia64", /* name */
	148	#endif
	149	bfd_target_coff_flavour,
	150	BFD_ENDIAN_LITTLE, /* data byte order is little */
	151	BFD_ENDIAN_LITTLE, /* header byte order is little */
	152
	153	(HAS_RELOC \| EXEC_P \| /* object flags */
	154	HAS_LINENO \| HAS_DEBUG \|
	155	HAS_SYMS \| HAS_LOCALS \| WP_TEXT \| D_PAGED),
	156
	157	#ifndef COFF_WITH_PE
	158	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC /* section flags */
	159	\| SEC_CODE \| SEC_DATA),
	160	#else
	161	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC /* section flags */
	162	\| SEC_CODE \| SEC_DATA
	163	\| SEC_LINK_ONCE \| SEC_LINK_DUPLICATES),
	164	#endif
	165
	166	#ifdef TARGET_UNDERSCORE
	167	TARGET_UNDERSCORE, /* leading underscore */
	168	#else
	169	0, /* leading underscore */
	170	#endif
	171	'/', /* ar_pad_char */
	172	15, /* ar_max_namelen */
	173
	174	bfd_getl64, bfd_getl_signed_64, bfd_putl64,
	175	bfd_getl32, bfd_getl_signed_32, bfd_putl32,
	176	bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
	177	bfd_getl64, bfd_getl_signed_64, bfd_putl64,
	178	bfd_getl32, bfd_getl_signed_32, bfd_putl32,
	179	bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
	180
5fcfd273	181	/* Note that we allow an object file to be treated as a core file as well. */
fac41780 JW	182	{_bfd_dummy_target, ia64coff_object_p, /* bfd_check_format */
	183	bfd_generic_archive_p, ia64coff_object_p},
	184	{bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */
	185	bfd_false},
	186	{bfd_false, coff_write_object_contents, /* bfd_write_contents */
	187	_bfd_write_archive_contents, bfd_false},
	188
	189	BFD_JUMP_TABLE_GENERIC (coff),
	190	BFD_JUMP_TABLE_COPY (coff),
	191	BFD_JUMP_TABLE_CORE (_bfd_nocore),
	192	BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
	193	BFD_JUMP_TABLE_SYMBOLS (coff),
	194	BFD_JUMP_TABLE_RELOCS (coff),
	195	BFD_JUMP_TABLE_WRITE (coff),
	196	BFD_JUMP_TABLE_LINK (coff),
	197	BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
	198
	199	NULL,
	200
	201	COFF_SWAP_TABLE
	202	};