This commit was generated by cvs2svn to track changes on a CVS vendor
[external/binutils.git] / bfd / coff-ia64.c
1 /* BFD back-end for HP/Intel IA-64 COFF files.
2    Copyright 1999 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 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"
24
25 #include "coff/ia64.h"
26
27 #include "coff/internal.h"
28
29 #include "coff/pe.h"
30
31 #include "libcoff.h"
32
33 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (2)
34 /* The page size is a guess based on ELF.  */
35
36 #define COFF_PAGE_SIZE 0x1000
37
38 static reloc_howto_type howto_table[] = 
39 {
40   {0},
41 };
42
43 #define BADMAG(x) IA64BADMAG(x)
44 #define IA64 1                  /* Customize coffcode.h */
45
46 #ifdef COFF_WITH_PEP64
47 # undef AOUTSZ
48 # define AOUTSZ         PEP64AOUTSZ
49 # define PEAOUTHDR      PEP64AOUTHDR
50 #endif
51
52 #define RTYPE2HOWTO(cache_ptr, dst) \
53             (cache_ptr)->howto = howto_table + (dst)->r_type;
54
55 #ifdef COFF_WITH_PE
56 /* Return true if this relocation should
57    appear in the output .reloc section. */
58
59 static boolean
60 in_reloc_p(abfd, howto)
61      bfd * abfd;
62      reloc_howto_type *howto;
63 {
64   return 0;                     /* We don't do relocs for now... */
65 }     
66 #endif
67
68 #include "coffcode.h"
69
70 static const bfd_target *
71 ia64coff_object_p (abfd)
72      bfd *abfd;
73 {
74 #ifdef COFF_IMAGE_WITH_PE
75   /* We need to hack badly to handle a PE image correctly.  In PE
76      images created by the GNU linker, the offset to the COFF header
77      is always the size.  However, this is not the case in images
78      generated by other PE linkers.  The PE format stores a four byte
79      offset to the PE signature just before the COFF header at
80      location 0x3c of the file.  We pick up that offset, verify that
81      the PE signature is there, and then set ourselves up to read in
82      the COFF header.  */
83   {
84     bfd_byte ext_offset[4];
85     file_ptr offset;
86     bfd_byte ext_signature[4];
87     unsigned long signature;
88
89     if (bfd_seek (abfd, 0x3c, SEEK_SET) != 0
90         || bfd_read (ext_offset, 1, 4, abfd) != 4)
91       {
92         if (bfd_get_error () != bfd_error_system_call)
93           bfd_set_error (bfd_error_wrong_format);
94         return NULL;
95       }
96     offset = bfd_h_get_32 (abfd, ext_offset);
97     if (bfd_seek (abfd, offset, SEEK_SET) != 0
98         || bfd_read (ext_signature, 1, 4, abfd) != 4)
99       {
100         if (bfd_get_error () != bfd_error_system_call)
101           bfd_set_error (bfd_error_wrong_format);
102         return NULL;
103       }
104     signature = bfd_h_get_32 (abfd, ext_signature);
105
106     if (signature != 0x4550)
107       {
108         bfd_set_error (bfd_error_wrong_format);
109         return NULL;
110       }
111
112     /* Here is the hack.  coff_object_p wants to read filhsz bytes to
113        pick up the COFF header.  We adjust so that that will work.  20
114        is the size of the COFF filehdr.  */
115
116     if (bfd_seek (abfd,
117                   (bfd_tell (abfd)
118                    - bfd_coff_filhsz (abfd)
119                    + 20),
120                   SEEK_SET)
121         != 0)
122       {
123         if (bfd_get_error () != bfd_error_system_call)
124           bfd_set_error (bfd_error_wrong_format);
125         return NULL;
126       }
127   }
128 #endif
129
130   return coff_object_p (abfd);
131 }
132
133 const bfd_target
134 #ifdef TARGET_SYM
135   TARGET_SYM =
136 #else
137   ia64coff_vec =
138 #endif
139 {
140 #ifdef TARGET_NAME
141   TARGET_NAME,
142 #else
143   "coff-ia64",                  /* name */
144 #endif
145   bfd_target_coff_flavour,
146   BFD_ENDIAN_LITTLE,            /* data byte order is little */
147   BFD_ENDIAN_LITTLE,            /* header byte order is little */
148
149   (HAS_RELOC | EXEC_P |         /* object flags */
150    HAS_LINENO | HAS_DEBUG |
151    HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
152
153 #ifndef COFF_WITH_PE
154   (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC /* section flags */
155    | SEC_CODE | SEC_DATA),
156 #else
157   (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC /* section flags */
158    | SEC_CODE | SEC_DATA
159    | SEC_LINK_ONCE | SEC_LINK_DUPLICATES),
160 #endif
161
162 #ifdef TARGET_UNDERSCORE
163   TARGET_UNDERSCORE,            /* leading underscore */
164 #else
165   0,                            /* leading underscore */
166 #endif
167   '/',                          /* ar_pad_char */
168   15,                           /* ar_max_namelen */
169
170   bfd_getl64, bfd_getl_signed_64, bfd_putl64,
171      bfd_getl32, bfd_getl_signed_32, bfd_putl32,
172      bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
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, /* hdrs */
176
177 /* Note that we allow an object file to be treated as a core file as well. */
178     {_bfd_dummy_target, ia64coff_object_p, /* bfd_check_format */
179        bfd_generic_archive_p, ia64coff_object_p},
180     {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */
181        bfd_false},
182     {bfd_false, coff_write_object_contents, /* bfd_write_contents */
183        _bfd_write_archive_contents, bfd_false},
184
185      BFD_JUMP_TABLE_GENERIC (coff),
186      BFD_JUMP_TABLE_COPY (coff),
187      BFD_JUMP_TABLE_CORE (_bfd_nocore),
188      BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
189      BFD_JUMP_TABLE_SYMBOLS (coff),
190      BFD_JUMP_TABLE_RELOCS (coff),
191      BFD_JUMP_TABLE_WRITE (coff),
192      BFD_JUMP_TABLE_LINK (coff),
193      BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
194
195   NULL,
196
197   COFF_SWAP_TABLE
198 };