bfd/coff-rs6000.c

   1 /* BFD back-end for IBM RS/6000 "XCOFF" files.
   2    Copyright 1990-1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
   3    2008, 2009, 2010, 2011, 2012
   4    Free Software Foundation, Inc.
   5    Written by Metin G. Ozisik, Mimi Phuong-Thao Vo, and John Gilmore.
   6    Archive support from Damon A. Permezel.
   7    Contributed by IBM Corporation and Cygnus Support.
   8
   9    This file is part of BFD, the Binary File Descriptor library.
  10
  11    This program is free software; you can redistribute it and/or modify
  12    it under the terms of the GNU General Public License as published by
  13    the Free Software Foundation; either version 3 of the License, or
  14    (at your option) any later version.
  15
  16    This program is distributed in the hope that it will be useful,
  17    but WITHOUT ANY WARRANTY; without even the implied warranty of
  18    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19    GNU General Public License for more details.
  20
  21    You should have received a copy of the GNU General Public License
  22    along with this program; if not, write to the Free Software
  23    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  24    MA 02110-1301, USA.  */
  25
  26 #include "sysdep.h"
  27 #include "bfd.h"
  28 #include "bfdlink.h"
  29 #include "libbfd.h"
  30 #include "coff/internal.h"
  31 #include "coff/xcoff.h"
  32 #include "coff/rs6000.h"
  33 #include "libcoff.h"
  34 #include "libxcoff.h"
  35
  36 extern bfd_boolean _bfd_xcoff_mkobject (bfd *);
  37 extern bfd_boolean _bfd_xcoff_copy_private_bfd_data (bfd *, bfd *);
  38 extern bfd_boolean _bfd_xcoff_is_local_label_name (bfd *, const char *);
  39 extern reloc_howto_type *_bfd_xcoff_reloc_type_lookup
  40   (bfd *, bfd_reloc_code_real_type);
  41 extern bfd_boolean _bfd_xcoff_slurp_armap (bfd *);
  42 extern const bfd_target *_bfd_xcoff_archive_p (bfd *);
  43 extern void * _bfd_xcoff_read_ar_hdr (bfd *);
  44 extern bfd *_bfd_xcoff_openr_next_archived_file (bfd *, bfd *);
  45 extern int _bfd_xcoff_stat_arch_elt (bfd *, struct stat *);
  46 extern bfd_boolean _bfd_xcoff_write_armap
  47   (bfd *, unsigned int, struct orl *, unsigned int, int);
  48 extern bfd_boolean _bfd_xcoff_write_archive_contents (bfd *);
  49 extern int _bfd_xcoff_sizeof_headers (bfd *, struct bfd_link_info *);
  50 extern void _bfd_xcoff_swap_sym_in (bfd *, void *, void *);
  51 extern unsigned int _bfd_xcoff_swap_sym_out (bfd *, void *, void *);
  52 extern void _bfd_xcoff_swap_aux_in (bfd *, void *, int, int, int, int, void *);
  53 extern unsigned int _bfd_xcoff_swap_aux_out
  54   (bfd *, void *, int, int, int, int, void *);
  55 static void xcoff_swap_reloc_in (bfd *, void *, void *);
  56 static unsigned int xcoff_swap_reloc_out (bfd *, void *, void *);
  57
  58 /* Forward declare xcoff_rtype2howto for coffcode.h macro.  */
  59 void xcoff_rtype2howto (arelent *, struct internal_reloc *);
  60
  61 /* coffcode.h needs these to be defined.  */
  62 #define RS6000COFF_C 1
  63
  64 #define SELECT_RELOC(internal, howto)                                   \
  65   {                                                                     \
  66     internal.r_type = howto->type;                                      \
  67     internal.r_size =                                                   \
  68       ((howto->complain_on_overflow == complain_overflow_signed         \
  69         ? 0x80                                                          \
  70         : 0)                                                            \
  71        | (howto->bitsize - 1));                                         \
  72   }
  73
  74 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
  75 #define COFF_LONG_FILENAMES
  76 #define NO_COFF_SYMBOLS
  77 #define RTYPE2HOWTO(cache_ptr, dst) xcoff_rtype2howto (cache_ptr, dst)
  78 #define coff_mkobject _bfd_xcoff_mkobject
  79 #define coff_bfd_copy_private_bfd_data _bfd_xcoff_copy_private_bfd_data
  80 #define coff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
  81 #define coff_bfd_reloc_type_lookup _bfd_xcoff_reloc_type_lookup
  82 #define coff_bfd_reloc_name_lookup _bfd_xcoff_reloc_name_lookup
  83 #ifdef AIX_CORE
  84 extern const bfd_target * rs6000coff_core_p (bfd *abfd);
  85 extern bfd_boolean rs6000coff_core_file_matches_executable_p
  86   (bfd *cbfd, bfd *ebfd);
  87 extern char *rs6000coff_core_file_failing_command (bfd *abfd);
  88 extern int rs6000coff_core_file_failing_signal (bfd *abfd);
  89 #define CORE_FILE_P rs6000coff_core_p
  90 #define coff_core_file_failing_command \
  91   rs6000coff_core_file_failing_command
  92 #define coff_core_file_failing_signal \
  93   rs6000coff_core_file_failing_signal
  94 #define coff_core_file_matches_executable_p \
  95   rs6000coff_core_file_matches_executable_p
  96 #define coff_core_file_pid \
  97   _bfd_nocore_core_file_pid
  98 #else
  99 #define CORE_FILE_P _bfd_dummy_target
 100 #define coff_core_file_failing_command \
 101   _bfd_nocore_core_file_failing_command
 102 #define coff_core_file_failing_signal \
 103   _bfd_nocore_core_file_failing_signal
 104 #define coff_core_file_matches_executable_p \
 105   _bfd_nocore_core_file_matches_executable_p
 106 #define coff_core_file_pid \
 107   _bfd_nocore_core_file_pid
 108 #endif
 109 #define coff_SWAP_sym_in _bfd_xcoff_swap_sym_in
 110 #define coff_SWAP_sym_out _bfd_xcoff_swap_sym_out
 111 #define coff_SWAP_aux_in _bfd_xcoff_swap_aux_in
 112 #define coff_SWAP_aux_out _bfd_xcoff_swap_aux_out
 113 #define coff_swap_reloc_in xcoff_swap_reloc_in
 114 #define coff_swap_reloc_out xcoff_swap_reloc_out
 115 #define NO_COFF_RELOCS
 116
 117 #ifndef bfd_pe_print_pdata
 118 #define bfd_pe_print_pdata      NULL
 119 #endif
 120
 121 #include "coffcode.h"
 122
 123 /* The main body of code is in coffcode.h.  */
 124
 125 static const char *normalize_filename (bfd *);
 126 static bfd_boolean xcoff_write_armap_old
 127   (bfd *, unsigned int, struct orl *, unsigned int, int);
 128 static bfd_boolean xcoff_write_armap_big
 129   (bfd *, unsigned int, struct orl *, unsigned int, int);
 130 static bfd_boolean xcoff_write_archive_contents_old (bfd *);
 131 static bfd_boolean xcoff_write_archive_contents_big (bfd *);
 132 static void xcoff_swap_ldhdr_in (bfd *, const void *, struct internal_ldhdr *);
 133 static void xcoff_swap_ldhdr_out (bfd *, const struct internal_ldhdr *, void *);
 134 static void xcoff_swap_ldsym_in (bfd *, const void *, struct internal_ldsym *);
 135 static void xcoff_swap_ldsym_out (bfd *, const struct internal_ldsym *, void *);
 136 static void xcoff_swap_ldrel_in (bfd *, const void *, struct internal_ldrel *);
 137 static void xcoff_swap_ldrel_out (bfd *, const struct internal_ldrel *, void *);
 138 static bfd_boolean xcoff_ppc_relocate_section
 139   (bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
 140    struct internal_reloc *, struct internal_syment *, asection **);
 141 static bfd_boolean _bfd_xcoff_put_ldsymbol_name
 142   (bfd *, struct xcoff_loader_info *, struct internal_ldsym *, const char *);
 143 static asection *xcoff_create_csect_from_smclas
 144   (bfd *, union internal_auxent *, const char *);
 145 static bfd_boolean xcoff_is_lineno_count_overflow (bfd *, bfd_vma);
 146 static bfd_boolean xcoff_is_reloc_count_overflow (bfd *, bfd_vma);
 147 static bfd_vma xcoff_loader_symbol_offset (bfd *, struct internal_ldhdr *);
 148 static bfd_vma xcoff_loader_reloc_offset (bfd *, struct internal_ldhdr *);
 149 static bfd_boolean xcoff_generate_rtinit
 150   (bfd *, const char *, const char *, bfd_boolean);
 151 static bfd_boolean do_pad (bfd *, unsigned int);
 152 static bfd_boolean do_copy (bfd *, bfd *);
 153
 154 /* Relocation functions */
 155 static bfd_boolean xcoff_reloc_type_br (XCOFF_RELOC_FUNCTION_ARGS);
 156
 157 static bfd_boolean xcoff_complain_overflow_dont_func
 158   (XCOFF_COMPLAIN_FUNCTION_ARGS);
 159 static bfd_boolean xcoff_complain_overflow_bitfield_func
 160   (XCOFF_COMPLAIN_FUNCTION_ARGS);
 161 static bfd_boolean xcoff_complain_overflow_signed_func
 162   (XCOFF_COMPLAIN_FUNCTION_ARGS);
 163 static bfd_boolean xcoff_complain_overflow_unsigned_func
 164   (XCOFF_COMPLAIN_FUNCTION_ARGS);
 165
 166 bfd_boolean (*xcoff_calculate_relocation[XCOFF_MAX_CALCULATE_RELOCATION])
 167   (XCOFF_RELOC_FUNCTION_ARGS) =
 168 {
 169   xcoff_reloc_type_pos,  /* R_POS   (0x00) */
 170   xcoff_reloc_type_neg,  /* R_NEG   (0x01) */
 171   xcoff_reloc_type_rel,  /* R_REL   (0x02) */
 172   xcoff_reloc_type_toc,  /* R_TOC   (0x03) */
 173   xcoff_reloc_type_fail, /* R_RTB   (0x04) */
 174   xcoff_reloc_type_toc,  /* R_GL    (0x05) */
 175   xcoff_reloc_type_toc,  /* R_TCL   (0x06) */
 176   xcoff_reloc_type_fail, /*         (0x07) */
 177   xcoff_reloc_type_ba,   /* R_BA    (0x08) */
 178   xcoff_reloc_type_fail, /*         (0x09) */
 179   xcoff_reloc_type_br,   /* R_BR    (0x0a) */
 180   xcoff_reloc_type_fail, /*         (0x0b) */
 181   xcoff_reloc_type_pos,  /* R_RL    (0x0c) */
 182   xcoff_reloc_type_pos,  /* R_RLA   (0x0d) */
 183   xcoff_reloc_type_fail, /*         (0x0e) */
 184   xcoff_reloc_type_noop, /* R_REF   (0x0f) */
 185   xcoff_reloc_type_fail, /*         (0x10) */
 186   xcoff_reloc_type_fail, /*         (0x11) */
 187   xcoff_reloc_type_toc,  /* R_TRL   (0x12) */
 188   xcoff_reloc_type_toc,  /* R_TRLA  (0x13) */
 189   xcoff_reloc_type_fail, /* R_RRTBI (0x14) */
 190   xcoff_reloc_type_fail, /* R_RRTBA (0x15) */
 191   xcoff_reloc_type_ba,   /* R_CAI   (0x16) */
 192   xcoff_reloc_type_crel, /* R_CREL  (0x17) */
 193   xcoff_reloc_type_ba,   /* R_RBA   (0x18) */
 194   xcoff_reloc_type_ba,   /* R_RBAC  (0x19) */
 195   xcoff_reloc_type_br,   /* R_RBR   (0x1a) */
 196   xcoff_reloc_type_ba,   /* R_RBRC  (0x1b) */
 197 };
 198
 199 bfd_boolean (*xcoff_complain_overflow[XCOFF_MAX_COMPLAIN_OVERFLOW])
 200   (XCOFF_COMPLAIN_FUNCTION_ARGS) =
 201 {
 202   xcoff_complain_overflow_dont_func,
 203   xcoff_complain_overflow_bitfield_func,
 204   xcoff_complain_overflow_signed_func,
 205   xcoff_complain_overflow_unsigned_func,
 206 };
 207
 208 /* Information about one member of an archive.  */
 209 struct member_layout {
 210   /* The archive member that this structure describes.  */
 211   bfd *member;
 212
 213   /* The number of bytes of padding that must be inserted before the
 214      start of the member in order to ensure that the section contents
 215      are correctly aligned.  */
 216   unsigned int leading_padding;
 217
 218   /* The offset of MEMBER from the start of the archive (i.e. the end
 219      of the leading padding).  */
 220   file_ptr offset;
 221
 222   /* The normalized name of MEMBER.  */
 223   const char *name;
 224
 225   /* The length of NAME, without padding.  */
 226   bfd_size_type namlen;
 227
 228   /* The length of NAME, with padding.  */
 229   bfd_size_type padded_namlen;
 230
 231   /* The size of MEMBER's header, including the name and magic sequence.  */
 232   bfd_size_type header_size;
 233
 234   /* The size of the MEMBER's contents.  */
 235   bfd_size_type contents_size;
 236
 237   /* The number of bytes of padding that must be inserted after MEMBER
 238      in order to preserve even alignment.  */
 239   bfd_size_type trailing_padding;
 240 };
 241
 242 /* A structure used for iterating over the members of an archive.  */
 243 struct archive_iterator {
 244   /* The archive itself.  */
 245   bfd *archive;
 246
 247   /* Information about the current archive member.  */
 248   struct member_layout current;
 249
 250   /* Information about the next archive member.  MEMBER is null if there
 251      are no more archive members, in which case OFFSET is the offset of
 252      the first unused byte.  */
 253   struct member_layout next;
 254 };
 255
 256 /* Initialize INFO so that it describes member MEMBER of archive ARCHIVE.
 257    OFFSET is the even-padded offset of MEMBER, not including any leading
 258    padding needed for section alignment.  */
 259
 260 static void
 261 member_layout_init (struct member_layout *info, bfd *archive,
 262                     bfd *member, file_ptr offset)
 263 {
 264   info->member = member;
 265   info->leading_padding = 0;
 266   if (member)
 267     {
 268       info->name = normalize_filename (member);
 269       info->namlen = strlen (info->name);
 270       info->padded_namlen = info->namlen + (info->namlen & 1);
 271       if (xcoff_big_format_p (archive))
 272         info->header_size = SIZEOF_AR_HDR_BIG;
 273       else
 274         info->header_size = SIZEOF_AR_HDR;
 275       info->header_size += info->padded_namlen + SXCOFFARFMAG;
 276       info->contents_size = arelt_size (member);
 277       info->trailing_padding = info->contents_size & 1;
 278
 279       if (bfd_check_format (member, bfd_object)
 280           && bfd_get_flavour (member) == bfd_target_xcoff_flavour
 281           && (member->flags & DYNAMIC) != 0)
 282         info->leading_padding
 283           = (-(offset + info->header_size)
 284              & ((1 << bfd_xcoff_text_align_power (member)) - 1));
 285     }
 286   info->offset = offset + info->leading_padding;
 287 }
 288
 289 /* Set up ITERATOR to iterate through archive ARCHIVE.  */
 290
 291 static void
 292 archive_iterator_begin (struct archive_iterator *iterator,
 293                         bfd *archive)
 294 {
 295   iterator->archive = archive;
 296   member_layout_init (&iterator->next, archive, archive->archive_head,
 297                       xcoff_big_format_p (archive)
 298                       ? SIZEOF_AR_FILE_HDR_BIG
 299                       : SIZEOF_AR_FILE_HDR);
 300 }
 301
 302 /* Make ITERATOR visit the first unvisited archive member.  Return true
 303    on success; return false if all members have been visited.  */
 304
 305 static bfd_boolean
 306 archive_iterator_next (struct archive_iterator *iterator)
 307 {
 308   if (!iterator->next.member)
 309     return FALSE;
 310
 311   iterator->current = iterator->next;
 312   member_layout_init (&iterator->next, iterator->archive,
 313                       iterator->current.member->archive_next,
 314                       iterator->current.offset
 315                       + iterator->current.header_size
 316                       + iterator->current.contents_size
 317                       + iterator->current.trailing_padding);
 318   return TRUE;
 319 }
 320
 321 /* We use our own tdata type.  Its first field is the COFF tdata type,
 322    so the COFF routines are compatible.  */
 323
 324 bfd_boolean
 325 _bfd_xcoff_mkobject (bfd *abfd)
 326 {
 327   coff_data_type *coff;
 328   bfd_size_type amt = sizeof (struct xcoff_tdata);
 329
 330   abfd->tdata.xcoff_obj_data = (struct xcoff_tdata *) bfd_zalloc (abfd, amt);
 331   if (abfd->tdata.xcoff_obj_data == NULL)
 332     return FALSE;
 333   coff = coff_data (abfd);
 334   coff->symbols = (coff_symbol_type *) NULL;
 335   coff->conversion_table = (unsigned int *) NULL;
 336   coff->raw_syments = (struct coff_ptr_struct *) NULL;
 337   coff->relocbase = 0;
 338
 339   xcoff_data (abfd)->modtype = ('1' << 8) | 'L';
 340
 341   /* We set cputype to -1 to indicate that it has not been
 342      initialized.  */
 343   xcoff_data (abfd)->cputype = -1;
 344
 345   xcoff_data (abfd)->csects = NULL;
 346   xcoff_data (abfd)->debug_indices = NULL;
 347
 348   /* text section alignment is different than the default */
 349   bfd_xcoff_text_align_power (abfd) = 2;
 350
 351   return TRUE;
 352 }
 353
 354 /* Copy XCOFF data from one BFD to another.  */
 355
 356 bfd_boolean
 357 _bfd_xcoff_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
 358 {
 359   struct xcoff_tdata *ix, *ox;
 360   asection *sec;
 361
 362   if (ibfd->xvec != obfd->xvec)
 363     return TRUE;
 364   ix = xcoff_data (ibfd);
 365   ox = xcoff_data (obfd);
 366   ox->full_aouthdr = ix->full_aouthdr;
 367   ox->toc = ix->toc;
 368   if (ix->sntoc == 0)
 369     ox->sntoc = 0;
 370   else
 371     {
 372       sec = coff_section_from_bfd_index (ibfd, ix->sntoc);
 373       if (sec == NULL)
 374         ox->sntoc = 0;
 375       else
 376         ox->sntoc = sec->output_section->target_index;
 377     }
 378   if (ix->snentry == 0)
 379     ox->snentry = 0;
 380   else
 381     {
 382       sec = coff_section_from_bfd_index (ibfd, ix->snentry);
 383       if (sec == NULL)
 384         ox->snentry = 0;
 385       else
 386         ox->snentry = sec->output_section->target_index;
 387     }
 388   bfd_xcoff_text_align_power (obfd) = bfd_xcoff_text_align_power (ibfd);
 389   bfd_xcoff_data_align_power (obfd) = bfd_xcoff_data_align_power (ibfd);
 390   ox->modtype = ix->modtype;
 391   ox->cputype = ix->cputype;
 392   ox->maxdata = ix->maxdata;
 393   ox->maxstack = ix->maxstack;
 394   return TRUE;
 395 }
 396
 397 /* I don't think XCOFF really has a notion of local labels based on
 398    name.  This will mean that ld -X doesn't actually strip anything.
 399    The AIX native linker does not have a -X option, and it ignores the
 400    -x option.  */
 401
 402 bfd_boolean
 403 _bfd_xcoff_is_local_label_name (bfd *abfd ATTRIBUTE_UNUSED,
 404                                 const char *name ATTRIBUTE_UNUSED)
 405 {
 406   return FALSE;
 407 }
 408
 409 static const struct dwarf_debug_section xcoff_debug_sections[] =
 410 {
 411   { ".dwabrev",         NULL },
 412   { ".dwarnge",         NULL },
 413   { NULL,       NULL }, /* .debug_frame */
 414   { ".dwinfo",          NULL },
 415   { ".dwline",          NULL },
 416   { NULL,       NULL }, /* .debug_loc */
 417   { NULL,       NULL }, /* .debug_macinfo */
 418   { NULL,       NULL }, /* .debug_macro */
 419   { ".dwpbnms",         NULL },
 420   { ".dwpbtyp",         NULL },
 421   { ".dwrnges",         NULL },
 422   { NULL,       NULL }, /* .debug_static_func */
 423   { NULL,       NULL }, /* .debug_static_vars */
 424   { ".dwstr",   NULL },
 425   { NULL,       NULL }, /* .debug_types */
 426   /* GNU DWARF 1 extensions */
 427   { NULL,       NULL }, /* .debug_sfnames */
 428   { NULL,       NULL }, /* .debug_srcinfo */
 429   /* SGI/MIPS DWARF 2 extensions */
 430   { NULL,       NULL }, /* .debug_funcnames */
 431   { NULL,       NULL }, /* .debug_typenames */
 432   { NULL,       NULL }, /* .debug_varnames */
 433   { NULL,       NULL }, /* .debug_weaknames */
 434   { NULL,       NULL },
 435 };
 436
 437 static bfd_boolean
 438 xcoff_find_nearest_line (bfd *abfd,
 439                          asection *section,
 440                          asymbol **symbols,
 441                          bfd_vma offset,
 442                          const char **filename_ptr,
 443                          const char **functionname_ptr,
 444                          unsigned int *line_ptr)
 445 {
 446   return coff_find_nearest_line_with_names (abfd, xcoff_debug_sections,
 447                                             section, symbols, offset,
 448                                             filename_ptr, functionname_ptr,
 449                                             line_ptr);
 450 }
 451
 452 xcoff_find_nearest_line_discriminator (bfd *abfd,
 453                                       asection *section,
 454                                       asymbol **symbols,
 455                                       bfd_vma offset,
 456                                       const char **filename_ptr,
 457                                       const char **functionname_ptr,
 458                                       unsigned int *line_ptr,
 459                                       unsigned int *discriminator)
 460 {
 461   *discriminator = 0;
 462   return coff_find_nearest_line_with_names (abfd, xcoff_debug_sections,
 463                                             section, symbols, offset,
 464                                             filename_ptr, functionname_ptr,
 465                                             line_ptr);
 466 }
 467
 468 \f
 469 void
 470 _bfd_xcoff_swap_sym_in (bfd *abfd, void * ext1, void * in1)
 471 {
 472   SYMENT *ext = (SYMENT *)ext1;
 473   struct internal_syment * in = (struct internal_syment *)in1;
 474
 475   if (ext->e.e_name[0] != 0)
 476     {
 477       memcpy (in->_n._n_name, ext->e.e_name, SYMNMLEN);
 478     }
 479   else
 480     {
 481       in->_n._n_n._n_zeroes = 0;
 482       in->_n._n_n._n_offset = H_GET_32 (abfd, ext->e.e.e_offset);
 483     }
 484
 485   in->n_value = H_GET_32 (abfd, ext->e_value);
 486   in->n_scnum = H_GET_16 (abfd, ext->e_scnum);
 487   in->n_type = H_GET_16 (abfd, ext->e_type);
 488   in->n_sclass = H_GET_8 (abfd, ext->e_sclass);
 489   in->n_numaux = H_GET_8 (abfd, ext->e_numaux);
 490 }
 491
 492 unsigned int
 493 _bfd_xcoff_swap_sym_out (bfd *abfd, void * inp, void * extp)
 494 {
 495   struct internal_syment *in = (struct internal_syment *)inp;
 496   SYMENT *ext =(SYMENT *)extp;
 497
 498   if (in->_n._n_name[0] != 0)
 499     {
 500       memcpy (ext->e.e_name, in->_n._n_name, SYMNMLEN);
 501     }
 502   else
 503     {
 504       H_PUT_32 (abfd, 0, ext->e.e.e_zeroes);
 505       H_PUT_32 (abfd, in->_n._n_n._n_offset, ext->e.e.e_offset);
 506     }
 507
 508   H_PUT_32 (abfd, in->n_value, ext->e_value);
 509   H_PUT_16 (abfd, in->n_scnum, ext->e_scnum);
 510   H_PUT_16 (abfd, in->n_type, ext->e_type);
 511   H_PUT_8 (abfd, in->n_sclass, ext->e_sclass);
 512   H_PUT_8 (abfd, in->n_numaux, ext->e_numaux);
 513   return bfd_coff_symesz (abfd);
 514 }
 515
 516 void
 517 _bfd_xcoff_swap_aux_in (bfd *abfd, void * ext1, int type, int in_class,
 518                         int indx, int numaux, void * in1)
 519 {
 520   AUXENT * ext = (AUXENT *)ext1;
 521   union internal_auxent *in = (union internal_auxent *)in1;
 522
 523   switch (in_class)
 524     {
 525     case C_FILE:
 526       if (ext->x_file.x_n.x_fname[0] == 0)
 527         {
 528           in->x_file.x_n.x_zeroes = 0;
 529           in->x_file.x_n.x_offset =
 530             H_GET_32 (abfd, ext->x_file.x_n.x_n.x_offset);
 531         }
 532       else
 533         {
 534           if (numaux > 1)
 535             {
 536               if (indx == 0)
 537                 memcpy (in->x_file.x_fname, ext->x_file.x_n.x_fname,
 538                         numaux * sizeof (AUXENT));
 539             }
 540           else
 541             {
 542               memcpy (in->x_file.x_fname, ext->x_file.x_n.x_fname, FILNMLEN);
 543             }
 544         }
 545       goto end;
 546
 547       /* RS/6000 "csect" auxents */
 548     case C_EXT:
 549     case C_AIX_WEAKEXT:
 550     case C_HIDEXT:
 551       if (indx + 1 == numaux)
 552         {
 553           in->x_csect.x_scnlen.l = H_GET_32 (abfd, ext->x_csect.x_scnlen);
 554           in->x_csect.x_parmhash = H_GET_32 (abfd, ext->x_csect.x_parmhash);
 555           in->x_csect.x_snhash   = H_GET_16 (abfd, ext->x_csect.x_snhash);
 556           /* We don't have to hack bitfields in x_smtyp because it's
 557              defined by shifts-and-ands, which are equivalent on all
 558              byte orders.  */
 559           in->x_csect.x_smtyp    = H_GET_8 (abfd, ext->x_csect.x_smtyp);
 560           in->x_csect.x_smclas   = H_GET_8 (abfd, ext->x_csect.x_smclas);
 561           in->x_csect.x_stab     = H_GET_32 (abfd, ext->x_csect.x_stab);
 562           in->x_csect.x_snstab   = H_GET_16 (abfd, ext->x_csect.x_snstab);
 563           goto end;
 564         }
 565       break;
 566
 567     case C_STAT:
 568     case C_LEAFSTAT:
 569     case C_HIDDEN:
 570       if (type == T_NULL)
 571         {
 572           in->x_scn.x_scnlen = H_GET_32 (abfd, ext->x_scn.x_scnlen);
 573           in->x_scn.x_nreloc = H_GET_16 (abfd, ext->x_scn.x_nreloc);
 574           in->x_scn.x_nlinno = H_GET_16 (abfd, ext->x_scn.x_nlinno);
 575           /* PE defines some extra fields; we zero them out for
 576              safety.  */
 577           in->x_scn.x_checksum = 0;
 578           in->x_scn.x_associated = 0;
 579           in->x_scn.x_comdat = 0;
 580
 581           goto end;
 582         }
 583       break;
 584     }
 585
 586   in->x_sym.x_tagndx.l = H_GET_32 (abfd, ext->x_sym.x_tagndx);
 587   in->x_sym.x_tvndx = H_GET_16 (abfd, ext->x_sym.x_tvndx);
 588
 589   if (in_class == C_BLOCK || in_class == C_FCN || ISFCN (type)
 590       || ISTAG (in_class))
 591     {
 592       in->x_sym.x_fcnary.x_fcn.x_lnnoptr =
 593         H_GET_32 (abfd, ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
 594       in->x_sym.x_fcnary.x_fcn.x_endndx.l =
 595         H_GET_32 (abfd, ext->x_sym.x_fcnary.x_fcn.x_endndx);
 596     }
 597   else
 598     {
 599       in->x_sym.x_fcnary.x_ary.x_dimen[0] =
 600         H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[0]);
 601       in->x_sym.x_fcnary.x_ary.x_dimen[1] =
 602         H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[1]);
 603       in->x_sym.x_fcnary.x_ary.x_dimen[2] =
 604         H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[2]);
 605       in->x_sym.x_fcnary.x_ary.x_dimen[3] =
 606         H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[3]);
 607     }
 608
 609   if (ISFCN (type))
 610     {
 611       in->x_sym.x_misc.x_fsize = H_GET_32 (abfd, ext->x_sym.x_misc.x_fsize);
 612     }
 613   else
 614     {
 615       in->x_sym.x_misc.x_lnsz.x_lnno =
 616         H_GET_16 (abfd, ext->x_sym.x_misc.x_lnsz.x_lnno);
 617       in->x_sym.x_misc.x_lnsz.x_size =
 618         H_GET_16 (abfd, ext->x_sym.x_misc.x_lnsz.x_size);
 619     }
 620
 621  end: ;
 622   /* The semicolon is because MSVC doesn't like labels at
 623      end of block.  */
 624 }
 625
 626 unsigned int
 627 _bfd_xcoff_swap_aux_out (bfd *abfd, void * inp, int type, int in_class,
 628                          int indx ATTRIBUTE_UNUSED,
 629                          int numaux ATTRIBUTE_UNUSED,
 630                          void * extp)
 631 {
 632   union internal_auxent *in = (union internal_auxent *)inp;
 633   AUXENT *ext = (AUXENT *)extp;
 634
 635   memset (ext, 0, bfd_coff_auxesz (abfd));
 636   switch (in_class)
 637     {
 638     case C_FILE:
 639       if (in->x_file.x_fname[0] == 0)
 640         {
 641           H_PUT_32 (abfd, 0, ext->x_file.x_n.x_n.x_zeroes);
 642           H_PUT_32 (abfd, in->x_file.x_n.x_offset,
 643                     ext->x_file.x_n.x_n.x_offset);
 644         }
 645       else
 646         {
 647           memcpy (ext->x_file.x_n.x_fname, in->x_file.x_fname, FILNMLEN);
 648         }
 649       goto end;
 650
 651       /* RS/6000 "csect" auxents */
 652     case C_EXT:
 653     case C_AIX_WEAKEXT:
 654     case C_HIDEXT:
 655       if (indx + 1 == numaux)
 656         {
 657           H_PUT_32 (abfd, in->x_csect.x_scnlen.l, ext->x_csect.x_scnlen);
 658           H_PUT_32 (abfd, in->x_csect.x_parmhash, ext->x_csect.x_parmhash);
 659           H_PUT_16 (abfd, in->x_csect.x_snhash, ext->x_csect.x_snhash);
 660           /* We don't have to hack bitfields in x_smtyp because it's
 661              defined by shifts-and-ands, which are equivalent on all
 662              byte orders.  */
 663           H_PUT_8 (abfd, in->x_csect.x_smtyp, ext->x_csect.x_smtyp);
 664           H_PUT_8 (abfd, in->x_csect.x_smclas, ext->x_csect.x_smclas);
 665           H_PUT_32 (abfd, in->x_csect.x_stab, ext->x_csect.x_stab);
 666           H_PUT_16 (abfd, in->x_csect.x_snstab, ext->x_csect.x_snstab);
 667           goto end;
 668         }
 669       break;
 670
 671     case C_STAT:
 672     case C_LEAFSTAT:
 673     case C_HIDDEN:
 674       if (type == T_NULL)
 675         {
 676           H_PUT_32 (abfd, in->x_scn.x_scnlen, ext->x_scn.x_scnlen);
 677           H_PUT_16 (abfd, in->x_scn.x_nreloc, ext->x_scn.x_nreloc);
 678           H_PUT_16 (abfd, in->x_scn.x_nlinno, ext->x_scn.x_nlinno);
 679           goto end;
 680         }
 681       break;
 682     }
 683
 684   H_PUT_32 (abfd, in->x_sym.x_tagndx.l, ext->x_sym.x_tagndx);
 685   H_PUT_16 (abfd, in->x_sym.x_tvndx, ext->x_sym.x_tvndx);
 686
 687   if (in_class == C_BLOCK || in_class == C_FCN || ISFCN (type)
 688       || ISTAG (in_class))
 689     {
 690       H_PUT_32 (abfd, in->x_sym.x_fcnary.x_fcn.x_lnnoptr,
 691                 ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
 692       H_PUT_32 (abfd, in->x_sym.x_fcnary.x_fcn.x_endndx.l,
 693                 ext->x_sym.x_fcnary.x_fcn.x_endndx);
 694     }
 695   else
 696     {
 697       H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[0],
 698                 ext->x_sym.x_fcnary.x_ary.x_dimen[0]);
 699       H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[1],
 700                 ext->x_sym.x_fcnary.x_ary.x_dimen[1]);
 701       H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[2],
 702                 ext->x_sym.x_fcnary.x_ary.x_dimen[2]);
 703       H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[3],
 704                 ext->x_sym.x_fcnary.x_ary.x_dimen[3]);
 705     }
 706
 707   if (ISFCN (type))
 708     H_PUT_32 (abfd, in->x_sym.x_misc.x_fsize, ext->x_sym.x_misc.x_fsize);
 709   else
 710     {
 711       H_PUT_16 (abfd, in->x_sym.x_misc.x_lnsz.x_lnno,
 712                 ext->x_sym.x_misc.x_lnsz.x_lnno);
 713       H_PUT_16 (abfd, in->x_sym.x_misc.x_lnsz.x_size,
 714                 ext->x_sym.x_misc.x_lnsz.x_size);
 715     }
 716
 717 end:
 718   return bfd_coff_auxesz (abfd);
 719 }
 720
 721
 722 \f
 723 /* The XCOFF reloc table.  Actually, XCOFF relocations specify the
 724    bitsize and whether they are signed or not, along with a
 725    conventional type.  This table is for the types, which are used for
 726    different algorithms for putting in the reloc.  Many of these
 727    relocs need special_function entries, which I have not written.  */
 728
 729
 730 reloc_howto_type xcoff_howto_table[] =
 731 {
 732   /* Standard 32 bit relocation.  */
 733   HOWTO (R_POS,                 /* type */
 734          0,                     /* rightshift */
 735          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 736          32,                    /* bitsize */
 737          FALSE,                 /* pc_relative */
 738          0,                     /* bitpos */
 739          complain_overflow_bitfield, /* complain_on_overflow */
 740          0,                     /* special_function */
 741          "R_POS",               /* name */
 742          TRUE,                  /* partial_inplace */
 743          0xffffffff,            /* src_mask */
 744          0xffffffff,            /* dst_mask */
 745          FALSE),                /* pcrel_offset */
 746
 747   /* 32 bit relocation, but store negative value.  */
 748   HOWTO (R_NEG,                 /* type */
 749          0,                     /* rightshift */
 750          -2,                    /* size (0 = byte, 1 = short, 2 = long) */
 751          32,                    /* bitsize */
 752          FALSE,                 /* pc_relative */
 753          0,                     /* bitpos */
 754          complain_overflow_bitfield, /* complain_on_overflow */
 755          0,                     /* special_function */
 756          "R_NEG",               /* name */
 757          TRUE,                  /* partial_inplace */
 758          0xffffffff,            /* src_mask */
 759          0xffffffff,            /* dst_mask */
 760          FALSE),                /* pcrel_offset */
 761
 762   /* 32 bit PC relative relocation.  */
 763   HOWTO (R_REL,                 /* type */
 764          0,                     /* rightshift */
 765          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 766          32,                    /* bitsize */
 767          TRUE,                  /* pc_relative */
 768          0,                     /* bitpos */
 769          complain_overflow_signed, /* complain_on_overflow */
 770          0,                     /* special_function */
 771          "R_REL",               /* name */
 772          TRUE,                  /* partial_inplace */
 773          0xffffffff,            /* src_mask */
 774          0xffffffff,            /* dst_mask */
 775          FALSE),                /* pcrel_offset */
 776
 777   /* 16 bit TOC relative relocation.  */
 778   HOWTO (R_TOC,                 /* type */
 779          0,                     /* rightshift */
 780          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 781          16,                    /* bitsize */
 782          FALSE,                 /* pc_relative */
 783          0,                     /* bitpos */
 784          complain_overflow_bitfield, /* complain_on_overflow */
 785          0,                     /* special_function */
 786          "R_TOC",               /* name */
 787          TRUE,                  /* partial_inplace */
 788          0xffff,                /* src_mask */
 789          0xffff,                /* dst_mask */
 790          FALSE),                /* pcrel_offset */
 791
 792   /* I don't really know what this is.  */
 793   HOWTO (R_RTB,                 /* type */
 794          1,                     /* rightshift */
 795          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 796          32,                    /* bitsize */
 797          FALSE,                 /* pc_relative */
 798          0,                     /* bitpos */
 799          complain_overflow_bitfield, /* complain_on_overflow */
 800          0,                     /* special_function */
 801          "R_RTB",               /* name */
 802          TRUE,                  /* partial_inplace */
 803          0xffffffff,            /* src_mask */
 804          0xffffffff,            /* dst_mask */
 805          FALSE),                /* pcrel_offset */
 806
 807   /* External TOC relative symbol.  */
 808   HOWTO (R_GL,                  /* type */
 809          0,                     /* rightshift */
 810          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 811          16,                    /* bitsize */
 812          FALSE,                 /* pc_relative */
 813          0,                     /* bitpos */
 814          complain_overflow_bitfield, /* complain_on_overflow */
 815          0,                     /* special_function */
 816          "R_GL",                /* name */
 817          TRUE,                  /* partial_inplace */
 818          0xffff,                /* src_mask */
 819          0xffff,                /* dst_mask */
 820          FALSE),                /* pcrel_offset */
 821
 822   /* Local TOC relative symbol.  */
 823   HOWTO (R_TCL,                 /* type */
 824          0,                     /* rightshift */
 825          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 826          16,                    /* bitsize */
 827          FALSE,                 /* pc_relative */
 828          0,                     /* bitpos */
 829          complain_overflow_bitfield, /* complain_on_overflow */
 830          0,                     /* special_function */
 831          "R_TCL",               /* name */
 832          TRUE,                  /* partial_inplace */
 833          0xffff,                /* src_mask */
 834          0xffff,                /* dst_mask */
 835          FALSE),                /* pcrel_offset */
 836
 837   EMPTY_HOWTO (7),
 838
 839   /* Non modifiable absolute branch.  */
 840   HOWTO (R_BA,                  /* type */
 841          0,                     /* rightshift */
 842          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 843          26,                    /* bitsize */
 844          FALSE,                 /* pc_relative */
 845          0,                     /* bitpos */
 846          complain_overflow_bitfield, /* complain_on_overflow */
 847          0,                     /* special_function */
 848          "R_BA_26",             /* name */
 849          TRUE,                  /* partial_inplace */
 850          0x03fffffc,            /* src_mask */
 851          0x03fffffc,            /* dst_mask */
 852          FALSE),                /* pcrel_offset */
 853
 854   EMPTY_HOWTO (9),
 855
 856   /* Non modifiable relative branch.  */
 857   HOWTO (R_BR,                  /* type */
 858          0,                     /* rightshift */
 859          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 860          26,                    /* bitsize */
 861          TRUE,                  /* pc_relative */
 862          0,                     /* bitpos */
 863          complain_overflow_signed, /* complain_on_overflow */
 864          0,                     /* special_function */
 865          "R_BR",                /* name */
 866          TRUE,                  /* partial_inplace */
 867          0x03fffffc,            /* src_mask */
 868          0x03fffffc,            /* dst_mask */
 869          FALSE),                /* pcrel_offset */
 870
 871   EMPTY_HOWTO (0xb),
 872
 873   /* Indirect load.  */
 874   HOWTO (R_RL,                  /* type */
 875          0,                     /* rightshift */
 876          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 877          16,                    /* bitsize */
 878          FALSE,                 /* pc_relative */
 879          0,                     /* bitpos */
 880          complain_overflow_bitfield, /* complain_on_overflow */
 881          0,                     /* special_function */
 882          "R_RL",                /* name */
 883          TRUE,                  /* partial_inplace */
 884          0xffff,                /* src_mask */
 885          0xffff,                /* dst_mask */
 886          FALSE),                /* pcrel_offset */
 887
 888   /* Load address.  */
 889   HOWTO (R_RLA,                 /* type */
 890          0,                     /* rightshift */
 891          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 892          16,                    /* bitsize */
 893          FALSE,                 /* pc_relative */
 894          0,                     /* bitpos */
 895          complain_overflow_bitfield, /* complain_on_overflow */
 896          0,                     /* special_function */
 897          "R_RLA",               /* name */
 898          TRUE,                  /* partial_inplace */
 899          0xffff,                /* src_mask */
 900          0xffff,                /* dst_mask */
 901          FALSE),                /* pcrel_offset */
 902
 903   EMPTY_HOWTO (0xe),
 904
 905   /* Non-relocating reference.  Bitsize is 1 so that r_rsize is 0.  */
 906   HOWTO (R_REF,                 /* type */
 907          0,                     /* rightshift */
 908          0,                     /* size (0 = byte, 1 = short, 2 = long) */
 909          1,                     /* bitsize */
 910          FALSE,                 /* pc_relative */
 911          0,                     /* bitpos */
 912          complain_overflow_dont, /* complain_on_overflow */
 913          0,                     /* special_function */
 914          "R_REF",               /* name */
 915          FALSE,                 /* partial_inplace */
 916          0,                     /* src_mask */
 917          0,                     /* dst_mask */
 918          FALSE),                /* pcrel_offset */
 919
 920   EMPTY_HOWTO (0x10),
 921   EMPTY_HOWTO (0x11),
 922
 923   /* TOC relative indirect load.  */
 924   HOWTO (R_TRL,                 /* type */
 925          0,                     /* rightshift */
 926          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 927          16,                    /* bitsize */
 928          FALSE,                 /* pc_relative */
 929          0,                     /* bitpos */
 930          complain_overflow_bitfield, /* complain_on_overflow */
 931          0,                     /* special_function */
 932          "R_TRL",               /* name */
 933          TRUE,                  /* partial_inplace */
 934          0xffff,                /* src_mask */
 935          0xffff,                /* dst_mask */
 936          FALSE),                /* pcrel_offset */
 937
 938   /* TOC relative load address.  */
 939   HOWTO (R_TRLA,                /* type */
 940          0,                     /* rightshift */
 941          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 942          16,                    /* bitsize */
 943          FALSE,                 /* pc_relative */
 944          0,                     /* bitpos */
 945          complain_overflow_bitfield, /* complain_on_overflow */
 946          0,                     /* special_function */
 947          "R_TRLA",              /* name */
 948          TRUE,                  /* partial_inplace */
 949          0xffff,                /* src_mask */
 950          0xffff,                /* dst_mask */
 951          FALSE),                /* pcrel_offset */
 952
 953   /* Modifiable relative branch.  */
 954   HOWTO (R_RRTBI,                /* type */
 955          1,                     /* rightshift */
 956          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 957          32,                    /* bitsize */
 958          FALSE,                 /* pc_relative */
 959          0,                     /* bitpos */
 960          complain_overflow_bitfield, /* complain_on_overflow */
 961          0,                     /* special_function */
 962          "R_RRTBI",             /* name */
 963          TRUE,                  /* partial_inplace */
 964          0xffffffff,            /* src_mask */
 965          0xffffffff,            /* dst_mask */
 966          FALSE),                /* pcrel_offset */
 967
 968   /* Modifiable absolute branch.  */
 969   HOWTO (R_RRTBA,                /* type */
 970          1,                     /* rightshift */
 971          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 972          32,                    /* bitsize */
 973          FALSE,                 /* pc_relative */
 974          0,                     /* bitpos */
 975          complain_overflow_bitfield, /* complain_on_overflow */
 976          0,                     /* special_function */
 977          "R_RRTBA",             /* name */
 978          TRUE,                  /* partial_inplace */
 979          0xffffffff,            /* src_mask */
 980          0xffffffff,            /* dst_mask */
 981          FALSE),                /* pcrel_offset */
 982
 983   /* Modifiable call absolute indirect.  */
 984   HOWTO (R_CAI,                 /* type */
 985          0,                     /* rightshift */
 986          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 987          16,                    /* bitsize */
 988          FALSE,                 /* pc_relative */
 989          0,                     /* bitpos */
 990          complain_overflow_bitfield, /* complain_on_overflow */
 991          0,                     /* special_function */
 992          "R_CAI",               /* name */
 993          TRUE,                  /* partial_inplace */
 994          0xffff,                /* src_mask */
 995          0xffff,                /* dst_mask */
 996          FALSE),                /* pcrel_offset */
 997
 998   /* Modifiable call relative.  */
 999   HOWTO (R_CREL,                /* type */
1000          0,                     /* rightshift */
1001          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1002          16,                    /* bitsize */
1003          FALSE,                 /* pc_relative */
1004          0,                     /* bitpos */
1005          complain_overflow_bitfield, /* complain_on_overflow */
1006          0,                     /* special_function */
1007          "R_CREL",              /* name */
1008          TRUE,                  /* partial_inplace */
1009          0xffff,                /* src_mask */
1010          0xffff,                /* dst_mask */
1011          FALSE),                /* pcrel_offset */
1012
1013   /* Modifiable branch absolute.  */
1014   HOWTO (R_RBA,                 /* type */
1015          0,                     /* rightshift */
1016          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1017          26,                    /* bitsize */
1018          FALSE,                 /* pc_relative */
1019          0,                     /* bitpos */
1020          complain_overflow_bitfield, /* complain_on_overflow */
1021          0,                     /* special_function */
1022          "R_RBA",               /* name */
1023          TRUE,                  /* partial_inplace */
1024          0x03fffffc,            /* src_mask */
1025          0x03fffffc,            /* dst_mask */
1026          FALSE),                /* pcrel_offset */
1027
1028   /* Modifiable branch absolute.  */
1029   HOWTO (R_RBAC,                /* type */
1030          0,                     /* rightshift */
1031          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1032          32,                    /* bitsize */
1033          FALSE,                 /* pc_relative */
1034          0,                     /* bitpos */
1035          complain_overflow_bitfield, /* complain_on_overflow */
1036          0,                     /* special_function */
1037          "R_RBAC",              /* name */
1038          TRUE,                  /* partial_inplace */
1039          0xffffffff,            /* src_mask */
1040          0xffffffff,            /* dst_mask */
1041          FALSE),                /* pcrel_offset */
1042
1043   /* Modifiable branch relative.  */
1044   HOWTO (R_RBR,                 /* type */
1045          0,                     /* rightshift */
1046          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1047          26,                    /* bitsize */
1048          FALSE,                 /* pc_relative */
1049          0,                     /* bitpos */
1050          complain_overflow_signed, /* complain_on_overflow */
1051          0,                     /* special_function */
1052          "R_RBR_26",            /* name */
1053          TRUE,                  /* partial_inplace */
1054          0x03fffffc,            /* src_mask */
1055          0x03fffffc,            /* dst_mask */
1056          FALSE),                /* pcrel_offset */
1057
1058   /* Modifiable branch absolute.  */
1059   HOWTO (R_RBRC,                /* type */
1060          0,                     /* rightshift */
1061          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1062          16,                    /* bitsize */
1063          FALSE,                 /* pc_relative */
1064          0,                     /* bitpos */
1065          complain_overflow_bitfield, /* complain_on_overflow */
1066          0,                     /* special_function */
1067          "R_RBRC",              /* name */
1068          TRUE,                  /* partial_inplace */
1069          0xffff,                /* src_mask */
1070          0xffff,                /* dst_mask */
1071          FALSE),                /* pcrel_offset */
1072
1073   /* 16 bit Non modifiable absolute branch.  */
1074   HOWTO (R_BA,                  /* type */
1075          0,                     /* rightshift */
1076          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1077          16,                    /* bitsize */
1078          FALSE,                 /* pc_relative */
1079          0,                     /* bitpos */
1080          complain_overflow_bitfield, /* complain_on_overflow */
1081          0,                     /* special_function */
1082          "R_BA_16",             /* name */
1083          TRUE,                  /* partial_inplace */
1084          0xfffc,                /* src_mask */
1085          0xfffc,                /* dst_mask */
1086          FALSE),                /* pcrel_offset */
1087
1088   /* Modifiable branch relative.  */
1089   HOWTO (R_RBR,                 /* type */
1090          0,                     /* rightshift */
1091          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1092          16,                    /* bitsize */
1093          FALSE,                 /* pc_relative */
1094          0,                     /* bitpos */
1095          complain_overflow_signed, /* complain_on_overflow */
1096          0,                     /* special_function */
1097          "R_RBR_16",            /* name */
1098          TRUE,                  /* partial_inplace */
1099          0xffff,                /* src_mask */
1100          0xffff,                /* dst_mask */
1101          FALSE),                /* pcrel_offset */
1102
1103   /* Modifiable branch relative.  */
1104   HOWTO (R_RBA,                 /* type */
1105          0,                     /* rightshift */
1106          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1107          16,                    /* bitsize */
1108          FALSE,                 /* pc_relative */
1109          0,                     /* bitpos */
1110          complain_overflow_signed, /* complain_on_overflow */
1111          0,                     /* special_function */
1112          "R_RBA_16",            /* name */
1113          TRUE,                  /* partial_inplace */
1114          0xffff,                /* src_mask */
1115          0xffff,                /* dst_mask */
1116          FALSE),                /* pcrel_offset */
1117 };
1118
1119 void
1120 xcoff_rtype2howto (arelent *relent, struct internal_reloc *internal)
1121 {
1122   if (internal->r_type > R_RBRC)
1123     abort ();
1124
1125   /* Default howto layout works most of the time */
1126   relent->howto = &xcoff_howto_table[internal->r_type];
1127
1128   /* Special case some 16 bit reloc */
1129   if (15 == (internal->r_size & 0x1f))
1130     {
1131       if (R_BA == internal->r_type)
1132         relent->howto = &xcoff_howto_table[0x1c];
1133       else if (R_RBR == internal->r_type)
1134         relent->howto = &xcoff_howto_table[0x1d];
1135       else if (R_RBA == internal->r_type)
1136         relent->howto = &xcoff_howto_table[0x1e];
1137     }
1138
1139   /* The r_size field of an XCOFF reloc encodes the bitsize of the
1140      relocation, as well as indicating whether it is signed or not.
1141      Doublecheck that the relocation information gathered from the
1142      type matches this information.  The bitsize is not significant
1143      for R_REF relocs.  */
1144   if (relent->howto->dst_mask != 0
1145       && (relent->howto->bitsize
1146           != ((unsigned int) internal->r_size & 0x1f) + 1))
1147     abort ();
1148 }
1149
1150 reloc_howto_type *
1151 _bfd_xcoff_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1152                               bfd_reloc_code_real_type code)
1153 {
1154   switch (code)
1155     {
1156     case BFD_RELOC_PPC_B26:
1157       return &xcoff_howto_table[0xa];
1158     case BFD_RELOC_PPC_BA16:
1159       return &xcoff_howto_table[0x1c];
1160     case BFD_RELOC_PPC_BA26:
1161       return &xcoff_howto_table[8];
1162     case BFD_RELOC_PPC_TOC16:
1163       return &xcoff_howto_table[3];
1164     case BFD_RELOC_16:
1165       /* Note that this relocation is only internally used by gas.  */
1166       return &xcoff_howto_table[0xc];
1167     case BFD_RELOC_32:
1168     case BFD_RELOC_CTOR:
1169       return &xcoff_howto_table[0];
1170     case BFD_RELOC_NONE:
1171       return &xcoff_howto_table[0xf];
1172     default:
1173       return NULL;
1174     }
1175 }
1176
1177 static reloc_howto_type *
1178 _bfd_xcoff_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1179                               const char *r_name)
1180 {
1181   unsigned int i;
1182
1183   for (i = 0;
1184        i < sizeof (xcoff_howto_table) / sizeof (xcoff_howto_table[0]);
1185        i++)
1186     if (xcoff_howto_table[i].name != NULL
1187         && strcasecmp (xcoff_howto_table[i].name, r_name) == 0)
1188       return &xcoff_howto_table[i];
1189
1190   return NULL;
1191 }
1192 \f
1193 /* XCOFF archive support.  The original version of this code was by
1194    Damon A. Permezel.  It was enhanced to permit cross support, and
1195    writing archive files, by Ian Lance Taylor, Cygnus Support.
1196
1197    XCOFF uses its own archive format.  Everything is hooked together
1198    with file offset links, so it is possible to rapidly update an
1199    archive in place.  Of course, we don't do that.  An XCOFF archive
1200    has a real file header, not just an ARMAG string.  The structure of
1201    the file header and of each archive header appear below.
1202
1203    An XCOFF archive also has a member table, which is a list of
1204    elements in the archive (you can get that by looking through the
1205    linked list, but you have to read a lot more of the file).  The
1206    member table has a normal archive header with an empty name.  It is
1207    normally (and perhaps must be) the second to last entry in the
1208    archive.  The member table data is almost printable ASCII.  It
1209    starts with a 12 character decimal string which is the number of
1210    entries in the table.  For each entry it has a 12 character decimal
1211    string which is the offset in the archive of that member.  These
1212    entries are followed by a series of null terminated strings which
1213    are the member names for each entry.
1214
1215    Finally, an XCOFF archive has a global symbol table, which is what
1216    we call the armap.  The global symbol table has a normal archive
1217    header with an empty name.  It is normally (and perhaps must be)
1218    the last entry in the archive.  The contents start with a four byte
1219    binary number which is the number of entries.  This is followed by
1220    a that many four byte binary numbers; each is the file offset of an
1221    entry in the archive.  These numbers are followed by a series of
1222    null terminated strings, which are symbol names.
1223
1224    AIX 4.3 introduced a new archive format which can handle larger
1225    files and also 32- and 64-bit objects in the same archive.  The
1226    things said above remain true except that there is now more than
1227    one global symbol table.  The one is used to index 32-bit objects,
1228    the other for 64-bit objects.
1229
1230    The new archives (recognizable by the new ARMAG string) has larger
1231    field lengths so that we cannot really share any code.  Also we have
1232    to take care that we are not generating the new form of archives
1233    on AIX 4.2 or earlier systems.  */
1234
1235 /* XCOFF archives use this as a magic string.  Note that both strings
1236    have the same length.  */
1237
1238 /* Set the magic for archive.  */
1239
1240 bfd_boolean
1241 bfd_xcoff_ar_archive_set_magic (bfd *abfd ATTRIBUTE_UNUSED,
1242                                 char *magic ATTRIBUTE_UNUSED)
1243 {
1244   /* Not supported yet.  */
1245   return FALSE;
1246  /* bfd_xcoff_archive_set_magic (abfd, magic); */
1247 }
1248
1249 /* Read in the armap of an XCOFF archive.  */
1250
1251 bfd_boolean
1252 _bfd_xcoff_slurp_armap (bfd *abfd)
1253 {
1254   file_ptr off;
1255   size_t namlen;
1256   bfd_size_type sz;
1257   bfd_byte *contents, *cend;
1258   bfd_vma c, i;
1259   carsym *arsym;
1260   bfd_byte *p;
1261
1262   if (xcoff_ardata (abfd) == NULL)
1263     {
1264       bfd_has_map (abfd) = FALSE;
1265       return TRUE;
1266     }
1267
1268   if (! xcoff_big_format_p (abfd))
1269     {
1270       /* This is for the old format.  */
1271       struct xcoff_ar_hdr hdr;
1272
1273       off = strtol (xcoff_ardata (abfd)->symoff, (char **) NULL, 10);
1274       if (off == 0)
1275         {
1276           bfd_has_map (abfd) = FALSE;
1277           return TRUE;
1278         }
1279
1280       if (bfd_seek (abfd, off, SEEK_SET) != 0)
1281         return FALSE;
1282
1283       /* The symbol table starts with a normal archive header.  */
1284       if (bfd_bread (&hdr, (bfd_size_type) SIZEOF_AR_HDR, abfd)
1285           != SIZEOF_AR_HDR)
1286         return FALSE;
1287
1288       /* Skip the name (normally empty).  */
1289       namlen = strtol (hdr.namlen, (char **) NULL, 10);
1290       off = ((namlen + 1) & ~ (size_t) 1) + SXCOFFARFMAG;
1291       if (bfd_seek (abfd, off, SEEK_CUR) != 0)
1292         return FALSE;
1293
1294       sz = strtol (hdr.size, (char **) NULL, 10);
1295
1296       /* Read in the entire symbol table.  */
1297       contents = (bfd_byte *) bfd_alloc (abfd, sz);
1298       if (contents == NULL)
1299         return FALSE;
1300       if (bfd_bread (contents, sz, abfd) != sz)
1301         return FALSE;
1302
1303       /* The symbol table starts with a four byte count.  */
1304       c = H_GET_32 (abfd, contents);
1305
1306       if (c * 4 >= sz)
1307         {
1308           bfd_set_error (bfd_error_bad_value);
1309           return FALSE;
1310         }
1311
1312       bfd_ardata (abfd)->symdefs =
1313         ((carsym *) bfd_alloc (abfd, c * sizeof (carsym)));
1314       if (bfd_ardata (abfd)->symdefs == NULL)
1315         return FALSE;
1316
1317       /* After the count comes a list of four byte file offsets.  */
1318       for (i = 0, arsym = bfd_ardata (abfd)->symdefs, p = contents + 4;
1319            i < c;
1320            ++i, ++arsym, p += 4)
1321         arsym->file_offset = H_GET_32 (abfd, p);
1322     }
1323   else
1324     {
1325       /* This is for the new format.  */
1326       struct xcoff_ar_hdr_big hdr;
1327
1328       off = strtol (xcoff_ardata_big (abfd)->symoff, (char **) NULL, 10);
1329       if (off == 0)
1330         {
1331           bfd_has_map (abfd) = FALSE;
1332           return TRUE;
1333         }
1334
1335       if (bfd_seek (abfd, off, SEEK_SET) != 0)
1336         return FALSE;
1337
1338       /* The symbol table starts with a normal archive header.  */
1339       if (bfd_bread (&hdr, (bfd_size_type) SIZEOF_AR_HDR_BIG, abfd)
1340           != SIZEOF_AR_HDR_BIG)
1341         return FALSE;
1342
1343       /* Skip the name (normally empty).  */
1344       namlen = strtol (hdr.namlen, (char **) NULL, 10);
1345       off = ((namlen + 1) & ~ (size_t) 1) + SXCOFFARFMAG;
1346       if (bfd_seek (abfd, off, SEEK_CUR) != 0)
1347         return FALSE;
1348
1349       /* XXX This actually has to be a call to strtoll (at least on 32-bit
1350          machines) since the field width is 20 and there numbers with more
1351          than 32 bits can be represented.  */
1352       sz = strtol (hdr.size, (char **) NULL, 10);
1353
1354       /* Read in the entire symbol table.  */
1355       contents = (bfd_byte *) bfd_alloc (abfd, sz);
1356       if (contents == NULL)
1357         return FALSE;
1358       if (bfd_bread (contents, sz, abfd) != sz)
1359         return FALSE;
1360
1361       /* The symbol table starts with an eight byte count.  */
1362       c = H_GET_64 (abfd, contents);
1363
1364       if (c * 8 >= sz)
1365         {
1366           bfd_set_error (bfd_error_bad_value);
1367           return FALSE;
1368         }
1369
1370       bfd_ardata (abfd)->symdefs =
1371         ((carsym *) bfd_alloc (abfd, c * sizeof (carsym)));
1372       if (bfd_ardata (abfd)->symdefs == NULL)
1373         return FALSE;
1374
1375       /* After the count comes a list of eight byte file offsets.  */
1376       for (i = 0, arsym = bfd_ardata (abfd)->symdefs, p = contents + 8;
1377            i < c;
1378            ++i, ++arsym, p += 8)
1379         arsym->file_offset = H_GET_64 (abfd, p);
1380     }
1381
1382   /* After the file offsets come null terminated symbol names.  */
1383   cend = contents + sz;
1384   for (i = 0, arsym = bfd_ardata (abfd)->symdefs;
1385        i < c;
1386        ++i, ++arsym, p += strlen ((char *) p) + 1)
1387     {
1388       if (p >= cend)
1389         {
1390           bfd_set_error (bfd_error_bad_value);
1391           return FALSE;
1392         }
1393       arsym->name = (char *) p;
1394     }
1395
1396   bfd_ardata (abfd)->symdef_count = c;
1397   bfd_has_map (abfd) = TRUE;
1398
1399   return TRUE;
1400 }
1401
1402 /* See if this is an XCOFF archive.  */
1403
1404 const bfd_target *
1405 _bfd_xcoff_archive_p (bfd *abfd)
1406 {
1407   struct artdata *tdata_hold;
1408   char magic[SXCOFFARMAG];
1409   bfd_size_type amt = SXCOFFARMAG;
1410
1411   if (bfd_bread (magic, amt, abfd) != amt)
1412     {
1413       if (bfd_get_error () != bfd_error_system_call)
1414         bfd_set_error (bfd_error_wrong_format);
1415       return NULL;
1416     }
1417
1418   if (strncmp (magic, XCOFFARMAG, SXCOFFARMAG) != 0
1419       && strncmp (magic, XCOFFARMAGBIG, SXCOFFARMAG) != 0)
1420     {
1421       bfd_set_error (bfd_error_wrong_format);
1422       return NULL;
1423     }
1424
1425   tdata_hold = bfd_ardata (abfd);
1426
1427   amt = sizeof (struct artdata);
1428   bfd_ardata (abfd) = (struct artdata *) bfd_zalloc (abfd, amt);
1429   if (bfd_ardata (abfd) == (struct artdata *) NULL)
1430     goto error_ret_restore;
1431
1432   /* Cleared by bfd_zalloc above.
1433      bfd_ardata (abfd)->cache = NULL;
1434      bfd_ardata (abfd)->archive_head = NULL;
1435      bfd_ardata (abfd)->symdefs = NULL;
1436      bfd_ardata (abfd)->extended_names = NULL;
1437      bfd_ardata (abfd)->extended_names_size = 0;  */
1438
1439   /* Now handle the two formats.  */
1440   if (magic[1] != 'b')
1441     {
1442       /* This is the old format.  */
1443       struct xcoff_ar_file_hdr hdr;
1444
1445       /* Copy over the magic string.  */
1446       memcpy (hdr.magic, magic, SXCOFFARMAG);
1447
1448       /* Now read the rest of the file header.  */
1449       amt = SIZEOF_AR_FILE_HDR - SXCOFFARMAG;
1450       if (bfd_bread (&hdr.memoff, amt, abfd) != amt)
1451         {
1452           if (bfd_get_error () != bfd_error_system_call)
1453             bfd_set_error (bfd_error_wrong_format);
1454           goto error_ret;
1455         }
1456
1457       bfd_ardata (abfd)->first_file_filepos = strtol (hdr.firstmemoff,
1458                                                       (char **) NULL, 10);
1459
1460       amt = SIZEOF_AR_FILE_HDR;
1461       bfd_ardata (abfd)->tdata = bfd_zalloc (abfd, amt);
1462       if (bfd_ardata (abfd)->tdata == NULL)
1463         goto error_ret;
1464
1465       memcpy (bfd_ardata (abfd)->tdata, &hdr, SIZEOF_AR_FILE_HDR);
1466     }
1467   else
1468     {
1469       /* This is the new format.  */
1470       struct xcoff_ar_file_hdr_big hdr;
1471
1472       /* Copy over the magic string.  */
1473       memcpy (hdr.magic, magic, SXCOFFARMAG);
1474
1475       /* Now read the rest of the file header.  */
1476       amt = SIZEOF_AR_FILE_HDR_BIG - SXCOFFARMAG;
1477       if (bfd_bread (&hdr.memoff, amt, abfd) != amt)
1478         {
1479           if (bfd_get_error () != bfd_error_system_call)
1480             bfd_set_error (bfd_error_wrong_format);
1481           goto error_ret;
1482         }
1483
1484       bfd_ardata (abfd)->first_file_filepos = bfd_scan_vma (hdr.firstmemoff,
1485                                                             (const char **) 0,
1486                                                             10);
1487
1488       amt = SIZEOF_AR_FILE_HDR_BIG;
1489       bfd_ardata (abfd)->tdata = bfd_zalloc (abfd, amt);
1490       if (bfd_ardata (abfd)->tdata == NULL)
1491         goto error_ret;
1492
1493       memcpy (bfd_ardata (abfd)->tdata, &hdr, SIZEOF_AR_FILE_HDR_BIG);
1494     }
1495
1496   if (! _bfd_xcoff_slurp_armap (abfd))
1497     {
1498     error_ret:
1499       bfd_release (abfd, bfd_ardata (abfd));
1500     error_ret_restore:
1501       bfd_ardata (abfd) = tdata_hold;
1502       return NULL;
1503     }
1504
1505   return abfd->xvec;
1506 }
1507
1508 /* Read the archive header in an XCOFF archive.  */
1509
1510 void *
1511 _bfd_xcoff_read_ar_hdr (bfd *abfd)
1512 {
1513   bfd_size_type namlen;
1514   struct areltdata *ret;
1515   bfd_size_type amt = sizeof (struct areltdata);
1516
1517   ret = (struct areltdata *) bfd_zmalloc (amt);
1518   if (ret == NULL)
1519     return NULL;
1520
1521   if (! xcoff_big_format_p (abfd))
1522     {
1523       struct xcoff_ar_hdr hdr;
1524       struct xcoff_ar_hdr *hdrp;
1525
1526       if (bfd_bread (&hdr, (bfd_size_type) SIZEOF_AR_HDR, abfd)
1527           != SIZEOF_AR_HDR)
1528         {
1529           free (ret);
1530           return NULL;
1531         }
1532
1533       namlen = strtol (hdr.namlen, (char **) NULL, 10);
1534       amt = SIZEOF_AR_HDR + namlen + 1;
1535       hdrp = (struct xcoff_ar_hdr *) bfd_alloc (abfd, amt);
1536       if (hdrp == NULL)
1537         {
1538           free (ret);
1539           return NULL;
1540         }
1541       memcpy (hdrp, &hdr, SIZEOF_AR_HDR);
1542       if (bfd_bread ((char *) hdrp + SIZEOF_AR_HDR, namlen, abfd) != namlen)
1543         {
1544           free (ret);
1545           return NULL;
1546         }
1547       ((char *) hdrp)[SIZEOF_AR_HDR + namlen] = '\0';
1548
1549       ret->arch_header = (char *) hdrp;
1550       ret->parsed_size = strtol (hdr.size, (char **) NULL, 10);
1551       ret->filename = (char *) hdrp + SIZEOF_AR_HDR;
1552     }
1553   else
1554     {
1555       struct xcoff_ar_hdr_big hdr;
1556       struct xcoff_ar_hdr_big *hdrp;
1557
1558       if (bfd_bread (&hdr, (bfd_size_type) SIZEOF_AR_HDR_BIG, abfd)
1559           != SIZEOF_AR_HDR_BIG)
1560         {
1561           free (ret);
1562           return NULL;
1563         }
1564
1565       namlen = strtol (hdr.namlen, (char **) NULL, 10);
1566       amt = SIZEOF_AR_HDR_BIG + namlen + 1;
1567       hdrp = (struct xcoff_ar_hdr_big *) bfd_alloc (abfd, amt);
1568       if (hdrp == NULL)
1569         {
1570           free (ret);
1571           return NULL;
1572         }
1573       memcpy (hdrp, &hdr, SIZEOF_AR_HDR_BIG);
1574       if (bfd_bread ((char *) hdrp + SIZEOF_AR_HDR_BIG, namlen, abfd) != namlen)
1575         {
1576           free (ret);
1577           return NULL;
1578         }
1579       ((char *) hdrp)[SIZEOF_AR_HDR_BIG + namlen] = '\0';
1580
1581       ret->arch_header = (char *) hdrp;
1582       /* XXX This actually has to be a call to strtoll (at least on 32-bit
1583          machines) since the field width is 20 and there numbers with more
1584          than 32 bits can be represented.  */
1585       ret->parsed_size = strtol (hdr.size, (char **) NULL, 10);
1586       ret->filename = (char *) hdrp + SIZEOF_AR_HDR_BIG;
1587     }
1588
1589   /* Skip over the XCOFFARFMAG at the end of the file name.  */
1590   if (bfd_seek (abfd, (file_ptr) ((namlen & 1) + SXCOFFARFMAG), SEEK_CUR) != 0)
1591     return NULL;
1592
1593   return ret;
1594 }
1595
1596 /* Open the next element in an XCOFF archive.  */
1597
1598 bfd *
1599 _bfd_xcoff_openr_next_archived_file (bfd *archive, bfd *last_file)
1600 {
1601   file_ptr filestart;
1602
1603   if (xcoff_ardata (archive) == NULL)
1604     {
1605       bfd_set_error (bfd_error_invalid_operation);
1606       return NULL;
1607     }
1608
1609   if (! xcoff_big_format_p (archive))
1610     {
1611       if (last_file == NULL)
1612         filestart = bfd_ardata (archive)->first_file_filepos;
1613       else
1614         filestart = strtol (arch_xhdr (last_file)->nextoff, (char **) NULL,
1615                             10);
1616
1617       if (filestart == 0
1618           || filestart == strtol (xcoff_ardata (archive)->memoff,
1619                                   (char **) NULL, 10)
1620           || filestart == strtol (xcoff_ardata (archive)->symoff,
1621                                   (char **) NULL, 10))
1622         {
1623           bfd_set_error (bfd_error_no_more_archived_files);
1624           return NULL;
1625         }
1626     }
1627   else
1628     {
1629       if (last_file == NULL)
1630         filestart = bfd_ardata (archive)->first_file_filepos;
1631       else
1632         /* XXX These actually have to be a calls to strtoll (at least
1633            on 32-bit machines) since the fields's width is 20 and
1634            there numbers with more than 32 bits can be represented.  */
1635         filestart = strtol (arch_xhdr_big (last_file)->nextoff, (char **) NULL,
1636                             10);
1637
1638       /* XXX These actually have to be calls to strtoll (at least on 32-bit
1639          machines) since the fields's width is 20 and there numbers with more
1640          than 32 bits can be represented.  */
1641       if (filestart == 0
1642           || filestart == strtol (xcoff_ardata_big (archive)->memoff,
1643                                   (char **) NULL, 10)
1644           || filestart == strtol (xcoff_ardata_big (archive)->symoff,
1645                                   (char **) NULL, 10))
1646         {
1647           bfd_set_error (bfd_error_no_more_archived_files);
1648           return NULL;
1649         }
1650     }
1651
1652   return _bfd_get_elt_at_filepos (archive, filestart);
1653 }
1654
1655 /* Stat an element in an XCOFF archive.  */
1656
1657 int
1658 _bfd_xcoff_stat_arch_elt (bfd *abfd, struct stat *s)
1659 {
1660   if (abfd->arelt_data == NULL)
1661     {
1662       bfd_set_error (bfd_error_invalid_operation);
1663       return -1;
1664     }
1665
1666   if (! xcoff_big_format_p (abfd->my_archive))
1667     {
1668       struct xcoff_ar_hdr *hdrp = arch_xhdr (abfd);
1669
1670       s->st_mtime = strtol (hdrp->date, (char **) NULL, 10);
1671       s->st_uid = strtol (hdrp->uid, (char **) NULL, 10);
1672       s->st_gid = strtol (hdrp->gid, (char **) NULL, 10);
1673       s->st_mode = strtol (hdrp->mode, (char **) NULL, 8);
1674       s->st_size = arch_eltdata (abfd)->parsed_size;
1675     }
1676   else
1677     {
1678       struct xcoff_ar_hdr_big *hdrp = arch_xhdr_big (abfd);
1679
1680       s->st_mtime = strtol (hdrp->date, (char **) NULL, 10);
1681       s->st_uid = strtol (hdrp->uid, (char **) NULL, 10);
1682       s->st_gid = strtol (hdrp->gid, (char **) NULL, 10);
1683       s->st_mode = strtol (hdrp->mode, (char **) NULL, 8);
1684       s->st_size = arch_eltdata (abfd)->parsed_size;
1685     }
1686
1687   return 0;
1688 }
1689
1690 /* Normalize a file name for inclusion in an archive.  */
1691
1692 static const char *
1693 normalize_filename (bfd *abfd)
1694 {
1695   const char *file;
1696   const char *filename;
1697
1698   file = bfd_get_filename (abfd);
1699   filename = strrchr (file, '/');
1700   if (filename != NULL)
1701     filename++;
1702   else
1703     filename = file;
1704   return filename;
1705 }
1706
1707 /* Write out an XCOFF armap.  */
1708
1709 static bfd_boolean
1710 xcoff_write_armap_old (bfd *abfd, unsigned int elength ATTRIBUTE_UNUSED,
1711                        struct orl *map, unsigned int orl_count, int stridx)
1712 {
1713   struct archive_iterator iterator;
1714   struct xcoff_ar_hdr hdr;
1715   char *p;
1716   unsigned char buf[4];
1717   unsigned int i;
1718
1719   memset (&hdr, 0, sizeof hdr);
1720   sprintf (hdr.size, "%ld", (long) (4 + orl_count * 4 + stridx));
1721   sprintf (hdr.nextoff, "%d", 0);
1722   memcpy (hdr.prevoff, xcoff_ardata (abfd)->memoff, XCOFFARMAG_ELEMENT_SIZE);
1723   sprintf (hdr.date, "%d", 0);
1724   sprintf (hdr.uid, "%d", 0);
1725   sprintf (hdr.gid, "%d", 0);
1726   sprintf (hdr.mode, "%d", 0);
1727   sprintf (hdr.namlen, "%d", 0);
1728
1729   /* We need spaces, not null bytes, in the header.  */
1730   for (p = (char *) &hdr; p < (char *) &hdr + SIZEOF_AR_HDR; p++)
1731     if (*p == '\0')
1732       *p = ' ';
1733
1734   if (bfd_bwrite (&hdr, (bfd_size_type) SIZEOF_AR_HDR, abfd)
1735       != SIZEOF_AR_HDR
1736       || (bfd_bwrite (XCOFFARFMAG, (bfd_size_type) SXCOFFARFMAG, abfd)
1737           != SXCOFFARFMAG))
1738     return FALSE;
1739
1740   H_PUT_32 (abfd, orl_count, buf);
1741   if (bfd_bwrite (buf, (bfd_size_type) 4, abfd) != 4)
1742     return FALSE;
1743
1744   i = 0;
1745   archive_iterator_begin (&iterator, abfd);
1746   while (i < orl_count && archive_iterator_next (&iterator))
1747     while (map[i].u.abfd == iterator.current.member)
1748       {
1749         H_PUT_32 (abfd, iterator.current.offset, buf);
1750         if (bfd_bwrite (buf, (bfd_size_type) 4, abfd) != 4)
1751           return FALSE;
1752         ++i;
1753       }
1754
1755   for (i = 0; i < orl_count; i++)
1756     {
1757       const char *name;
1758       size_t namlen;
1759
1760       name = *map[i].name;
1761       namlen = strlen (name);
1762       if (bfd_bwrite (name, (bfd_size_type) (namlen + 1), abfd) != namlen + 1)
1763         return FALSE;
1764     }
1765
1766   if ((stridx & 1) != 0)
1767     {
1768       char b;
1769
1770       b = '\0';
1771       if (bfd_bwrite (&b, (bfd_size_type) 1, abfd) != 1)
1772         return FALSE;
1773     }
1774
1775   return TRUE;
1776 }
1777
1778 static char buff20[XCOFFARMAGBIG_ELEMENT_SIZE + 1];
1779 #define FMT20  "%-20lld"
1780 #define FMT12  "%-12d"
1781 #define FMT12_OCTAL  "%-12o"
1782 #define FMT4  "%-4d"
1783 #define PRINT20(d, v) \
1784   sprintf (buff20, FMT20, (long long)(v)), \
1785   memcpy ((void *) (d), buff20, 20)
1786
1787 #define PRINT12(d, v) \
1788   sprintf (buff20, FMT12, (int)(v)), \
1789   memcpy ((void *) (d), buff20, 12)
1790
1791 #define PRINT12_OCTAL(d, v) \
1792   sprintf (buff20, FMT12_OCTAL, (unsigned int)(v)), \
1793   memcpy ((void *) (d), buff20, 12)
1794
1795 #define PRINT4(d, v) \
1796   sprintf (buff20, FMT4, (int)(v)), \
1797   memcpy ((void *) (d), buff20, 4)
1798
1799 #define READ20(d, v) \
1800   buff20[20] = 0, \
1801   memcpy (buff20, (d), 20), \
1802   (v) = bfd_scan_vma (buff20, (const char **) NULL, 10)
1803
1804 static bfd_boolean
1805 do_pad (bfd *abfd, unsigned int number)
1806 {
1807   bfd_byte b = 0;
1808
1809   /* Limit pad to <= 4096.  */
1810   if (number > 4096)
1811     return FALSE;
1812
1813   while (number--)
1814     if (bfd_bwrite (&b, (bfd_size_type) 1, abfd) != 1)
1815       return FALSE;
1816
1817   return TRUE;
1818 }
1819
1820 static bfd_boolean
1821 do_copy (bfd *out_bfd, bfd *in_bfd)
1822 {
1823   bfd_size_type remaining;
1824   bfd_byte buffer[DEFAULT_BUFFERSIZE];
1825
1826   if (bfd_seek (in_bfd, (file_ptr) 0, SEEK_SET) != 0)
1827     return FALSE;
1828
1829   remaining = arelt_size (in_bfd);
1830
1831   while (remaining >= DEFAULT_BUFFERSIZE)
1832     {
1833       if (bfd_bread (buffer, DEFAULT_BUFFERSIZE, in_bfd) != DEFAULT_BUFFERSIZE
1834           || bfd_bwrite (buffer, DEFAULT_BUFFERSIZE, out_bfd) != DEFAULT_BUFFERSIZE)
1835         return FALSE;
1836
1837       remaining -= DEFAULT_BUFFERSIZE;
1838     }
1839
1840   if (remaining)
1841     {
1842       if (bfd_bread (buffer, remaining, in_bfd) != remaining
1843           || bfd_bwrite (buffer, remaining, out_bfd) != remaining)
1844         return FALSE;
1845     }
1846
1847   return TRUE;
1848 }
1849
1850 static bfd_boolean
1851 xcoff_write_armap_big (bfd *abfd, unsigned int elength ATTRIBUTE_UNUSED,
1852                        struct orl *map, unsigned int orl_count, int stridx)
1853 {
1854   struct archive_iterator iterator;
1855   struct xcoff_ar_file_hdr_big *fhdr;
1856   bfd_vma i, sym_32, sym_64, str_32, str_64;
1857   const bfd_arch_info_type *arch_info;
1858   bfd *current_bfd;
1859   size_t string_length;
1860   file_ptr nextoff, prevoff;
1861
1862   /* First, we look through the symbols and work out which are
1863      from 32-bit objects and which from 64-bit ones.  */
1864   sym_32 = sym_64 = str_32 = str_64 = 0;
1865
1866   i = 0;
1867   for (current_bfd = abfd->archive_head;
1868        current_bfd != NULL && i < orl_count;
1869        current_bfd = current_bfd->archive_next)
1870     {
1871       arch_info = bfd_get_arch_info (current_bfd);
1872       while (map[i].u.abfd == current_bfd)
1873         {
1874           string_length = strlen (*map[i].name) + 1;
1875           if (arch_info->bits_per_address == 64)
1876             {
1877               sym_64++;
1878               str_64 += string_length;
1879             }
1880           else
1881             {
1882               sym_32++;
1883               str_32 += string_length;
1884             }
1885           i++;
1886         }
1887     }
1888
1889   /* A quick sanity check... */
1890   BFD_ASSERT (sym_64 + sym_32 == orl_count);
1891   /* Explicit cast to int for compiler.  */
1892   BFD_ASSERT ((int)(str_64 + str_32) == stridx);
1893
1894   fhdr = xcoff_ardata_big (abfd);
1895
1896   /* xcoff_write_archive_contents_big passes nextoff in symoff. */
1897   READ20 (fhdr->memoff, prevoff);
1898   READ20 (fhdr->symoff, nextoff);
1899
1900   BFD_ASSERT (nextoff == bfd_tell (abfd));
1901
1902   /* Write out the symbol table.
1903      Layout :
1904
1905      standard big archive header
1906      0x0000                   ar_size   [0x14]
1907      0x0014                   ar_nxtmem [0x14]
1908      0x0028                   ar_prvmem [0x14]
1909      0x003C                   ar_date   [0x0C]
1910      0x0048                   ar_uid    [0x0C]
1911      0x0054                   ar_gid    [0x0C]
1912      0x0060                   ar_mod    [0x0C]
1913      0x006C                   ar_namelen[0x04]
1914      0x0070                   ar_fmag   [SXCOFFARFMAG]
1915
1916      Symbol table
1917      0x0072                   num_syms  [0x08], binary
1918      0x0078                   offsets   [0x08 * num_syms], binary
1919      0x0086 + 0x08 * num_syms names     [??]
1920      ??                       pad to even bytes.
1921   */
1922
1923   if (sym_32)
1924     {
1925       struct xcoff_ar_hdr_big *hdr;
1926       char *symbol_table;
1927       char *st;
1928
1929       bfd_vma symbol_table_size =
1930         SIZEOF_AR_HDR_BIG
1931         + SXCOFFARFMAG
1932         + 8
1933         + 8 * sym_32
1934         + str_32 + (str_32 & 1);
1935
1936       symbol_table = bfd_zmalloc (symbol_table_size);
1937       if (symbol_table == NULL)
1938         return FALSE;
1939
1940       hdr = (struct xcoff_ar_hdr_big *) symbol_table;
1941
1942       PRINT20 (hdr->size, 8 + 8 * sym_32 + str_32 + (str_32 & 1));
1943
1944       if (sym_64)
1945         PRINT20 (hdr->nextoff, nextoff + symbol_table_size);
1946       else
1947         PRINT20 (hdr->nextoff, 0);
1948
1949       PRINT20 (hdr->prevoff, prevoff);
1950       PRINT12 (hdr->date, 0);
1951       PRINT12 (hdr->uid, 0);
1952       PRINT12 (hdr->gid, 0);
1953       PRINT12 (hdr->mode, 0);
1954       PRINT4 (hdr->namlen, 0) ;
1955
1956       st = symbol_table + SIZEOF_AR_HDR_BIG;
1957       memcpy (st, XCOFFARFMAG, SXCOFFARFMAG);
1958       st += SXCOFFARFMAG;
1959
1960       bfd_h_put_64 (abfd, sym_32, st);
1961       st += 8;
1962
1963       /* loop over the 32 bit offsets */
1964       i = 0;
1965       archive_iterator_begin (&iterator, abfd);
1966       while (i < orl_count && archive_iterator_next (&iterator))
1967         {
1968           arch_info = bfd_get_arch_info (iterator.current.member);
1969           while (map[i].u.abfd == iterator.current.member)
1970             {
1971               if (arch_info->bits_per_address == 32)
1972                 {
1973                   bfd_h_put_64 (abfd, iterator.current.offset, st);
1974                   st += 8;
1975                 }
1976               i++;
1977             }
1978         }
1979
1980       /* loop over the 32 bit symbol names */
1981       i = 0;
1982       for (current_bfd = abfd->archive_head;
1983            current_bfd != NULL && i < orl_count;
1984            current_bfd = current_bfd->archive_next)
1985         {
1986           arch_info = bfd_get_arch_info (current_bfd);
1987           while (map[i].u.abfd == current_bfd)
1988             {
1989               if (arch_info->bits_per_address == 32)
1990                 {
1991                   string_length = sprintf (st, "%s", *map[i].name);
1992                   st += string_length + 1;
1993                 }
1994               i++;
1995             }
1996         }
1997
1998       bfd_bwrite (symbol_table, symbol_table_size, abfd);
1999
2000       free (symbol_table);
2001
2002       prevoff = nextoff;
2003       nextoff = nextoff + symbol_table_size;
2004     }
2005   else
2006     PRINT20 (fhdr->symoff, 0);
2007
2008   if (sym_64)
2009     {
2010       struct xcoff_ar_hdr_big *hdr;
2011       char *symbol_table;
2012       char *st;
2013
2014       bfd_vma symbol_table_size =
2015         SIZEOF_AR_HDR_BIG
2016         + SXCOFFARFMAG
2017         + 8
2018         + 8 * sym_64
2019         + str_64 + (str_64 & 1);
2020
2021       symbol_table = bfd_zmalloc (symbol_table_size);
2022       if (symbol_table == NULL)
2023         return FALSE;
2024
2025       hdr = (struct xcoff_ar_hdr_big *) symbol_table;
2026
2027       PRINT20 (hdr->size, 8 + 8 * sym_64 + str_64 + (str_64 & 1));
2028       PRINT20 (hdr->nextoff, 0);
2029       PRINT20 (hdr->prevoff, prevoff);
2030       PRINT12 (hdr->date, 0);
2031       PRINT12 (hdr->uid, 0);
2032       PRINT12 (hdr->gid, 0);
2033       PRINT12 (hdr->mode, 0);
2034       PRINT4 (hdr->namlen, 0);
2035
2036       st = symbol_table + SIZEOF_AR_HDR_BIG;
2037       memcpy (st, XCOFFARFMAG, SXCOFFARFMAG);
2038       st += SXCOFFARFMAG;
2039
2040       bfd_h_put_64 (abfd, sym_64, st);
2041       st += 8;
2042
2043       /* loop over the 64 bit offsets */
2044       i = 0;
2045       archive_iterator_begin (&iterator, abfd);
2046       while (i < orl_count && archive_iterator_next (&iterator))
2047         {
2048           arch_info = bfd_get_arch_info (iterator.current.member);
2049           while (map[i].u.abfd == iterator.current.member)
2050             {
2051               if (arch_info->bits_per_address == 64)
2052                 {
2053                   bfd_h_put_64 (abfd, iterator.current.offset, st);
2054                   st += 8;
2055                 }
2056               i++;
2057             }
2058         }
2059
2060       /* loop over the 64 bit symbol names */
2061       i = 0;
2062       for (current_bfd = abfd->archive_head;
2063            current_bfd != NULL && i < orl_count;
2064            current_bfd = current_bfd->archive_next)
2065         {
2066           arch_info = bfd_get_arch_info (current_bfd);
2067           while (map[i].u.abfd == current_bfd)
2068             {
2069               if (arch_info->bits_per_address == 64)
2070                 {
2071                   string_length = sprintf (st, "%s", *map[i].name);
2072                   st += string_length + 1;
2073                 }
2074               i++;
2075             }
2076         }
2077
2078       bfd_bwrite (symbol_table, symbol_table_size, abfd);
2079
2080       free (symbol_table);
2081
2082       PRINT20 (fhdr->symoff64, nextoff);
2083     }
2084   else
2085     PRINT20 (fhdr->symoff64, 0);
2086
2087   return TRUE;
2088 }
2089
2090 bfd_boolean
2091 _bfd_xcoff_write_armap (bfd *abfd, unsigned int elength ATTRIBUTE_UNUSED,
2092                         struct orl *map, unsigned int orl_count, int stridx)
2093 {
2094   if (! xcoff_big_format_p (abfd))
2095     return xcoff_write_armap_old (abfd, elength, map, orl_count, stridx);
2096   else
2097     return xcoff_write_armap_big (abfd, elength, map, orl_count, stridx);
2098 }
2099
2100 /* Write out an XCOFF archive.  We always write an entire archive,
2101    rather than fussing with the freelist and so forth.  */
2102
2103 static bfd_boolean
2104 xcoff_write_archive_contents_old (bfd *abfd)
2105 {
2106   struct archive_iterator iterator;
2107   struct xcoff_ar_file_hdr fhdr;
2108   bfd_size_type count;
2109   bfd_size_type total_namlen;
2110   file_ptr *offsets;
2111   bfd_boolean makemap;
2112   bfd_boolean hasobjects;
2113   file_ptr prevoff, nextoff;
2114   bfd *sub;
2115   size_t i;
2116   struct xcoff_ar_hdr ahdr;
2117   bfd_size_type size;
2118   char *p;
2119   char decbuf[XCOFFARMAG_ELEMENT_SIZE + 1];
2120
2121   memset (&fhdr, 0, sizeof fhdr);
2122   (void) strncpy (fhdr.magic, XCOFFARMAG, SXCOFFARMAG);
2123   sprintf (fhdr.firstmemoff, "%d", SIZEOF_AR_FILE_HDR);
2124   sprintf (fhdr.freeoff, "%d", 0);
2125
2126   count = 0;
2127   total_namlen = 0;
2128   for (sub = abfd->archive_head; sub != NULL; sub = sub->archive_next)
2129     {
2130       ++count;
2131       total_namlen += strlen (normalize_filename (sub)) + 1;
2132       if (sub->arelt_data == NULL)
2133         {
2134           sub->arelt_data = bfd_zmalloc (sizeof (struct areltdata));
2135           if (sub->arelt_data == NULL)
2136             return FALSE;
2137         }
2138       if (arch_xhdr (sub) == NULL)
2139         {
2140           struct xcoff_ar_hdr *ahdrp;
2141           struct stat s;
2142
2143           if (stat (bfd_get_filename (sub), &s) != 0)
2144             {
2145               bfd_set_error (bfd_error_system_call);
2146               return FALSE;
2147             }
2148
2149           ahdrp = bfd_zalloc (sub, sizeof (*ahdrp));
2150           if (ahdrp == NULL)
2151             return FALSE;
2152
2153           sprintf (ahdrp->size, "%ld", (long) s.st_size);
2154           sprintf (ahdrp->date, "%ld", (long) s.st_mtime);
2155           sprintf (ahdrp->uid, "%ld", (long) s.st_uid);
2156           sprintf (ahdrp->gid, "%ld", (long) s.st_gid);
2157           sprintf (ahdrp->mode, "%o", (unsigned int) s.st_mode);
2158
2159           arch_eltdata (sub)->arch_header = (char *) ahdrp;
2160           arch_eltdata (sub)->parsed_size = s.st_size;
2161         }
2162     }
2163   offsets = (file_ptr *) bfd_alloc (abfd, count * sizeof (file_ptr));
2164   if (offsets == NULL)
2165     return FALSE;
2166
2167   if (bfd_seek (abfd, (file_ptr) SIZEOF_AR_FILE_HDR, SEEK_SET) != 0)
2168     return FALSE;
2169
2170   makemap = bfd_has_map (abfd);
2171   hasobjects = FALSE;
2172   prevoff = 0;
2173   for (archive_iterator_begin (&iterator, abfd), i = 0;
2174        archive_iterator_next (&iterator);
2175        i++)
2176     {
2177       bfd_size_type namlen;
2178       struct xcoff_ar_hdr *ahdrp;
2179
2180       if (makemap && ! hasobjects)
2181         {
2182           if (bfd_check_format (iterator.current.member, bfd_object))
2183             hasobjects = TRUE;
2184         }
2185
2186       ahdrp = arch_xhdr (iterator.current.member);
2187       sprintf (ahdrp->prevoff, "%ld", (long) prevoff);
2188       sprintf (ahdrp->namlen, "%ld", (long) iterator.current.namlen);
2189       sprintf (ahdrp->nextoff, "%ld", (long) iterator.next.offset);
2190
2191       /* We need spaces, not null bytes, in the header.  */
2192       for (p = (char *) ahdrp; p < (char *) ahdrp + SIZEOF_AR_HDR; p++)
2193         if (*p == '\0')
2194           *p = ' ';
2195
2196       if (!do_pad (abfd, iterator.current.leading_padding))
2197         return FALSE;
2198
2199       BFD_ASSERT (iterator.current.offset == bfd_tell (abfd));
2200       namlen = iterator.current.padded_namlen;
2201       if (bfd_bwrite (ahdrp, SIZEOF_AR_HDR, abfd) != SIZEOF_AR_HDR
2202           || bfd_bwrite (iterator.current.name, namlen, abfd) != namlen
2203           || bfd_bwrite (XCOFFARFMAG, SXCOFFARFMAG, abfd) != SXCOFFARFMAG
2204           || bfd_seek (iterator.current.member, 0, SEEK_SET) != 0
2205           || !do_copy (abfd, iterator.current.member)
2206           || !do_pad (abfd, iterator.current.trailing_padding))
2207         return FALSE;
2208
2209       offsets[i] = iterator.current.offset;
2210       prevoff = iterator.current.offset;
2211     }
2212
2213   sprintf (fhdr.lastmemoff, "%ld", (long) prevoff);
2214
2215   /* Write out the member table.  */
2216
2217   nextoff = iterator.next.offset;
2218   BFD_ASSERT (nextoff == bfd_tell (abfd));
2219   sprintf (fhdr.memoff, "%ld", (long) nextoff);
2220
2221   memset (&ahdr, 0, sizeof ahdr);
2222   sprintf (ahdr.size, "%ld", (long) (XCOFFARMAG_ELEMENT_SIZE
2223                                      + count * XCOFFARMAG_ELEMENT_SIZE
2224                                      + total_namlen));
2225   sprintf (ahdr.prevoff, "%ld", (long) prevoff);
2226   sprintf (ahdr.date, "%d", 0);
2227   sprintf (ahdr.uid, "%d", 0);
2228   sprintf (ahdr.gid, "%d", 0);
2229   sprintf (ahdr.mode, "%d", 0);
2230   sprintf (ahdr.namlen, "%d", 0);
2231
2232   size = (SIZEOF_AR_HDR
2233           + XCOFFARMAG_ELEMENT_SIZE
2234           + count * XCOFFARMAG_ELEMENT_SIZE
2235           + total_namlen
2236           + SXCOFFARFMAG);
2237
2238   prevoff = nextoff;
2239   nextoff += size + (size & 1);
2240
2241   if (makemap && hasobjects)
2242     sprintf (ahdr.nextoff, "%ld", (long) nextoff);
2243   else
2244     sprintf (ahdr.nextoff, "%d", 0);
2245
2246   /* We need spaces, not null bytes, in the header.  */
2247   for (p = (char *) &ahdr; p < (char *) &ahdr + SIZEOF_AR_HDR; p++)
2248     if (*p == '\0')
2249       *p = ' ';
2250
2251   if ((bfd_bwrite (&ahdr, (bfd_size_type) SIZEOF_AR_HDR, abfd)
2252        != SIZEOF_AR_HDR)
2253       || (bfd_bwrite (XCOFFARFMAG, (bfd_size_type) SXCOFFARFMAG, abfd)
2254           != SXCOFFARFMAG))
2255     return FALSE;
2256
2257   sprintf (decbuf, "%-12ld", (long) count);
2258   if (bfd_bwrite (decbuf, (bfd_size_type) XCOFFARMAG_ELEMENT_SIZE, abfd)
2259       != XCOFFARMAG_ELEMENT_SIZE)
2260     return FALSE;
2261   for (i = 0; i < (size_t) count; i++)
2262     {
2263       sprintf (decbuf, "%-12ld", (long) offsets[i]);
2264       if (bfd_bwrite (decbuf, (bfd_size_type) XCOFFARMAG_ELEMENT_SIZE,
2265                       abfd) != XCOFFARMAG_ELEMENT_SIZE)
2266         return FALSE;
2267     }
2268   for (sub = abfd->archive_head; sub != NULL; sub = sub->archive_next)
2269     {
2270       const char *name;
2271       bfd_size_type namlen;
2272
2273       name = normalize_filename (sub);
2274       namlen = strlen (name);
2275       if (bfd_bwrite (name, namlen + 1, abfd) != namlen + 1)
2276         return FALSE;
2277     }
2278
2279   if (! do_pad (abfd, size & 1))
2280     return FALSE;
2281
2282   /* Write out the armap, if appropriate.  */
2283   if (! makemap || ! hasobjects)
2284     sprintf (fhdr.symoff, "%d", 0);
2285   else
2286     {
2287       BFD_ASSERT (nextoff == bfd_tell (abfd));
2288       sprintf (fhdr.symoff, "%ld", (long) nextoff);
2289       bfd_ardata (abfd)->tdata = &fhdr;
2290       if (! _bfd_compute_and_write_armap (abfd, 0))
2291         return FALSE;
2292     }
2293
2294   /* Write out the archive file header.  */
2295
2296   /* We need spaces, not null bytes, in the header.  */
2297   for (p = (char *) &fhdr; p < (char *) &fhdr + SIZEOF_AR_FILE_HDR; p++)
2298     if (*p == '\0')
2299       *p = ' ';
2300
2301   if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0
2302       || (bfd_bwrite (&fhdr, (bfd_size_type) SIZEOF_AR_FILE_HDR, abfd)
2303           != SIZEOF_AR_FILE_HDR))
2304     return FALSE;
2305
2306   return TRUE;
2307 }
2308
2309 static bfd_boolean
2310 xcoff_write_archive_contents_big (bfd *abfd)
2311 {
2312   struct xcoff_ar_file_hdr_big fhdr;
2313   bfd_size_type count;
2314   bfd_size_type total_namlen;
2315   file_ptr *offsets;
2316   bfd_boolean makemap;
2317   bfd_boolean hasobjects;
2318   file_ptr prevoff, nextoff;
2319   bfd *current_bfd;
2320   size_t i;
2321   struct xcoff_ar_hdr_big *hdr;
2322   bfd_size_type size;
2323   char *member_table, *mt;
2324   bfd_vma member_table_size;
2325   struct archive_iterator iterator;
2326
2327   memset (&fhdr, 0, SIZEOF_AR_FILE_HDR_BIG);
2328   memcpy (fhdr.magic, XCOFFARMAGBIG, SXCOFFARMAG);
2329
2330   if (bfd_seek (abfd, (file_ptr) SIZEOF_AR_FILE_HDR_BIG, SEEK_SET) != 0)
2331     return FALSE;
2332
2333   /* Calculate count and total_namlen.  */
2334   makemap = bfd_has_map (abfd);
2335   hasobjects = FALSE;
2336   for (current_bfd = abfd->archive_head, count = 0, total_namlen = 0;
2337        current_bfd != NULL;
2338        current_bfd = current_bfd->archive_next, count++)
2339     {
2340       total_namlen += strlen (normalize_filename (current_bfd)) + 1;
2341
2342       if (makemap
2343           && ! hasobjects
2344           && bfd_check_format (current_bfd, bfd_object))
2345         hasobjects = TRUE;
2346
2347       if (current_bfd->arelt_data == NULL)
2348         {
2349           size = sizeof (struct areltdata);
2350           current_bfd->arelt_data = bfd_zmalloc (size);
2351           if (current_bfd->arelt_data == NULL)
2352             return FALSE;
2353         }
2354
2355       if (arch_xhdr_big (current_bfd) == NULL)
2356         {
2357           struct xcoff_ar_hdr_big *ahdrp;
2358           struct stat s;
2359
2360           /* XXX This should actually be a call to stat64 (at least on
2361              32-bit machines).
2362              XXX This call will fail if the original object is not found.  */
2363           if (stat (bfd_get_filename (current_bfd), &s) != 0)
2364             {
2365               bfd_set_error (bfd_error_system_call);
2366               return FALSE;
2367             }
2368
2369           ahdrp = bfd_zalloc (current_bfd, sizeof (*ahdrp));
2370           if (ahdrp == NULL)
2371             return FALSE;
2372
2373           PRINT20 (ahdrp->size, s.st_size);
2374           PRINT12 (ahdrp->date, s.st_mtime);
2375           PRINT12 (ahdrp->uid,  s.st_uid);
2376           PRINT12 (ahdrp->gid,  s.st_gid);
2377           PRINT12_OCTAL (ahdrp->mode, s.st_mode);
2378
2379           arch_eltdata (current_bfd)->arch_header = (char *) ahdrp;
2380           arch_eltdata (current_bfd)->parsed_size = s.st_size;
2381         }
2382     }
2383
2384   offsets = NULL;
2385   if (count)
2386     {
2387       offsets = (file_ptr *) bfd_malloc (count * sizeof (file_ptr));
2388       if (offsets == NULL)
2389         return FALSE;
2390     }
2391
2392   prevoff = 0;
2393   for (archive_iterator_begin (&iterator, abfd), i = 0;
2394        archive_iterator_next (&iterator);
2395        i++)
2396     {
2397       bfd_size_type namlen;
2398       struct xcoff_ar_hdr_big *ahdrp;
2399
2400       ahdrp = arch_xhdr_big (iterator.current.member);
2401       PRINT20 (ahdrp->prevoff, prevoff);
2402       PRINT4 (ahdrp->namlen, iterator.current.namlen);
2403       PRINT20 (ahdrp->nextoff, iterator.next.offset);
2404
2405       if (!do_pad (abfd, iterator.current.leading_padding))
2406         return FALSE;
2407
2408       BFD_ASSERT (iterator.current.offset == bfd_tell (abfd));
2409       namlen = iterator.current.padded_namlen;
2410       if (bfd_bwrite (ahdrp, SIZEOF_AR_HDR_BIG, abfd) != SIZEOF_AR_HDR_BIG
2411           || bfd_bwrite (iterator.current.name, namlen, abfd) != namlen
2412           || bfd_bwrite (XCOFFARFMAG, SXCOFFARFMAG, abfd) != SXCOFFARFMAG
2413           || bfd_seek (iterator.current.member, 0, SEEK_SET) != 0
2414           || !do_copy (abfd, iterator.current.member)
2415           || !do_pad (abfd, iterator.current.trailing_padding))
2416         return FALSE;
2417
2418       offsets[i] = iterator.current.offset;
2419       prevoff = iterator.current.offset;
2420     }
2421
2422   if (count)
2423     {
2424       PRINT20 (fhdr.firstmemoff, offsets[0]);
2425       PRINT20 (fhdr.lastmemoff, prevoff);
2426     }
2427
2428   /* Write out the member table.
2429      Layout :
2430
2431      standard big archive header
2432      0x0000                   ar_size   [0x14]
2433      0x0014                   ar_nxtmem [0x14]
2434      0x0028                   ar_prvmem [0x14]
2435      0x003C                   ar_date   [0x0C]
2436      0x0048                   ar_uid    [0x0C]
2437      0x0054                   ar_gid    [0x0C]
2438      0x0060                   ar_mod    [0x0C]
2439      0x006C                   ar_namelen[0x04]
2440      0x0070                   ar_fmag   [0x02]
2441
2442      Member table
2443      0x0072                   count     [0x14]
2444      0x0086                   offsets   [0x14 * counts]
2445      0x0086 + 0x14 * counts   names     [??]
2446      ??                       pad to even bytes.
2447    */
2448
2449   nextoff = iterator.next.offset;
2450   BFD_ASSERT (nextoff == bfd_tell (abfd));
2451
2452   member_table_size = (SIZEOF_AR_HDR_BIG
2453                        + SXCOFFARFMAG
2454                        + XCOFFARMAGBIG_ELEMENT_SIZE
2455                        + count * XCOFFARMAGBIG_ELEMENT_SIZE
2456                        + total_namlen);
2457
2458   member_table_size += member_table_size & 1;
2459   member_table = bfd_zmalloc (member_table_size);
2460   if (member_table == NULL)
2461     return FALSE;
2462
2463   hdr = (struct xcoff_ar_hdr_big *) member_table;
2464
2465   PRINT20 (hdr->size, (XCOFFARMAGBIG_ELEMENT_SIZE
2466                        + count * XCOFFARMAGBIG_ELEMENT_SIZE
2467                        + total_namlen + (total_namlen & 1)));
2468   if (makemap && hasobjects)
2469     PRINT20 (hdr->nextoff, nextoff + member_table_size);
2470   else
2471     PRINT20 (hdr->nextoff, 0);
2472   PRINT20 (hdr->prevoff, prevoff);
2473   PRINT12 (hdr->date, 0);
2474   PRINT12 (hdr->uid, 0);
2475   PRINT12 (hdr->gid, 0);
2476   PRINT12 (hdr->mode, 0);
2477   PRINT4 (hdr->namlen, 0);
2478
2479   mt = member_table + SIZEOF_AR_HDR_BIG;
2480   memcpy (mt, XCOFFARFMAG, SXCOFFARFMAG);
2481   mt += SXCOFFARFMAG;
2482
2483   PRINT20 (mt, count);
2484   mt += XCOFFARMAGBIG_ELEMENT_SIZE;
2485   for (i = 0; i < (size_t) count; i++)
2486     {
2487       PRINT20 (mt, offsets[i]);
2488       mt += XCOFFARMAGBIG_ELEMENT_SIZE;
2489     }
2490
2491   if (count)
2492     {
2493       free (offsets);
2494       offsets = NULL;
2495     }
2496
2497   for (current_bfd = abfd->archive_head;
2498        current_bfd != NULL;
2499        current_bfd = current_bfd->archive_next)
2500     {
2501       const char *name;
2502       size_t namlen;
2503
2504       name = normalize_filename (current_bfd);
2505       namlen = sprintf (mt, "%s", name);
2506       mt += namlen + 1;
2507     }
2508
2509   if (bfd_bwrite (member_table, member_table_size, abfd) != member_table_size)
2510     return FALSE;
2511
2512   free (member_table);
2513
2514   PRINT20 (fhdr.memoff, nextoff);
2515
2516   prevoff = nextoff;
2517   nextoff += member_table_size;
2518
2519   /* Write out the armap, if appropriate.  */
2520
2521   if (! makemap || ! hasobjects)
2522     PRINT20 (fhdr.symoff, 0);
2523   else
2524     {
2525       BFD_ASSERT (nextoff == bfd_tell (abfd));
2526
2527       /* Save nextoff in fhdr.symoff so the armap routine can use it.  */
2528       PRINT20 (fhdr.symoff, nextoff);
2529
2530       bfd_ardata (abfd)->tdata = &fhdr;
2531       if (! _bfd_compute_and_write_armap (abfd, 0))
2532         return FALSE;
2533     }
2534
2535   /* Write out the archive file header.  */
2536
2537   if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0
2538       || (bfd_bwrite (&fhdr, (bfd_size_type) SIZEOF_AR_FILE_HDR_BIG,
2539                       abfd) != SIZEOF_AR_FILE_HDR_BIG))
2540     return FALSE;
2541
2542   return TRUE;
2543 }
2544
2545 bfd_boolean
2546 _bfd_xcoff_write_archive_contents (bfd *abfd)
2547 {
2548   if (! xcoff_big_format_p (abfd))
2549     return xcoff_write_archive_contents_old (abfd);
2550   else
2551     return xcoff_write_archive_contents_big (abfd);
2552 }
2553 \f
2554 /* We can't use the usual coff_sizeof_headers routine, because AIX
2555    always uses an a.out header.  */
2556
2557 int
2558 _bfd_xcoff_sizeof_headers (bfd *abfd,
2559                            struct bfd_link_info *info ATTRIBUTE_UNUSED)
2560 {
2561   int size;
2562
2563   size = FILHSZ;
2564   if (xcoff_data (abfd)->full_aouthdr)
2565     size += AOUTSZ;
2566   else
2567     size += SMALL_AOUTSZ;
2568   size += abfd->section_count * SCNHSZ;
2569   return size;
2570 }
2571 \f
2572 /* Routines to swap information in the XCOFF .loader section.  If we
2573    ever need to write an XCOFF loader, this stuff will need to be
2574    moved to another file shared by the linker (which XCOFF calls the
2575    ``binder'') and the loader.  */
2576
2577 /* Swap in the ldhdr structure.  */
2578
2579 static void
2580 xcoff_swap_ldhdr_in (bfd *abfd, const void * s, struct internal_ldhdr *dst)
2581 {
2582   const struct external_ldhdr *src = (const struct external_ldhdr *) s;
2583
2584   dst->l_version = bfd_get_32 (abfd, src->l_version);
2585   dst->l_nsyms = bfd_get_32 (abfd, src->l_nsyms);
2586   dst->l_nreloc = bfd_get_32 (abfd, src->l_nreloc);
2587   dst->l_istlen = bfd_get_32 (abfd, src->l_istlen);
2588   dst->l_nimpid = bfd_get_32 (abfd, src->l_nimpid);
2589   dst->l_impoff = bfd_get_32 (abfd, src->l_impoff);
2590   dst->l_stlen = bfd_get_32 (abfd, src->l_stlen);
2591   dst->l_stoff = bfd_get_32 (abfd, src->l_stoff);
2592 }
2593
2594 /* Swap out the ldhdr structure.  */
2595
2596 static void
2597 xcoff_swap_ldhdr_out (bfd *abfd, const struct internal_ldhdr *src, void * d)
2598 {
2599   struct external_ldhdr *dst = (struct external_ldhdr *) d;
2600
2601   bfd_put_32 (abfd, (bfd_vma) src->l_version, dst->l_version);
2602   bfd_put_32 (abfd, src->l_nsyms, dst->l_nsyms);
2603   bfd_put_32 (abfd, src->l_nreloc, dst->l_nreloc);
2604   bfd_put_32 (abfd, src->l_istlen, dst->l_istlen);
2605   bfd_put_32 (abfd, src->l_nimpid, dst->l_nimpid);
2606   bfd_put_32 (abfd, src->l_impoff, dst->l_impoff);
2607   bfd_put_32 (abfd, src->l_stlen, dst->l_stlen);
2608   bfd_put_32 (abfd, src->l_stoff, dst->l_stoff);
2609 }
2610
2611 /* Swap in the ldsym structure.  */
2612
2613 static void
2614 xcoff_swap_ldsym_in (bfd *abfd, const void * s, struct internal_ldsym *dst)
2615 {
2616   const struct external_ldsym *src = (const struct external_ldsym *) s;
2617
2618   if (bfd_get_32 (abfd, src->_l._l_l._l_zeroes) != 0) {
2619     memcpy (dst->_l._l_name, src->_l._l_name, SYMNMLEN);
2620   } else {
2621     dst->_l._l_l._l_zeroes = 0;
2622     dst->_l._l_l._l_offset = bfd_get_32 (abfd, src->_l._l_l._l_offset);
2623   }
2624   dst->l_value = bfd_get_32 (abfd, src->l_value);
2625   dst->l_scnum = bfd_get_16 (abfd, src->l_scnum);
2626   dst->l_smtype = bfd_get_8 (abfd, src->l_smtype);
2627   dst->l_smclas = bfd_get_8 (abfd, src->l_smclas);
2628   dst->l_ifile = bfd_get_32 (abfd, src->l_ifile);
2629   dst->l_parm = bfd_get_32 (abfd, src->l_parm);
2630 }
2631
2632 /* Swap out the ldsym structure.  */
2633
2634 static void
2635 xcoff_swap_ldsym_out (bfd *abfd, const struct internal_ldsym *src, void * d)
2636 {
2637   struct external_ldsym *dst = (struct external_ldsym *) d;
2638
2639   if (src->_l._l_l._l_zeroes != 0)
2640     memcpy (dst->_l._l_name, src->_l._l_name, SYMNMLEN);
2641   else
2642     {
2643       bfd_put_32 (abfd, (bfd_vma) 0, dst->_l._l_l._l_zeroes);
2644       bfd_put_32 (abfd, (bfd_vma) src->_l._l_l._l_offset,
2645                   dst->_l._l_l._l_offset);
2646     }
2647   bfd_put_32 (abfd, src->l_value, dst->l_value);
2648   bfd_put_16 (abfd, (bfd_vma) src->l_scnum, dst->l_scnum);
2649   bfd_put_8 (abfd, src->l_smtype, dst->l_smtype);
2650   bfd_put_8 (abfd, src->l_smclas, dst->l_smclas);
2651   bfd_put_32 (abfd, src->l_ifile, dst->l_ifile);
2652   bfd_put_32 (abfd, src->l_parm, dst->l_parm);
2653 }
2654
2655 static void
2656 xcoff_swap_reloc_in (bfd *abfd, void * s, void * d)
2657 {
2658   struct external_reloc *src = (struct external_reloc *) s;
2659   struct internal_reloc *dst = (struct internal_reloc *) d;
2660
2661   memset (dst, 0, sizeof (struct internal_reloc));
2662
2663   dst->r_vaddr = bfd_get_32 (abfd, src->r_vaddr);
2664   dst->r_symndx = bfd_get_32 (abfd, src->r_symndx);
2665   dst->r_size = bfd_get_8 (abfd, src->r_size);
2666   dst->r_type = bfd_get_8 (abfd, src->r_type);
2667 }
2668
2669 static unsigned int
2670 xcoff_swap_reloc_out (bfd *abfd, void * s, void * d)
2671 {
2672   struct internal_reloc *src = (struct internal_reloc *) s;
2673   struct external_reloc *dst = (struct external_reloc *) d;
2674
2675   bfd_put_32 (abfd, src->r_vaddr, dst->r_vaddr);
2676   bfd_put_32 (abfd, src->r_symndx, dst->r_symndx);
2677   bfd_put_8 (abfd, src->r_type, dst->r_type);
2678   bfd_put_8 (abfd, src->r_size, dst->r_size);
2679
2680   return bfd_coff_relsz (abfd);
2681 }
2682
2683 /* Swap in the ldrel structure.  */
2684
2685 static void
2686 xcoff_swap_ldrel_in (bfd *abfd, const void * s, struct internal_ldrel *dst)
2687 {
2688   const struct external_ldrel *src = (const struct external_ldrel *) s;
2689
2690   dst->l_vaddr = bfd_get_32 (abfd, src->l_vaddr);
2691   dst->l_symndx = bfd_get_32 (abfd, src->l_symndx);
2692   dst->l_rtype = bfd_get_16 (abfd, src->l_rtype);
2693   dst->l_rsecnm = bfd_get_16 (abfd, src->l_rsecnm);
2694 }
2695
2696 /* Swap out the ldrel structure.  */
2697
2698 static void
2699 xcoff_swap_ldrel_out (bfd *abfd, const struct internal_ldrel *src, void * d)
2700 {
2701   struct external_ldrel *dst = (struct external_ldrel *) d;
2702
2703   bfd_put_32 (abfd, src->l_vaddr, dst->l_vaddr);
2704   bfd_put_32 (abfd, src->l_symndx, dst->l_symndx);
2705   bfd_put_16 (abfd, (bfd_vma) src->l_rtype, dst->l_rtype);
2706   bfd_put_16 (abfd, (bfd_vma) src->l_rsecnm, dst->l_rsecnm);
2707 }
2708 \f
2709
2710 bfd_boolean
2711 xcoff_reloc_type_noop (bfd *input_bfd ATTRIBUTE_UNUSED,
2712                        asection *input_section ATTRIBUTE_UNUSED,
2713                        bfd *output_bfd ATTRIBUTE_UNUSED,
2714                        struct internal_reloc *rel ATTRIBUTE_UNUSED,
2715                        struct internal_syment *sym ATTRIBUTE_UNUSED,
2716                        struct reloc_howto_struct *howto ATTRIBUTE_UNUSED,
2717                        bfd_vma val ATTRIBUTE_UNUSED,
2718                        bfd_vma addend ATTRIBUTE_UNUSED,
2719                        bfd_vma *relocation ATTRIBUTE_UNUSED,
2720                        bfd_byte *contents ATTRIBUTE_UNUSED)
2721 {
2722   return TRUE;
2723 }
2724
2725 bfd_boolean
2726 xcoff_reloc_type_fail (bfd *input_bfd,
2727                        asection *input_section ATTRIBUTE_UNUSED,
2728                        bfd *output_bfd ATTRIBUTE_UNUSED,
2729                        struct internal_reloc *rel,
2730                        struct internal_syment *sym ATTRIBUTE_UNUSED,
2731                        struct reloc_howto_struct *howto ATTRIBUTE_UNUSED,
2732                        bfd_vma val ATTRIBUTE_UNUSED,
2733                        bfd_vma addend ATTRIBUTE_UNUSED,
2734                        bfd_vma *relocation ATTRIBUTE_UNUSED,
2735                        bfd_byte *contents ATTRIBUTE_UNUSED)
2736 {
2737   (*_bfd_error_handler)
2738     (_("%s: unsupported relocation type 0x%02x"),
2739      bfd_get_filename (input_bfd), (unsigned int) rel->r_type);
2740   bfd_set_error (bfd_error_bad_value);
2741   return FALSE;
2742 }
2743
2744 bfd_boolean
2745 xcoff_reloc_type_pos (bfd *input_bfd ATTRIBUTE_UNUSED,
2746                       asection *input_section ATTRIBUTE_UNUSED,
2747                       bfd *output_bfd ATTRIBUTE_UNUSED,
2748                       struct internal_reloc *rel ATTRIBUTE_UNUSED,
2749                       struct internal_syment *sym ATTRIBUTE_UNUSED,
2750                       struct reloc_howto_struct *howto ATTRIBUTE_UNUSED,
2751                       bfd_vma val,
2752                       bfd_vma addend,
2753                       bfd_vma *relocation,
2754                       bfd_byte *contents ATTRIBUTE_UNUSED)
2755 {
2756   *relocation = val + addend;
2757   return TRUE;
2758 }
2759
2760 bfd_boolean
2761 xcoff_reloc_type_neg (bfd *input_bfd ATTRIBUTE_UNUSED,
2762                       asection *input_section ATTRIBUTE_UNUSED,
2763                       bfd *output_bfd ATTRIBUTE_UNUSED,
2764                       struct internal_reloc *rel ATTRIBUTE_UNUSED,
2765                       struct internal_syment *sym ATTRIBUTE_UNUSED,
2766                       struct reloc_howto_struct *howto ATTRIBUTE_UNUSED,
2767                       bfd_vma val,
2768                       bfd_vma addend,
2769                       bfd_vma *relocation,
2770                       bfd_byte *contents ATTRIBUTE_UNUSED)
2771 {
2772   *relocation = addend - val;
2773   return TRUE;
2774 }
2775
2776 bfd_boolean
2777 xcoff_reloc_type_rel (bfd *input_bfd ATTRIBUTE_UNUSED,
2778                       asection *input_section,
2779                       bfd *output_bfd ATTRIBUTE_UNUSED,
2780                       struct internal_reloc *rel ATTRIBUTE_UNUSED,
2781                       struct internal_syment *sym ATTRIBUTE_UNUSED,
2782                       struct reloc_howto_struct *howto,
2783                       bfd_vma val,
2784                       bfd_vma addend,
2785                       bfd_vma *relocation,
2786                       bfd_byte *contents ATTRIBUTE_UNUSED)
2787 {
2788   howto->pc_relative = TRUE;
2789
2790   /* A PC relative reloc includes the section address.  */
2791   addend += input_section->vma;
2792
2793   *relocation = val + addend;
2794   *relocation -= (input_section->output_section->vma
2795                   + input_section->output_offset);
2796   return TRUE;
2797 }
2798
2799 bfd_boolean
2800 xcoff_reloc_type_toc (bfd *input_bfd,
2801                       asection *input_section ATTRIBUTE_UNUSED,
2802                       bfd *output_bfd,
2803                       struct internal_reloc *rel,
2804                       struct internal_syment *sym,
2805                       struct reloc_howto_struct *howto ATTRIBUTE_UNUSED,
2806                       bfd_vma val,
2807                       bfd_vma addend ATTRIBUTE_UNUSED,
2808                       bfd_vma *relocation,
2809                       bfd_byte *contents ATTRIBUTE_UNUSED)
2810 {
2811   struct xcoff_link_hash_entry *h;
2812
2813   if (0 > rel->r_symndx)
2814     return FALSE;
2815
2816   h = obj_xcoff_sym_hashes (input_bfd)[rel->r_symndx];
2817
2818   if (h != NULL && h->smclas != XMC_TD)
2819     {
2820       if (h->toc_section == NULL)
2821         {
2822           (*_bfd_error_handler)
2823             (_("%s: TOC reloc at 0x%x to symbol `%s' with no TOC entry"),
2824              bfd_get_filename (input_bfd), rel->r_vaddr,
2825              h->root.root.string);
2826           bfd_set_error (bfd_error_bad_value);
2827           return FALSE;
2828         }
2829
2830       BFD_ASSERT ((h->flags & XCOFF_SET_TOC) == 0);
2831       val = (h->toc_section->output_section->vma
2832               + h->toc_section->output_offset);
2833     }
2834
2835   *relocation = ((val - xcoff_data (output_bfd)->toc)
2836                  - (sym->n_value - xcoff_data (input_bfd)->toc));
2837   return TRUE;
2838 }
2839
2840 bfd_boolean
2841 xcoff_reloc_type_ba (bfd *input_bfd ATTRIBUTE_UNUSED,
2842                      asection *input_section ATTRIBUTE_UNUSED,
2843                      bfd *output_bfd ATTRIBUTE_UNUSED,
2844                      struct internal_reloc *rel ATTRIBUTE_UNUSED,
2845                      struct internal_syment *sym ATTRIBUTE_UNUSED,
2846                      struct reloc_howto_struct *howto,
2847                      bfd_vma val,
2848                      bfd_vma addend,
2849                      bfd_vma *relocation,
2850                      bfd_byte *contents ATTRIBUTE_UNUSED)
2851 {
2852   howto->src_mask &= ~3;
2853   howto->dst_mask = howto->src_mask;
2854
2855   *relocation = val + addend;
2856
2857   return TRUE;
2858 }
2859
2860 static bfd_boolean
2861 xcoff_reloc_type_br (bfd *input_bfd,
2862                      asection *input_section,
2863                      bfd *output_bfd ATTRIBUTE_UNUSED,
2864                      struct internal_reloc *rel,
2865                      struct internal_syment *sym ATTRIBUTE_UNUSED,
2866                      struct reloc_howto_struct *howto,
2867                      bfd_vma val,
2868                      bfd_vma addend,
2869                      bfd_vma *relocation,
2870                      bfd_byte *contents)
2871 {
2872   struct xcoff_link_hash_entry *h;
2873   bfd_vma section_offset;
2874
2875   if (0 > rel->r_symndx)
2876     return FALSE;
2877
2878   h = obj_xcoff_sym_hashes (input_bfd)[rel->r_symndx];
2879   section_offset = rel->r_vaddr - input_section->vma;
2880
2881   /* If we see an R_BR or R_RBR reloc which is jumping to global
2882      linkage code, and it is followed by an appropriate cror nop
2883      instruction, we replace the cror with lwz r2,20(r1).  This
2884      restores the TOC after the glink code.  Contrariwise, if the
2885      call is followed by a lwz r2,20(r1), but the call is not
2886      going to global linkage code, we can replace the load with a
2887      cror.  */
2888   if (NULL != h
2889       && (bfd_link_hash_defined == h->root.type
2890           || bfd_link_hash_defweak == h->root.type)
2891       && section_offset + 8 <= input_section->size)
2892     {
2893       bfd_byte *pnext;
2894       unsigned long next;
2895
2896       pnext = contents + section_offset + 4;
2897       next = bfd_get_32 (input_bfd, pnext);
2898
2899       /* The _ptrgl function is magic.  It is used by the AIX
2900          compiler to call a function through a pointer.  */
2901       if (h->smclas == XMC_GL || strcmp (h->root.root.string, "._ptrgl") == 0)
2902         {
2903           if (next == 0x4def7b82                        /* cror 15,15,15 */
2904               || next == 0x4ffffb82                     /* cror 31,31,31 */
2905               || next == 0x60000000)                    /* ori r0,r0,0 */
2906             bfd_put_32 (input_bfd, 0x80410014, pnext);  /* lwz r2,20(r1) */
2907
2908         }
2909       else
2910         {
2911           if (next == 0x80410014)                       /* lwz r2,20(r1) */
2912             bfd_put_32 (input_bfd, 0x60000000, pnext);  /* ori r0,r0,0 */
2913         }
2914     }
2915   else if (NULL != h && bfd_link_hash_undefined == h->root.type)
2916     {
2917       /* Normally, this relocation is against a defined symbol.  In the
2918          case where this is a partial link and the output section offset
2919          is greater than 2^25, the linker will return an invalid error
2920          message that the relocation has been truncated.  Yes it has been
2921          truncated but no it not important.  For this case, disable the
2922          overflow checking. */
2923
2924       howto->complain_on_overflow = complain_overflow_dont;
2925     }
2926
2927   /* The original PC-relative relocation is biased by -r_vaddr, so adding
2928      the value below will give the absolute target address.  */
2929   *relocation = val + addend + rel->r_vaddr;
2930
2931   howto->src_mask &= ~3;
2932   howto->dst_mask = howto->src_mask;
2933
2934   if (h != NULL
2935       && (h->root.type == bfd_link_hash_defined
2936           || h->root.type == bfd_link_hash_defweak)
2937       && bfd_is_abs_section (h->root.u.def.section)
2938       && section_offset + 4 <= input_section->size)
2939     {
2940       bfd_byte *ptr;
2941       bfd_vma insn;
2942
2943       /* Turn the relative branch into an absolute one by setting the
2944          AA bit.  */
2945       ptr = contents + section_offset;
2946       insn = bfd_get_32 (input_bfd, ptr);
2947       insn |= 2;
2948       bfd_put_32 (input_bfd, insn, ptr);
2949
2950       /* Make the howto absolute too.  */
2951       howto->pc_relative = FALSE;
2952       howto->complain_on_overflow = complain_overflow_bitfield;
2953     }
2954   else
2955     {
2956       /* Use a PC-relative howto and subtract the instruction's address
2957          from the target address we calculated above.  */
2958       howto->pc_relative = TRUE;
2959       *relocation -= (input_section->output_section->vma
2960                       + input_section->output_offset
2961                       + section_offset);
2962     }
2963   return TRUE;
2964 }
2965
2966 bfd_boolean
2967 xcoff_reloc_type_crel (bfd *input_bfd ATTRIBUTE_UNUSED,
2968                        asection *input_section,
2969                        bfd *output_bfd ATTRIBUTE_UNUSED,
2970                        struct internal_reloc *rel ATTRIBUTE_UNUSED,
2971                        struct internal_syment *sym ATTRIBUTE_UNUSED,
2972                        struct reloc_howto_struct *howto,
2973                        bfd_vma val ATTRIBUTE_UNUSED,
2974                        bfd_vma addend,
2975                        bfd_vma *relocation,
2976                        bfd_byte *contents ATTRIBUTE_UNUSED)
2977 {
2978   howto->pc_relative = TRUE;
2979   howto->src_mask &= ~3;
2980   howto->dst_mask = howto->src_mask;
2981
2982   /* A PC relative reloc includes the section address.  */
2983   addend += input_section->vma;
2984
2985   *relocation = val + addend;
2986   *relocation -= (input_section->output_section->vma
2987                   + input_section->output_offset);
2988   return TRUE;
2989 }
2990
2991 static bfd_boolean
2992 xcoff_complain_overflow_dont_func (bfd *input_bfd ATTRIBUTE_UNUSED,
2993                                    bfd_vma val ATTRIBUTE_UNUSED,
2994                                    bfd_vma relocation ATTRIBUTE_UNUSED,
2995                                    struct reloc_howto_struct *
2996                                       howto ATTRIBUTE_UNUSED)
2997 {
2998   return FALSE;
2999 }
3000
3001 static bfd_boolean
3002 xcoff_complain_overflow_bitfield_func (bfd *input_bfd,
3003                                        bfd_vma val,
3004                                        bfd_vma relocation,
3005                                        struct reloc_howto_struct *howto)
3006 {
3007   bfd_vma fieldmask, signmask, ss;
3008   bfd_vma a, b, sum;
3009
3010   /* Get the values to be added together.  For signed and unsigned
3011      relocations, we assume that all values should be truncated to
3012      the size of an address.  For bitfields, all the bits matter.
3013      See also bfd_check_overflow.  */
3014   fieldmask = N_ONES (howto->bitsize);
3015   a = relocation;
3016   b = val & howto->src_mask;
3017
3018   /* Much like unsigned, except no trimming with addrmask.  In
3019      addition, the sum overflows if there is a carry out of
3020      the bfd_vma, i.e., the sum is less than either input
3021      operand.  */
3022   a >>= howto->rightshift;
3023   b >>= howto->bitpos;
3024
3025   /* Bitfields are sometimes used for signed numbers; for
3026      example, a 13-bit field sometimes represents values in
3027      0..8191 and sometimes represents values in -4096..4095.
3028      If the field is signed and a is -4095 (0x1001) and b is
3029      -1 (0x1fff), the sum is -4096 (0x1000), but (0x1001 +
3030      0x1fff is 0x3000).  It's not clear how to handle this
3031      everywhere, since there is not way to know how many bits
3032      are significant in the relocation, but the original code
3033      assumed that it was fully sign extended, and we will keep
3034      that assumption.  */
3035   signmask = (fieldmask >> 1) + 1;
3036
3037   if ((a & ~ fieldmask) != 0)
3038     {
3039       /* Some bits out of the field are set.  This might not
3040          be a problem: if this is a signed bitfield, it is OK
3041          iff all the high bits are set, including the sign
3042          bit.  We'll try setting all but the most significant
3043          bit in the original relocation value: if this is all
3044          ones, we are OK, assuming a signed bitfield.  */
3045       ss = (signmask << howto->rightshift) - 1;
3046       if ((ss | relocation) != ~ (bfd_vma) 0)
3047         return TRUE;
3048       a &= fieldmask;
3049     }
3050
3051   /* We just assume (b & ~ fieldmask) == 0.  */
3052
3053   /* We explicitly permit wrap around if this relocation
3054      covers the high bit of an address.  The Linux kernel
3055      relies on it, and it is the only way to write assembler
3056      code which can run when loaded at a location 0x80000000
3057      away from the location at which it is linked.  */
3058   if (howto->bitsize + howto->rightshift
3059       == bfd_arch_bits_per_address (input_bfd))
3060     return FALSE;
3061
3062   sum = a + b;
3063   if (sum < a || (sum & ~ fieldmask) != 0)
3064     {
3065       /* There was a carry out, or the field overflow.  Test
3066          for signed operands again.  Here is the overflow test
3067          is as for complain_overflow_signed.  */
3068       if (((~ (a ^ b)) & (a ^ sum)) & signmask)
3069         return TRUE;
3070     }
3071
3072   return FALSE;
3073 }
3074
3075 static bfd_boolean
3076 xcoff_complain_overflow_signed_func (bfd *input_bfd,
3077                                      bfd_vma val,
3078                                      bfd_vma relocation,
3079                                      struct reloc_howto_struct *howto)
3080 {
3081   bfd_vma addrmask, fieldmask, signmask, ss;
3082   bfd_vma a, b, sum;
3083
3084   /* Get the values to be added together.  For signed and unsigned
3085      relocations, we assume that all values should be truncated to
3086      the size of an address.  For bitfields, all the bits matter.
3087      See also bfd_check_overflow.  */
3088   fieldmask = N_ONES (howto->bitsize);
3089   addrmask = N_ONES (bfd_arch_bits_per_address (input_bfd)) | fieldmask;
3090   a = relocation;
3091   b = val & howto->src_mask;
3092
3093   a = (a & addrmask) >> howto->rightshift;
3094
3095   /* If any sign bits are set, all sign bits must be set.
3096      That is, A must be a valid negative address after
3097      shifting.  */
3098   signmask = ~ (fieldmask >> 1);
3099   ss = a & signmask;
3100   if (ss != 0 && ss != ((addrmask >> howto->rightshift) & signmask))
3101     return TRUE;
3102
3103   /* We only need this next bit of code if the sign bit of B
3104      is below the sign bit of A.  This would only happen if
3105      SRC_MASK had fewer bits than BITSIZE.  Note that if
3106      SRC_MASK has more bits than BITSIZE, we can get into
3107      trouble; we would need to verify that B is in range, as
3108      we do for A above.  */
3109   signmask = ((~ howto->src_mask) >> 1) & howto->src_mask;
3110   if ((b & signmask) != 0)
3111     {
3112       /* Set all the bits above the sign bit.  */
3113       b -= signmask <<= 1;
3114     }
3115
3116   b = (b & addrmask) >> howto->bitpos;
3117
3118   /* Now we can do the addition.  */
3119   sum = a + b;
3120
3121   /* See if the result has the correct sign.  Bits above the
3122      sign bit are junk now; ignore them.  If the sum is
3123      positive, make sure we did not have all negative inputs;
3124      if the sum is negative, make sure we did not have all
3125      positive inputs.  The test below looks only at the sign
3126      bits, and it really just
3127      SIGN (A) == SIGN (B) && SIGN (A) != SIGN (SUM)
3128   */
3129   signmask = (fieldmask >> 1) + 1;
3130   if (((~ (a ^ b)) & (a ^ sum)) & signmask)
3131     return TRUE;
3132
3133   return FALSE;
3134 }
3135
3136 static bfd_boolean
3137 xcoff_complain_overflow_unsigned_func (bfd *input_bfd,
3138                                        bfd_vma val,
3139                                        bfd_vma relocation,
3140                                        struct reloc_howto_struct *howto)
3141 {
3142   bfd_vma addrmask, fieldmask;
3143   bfd_vma a, b, sum;
3144
3145   /* Get the values to be added together.  For signed and unsigned
3146      relocations, we assume that all values should be truncated to
3147      the size of an address.  For bitfields, all the bits matter.
3148      See also bfd_check_overflow.  */
3149   fieldmask = N_ONES (howto->bitsize);
3150   addrmask = N_ONES (bfd_arch_bits_per_address (input_bfd)) | fieldmask;
3151   a = relocation;
3152   b = val & howto->src_mask;
3153
3154   /* Checking for an unsigned overflow is relatively easy:
3155      trim the addresses and add, and trim the result as well.
3156      Overflow is normally indicated when the result does not
3157      fit in the field.  However, we also need to consider the
3158      case when, e.g., fieldmask is 0x7fffffff or smaller, an
3159      input is 0x80000000, and bfd_vma is only 32 bits; then we
3160      will get sum == 0, but there is an overflow, since the
3161      inputs did not fit in the field.  Instead of doing a
3162      separate test, we can check for this by or-ing in the
3163      operands when testing for the sum overflowing its final
3164      field.  */
3165   a = (a & addrmask) >> howto->rightshift;
3166   b = (b & addrmask) >> howto->bitpos;
3167   sum = (a + b) & addrmask;
3168   if ((a | b | sum) & ~ fieldmask)
3169     return TRUE;
3170
3171   return FALSE;
3172 }
3173
3174 /* This is the relocation function for the RS/6000/POWER/PowerPC.
3175    This is currently the only processor which uses XCOFF; I hope that
3176    will never change.
3177
3178    I took the relocation type definitions from two documents:
3179    the PowerPC AIX Version 4 Application Binary Interface, First
3180    Edition (April 1992), and the PowerOpen ABI, Big-Endian
3181    32-Bit Hardware Implementation (June 30, 1994).  Differences
3182    between the documents are noted below.
3183
3184    Unsupported r_type's
3185
3186    R_RTB:
3187    R_RRTBI:
3188    R_RRTBA:
3189
3190    These relocs are defined by the PowerPC ABI to be
3191    relative branches which use half of the difference
3192    between the symbol and the program counter.  I can't
3193    quite figure out when this is useful.  These relocs are
3194    not defined by the PowerOpen ABI.
3195
3196    Supported r_type's
3197
3198    R_POS:
3199    Simple positive relocation.
3200
3201    R_NEG:
3202    Simple negative relocation.
3203
3204    R_REL:
3205    Simple PC relative relocation.
3206
3207    R_TOC:
3208    TOC relative relocation.  The value in the instruction in
3209    the input file is the offset from the input file TOC to
3210    the desired location.  We want the offset from the final
3211    TOC to the desired location.  We have:
3212    isym = iTOC + in
3213    iinsn = in + o
3214    osym = oTOC + on
3215    oinsn = on + o
3216    so we must change insn by on - in.
3217
3218    R_GL:
3219    GL linkage relocation.  The value of this relocation
3220    is the address of the entry in the TOC section.
3221
3222    R_TCL:
3223    Local object TOC address.  I can't figure out the
3224    difference between this and case R_GL.
3225
3226    R_TRL:
3227    TOC relative relocation.  A TOC relative load instruction
3228    which may be changed to a load address instruction.
3229    FIXME: We don't currently implement this optimization.
3230
3231    R_TRLA:
3232    TOC relative relocation.  This is a TOC relative load
3233    address instruction which may be changed to a load
3234    instruction.  FIXME: I don't know if this is the correct
3235    implementation.
3236
3237    R_BA:
3238    Absolute branch.  We don't want to mess with the lower
3239    two bits of the instruction.
3240
3241    R_CAI:
3242    The PowerPC ABI defines this as an absolute call which
3243    may be modified to become a relative call.  The PowerOpen
3244    ABI does not define this relocation type.
3245
3246    R_RBA:
3247    Absolute branch which may be modified to become a
3248    relative branch.
3249
3250    R_RBAC:
3251    The PowerPC ABI defines this as an absolute branch to a
3252    fixed address which may be modified to an absolute branch
3253    to a symbol.  The PowerOpen ABI does not define this
3254    relocation type.
3255
3256    R_RBRC:
3257    The PowerPC ABI defines this as an absolute branch to a
3258    fixed address which may be modified to a relative branch.
3259    The PowerOpen ABI does not define this relocation type.
3260
3261    R_BR:
3262    Relative branch.  We don't want to mess with the lower
3263    two bits of the instruction.
3264
3265    R_CREL:
3266    The PowerPC ABI defines this as a relative call which may
3267    be modified to become an absolute call.  The PowerOpen
3268    ABI does not define this relocation type.
3269
3270    R_RBR:
3271    A relative branch which may be modified to become an
3272    absolute branch.
3273
3274    R_RL:
3275    The PowerPC AIX ABI describes this as a load which may be
3276    changed to a load address.  The PowerOpen ABI says this
3277    is the same as case R_POS.
3278
3279    R_RLA:
3280    The PowerPC AIX ABI describes this as a load address
3281    which may be changed to a load.  The PowerOpen ABI says
3282    this is the same as R_POS.
3283 */
3284
3285 bfd_boolean
3286 xcoff_ppc_relocate_section (bfd *output_bfd,
3287                             struct bfd_link_info *info,
3288                             bfd *input_bfd,
3289                             asection *input_section,
3290                             bfd_byte *contents,
3291                             struct internal_reloc *relocs,
3292                             struct internal_syment *syms,
3293                             asection **sections)
3294 {
3295   struct internal_reloc *rel;
3296   struct internal_reloc *relend;
3297
3298   rel = relocs;
3299   relend = rel + input_section->reloc_count;
3300   for (; rel < relend; rel++)
3301     {
3302       long symndx;
3303       struct xcoff_link_hash_entry *h;
3304       struct internal_syment *sym;
3305       bfd_vma addend;
3306       bfd_vma val;
3307       struct reloc_howto_struct howto;
3308       bfd_vma relocation;
3309       bfd_vma value_to_relocate;
3310       bfd_vma address;
3311       bfd_byte *location;
3312
3313       /* Relocation type R_REF is a special relocation type which is
3314          merely used to prevent garbage collection from occurring for
3315          the csect including the symbol which it references.  */
3316       if (rel->r_type == R_REF)
3317         continue;
3318
3319       /* howto */
3320       howto.type = rel->r_type;
3321       howto.rightshift = 0;
3322       howto.bitsize = (rel->r_size & 0x1f) + 1;
3323       howto.size = howto.bitsize > 16 ? 2 : 1;
3324       howto.pc_relative = FALSE;
3325       howto.bitpos = 0;
3326       howto.complain_on_overflow = (rel->r_size & 0x80
3327                                     ? complain_overflow_signed
3328                                     : complain_overflow_bitfield);
3329       howto.special_function = NULL;
3330       howto.name = "internal";
3331       howto.partial_inplace = TRUE;
3332       howto.src_mask = howto.dst_mask = N_ONES (howto.bitsize);
3333       howto.pcrel_offset = FALSE;
3334
3335       /* symbol */
3336       val = 0;
3337       addend = 0;
3338       h = NULL;
3339       sym = NULL;
3340       symndx = rel->r_symndx;
3341
3342       if (-1 != symndx)
3343         {
3344           asection *sec;
3345
3346           h = obj_xcoff_sym_hashes (input_bfd)[symndx];
3347           sym = syms + symndx;
3348           addend = - sym->n_value;
3349
3350           if (NULL == h)
3351             {
3352               sec = sections[symndx];
3353               /* Hack to make sure we use the right TOC anchor value
3354                  if this reloc is against the TOC anchor.  */
3355               if (sec->name[3] == '0'
3356                   && strcmp (sec->name, ".tc0") == 0)
3357                 val = xcoff_data (output_bfd)->toc;
3358               else
3359                 val = (sec->output_section->vma
3360                        + sec->output_offset
3361                        + sym->n_value
3362                        - sec->vma);
3363             }
3364           else
3365             {
3366               if (info->unresolved_syms_in_objects != RM_IGNORE
3367                   && (h->flags & XCOFF_WAS_UNDEFINED) != 0)
3368                 {
3369                   if (! ((*info->callbacks->undefined_symbol)
3370                          (info, h->root.root.string,
3371                           input_bfd, input_section,
3372                           rel->r_vaddr - input_section->vma,
3373                           (info->unresolved_syms_in_objects
3374                            == RM_GENERATE_ERROR))))
3375                     return FALSE;
3376                 }
3377               if (h->root.type == bfd_link_hash_defined
3378                   || h->root.type == bfd_link_hash_defweak)
3379                 {
3380                   sec = h->root.u.def.section;
3381                   val = (h->root.u.def.value
3382                          + sec->output_section->vma
3383                          + sec->output_offset);
3384                 }
3385               else if (h->root.type == bfd_link_hash_common)
3386                 {
3387                   sec = h->root.u.c.p->section;
3388                   val = (sec->output_section->vma
3389                          + sec->output_offset);
3390
3391                 }
3392               else
3393                 {
3394                   BFD_ASSERT (info->relocatable
3395                               || (info->static_link
3396                                   && (h->flags & XCOFF_WAS_UNDEFINED) != 0)
3397                               || (h->flags & XCOFF_DEF_DYNAMIC) != 0
3398                               || (h->flags & XCOFF_IMPORT) != 0);
3399                 }
3400             }
3401         }
3402
3403       if (rel->r_type >= XCOFF_MAX_CALCULATE_RELOCATION
3404           || !((*xcoff_calculate_relocation[rel->r_type])
3405                (input_bfd, input_section, output_bfd, rel, sym, &howto, val,
3406                 addend, &relocation, contents)))
3407         return FALSE;
3408
3409       /* address */
3410       address = rel->r_vaddr - input_section->vma;
3411       location = contents + address;
3412
3413       if (address > input_section->size)
3414         abort ();
3415
3416       /* Get the value we are going to relocate.  */
3417       if (1 == howto.size)
3418         value_to_relocate = bfd_get_16 (input_bfd, location);
3419       else
3420         value_to_relocate = bfd_get_32 (input_bfd, location);
3421
3422       /* overflow.
3423
3424          FIXME: We may drop bits during the addition
3425          which we don't check for.  We must either check at every single
3426          operation, which would be tedious, or we must do the computations
3427          in a type larger than bfd_vma, which would be inefficient.  */
3428
3429       if ((unsigned int) howto.complain_on_overflow
3430           >= XCOFF_MAX_COMPLAIN_OVERFLOW)
3431         abort ();
3432
3433       if (((*xcoff_complain_overflow[howto.complain_on_overflow])
3434            (input_bfd, value_to_relocate, relocation, &howto)))
3435         {
3436           const char *name;
3437           char buf[SYMNMLEN + 1];
3438           char reloc_type_name[10];
3439
3440           if (symndx == -1)
3441             {
3442               name = "*ABS*";
3443             }
3444           else if (h != NULL)
3445             {
3446               name = NULL;
3447             }
3448           else
3449             {
3450               name = _bfd_coff_internal_syment_name (input_bfd, sym, buf);
3451               if (name == NULL)
3452                 name = "UNKNOWN";
3453             }
3454           sprintf (reloc_type_name, "0x%02x", rel->r_type);
3455
3456           if (! ((*info->callbacks->reloc_overflow)
3457                  (info, (h ? &h->root : NULL), name, reloc_type_name,
3458                   (bfd_vma) 0, input_bfd, input_section,
3459                   rel->r_vaddr - input_section->vma)))
3460             return FALSE;
3461         }
3462
3463       /* Add RELOCATION to the right bits of VALUE_TO_RELOCATE.  */
3464       value_to_relocate = ((value_to_relocate & ~howto.dst_mask)
3465                            | (((value_to_relocate & howto.src_mask)
3466                                + relocation) & howto.dst_mask));
3467
3468       /* Put the value back in the object file.  */
3469       if (1 == howto.size)
3470         bfd_put_16 (input_bfd, value_to_relocate, location);
3471       else
3472         bfd_put_32 (input_bfd, value_to_relocate, location);
3473     }
3474
3475   return TRUE;
3476 }
3477
3478 static bfd_boolean
3479 _bfd_xcoff_put_ldsymbol_name (bfd *abfd ATTRIBUTE_UNUSED,
3480                               struct xcoff_loader_info *ldinfo,
3481                               struct internal_ldsym *ldsym,
3482                               const char *name)
3483 {
3484   size_t len;
3485   len = strlen (name);
3486
3487   if (len <= SYMNMLEN)
3488     strncpy (ldsym->_l._l_name, name, SYMNMLEN);
3489   else
3490     {
3491       if (ldinfo->string_size + len + 3 > ldinfo->string_alc)
3492         {
3493           bfd_size_type newalc;
3494           char *newstrings;
3495
3496           newalc = ldinfo->string_alc * 2;
3497           if (newalc == 0)
3498             newalc = 32;
3499           while (ldinfo->string_size + len + 3 > newalc)
3500             newalc *= 2;
3501
3502           newstrings = bfd_realloc (ldinfo->strings, newalc);
3503           if (newstrings == NULL)
3504             {
3505               ldinfo->failed = TRUE;
3506               return FALSE;
3507             }
3508           ldinfo->string_alc = newalc;
3509           ldinfo->strings = newstrings;
3510         }
3511
3512       bfd_put_16 (ldinfo->output_bfd, (bfd_vma) (len + 1),
3513                   ldinfo->strings + ldinfo->string_size);
3514       strcpy (ldinfo->strings + ldinfo->string_size + 2, name);
3515       ldsym->_l._l_l._l_zeroes = 0;
3516       ldsym->_l._l_l._l_offset = ldinfo->string_size + 2;
3517       ldinfo->string_size += len + 3;
3518     }
3519
3520   return TRUE;
3521 }
3522
3523 static bfd_boolean
3524 _bfd_xcoff_put_symbol_name (bfd *abfd, struct bfd_strtab_hash *strtab,
3525                             struct internal_syment *sym,
3526                             const char *name)
3527 {
3528   if (strlen (name) <= SYMNMLEN)
3529     {
3530       strncpy (sym->_n._n_name, name, SYMNMLEN);
3531     }
3532   else
3533     {
3534       bfd_boolean hash;
3535       bfd_size_type indx;
3536
3537       hash = TRUE;
3538       if ((abfd->flags & BFD_TRADITIONAL_FORMAT) != 0)
3539         hash = FALSE;
3540       indx = _bfd_stringtab_add (strtab, name, hash, FALSE);
3541       if (indx == (bfd_size_type) -1)
3542         return FALSE;
3543       sym->_n._n_n._n_zeroes = 0;
3544       sym->_n._n_n._n_offset = STRING_SIZE_SIZE + indx;
3545     }
3546   return TRUE;
3547 }
3548
3549 static asection *
3550 xcoff_create_csect_from_smclas (bfd *abfd,
3551                                 union internal_auxent *aux,
3552                                 const char *symbol_name)
3553 {
3554   asection *return_value = NULL;
3555
3556   /* .sv64 = x_smclas == 17
3557      This is an invalid csect for 32 bit apps.  */
3558   static const char *names[19] =
3559   {
3560     ".pr", ".ro", ".db", ".tc", ".ua", ".rw", ".gl", ".xo",
3561     ".sv", ".bs", ".ds", ".uc", ".ti", ".tb", NULL, ".tc0",
3562     ".td", NULL, ".sv3264"
3563   };
3564
3565   if ((19 >= aux->x_csect.x_smclas)
3566       && (NULL != names[aux->x_csect.x_smclas]))
3567     {
3568       return_value = bfd_make_section_anyway
3569         (abfd, names[aux->x_csect.x_smclas]);
3570     }
3571   else
3572     {
3573       (*_bfd_error_handler)
3574         (_("%B: symbol `%s' has unrecognized smclas %d"),
3575          abfd, symbol_name, aux->x_csect.x_smclas);
3576       bfd_set_error (bfd_error_bad_value);
3577     }
3578
3579   return return_value;
3580 }
3581
3582 static bfd_boolean
3583 xcoff_is_lineno_count_overflow (bfd *abfd ATTRIBUTE_UNUSED, bfd_vma value)
3584 {
3585   if (0xffff <= value)
3586     return TRUE;
3587
3588   return FALSE;
3589 }
3590
3591 static bfd_boolean
3592 xcoff_is_reloc_count_overflow (bfd *abfd ATTRIBUTE_UNUSED, bfd_vma value)
3593 {
3594   if (0xffff <= value)
3595     return TRUE;
3596
3597   return FALSE;
3598 }
3599
3600 static bfd_vma
3601 xcoff_loader_symbol_offset (bfd *abfd,
3602                             struct internal_ldhdr *ldhdr ATTRIBUTE_UNUSED)
3603 {
3604   return bfd_xcoff_ldhdrsz (abfd);
3605 }
3606
3607 static bfd_vma
3608 xcoff_loader_reloc_offset (bfd *abfd, struct internal_ldhdr *ldhdr)
3609 {
3610   return bfd_xcoff_ldhdrsz (abfd) + ldhdr->l_nsyms * bfd_xcoff_ldsymsz (abfd);
3611 }
3612
3613 static bfd_boolean
3614 xcoff_generate_rtinit  (bfd *abfd, const char *init, const char *fini,
3615                         bfd_boolean rtld)
3616 {
3617   bfd_byte filehdr_ext[FILHSZ];
3618   bfd_byte scnhdr_ext[SCNHSZ];
3619   bfd_byte syment_ext[SYMESZ * 10];
3620   bfd_byte reloc_ext[RELSZ * 3];
3621   bfd_byte *data_buffer;
3622   bfd_size_type data_buffer_size;
3623   bfd_byte *string_table = NULL, *st_tmp = NULL;
3624   bfd_size_type string_table_size;
3625   bfd_vma val;
3626   size_t initsz, finisz;
3627   struct internal_filehdr filehdr;
3628   struct internal_scnhdr scnhdr;
3629   struct internal_syment syment;
3630   union internal_auxent auxent;
3631   struct internal_reloc reloc;
3632
3633   char *data_name = ".data";
3634   char *rtinit_name = "__rtinit";
3635   char *rtld_name = "__rtld";
3636
3637   if (! bfd_xcoff_rtinit_size (abfd))
3638     return FALSE;
3639
3640   initsz = (init == NULL ? 0 : 1 + strlen (init));
3641   finisz = (fini == NULL ? 0 : 1 + strlen (fini));
3642
3643   /* file header */
3644   memset (filehdr_ext, 0, FILHSZ);
3645   memset (&filehdr, 0, sizeof (struct internal_filehdr));
3646   filehdr.f_magic = bfd_xcoff_magic_number (abfd);
3647   filehdr.f_nscns = 1;
3648   filehdr.f_timdat = 0;
3649   filehdr.f_nsyms = 0;  /* at least 6, no more than 10 */
3650   filehdr.f_symptr = 0; /* set below */
3651   filehdr.f_opthdr = 0;
3652   filehdr.f_flags = 0;
3653
3654   /* section header */
3655   memset (scnhdr_ext, 0, SCNHSZ);
3656   memset (&scnhdr, 0, sizeof (struct internal_scnhdr));
3657   memcpy (scnhdr.s_name, data_name, strlen (data_name));
3658   scnhdr.s_paddr = 0;
3659   scnhdr.s_vaddr = 0;
3660   scnhdr.s_size = 0;    /* set below */
3661   scnhdr.s_scnptr = FILHSZ + SCNHSZ;
3662   scnhdr.s_relptr = 0;  /* set below */
3663   scnhdr.s_lnnoptr = 0;
3664   scnhdr.s_nreloc = 0;  /* either 1 or 2 */
3665   scnhdr.s_nlnno = 0;
3666   scnhdr.s_flags = STYP_DATA;
3667
3668   /* .data
3669      0x0000           0x00000000 : rtl
3670      0x0004           0x00000010 : offset to init, or 0
3671      0x0008           0x00000028 : offset to fini, or 0
3672      0x000C           0x0000000C : size of descriptor
3673      0x0010           0x00000000 : init, needs a reloc
3674      0x0014           0x00000040 : offset to init name
3675      0x0018           0x00000000 : flags, padded to a word
3676      0x001C           0x00000000 : empty init
3677      0x0020           0x00000000 :
3678      0x0024           0x00000000 :
3679      0x0028           0x00000000 : fini, needs a reloc
3680      0x002C           0x00000??? : offset to fini name
3681      0x0030           0x00000000 : flags, padded to a word
3682      0x0034           0x00000000 : empty fini
3683      0x0038           0x00000000 :
3684      0x003C           0x00000000 :
3685      0x0040           init name
3686      0x0040 + initsz  fini name */
3687
3688   data_buffer_size = 0x0040 + initsz + finisz;
3689   data_buffer_size = (data_buffer_size + 7) &~ (bfd_size_type) 7;
3690   data_buffer = NULL;
3691   data_buffer = (bfd_byte *) bfd_zmalloc (data_buffer_size);
3692   if (data_buffer == NULL)
3693     return FALSE;
3694
3695   if (initsz)
3696     {
3697       val = 0x10;
3698       bfd_h_put_32 (abfd, val, &data_buffer[0x04]);
3699       val = 0x40;
3700       bfd_h_put_32 (abfd, val, &data_buffer[0x14]);
3701       memcpy (&data_buffer[val], init, initsz);
3702     }
3703
3704   if (finisz)
3705     {
3706       val = 0x28;
3707       bfd_h_put_32 (abfd, val, &data_buffer[0x08]);
3708       val = 0x40 + initsz;
3709       bfd_h_put_32 (abfd, val, &data_buffer[0x2C]);
3710       memcpy (&data_buffer[val], fini, finisz);
3711     }
3712
3713   val = 0x0C;
3714   bfd_h_put_32 (abfd, val, &data_buffer[0x0C]);
3715
3716   scnhdr.s_size = data_buffer_size;
3717
3718   /* string table */
3719   string_table_size = 0;
3720   if (initsz > 9)
3721     string_table_size += initsz;
3722   if (finisz > 9)
3723     string_table_size += finisz;
3724   if (string_table_size)
3725     {
3726       string_table_size += 4;
3727       string_table = (bfd_byte *) bfd_zmalloc (string_table_size);
3728       if (string_table == NULL)
3729         return FALSE;
3730
3731       val = string_table_size;
3732       bfd_h_put_32 (abfd, val, &string_table[0]);
3733       st_tmp = string_table + 4;
3734     }
3735
3736   /* symbols
3737      0. .data csect
3738      2. __rtinit
3739      4. init function
3740      6. fini function
3741      8. __rtld  */
3742   memset (syment_ext, 0, 10 * SYMESZ);
3743   memset (reloc_ext, 0, 3 * RELSZ);
3744
3745   /* .data csect */
3746   memset (&syment, 0, sizeof (struct internal_syment));
3747   memset (&auxent, 0, sizeof (union internal_auxent));
3748   memcpy (syment._n._n_name, data_name, strlen (data_name));
3749   syment.n_scnum = 1;
3750   syment.n_sclass = C_HIDEXT;
3751   syment.n_numaux = 1;
3752   auxent.x_csect.x_scnlen.l = data_buffer_size;
3753   auxent.x_csect.x_smtyp = 3 << 3 | XTY_SD;
3754   auxent.x_csect.x_smclas = XMC_RW;
3755   bfd_coff_swap_sym_out (abfd, &syment,
3756                          &syment_ext[filehdr.f_nsyms * SYMESZ]);
3757   bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
3758                          syment.n_numaux,
3759                          &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
3760   filehdr.f_nsyms += 2;
3761
3762   /* __rtinit */
3763   memset (&syment, 0, sizeof (struct internal_syment));
3764   memset (&auxent, 0, sizeof (union internal_auxent));
3765   memcpy (syment._n._n_name, rtinit_name, strlen (rtinit_name));
3766   syment.n_scnum = 1;
3767   syment.n_sclass = C_EXT;
3768   syment.n_numaux = 1;
3769   auxent.x_csect.x_smtyp = XTY_LD;
3770   auxent.x_csect.x_smclas = XMC_RW;
3771   bfd_coff_swap_sym_out (abfd, &syment,
3772                          &syment_ext[filehdr.f_nsyms * SYMESZ]);
3773   bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
3774                          syment.n_numaux,
3775                          &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
3776   filehdr.f_nsyms += 2;
3777
3778   /* init */
3779   if (initsz)
3780     {
3781       memset (&syment, 0, sizeof (struct internal_syment));
3782       memset (&auxent, 0, sizeof (union internal_auxent));
3783
3784       if (initsz > 9)
3785         {
3786           syment._n._n_n._n_offset = st_tmp - string_table;
3787           memcpy (st_tmp, init, initsz);
3788           st_tmp += initsz;
3789         }
3790       else
3791         memcpy (syment._n._n_name, init, initsz - 1);
3792
3793       syment.n_sclass = C_EXT;
3794       syment.n_numaux = 1;
3795       bfd_coff_swap_sym_out (abfd, &syment,
3796                              &syment_ext[filehdr.f_nsyms * SYMESZ]);
3797       bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
3798                              syment.n_numaux,
3799                              &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
3800
3801       /* reloc */
3802       memset (&reloc, 0, sizeof (struct internal_reloc));
3803       reloc.r_vaddr = 0x0010;
3804       reloc.r_symndx = filehdr.f_nsyms;
3805       reloc.r_type = R_POS;
3806       reloc.r_size = 31;
3807       bfd_coff_swap_reloc_out (abfd, &reloc, &reloc_ext[0]);
3808
3809       filehdr.f_nsyms += 2;
3810       scnhdr.s_nreloc += 1;
3811     }
3812
3813   /* fini */
3814   if (finisz)
3815     {
3816       memset (&syment, 0, sizeof (struct internal_syment));
3817       memset (&auxent, 0, sizeof (union internal_auxent));
3818
3819       if (finisz > 9)
3820         {
3821           syment._n._n_n._n_offset = st_tmp - string_table;
3822           memcpy (st_tmp, fini, finisz);
3823           st_tmp += finisz;
3824         }
3825       else
3826         memcpy (syment._n._n_name, fini, finisz - 1);
3827
3828       syment.n_sclass = C_EXT;
3829       syment.n_numaux = 1;
3830       bfd_coff_swap_sym_out (abfd, &syment,
3831                              &syment_ext[filehdr.f_nsyms * SYMESZ]);
3832       bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
3833                              syment.n_numaux,
3834                              &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
3835
3836       /* reloc */
3837       memset (&reloc, 0, sizeof (struct internal_reloc));
3838       reloc.r_vaddr = 0x0028;
3839       reloc.r_symndx = filehdr.f_nsyms;
3840       reloc.r_type = R_POS;
3841       reloc.r_size = 31;
3842       bfd_coff_swap_reloc_out (abfd, &reloc,
3843                                &reloc_ext[scnhdr.s_nreloc * RELSZ]);
3844
3845       filehdr.f_nsyms += 2;
3846       scnhdr.s_nreloc += 1;
3847     }
3848
3849   if (rtld)
3850     {
3851       memset (&syment, 0, sizeof (struct internal_syment));
3852       memset (&auxent, 0, sizeof (union internal_auxent));
3853       memcpy (syment._n._n_name, rtld_name, strlen (rtld_name));
3854       syment.n_sclass = C_EXT;
3855       syment.n_numaux = 1;
3856       bfd_coff_swap_sym_out (abfd, &syment,
3857                              &syment_ext[filehdr.f_nsyms * SYMESZ]);
3858       bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
3859                              syment.n_numaux,
3860                              &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
3861
3862       /* reloc */
3863       memset (&reloc, 0, sizeof (struct internal_reloc));
3864       reloc.r_vaddr = 0x0000;
3865       reloc.r_symndx = filehdr.f_nsyms;
3866       reloc.r_type = R_POS;
3867       reloc.r_size = 31;
3868       bfd_coff_swap_reloc_out (abfd, &reloc,
3869                                &reloc_ext[scnhdr.s_nreloc * RELSZ]);
3870
3871       filehdr.f_nsyms += 2;
3872       scnhdr.s_nreloc += 1;
3873     }
3874
3875   scnhdr.s_relptr = scnhdr.s_scnptr + data_buffer_size;
3876   filehdr.f_symptr = scnhdr.s_relptr + scnhdr.s_nreloc * RELSZ;
3877
3878   bfd_coff_swap_filehdr_out (abfd, &filehdr, filehdr_ext);
3879   bfd_bwrite (filehdr_ext, FILHSZ, abfd);
3880   bfd_coff_swap_scnhdr_out (abfd, &scnhdr, scnhdr_ext);
3881   bfd_bwrite (scnhdr_ext, SCNHSZ, abfd);
3882   bfd_bwrite (data_buffer, data_buffer_size, abfd);
3883   bfd_bwrite (reloc_ext, scnhdr.s_nreloc * RELSZ, abfd);
3884   bfd_bwrite (syment_ext, filehdr.f_nsyms * SYMESZ, abfd);
3885   bfd_bwrite (string_table, string_table_size, abfd);
3886
3887   free (data_buffer);
3888   data_buffer = NULL;
3889
3890   return TRUE;
3891 }
3892
3893
3894 static reloc_howto_type xcoff_dynamic_reloc =
3895 HOWTO (0,                       /* type */
3896        0,                       /* rightshift */
3897        2,                       /* size (0 = byte, 1 = short, 2 = long) */
3898        32,                      /* bitsize */
3899        FALSE,                   /* pc_relative */
3900        0,                       /* bitpos */
3901        complain_overflow_bitfield, /* complain_on_overflow */
3902        0,                       /* special_function */
3903        "R_POS",                 /* name */
3904        TRUE,                    /* partial_inplace */
3905        0xffffffff,              /* src_mask */
3906        0xffffffff,              /* dst_mask */
3907        FALSE);                  /* pcrel_offset */
3908
3909 /*  glink
3910
3911    The first word of global linkage code must be modified by filling in
3912    the correct TOC offset.  */
3913
3914 static unsigned long xcoff_glink_code[9] =
3915   {
3916     0x81820000, /* lwz r12,0(r2) */
3917     0x90410014, /* stw r2,20(r1) */
3918     0x800c0000, /* lwz r0,0(r12) */
3919     0x804c0004, /* lwz r2,4(r12) */
3920     0x7c0903a6, /* mtctr r0 */
3921     0x4e800420, /* bctr */
3922     0x00000000, /* start of traceback table */
3923     0x000c8000, /* traceback table */
3924     0x00000000, /* traceback table */
3925   };
3926
3927 /* Table to convert DWARF flags to section names.  */
3928
3929 const struct xcoff_dwsect_name xcoff_dwsect_names[] = {
3930   { SSUBTYP_DWINFO,  ".dwinfo",   TRUE },
3931   { SSUBTYP_DWLINE,  ".dwline",   TRUE },
3932   { SSUBTYP_DWPBNMS, ".dwpbnms",  TRUE },
3933   { SSUBTYP_DWPBTYP, ".dwpbtyp",  TRUE },
3934   { SSUBTYP_DWARNGE, ".dwarnge",  TRUE },
3935   { SSUBTYP_DWABREV, ".dwabrev",  FALSE },
3936   { SSUBTYP_DWSTR,   ".dwstr",    TRUE },
3937   { SSUBTYP_DWRNGES, ".dwrnges",  TRUE }
3938 };
3939
3940 static const struct xcoff_backend_data_rec bfd_xcoff_backend_data =
3941   {
3942     { /* COFF backend, defined in libcoff.h.  */
3943       _bfd_xcoff_swap_aux_in,
3944       _bfd_xcoff_swap_sym_in,
3945       coff_swap_lineno_in,
3946       _bfd_xcoff_swap_aux_out,
3947       _bfd_xcoff_swap_sym_out,
3948       coff_swap_lineno_out,
3949       xcoff_swap_reloc_out,
3950       coff_swap_filehdr_out,
3951       coff_swap_aouthdr_out,
3952       coff_swap_scnhdr_out,
3953       FILHSZ,
3954       AOUTSZ,
3955       SCNHSZ,
3956       SYMESZ,
3957       AUXESZ,
3958       RELSZ,
3959       LINESZ,
3960       FILNMLEN,
3961       TRUE,                     /* _bfd_coff_long_filenames */
3962       XCOFF_NO_LONG_SECTION_NAMES,  /* _bfd_coff_long_section_names */
3963       3,                        /* _bfd_coff_default_section_alignment_power */
3964       FALSE,                    /* _bfd_coff_force_symnames_in_strings */
3965       2,                        /* _bfd_coff_debug_string_prefix_length */
3966       coff_swap_filehdr_in,
3967       coff_swap_aouthdr_in,
3968       coff_swap_scnhdr_in,
3969       xcoff_swap_reloc_in,
3970       coff_bad_format_hook,
3971       coff_set_arch_mach_hook,
3972       coff_mkobject_hook,
3973       styp_to_sec_flags,
3974       coff_set_alignment_hook,
3975       coff_slurp_symbol_table,
3976       symname_in_debug_hook,
3977       coff_pointerize_aux_hook,
3978       coff_print_aux,
3979       dummy_reloc16_extra_cases,
3980       dummy_reloc16_estimate,
3981       NULL,                     /* bfd_coff_sym_is_global */
3982       coff_compute_section_file_positions,
3983       NULL,                     /* _bfd_coff_start_final_link */
3984       xcoff_ppc_relocate_section,
3985       coff_rtype_to_howto,
3986       NULL,                     /* _bfd_coff_adjust_symndx */
3987       _bfd_generic_link_add_one_symbol,
3988       coff_link_output_has_begun,
3989       coff_final_link_postscript,
3990       NULL                      /* print_pdata.  */
3991     },
3992
3993     0x01DF,                     /* magic number */
3994     bfd_arch_rs6000,
3995     bfd_mach_rs6k,
3996
3997     /* Function pointers to xcoff specific swap routines.  */
3998     xcoff_swap_ldhdr_in,
3999     xcoff_swap_ldhdr_out,
4000     xcoff_swap_ldsym_in,
4001     xcoff_swap_ldsym_out,
4002     xcoff_swap_ldrel_in,
4003     xcoff_swap_ldrel_out,
4004
4005     /* Sizes.  */
4006     LDHDRSZ,
4007     LDSYMSZ,
4008     LDRELSZ,
4009     12,                         /* _xcoff_function_descriptor_size */
4010     SMALL_AOUTSZ,
4011
4012     /* Versions.  */
4013     1,                          /* _xcoff_ldhdr_version */
4014
4015     _bfd_xcoff_put_symbol_name,
4016     _bfd_xcoff_put_ldsymbol_name,
4017     &xcoff_dynamic_reloc,
4018     xcoff_create_csect_from_smclas,
4019
4020     /* Lineno and reloc count overflow.  */
4021     xcoff_is_lineno_count_overflow,
4022     xcoff_is_reloc_count_overflow,
4023
4024     xcoff_loader_symbol_offset,
4025     xcoff_loader_reloc_offset,
4026
4027     /* glink.  */
4028     &xcoff_glink_code[0],
4029     36,                         /* _xcoff_glink_size */
4030
4031     /* rtinit */
4032     64,                         /* _xcoff_rtinit_size */
4033     xcoff_generate_rtinit,
4034   };
4035
4036 /* The transfer vector that leads the outside world to all of the above.  */
4037 const bfd_target rs6000coff_vec =
4038   {
4039     "aixcoff-rs6000",
4040     bfd_target_xcoff_flavour,
4041     BFD_ENDIAN_BIG,             /* data byte order is big */
4042     BFD_ENDIAN_BIG,             /* header byte order is big */
4043
4044     (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | DYNAMIC
4045      | HAS_SYMS | HAS_LOCALS | WP_TEXT),
4046
4047     SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA,
4048     0,                          /* leading char */
4049     '/',                        /* ar_pad_char */
4050     15,                         /* ar_max_namelen */
4051     0,                          /* match priority.  */
4052
4053     /* data */
4054     bfd_getb64,
4055     bfd_getb_signed_64,
4056     bfd_putb64,
4057     bfd_getb32,
4058     bfd_getb_signed_32,
4059     bfd_putb32,
4060     bfd_getb16,
4061     bfd_getb_signed_16,
4062     bfd_putb16,
4063
4064     /* hdrs */
4065     bfd_getb64,
4066     bfd_getb_signed_64,
4067     bfd_putb64,
4068     bfd_getb32,
4069     bfd_getb_signed_32,
4070     bfd_putb32,
4071     bfd_getb16,
4072     bfd_getb_signed_16,
4073     bfd_putb16,
4074
4075     { /* bfd_check_format */
4076       _bfd_dummy_target,
4077       coff_object_p,
4078       _bfd_xcoff_archive_p,
4079       CORE_FILE_P
4080     },
4081
4082     { /* bfd_set_format */
4083       bfd_false,
4084       coff_mkobject,
4085       _bfd_generic_mkarchive,
4086       bfd_false
4087     },
4088
4089     {/* bfd_write_contents */
4090       bfd_false,
4091       coff_write_object_contents,
4092       _bfd_xcoff_write_archive_contents,
4093       bfd_false
4094     },
4095
4096     /* Generic */
4097     _bfd_archive_close_and_cleanup,
4098     bfd_true,
4099     coff_new_section_hook,
4100     _bfd_generic_get_section_contents,
4101     _bfd_generic_get_section_contents_in_window,
4102
4103     /* Copy */
4104     _bfd_xcoff_copy_private_bfd_data,
4105     _bfd_generic_bfd_merge_private_bfd_data,
4106     _bfd_generic_init_private_section_data,
4107     _bfd_generic_bfd_copy_private_section_data,
4108     _bfd_generic_bfd_copy_private_symbol_data,
4109     _bfd_generic_bfd_copy_private_header_data,
4110     _bfd_generic_bfd_set_private_flags,
4111     _bfd_generic_bfd_print_private_bfd_data,
4112
4113     /* Core */
4114     BFD_JUMP_TABLE_CORE (coff),
4115
4116     /* Archive */
4117     _bfd_xcoff_slurp_armap,
4118     _bfd_noarchive_slurp_extended_name_table,
4119     _bfd_noarchive_construct_extended_name_table,
4120     bfd_dont_truncate_arname,
4121     _bfd_xcoff_write_armap,
4122     _bfd_xcoff_read_ar_hdr,
4123     _bfd_generic_write_ar_hdr,
4124     _bfd_xcoff_openr_next_archived_file,
4125     _bfd_generic_get_elt_at_index,
4126     _bfd_xcoff_stat_arch_elt,
4127     bfd_true,
4128
4129     /* Symbols */
4130     coff_get_symtab_upper_bound,
4131     coff_canonicalize_symtab,
4132     coff_make_empty_symbol,
4133     coff_print_symbol,
4134     coff_get_symbol_info,
4135     _bfd_xcoff_is_local_label_name,
4136     coff_bfd_is_target_special_symbol,
4137     coff_get_lineno,
4138     xcoff_find_nearest_line,
4139     xcoff_find_nearest_line_discriminator,
4140     _bfd_generic_find_line,
4141     coff_find_inliner_info,
4142     coff_bfd_make_debug_symbol,
4143     _bfd_generic_read_minisymbols,
4144     _bfd_generic_minisymbol_to_symbol,
4145
4146     /* Reloc */
4147     coff_get_reloc_upper_bound,
4148     coff_canonicalize_reloc,
4149     _bfd_xcoff_reloc_type_lookup,
4150     _bfd_xcoff_reloc_name_lookup,
4151
4152     /* Write */
4153     coff_set_arch_mach,
4154     coff_set_section_contents,
4155
4156     /* Link */
4157     _bfd_xcoff_sizeof_headers,
4158     bfd_generic_get_relocated_section_contents,
4159     bfd_generic_relax_section,
4160     _bfd_xcoff_bfd_link_hash_table_create,
4161     _bfd_generic_link_hash_table_free,
4162     _bfd_xcoff_bfd_link_add_symbols,
4163     _bfd_generic_link_just_syms,
4164     _bfd_generic_copy_link_hash_symbol_type,
4165     _bfd_xcoff_bfd_final_link,
4166     _bfd_generic_link_split_section,
4167     bfd_generic_gc_sections,
4168     bfd_generic_lookup_section_flags,
4169     bfd_generic_merge_sections,
4170     bfd_generic_is_group_section,
4171     bfd_generic_discard_group,
4172     _bfd_generic_section_already_linked,
4173     _bfd_xcoff_define_common_symbol,
4174
4175     /* Dynamic */
4176     _bfd_xcoff_get_dynamic_symtab_upper_bound,
4177     _bfd_xcoff_canonicalize_dynamic_symtab,
4178     _bfd_nodynamic_get_synthetic_symtab,
4179     _bfd_xcoff_get_dynamic_reloc_upper_bound,
4180     _bfd_xcoff_canonicalize_dynamic_reloc,
4181
4182     /* Opposite endian version, none exists */
4183     NULL,
4184
4185     & bfd_xcoff_backend_data,
4186   };
4187
4188 /* xcoff-powermac target
4189    Old target.
4190    Only difference between this target and the rs6000 target is the
4191    the default architecture and machine type used in coffcode.h
4192
4193    PowerPC Macs use the same magic numbers as RS/6000
4194    (because that's how they were bootstrapped originally),
4195    but they are always PowerPC architecture.  */
4196 static const struct xcoff_backend_data_rec bfd_pmac_xcoff_backend_data =
4197   {
4198     { /* COFF backend, defined in libcoff.h.  */
4199       _bfd_xcoff_swap_aux_in,
4200       _bfd_xcoff_swap_sym_in,
4201       coff_swap_lineno_in,
4202       _bfd_xcoff_swap_aux_out,
4203       _bfd_xcoff_swap_sym_out,
4204       coff_swap_lineno_out,
4205       xcoff_swap_reloc_out,
4206       coff_swap_filehdr_out,
4207       coff_swap_aouthdr_out,
4208       coff_swap_scnhdr_out,
4209       FILHSZ,
4210       AOUTSZ,
4211       SCNHSZ,
4212       SYMESZ,
4213       AUXESZ,
4214       RELSZ,
4215       LINESZ,
4216       FILNMLEN,
4217       TRUE,                     /* _bfd_coff_long_filenames */
4218       XCOFF_NO_LONG_SECTION_NAMES,  /* _bfd_coff_long_section_names */
4219       3,                        /* _bfd_coff_default_section_alignment_power */
4220       FALSE,                    /* _bfd_coff_force_symnames_in_strings */
4221       2,                        /* _bfd_coff_debug_string_prefix_length */
4222       coff_swap_filehdr_in,
4223       coff_swap_aouthdr_in,
4224       coff_swap_scnhdr_in,
4225       xcoff_swap_reloc_in,
4226       coff_bad_format_hook,
4227       coff_set_arch_mach_hook,
4228       coff_mkobject_hook,
4229       styp_to_sec_flags,
4230       coff_set_alignment_hook,
4231       coff_slurp_symbol_table,
4232       symname_in_debug_hook,
4233       coff_pointerize_aux_hook,
4234       coff_print_aux,
4235       dummy_reloc16_extra_cases,
4236       dummy_reloc16_estimate,
4237       NULL,                     /* bfd_coff_sym_is_global */
4238       coff_compute_section_file_positions,
4239       NULL,                     /* _bfd_coff_start_final_link */
4240       xcoff_ppc_relocate_section,
4241       coff_rtype_to_howto,
4242       NULL,                     /* _bfd_coff_adjust_symndx */
4243       _bfd_generic_link_add_one_symbol,
4244       coff_link_output_has_begun,
4245       coff_final_link_postscript,
4246       NULL                      /* print_pdata.  */
4247     },
4248
4249     0x01DF,                     /* magic number */
4250     bfd_arch_powerpc,
4251     bfd_mach_ppc,
4252
4253     /* Function pointers to xcoff specific swap routines.  */
4254     xcoff_swap_ldhdr_in,
4255     xcoff_swap_ldhdr_out,
4256     xcoff_swap_ldsym_in,
4257     xcoff_swap_ldsym_out,
4258     xcoff_swap_ldrel_in,
4259     xcoff_swap_ldrel_out,
4260
4261     /* Sizes.  */
4262     LDHDRSZ,
4263     LDSYMSZ,
4264     LDRELSZ,
4265     12,                         /* _xcoff_function_descriptor_size */
4266     SMALL_AOUTSZ,
4267
4268     /* Versions.  */
4269     1,                          /* _xcoff_ldhdr_version */
4270
4271     _bfd_xcoff_put_symbol_name,
4272     _bfd_xcoff_put_ldsymbol_name,
4273     &xcoff_dynamic_reloc,
4274     xcoff_create_csect_from_smclas,
4275
4276     /* Lineno and reloc count overflow.  */
4277     xcoff_is_lineno_count_overflow,
4278     xcoff_is_reloc_count_overflow,
4279
4280     xcoff_loader_symbol_offset,
4281     xcoff_loader_reloc_offset,
4282
4283     /* glink.  */
4284     &xcoff_glink_code[0],
4285     36,                         /* _xcoff_glink_size */
4286
4287     /* rtinit */
4288     0,                          /* _xcoff_rtinit_size */
4289     xcoff_generate_rtinit,
4290   };
4291
4292 /* The transfer vector that leads the outside world to all of the above.  */
4293 const bfd_target pmac_xcoff_vec =
4294   {
4295     "xcoff-powermac",
4296     bfd_target_xcoff_flavour,
4297     BFD_ENDIAN_BIG,             /* data byte order is big */
4298     BFD_ENDIAN_BIG,             /* header byte order is big */
4299
4300     (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | DYNAMIC
4301      | HAS_SYMS | HAS_LOCALS | WP_TEXT),
4302
4303     SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA,
4304     0,                          /* leading char */
4305     '/',                        /* ar_pad_char */
4306     15,                         /* ar_max_namelen */
4307     0,                          /* match priority.  */
4308
4309     /* data */
4310     bfd_getb64,
4311     bfd_getb_signed_64,
4312     bfd_putb64,
4313     bfd_getb32,
4314     bfd_getb_signed_32,
4315     bfd_putb32,
4316     bfd_getb16,
4317     bfd_getb_signed_16,
4318     bfd_putb16,
4319
4320     /* hdrs */
4321     bfd_getb64,
4322     bfd_getb_signed_64,
4323     bfd_putb64,
4324     bfd_getb32,
4325     bfd_getb_signed_32,
4326     bfd_putb32,
4327     bfd_getb16,
4328     bfd_getb_signed_16,
4329     bfd_putb16,
4330
4331     { /* bfd_check_format */
4332       _bfd_dummy_target,
4333       coff_object_p,
4334       _bfd_xcoff_archive_p,
4335       CORE_FILE_P
4336     },
4337
4338     { /* bfd_set_format */
4339       bfd_false,
4340       coff_mkobject,
4341       _bfd_generic_mkarchive,
4342       bfd_false
4343     },
4344
4345     {/* bfd_write_contents */
4346       bfd_false,
4347       coff_write_object_contents,
4348       _bfd_xcoff_write_archive_contents,
4349       bfd_false
4350     },
4351
4352     /* Generic */
4353     _bfd_archive_close_and_cleanup,
4354     bfd_true,
4355     coff_new_section_hook,
4356     _bfd_generic_get_section_contents,
4357     _bfd_generic_get_section_contents_in_window,
4358
4359     /* Copy */
4360     _bfd_xcoff_copy_private_bfd_data,
4361     _bfd_generic_bfd_merge_private_bfd_data,
4362     _bfd_generic_init_private_section_data,
4363     _bfd_generic_bfd_copy_private_section_data,
4364     _bfd_generic_bfd_copy_private_symbol_data,
4365     _bfd_generic_bfd_copy_private_header_data,
4366     _bfd_generic_bfd_set_private_flags,
4367     _bfd_generic_bfd_print_private_bfd_data,
4368
4369     /* Core */
4370     BFD_JUMP_TABLE_CORE (coff),
4371
4372     /* Archive */
4373     _bfd_xcoff_slurp_armap,
4374     _bfd_noarchive_slurp_extended_name_table,
4375     _bfd_noarchive_construct_extended_name_table,
4376     bfd_dont_truncate_arname,
4377     _bfd_xcoff_write_armap,
4378     _bfd_xcoff_read_ar_hdr,
4379     _bfd_generic_write_ar_hdr,
4380     _bfd_xcoff_openr_next_archived_file,
4381     _bfd_generic_get_elt_at_index,
4382     _bfd_xcoff_stat_arch_elt,
4383     bfd_true,
4384
4385     /* Symbols */
4386     coff_get_symtab_upper_bound,
4387     coff_canonicalize_symtab,
4388     coff_make_empty_symbol,
4389     coff_print_symbol,
4390     coff_get_symbol_info,
4391     _bfd_xcoff_is_local_label_name,
4392     coff_bfd_is_target_special_symbol,
4393     coff_get_lineno,
4394     xcoff_find_nearest_line,
4395     _bfd_generic_find_nearest_line_discriminator,
4396     _bfd_generic_find_line,
4397     coff_find_inliner_info,
4398     coff_bfd_make_debug_symbol,
4399     _bfd_generic_read_minisymbols,
4400     _bfd_generic_minisymbol_to_symbol,
4401
4402     /* Reloc */
4403     coff_get_reloc_upper_bound,
4404     coff_canonicalize_reloc,
4405     _bfd_xcoff_reloc_type_lookup,
4406     _bfd_xcoff_reloc_name_lookup,
4407
4408     /* Write */
4409     coff_set_arch_mach,
4410     coff_set_section_contents,
4411
4412     /* Link */
4413     _bfd_xcoff_sizeof_headers,
4414     bfd_generic_get_relocated_section_contents,
4415     bfd_generic_relax_section,
4416     _bfd_xcoff_bfd_link_hash_table_create,
4417     _bfd_generic_link_hash_table_free,
4418     _bfd_xcoff_bfd_link_add_symbols,
4419     _bfd_generic_link_just_syms,
4420     _bfd_generic_copy_link_hash_symbol_type,
4421     _bfd_xcoff_bfd_final_link,
4422     _bfd_generic_link_split_section,
4423     bfd_generic_gc_sections,
4424     bfd_generic_lookup_section_flags,
4425     bfd_generic_merge_sections,
4426     bfd_generic_is_group_section,
4427     bfd_generic_discard_group,
4428     _bfd_generic_section_already_linked,
4429     _bfd_xcoff_define_common_symbol,
4430
4431     /* Dynamic */
4432     _bfd_xcoff_get_dynamic_symtab_upper_bound,
4433     _bfd_xcoff_canonicalize_dynamic_symtab,
4434     _bfd_nodynamic_get_synthetic_symtab,
4435     _bfd_xcoff_get_dynamic_reloc_upper_bound,
4436     _bfd_xcoff_canonicalize_dynamic_reloc,
4437
4438     /* Opposite endian version, none exists */
4439     NULL,
4440
4441     & bfd_pmac_xcoff_backend_data,
4442   };