]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - bfd/coff64-rs6000.c
projects / thirdparty / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Update year range in copyright notice of binutils files
[thirdparty/binutils-gdb.git] / bfd / coff64-rs6000.c
CommitLineData
7f6d05e8 1/* BFD back-end for IBM RS/6000 "XCOFF64" files.
250d07de 2 Copyright (C) 2000-2021 Free Software Foundation, Inc.
7f6d05e8
CP		 3 Written Clinton Popetz.
4 Contributed by Cygnus Support.
5
eb1e0e80 6 This file is part of BFD, the Binary File Descriptor library.
7f6d05e8 7
eb1e0e80
NC		 8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
cd123cb7 10 the Free Software Foundation; either version 3 of the License, or
eb1e0e80 11 (at your option) any later version.
7f6d05e8 12
eb1e0e80
NC		 13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
7f6d05e8 17
eb1e0e80
NC		 18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
cd123cb7
NC		 20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
21 MA 02110-1301, USA. */
7f6d05e8 22
7f6d05e8 23#include "sysdep.h"
3db64b00 24#include "bfd.h"
beb1bf64 25#include "bfdlink.h"
7f6d05e8
CP		 26#include "libbfd.h"
27#include "coff/internal.h"
beb1bf64 28#include "coff/xcoff.h"
7f6d05e8 29#include "coff/rs6k64.h"
dc810e39 30#include "libcoff.h"
beb1bf64 31#include "libxcoff.h"
7f6d05e8 32
dc810e39
AM		 33#define GET_FILEHDR_SYMPTR H_GET_64
34#define PUT_FILEHDR_SYMPTR H_PUT_64
35#define GET_AOUTHDR_DATA_START H_GET_64
36#define PUT_AOUTHDR_DATA_START H_PUT_64
37#define GET_AOUTHDR_TEXT_START H_GET_64
38#define PUT_AOUTHDR_TEXT_START H_PUT_64
39#define GET_AOUTHDR_TSIZE H_GET_64
40#define PUT_AOUTHDR_TSIZE H_PUT_64
41#define GET_AOUTHDR_DSIZE H_GET_64
42#define PUT_AOUTHDR_DSIZE H_PUT_64
43#define GET_AOUTHDR_BSIZE H_GET_64
44#define PUT_AOUTHDR_BSIZE H_PUT_64
45#define GET_AOUTHDR_ENTRY H_GET_64
46#define PUT_AOUTHDR_ENTRY H_PUT_64
47#define GET_SCNHDR_PADDR H_GET_64
48#define PUT_SCNHDR_PADDR H_PUT_64
49#define GET_SCNHDR_VADDR H_GET_64
50#define PUT_SCNHDR_VADDR H_PUT_64
51#define GET_SCNHDR_SIZE H_GET_64
52#define PUT_SCNHDR_SIZE H_PUT_64
53#define GET_SCNHDR_SCNPTR H_GET_64
54#define PUT_SCNHDR_SCNPTR H_PUT_64
55#define GET_SCNHDR_RELPTR H_GET_64
56#define PUT_SCNHDR_RELPTR H_PUT_64
57#define GET_SCNHDR_LNNOPTR H_GET_64
58#define PUT_SCNHDR_LNNOPTR H_PUT_64
59#define GET_SCNHDR_NRELOC H_GET_32
7f6d05e8 60#define MAX_SCNHDR_NRELOC 0xffffffff
dc810e39
AM		 61#define PUT_SCNHDR_NRELOC H_PUT_32
62#define GET_SCNHDR_NLNNO H_GET_32
7f6d05e8 63#define MAX_SCNHDR_NLNNO 0xffffffff
dc810e39
AM		 64#define PUT_SCNHDR_NLNNO H_PUT_32
65#define GET_RELOC_VADDR H_GET_64
66#define PUT_RELOC_VADDR H_PUT_64
7f6d05e8
CP		 67
68#define COFF_FORCE_SYMBOLS_IN_STRINGS
69#define COFF_DEBUG_STRING_WIDE_PREFIX
70
beb1bf64 71
dc810e39
AM		 72#define COFF_ADJUST_SCNHDR_OUT_POST(ABFD, INT, EXT) \
73 do \
74 { \
75 memset (((SCNHDR *) EXT)->s_pad, 0, \
76 sizeof (((SCNHDR *) EXT)->s_pad)); \
77 } \
78 while (0)
7f6d05e8
CP		 79
80#define NO_COFF_LINENOS
81
beb1bf64
TR		 82#define coff_SWAP_lineno_in _bfd_xcoff64_swap_lineno_in
83#define coff_SWAP_lineno_out _bfd_xcoff64_swap_lineno_out
7f6d05e8 84
b34976b6 85static void _bfd_xcoff64_swap_lineno_in
4964e065 86 (bfd *, void *, void *);
b34976b6 87static unsigned int _bfd_xcoff64_swap_lineno_out
4964e065 88 (bfd *, void *, void *);
b34976b6 89static bfd_boolean _bfd_xcoff64_put_symbol_name
b560e2ac
AM		 90 (struct bfd_link_info *, struct bfd_strtab_hash *,
91 struct internal_syment *, const char *);
b34976b6 92static bfd_boolean _bfd_xcoff64_put_ldsymbol_name
4964e065 93 (bfd *, struct xcoff_loader_info *, struct internal_ldsym *, const char *);
b34976b6 94static void _bfd_xcoff64_swap_sym_in
4964e065 95 (bfd *, void *, void *);
b34976b6 96static unsigned int _bfd_xcoff64_swap_sym_out
4964e065 97 (bfd *, void *, void *);
dc810e39 98static void _bfd_xcoff64_swap_aux_in
4964e065 99 (bfd *, void *, int, int, int, int, void *);
dc810e39 100static unsigned int _bfd_xcoff64_swap_aux_out
4964e065 101 (bfd *, void *, int, int, int, int, void *);
b34976b6 102static void xcoff64_swap_reloc_in
4964e065 103 (bfd *, void *, void *);
b34976b6 104static unsigned int xcoff64_swap_reloc_out
4964e065 105 (bfd *, void *, void *);
b34976b6 106extern bfd_boolean _bfd_xcoff_mkobject
4964e065 107 (bfd *);
b34976b6 108extern bfd_boolean _bfd_xcoff_copy_private_bfd_data
4964e065 109 (bfd *, bfd *);
b34976b6 110extern bfd_boolean _bfd_xcoff_is_local_label_name
4964e065 111 (bfd *, const char *);
dc810e39 112extern void xcoff64_rtype2howto
4964e065 113 (arelent *, struct internal_reloc *);
dc810e39 114extern reloc_howto_type * xcoff64_reloc_type_lookup
4964e065 115 (bfd *, bfd_reloc_code_real_type);
b34976b6 116extern bfd_boolean _bfd_xcoff_slurp_armap
4964e065
TG		 117 (bfd *);
118extern void *_bfd_xcoff_read_ar_hdr
119 (bfd *);
b34976b6 120extern bfd *_bfd_xcoff_openr_next_archived_file
4964e065 121 (bfd *, bfd *);
b34976b6 122extern int _bfd_xcoff_stat_arch_elt
4964e065 123 (bfd *, struct stat *);
b34976b6 124extern bfd_boolean _bfd_xcoff_write_armap
4964e065 125 (bfd *, unsigned int, struct orl *, unsigned int, int);
b34976b6 126extern bfd_boolean _bfd_xcoff_write_archive_contents
4964e065 127 (bfd *);
b34976b6 128extern int _bfd_xcoff_sizeof_headers
4964e065 129 (bfd *, struct bfd_link_info *);
b34976b6 130extern void _bfd_xcoff_swap_sym_in
4964e065 131 (bfd *, void *, void *);
b34976b6 132extern unsigned int _bfd_xcoff_swap_sym_out
4964e065 133 (bfd *, void *, void *);
dc810e39 134extern void _bfd_xcoff_swap_aux_in
4964e065 135 (bfd *, void *, int, int, int, int, void *);
dc810e39 136extern unsigned int _bfd_xcoff_swap_aux_out
4964e065 137 (bfd *, void *, int, int, int, int, void *);
dc810e39 138static void xcoff64_swap_ldhdr_in
4964e065 139 (bfd *, const void *, struct internal_ldhdr *);
dc810e39 140static void xcoff64_swap_ldhdr_out
4964e065 141 (bfd *, const struct internal_ldhdr *, void *d);
dc810e39 142static void xcoff64_swap_ldsym_in
4964e065 143 (bfd *, const void *, struct internal_ldsym *);
dc810e39 144static void xcoff64_swap_ldsym_out
4964e065 145 (bfd *, const struct internal_ldsym *, void *d);
dc810e39 146static void xcoff64_swap_ldrel_in
4964e065 147 (bfd *, const void *, struct internal_ldrel *);
dc810e39 148static void xcoff64_swap_ldrel_out
4964e065 149 (bfd *, const struct internal_ldrel *, void *d);
b34976b6 150static bfd_boolean xcoff64_write_object_contents
4964e065 151 (bfd *);
b34976b6 152static bfd_boolean xcoff64_ppc_relocate_section
4964e065
TG		 153 (bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
154 struct internal_reloc *, struct internal_syment *,
155 asection **);
b34976b6 156static bfd_boolean xcoff64_slurp_armap
4964e065 157 (bfd *);
cb001c0d 158static bfd_cleanup xcoff64_archive_p
4964e065 159 (bfd *);
b34976b6 160static bfd *xcoff64_openr_next_archived_file
4964e065 161 (bfd *, bfd *);
b34976b6 162static int xcoff64_sizeof_headers
4964e065 163 (bfd *, struct bfd_link_info *);
dc810e39 164static asection *xcoff64_create_csect_from_smclas
4964e065 165 (bfd *, union internal_auxent *, const char *);
b34976b6 166static bfd_boolean xcoff64_is_lineno_count_overflow
4964e065 167 (bfd *, bfd_vma);
b34976b6 168static bfd_boolean xcoff64_is_reloc_count_overflow
4964e065 169 (bfd *, bfd_vma);
dc810e39 170static bfd_vma xcoff64_loader_symbol_offset
4964e065 171 (bfd *, struct internal_ldhdr *);
dc810e39 172static bfd_vma xcoff64_loader_reloc_offset
4964e065 173 (bfd *, struct internal_ldhdr *);
b34976b6 174static bfd_boolean xcoff64_generate_rtinit
4964e065 175 (bfd *, const char *, const char *, bfd_boolean);
b34976b6 176static bfd_boolean xcoff64_bad_format_hook
4964e065 177 (bfd *, void *);
dc810e39 178
f1f0d9ab 179/* Relocation functions */
342371d5 180static xcoff_reloc_function xcoff64_reloc_type_br;
f1f0d9ab 181
342371d5
AM		 182xcoff_reloc_function *const
183xcoff64_calculate_relocation[XCOFF_MAX_CALCULATE_RELOCATION] =
f1f0d9ab 184{
cf9ab45b
AM		 185 xcoff_reloc_type_pos, /* R_POS (0x00) */
186 xcoff_reloc_type_neg, /* R_NEG (0x01) */
187 xcoff_reloc_type_rel, /* R_REL (0x02) */
188 xcoff_reloc_type_toc, /* R_TOC (0x03) */
f1f0d9ab 189 xcoff_reloc_type_fail, /* R_RTB (0x04) */
cf9ab45b
AM		 190 xcoff_reloc_type_toc, /* R_GL (0x05) */
191 xcoff_reloc_type_toc, /* R_TCL (0x06) */
192 xcoff_reloc_type_fail, /* (0x07) */
193 xcoff_reloc_type_ba, /* R_BA (0x08) */
194 xcoff_reloc_type_fail, /* (0x09) */
f1f0d9ab 195 xcoff64_reloc_type_br, /* R_BR (0x0a) */
cf9ab45b
AM		 196 xcoff_reloc_type_fail, /* (0x0b) */
197 xcoff_reloc_type_pos, /* R_RL (0x0c) */
198 xcoff_reloc_type_pos, /* R_RLA (0x0d) */
199 xcoff_reloc_type_fail, /* (0x0e) */
f1f0d9ab 200 xcoff_reloc_type_noop, /* R_REF (0x0f) */
cf9ab45b
AM		 201 xcoff_reloc_type_fail, /* (0x10) */
202 xcoff_reloc_type_fail, /* (0x11) */
203 xcoff_reloc_type_toc, /* R_TRL (0x12) */
204 xcoff_reloc_type_toc, /* R_TRLA (0x13) */
f1f0d9ab
TR		 205 xcoff_reloc_type_fail, /* R_RRTBI (0x14) */
206 xcoff_reloc_type_fail, /* R_RRTBA (0x15) */
cf9ab45b 207 xcoff_reloc_type_ba, /* R_CAI (0x16) */
f1f0d9ab 208 xcoff_reloc_type_crel, /* R_CREL (0x17) */
cf9ab45b
AM		 209 xcoff_reloc_type_ba, /* R_RBA (0x18) */
210 xcoff_reloc_type_ba, /* R_RBAC (0x19) */
f1f0d9ab 211 xcoff64_reloc_type_br, /* R_RBR (0x1a) */
cf9ab45b 212 xcoff_reloc_type_ba, /* R_RBRC (0x1b) */
f1f0d9ab
TR		 213};
214
eb1e0e80 215/* coffcode.h needs these to be defined. */
dc810e39
AM		 216/* Internalcoff.h and coffcode.h modify themselves based on these flags. */
217#define XCOFF64
218#define RS6000COFF_C 1
219
220#define SELECT_RELOC(internal, howto) \
221 { \
222 internal.r_type = howto->type; \
223 internal.r_size = \
224 ((howto->complain_on_overflow == complain_overflow_signed \
225 ? 0x80 \
226 : 0) \
227 | (howto->bitsize - 1)); \
228 }
814fa6ab 229
dc810e39
AM		 230#define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
231#define COFF_LONG_FILENAMES
232#define NO_COFF_SYMBOLS
233#define RTYPE2HOWTO(cache_ptr, dst) xcoff64_rtype2howto (cache_ptr, dst)
234#define coff_mkobject _bfd_xcoff_mkobject
235#define coff_bfd_copy_private_bfd_data _bfd_xcoff_copy_private_bfd_data
236#define coff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
237#define coff_bfd_reloc_type_lookup xcoff64_reloc_type_lookup
157090f7 238#define coff_bfd_reloc_name_lookup xcoff64_reloc_name_lookup
dc810e39 239#ifdef AIX_CORE
cb001c0d 240extern bfd_cleanup rs6000coff_core_p
4964e065 241 (bfd *abfd);
b34976b6 242extern bfd_boolean rs6000coff_core_file_matches_executable_p
4964e065 243 (bfd *cbfd, bfd *ebfd);
b34976b6 244extern char *rs6000coff_core_file_failing_command
4964e065 245 (bfd *abfd);
b34976b6 246extern int rs6000coff_core_file_failing_signal
4964e065 247 (bfd *abfd);
dc810e39
AM		 248#define CORE_FILE_P rs6000coff_core_p
249#define coff_core_file_failing_command \
250 rs6000coff_core_file_failing_command
251#define coff_core_file_failing_signal \
252 rs6000coff_core_file_failing_signal
253#define coff_core_file_matches_executable_p \
254 rs6000coff_core_file_matches_executable_p
261b8d08
PA		 255#define coff_core_file_pid \
256 _bfd_nocore_core_file_pid
dc810e39
AM		 257#else
258#define CORE_FILE_P _bfd_dummy_target
259#define coff_core_file_failing_command \
260 _bfd_nocore_core_file_failing_command
261#define coff_core_file_failing_signal \
262 _bfd_nocore_core_file_failing_signal
263#define coff_core_file_matches_executable_p \
264 _bfd_nocore_core_file_matches_executable_p
261b8d08
PA		 265#define coff_core_file_pid \
266 _bfd_nocore_core_file_pid
dc810e39
AM		 267#endif
268#define coff_SWAP_sym_in _bfd_xcoff64_swap_sym_in
269#define coff_SWAP_sym_out _bfd_xcoff64_swap_sym_out
270#define coff_SWAP_aux_in _bfd_xcoff64_swap_aux_in
271#define coff_SWAP_aux_out _bfd_xcoff64_swap_aux_out
59862849
TR		 272#define coff_swap_reloc_in xcoff64_swap_reloc_in
273#define coff_swap_reloc_out xcoff64_swap_reloc_out
274#define NO_COFF_RELOCS
dc810e39 275
2b5c217d
NC		 276#ifndef bfd_pe_print_pdata
277#define bfd_pe_print_pdata NULL
278#endif
279
dc810e39
AM		 280#include "coffcode.h"
281
282/* For XCOFF64, the effective width of symndx changes depending on
7f6d05e8
CP		 283 whether we are the first entry. Sigh. */
284static void
4964e065 285_bfd_xcoff64_swap_lineno_in (bfd *abfd, void *ext1, void *in1)
7f6d05e8 286{
dc810e39
AM		 287 LINENO *ext = (LINENO *) ext1;
288 struct internal_lineno *in = (struct internal_lineno *) in1;
7f6d05e8 289
dc810e39 290 in->l_lnno = H_GET_32 (abfd, (ext->l_lnno));
7f6d05e8 291 if (in->l_lnno == 0)
dc810e39 292 in->l_addr.l_symndx = H_GET_32 (abfd, ext->l_addr.l_symndx);
7f6d05e8 293 else
dc810e39 294 in->l_addr.l_paddr = H_GET_64 (abfd, ext->l_addr.l_paddr);
7f6d05e8
CP		 295}
296
297static unsigned int
4964e065 298_bfd_xcoff64_swap_lineno_out (bfd *abfd, void *inp, void *outp)
7f6d05e8 299{
dc810e39
AM		 300 struct internal_lineno *in = (struct internal_lineno *) inp;
301 struct external_lineno *ext = (struct external_lineno *) outp;
302
303 H_PUT_32 (abfd, in->l_addr.l_symndx, ext->l_addr.l_symndx);
304 H_PUT_32 (abfd, in->l_lnno, (ext->l_lnno));
7f6d05e8 305
7f6d05e8 306 if (in->l_lnno == 0)
dc810e39 307 H_PUT_32 (abfd, in->l_addr.l_symndx, ext->l_addr.l_symndx);
7f6d05e8 308 else
dc810e39 309 H_PUT_64 (abfd, in->l_addr.l_paddr, ext->l_addr.l_paddr);
7f6d05e8
CP		 310
311 return bfd_coff_linesz (abfd);
312}
313
7f6d05e8 314static void
4964e065 315_bfd_xcoff64_swap_sym_in (bfd *abfd, void *ext1, void *in1)
7f6d05e8 316{
dc810e39
AM		 317 struct external_syment *ext = (struct external_syment *) ext1;
318 struct internal_syment *in = (struct internal_syment *) in1;
7f6d05e8 319
7f6d05e8 320 in->_n._n_n._n_zeroes = 0;
dc810e39
AM		 321 in->_n._n_n._n_offset = H_GET_32 (abfd, ext->e_offset);
322 in->n_value = H_GET_64 (abfd, ext->e_value);
9ae678af 323 in->n_scnum = (short) H_GET_16 (abfd, ext->e_scnum);
dc810e39
AM		 324 in->n_type = H_GET_16 (abfd, ext->e_type);
325 in->n_sclass = H_GET_8 (abfd, ext->e_sclass);
326 in->n_numaux = H_GET_8 (abfd, ext->e_numaux);
7f6d05e8
CP		 327}
328
329static unsigned int
4964e065 330_bfd_xcoff64_swap_sym_out (bfd *abfd, void *inp, void *extp)
7f6d05e8 331{
dc810e39
AM		 332 struct internal_syment *in = (struct internal_syment *) inp;
333 struct external_syment *ext = (struct external_syment *) extp;
334
335 H_PUT_32 (abfd, in->_n._n_n._n_offset, ext->e_offset);
336 H_PUT_64 (abfd, in->n_value, ext->e_value);
337 H_PUT_16 (abfd, in->n_scnum, ext->e_scnum);
338 H_PUT_16 (abfd, in->n_type, ext->e_type);
339 H_PUT_8 (abfd, in->n_sclass, ext->e_sclass);
340 H_PUT_8 (abfd, in->n_numaux, ext->e_numaux);
7f6d05e8
CP		 341 return bfd_coff_symesz (abfd);
342}
343
344static void
4964e065 345_bfd_xcoff64_swap_aux_in (bfd *abfd, void *ext1, int type, int in_class,
07d6d2b8 346 int indx, int numaux, void *in1)
7f6d05e8 347{
dc810e39
AM		 348 union external_auxent *ext = (union external_auxent *) ext1;
349 union internal_auxent *in = (union internal_auxent *) in1;
7f6d05e8 350
96d56e9f 351 switch (in_class)
dc810e39 352 {
7f6d05e8 353 case C_FILE:
7f41df2e 354 if (ext->x_file.x_n.x_n.x_zeroes[0] == 0)
dc810e39 355 {
7f6d05e8 356 in->x_file.x_n.x_zeroes = 0;
7f41df2e 357 in->x_file.x_n.x_offset =
07d6d2b8 358 H_GET_32 (abfd, ext->x_file.x_n.x_n.x_offset);
dc810e39
AM		 359 }
360 else
361 {
7f41df2e 362 memcpy (in->x_file.x_fname, ext->x_file.x_n.x_fname, FILNMLEN);
beb1bf64 363 }
7f6d05e8
CP		 364 goto end;
365
366 /* RS/6000 "csect" auxents */
367 case C_EXT:
8602d4fe 368 case C_AIX_WEAKEXT:
7f6d05e8
CP		 369 case C_HIDEXT:
370 if (indx + 1 == numaux)
371 {
beb1bf64
TR		 372 bfd_signed_vma h = 0;
373 bfd_vma l = 0;
374
dc810e39
AM		 375 h = H_GET_S32 (abfd, ext->x_csect.x_scnlen_hi);
376 l = H_GET_32 (abfd, ext->x_csect.x_scnlen_lo);
beb1bf64
TR		 377
378 in->x_csect.x_scnlen.l = h << 32 | (l & 0xffffffff);
379
dc810e39
AM		 380 in->x_csect.x_parmhash = H_GET_32 (abfd, ext->x_csect.x_parmhash);
381 in->x_csect.x_snhash = H_GET_16 (abfd, ext->x_csect.x_snhash);
7f6d05e8
CP		 382 /* We don't have to hack bitfields in x_smtyp because it's
383 defined by shifts-and-ands, which are equivalent on all
384 byte orders. */
dc810e39
AM		 385 in->x_csect.x_smtyp = H_GET_8 (abfd, ext->x_csect.x_smtyp);
386 in->x_csect.x_smclas = H_GET_8 (abfd, ext->x_csect.x_smclas);
7f6d05e8
CP		 387 goto end;
388 }
389 break;
390
391 case C_STAT:
392 case C_LEAFSTAT:
393 case C_HIDDEN:
dc810e39
AM		 394 if (type == T_NULL)
395 {
7f6d05e8 396 /* PE defines some extra fields; we zero them out for
dc810e39 397 safety. */
7f6d05e8
CP		 398 in->x_scn.x_checksum = 0;
399 in->x_scn.x_associated = 0;
400 in->x_scn.x_comdat = 0;
401
402 goto end;
403 }
404 break;
405 }
406
96d56e9f
NC		 407 if (in_class == C_BLOCK || in_class == C_FCN || ISFCN (type)
408 || ISTAG (in_class))
7f6d05e8 409 {
dc810e39
AM		 410 in->x_sym.x_fcnary.x_fcn.x_lnnoptr
411 = H_GET_64 (abfd, ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
412 in->x_sym.x_fcnary.x_fcn.x_endndx.l
413 = H_GET_32 (abfd, ext->x_sym.x_fcnary.x_fcn.x_endndx);
414 }
415 if (ISFCN (type))
416 {
417 in->x_sym.x_misc.x_fsize
418 = H_GET_32 (abfd, ext->x_sym.x_fcnary.x_fcn.x_fsize);
419 }
420 else
421 {
422 in->x_sym.x_misc.x_lnsz.x_lnno
423 = H_GET_32 (abfd, ext->x_sym.x_fcnary.x_lnsz.x_lnno);
424 in->x_sym.x_misc.x_lnsz.x_size
425 = H_GET_16 (abfd, ext->x_sym.x_fcnary.x_lnsz.x_size);
7f6d05e8 426 }
7f6d05e8 427
dc810e39 428 end: ;
7f6d05e8
CP		 429}
430
7f6d05e8 431static unsigned int
4964e065 432_bfd_xcoff64_swap_aux_out (bfd *abfd, void *inp, int type, int in_class,
07d6d2b8
AM		 433 int indx ATTRIBUTE_UNUSED,
434 int numaux ATTRIBUTE_UNUSED,
435 void *extp)
7f6d05e8 436{
dc810e39
AM		 437 union internal_auxent *in = (union internal_auxent *) inp;
438 union external_auxent *ext = (union external_auxent *) extp;
7f6d05e8 439
4964e065 440 memset (ext, 0, bfd_coff_auxesz (abfd));
96d56e9f 441 switch (in_class)
7f6d05e8 442 {
dc810e39 443 case C_FILE:
a58d9c34 444 if (in->x_file.x_n.x_zeroes == 0)
dc810e39 445 {
7f41df2e
TG		 446 H_PUT_32 (abfd, 0, ext->x_file.x_n.x_n.x_zeroes);
447 H_PUT_32 (abfd, in->x_file.x_n.x_offset,
07d6d2b8 448 ext->x_file.x_n.x_n.x_offset);
dc810e39
AM		 449 }
450 else
451 {
7f41df2e 452 memcpy (ext->x_file.x_n.x_fname, in->x_file.x_fname, FILNMLEN);
dc810e39
AM		 453 }
454 H_PUT_8 (abfd, _AUX_FILE, ext->x_auxtype.x_auxtype);
7f6d05e8 455 goto end;
dc810e39
AM		 456
457 /* RS/6000 "csect" auxents */
458 case C_EXT:
8602d4fe 459 case C_AIX_WEAKEXT:
dc810e39
AM		 460 case C_HIDEXT:
461 if (indx + 1 == numaux)
462 {
463 bfd_vma temp;
464
465 temp = in->x_csect.x_scnlen.l & 0xffffffff;
466 H_PUT_32 (abfd, temp, ext->x_csect.x_scnlen_lo);
467 temp = in->x_csect.x_scnlen.l >> 32;
468 H_PUT_32 (abfd, temp, ext->x_csect.x_scnlen_hi);
469 H_PUT_32 (abfd, in->x_csect.x_parmhash, ext->x_csect.x_parmhash);
470 H_PUT_16 (abfd, in->x_csect.x_snhash, ext->x_csect.x_snhash);
471 /* We don't have to hack bitfields in x_smtyp because it's
472 defined by shifts-and-ands, which are equivalent on all
473 byte orders. */
474 H_PUT_8 (abfd, in->x_csect.x_smtyp, ext->x_csect.x_smtyp);
475 H_PUT_8 (abfd, in->x_csect.x_smclas, ext->x_csect.x_smclas);
476 H_PUT_8 (abfd, _AUX_CSECT, ext->x_auxtype.x_auxtype);
477 goto end;
478 }
479 break;
480
481 case C_STAT:
482 case C_LEAFSTAT:
483 case C_HIDDEN:
484 if (type == T_NULL)
485 {
486 goto end;
487 }
488 break;
7f6d05e8 489 }
7f6d05e8 490
96d56e9f
NC		 491 if (in_class == C_BLOCK || in_class == C_FCN || ISFCN (type)
492 || ISTAG (in_class))
7f6d05e8 493 {
dc810e39
AM		 494 H_PUT_64 (abfd, in->x_sym.x_fcnary.x_fcn.x_lnnoptr,
495 ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
496 H_PUT_8 (abfd, _AUX_FCN,
497 ext->x_auxtype.x_auxtype);
498 H_PUT_32 (abfd, in->x_sym.x_fcnary.x_fcn.x_endndx.l,
499 ext->x_sym.x_fcnary.x_fcn.x_endndx);
7f6d05e8
CP		 500 }
501 if (ISFCN (type))
dc810e39
AM		 502 {
503 H_PUT_32 (abfd, in->x_sym.x_misc.x_fsize,
504 ext->x_sym.x_fcnary.x_fcn.x_fsize);
505 }
7f6d05e8
CP		 506 else
507 {
dc810e39
AM		 508 H_PUT_32 (abfd, in->x_sym.x_misc.x_lnsz.x_lnno,
509 ext->x_sym.x_fcnary.x_lnsz.x_lnno);
510 H_PUT_16 (abfd, in->x_sym.x_misc.x_lnsz.x_size,
511 ext->x_sym.x_fcnary.x_lnsz.x_size);
7f6d05e8
CP		 512 }
513
dc810e39 514 end:
beb1bf64 515
7f6d05e8
CP		 516 return bfd_coff_auxesz (abfd);
517}
518
b34976b6 519static bfd_boolean
b560e2ac
AM		 520_bfd_xcoff64_put_symbol_name (struct bfd_link_info *info,
521 struct bfd_strtab_hash *strtab,
07d6d2b8
AM		 522 struct internal_syment *sym,
523 const char *name)
eb1e0e80 524{
b34976b6 525 bfd_boolean hash;
beb1bf64 526 bfd_size_type indx;
dc810e39 527
b560e2ac 528 hash = !info->traditional_format;
b34976b6 529 indx = _bfd_stringtab_add (strtab, name, hash, FALSE);
dc810e39 530
beb1bf64 531 if (indx == (bfd_size_type) -1)
b34976b6 532 return FALSE;
dc810e39 533
beb1bf64
TR		 534 sym->_n._n_n._n_zeroes = 0;
535 sym->_n._n_n._n_offset = STRING_SIZE_SIZE + indx;
dc810e39 536
b34976b6 537 return TRUE;
beb1bf64
TR		 538}
539
b34976b6 540static bfd_boolean
4964e065 541_bfd_xcoff64_put_ldsymbol_name (bfd *abfd ATTRIBUTE_UNUSED,
07d6d2b8
AM		 542 struct xcoff_loader_info *ldinfo,
543 struct internal_ldsym *ldsym,
544 const char *name)
beb1bf64 545{
beb1bf64
TR		 546 size_t len;
547 len = strlen (name);
548
dc810e39
AM		 549 if (ldinfo->string_size + len + 3 > ldinfo->string_alc)
550 {
551 bfd_size_type newalc;
f075ee0c 552 char *newstrings;
dc810e39
AM		 553
554 newalc = ldinfo->string_alc * 2;
555 if (newalc == 0)
556 newalc = 32;
557 while (ldinfo->string_size + len + 3 > newalc)
558 newalc *= 2;
559
f075ee0c 560 newstrings = bfd_realloc (ldinfo->strings, newalc);
dc810e39
AM		 561 if (newstrings == NULL)
562 {
b34976b6
AM		 563 ldinfo->failed = TRUE;
564 return FALSE;
dc810e39
AM		 565 }
566 ldinfo->string_alc = newalc;
567 ldinfo->strings = newstrings;
beb1bf64 568 }
dc810e39
AM		 569
570 bfd_put_16 (ldinfo->output_bfd, (bfd_vma) (len + 1),
beb1bf64
TR		 571 ldinfo->strings + ldinfo->string_size);
572 strcpy (ldinfo->strings + ldinfo->string_size + 2, name);
573 ldsym->_l._l_l._l_zeroes = 0;
574 ldsym->_l._l_l._l_offset = ldinfo->string_size + 2;
575 ldinfo->string_size += len + 3;
dc810e39 576
b34976b6 577 return TRUE;
beb1bf64
TR		 578}
579
beb1bf64
TR		 580/* Routines to swap information in the XCOFF .loader section. If we
581 ever need to write an XCOFF loader, this stuff will need to be
582 moved to another file shared by the linker (which XCOFF calls the
583 ``binder'') and the loader. */
584
585/* Swap in the ldhdr structure. */
586
587static void
4964e065 588xcoff64_swap_ldhdr_in (bfd *abfd,
07d6d2b8
AM		 589 const void *s,
590 struct internal_ldhdr *dst)
814fa6ab
AM		 591{
592 const struct external_ldhdr *src = (const struct external_ldhdr *) s;
593
beb1bf64
TR		 594 dst->l_version = bfd_get_32 (abfd, src->l_version);
595 dst->l_nsyms = bfd_get_32 (abfd, src->l_nsyms);
596 dst->l_nreloc = bfd_get_32 (abfd, src->l_nreloc);
597 dst->l_istlen = bfd_get_32 (abfd, src->l_istlen);
598 dst->l_nimpid = bfd_get_32 (abfd, src->l_nimpid);
599 dst->l_stlen = bfd_get_32 (abfd, src->l_stlen);
600 dst->l_impoff = bfd_get_64 (abfd, src->l_impoff);
601 dst->l_stoff = bfd_get_64 (abfd, src->l_stoff);
602 dst->l_symoff = bfd_get_64 (abfd, src->l_symoff);
603 dst->l_rldoff = bfd_get_64 (abfd, src->l_rldoff);
604}
605
606/* Swap out the ldhdr structure. */
607
608static void
4964e065 609xcoff64_swap_ldhdr_out (bfd *abfd, const struct internal_ldhdr *src, void *d)
beb1bf64 610{
814fa6ab
AM		 611 struct external_ldhdr *dst = (struct external_ldhdr *) d;
612
dc810e39 613 bfd_put_32 (abfd, (bfd_vma) src->l_version, dst->l_version);
beb1bf64
TR		 614 bfd_put_32 (abfd, src->l_nsyms, dst->l_nsyms);
615 bfd_put_32 (abfd, src->l_nreloc, dst->l_nreloc);
616 bfd_put_32 (abfd, src->l_istlen, dst->l_istlen);
617 bfd_put_32 (abfd, src->l_nimpid, dst->l_nimpid);
618 bfd_put_32 (abfd, src->l_stlen, dst->l_stlen);
619 bfd_put_64 (abfd, src->l_impoff, dst->l_impoff);
620 bfd_put_64 (abfd, src->l_stoff, dst->l_stoff);
621 bfd_put_64 (abfd, src->l_symoff, dst->l_symoff);
622 bfd_put_64 (abfd, src->l_rldoff, dst->l_rldoff);
623}
624
625/* Swap in the ldsym structure. */
626
627static void
4964e065 628xcoff64_swap_ldsym_in (bfd *abfd, const void *s, struct internal_ldsym *dst)
beb1bf64 629{
814fa6ab 630 const struct external_ldsym *src = (const struct external_ldsym *) s;
dc810e39
AM		 631 /* XCOFF64 does not use l_zeroes like XCOFF32
632 Set the internal l_zeroes to 0 so the common 32/64 code uses l_value
633 as an offset into the loader symbol table. */
beb1bf64
TR		 634 dst->_l._l_l._l_zeroes = 0;
635 dst->_l._l_l._l_offset = bfd_get_32 (abfd, src->l_offset);
636 dst->l_value = bfd_get_64 (abfd, src->l_value);
637 dst->l_scnum = bfd_get_16 (abfd, src->l_scnum);
638 dst->l_smtype = bfd_get_8 (abfd, src->l_smtype);
639 dst->l_smclas = bfd_get_8 (abfd, src->l_smclas);
640 dst->l_ifile = bfd_get_32 (abfd, src->l_ifile);
641 dst->l_parm = bfd_get_32 (abfd, src->l_parm);
642}
643
644/* Swap out the ldsym structure. */
645
646static void
4964e065 647xcoff64_swap_ldsym_out (bfd *abfd, const struct internal_ldsym *src, void *d)
beb1bf64 648{
814fa6ab
AM		 649 struct external_ldsym *dst = (struct external_ldsym *) d;
650
beb1bf64 651 bfd_put_64 (abfd, src->l_value, dst->l_value);
dc810e39
AM		 652 bfd_put_32 (abfd, (bfd_vma) src->_l._l_l._l_offset, dst->l_offset);
653 bfd_put_16 (abfd, (bfd_vma) src->l_scnum, dst->l_scnum);
beb1bf64
TR		 654 bfd_put_8 (abfd, src->l_smtype, dst->l_smtype);
655 bfd_put_8 (abfd, src->l_smclas, dst->l_smclas);
656 bfd_put_32 (abfd, src->l_ifile, dst->l_ifile);
657 bfd_put_32 (abfd, src->l_parm, dst->l_parm);
658}
659
59862849 660static void
4964e065 661xcoff64_swap_reloc_in (bfd *abfd, void *s, void *d)
59862849
TR		 662{
663 struct external_reloc *src = (struct external_reloc *) s;
664 struct internal_reloc *dst = (struct internal_reloc *) d;
665
666 memset (dst, 0, sizeof (struct internal_reloc));
667
668 dst->r_vaddr = bfd_get_64 (abfd, src->r_vaddr);
669 dst->r_symndx = bfd_get_32 (abfd, src->r_symndx);
670 dst->r_size = bfd_get_8 (abfd, src->r_size);
671 dst->r_type = bfd_get_8 (abfd, src->r_type);
672}
673
674static unsigned int
4964e065 675xcoff64_swap_reloc_out (bfd *abfd, void *s, void *d)
59862849
TR		 676{
677 struct internal_reloc *src = (struct internal_reloc *) s;
678 struct external_reloc *dst = (struct external_reloc *) d;
679
680 bfd_put_64 (abfd, src->r_vaddr, dst->r_vaddr);
681 bfd_put_32 (abfd, src->r_symndx, dst->r_symndx);
682 bfd_put_8 (abfd, src->r_type, dst->r_type);
683 bfd_put_8 (abfd, src->r_size, dst->r_size);
684
685 return bfd_coff_relsz (abfd);
686}
687
beb1bf64
TR		 688/* Swap in the ldrel structure. */
689
690static void
4964e065 691xcoff64_swap_ldrel_in (bfd *abfd, const void *s, struct internal_ldrel *dst)
beb1bf64 692{
814fa6ab
AM		 693 const struct external_ldrel *src = (const struct external_ldrel *) s;
694
beb1bf64
TR		 695 dst->l_vaddr = bfd_get_64 (abfd, src->l_vaddr);
696 dst->l_symndx = bfd_get_32 (abfd, src->l_symndx);
697 dst->l_rtype = bfd_get_16 (abfd, src->l_rtype);
698 dst->l_rsecnm = bfd_get_16 (abfd, src->l_rsecnm);
699}
700
701/* Swap out the ldrel structure. */
702
703static void
4964e065 704xcoff64_swap_ldrel_out (bfd *abfd, const struct internal_ldrel *src, void *d)
beb1bf64 705{
814fa6ab
AM		 706 struct external_ldrel *dst = (struct external_ldrel *) d;
707
beb1bf64 708 bfd_put_64 (abfd, src->l_vaddr, dst->l_vaddr);
dc810e39
AM		 709 bfd_put_16 (abfd, (bfd_vma) src->l_rtype, dst->l_rtype);
710 bfd_put_16 (abfd, (bfd_vma) src->l_rsecnm, dst->l_rsecnm);
beb1bf64
TR		 711 bfd_put_32 (abfd, src->l_symndx, dst->l_symndx);
712}
713
b34976b6 714static bfd_boolean
4964e065 715xcoff64_write_object_contents (bfd *abfd)
beb1bf64
TR		 716{
717 asection *current;
b34976b6
AM		 718 bfd_boolean hasrelocs = FALSE;
719 bfd_boolean haslinno = FALSE;
beb1bf64
TR		 720 file_ptr scn_base;
721 file_ptr reloc_base;
722 file_ptr lineno_base;
723 file_ptr sym_base;
724 unsigned long reloc_size = 0;
725 unsigned long lnno_size = 0;
4964e065
TG		 726 asection *text_sec = NULL;
727 asection *data_sec = NULL;
728 asection *bss_sec = NULL;
beb1bf64
TR		 729 struct internal_filehdr internal_f;
730 struct internal_aouthdr internal_a;
731
732 bfd_set_error (bfd_error_system_call);
733
82e51918 734 if (! abfd->output_has_begun)
dc810e39
AM		 735 {
736 if (! bfd_coff_compute_section_file_positions (abfd))
b34976b6 737 return FALSE;
dc810e39 738 }
beb1bf64 739
eb1e0e80 740 /* Work out the size of the reloc and linno areas. */
beb1bf64
TR		 741 reloc_base = obj_relocbase (abfd);
742
dc810e39 743 for (current = abfd->sections; current != NULL; current = current->next)
beb1bf64 744 reloc_size += current->reloc_count * bfd_coff_relsz (abfd);
beb1bf64
TR		 745
746 lineno_base = reloc_base + reloc_size;
747
748 /* Make a pass through the symbol table to count line number entries and
eb1e0e80 749 put them into the correct asections. */
beb1bf64
TR		 750 lnno_size = coff_count_linenumbers (abfd) * bfd_coff_linesz (abfd);
751
752 sym_base = lineno_base + lnno_size;
753
eb1e0e80 754 /* Indicate in each section->line_filepos its actual file address. */
dc810e39
AM		 755 for (current = abfd->sections; current != NULL; current = current->next)
756 {
757 if (current->lineno_count)
758 {
759 current->line_filepos = lineno_base;
760 current->moving_line_filepos = lineno_base;
761 lineno_base += current->lineno_count * bfd_coff_linesz (abfd);
762 }
763 else
764 {
765 current->line_filepos = 0;
766 }
767
768 if (current->reloc_count)
769 {
770 current->rel_filepos = reloc_base;
771 reloc_base += current->reloc_count * bfd_coff_relsz (abfd);
772 }
773 else
774 {
775 current->rel_filepos = 0;
776 }
777 }
778
779 if ((abfd->flags & EXEC_P) != 0)
780 {
781 scn_base = bfd_coff_filhsz (abfd) + bfd_coff_aoutsz (abfd);
782 internal_f.f_opthdr = bfd_coff_aoutsz (abfd);
beb1bf64 783 }
dc810e39
AM		 784 else
785 {
786 scn_base = bfd_coff_filhsz (abfd);
787 internal_f.f_opthdr = 0;
beb1bf64 788 }
beb1bf64
TR		 789
790 internal_f.f_nscns = 0;
791
792 if (bfd_seek (abfd, scn_base, SEEK_SET) != 0)
b34976b6 793 return FALSE;
beb1bf64 794
dc810e39
AM		 795 for (current = abfd->sections; current != NULL; current = current->next)
796 {
797 struct internal_scnhdr section;
798 struct external_scnhdr buff;
799 bfd_size_type amount;
beb1bf64 800
dc810e39 801 internal_f.f_nscns++;
beb1bf64 802
dc810e39 803 strncpy (section.s_name, current->name, SCNNMLEN);
beb1bf64 804
dc810e39
AM		 805 section.s_vaddr = current->vma;
806 section.s_paddr = current->lma;
eea6121a 807 section.s_size = current->size;
beb1bf64 808
dc810e39
AM		 809 /* If this section has no size or is unloadable then the scnptr
810 will be 0 too. */
eea6121a 811 if (current->size == 0
dc810e39
AM		 812 || (current->flags & (SEC_LOAD | SEC_HAS_CONTENTS)) == 0)
813 {
814 section.s_scnptr = 0;
815 }
816 else
817 {
818 section.s_scnptr = current->filepos;
819 }
820
821 section.s_relptr = current->rel_filepos;
822 section.s_lnnoptr = current->line_filepos;
823 section.s_nreloc = current->reloc_count;
824
825 section.s_nlnno = current->lineno_count;
826 if (current->reloc_count != 0)
b34976b6 827 hasrelocs = TRUE;
dc810e39 828 if (current->lineno_count != 0)
b34976b6 829 haslinno = TRUE;
beb1bf64 830
dc810e39
AM		 831 section.s_flags = sec_to_styp_flags (current->name, current->flags);
832
833 if (!strcmp (current->name, _TEXT))
834 {
835 text_sec = current;
836 }
837 else if (!strcmp (current->name, _DATA))
838 {
839 data_sec = current;
840 }
841 else if (!strcmp (current->name, _BSS))
842 {
843 bss_sec = current;
844 }
845
846 amount = bfd_coff_scnhsz (abfd);
847 if (bfd_coff_swap_scnhdr_out (abfd, &section, &buff) == 0
4964e065 848 || bfd_bwrite (&buff, amount, abfd) != amount)
b34976b6 849 return FALSE;
dc810e39 850 }
beb1bf64
TR		 851
852 internal_f.f_timdat = 0;
853
854 internal_f.f_flags = 0;
855
856 if (!hasrelocs)
857 internal_f.f_flags |= F_RELFLG;
858 if (!haslinno)
859 internal_f.f_flags |= F_LNNO;
860 if (abfd->flags & EXEC_P)
861 internal_f.f_flags |= F_EXEC;
862
eb1e0e80 863 /* FIXME: this is wrong for PPC_PE! */
beb1bf64
TR		 864 if (bfd_little_endian (abfd))
865 internal_f.f_flags |= F_AR32WR;
866 else
867 internal_f.f_flags |= F_AR32W;
868
869 if ((abfd->flags & DYNAMIC) != 0)
870 internal_f.f_flags |= F_SHROBJ;
871 if (bfd_get_section_by_name (abfd, _LOADER) != NULL)
872 internal_f.f_flags |= F_DYNLOAD;
873
874 memset (&internal_a, 0, sizeof internal_a);
875
eb1e0e80 876 internal_f.f_magic = bfd_xcoff_magic_number (abfd);
cf9ab45b
AM		 877 internal_a.magic = (abfd->flags & D_PAGED
878 ? RS6K_AOUTHDR_ZMAGIC
879 : (abfd->flags & WP_TEXT
880 ? RS6K_AOUTHDR_NMAGIC
881 : RS6K_AOUTHDR_OMAGIC));
beb1bf64
TR		 882
883 /* FIXME: Does anybody ever set this to another value? */
884 internal_a.vstamp = 0;
885
eb1e0e80 886 /* Now should write relocs, strings, syms. */
beb1bf64
TR		 887 obj_sym_filepos (abfd) = sym_base;
888
889 internal_f.f_symptr = 0;
890 internal_f.f_nsyms = 0;
891
dc810e39
AM		 892 /* If bfd_get_symcount (abfd) != 0, then we are not using the COFF
893 backend linker, and obj_raw_syment_count is not valid until after
894 coff_write_symbols is called. */
895 if (bfd_get_symcount (abfd) != 0)
896 {
897 int firstundef;
beb1bf64 898
dc810e39 899 if (!coff_renumber_symbols (abfd, &firstundef))
b34976b6 900 return FALSE;
dc810e39
AM		 901 coff_mangle_symbols (abfd);
902 if (! coff_write_symbols (abfd))
b34976b6 903 return FALSE;
dc810e39 904 if (! coff_write_linenumbers (abfd))
b34976b6 905 return FALSE;
dc810e39 906 if (! coff_write_relocs (abfd, firstundef))
b34976b6 907 return FALSE;
beb1bf64 908
dc810e39
AM		 909 internal_f.f_symptr = sym_base;
910 internal_f.f_nsyms = bfd_get_symcount (abfd);
911 }
912 else if (obj_raw_syment_count (abfd) != 0)
913 {
914 internal_f.f_symptr = sym_base;
915
916 /* AIX appears to require that F_RELFLG not be set if there are
917 local symbols but no relocations. */
918 internal_f.f_flags &=~ F_RELFLG;
919 }
920 else
921 {
922 internal_f.f_flags |= F_LSYMS;
923 }
beb1bf64 924
dc810e39
AM		 925 if (text_sec)
926 {
eea6121a 927 internal_a.tsize = text_sec->size;
beb1bf64 928 internal_a.text_start = internal_a.tsize ? text_sec->vma : 0;
dc810e39 929 }
beb1bf64 930
dc810e39
AM		 931 if (data_sec)
932 {
eea6121a 933 internal_a.dsize = data_sec->size;
dc810e39
AM		 934 internal_a.data_start = internal_a.dsize ? data_sec->vma : 0;
935 }
beb1bf64 936
dc810e39
AM		 937 if (bss_sec)
938 {
eea6121a 939 internal_a.bsize = bss_sec->size;
dc810e39
AM		 940 if (internal_a.bsize && bss_sec->vma < internal_a.data_start)
941 internal_a.data_start = bss_sec->vma;
942 }
beb1bf64
TR		 943
944 internal_a.entry = bfd_get_start_address (abfd);
945 internal_f.f_nsyms = obj_raw_syment_count (abfd);
946
dc810e39
AM		 947 if (xcoff_data (abfd)->full_aouthdr)
948 {
beb1bf64
TR		 949 bfd_vma toc;
950 asection *loader_sec;
951
952 internal_a.vstamp = 1;
953
954 internal_a.o_snentry = xcoff_data (abfd)->snentry;
955 if (internal_a.o_snentry == 0)
956 internal_a.entry = (bfd_vma) -1;
957
dc810e39
AM		 958 if (text_sec != NULL)
959 {
beb1bf64 960 internal_a.o_sntext = text_sec->target_index;
fd361982 961 internal_a.o_algntext = bfd_section_alignment (text_sec);
dc810e39
AM		 962 }
963 else
964 {
965 internal_a.o_sntext = 0;
966 internal_a.o_algntext = 0;
967 }
968
969 if (data_sec != NULL)
970 {
971 internal_a.o_sndata = data_sec->target_index;
fd361982 972 internal_a.o_algndata = bfd_section_alignment (data_sec);
dc810e39
AM		 973 }
974 else
975 {
976 internal_a.o_sndata = 0;
977 internal_a.o_algndata = 0;
978 }
beb1bf64
TR		 979
980 loader_sec = bfd_get_section_by_name (abfd, ".loader");
981 if (loader_sec != NULL)
982 internal_a.o_snloader = loader_sec->target_index;
983 else
984 internal_a.o_snloader = 0;
985 if (bss_sec != NULL)
986 internal_a.o_snbss = bss_sec->target_index;
987 else
988 internal_a.o_snbss = 0;
989
990 toc = xcoff_data (abfd)->toc;
991 internal_a.o_toc = toc;
992 internal_a.o_sntoc = xcoff_data (abfd)->sntoc;
993
994 internal_a.o_modtype = xcoff_data (abfd)->modtype;
995 if (xcoff_data (abfd)->cputype != -1)
996 internal_a.o_cputype = xcoff_data (abfd)->cputype;
997 else
998 {
999 switch (bfd_get_arch (abfd))
1000 {
1001 case bfd_arch_rs6000:
1002 internal_a.o_cputype = 4;
1003 break;
1004 case bfd_arch_powerpc:
250d94fd 1005 if (bfd_get_mach (abfd) == bfd_mach_ppc)
beb1bf64 1006 internal_a.o_cputype = 3;
d19d97e9
RS		 1007 else if (bfd_get_mach (abfd) == bfd_mach_ppc_620)
1008 internal_a.o_cputype = 2;
beb1bf64
TR		 1009 else
1010 internal_a.o_cputype = 1;
1011 break;
1012 default:
1013 abort ();
1014 }
1015 }
1016 internal_a.o_maxstack = xcoff_data (abfd)->maxstack;
1017 internal_a.o_maxdata = xcoff_data (abfd)->maxdata;
dc810e39
AM		 1018 }
1019
1020 if (bfd_seek (abfd, (file_ptr) 0, 0) != 0)
b34976b6 1021 return FALSE;
dc810e39 1022
beb1bf64
TR		 1023 {
1024 char * buff;
dc810e39
AM		 1025 bfd_size_type amount = bfd_coff_filhsz (abfd);
1026
1027 buff = bfd_malloc (amount);
1028 if (buff == NULL)
b34976b6 1029 return FALSE;
dc810e39 1030
4964e065
TG		 1031 bfd_coff_swap_filehdr_out (abfd, &internal_f, buff);
1032 amount = bfd_bwrite (buff, amount, abfd);
dc810e39 1033
beb1bf64 1034 free (buff);
dc810e39 1035
beb1bf64 1036 if (amount != bfd_coff_filhsz (abfd))
b34976b6 1037 return FALSE;
beb1bf64 1038 }
beb1bf64 1039
dc810e39
AM		 1040 if (abfd->flags & EXEC_P)
1041 {
1042 char * buff;
1043 bfd_size_type amount = bfd_coff_aoutsz (abfd);
beb1bf64 1044
dc810e39
AM		 1045 buff = bfd_malloc (amount);
1046 if (buff == NULL)
b34976b6 1047 return FALSE;
beb1bf64 1048
4964e065
TG		 1049 bfd_coff_swap_aouthdr_out (abfd, &internal_a, buff);
1050 amount = bfd_bwrite (buff, amount, abfd);
dc810e39
AM		 1051
1052 free (buff);
beb1bf64 1053
dc810e39 1054 if (amount != bfd_coff_aoutsz (abfd))
b34976b6 1055 return FALSE;
dc810e39 1056 }
beb1bf64 1057
b34976b6 1058 return TRUE;
beb1bf64
TR		 1059}
1060
b34976b6 1061static bfd_boolean
4964e065 1062xcoff64_reloc_type_br (bfd *input_bfd,
07d6d2b8
AM		 1063 asection *input_section,
1064 bfd *output_bfd ATTRIBUTE_UNUSED,
1065 struct internal_reloc *rel,
1066 struct internal_syment *sym ATTRIBUTE_UNUSED,
1067 struct reloc_howto_struct *howto,
1068 bfd_vma val,
1069 bfd_vma addend,
1070 bfd_vma *relocation,
1071 bfd_byte *contents)
f1f0d9ab
TR		 1072{
1073 struct xcoff_link_hash_entry *h;
12b2cce9 1074 bfd_vma section_offset;
f1f0d9ab 1075
cf9ab45b 1076 if (0 > rel->r_symndx)
b34976b6 1077 return FALSE;
f1f0d9ab
TR		 1078
1079 h = obj_xcoff_sym_hashes (input_bfd)[rel->r_symndx];
12b2cce9 1080 section_offset = rel->r_vaddr - input_section->vma;
f1f0d9ab
TR		 1081
1082 /* If we see an R_BR or R_RBR reloc which is jumping to global
1083 linkage code, and it is followed by an appropriate cror nop
1084 instruction, we replace the cror with ld r2,40(r1). This
1085 restores the TOC after the glink code. Contrariwise, if the
1086 call is followed by a ld r2,40(r1), but the call is not
1087 going to global linkage code, we can replace the load with a
1088 cror. */
cf9ab45b 1089 if (NULL != h
8602d4fe
RS		 1090 && (bfd_link_hash_defined == h->root.type
1091 || bfd_link_hash_defweak == h->root.type)
12b2cce9 1092 && section_offset + 8 <= input_section->size)
f1f0d9ab
TR		 1093 {
1094 bfd_byte *pnext;
1095 unsigned long next;
cf9ab45b 1096
12b2cce9 1097 pnext = contents + section_offset + 4;
f1f0d9ab 1098 next = bfd_get_32 (input_bfd, pnext);
cf9ab45b
AM		 1099
1100 /* The _ptrgl function is magic. It is used by the AIX compiler to call
f1f0d9ab 1101 a function through a pointer. */
cf9ab45b 1102 if (h->smclas == XMC_GL || strcmp (h->root.root.string, "._ptrgl") == 0)
f1f0d9ab 1103 {
cf9ab45b
AM		 1104 if (next == 0x4def7b82 /* cror 15,15,15 */
1105 || next == 0x4ffffb82 /* cror 31,31,31 */
1106 || next == 0x60000000) /* ori r0,r0,0 */
1107 bfd_put_32 (input_bfd, 0xe8410028, pnext); /* ld r2,40(r1) */
1108 }
1109 else
f1f0d9ab 1110 {
cf9ab45b
AM		 1111 if (next == 0xe8410028) /* ld r2,40(r1) */
1112 bfd_put_32 (input_bfd, 0x60000000, pnext); /* ori r0,r0,0 */
f1f0d9ab 1113 }
cf9ab45b
AM		 1114 }
1115 else if (NULL != h && bfd_link_hash_undefined == h->root.type)
f1f0d9ab
TR		 1116 {
1117 /* Normally, this relocation is against a defined symbol. In the
1118 case where this is a partial link and the output section offset
cf9ab45b 1119 is greater than 2^25, the linker will return an invalid error
f1f0d9ab 1120 message that the relocation has been truncated. Yes it has been
cf9ab45b 1121 truncated but no it not important. For this case, disable the
f1f0d9ab
TR		 1122 overflow checking. */
1123 howto->complain_on_overflow = complain_overflow_dont;
1124 }
cf9ab45b 1125
12b2cce9
RS		 1126 /* The original PC-relative relocation is biased by -r_vaddr, so adding
1127 the value below will give the absolute target address. */
1128 *relocation = val + addend + rel->r_vaddr;
1129
a78eab4e
AM		 1130 howto->src_mask &= ~3;
1131 howto->dst_mask = howto->src_mask;
cf9ab45b 1132
12b2cce9 1133 if (h != NULL
8602d4fe
RS		 1134 && (h->root.type == bfd_link_hash_defined
1135 || h->root.type == bfd_link_hash_defweak)
12b2cce9
RS		 1136 && bfd_is_abs_section (h->root.u.def.section)
1137 && section_offset + 4 <= input_section->size)
1138 {
1139 bfd_byte *ptr;
1140 bfd_vma insn;
1141
1142 /* Turn the relative branch into an absolute one by setting the
1143 AA bit. */
1144 ptr = contents + section_offset;
1145 insn = bfd_get_32 (input_bfd, ptr);
1146 insn |= 2;
1147 bfd_put_32 (input_bfd, insn, ptr);
1148
1149 /* Make the howto absolute too. */
1150 howto->pc_relative = FALSE;
1151 howto->complain_on_overflow = complain_overflow_bitfield;
1152 }
1153 else
1154 {
1155 /* Use a PC-relative howto and subtract the instruction's address
1156 from the target address we calculated above. */
1157 howto->pc_relative = TRUE;
1158 *relocation -= (input_section->output_section->vma
1159 + input_section->output_offset
1160 + section_offset);
1161 }
b34976b6 1162 return TRUE;
f1f0d9ab
TR		 1163}
1164
dbe341c6
TR		 1165/* This is the relocation function for the PowerPC64.
1166 See xcoff_ppc_relocation_section for more information. */
beb1bf64 1167
b34976b6 1168bfd_boolean
4964e065 1169xcoff64_ppc_relocate_section (bfd *output_bfd,
07d6d2b8
AM		 1170 struct bfd_link_info *info,
1171 bfd *input_bfd,
1172 asection *input_section,
1173 bfd_byte *contents,
1174 struct internal_reloc *relocs,
1175 struct internal_syment *syms,
1176 asection **sections)
beb1bf64
TR		 1177{
1178 struct internal_reloc *rel;
1179 struct internal_reloc *relend;
1180
1181 rel = relocs;
1182 relend = rel + input_section->reloc_count;
1183 for (; rel < relend; rel++)
1184 {
1185 long symndx;
1186 struct xcoff_link_hash_entry *h;
1187 struct internal_syment *sym;
1188 bfd_vma addend;
1189 bfd_vma val;
1190 struct reloc_howto_struct howto;
dbe341c6
TR		 1191 bfd_vma relocation;
1192 bfd_vma value_to_relocate;
1193 bfd_vma address;
1194 bfd_byte *location;
beb1bf64
TR		 1195
1196 /* Relocation type R_REF is a special relocation type which is
cf9ab45b
AM		 1197 merely used to prevent garbage collection from occurring for
1198 the csect including the symbol which it references. */
beb1bf64
TR		 1199 if (rel->r_type == R_REF)
1200 continue;
1201
dbe341c6 1202 /* howto */
beb1bf64
TR		 1203 howto.type = rel->r_type;
1204 howto.rightshift = 0;
beb1bf64 1205 howto.bitsize = (rel->r_size & 0x3f) + 1;
dbe341c6 1206 howto.size = howto.bitsize > 16 ? (howto.bitsize > 32 ? 4 : 2) : 1;
b34976b6 1207 howto.pc_relative = FALSE;
beb1bf64 1208 howto.bitpos = 0;
cf9ab45b
AM		 1209 howto.complain_on_overflow = (rel->r_size & 0x80
1210 ? complain_overflow_signed
1211 : complain_overflow_bitfield);
beb1bf64
TR		 1212 howto.special_function = NULL;
1213 howto.name = "internal";
b34976b6 1214 howto.partial_inplace = TRUE;
cf9ab45b 1215 howto.src_mask = howto.dst_mask = N_ONES (howto.bitsize);
b34976b6 1216 howto.pcrel_offset = FALSE;
beb1bf64 1217
dbe341c6 1218 /* symbol */
beb1bf64 1219 val = 0;
dbe341c6
TR		 1220 addend = 0;
1221 h = NULL;
1222 sym = NULL;
cf9ab45b 1223 symndx = rel->r_symndx;
beb1bf64 1224
cf9ab45b 1225 if (-1 != symndx)
dc810e39
AM		 1226 {
1227 asection *sec;
cf9ab45b 1228
dbe341c6
TR		 1229 h = obj_xcoff_sym_hashes (input_bfd)[symndx];
1230 sym = syms + symndx;
1231 addend = - sym->n_value;
cf9ab45b
AM		 1232
1233 if (NULL == h)
dc810e39
AM		 1234 {
1235 sec = sections[symndx];
1236 /* Hack to make sure we use the right TOC anchor value
1237 if this reloc is against the TOC anchor. */
1238 if (sec->name[3] == '0'
1239 && strcmp (sec->name, ".tc0") == 0)
1240 val = xcoff_data (output_bfd)->toc;
1241 else
1242 val = (sec->output_section->vma
1243 + sec->output_offset
1244 + sym->n_value
1245 - sec->vma);
cf9ab45b
AM		 1246 }
1247 else
dc810e39 1248 {
858ef0ce
RS		 1249 if (info->unresolved_syms_in_objects != RM_IGNORE
1250 && (h->flags & XCOFF_WAS_UNDEFINED) != 0)
95a51568 1251 info->callbacks->undefined_symbol
1a72702b
AM		 1252 (info, h->root.root.string, input_bfd, input_section,
1253 rel->r_vaddr - input_section->vma,
95a51568
FS		 1254 info->unresolved_syms_in_objects == RM_DIAGNOSE
1255 && !info->warn_unresolved_syms);
1a72702b 1256
cf9ab45b
AM		 1257 if (h->root.type == bfd_link_hash_defined
1258 || h->root.type == bfd_link_hash_defweak)
dc810e39 1259 {
dbe341c6
TR		 1260 sec = h->root.u.def.section;
1261 val = (h->root.u.def.value
1262 + sec->output_section->vma
1263 + sec->output_offset);
cf9ab45b
AM		 1264 }
1265 else if (h->root.type == bfd_link_hash_common)
dbe341c6
TR		 1266 {
1267 sec = h->root.u.c.p->section;
1268 val = (sec->output_section->vma
1269 + sec->output_offset);
cf9ab45b 1270 }
858ef0ce 1271 else
dbe341c6 1272 {
0e1862bb 1273 BFD_ASSERT (bfd_link_relocatable (info)
858ef0ce
RS		 1274 || (h->flags & XCOFF_DEF_DYNAMIC) != 0
1275 || (h->flags & XCOFF_IMPORT) != 0);
dc810e39 1276 }
dc810e39 1277 }
dc810e39 1278 }
cf9ab45b
AM		 1279
1280 if (rel->r_type >= XCOFF_MAX_CALCULATE_RELOCATION
213e90f4 1281 || !((*xcoff64_calculate_relocation[rel->r_type])
cf9ab45b
AM		 1282 (input_bfd, input_section, output_bfd, rel, sym, &howto, val,
1283 addend, &relocation, contents)))
b34976b6 1284 return FALSE;
cf9ab45b 1285
dbe341c6
TR		 1286 /* address */
1287 address = rel->r_vaddr - input_section->vma;
1288 location = contents + address;
cf9ab45b 1289
eea6121a 1290 if (address > input_section->size)
cf9ab45b
AM		 1291 abort ();
1292
dbe341c6
TR		 1293 /* Get the value we are going to relocate. */
1294 if (1 == howto.size)
1295 value_to_relocate = bfd_get_16 (input_bfd, location);
1296 else if (2 == howto.size)
1297 value_to_relocate = bfd_get_32 (input_bfd, location);
cf9ab45b 1298 else
dbe341c6 1299 value_to_relocate = bfd_get_64 (input_bfd, location);
cf9ab45b
AM		 1300
1301 /* overflow.
1302
dbe341c6
TR		 1303 FIXME: We may drop bits during the addition
1304 which we don't check for. We must either check at every single
1305 operation, which would be tedious, or we must do the computations
1306 in a type larger than bfd_vma, which would be inefficient. */
cf9ab45b 1307
cf9ab45b
AM		 1308 if (((*xcoff_complain_overflow[howto.complain_on_overflow])
1309 (input_bfd, value_to_relocate, relocation, &howto)))
dc810e39 1310 {
dbe341c6
TR		 1311 const char *name;
1312 char buf[SYMNMLEN + 1];
1313 char reloc_type_name[10];
cf9ab45b
AM		 1314
1315 if (symndx == -1)
beb1bf64 1316 {
dbe341c6 1317 name = "*ABS*";
cf9ab45b
AM		 1318 }
1319 else if (h != NULL)
dbe341c6 1320 {
dfeffb9f 1321 name = NULL;
cf9ab45b
AM		 1322 }
1323 else
beb1bf64 1324 {
dbe341c6
TR		 1325 name = _bfd_coff_internal_syment_name (input_bfd, sym, buf);
1326 if (name == NULL)
1327 name = "UNKNOWN";
beb1bf64 1328 }
dbe341c6 1329 sprintf (reloc_type_name, "0x%02x", rel->r_type);
cf9ab45b 1330
1a72702b
AM		 1331 (*info->callbacks->reloc_overflow)
1332 (info, (h ? &h->root : NULL), name, reloc_type_name,
1333 (bfd_vma) 0, input_bfd, input_section,
1334 rel->r_vaddr - input_section->vma);
beb1bf64
TR		 1335 }
1336
dbe341c6 1337 /* Add RELOCATION to the right bits of VALUE_TO_RELOCATE. */
cf9ab45b
AM		 1338 value_to_relocate = ((value_to_relocate & ~howto.dst_mask)
1339 | (((value_to_relocate & howto.src_mask)
1340 + relocation) & howto.dst_mask));
1341
dbe341c6
TR		 1342 /* Put the value back in the object file. */
1343 if (1 == howto.size)
1344 bfd_put_16 (input_bfd, value_to_relocate, location);
1345 else if (2 == howto.size)
1346 bfd_put_32 (input_bfd, value_to_relocate, location);
1347 else
1348 bfd_put_64 (input_bfd, value_to_relocate, location);
cf9ab45b 1349
beb1bf64 1350 }
b34976b6 1351 return TRUE;
beb1bf64
TR		 1352}
1353
beb1bf64
TR		 1354\f
1355/* The XCOFF reloc table. Actually, XCOFF relocations specify the
1356 bitsize and whether they are signed or not, along with a
1357 conventional type. This table is for the types, which are used for
1358 different algorithms for putting in the reloc. Many of these
1359 relocs need special_function entries, which I have not written. */
1360
beb1bf64
TR		 1361reloc_howto_type xcoff64_howto_table[] =
1362{
7fa9fcb6 1363 /* 0x00: Standard 64 bit relocation. */
38487e5e 1364 HOWTO (R_POS, /* type */
dc810e39
AM		 1365 0, /* rightshift */
1366 4, /* size (0 = byte, 1 = short, 2 = long) */
1367 64, /* bitsize */
b34976b6 1368 FALSE, /* pc_relative */
dc810e39 1369 0, /* bitpos */
beb1bf64 1370 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39 1371 0, /* special_function */
59862849 1372 "R_POS_64", /* name */
b34976b6 1373 TRUE, /* partial_inplace */
a78eab4e 1374 MINUS_ONE, /* src_mask */
dc810e39 1375 MINUS_ONE, /* dst_mask */
b34976b6 1376 FALSE), /* pcrel_offset */
beb1bf64 1377
7fa9fcb6 1378 /* 0x01: 64 bit relocation, but store negative value. */
38487e5e 1379 HOWTO (R_NEG, /* type */
dc810e39
AM		 1380 0, /* rightshift */
1381 -4, /* size (0 = byte, 1 = short, 2 = long) */
1382 64, /* bitsize */
b34976b6 1383 FALSE, /* pc_relative */
dc810e39 1384 0, /* bitpos */
beb1bf64 1385 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1386 0, /* special_function */
1387 "R_NEG", /* name */
b34976b6 1388 TRUE, /* partial_inplace */
a78eab4e 1389 MINUS_ONE, /* src_mask */
dc810e39 1390 MINUS_ONE, /* dst_mask */
b34976b6 1391 FALSE), /* pcrel_offset */
beb1bf64 1392
7fa9fcb6 1393 /* 0x02: 32 bit PC relative relocation. */
38487e5e 1394 HOWTO (R_REL, /* type */
dc810e39
AM		 1395 0, /* rightshift */
1396 2, /* size (0 = byte, 1 = short, 2 = long) */
1397 32, /* bitsize */
b34976b6 1398 TRUE, /* pc_relative */
dc810e39 1399 0, /* bitpos */
beb1bf64 1400 complain_overflow_signed, /* complain_on_overflow */
dc810e39
AM		 1401 0, /* special_function */
1402 "R_REL", /* name */
b34976b6 1403 TRUE, /* partial_inplace */
a78eab4e 1404 0xffffffff, /* src_mask */
dc810e39 1405 0xffffffff, /* dst_mask */
b34976b6 1406 FALSE), /* pcrel_offset */
beb1bf64 1407
7fa9fcb6 1408 /* 0x03: 16 bit TOC relative relocation. */
38487e5e 1409 HOWTO (R_TOC, /* type */
dc810e39
AM		 1410 0, /* rightshift */
1411 1, /* size (0 = byte, 1 = short, 2 = long) */
1412 16, /* bitsize */
b34976b6 1413 FALSE, /* pc_relative */
dc810e39 1414 0, /* bitpos */
beb1bf64 1415 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1416 0, /* special_function */
1417 "R_TOC", /* name */
b34976b6 1418 TRUE, /* partial_inplace */
a78eab4e 1419 0xffff, /* src_mask */
dc810e39 1420 0xffff, /* dst_mask */
b34976b6 1421 FALSE), /* pcrel_offset */
dc810e39 1422
7fa9fcb6 1423 /* 0x04: I don't really know what this is. */
38487e5e 1424 HOWTO (R_RTB, /* type */
dc810e39
AM		 1425 1, /* rightshift */
1426 2, /* size (0 = byte, 1 = short, 2 = long) */
1427 32, /* bitsize */
b34976b6 1428 FALSE, /* pc_relative */
dc810e39 1429 0, /* bitpos */
beb1bf64 1430 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1431 0, /* special_function */
1432 "R_RTB", /* name */
b34976b6 1433 TRUE, /* partial_inplace */
a78eab4e 1434 0xffffffff, /* src_mask */
dc810e39 1435 0xffffffff, /* dst_mask */
b34976b6 1436 FALSE), /* pcrel_offset */
beb1bf64 1437
7fa9fcb6 1438 /* 0x05: External TOC relative symbol. */
38487e5e 1439 HOWTO (R_GL, /* type */
dc810e39 1440 0, /* rightshift */
48bfecdd 1441 1, /* size (0 = byte, 1 = short, 2 = long) */
dc810e39 1442 16, /* bitsize */
b34976b6 1443 FALSE, /* pc_relative */
dc810e39 1444 0, /* bitpos */
beb1bf64 1445 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1446 0, /* special_function */
1447 "R_GL", /* name */
b34976b6 1448 TRUE, /* partial_inplace */
a78eab4e 1449 0xffff, /* src_mask */
dc810e39 1450 0xffff, /* dst_mask */
b34976b6 1451 FALSE), /* pcrel_offset */
dc810e39 1452
7fa9fcb6 1453 /* 0x06: Local TOC relative symbol. */
38487e5e 1454 HOWTO (R_TCL, /* type */
dc810e39 1455 0, /* rightshift */
48bfecdd 1456 1, /* size (0 = byte, 1 = short, 2 = long) */
dc810e39 1457 16, /* bitsize */
b34976b6 1458 FALSE, /* pc_relative */
dc810e39 1459 0, /* bitpos */
beb1bf64 1460 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1461 0, /* special_function */
1462 "R_TCL", /* name */
b34976b6 1463 TRUE, /* partial_inplace */
a78eab4e 1464 0xffff, /* src_mask */
dc810e39 1465 0xffff, /* dst_mask */
b34976b6 1466 FALSE), /* pcrel_offset */
beb1bf64
TR		 1467
1468 EMPTY_HOWTO (7),
1469
7fa9fcb6 1470 /* 0x08: Non modifiable absolute branch. */
38487e5e 1471 HOWTO (R_BA, /* type */
dc810e39
AM		 1472 0, /* rightshift */
1473 2, /* size (0 = byte, 1 = short, 2 = long) */
1474 26, /* bitsize */
b34976b6 1475 FALSE, /* pc_relative */
dc810e39 1476 0, /* bitpos */
beb1bf64 1477 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39 1478 0, /* special_function */
59862849 1479 "R_BA_26", /* name */
b34976b6 1480 TRUE, /* partial_inplace */
a78eab4e 1481 0x03fffffc, /* src_mask */
48bfecdd 1482 0x03fffffc, /* dst_mask */
b34976b6 1483 FALSE), /* pcrel_offset */
beb1bf64
TR		 1484
1485 EMPTY_HOWTO (9),
1486
7fa9fcb6 1487 /* 0x0a: Non modifiable relative branch. */
38487e5e 1488 HOWTO (R_BR, /* type */
dc810e39
AM		 1489 0, /* rightshift */
1490 2, /* size (0 = byte, 1 = short, 2 = long) */
1491 26, /* bitsize */
b34976b6 1492 TRUE, /* pc_relative */
dc810e39 1493 0, /* bitpos */
beb1bf64 1494 complain_overflow_signed, /* complain_on_overflow */
dc810e39
AM		 1495 0, /* special_function */
1496 "R_BR", /* name */
b34976b6 1497 TRUE, /* partial_inplace */
a78eab4e 1498 0x03fffffc, /* src_mask */
48bfecdd 1499 0x03fffffc, /* dst_mask */
b34976b6 1500 FALSE), /* pcrel_offset */
beb1bf64
TR		 1501
1502 EMPTY_HOWTO (0xb),
1503
7fa9fcb6 1504 /* 0x0c: Indirect load. */
38487e5e 1505 HOWTO (R_RL, /* type */
dc810e39 1506 0, /* rightshift */
48bfecdd 1507 1, /* size (0 = byte, 1 = short, 2 = long) */
dc810e39 1508 16, /* bitsize */
b34976b6 1509 FALSE, /* pc_relative */
dc810e39 1510 0, /* bitpos */
beb1bf64 1511 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1512 0, /* special_function */
1513 "R_RL", /* name */
b34976b6 1514 TRUE, /* partial_inplace */
a78eab4e 1515 0xffff, /* src_mask */
dc810e39 1516 0xffff, /* dst_mask */
b34976b6 1517 FALSE), /* pcrel_offset */
beb1bf64 1518
7fa9fcb6 1519 /* 0x0d: Load address. */
38487e5e 1520 HOWTO (R_RLA, /* type */
dc810e39 1521 0, /* rightshift */
48bfecdd 1522 1, /* size (0 = byte, 1 = short, 2 = long) */
dc810e39 1523 16, /* bitsize */
b34976b6 1524 FALSE, /* pc_relative */
dc810e39 1525 0, /* bitpos */
beb1bf64 1526 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1527 0, /* special_function */
1528 "R_RLA", /* name */
b34976b6 1529 TRUE, /* partial_inplace */
a78eab4e 1530 0xffff, /* src_mask */
dc810e39 1531 0xffff, /* dst_mask */
b34976b6 1532 FALSE), /* pcrel_offset */
beb1bf64
TR		 1533
1534 EMPTY_HOWTO (0xe),
1535
7fa9fcb6 1536 /* 0x0f: Non-relocating reference. Bitsize is 1 so that r_rsize is 0. */
38487e5e 1537 HOWTO (R_REF, /* type */
dc810e39 1538 0, /* rightshift */
c865e45b
RS		 1539 0, /* size (0 = byte, 1 = short, 2 = long) */
1540 1, /* bitsize */
b34976b6 1541 FALSE, /* pc_relative */
dc810e39 1542 0, /* bitpos */
a78eab4e 1543 complain_overflow_dont, /* complain_on_overflow */
dc810e39
AM		 1544 0, /* special_function */
1545 "R_REF", /* name */
b34976b6 1546 FALSE, /* partial_inplace */
dc810e39
AM		 1547 0, /* src_mask */
1548 0, /* dst_mask */
b34976b6 1549 FALSE), /* pcrel_offset */
beb1bf64
TR		 1550
1551 EMPTY_HOWTO (0x10),
1552 EMPTY_HOWTO (0x11),
1553
7fa9fcb6 1554 /* 0x12: TOC relative indirect load. */
38487e5e 1555 HOWTO (R_TRL, /* type */
dc810e39 1556 0, /* rightshift */
48bfecdd 1557 1, /* size (0 = byte, 1 = short, 2 = long) */
dc810e39 1558 16, /* bitsize */
b34976b6 1559 FALSE, /* pc_relative */
dc810e39 1560 0, /* bitpos */
beb1bf64 1561 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1562 0, /* special_function */
1563 "R_TRL", /* name */
b34976b6 1564 TRUE, /* partial_inplace */
a78eab4e 1565 0xffff, /* src_mask */
dc810e39 1566 0xffff, /* dst_mask */
b34976b6 1567 FALSE), /* pcrel_offset */
dc810e39 1568
7fa9fcb6 1569 /* 0x13: TOC relative load address. */
38487e5e 1570 HOWTO (R_TRLA, /* type */
dc810e39 1571 0, /* rightshift */
48bfecdd 1572 1, /* size (0 = byte, 1 = short, 2 = long) */
dc810e39 1573 16, /* bitsize */
b34976b6 1574 FALSE, /* pc_relative */
dc810e39 1575 0, /* bitpos */
beb1bf64 1576 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1577 0, /* special_function */
1578 "R_TRLA", /* name */
b34976b6 1579 TRUE, /* partial_inplace */
a78eab4e 1580 0xffff, /* src_mask */
dc810e39 1581 0xffff, /* dst_mask */
b34976b6 1582 FALSE), /* pcrel_offset */
beb1bf64 1583
7fa9fcb6 1584 /* 0x14: Modifiable relative branch. */
38487e5e 1585 HOWTO (R_RRTBI, /* type */
dc810e39
AM		 1586 1, /* rightshift */
1587 2, /* size (0 = byte, 1 = short, 2 = long) */
1588 32, /* bitsize */
b34976b6 1589 FALSE, /* pc_relative */
dc810e39 1590 0, /* bitpos */
beb1bf64 1591 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1592 0, /* special_function */
1593 "R_RRTBI", /* name */
b34976b6 1594 TRUE, /* partial_inplace */
a78eab4e 1595 0xffffffff, /* src_mask */
dc810e39 1596 0xffffffff, /* dst_mask */
b34976b6 1597 FALSE), /* pcrel_offset */
beb1bf64 1598
7fa9fcb6 1599 /* 0x15: Modifiable absolute branch. */
38487e5e 1600 HOWTO (R_RRTBA, /* type */
dc810e39
AM		 1601 1, /* rightshift */
1602 2, /* size (0 = byte, 1 = short, 2 = long) */
1603 32, /* bitsize */
b34976b6 1604 FALSE, /* pc_relative */
dc810e39 1605 0, /* bitpos */
beb1bf64 1606 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1607 0, /* special_function */
1608 "R_RRTBA", /* name */
b34976b6 1609 TRUE, /* partial_inplace */
a78eab4e 1610 0xffffffff, /* src_mask */
dc810e39 1611 0xffffffff, /* dst_mask */
b34976b6 1612 FALSE), /* pcrel_offset */
dc810e39 1613
7fa9fcb6 1614 /* 0x16: Modifiable call absolute indirect. */
38487e5e 1615 HOWTO (R_CAI, /* type */
dc810e39 1616 0, /* rightshift */
48bfecdd 1617 1, /* size (0 = byte, 1 = short, 2 = long) */
dc810e39 1618 16, /* bitsize */
b34976b6 1619 FALSE, /* pc_relative */
dc810e39 1620 0, /* bitpos */
beb1bf64 1621 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1622 0, /* special_function */
1623 "R_CAI", /* name */
b34976b6 1624 TRUE, /* partial_inplace */
a78eab4e 1625 0xffff, /* src_mask */
dc810e39 1626 0xffff, /* dst_mask */
b34976b6 1627 FALSE), /* pcrel_offset */
dc810e39 1628
7fa9fcb6 1629 /* 0x17: Modifiable call relative. */
38487e5e 1630 HOWTO (R_CREL, /* type */
dc810e39 1631 0, /* rightshift */
48bfecdd 1632 1, /* size (0 = byte, 1 = short, 2 = long) */
dc810e39 1633 16, /* bitsize */
b34976b6 1634 FALSE, /* pc_relative */
dc810e39 1635 0, /* bitpos */
beb1bf64 1636 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1637 0, /* special_function */
1638 "R_CREL", /* name */
b34976b6 1639 TRUE, /* partial_inplace */
a78eab4e 1640 0xffff, /* src_mask */
dc810e39 1641 0xffff, /* dst_mask */
b34976b6 1642 FALSE), /* pcrel_offset */
beb1bf64 1643
7fa9fcb6 1644 /* 0x18: Modifiable branch absolute. */
38487e5e 1645 HOWTO (R_RBA, /* type */
dc810e39
AM		 1646 0, /* rightshift */
1647 2, /* size (0 = byte, 1 = short, 2 = long) */
1648 26, /* bitsize */
b34976b6 1649 FALSE, /* pc_relative */
dc810e39 1650 0, /* bitpos */
beb1bf64 1651 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1652 0, /* special_function */
1653 "R_RBA", /* name */
b34976b6 1654 TRUE, /* partial_inplace */
a78eab4e 1655 0x03fffffc, /* src_mask */
48bfecdd 1656 0x03fffffc, /* dst_mask */
b34976b6 1657 FALSE), /* pcrel_offset */
beb1bf64 1658
7fa9fcb6 1659 /* 0x19: Modifiable branch absolute. */
38487e5e 1660 HOWTO (R_RBAC, /* type */
dc810e39
AM		 1661 0, /* rightshift */
1662 2, /* size (0 = byte, 1 = short, 2 = long) */
1663 32, /* bitsize */
b34976b6 1664 FALSE, /* pc_relative */
dc810e39 1665 0, /* bitpos */
beb1bf64 1666 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1667 0, /* special_function */
1668 "R_RBAC", /* name */
b34976b6 1669 TRUE, /* partial_inplace */
a78eab4e 1670 0xffffffff, /* src_mask */
48bfecdd 1671 0xffffffff, /* dst_mask */
b34976b6 1672 FALSE), /* pcrel_offset */
beb1bf64 1673
7fa9fcb6 1674 /* 0x1a: Modifiable branch relative. */
38487e5e 1675 HOWTO (R_RBR, /* type */
dc810e39
AM		 1676 0, /* rightshift */
1677 2, /* size (0 = byte, 1 = short, 2 = long) */
1678 26, /* bitsize */
b34976b6 1679 FALSE, /* pc_relative */
dc810e39 1680 0, /* bitpos */
beb1bf64 1681 complain_overflow_signed, /* complain_on_overflow */
dc810e39 1682 0, /* special_function */
59862849 1683 "R_RBR_26", /* name */
b34976b6 1684 TRUE, /* partial_inplace */
a78eab4e 1685 0x03fffffc, /* src_mask */
48bfecdd 1686 0x03fffffc, /* dst_mask */
b34976b6 1687 FALSE), /* pcrel_offset */
beb1bf64 1688
7fa9fcb6 1689 /* 0x1b: Modifiable branch absolute. */
38487e5e 1690 HOWTO (R_RBRC, /* type */
dc810e39 1691 0, /* rightshift */
48bfecdd 1692 1, /* size (0 = byte, 1 = short, 2 = long) */
dc810e39 1693 16, /* bitsize */
b34976b6 1694 FALSE, /* pc_relative */
dc810e39 1695 0, /* bitpos */
beb1bf64 1696 complain_overflow_bitfield, /* complain_on_overflow */
dc810e39
AM		 1697 0, /* special_function */
1698 "R_RBRC", /* name */
b34976b6 1699 TRUE, /* partial_inplace */
a78eab4e 1700 0xffff, /* src_mask */
dc810e39 1701 0xffff, /* dst_mask */
b34976b6 1702 FALSE), /* pcrel_offset */
dc810e39 1703
7fa9fcb6 1704 /* 0x1c: Standard 32 bit relocation. */
38487e5e 1705 HOWTO (R_POS, /* type */
dc810e39 1706 0, /* rightshift */
59862849
TR		 1707 2, /* size (0 = byte, 1 = short, 2 = long) */
1708 32, /* bitsize */
b34976b6 1709 FALSE, /* pc_relative */
dc810e39
AM		 1710 0, /* bitpos */
1711 complain_overflow_bitfield, /* complain_on_overflow */
1712 0, /* special_function */
59862849 1713 "R_POS_32", /* name */
b34976b6 1714 TRUE, /* partial_inplace */
a78eab4e 1715 0xffffffff, /* src_mask */
59862849 1716 0xffffffff, /* dst_mask */
b34976b6 1717 FALSE), /* pcrel_offset */
ff3a6ee3 1718
7fa9fcb6 1719 /* 0x1d: 16 bit Non modifiable absolute branch. */
54327882
AM		 1720 HOWTO (R_BA, /* type */
1721 0, /* rightshift */
59862849 1722 1, /* size (0 = byte, 1 = short, 2 = long) */
54327882 1723 16, /* bitsize */
b34976b6 1724 FALSE, /* pc_relative */
54327882 1725 0, /* bitpos */
ff3a6ee3 1726 complain_overflow_bitfield, /* complain_on_overflow */
54327882 1727 0, /* special_function */
59862849 1728 "R_BA_16", /* name */
b34976b6 1729 TRUE, /* partial_inplace */
a78eab4e 1730 0xfffc, /* src_mask */
54327882 1731 0xfffc, /* dst_mask */
b34976b6 1732 FALSE), /* pcrel_offset */
59862849 1733
7fa9fcb6 1734 /* 0x1e: Modifiable branch relative. */
cf9ab45b
AM		 1735 HOWTO (R_RBR, /* type */
1736 0, /* rightshift */
1737 1, /* size (0 = byte, 1 = short, 2 = long) */
1738 16, /* bitsize */
7fa9fcb6 1739 TRUE, /* pc_relative */
cf9ab45b 1740 0, /* bitpos */
59862849 1741 complain_overflow_signed, /* complain_on_overflow */
cf9ab45b
AM		 1742 0, /* special_function */
1743 "R_RBR_16", /* name */
b34976b6 1744 TRUE, /* partial_inplace */
7fa9fcb6
TG		 1745 0xfffc, /* src_mask */
1746 0xfffc, /* dst_mask */
b34976b6 1747 FALSE), /* pcrel_offset */
1b164155 1748
7fa9fcb6 1749 /* 0x1f: Modifiable branch absolute. */
1b164155
TR		 1750 HOWTO (R_RBA, /* type */
1751 0, /* rightshift */
1752 1, /* size (0 = byte, 1 = short, 2 = long) */
1753 16, /* bitsize */
b34976b6 1754 FALSE, /* pc_relative */
1b164155
TR		 1755 0, /* bitpos */
1756 complain_overflow_bitfield, /* complain_on_overflow */
1757 0, /* special_function */
1758 "R_RBA_16", /* name */
b34976b6 1759 TRUE, /* partial_inplace */
a78eab4e 1760 0xffff, /* src_mask */
1b164155 1761 0xffff, /* dst_mask */
b34976b6 1762 FALSE), /* pcrel_offset */
1b164155 1763
beb1bf64
TR		 1764};
1765
1766void
4964e065 1767xcoff64_rtype2howto (arelent *relent, struct internal_reloc *internal)
beb1bf64 1768{
59862849 1769 if (internal->r_type > R_RBRC)
beb1bf64
TR		 1770 abort ();
1771
59862849
TR		 1772 /* Default howto layout works most of the time */
1773 relent->howto = &xcoff64_howto_table[internal->r_type];
cf9ab45b 1774
5c4491d3 1775 /* Special case some 16 bit reloc */
59862849
TR		 1776 if (15 == (internal->r_size & 0x3f))
1777 {
cf9ab45b 1778 if (R_BA == internal->r_type)
59862849 1779 relent->howto = &xcoff64_howto_table[0x1d];
cf9ab45b 1780 else if (R_RBR == internal->r_type)
59862849 1781 relent->howto = &xcoff64_howto_table[0x1e];
cf9ab45b 1782 else if (R_RBA == internal->r_type)
1b164155 1783 relent->howto = &xcoff64_howto_table[0x1f];
59862849
TR		 1784 }
1785 /* Special case 32 bit */
1786 else if (31 == (internal->r_size & 0x3f))
1787 {
cf9ab45b 1788 if (R_POS == internal->r_type)
59862849
TR		 1789 relent->howto = &xcoff64_howto_table[0x1c];
1790 }
cf9ab45b 1791
beb1bf64
TR		 1792 /* The r_size field of an XCOFF reloc encodes the bitsize of the
1793 relocation, as well as indicating whether it is signed or not.
1794 Doublecheck that the relocation information gathered from the
1795 type matches this information. The bitsize is not significant
1796 for R_REF relocs. */
1797 if (relent->howto->dst_mask != 0
dc810e39 1798 && (relent->howto->bitsize
beb1bf64
TR		 1799 != ((unsigned int) internal->r_size & 0x3f) + 1))
1800 abort ();
beb1bf64
TR		 1801}
1802
1803reloc_howto_type *
4964e065 1804xcoff64_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
07d6d2b8 1805 bfd_reloc_code_real_type code)
beb1bf64
TR		 1806{
1807 switch (code)
1808 {
1809 case BFD_RELOC_PPC_B26:
1810 return &xcoff64_howto_table[0xa];
ff3a6ee3
TR		 1811 case BFD_RELOC_PPC_BA16:
1812 return &xcoff64_howto_table[0x1d];
beb1bf64
TR		 1813 case BFD_RELOC_PPC_BA26:
1814 return &xcoff64_howto_table[8];
1815 case BFD_RELOC_PPC_TOC16:
1816 return &xcoff64_howto_table[3];
9f6e76f4
TG		 1817 case BFD_RELOC_16:
1818 /* Note that this relocation is only internally used by gas. */
1819 return &xcoff64_howto_table[0xc];
7fa9fcb6
TG		 1820 case BFD_RELOC_PPC_B16:
1821 return &xcoff64_howto_table[0x1e];
beb1bf64
TR		 1822 case BFD_RELOC_32:
1823 case BFD_RELOC_CTOR:
beb1bf64 1824 return &xcoff64_howto_table[0x1c];
59862849
TR		 1825 case BFD_RELOC_64:
1826 return &xcoff64_howto_table[0];
c865e45b
RS		 1827 case BFD_RELOC_NONE:
1828 return &xcoff64_howto_table[0xf];
beb1bf64
TR		 1829 default:
1830 return NULL;
1831 }
1832}
1833
157090f7
AM		 1834static reloc_howto_type *
1835xcoff64_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1836 const char *r_name)
1837{
1838 unsigned int i;
1839
1840 for (i = 0;
1841 i < sizeof (xcoff64_howto_table) / sizeof (xcoff64_howto_table[0]);
1842 i++)
1843 if (xcoff64_howto_table[i].name != NULL
1844 && strcasecmp (xcoff64_howto_table[i].name, r_name) == 0)
1845 return &xcoff64_howto_table[i];
1846
1847 return NULL;
1848}
1849
6c4e7b6b
NC		 1850/* PR 21786: The PE/COFF standard does not require NUL termination for any of
1851 the ASCII fields in the archive headers. So in order to be able to extract
1852 numerical values we provide our own versions of strtol and strtoll which
1853 take a maximum length as an additional parameter. Also - just to save space,
1854 we omit the endptr return parameter, since we know that it is never used. */
1855
1856static long
1857_bfd_strntol (const char * nptr, int base, unsigned int maxlen)
1858{
1859 char buf[24]; /* Should be enough. */
1860
1861 BFD_ASSERT (maxlen < (sizeof (buf) - 1));
1862
1863 memcpy (buf, nptr, maxlen);
1864 buf[maxlen] = 0;
1865 return strtol (buf, NULL, base);
1866}
1867
1868static long long
1869_bfd_strntoll (const char * nptr, int base, unsigned int maxlen)
1870{
1871 char buf[32]; /* Should be enough. */
1872
1873 BFD_ASSERT (maxlen < (sizeof (buf) - 1));
1874
1875 memcpy (buf, nptr, maxlen);
1876 buf[maxlen] = 0;
1877 return strtoll (buf, NULL, base);
1878}
1879
1880/* Macro to read an ASCII value stored in an archive header field. */
677bd4c6
AM		 1881#define GET_VALUE_IN_FIELD(VAR, FIELD, BASE) \
1882 do \
1883 { \
1884 (VAR) = (sizeof (VAR) > sizeof (long) \
1885 ? _bfd_strntoll (FIELD, BASE, sizeof FIELD) \
1886 : _bfd_strntol (FIELD, BASE, sizeof FIELD)); \
1887 } \
6c4e7b6b
NC		 1888 while (0)
1889
beb1bf64
TR		 1890/* Read in the armap of an XCOFF archive. */
1891
b34976b6 1892static bfd_boolean
4964e065 1893xcoff64_slurp_armap (bfd *abfd)
beb1bf64
TR		 1894{
1895 file_ptr off;
1896 size_t namlen;
dc810e39 1897 bfd_size_type sz, amt;
beb1bf64
TR		 1898 bfd_byte *contents, *cend;
1899 bfd_vma c, i;
1900 carsym *arsym;
1901 bfd_byte *p;
dc810e39 1902 file_ptr pos;
beb1bf64
TR		 1903
1904 /* This is for the new format. */
1905 struct xcoff_ar_hdr_big hdr;
1906
dc810e39
AM		 1907 if (xcoff_ardata (abfd) == NULL)
1908 {
ed48ec2e 1909 abfd->has_armap = FALSE;
b34976b6 1910 return TRUE;
dc810e39 1911 }
beb1bf64 1912
487e54f2
AM		 1913 off = bfd_scan_vma (xcoff_ardata_big (abfd)->symoff64,
1914 (const char **) NULL, 10);
dc810e39
AM		 1915 if (off == 0)
1916 {
ed48ec2e 1917 abfd->has_armap = FALSE;
b34976b6 1918 return TRUE;
dc810e39 1919 }
beb1bf64
TR		 1920
1921 if (bfd_seek (abfd, off, SEEK_SET) != 0)
b34976b6 1922 return FALSE;
beb1bf64
TR		 1923
1924 /* The symbol table starts with a normal archive header. */
4964e065 1925 if (bfd_bread (&hdr, (bfd_size_type) SIZEOF_AR_HDR_BIG, abfd)
dc810e39 1926 != SIZEOF_AR_HDR_BIG)
b34976b6 1927 return FALSE;
beb1bf64
TR		 1928
1929 /* Skip the name (normally empty). */
677bd4c6 1930 GET_VALUE_IN_FIELD (namlen, hdr.namlen, 10);
dc810e39
AM		 1931 pos = ((namlen + 1) & ~(size_t) 1) + SXCOFFARFMAG;
1932 if (bfd_seek (abfd, pos, SEEK_CUR) != 0)
b34976b6 1933 return FALSE;
beb1bf64 1934
487e54f2 1935 sz = bfd_scan_vma (hdr.size, (const char **) NULL, 10);
c15a8f17 1936 if (sz + 1 < 9)
228c8f4b 1937 {
c15a8f17 1938 bfd_set_error (bfd_error_bad_value);
228c8f4b
AM		 1939 return FALSE;
1940 }
beb1bf64
TR		 1941
1942 /* Read in the entire symbol table. */
2bb3687b 1943 contents = (bfd_byte *) _bfd_alloc_and_read (abfd, sz + 1, sz);
beb1bf64 1944 if (contents == NULL)
b34976b6 1945 return FALSE;
beb1bf64 1946
228c8f4b
AM		 1947 /* Ensure strings are NULL terminated so we don't wander off the end
1948 of the buffer. */
1949 contents[sz] = 0;
1950
beb1bf64 1951 /* The symbol table starts with an eight byte count. */
dc810e39 1952 c = H_GET_64 (abfd, contents);
beb1bf64 1953
228c8f4b 1954 if (c >= sz / 8)
dc810e39
AM		 1955 {
1956 bfd_set_error (bfd_error_bad_value);
b34976b6 1957 return FALSE;
dc810e39
AM		 1958 }
1959 amt = c;
1960 amt *= sizeof (carsym);
1961 bfd_ardata (abfd)->symdefs = (carsym *) bfd_alloc (abfd, amt);
beb1bf64 1962 if (bfd_ardata (abfd)->symdefs == NULL)
b34976b6 1963 return FALSE;
dc810e39 1964
beb1bf64
TR		 1965 /* After the count comes a list of eight byte file offsets. */
1966 for (i = 0, arsym = bfd_ardata (abfd)->symdefs, p = contents + 8;
1967 i < c;
1968 ++i, ++arsym, p += 8)
dc810e39 1969 arsym->file_offset = H_GET_64 (abfd, p);
beb1bf64
TR		 1970
1971 /* After the file offsets come null terminated symbol names. */
1972 cend = contents + sz;
1973 for (i = 0, arsym = bfd_ardata (abfd)->symdefs;
1974 i < c;
1975 ++i, ++arsym, p += strlen ((char *) p) + 1)
1976 {
1977 if (p >= cend)
1978 {
1979 bfd_set_error (bfd_error_bad_value);
b34976b6 1980 return FALSE;
beb1bf64
TR		 1981 }
1982 arsym->name = (char *) p;
1983 }
1984
1985 bfd_ardata (abfd)->symdef_count = c;
ed48ec2e 1986 abfd->has_armap = TRUE;
beb1bf64 1987
b34976b6 1988 return TRUE;
beb1bf64
TR		 1989}
1990
1991
beb1bf64
TR		 1992/* See if this is an NEW XCOFF archive. */
1993
cb001c0d 1994static bfd_cleanup
4964e065 1995xcoff64_archive_p (bfd *abfd)
beb1bf64 1996{
487e54f2 1997 struct artdata *tdata_hold;
beb1bf64
TR		 1998 char magic[SXCOFFARMAG];
1999 /* This is the new format. */
2000 struct xcoff_ar_file_hdr_big hdr;
986f0783 2001 size_t amt = SXCOFFARMAG;
beb1bf64 2002
4964e065 2003 if (bfd_bread (magic, amt, abfd) != amt)
dc810e39
AM		 2004 {
2005 if (bfd_get_error () != bfd_error_system_call)
2006 bfd_set_error (bfd_error_wrong_format);
2007 return NULL;
2008 }
2009
2010 if (strncmp (magic, XCOFFARMAGBIG, SXCOFFARMAG) != 0)
2011 {
2012 bfd_set_error (bfd_error_wrong_format);
2013 return NULL;
2014 }
beb1bf64 2015
beb1bf64
TR		 2016 /* Copy over the magic string. */
2017 memcpy (hdr.magic, magic, SXCOFFARMAG);
2018
2019 /* Now read the rest of the file header. */
487e54f2 2020 amt = SIZEOF_AR_FILE_HDR_BIG - SXCOFFARMAG;
4964e065 2021 if (bfd_bread (&hdr.memoff, amt, abfd) != amt)
dc810e39
AM		 2022 {
2023 if (bfd_get_error () != bfd_error_system_call)
2024 bfd_set_error (bfd_error_wrong_format);
2025 return NULL;
2026 }
beb1bf64 2027
487e54f2
AM		 2028 tdata_hold = bfd_ardata (abfd);
2029
2030 amt = sizeof (struct artdata);
2031 bfd_ardata (abfd) = (struct artdata *) bfd_zalloc (abfd, amt);
2032 if (bfd_ardata (abfd) == (struct artdata *) NULL)
2033 goto error_ret_restore;
2034
9e492e05
JJ		 2035 /* Already cleared by bfd_zalloc above.
2036 bfd_ardata (abfd)->cache = NULL;
2037 bfd_ardata (abfd)->archive_head = NULL;
2038 bfd_ardata (abfd)->symdefs = NULL;
2039 bfd_ardata (abfd)->extended_names = NULL;
2040 bfd_ardata (abfd)->extended_names_size = 0; */
487e54f2
AM		 2041 bfd_ardata (abfd)->first_file_filepos = bfd_scan_vma (hdr.firstmemoff,
2042 (const char **) NULL,
2043 10);
beb1bf64 2044
dc810e39
AM		 2045 amt = SIZEOF_AR_FILE_HDR_BIG;
2046 bfd_ardata (abfd)->tdata = bfd_zalloc (abfd, amt);
beb1bf64 2047 if (bfd_ardata (abfd)->tdata == NULL)
487e54f2 2048 goto error_ret;
dc810e39 2049
beb1bf64
TR		 2050 memcpy (bfd_ardata (abfd)->tdata, &hdr, SIZEOF_AR_FILE_HDR_BIG);
2051
dc810e39
AM		 2052 if (! xcoff64_slurp_armap (abfd))
2053 {
487e54f2 2054 error_ret:
dc810e39 2055 bfd_release (abfd, bfd_ardata (abfd));
487e54f2
AM		 2056 error_ret_restore:
2057 bfd_ardata (abfd) = tdata_hold;
dc810e39
AM		 2058 return NULL;
2059 }
beb1bf64 2060
cb001c0d 2061 return _bfd_no_cleanup;
beb1bf64
TR		 2062}
2063
2064
2065/* Open the next element in an XCOFF archive. */
2066
814fa6ab 2067static bfd *
4964e065 2068xcoff64_openr_next_archived_file (bfd *archive, bfd *last_file)
beb1bf64 2069{
cf3d882d 2070 bfd_vma filestart;
beb1bf64 2071
dc810e39
AM		 2072 if ((xcoff_ardata (archive) == NULL)
2073 || ! xcoff_big_format_p (archive))
2074 {
2075 bfd_set_error (bfd_error_invalid_operation);
2076 return NULL;
2077 }
beb1bf64 2078
dc810e39
AM		 2079 if (last_file == NULL)
2080 {
beb1bf64 2081 filestart = bfd_ardata (archive)->first_file_filepos;
dc810e39
AM		 2082 }
2083 else
2084 {
487e54f2
AM		 2085 filestart = bfd_scan_vma (arch_xhdr_big (last_file)->nextoff,
2086 (const char **) NULL, 10);
dc810e39 2087 }
487e54f2 2088
beb1bf64 2089 if (filestart == 0
487e54f2
AM		 2090 || filestart == bfd_scan_vma (xcoff_ardata_big (archive)->memoff,
2091 (const char **) NULL, 10)
2092 || filestart == bfd_scan_vma (xcoff_ardata_big (archive)->symoff,
2093 (const char **) NULL, 10))
dc810e39
AM		 2094 {
2095 bfd_set_error (bfd_error_no_more_archived_files);
2096 return NULL;
2097 }
beb1bf64 2098
cf3d882d 2099 return _bfd_get_elt_at_filepos (archive, (file_ptr) filestart);
beb1bf64
TR		 2100}
2101
2102/* We can't use the usual coff_sizeof_headers routine, because AIX
2103 always uses an a.out header. */
2104
814fa6ab 2105static int
a6b96beb
AM		 2106xcoff64_sizeof_headers (bfd *abfd,
2107 struct bfd_link_info *info ATTRIBUTE_UNUSED)
beb1bf64
TR		 2108{
2109 int size;
2110
dc810e39 2111 size = bfd_coff_filhsz (abfd);
beb1bf64 2112
08da05b0 2113 /* Don't think the small aout header can be used since some of the
dc810e39
AM		 2114 old elements have been reordered past the end of the old coff
2115 small aout size. */
beb1bf64
TR		 2116
2117 if (xcoff_data (abfd)->full_aouthdr)
dc810e39 2118 size += bfd_coff_aoutsz (abfd);
beb1bf64 2119
dc810e39 2120 size += abfd->section_count * bfd_coff_scnhsz (abfd);
beb1bf64
TR		 2121 return size;
2122}
2123
beb1bf64 2124static asection *
4964e065 2125xcoff64_create_csect_from_smclas (bfd *abfd, union internal_auxent *aux,
07d6d2b8 2126 const char *symbol_name)
beb1bf64
TR		 2127{
2128 asection *return_value = NULL;
2129
dc810e39
AM		 2130 /* Changes from 32 :
2131 .sv == 8, is only for 32 bit programs
2132 .ti == 12 and .tb == 13 are now reserved. */
2133 static const char *names[19] =
2134 {
beb1bf64
TR		 2135 ".pr", ".ro", ".db", ".tc", ".ua", ".rw", ".gl", ".xo",
2136 NULL, ".bs", ".ds", ".uc", NULL, NULL, NULL, ".tc0",
dc810e39 2137 ".td", ".sv64", ".sv3264"
beb1bf64
TR		 2138 };
2139
dc810e39
AM		 2140 if ((19 >= aux->x_csect.x_smclas)
2141 && (NULL != names[aux->x_csect.x_smclas]))
2142 {
beb1bf64 2143
dc810e39
AM		 2144 return_value = bfd_make_section_anyway
2145 (abfd, names[aux->x_csect.x_smclas]);
beb1bf64 2146
dc810e39
AM		 2147 }
2148 else
2149 {
4eca0228 2150 _bfd_error_handler
695344c0 2151 /* xgettext: c-format */
871b3ab2 2152 (_("%pB: symbol `%s' has unrecognized smclas %d"),
d003868e 2153 abfd, symbol_name, aux->x_csect.x_smclas);
dc810e39
AM		 2154 bfd_set_error (bfd_error_bad_value);
2155 }
beb1bf64
TR		 2156
2157 return return_value;
2158}
2159
b34976b6 2160static bfd_boolean
4964e065 2161xcoff64_is_lineno_count_overflow (bfd *abfd ATTRIBUTE_UNUSED,
07d6d2b8 2162 bfd_vma value ATTRIBUTE_UNUSED)
beb1bf64 2163{
b34976b6 2164 return FALSE;
beb1bf64
TR		 2165}
2166
b34976b6 2167static bfd_boolean
4964e065 2168xcoff64_is_reloc_count_overflow (bfd *abfd ATTRIBUTE_UNUSED,
07d6d2b8 2169 bfd_vma value ATTRIBUTE_UNUSED)
beb1bf64 2170{
b34976b6 2171 return FALSE;
beb1bf64
TR		 2172}
2173
814fa6ab 2174static bfd_vma
4964e065 2175xcoff64_loader_symbol_offset (bfd *abfd ATTRIBUTE_UNUSED,
07d6d2b8 2176 struct internal_ldhdr *ldhdr)
beb1bf64
TR		 2177{
2178 return (ldhdr->l_symoff);
2179}
2180
814fa6ab 2181static bfd_vma
4964e065 2182xcoff64_loader_reloc_offset (bfd *abfd ATTRIBUTE_UNUSED,
07d6d2b8 2183 struct internal_ldhdr *ldhdr)
beb1bf64
TR		 2184{
2185 return (ldhdr->l_rldoff);
2186}
2187
b34976b6 2188static bfd_boolean
4964e065 2189xcoff64_bad_format_hook (bfd * abfd, void *filehdr)
eb1e0e80
NC		 2190{
2191 struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr;
2192
2193 /* Check flavor first. */
2194 if (bfd_get_flavour (abfd) != bfd_target_xcoff_flavour)
b34976b6 2195 return FALSE;
eb1e0e80
NC		 2196
2197 if (bfd_xcoff_magic_number (abfd) != internal_f->f_magic)
b34976b6 2198 return FALSE;
eb1e0e80 2199
b34976b6 2200 return TRUE;
eb1e0e80
NC		 2201}
2202
b34976b6 2203static bfd_boolean
4964e065 2204xcoff64_generate_rtinit (bfd *abfd, const char *init, const char *fini,
07d6d2b8 2205 bfd_boolean rtld)
9a4c7f16
TR		 2206{
2207 bfd_byte filehdr_ext[FILHSZ];
69f284c7
TR		 2208 bfd_byte scnhdr_ext[SCNHSZ * 3];
2209 bfd_byte syment_ext[SYMESZ * 10];
2210 bfd_byte reloc_ext[RELSZ * 3];
9a4c7f16
TR		 2211 bfd_byte *data_buffer;
2212 bfd_size_type data_buffer_size;
2213 bfd_byte *string_table, *st_tmp;
2214 bfd_size_type string_table_size;
2215 bfd_vma val;
2216 size_t initsz, finisz;
2217 struct internal_filehdr filehdr;
69f284c7
TR		 2218 struct internal_scnhdr text_scnhdr;
2219 struct internal_scnhdr data_scnhdr;
2220 struct internal_scnhdr bss_scnhdr;
9a4c7f16
TR		 2221 struct internal_syment syment;
2222 union internal_auxent auxent;
2223 struct internal_reloc reloc;
54327882 2224
69f284c7 2225 char *text_name = ".text";
9a4c7f16 2226 char *data_name = ".data";
69f284c7 2227 char *bss_name = ".bss";
9a4c7f16 2228 char *rtinit_name = "__rtinit";
69f284c7 2229 char *rtld_name = "__rtld";
54327882 2230
69f284c7 2231 if (! bfd_xcoff_rtinit_size (abfd))
b34976b6 2232 return FALSE;
9a4c7f16
TR		 2233
2234 initsz = (init == NULL ? 0 : 1 + strlen (init));
2235 finisz = (fini == NULL ? 0 : 1 + strlen (fini));
2236
eb1e0e80 2237 /* File header. */
9a4c7f16
TR		 2238 memset (filehdr_ext, 0, FILHSZ);
2239 memset (&filehdr, 0, sizeof (struct internal_filehdr));
2240 filehdr.f_magic = bfd_xcoff_magic_number (abfd);
54327882 2241 filehdr.f_nscns = 3;
9a4c7f16
TR		 2242 filehdr.f_timdat = 0;
2243 filehdr.f_nsyms = 0; /* at least 6, no more than 8 */
2244 filehdr.f_symptr = 0; /* set below */
2245 filehdr.f_opthdr = 0;
2246 filehdr.f_flags = 0;
2247
eb1e0e80 2248 /* Section headers. */
69f284c7
TR		 2249 memset (scnhdr_ext, 0, 3 * SCNHSZ);
2250
eb1e0e80 2251 /* Text. */
69f284c7
TR		 2252 memset (&text_scnhdr, 0, sizeof (struct internal_scnhdr));
2253 memcpy (text_scnhdr.s_name, text_name, strlen (text_name));
2254 text_scnhdr.s_paddr = 0;
2255 text_scnhdr.s_vaddr = 0;
2256 text_scnhdr.s_size = 0;
2257 text_scnhdr.s_scnptr = 0;
2258 text_scnhdr.s_relptr = 0;
2259 text_scnhdr.s_lnnoptr = 0;
2260 text_scnhdr.s_nreloc = 0;
2261 text_scnhdr.s_nlnno = 0;
2262 text_scnhdr.s_flags = STYP_TEXT;
2263
eb1e0e80 2264 /* Data. */
69f284c7
TR		 2265 memset (&data_scnhdr, 0, sizeof (struct internal_scnhdr));
2266 memcpy (data_scnhdr.s_name, data_name, strlen (data_name));
2267 data_scnhdr.s_paddr = 0;
2268 data_scnhdr.s_vaddr = 0;
2269 data_scnhdr.s_size = 0; /* set below */
2270 data_scnhdr.s_scnptr = FILHSZ + 3 * SCNHSZ;
2271 data_scnhdr.s_relptr = 0; /* set below */
2272 data_scnhdr.s_lnnoptr = 0;
2273 data_scnhdr.s_nreloc = 0; /* either 1 or 2 */
2274 data_scnhdr.s_nlnno = 0;
2275 data_scnhdr.s_flags = STYP_DATA;
2276
eb1e0e80 2277 /* Bss. */
69f284c7
TR		 2278 memset (&bss_scnhdr, 0, sizeof (struct internal_scnhdr));
2279 memcpy (bss_scnhdr.s_name, bss_name, strlen (bss_name));
2280 bss_scnhdr.s_paddr = 0; /* set below */
2281 bss_scnhdr.s_vaddr = 0; /* set below */
2282 bss_scnhdr.s_size = 0; /* set below */
2283 bss_scnhdr.s_scnptr = 0;
54327882 2284 bss_scnhdr.s_relptr = 0;
69f284c7
TR		 2285 bss_scnhdr.s_lnnoptr = 0;
2286 bss_scnhdr.s_nreloc = 0;
2287 bss_scnhdr.s_nlnno = 0;
2288 bss_scnhdr.s_flags = STYP_BSS;
9a4c7f16 2289
54327882 2290 /* .data
cf9ab45b
AM		 2291 0x0000 0x00000000 : rtl
2292 0x0004 0x00000000 :
2293 0x0008 0x00000018 : offset to init, or 0
2294 0x000C 0x00000038 : offset to fini, or 0
2295 0x0010 0x00000010 : size of descriptor
2296 0x0014 0x00000000 : pad
2297 0x0018 0x00000000 : init, needs a reloc
2298 0x001C 0x00000000 :
2299 0x0020 0x00000058 : offset to init name
2300 0x0024 0x00000000 : flags, padded to a word
2301 0x0028 0x00000000 : empty init
2302 0x002C 0x00000000 :
2303 0x0030 0x00000000 :
2304 0x0034 0x00000000 :
2305 0x0038 0x00000000 : fini, needs a reloc
2306 0x003C 0x00000000 :
2307 0x0040 0x00000??? : offset to fini name
2308 0x0044 0x00000000 : flags, padded to a word
2309 0x0048 0x00000000 : empty fini
2310 0x004C 0x00000000 :
2311 0x0050 0x00000000 :
2312 0x0054 0x00000000 :
2313 0x0058 init name
9a4c7f16
TR		 2314 0x0058 + initsz fini name */
2315
2316 data_buffer_size = 0x0058 + initsz + finisz;
2a52da53 2317 data_buffer_size = (data_buffer_size + 7) &~ (bfd_size_type) 7;
330693f5 2318 data_buffer = NULL;
9bab7074 2319 data_buffer = (bfd_byte *) bfd_zmalloc (data_buffer_size);
330693f5 2320 if (data_buffer == NULL)
b34976b6 2321 return FALSE;
54327882 2322
54327882 2323 if (initsz)
9a4c7f16
TR		 2324 {
2325 val = 0x18;
2326 bfd_put_32 (abfd, val, &data_buffer[0x08]);
2327 val = 0x58;
2328 bfd_put_32 (abfd, val, &data_buffer[0x20]);
2329 memcpy (&data_buffer[val], init, initsz);
2330 }
2331
54327882 2332 if (finisz)
9a4c7f16
TR		 2333 {
2334 val = 0x38;
2335 bfd_put_32 (abfd, val, &data_buffer[0x0C]);
2336 val = 0x58 + initsz;
2337 bfd_put_32 (abfd, val, &data_buffer[0x40]);
2338 memcpy (&data_buffer[val], fini, finisz);
2339 }
2340
2341 val = 0x10;
2342 bfd_put_32 (abfd, val, &data_buffer[0x10]);
69f284c7
TR		 2343 data_scnhdr.s_size = data_buffer_size;
2344 bss_scnhdr.s_paddr = bss_scnhdr.s_vaddr = data_scnhdr.s_size;
9a4c7f16 2345
eb1e0e80 2346 /* String table. */
9a4c7f16
TR		 2347 string_table_size = 4;
2348 string_table_size += strlen (data_name) + 1;
2349 string_table_size += strlen (rtinit_name) + 1;
2350 string_table_size += initsz;
2351 string_table_size += finisz;
cf9ab45b 2352 if (rtld)
69f284c7 2353 string_table_size += strlen (rtld_name) + 1;
9a4c7f16 2354
9bab7074
AM		 2355 string_table = (bfd_byte *) bfd_zmalloc (string_table_size);
2356 if (string_table == NULL)
b34976b6 2357 return FALSE;
9bab7074 2358
9a4c7f16
TR		 2359 val = string_table_size;
2360 bfd_put_32 (abfd, val, &string_table[0]);
2361 st_tmp = string_table + 4;
54327882
AM		 2362
2363 /* symbols
9a4c7f16
TR		 2364 0. .data csect
2365 2. __rtinit
54327882
AM		 2366 4. init function
2367 6. fini function
69f284c7
TR		 2368 8. __rtld */
2369 memset (syment_ext, 0, 10 * SYMESZ);
2370 memset (reloc_ext, 0, 3 * RELSZ);
9a4c7f16
TR		 2371
2372 /* .data csect */
2373 memset (&syment, 0, sizeof (struct internal_syment));
2374 memset (&auxent, 0, sizeof (union internal_auxent));
2375
2376 syment._n._n_n._n_offset = st_tmp - string_table;
2377 memcpy (st_tmp, data_name, strlen (data_name));
2378 st_tmp += strlen (data_name) + 1;
2379
69f284c7 2380 syment.n_scnum = 2;
9a4c7f16
TR		 2381 syment.n_sclass = C_HIDEXT;
2382 syment.n_numaux = 1;
2383 auxent.x_csect.x_scnlen.l = data_buffer_size;
2384 auxent.x_csect.x_smtyp = 3 << 3 | XTY_SD;
2385 auxent.x_csect.x_smclas = XMC_RW;
54327882 2386 bfd_coff_swap_sym_out (abfd, &syment,
9a4c7f16 2387 &syment_ext[filehdr.f_nsyms * SYMESZ]);
54327882
AM		 2388 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2389 syment.n_numaux,
9a4c7f16
TR		 2390 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2391 filehdr.f_nsyms += 2;
2392
2393 /* __rtinit */
2394 memset (&syment, 0, sizeof (struct internal_syment));
2395 memset (&auxent, 0, sizeof (union internal_auxent));
2396 syment._n._n_n._n_offset = st_tmp - string_table;
2397 memcpy (st_tmp, rtinit_name, strlen (rtinit_name));
2398 st_tmp += strlen (rtinit_name) + 1;
54327882 2399
69f284c7 2400 syment.n_scnum = 2;
9a4c7f16
TR		 2401 syment.n_sclass = C_EXT;
2402 syment.n_numaux = 1;
2403 auxent.x_csect.x_smtyp = XTY_LD;
2404 auxent.x_csect.x_smclas = XMC_RW;
54327882 2405 bfd_coff_swap_sym_out (abfd, &syment,
9a4c7f16 2406 &syment_ext[filehdr.f_nsyms * SYMESZ]);
54327882
AM		 2407 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2408 syment.n_numaux,
9a4c7f16
TR		 2409 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2410 filehdr.f_nsyms += 2;
2411
eb1e0e80 2412 /* Init. */
54327882 2413 if (initsz)
9a4c7f16
TR		 2414 {
2415 memset (&syment, 0, sizeof (struct internal_syment));
2416 memset (&auxent, 0, sizeof (union internal_auxent));
2417
2418 syment._n._n_n._n_offset = st_tmp - string_table;
2419 memcpy (st_tmp, init, initsz);
2420 st_tmp += initsz;
2421
2422 syment.n_sclass = C_EXT;
2423 syment.n_numaux = 1;
54327882 2424 bfd_coff_swap_sym_out (abfd, &syment,
9a4c7f16 2425 &syment_ext[filehdr.f_nsyms * SYMESZ]);
54327882
AM		 2426 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2427 syment.n_numaux,
9a4c7f16 2428 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
eb1e0e80 2429 /* Reloc. */
9a4c7f16
TR		 2430 memset (&reloc, 0, sizeof (struct internal_reloc));
2431 reloc.r_vaddr = 0x0018;
2432 reloc.r_symndx = filehdr.f_nsyms;
2433 reloc.r_type = R_POS;
2434 reloc.r_size = 63;
2435 bfd_coff_swap_reloc_out (abfd, &reloc, &reloc_ext[0]);
2436
2437 filehdr.f_nsyms += 2;
69f284c7 2438 data_scnhdr.s_nreloc += 1;
9a4c7f16
TR		 2439 }
2440
eb1e0e80 2441 /* Finit. */
54327882 2442 if (finisz)
9a4c7f16
TR		 2443 {
2444 memset (&syment, 0, sizeof (struct internal_syment));
2445 memset (&auxent, 0, sizeof (union internal_auxent));
2446
2447 syment._n._n_n._n_offset = st_tmp - string_table;
2448 memcpy (st_tmp, fini, finisz);
2449 st_tmp += finisz;
2450
2451 syment.n_sclass = C_EXT;
2452 syment.n_numaux = 1;
54327882 2453 bfd_coff_swap_sym_out (abfd, &syment,
9a4c7f16 2454 &syment_ext[filehdr.f_nsyms * SYMESZ]);
54327882
AM		 2455 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2456 syment.n_numaux,
9a4c7f16
TR		 2457 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2458
eb1e0e80 2459 /* Reloc. */
9a4c7f16
TR		 2460 memset (&reloc, 0, sizeof (struct internal_reloc));
2461 reloc.r_vaddr = 0x0038;
2462 reloc.r_symndx = filehdr.f_nsyms;
2463 reloc.r_type = R_POS;
2464 reloc.r_size = 63;
54327882 2465 bfd_coff_swap_reloc_out (abfd, &reloc,
69f284c7 2466 &reloc_ext[data_scnhdr.s_nreloc * RELSZ]);
9a4c7f16
TR		 2467
2468 filehdr.f_nsyms += 2;
69f284c7 2469 data_scnhdr.s_nreloc += 1;
9a4c7f16
TR		 2470 }
2471
69f284c7
TR		 2472 if (rtld)
2473 {
2474 memset (&syment, 0, sizeof (struct internal_syment));
2475 memset (&auxent, 0, sizeof (union internal_auxent));
2476
2477 syment._n._n_n._n_offset = st_tmp - string_table;
2478 memcpy (st_tmp, rtld_name, strlen (rtld_name));
2479 st_tmp += strlen (rtld_name) + 1;
2480
2481 syment.n_sclass = C_EXT;
2482 syment.n_numaux = 1;
54327882 2483 bfd_coff_swap_sym_out (abfd, &syment,
69f284c7 2484 &syment_ext[filehdr.f_nsyms * SYMESZ]);
54327882
AM		 2485 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2486 syment.n_numaux,
69f284c7
TR		 2487 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2488
eb1e0e80 2489 /* Reloc. */
69f284c7
TR		 2490 memset (&reloc, 0, sizeof (struct internal_reloc));
2491 reloc.r_vaddr = 0x0000;
2492 reloc.r_symndx = filehdr.f_nsyms;
2493 reloc.r_type = R_POS;
2494 reloc.r_size = 63;
54327882 2495 bfd_coff_swap_reloc_out (abfd, &reloc,
69f284c7
TR		 2496 &reloc_ext[data_scnhdr.s_nreloc * RELSZ]);
2497
2498 filehdr.f_nsyms += 2;
2499 data_scnhdr.s_nreloc += 1;
2500
2501 bss_scnhdr.s_size = 0;
2502 }
2503
2504 data_scnhdr.s_relptr = data_scnhdr.s_scnptr + data_buffer_size;
2505 filehdr.f_symptr = data_scnhdr.s_relptr + data_scnhdr.s_nreloc * RELSZ;
9a4c7f16
TR		 2506
2507 bfd_coff_swap_filehdr_out (abfd, &filehdr, filehdr_ext);
2508 bfd_bwrite (filehdr_ext, FILHSZ, abfd);
69f284c7
TR		 2509 bfd_coff_swap_scnhdr_out (abfd, &text_scnhdr, &scnhdr_ext[SCNHSZ * 0]);
2510 bfd_coff_swap_scnhdr_out (abfd, &data_scnhdr, &scnhdr_ext[SCNHSZ * 1]);
2511 bfd_coff_swap_scnhdr_out (abfd, &bss_scnhdr, &scnhdr_ext[SCNHSZ * 2]);
2512 bfd_bwrite (scnhdr_ext, 3 * SCNHSZ, abfd);
9a4c7f16 2513 bfd_bwrite (data_buffer, data_buffer_size, abfd);
69f284c7 2514 bfd_bwrite (reloc_ext, data_scnhdr.s_nreloc * RELSZ, abfd);
9a4c7f16
TR		 2515 bfd_bwrite (syment_ext, filehdr.f_nsyms * SYMESZ, abfd);
2516 bfd_bwrite (string_table, string_table_size, abfd);
2517
330693f5
TR		 2518 free (data_buffer);
2519 data_buffer = NULL;
2520
b34976b6 2521 return TRUE;
9a4c7f16
TR		 2522}
2523
beb1bf64
TR		 2524/* The typical dynamic reloc. */
2525
2526static reloc_howto_type xcoff64_dynamic_reloc =
dc810e39
AM		 2527HOWTO (0, /* type */
2528 0, /* rightshift */
2529 4, /* size (0 = byte, 1 = short, 2 = long) */
2530 64, /* bitsize */
b34976b6 2531 FALSE, /* pc_relative */
dc810e39
AM		 2532 0, /* bitpos */
2533 complain_overflow_bitfield, /* complain_on_overflow */
2534 0, /* special_function */
2535 "R_POS", /* name */
b34976b6 2536 TRUE, /* partial_inplace */
dc810e39
AM		 2537 MINUS_ONE, /* src_mask */
2538 MINUS_ONE, /* dst_mask */
b34976b6 2539 FALSE); /* pcrel_offset */
beb1bf64 2540
342371d5 2541static const unsigned long xcoff64_glink_code[10] =
beb1bf64 2542{
54327882
AM		 2543 0xe9820000, /* ld r12,0(r2) */
2544 0xf8410028, /* std r2,40(r1) */
2545 0xe80c0000, /* ld r0,0(r12) */
2546 0xe84c0008, /* ld r0,8(r12) */
2547 0x7c0903a6, /* mtctr r0 */
2548 0x4e800420, /* bctr */
2549 0x00000000, /* start of traceback table */
2550 0x000ca000, /* traceback table */
2551 0x00000000, /* traceback table */
2552 0x00000018, /* ??? */
beb1bf64
TR		 2553};
2554
dc810e39 2555static const struct xcoff_backend_data_rec bfd_xcoff_backend_data =
cf9ab45b
AM		 2556 {
2557 { /* COFF backend, defined in libcoff.h. */
2558 _bfd_xcoff64_swap_aux_in,
2559 _bfd_xcoff64_swap_sym_in,
2560 _bfd_xcoff64_swap_lineno_in,
2561 _bfd_xcoff64_swap_aux_out,
2562 _bfd_xcoff64_swap_sym_out,
2563 _bfd_xcoff64_swap_lineno_out,
2564 xcoff64_swap_reloc_out,
2565 coff_swap_filehdr_out,
2566 coff_swap_aouthdr_out,
2567 coff_swap_scnhdr_out,
2568 FILHSZ,
2569 AOUTSZ,
2570 SCNHSZ,
2571 SYMESZ,
2572 AUXESZ,
2573 RELSZ,
2574 LINESZ,
2575 FILNMLEN,
b34976b6 2576 TRUE, /* _bfd_coff_long_filenames */
88183869 2577 XCOFF_NO_LONG_SECTION_NAMES, /* _bfd_coff_long_section_names */
cf9ab45b 2578 3, /* _bfd_coff_default_section_alignment_power */
b34976b6 2579 TRUE, /* _bfd_coff_force_symnames_in_strings */
cf9ab45b 2580 4, /* _bfd_coff_debug_string_prefix_length */
167ad85b 2581 32768, /* _bfd_coff_max_nscns */
cf9ab45b
AM		 2582 coff_swap_filehdr_in,
2583 coff_swap_aouthdr_in,
2584 coff_swap_scnhdr_in,
2585 xcoff64_swap_reloc_in,
2586 xcoff64_bad_format_hook,
2587 coff_set_arch_mach_hook,
2588 coff_mkobject_hook,
2589 styp_to_sec_flags,
2590 coff_set_alignment_hook,
2591 coff_slurp_symbol_table,
2592 symname_in_debug_hook,
2593 coff_pointerize_aux_hook,
2594 coff_print_aux,
2595 dummy_reloc16_extra_cases,
2596 dummy_reloc16_estimate,
e144674a 2597 NULL, /* bfd_coff_symbol_classification */
cf9ab45b
AM		 2598 coff_compute_section_file_positions,
2599 NULL, /* _bfd_coff_start_final_link */
2600 xcoff64_ppc_relocate_section,
2601 coff_rtype_to_howto,
2602 NULL, /* _bfd_coff_adjust_symndx */
2603 _bfd_generic_link_add_one_symbol,
2604 coff_link_output_has_begun,
2b5c217d
NC		 2605 coff_final_link_postscript,
2606 NULL /* print_pdata. */
cf9ab45b
AM		 2607 },
2608
2609 0x01EF, /* magic number */
2610 bfd_arch_powerpc,
2611 bfd_mach_ppc_620,
2612
2613 /* Function pointers to xcoff specific swap routines. */
2614 xcoff64_swap_ldhdr_in,
2615 xcoff64_swap_ldhdr_out,
2616 xcoff64_swap_ldsym_in,
2617 xcoff64_swap_ldsym_out,
2618 xcoff64_swap_ldrel_in,
2619 xcoff64_swap_ldrel_out,
2620
2621 /* Sizes. */
2622 LDHDRSZ,
2623 LDSYMSZ,
2624 LDRELSZ,
2625 24, /* _xcoff_function_descriptor_size */
2626 0, /* _xcoff_small_aout_header_size */
2627
2628 /* Versions. */
2629 2, /* _xcoff_ldhdr_version */
2630
2631 _bfd_xcoff64_put_symbol_name,
2632 _bfd_xcoff64_put_ldsymbol_name,
2633 &xcoff64_dynamic_reloc,
2634 xcoff64_create_csect_from_smclas,
2635
2636 /* Lineno and reloc count overflow. */
2637 xcoff64_is_lineno_count_overflow,
2638 xcoff64_is_reloc_count_overflow,
2639
2640 xcoff64_loader_symbol_offset,
2641 xcoff64_loader_reloc_offset,
2642
2643 /* glink. */
2644 &xcoff64_glink_code[0],
2645 40, /* _xcoff_glink_size */
2646
2647 /* rtinit. */
2648 88, /* _xcoff_rtinit_size */
2649 xcoff64_generate_rtinit,
2650 };
beb1bf64 2651
eb1e0e80 2652/* The transfer vector that leads the outside world to all of the above. */
6d00b590 2653const bfd_target rs6000_xcoff64_vec =
cf9ab45b
AM		 2654 {
2655 "aixcoff64-rs6000",
2656 bfd_target_xcoff_flavour,
2657 BFD_ENDIAN_BIG, /* data byte order is big */
2658 BFD_ENDIAN_BIG, /* header byte order is big */
2659
2660 (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | DYNAMIC
2661 | HAS_SYMS | HAS_LOCALS | WP_TEXT),
2662
a7c71b0c 2663 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA,
cf9ab45b
AM		 2664 0, /* leading char */
2665 '/', /* ar_pad_char */
2666 15, /* ar_max_namelen */
0aabe54e 2667 0, /* match priority. */
cf9ab45b
AM		 2668
2669 /* data */
2670 bfd_getb64,
2671 bfd_getb_signed_64,
2672 bfd_putb64,
2673 bfd_getb32,
2674 bfd_getb_signed_32,
2675 bfd_putb32,
2676 bfd_getb16,
2677 bfd_getb_signed_16,
2678 bfd_putb16,
2679
2680 /* hdrs */
2681 bfd_getb64,
2682 bfd_getb_signed_64,
2683 bfd_putb64,
2684 bfd_getb32,
2685 bfd_getb_signed_32,
2686 bfd_putb32,
2687 bfd_getb16,
2688 bfd_getb_signed_16,
2689 bfd_putb16,
2690
2691 { /* bfd_check_format */
2692 _bfd_dummy_target,
2693 coff_object_p,
2694 xcoff64_archive_p,
2695 CORE_FILE_P
2696 },
2697
2698 { /* bfd_set_format */
d00dd7dc 2699 _bfd_bool_bfd_false_error,
cf9ab45b
AM		 2700 coff_mkobject,
2701 _bfd_generic_mkarchive,
d00dd7dc 2702 _bfd_bool_bfd_false_error
cf9ab45b
AM		 2703 },
2704
2705 {/* bfd_write_contents */
d00dd7dc 2706 _bfd_bool_bfd_false_error,
cf9ab45b
AM		 2707 xcoff64_write_object_contents,
2708 _bfd_xcoff_write_archive_contents,
d00dd7dc 2709 _bfd_bool_bfd_false_error
cf9ab45b
AM		 2710 },
2711
2712 /* Generic */
329e5cac 2713 _bfd_archive_close_and_cleanup,
d00dd7dc 2714 _bfd_bool_bfd_true,
cf9ab45b
AM		 2715 coff_new_section_hook,
2716 _bfd_generic_get_section_contents,
2717 _bfd_generic_get_section_contents_in_window,
2718
2719 /* Copy */
2720 _bfd_xcoff_copy_private_bfd_data,
ac96f0c7 2721 _bfd_generic_bfd_merge_private_bfd_data,
60b48850 2722 _bfd_generic_init_private_section_data,
ac96f0c7
TG		 2723 _bfd_generic_bfd_copy_private_section_data,
2724 _bfd_generic_bfd_copy_private_symbol_data,
2725 _bfd_generic_bfd_copy_private_header_data,
2726 _bfd_generic_bfd_set_private_flags,
2727 _bfd_generic_bfd_print_private_bfd_data,
cf9ab45b
AM		 2728
2729 /* Core */
261b8d08 2730 BFD_JUMP_TABLE_CORE (coff),
cf9ab45b
AM		 2731
2732 /* Archive */
2733 xcoff64_slurp_armap,
ac96f0c7
TG		 2734 _bfd_noarchive_slurp_extended_name_table,
2735 _bfd_noarchive_construct_extended_name_table,
cf9ab45b
AM		 2736 bfd_dont_truncate_arname,
2737 _bfd_xcoff_write_armap,
2738 _bfd_xcoff_read_ar_hdr,
8f95b6e4 2739 _bfd_generic_write_ar_hdr,
cf9ab45b
AM		 2740 xcoff64_openr_next_archived_file,
2741 _bfd_generic_get_elt_at_index,
2742 _bfd_xcoff_stat_arch_elt,
d00dd7dc 2743 _bfd_bool_bfd_true,
cf9ab45b
AM		 2744
2745 /* Symbols */
2746 coff_get_symtab_upper_bound,
6cee3f79 2747 coff_canonicalize_symtab,
cf9ab45b
AM		 2748 coff_make_empty_symbol,
2749 coff_print_symbol,
2750 coff_get_symbol_info,
60bb06bc 2751 coff_get_symbol_version_string,
cf9ab45b 2752 _bfd_xcoff_is_local_label_name,
7db6994f 2753 coff_bfd_is_target_special_symbol,
cf9ab45b
AM		 2754 coff_get_lineno,
2755 coff_find_nearest_line,
9c461f7d 2756 coff_find_line,
4ab527b0 2757 coff_find_inliner_info,
cf9ab45b
AM		 2758 coff_bfd_make_debug_symbol,
2759 _bfd_generic_read_minisymbols,
2760 _bfd_generic_minisymbol_to_symbol,
2761
2762 /* Reloc */
2763 coff_get_reloc_upper_bound,
2764 coff_canonicalize_reloc,
23186865 2765 _bfd_generic_set_reloc,
cf9ab45b 2766 xcoff64_reloc_type_lookup,
157090f7 2767 xcoff64_reloc_name_lookup,
cf9ab45b
AM		 2768
2769 /* Write */
2770 coff_set_arch_mach,
2771 coff_set_section_contents,
2772
2773 /* Link */
2774 xcoff64_sizeof_headers,
2775 bfd_generic_get_relocated_section_contents,
2776 bfd_generic_relax_section,
2777 _bfd_xcoff_bfd_link_hash_table_create,
cf9ab45b
AM		 2778 _bfd_xcoff_bfd_link_add_symbols,
2779 _bfd_generic_link_just_syms,
1338dd10 2780 _bfd_generic_copy_link_hash_symbol_type,
cf9ab45b
AM		 2781 _bfd_xcoff_bfd_final_link,
2782 _bfd_generic_link_split_section,
4f3b23b3 2783 _bfd_generic_link_check_relocs,
cf9ab45b 2784 bfd_generic_gc_sections,
ae17ab41 2785 bfd_generic_lookup_section_flags,
cf9ab45b 2786 bfd_generic_merge_sections,
72adc230 2787 bfd_generic_is_group_section,
cb7f4b29 2788 bfd_generic_group_name,
cf9ab45b 2789 bfd_generic_discard_group,
082b7297 2790 _bfd_generic_section_already_linked,
3023e3f6 2791 _bfd_xcoff_define_common_symbol,
34a87bb0 2792 _bfd_generic_link_hide_symbol,
7dba9362 2793 bfd_generic_define_start_stop,
cf9ab45b
AM		 2794
2795 /* Dynamic */
2796 _bfd_xcoff_get_dynamic_symtab_upper_bound,
2797 _bfd_xcoff_canonicalize_dynamic_symtab,
4c45e5c9 2798 _bfd_nodynamic_get_synthetic_symtab,
cf9ab45b
AM		 2799 _bfd_xcoff_get_dynamic_reloc_upper_bound,
2800 _bfd_xcoff_canonicalize_dynamic_reloc,
2801
2802 /* Opposite endian version, none exists */
2803 NULL,
2804
4964e065 2805 &bfd_xcoff_backend_data,
cf9ab45b 2806 };
eb1e0e80 2807
cb001c0d 2808extern bfd_cleanup xcoff64_core_p
4964e065 2809 (bfd *);
b34976b6 2810extern bfd_boolean xcoff64_core_file_matches_executable_p
4964e065 2811 (bfd *, bfd *);
b34976b6 2812extern char *xcoff64_core_file_failing_command
4964e065 2813 (bfd *);
b34976b6 2814extern int xcoff64_core_file_failing_signal
4964e065
TG		 2815 (bfd *);
2816#define xcoff64_core_file_pid _bfd_nocore_core_file_pid
eb1e0e80
NC		 2817
2818/* AIX 5 */
54327882 2819static const struct xcoff_backend_data_rec bfd_xcoff_aix5_backend_data =
cf9ab45b
AM		 2820 {
2821 { /* COFF backend, defined in libcoff.h. */
2822 _bfd_xcoff64_swap_aux_in,
2823 _bfd_xcoff64_swap_sym_in,
2824 _bfd_xcoff64_swap_lineno_in,
2825 _bfd_xcoff64_swap_aux_out,
2826 _bfd_xcoff64_swap_sym_out,
2827 _bfd_xcoff64_swap_lineno_out,
2828 xcoff64_swap_reloc_out,
2829 coff_swap_filehdr_out,
2830 coff_swap_aouthdr_out,
2831 coff_swap_scnhdr_out,
2832 FILHSZ,
2833 AOUTSZ,
2834 SCNHSZ,
2835 SYMESZ,
2836 AUXESZ,
2837 RELSZ,
2838 LINESZ,
2839 FILNMLEN,
b34976b6 2840 TRUE, /* _bfd_coff_long_filenames */
88183869 2841 XCOFF_NO_LONG_SECTION_NAMES, /* _bfd_coff_long_section_names */
cf9ab45b 2842 3, /* _bfd_coff_default_section_alignment_power */
b34976b6 2843 TRUE, /* _bfd_coff_force_symnames_in_strings */
cf9ab45b 2844 4, /* _bfd_coff_debug_string_prefix_length */
167ad85b 2845 32768, /* _bfd_coff_max_nscns */
cf9ab45b
AM		 2846 coff_swap_filehdr_in,
2847 coff_swap_aouthdr_in,
2848 coff_swap_scnhdr_in,
2849 xcoff64_swap_reloc_in,
2850 xcoff64_bad_format_hook,
2851 coff_set_arch_mach_hook,
2852 coff_mkobject_hook,
2853 styp_to_sec_flags,
2854 coff_set_alignment_hook,
2855 coff_slurp_symbol_table,
2856 symname_in_debug_hook,
2857 coff_pointerize_aux_hook,
2858 coff_print_aux,
2859 dummy_reloc16_extra_cases,
2860 dummy_reloc16_estimate,
2861 NULL, /* bfd_coff_sym_is_global */
2862 coff_compute_section_file_positions,
2863 NULL, /* _bfd_coff_start_final_link */
2864 xcoff64_ppc_relocate_section,
2865 coff_rtype_to_howto,
2866 NULL, /* _bfd_coff_adjust_symndx */
2867 _bfd_generic_link_add_one_symbol,
2868 coff_link_output_has_begun,
2b5c217d
NC		 2869 coff_final_link_postscript,
2870 NULL /* print_pdata. */
cf9ab45b
AM		 2871 },
2872
2873 U64_TOCMAGIC, /* magic number */
2874 bfd_arch_powerpc,
2875 bfd_mach_ppc_620,
2876
2877 /* Function pointers to xcoff specific swap routines. */
2878 xcoff64_swap_ldhdr_in,
2879 xcoff64_swap_ldhdr_out,
2880 xcoff64_swap_ldsym_in,
2881 xcoff64_swap_ldsym_out,
2882 xcoff64_swap_ldrel_in,
2883 xcoff64_swap_ldrel_out,
2884
2885 /* Sizes. */
2886 LDHDRSZ,
2887 LDSYMSZ,
2888 LDRELSZ,
2889 24, /* _xcoff_function_descriptor_size */
2890 0, /* _xcoff_small_aout_header_size */
2891 /* Versions. */
2892 2, /* _xcoff_ldhdr_version */
2893
2894 _bfd_xcoff64_put_symbol_name,
2895 _bfd_xcoff64_put_ldsymbol_name,
2896 &xcoff64_dynamic_reloc,
2897 xcoff64_create_csect_from_smclas,
2898
2899 /* Lineno and reloc count overflow. */
2900 xcoff64_is_lineno_count_overflow,
2901 xcoff64_is_reloc_count_overflow,
2902
2903 xcoff64_loader_symbol_offset,
2904 xcoff64_loader_reloc_offset,
2905
2906 /* glink. */
2907 &xcoff64_glink_code[0],
2908 40, /* _xcoff_glink_size */
2909
2910 /* rtinit. */
2911 88, /* _xcoff_rtinit_size */
2912 xcoff64_generate_rtinit,
2913 };
eb1e0e80
NC		 2914
2915/* The transfer vector that leads the outside world to all of the above. */
6d00b590 2916const bfd_target rs6000_xcoff64_aix_vec =
cf9ab45b
AM		 2917 {
2918 "aix5coff64-rs6000",
2919 bfd_target_xcoff_flavour,
2920 BFD_ENDIAN_BIG, /* data byte order is big */
2921 BFD_ENDIAN_BIG, /* header byte order is big */
2922
2923 (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | DYNAMIC
2924 | HAS_SYMS | HAS_LOCALS | WP_TEXT),
2925
a7c71b0c 2926 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA,
cf9ab45b
AM		 2927 0, /* leading char */
2928 '/', /* ar_pad_char */
2929 15, /* ar_max_namelen */
0aabe54e 2930 0, /* match priority. */
cf9ab45b
AM		 2931
2932 /* data */
2933 bfd_getb64,
2934 bfd_getb_signed_64,
2935 bfd_putb64,
2936 bfd_getb32,
2937 bfd_getb_signed_32,
2938 bfd_putb32,
2939 bfd_getb16,
2940 bfd_getb_signed_16,
2941 bfd_putb16,
2942
2943 /* hdrs */
2944 bfd_getb64,
2945 bfd_getb_signed_64,
2946 bfd_putb64,
2947 bfd_getb32,
2948 bfd_getb_signed_32,
2949 bfd_putb32,
2950 bfd_getb16,
2951 bfd_getb_signed_16,
2952 bfd_putb16,
2953
2954 { /* bfd_check_format */
2955 _bfd_dummy_target,
2956 coff_object_p,
2957 xcoff64_archive_p,
2958 xcoff64_core_p
2959 },
2960
2961 { /* bfd_set_format */
d00dd7dc 2962 _bfd_bool_bfd_false_error,
cf9ab45b
AM		 2963 coff_mkobject,
2964 _bfd_generic_mkarchive,
d00dd7dc 2965 _bfd_bool_bfd_false_error
cf9ab45b
AM		 2966 },
2967
2968 {/* bfd_write_contents */
d00dd7dc 2969 _bfd_bool_bfd_false_error,
cf9ab45b
AM		 2970 xcoff64_write_object_contents,
2971 _bfd_xcoff_write_archive_contents,
d00dd7dc 2972 _bfd_bool_bfd_false_error
cf9ab45b
AM		 2973 },
2974
2975 /* Generic */
329e5cac 2976 _bfd_archive_close_and_cleanup,
d00dd7dc 2977 _bfd_bool_bfd_true,
cf9ab45b
AM		 2978 coff_new_section_hook,
2979 _bfd_generic_get_section_contents,
2980 _bfd_generic_get_section_contents_in_window,
2981
2982 /* Copy */
2983 _bfd_xcoff_copy_private_bfd_data,
ac96f0c7 2984 _bfd_generic_bfd_merge_private_bfd_data,
60b48850 2985 _bfd_generic_init_private_section_data,
ac96f0c7
TG		 2986 _bfd_generic_bfd_copy_private_section_data,
2987 _bfd_generic_bfd_copy_private_symbol_data,
2988 _bfd_generic_bfd_copy_private_header_data,
2989 _bfd_generic_bfd_set_private_flags,
2990 _bfd_generic_bfd_print_private_bfd_data,
cf9ab45b
AM		 2991
2992 /* Core */
261b8d08 2993 BFD_JUMP_TABLE_CORE (xcoff64),
cf9ab45b
AM		 2994
2995 /* Archive */
2996 xcoff64_slurp_armap,
ac96f0c7
TG		 2997 _bfd_noarchive_slurp_extended_name_table,
2998 _bfd_noarchive_construct_extended_name_table,
cf9ab45b
AM		 2999 bfd_dont_truncate_arname,
3000 _bfd_xcoff_write_armap,
3001 _bfd_xcoff_read_ar_hdr,
8f95b6e4 3002 _bfd_generic_write_ar_hdr,
cf9ab45b
AM		 3003 xcoff64_openr_next_archived_file,
3004 _bfd_generic_get_elt_at_index,
3005 _bfd_xcoff_stat_arch_elt,
d00dd7dc 3006 _bfd_bool_bfd_true,
cf9ab45b
AM		 3007
3008 /* Symbols */
3009 coff_get_symtab_upper_bound,
6cee3f79 3010 coff_canonicalize_symtab,
cf9ab45b
AM		 3011 coff_make_empty_symbol,
3012 coff_print_symbol,
3013 coff_get_symbol_info,
60bb06bc 3014 coff_get_symbol_version_string,
cf9ab45b 3015 _bfd_xcoff_is_local_label_name,
7db6994f 3016 coff_bfd_is_target_special_symbol,
cf9ab45b
AM		 3017 coff_get_lineno,
3018 coff_find_nearest_line,
9c461f7d 3019 coff_find_line,
4ab527b0 3020 coff_find_inliner_info,
cf9ab45b
AM		 3021 coff_bfd_make_debug_symbol,
3022 _bfd_generic_read_minisymbols,
3023 _bfd_generic_minisymbol_to_symbol,
3024
3025 /* Reloc */
3026 coff_get_reloc_upper_bound,
3027 coff_canonicalize_reloc,
23186865 3028 _bfd_generic_set_reloc,
cf9ab45b 3029 xcoff64_reloc_type_lookup,
157090f7 3030 xcoff64_reloc_name_lookup,
cf9ab45b
AM		 3031
3032 /* Write */
3033 coff_set_arch_mach,
3034 coff_set_section_contents,
3035
3036 /* Link */
3037 xcoff64_sizeof_headers,
3038 bfd_generic_get_relocated_section_contents,
3039 bfd_generic_relax_section,
3040 _bfd_xcoff_bfd_link_hash_table_create,
cf9ab45b
AM		 3041 _bfd_xcoff_bfd_link_add_symbols,
3042 _bfd_generic_link_just_syms,
1338dd10 3043 _bfd_generic_copy_link_hash_symbol_type,
cf9ab45b
AM		 3044 _bfd_xcoff_bfd_final_link,
3045 _bfd_generic_link_split_section,
4f3b23b3 3046 _bfd_generic_link_check_relocs,
cf9ab45b 3047 bfd_generic_gc_sections,
ae17ab41 3048 bfd_generic_lookup_section_flags,
cf9ab45b 3049 bfd_generic_merge_sections,
72adc230 3050 bfd_generic_is_group_section,
cb7f4b29 3051 bfd_generic_group_name,
cf9ab45b 3052 bfd_generic_discard_group,
082b7297 3053 _bfd_generic_section_already_linked,
3023e3f6 3054 _bfd_xcoff_define_common_symbol,
34a87bb0 3055 _bfd_generic_link_hide_symbol,
7dba9362 3056 bfd_generic_define_start_stop,
cf9ab45b
AM		 3057
3058 /* Dynamic */
3059 _bfd_xcoff_get_dynamic_symtab_upper_bound,
3060 _bfd_xcoff_canonicalize_dynamic_symtab,
4c45e5c9 3061 _bfd_nodynamic_get_synthetic_symtab,
cf9ab45b
AM		 3062 _bfd_xcoff_get_dynamic_reloc_upper_bound,
3063 _bfd_xcoff_canonicalize_dynamic_reloc,
3064
3065 /* Opposite endian version, none exists. */
3066 NULL,
3067
4964e065 3068 & bfd_xcoff_aix5_backend_data,
cf9ab45b 3069 };
A mirror of the official binutils-gdb repository