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