[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(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 (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, 0x00, SEEK_SET) != 0
	|| bfd_read (&dos_hdr, 1, 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 (bfd_h_get_16 (abfd, (bfd_byte *) dos_hdr.e_magic) != DOSMAGIC)
      {
	bfd_set_error (bfd_error_wrong_format);
	return NULL;
      }

    offset = bfd_h_get_32 (abfd, (bfd_byte *) dos_hdr.e_lfanew);
    if (bfd_seek (abfd, (file_ptr) offset, SEEK_SET) != 0
	|| bfd_read (&image_hdr, 1, 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 (bfd_h_get_32 (abfd, (bfd_byte *) 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,
		  (file_ptr) (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 JW	54
	55	static boolean
	56	in_reloc_p(abfd, howto)
64bf6ae6 JW	57	bfd * abfd ATTRIBUTE_UNUSED;
64bf6ae6 JW	58	reloc_howto_type *howto ATTRIBUTE_UNUSED;
fac41780	59	{
5fcfd273 KH	60	return 0; /* We don't do relocs for now... */
5fcfd273 KH	61	}
fac41780 JW	62	#endif
	63
	64	#include "coffcode.h"
	65
	66	static const bfd_target *
	67	ia64coff_object_p (abfd)
	68	bfd *abfd;
	69	{
	70	#ifdef COFF_IMAGE_WITH_PE
fac41780	71	{
27e53099 L	72	struct external_PEI_DOS_hdr dos_hdr;
27e53099 L	73	struct external_PEI_IMAGE_hdr image_hdr;
fac41780	74	file_ptr offset;
fac41780	75
27e53099 L	76	if (bfd_seek (abfd, 0x00, SEEK_SET) != 0
	77	\|\| bfd_read (&dos_hdr, 1, sizeof (dos_hdr), abfd)
	78	!= sizeof (dos_hdr))
fac41780 JW	79	{
	80	if (bfd_get_error () != bfd_error_system_call)
	81	bfd_set_error (bfd_error_wrong_format);
	82	return NULL;
	83	}
27e53099 L	84
	85	/* There are really two magic numbers involved; the magic number
	86	that says this is a NT executable (PEI) and the magic number
	87	that determines the architecture. The former is DOSMAGIC,
	88	stored in the e_magic field. The latter is stored in the
	89	f_magic field. If the NT magic number isn't valid, the
	90	architecture magic number could be mimicked by some other
	91	field (specifically, the number of relocs in section 3). Since
	92	this routine can only be called correctly for a PEI file, check
	93	the e_magic number here, and, if it doesn't match, clobber the
	94	f_magic number so that we don't get a false match. */
	95	if (bfd_h_get_16 (abfd, (bfd_byte *) dos_hdr.e_magic) != DOSMAGIC)
	96	{
	97	bfd_set_error (bfd_error_wrong_format);
	98	return NULL;
	99	}
	100
	101	offset = bfd_h_get_32 (abfd, (bfd_byte *) dos_hdr.e_lfanew);
	102	if (bfd_seek (abfd, (file_ptr) offset, SEEK_SET) != 0
	103	\|\| bfd_read (&image_hdr, 1, sizeof (image_hdr), abfd)
	104	!= sizeof (image_hdr))
fac41780 JW	105	{
	106	if (bfd_get_error () != bfd_error_system_call)
	107	bfd_set_error (bfd_error_wrong_format);
	108	return NULL;
	109	}
fac41780	110
27e53099 L	111	if (bfd_h_get_32 (abfd, (bfd_byte *) image_hdr.nt_signature)
27e53099 L	112	!= 0x4550)
fac41780 JW	113	{
	114	bfd_set_error (bfd_error_wrong_format);
	115	return NULL;
	116	}
	117
	118	/* Here is the hack. coff_object_p wants to read filhsz bytes to
27e53099 L	119	pick up the COFF header for PE, see "struct external_PEI_filehdr"
27e53099 L	120	in include/coff/pe.h. We adjust so that that will work. */
fac41780	121	if (bfd_seek (abfd,
27e53099	122	(file_ptr) (offset - sizeof (dos_hdr)),
fac41780 JW	123	SEEK_SET)
	124	!= 0)
	125	{
	126	if (bfd_get_error () != bfd_error_system_call)
	127	bfd_set_error (bfd_error_wrong_format);
	128	return NULL;
	129	}
	130	}
	131	#endif
	132
	133	return coff_object_p (abfd);
	134	}
	135
	136	const bfd_target
	137	#ifdef TARGET_SYM
	138	TARGET_SYM =
	139	#else
	140	ia64coff_vec =
	141	#endif
	142	{
	143	#ifdef TARGET_NAME
	144	TARGET_NAME,
	145	#else
	146	"coff-ia64", /* name */
	147	#endif
	148	bfd_target_coff_flavour,
	149	BFD_ENDIAN_LITTLE, /* data byte order is little */
	150	BFD_ENDIAN_LITTLE, /* header byte order is little */
	151
	152	(HAS_RELOC \| EXEC_P \| /* object flags */
	153	HAS_LINENO \| HAS_DEBUG \|
	154	HAS_SYMS \| HAS_LOCALS \| WP_TEXT \| D_PAGED),
	155
	156	#ifndef COFF_WITH_PE
	157	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC /* section flags */
	158	\| SEC_CODE \| SEC_DATA),
	159	#else
	160	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC /* section flags */
	161	\| SEC_CODE \| SEC_DATA
	162	\| SEC_LINK_ONCE \| SEC_LINK_DUPLICATES),
	163	#endif
	164
	165	#ifdef TARGET_UNDERSCORE
	166	TARGET_UNDERSCORE, /* leading underscore */
	167	#else
	168	0, /* leading underscore */
	169	#endif
	170	'/', /* ar_pad_char */
	171	15, /* ar_max_namelen */
	172
	173	bfd_getl64, bfd_getl_signed_64, bfd_putl64,
	174	bfd_getl32, bfd_getl_signed_32, bfd_putl32,
	175	bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
	176	bfd_getl64, bfd_getl_signed_64, bfd_putl64,
	177	bfd_getl32, bfd_getl_signed_32, bfd_putl32,
	178	bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
	179
5fcfd273	180	/* Note that we allow an object file to be treated as a core file as well. */
fac41780 JW	181	{_bfd_dummy_target, ia64coff_object_p, /* bfd_check_format */
	182	bfd_generic_archive_p, ia64coff_object_p},
	183	{bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */
	184	bfd_false},
	185	{bfd_false, coff_write_object_contents, /* bfd_write_contents */
	186	_bfd_write_archive_contents, bfd_false},
	187
	188	BFD_JUMP_TABLE_GENERIC (coff),
	189	BFD_JUMP_TABLE_COPY (coff),
	190	BFD_JUMP_TABLE_CORE (_bfd_nocore),
	191	BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
	192	BFD_JUMP_TABLE_SYMBOLS (coff),
	193	BFD_JUMP_TABLE_RELOCS (coff),
	194	BFD_JUMP_TABLE_WRITE (coff),
	195	BFD_JUMP_TABLE_LINK (coff),
	196	BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
	197
	198	NULL,
	199
	200	COFF_SWAP_TABLE
	201	};