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