1/* BFD back-end for HP/Intel IA-64 COFF files.
2   Copyright (C) 1999-2017 Free Software Foundation, Inc.
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 3 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., 51 Franklin Street - Fifth Floor, Boston,
20   MA 02110-1301, USA.  */
21
22#include "sysdep.h"
23#include "bfd.h"
24#include "libbfd.h"
25#include "coff/ia64.h"
26#include "coff/internal.h"
27#include "coff/pe.h"
28#include "libcoff.h"
29
30#define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (2)
31
32/* Windows ia64 uses 8K page size.  */
33#define COFF_PAGE_SIZE 0x2000
34
35static reloc_howto_type howto_table[] =
36{
37  EMPTY_HOWTO (0),
38};
39
40#define BADMAG(x) IA64BADMAG(x)
41#define IA64 1			/* Customize coffcode.h */
42
43#ifdef COFF_WITH_pep
44# undef AOUTSZ
45# define AOUTSZ		PEPAOUTSZ
46# define PEAOUTHDR	PEPAOUTHDR
47#endif
48
49#define RTYPE2HOWTO(cache_ptr, dst) \
50  (cache_ptr)->howto = howto_table;
51
52#ifdef COFF_WITH_PE
53/* Return TRUE if this relocation should
54   appear in the output .reloc section.  */
55
56static bfd_boolean
57in_reloc_p (bfd * abfd ATTRIBUTE_UNUSED,
58	    reloc_howto_type *howto ATTRIBUTE_UNUSED)
59{
60  return FALSE;			/* We don't do relocs for now...  */
61}
62#endif
63
64#ifndef bfd_pe_print_pdata
65#define bfd_pe_print_pdata	NULL
66#endif
67
68#include "coffcode.h"
69
70static const bfd_target *
71ia64coff_object_p (bfd *abfd)
72{
73#ifdef COFF_IMAGE_WITH_PE
74  {
75    struct external_PEI_DOS_hdr dos_hdr;
76    struct external_PEI_IMAGE_hdr image_hdr;
77    file_ptr offset;
78
79    if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0
80	|| (bfd_bread (&dos_hdr, (bfd_size_type) sizeof (dos_hdr), abfd)
81	    != sizeof (dos_hdr)))
82      {
83	if (bfd_get_error () != bfd_error_system_call)
84	  bfd_set_error (bfd_error_wrong_format);
85	return NULL;
86      }
87
88    /* There are really two magic numbers involved; the magic number
89       that says this is a NT executable (PEI) and the magic number
90       that determines the architecture.  The former is DOSMAGIC,
91       stored in the e_magic field.  The latter is stored in the
92       f_magic field.  If the NT magic number isn't valid, the
93       architecture magic number could be mimicked by some other
94       field (specifically, the number of relocs in section 3).  Since
95       this routine can only be called correctly for a PEI file, check
96       the e_magic number here, and, if it doesn't match, clobber the
97       f_magic number so that we don't get a false match.  */
98    if (H_GET_16 (abfd, dos_hdr.e_magic) != DOSMAGIC)
99      {
100	bfd_set_error (bfd_error_wrong_format);
101	return NULL;
102      }
103
104    offset = H_GET_32 (abfd, dos_hdr.e_lfanew);
105    if (bfd_seek (abfd, offset, SEEK_SET) != 0
106	|| (bfd_bread (&image_hdr, (bfd_size_type) sizeof (image_hdr), abfd)
107	    != sizeof (image_hdr)))
108      {
109	if (bfd_get_error () != bfd_error_system_call)
110	  bfd_set_error (bfd_error_wrong_format);
111	return NULL;
112      }
113
114    if (H_GET_32 (abfd, image_hdr.nt_signature)
115	!= 0x4550)
116      {
117	bfd_set_error (bfd_error_wrong_format);
118	return NULL;
119      }
120
121    /* Here is the hack.  coff_object_p wants to read filhsz bytes to
122       pick up the COFF header for PE, see "struct external_PEI_filehdr"
123       in include/coff/pe.h.  We adjust so that that will work. */
124    if (bfd_seek (abfd, offset - sizeof (dos_hdr), SEEK_SET) != 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
136const 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  0,				/* match priority.  */
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
181/* Note that we allow an object file to be treated as a core file as well.  */
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};
203