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 };