1 /* BFD back-end for IBM RS/6000 "XCOFF64" files.
2 Copyright 2000, 2001, 2002
3 Free Software Foundation, Inc.
4 Written Clinton Popetz.
5 Contributed by Cygnus Support.
7 This file is part of BFD, the Binary File Descriptor library.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
27 #include "coff/internal.h"
28 #include "coff/xcoff.h"
29 #include "coff/rs6k64.h"
33 #define GET_FILEHDR_SYMPTR H_GET_64
34 #define PUT_FILEHDR_SYMPTR H_PUT_64
35 #define GET_AOUTHDR_DATA_START H_GET_64
36 #define PUT_AOUTHDR_DATA_START H_PUT_64
37 #define GET_AOUTHDR_TEXT_START H_GET_64
38 #define PUT_AOUTHDR_TEXT_START H_PUT_64
39 #define GET_AOUTHDR_TSIZE H_GET_64
40 #define PUT_AOUTHDR_TSIZE H_PUT_64
41 #define GET_AOUTHDR_DSIZE H_GET_64
42 #define PUT_AOUTHDR_DSIZE H_PUT_64
43 #define GET_AOUTHDR_BSIZE H_GET_64
44 #define PUT_AOUTHDR_BSIZE H_PUT_64
45 #define GET_AOUTHDR_ENTRY H_GET_64
46 #define PUT_AOUTHDR_ENTRY H_PUT_64
47 #define GET_SCNHDR_PADDR H_GET_64
48 #define PUT_SCNHDR_PADDR H_PUT_64
49 #define GET_SCNHDR_VADDR H_GET_64
50 #define PUT_SCNHDR_VADDR H_PUT_64
51 #define GET_SCNHDR_SIZE H_GET_64
52 #define PUT_SCNHDR_SIZE H_PUT_64
53 #define GET_SCNHDR_SCNPTR H_GET_64
54 #define PUT_SCNHDR_SCNPTR H_PUT_64
55 #define GET_SCNHDR_RELPTR H_GET_64
56 #define PUT_SCNHDR_RELPTR H_PUT_64
57 #define GET_SCNHDR_LNNOPTR H_GET_64
58 #define PUT_SCNHDR_LNNOPTR H_PUT_64
59 #define GET_SCNHDR_NRELOC H_GET_32
60 #define MAX_SCNHDR_NRELOC 0xffffffff
61 #define PUT_SCNHDR_NRELOC H_PUT_32
62 #define GET_SCNHDR_NLNNO H_GET_32
63 #define MAX_SCNHDR_NLNNO 0xffffffff
64 #define PUT_SCNHDR_NLNNO H_PUT_32
65 #define GET_RELOC_VADDR H_GET_64
66 #define PUT_RELOC_VADDR H_PUT_64
68 #define COFF_FORCE_SYMBOLS_IN_STRINGS
69 #define COFF_DEBUG_STRING_WIDE_PREFIX
72 #define COFF_ADJUST_SCNHDR_OUT_POST(ABFD, INT, EXT) \
75 memset (((SCNHDR *) EXT)->s_pad, 0, \
76 sizeof (((SCNHDR *) EXT)->s_pad)); \
80 #define NO_COFF_LINENOS
82 #define coff_SWAP_lineno_in _bfd_xcoff64_swap_lineno_in
83 #define coff_SWAP_lineno_out _bfd_xcoff64_swap_lineno_out
85 static void _bfd_xcoff64_swap_lineno_in PARAMS ((bfd *, PTR, PTR));
86 static unsigned int _bfd_xcoff64_swap_lineno_out PARAMS ((bfd *, PTR, PTR));
87 static boolean _bfd_xcoff64_put_symbol_name
88 PARAMS ((bfd *, struct bfd_strtab_hash *, struct internal_syment *,
90 static boolean _bfd_xcoff64_put_ldsymbol_name
91 PARAMS ((bfd *, struct xcoff_loader_info *, struct internal_ldsym *,
93 static void _bfd_xcoff64_swap_sym_in PARAMS ((bfd *, PTR, PTR));
94 static unsigned int _bfd_xcoff64_swap_sym_out PARAMS ((bfd *, PTR, PTR));
95 static void _bfd_xcoff64_swap_aux_in
96 PARAMS ((bfd *, PTR, int, int, int, int, PTR));
97 static unsigned int _bfd_xcoff64_swap_aux_out
98 PARAMS ((bfd *, PTR, int, int, int, int, PTR));
99 static void xcoff64_swap_reloc_in PARAMS ((bfd *, PTR, PTR));
100 static unsigned int xcoff64_swap_reloc_out PARAMS ((bfd *, PTR, PTR));
101 extern boolean _bfd_xcoff_mkobject PARAMS ((bfd *));
102 extern boolean _bfd_xcoff_copy_private_bfd_data PARAMS ((bfd *, bfd *));
103 extern boolean _bfd_xcoff_is_local_label_name PARAMS ((bfd *, const char *));
104 extern void xcoff64_rtype2howto
105 PARAMS ((arelent *, struct internal_reloc *));
106 extern reloc_howto_type * xcoff64_reloc_type_lookup
107 PARAMS ((bfd *, bfd_reloc_code_real_type));
108 extern boolean _bfd_xcoff_slurp_armap PARAMS ((bfd *));
109 extern PTR _bfd_xcoff_read_ar_hdr PARAMS ((bfd *));
110 extern bfd *_bfd_xcoff_openr_next_archived_file PARAMS ((bfd *, bfd *));
111 extern int _bfd_xcoff_stat_arch_elt PARAMS ((bfd *, struct stat *));
112 extern boolean _bfd_xcoff_write_armap
113 PARAMS ((bfd *, unsigned int, struct orl *, unsigned int, int));
114 extern boolean _bfd_xcoff_write_archive_contents PARAMS ((bfd *));
115 extern int _bfd_xcoff_sizeof_headers PARAMS ((bfd *, boolean));
116 extern void _bfd_xcoff_swap_sym_in PARAMS ((bfd *, PTR, PTR));
117 extern unsigned int _bfd_xcoff_swap_sym_out PARAMS ((bfd *, PTR, PTR));
118 extern void _bfd_xcoff_swap_aux_in
119 PARAMS ((bfd *, PTR, int, int, int, int, PTR));
120 extern unsigned int _bfd_xcoff_swap_aux_out
121 PARAMS ((bfd *, PTR, int, int, int, int, PTR));
122 static void xcoff64_swap_ldhdr_in
123 PARAMS ((bfd *, const PTR, struct internal_ldhdr *));
124 static void xcoff64_swap_ldhdr_out
125 PARAMS ((bfd *, const struct internal_ldhdr *, PTR d));
126 static void xcoff64_swap_ldsym_in
127 PARAMS ((bfd *, const PTR, struct internal_ldsym *));
128 static void xcoff64_swap_ldsym_out
129 PARAMS ((bfd *, const struct internal_ldsym *, PTR d));
130 static void xcoff64_swap_ldrel_in
131 PARAMS ((bfd *, const PTR, struct internal_ldrel *));
132 static void xcoff64_swap_ldrel_out
133 PARAMS ((bfd *, const struct internal_ldrel *, PTR d));
134 static boolean xcoff64_write_object_contents PARAMS ((bfd *));
135 static boolean xcoff64_ppc_relocate_section
136 PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
137 struct internal_reloc *, struct internal_syment *,
139 static boolean xcoff64_slurp_armap PARAMS ((bfd *));
140 static const bfd_target *xcoff64_archive_p PARAMS ((bfd *));
141 static bfd *xcoff64_openr_next_archived_file PARAMS ((bfd *, bfd *));
142 static int xcoff64_sizeof_headers PARAMS ((bfd *, boolean));
143 static asection *xcoff64_create_csect_from_smclas
144 PARAMS ((bfd *, union internal_auxent *, const char *));
145 static boolean xcoff64_is_lineno_count_overflow PARAMS ((bfd *, bfd_vma));
146 static boolean xcoff64_is_reloc_count_overflow PARAMS ((bfd *, bfd_vma));
147 static bfd_vma xcoff64_loader_symbol_offset
148 PARAMS ((bfd *, struct internal_ldhdr *));
149 static bfd_vma xcoff64_loader_reloc_offset
150 PARAMS ((bfd *, struct internal_ldhdr *));
151 static boolean xcoff64_generate_rtinit
152 PARAMS ((bfd *, const char *, const char *, boolean));
153 static boolean xcoff64_bad_format_hook PARAMS ((bfd *, PTR ));
155 /* Relocation functions */
156 static boolean xcoff64_reloc_type_br PARAMS ((XCOFF_RELOC_FUNCTION_ARGS));
158 boolean (*xcoff64_calculate_relocation[XCOFF_MAX_CALCULATE_RELOCATION])
159 (XCOFF_RELOC_FUNCTION_ARGS) =
161 xcoff_reloc_type_pos, /* R_POS (0x00) */
162 xcoff_reloc_type_neg, /* R_NEG (0x01) */
163 xcoff_reloc_type_rel, /* R_REL (0x02) */
164 xcoff_reloc_type_toc, /* R_TOC (0x03) */
165 xcoff_reloc_type_fail, /* R_RTB (0x04) */
166 xcoff_reloc_type_toc, /* R_GL (0x05) */
167 xcoff_reloc_type_toc, /* R_TCL (0x06) */
168 xcoff_reloc_type_fail, /* (0x07) */
169 xcoff_reloc_type_ba, /* R_BA (0x08) */
170 xcoff_reloc_type_fail, /* (0x09) */
171 xcoff64_reloc_type_br, /* R_BR (0x0a) */
172 xcoff_reloc_type_fail, /* (0x0b) */
173 xcoff_reloc_type_pos, /* R_RL (0x0c) */
174 xcoff_reloc_type_pos, /* R_RLA (0x0d) */
175 xcoff_reloc_type_fail, /* (0x0e) */
176 xcoff_reloc_type_noop, /* R_REF (0x0f) */
177 xcoff_reloc_type_fail, /* (0x10) */
178 xcoff_reloc_type_fail, /* (0x11) */
179 xcoff_reloc_type_toc, /* R_TRL (0x12) */
180 xcoff_reloc_type_toc, /* R_TRLA (0x13) */
181 xcoff_reloc_type_fail, /* R_RRTBI (0x14) */
182 xcoff_reloc_type_fail, /* R_RRTBA (0x15) */
183 xcoff_reloc_type_ba, /* R_CAI (0x16) */
184 xcoff_reloc_type_crel, /* R_CREL (0x17) */
185 xcoff_reloc_type_ba, /* R_RBA (0x18) */
186 xcoff_reloc_type_ba, /* R_RBAC (0x19) */
187 xcoff64_reloc_type_br, /* R_RBR (0x1a) */
188 xcoff_reloc_type_ba, /* R_RBRC (0x1b) */
191 /* coffcode.h needs these to be defined. */
192 /* Internalcoff.h and coffcode.h modify themselves based on these flags. */
194 #define RS6000COFF_C 1
196 #define SELECT_RELOC(internal, howto) \
198 internal.r_type = howto->type; \
200 ((howto->complain_on_overflow == complain_overflow_signed \
203 | (howto->bitsize - 1)); \
206 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
207 #define COFF_LONG_FILENAMES
208 #define NO_COFF_SYMBOLS
209 #define RTYPE2HOWTO(cache_ptr, dst) xcoff64_rtype2howto (cache_ptr, dst)
210 #define coff_mkobject _bfd_xcoff_mkobject
211 #define coff_bfd_copy_private_bfd_data _bfd_xcoff_copy_private_bfd_data
212 #define coff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
213 #define coff_bfd_reloc_type_lookup xcoff64_reloc_type_lookup
215 extern const bfd_target * rs6000coff_core_p PARAMS ((bfd *abfd));
216 extern boolean rs6000coff_core_file_matches_executable_p
217 PARAMS((bfd *cbfd, bfd *ebfd));
218 extern char *rs6000coff_core_file_failing_command PARAMS ((bfd *abfd));
219 extern int rs6000coff_core_file_failing_signal PARAMS ((bfd *abfd));
220 #define CORE_FILE_P rs6000coff_core_p
221 #define coff_core_file_failing_command \
222 rs6000coff_core_file_failing_command
223 #define coff_core_file_failing_signal \
224 rs6000coff_core_file_failing_signal
225 #define coff_core_file_matches_executable_p \
226 rs6000coff_core_file_matches_executable_p
228 #define CORE_FILE_P _bfd_dummy_target
229 #define coff_core_file_failing_command \
230 _bfd_nocore_core_file_failing_command
231 #define coff_core_file_failing_signal \
232 _bfd_nocore_core_file_failing_signal
233 #define coff_core_file_matches_executable_p \
234 _bfd_nocore_core_file_matches_executable_p
236 #define coff_SWAP_sym_in _bfd_xcoff64_swap_sym_in
237 #define coff_SWAP_sym_out _bfd_xcoff64_swap_sym_out
238 #define coff_SWAP_aux_in _bfd_xcoff64_swap_aux_in
239 #define coff_SWAP_aux_out _bfd_xcoff64_swap_aux_out
240 #define coff_swap_reloc_in xcoff64_swap_reloc_in
241 #define coff_swap_reloc_out xcoff64_swap_reloc_out
242 #define NO_COFF_RELOCS
244 #include "coffcode.h"
246 /* For XCOFF64, the effective width of symndx changes depending on
247 whether we are the first entry. Sigh. */
249 _bfd_xcoff64_swap_lineno_in (abfd, ext1, in1)
254 LINENO *ext = (LINENO *) ext1;
255 struct internal_lineno *in = (struct internal_lineno *) in1;
257 in->l_lnno = H_GET_32 (abfd, (ext->l_lnno));
259 in->l_addr.l_symndx = H_GET_32 (abfd, ext->l_addr.l_symndx);
261 in->l_addr.l_paddr = H_GET_64 (abfd, ext->l_addr.l_paddr);
265 _bfd_xcoff64_swap_lineno_out (abfd, inp, outp)
270 struct internal_lineno *in = (struct internal_lineno *) inp;
271 struct external_lineno *ext = (struct external_lineno *) outp;
273 H_PUT_32 (abfd, in->l_addr.l_symndx, ext->l_addr.l_symndx);
274 H_PUT_32 (abfd, in->l_lnno, (ext->l_lnno));
277 H_PUT_32 (abfd, in->l_addr.l_symndx, ext->l_addr.l_symndx);
279 H_PUT_64 (abfd, in->l_addr.l_paddr, ext->l_addr.l_paddr);
281 return bfd_coff_linesz (abfd);
285 _bfd_xcoff64_swap_sym_in (abfd, ext1, in1)
290 struct external_syment *ext = (struct external_syment *) ext1;
291 struct internal_syment *in = (struct internal_syment *) in1;
293 in->_n._n_n._n_zeroes = 0;
294 in->_n._n_n._n_offset = H_GET_32 (abfd, ext->e_offset);
295 in->n_value = H_GET_64 (abfd, ext->e_value);
296 in->n_scnum = H_GET_16 (abfd, ext->e_scnum);
297 in->n_type = H_GET_16 (abfd, ext->e_type);
298 in->n_sclass = H_GET_8 (abfd, ext->e_sclass);
299 in->n_numaux = H_GET_8 (abfd, ext->e_numaux);
303 _bfd_xcoff64_swap_sym_out (abfd, inp, extp)
308 struct internal_syment *in = (struct internal_syment *) inp;
309 struct external_syment *ext = (struct external_syment *) extp;
311 H_PUT_32 (abfd, in->_n._n_n._n_offset, ext->e_offset);
312 H_PUT_64 (abfd, in->n_value, ext->e_value);
313 H_PUT_16 (abfd, in->n_scnum, ext->e_scnum);
314 H_PUT_16 (abfd, in->n_type, ext->e_type);
315 H_PUT_8 (abfd, in->n_sclass, ext->e_sclass);
316 H_PUT_8 (abfd, in->n_numaux, ext->e_numaux);
317 return bfd_coff_symesz (abfd);
321 _bfd_xcoff64_swap_aux_in (abfd, ext1, type, class, indx, numaux, in1)
330 union external_auxent *ext = (union external_auxent *) ext1;
331 union internal_auxent *in = (union internal_auxent *) in1;
336 if (ext->x_file.x_n.x_zeroes[0] == 0)
338 in->x_file.x_n.x_zeroes = 0;
339 in->x_file.x_n.x_offset = H_GET_32 (abfd, ext->x_file.x_n.x_offset);
343 memcpy (in->x_file.x_fname, ext->x_file.x_fname, FILNMLEN);
347 /* RS/6000 "csect" auxents */
350 if (indx + 1 == numaux)
352 bfd_signed_vma h = 0;
355 h = H_GET_S32 (abfd, ext->x_csect.x_scnlen_hi);
356 l = H_GET_32 (abfd, ext->x_csect.x_scnlen_lo);
358 in->x_csect.x_scnlen.l = h << 32 | (l & 0xffffffff);
360 in->x_csect.x_parmhash = H_GET_32 (abfd, ext->x_csect.x_parmhash);
361 in->x_csect.x_snhash = H_GET_16 (abfd, ext->x_csect.x_snhash);
362 /* We don't have to hack bitfields in x_smtyp because it's
363 defined by shifts-and-ands, which are equivalent on all
365 in->x_csect.x_smtyp = H_GET_8 (abfd, ext->x_csect.x_smtyp);
366 in->x_csect.x_smclas = H_GET_8 (abfd, ext->x_csect.x_smclas);
376 /* PE defines some extra fields; we zero them out for
378 in->x_scn.x_checksum = 0;
379 in->x_scn.x_associated = 0;
380 in->x_scn.x_comdat = 0;
387 if (class == C_BLOCK || class == C_FCN || ISFCN (type) || ISTAG (class))
389 in->x_sym.x_fcnary.x_fcn.x_lnnoptr
390 = H_GET_64 (abfd, ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
391 in->x_sym.x_fcnary.x_fcn.x_endndx.l
392 = H_GET_32 (abfd, ext->x_sym.x_fcnary.x_fcn.x_endndx);
396 in->x_sym.x_misc.x_fsize
397 = H_GET_32 (abfd, ext->x_sym.x_fcnary.x_fcn.x_fsize);
401 in->x_sym.x_misc.x_lnsz.x_lnno
402 = H_GET_32 (abfd, ext->x_sym.x_fcnary.x_lnsz.x_lnno);
403 in->x_sym.x_misc.x_lnsz.x_size
404 = H_GET_16 (abfd, ext->x_sym.x_fcnary.x_lnsz.x_size);
411 _bfd_xcoff64_swap_aux_out (abfd, inp, type, class, indx, numaux, extp)
416 int indx ATTRIBUTE_UNUSED;
417 int numaux ATTRIBUTE_UNUSED;
420 union internal_auxent *in = (union internal_auxent *) inp;
421 union external_auxent *ext = (union external_auxent *) extp;
423 memset ((PTR) ext, 0, bfd_coff_auxesz (abfd));
427 if (in->x_file.x_n.x_zeroes == 0)
429 H_PUT_32 (abfd, 0, ext->x_file.x_n.x_zeroes);
430 H_PUT_32 (abfd, in->x_file.x_n.x_offset, ext->x_file.x_n.x_offset);
434 memcpy (ext->x_file.x_fname, in->x_file.x_fname, FILNMLEN);
436 H_PUT_8 (abfd, _AUX_FILE, ext->x_auxtype.x_auxtype);
439 /* RS/6000 "csect" auxents */
442 if (indx + 1 == numaux)
446 temp = in->x_csect.x_scnlen.l & 0xffffffff;
447 H_PUT_32 (abfd, temp, ext->x_csect.x_scnlen_lo);
448 temp = in->x_csect.x_scnlen.l >> 32;
449 H_PUT_32 (abfd, temp, ext->x_csect.x_scnlen_hi);
450 H_PUT_32 (abfd, in->x_csect.x_parmhash, ext->x_csect.x_parmhash);
451 H_PUT_16 (abfd, in->x_csect.x_snhash, ext->x_csect.x_snhash);
452 /* We don't have to hack bitfields in x_smtyp because it's
453 defined by shifts-and-ands, which are equivalent on all
455 H_PUT_8 (abfd, in->x_csect.x_smtyp, ext->x_csect.x_smtyp);
456 H_PUT_8 (abfd, in->x_csect.x_smclas, ext->x_csect.x_smclas);
457 H_PUT_8 (abfd, _AUX_CSECT, ext->x_auxtype.x_auxtype);
472 if (class == C_BLOCK || class == C_FCN || ISFCN (type) || ISTAG (class))
474 H_PUT_64 (abfd, in->x_sym.x_fcnary.x_fcn.x_lnnoptr,
475 ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
476 H_PUT_8 (abfd, _AUX_FCN,
477 ext->x_auxtype.x_auxtype);
478 H_PUT_32 (abfd, in->x_sym.x_fcnary.x_fcn.x_endndx.l,
479 ext->x_sym.x_fcnary.x_fcn.x_endndx);
483 H_PUT_32 (abfd, in->x_sym.x_misc.x_fsize,
484 ext->x_sym.x_fcnary.x_fcn.x_fsize);
488 H_PUT_32 (abfd, in->x_sym.x_misc.x_lnsz.x_lnno,
489 ext->x_sym.x_fcnary.x_lnsz.x_lnno);
490 H_PUT_16 (abfd, in->x_sym.x_misc.x_lnsz.x_size,
491 ext->x_sym.x_fcnary.x_lnsz.x_size);
496 return bfd_coff_auxesz (abfd);
500 _bfd_xcoff64_put_symbol_name (abfd, strtab, sym, name)
502 struct bfd_strtab_hash *strtab;
503 struct internal_syment *sym;
511 if ((abfd->flags & BFD_TRADITIONAL_FORMAT) != 0)
514 indx = _bfd_stringtab_add (strtab, name, hash, false);
516 if (indx == (bfd_size_type) -1)
519 sym->_n._n_n._n_zeroes = 0;
520 sym->_n._n_n._n_offset = STRING_SIZE_SIZE + indx;
526 _bfd_xcoff64_put_ldsymbol_name (abfd, ldinfo, ldsym, name)
527 bfd *abfd ATTRIBUTE_UNUSED;
528 struct xcoff_loader_info *ldinfo;
529 struct internal_ldsym *ldsym;
535 if (ldinfo->string_size + len + 3 > ldinfo->string_alc)
537 bfd_size_type newalc;
538 bfd_byte *newstrings;
540 newalc = ldinfo->string_alc * 2;
543 while (ldinfo->string_size + len + 3 > newalc)
546 newstrings = ((bfd_byte *)
547 bfd_realloc ((PTR) ldinfo->strings, newalc));
548 if (newstrings == NULL)
550 ldinfo->failed = true;
553 ldinfo->string_alc = newalc;
554 ldinfo->strings = newstrings;
557 bfd_put_16 (ldinfo->output_bfd, (bfd_vma) (len + 1),
558 ldinfo->strings + ldinfo->string_size);
559 strcpy (ldinfo->strings + ldinfo->string_size + 2, name);
560 ldsym->_l._l_l._l_zeroes = 0;
561 ldsym->_l._l_l._l_offset = ldinfo->string_size + 2;
562 ldinfo->string_size += len + 3;
567 /* Routines to swap information in the XCOFF .loader section. If we
568 ever need to write an XCOFF loader, this stuff will need to be
569 moved to another file shared by the linker (which XCOFF calls the
570 ``binder'') and the loader. */
572 /* Swap in the ldhdr structure. */
575 xcoff64_swap_ldhdr_in (abfd, s, dst)
578 struct internal_ldhdr *dst;
580 const struct external_ldhdr *src = (const struct external_ldhdr *) s;
582 dst->l_version = bfd_get_32 (abfd, src->l_version);
583 dst->l_nsyms = bfd_get_32 (abfd, src->l_nsyms);
584 dst->l_nreloc = bfd_get_32 (abfd, src->l_nreloc);
585 dst->l_istlen = bfd_get_32 (abfd, src->l_istlen);
586 dst->l_nimpid = bfd_get_32 (abfd, src->l_nimpid);
587 dst->l_stlen = bfd_get_32 (abfd, src->l_stlen);
588 dst->l_impoff = bfd_get_64 (abfd, src->l_impoff);
589 dst->l_stoff = bfd_get_64 (abfd, src->l_stoff);
590 dst->l_symoff = bfd_get_64 (abfd, src->l_symoff);
591 dst->l_rldoff = bfd_get_64 (abfd, src->l_rldoff);
594 /* Swap out the ldhdr structure. */
597 xcoff64_swap_ldhdr_out (abfd, src, d)
599 const struct internal_ldhdr *src;
602 struct external_ldhdr *dst = (struct external_ldhdr *) d;
604 bfd_put_32 (abfd, (bfd_vma) src->l_version, dst->l_version);
605 bfd_put_32 (abfd, src->l_nsyms, dst->l_nsyms);
606 bfd_put_32 (abfd, src->l_nreloc, dst->l_nreloc);
607 bfd_put_32 (abfd, src->l_istlen, dst->l_istlen);
608 bfd_put_32 (abfd, src->l_nimpid, dst->l_nimpid);
609 bfd_put_32 (abfd, src->l_stlen, dst->l_stlen);
610 bfd_put_64 (abfd, src->l_impoff, dst->l_impoff);
611 bfd_put_64 (abfd, src->l_stoff, dst->l_stoff);
612 bfd_put_64 (abfd, src->l_symoff, dst->l_symoff);
613 bfd_put_64 (abfd, src->l_rldoff, dst->l_rldoff);
616 /* Swap in the ldsym structure. */
619 xcoff64_swap_ldsym_in (abfd, s, dst)
622 struct internal_ldsym *dst;
624 const struct external_ldsym *src = (const struct external_ldsym *) s;
625 /* XCOFF64 does not use l_zeroes like XCOFF32
626 Set the internal l_zeroes to 0 so the common 32/64 code uses l_value
627 as an offset into the loader symbol table. */
628 dst->_l._l_l._l_zeroes = 0;
629 dst->_l._l_l._l_offset = bfd_get_32 (abfd, src->l_offset);
630 dst->l_value = bfd_get_64 (abfd, src->l_value);
631 dst->l_scnum = bfd_get_16 (abfd, src->l_scnum);
632 dst->l_smtype = bfd_get_8 (abfd, src->l_smtype);
633 dst->l_smclas = bfd_get_8 (abfd, src->l_smclas);
634 dst->l_ifile = bfd_get_32 (abfd, src->l_ifile);
635 dst->l_parm = bfd_get_32 (abfd, src->l_parm);
638 /* Swap out the ldsym structure. */
641 xcoff64_swap_ldsym_out (abfd, src, d)
643 const struct internal_ldsym *src;
646 struct external_ldsym *dst = (struct external_ldsym *) d;
648 bfd_put_64 (abfd, src->l_value, dst->l_value);
649 bfd_put_32 (abfd, (bfd_vma) src->_l._l_l._l_offset, dst->l_offset);
650 bfd_put_16 (abfd, (bfd_vma) src->l_scnum, dst->l_scnum);
651 bfd_put_8 (abfd, src->l_smtype, dst->l_smtype);
652 bfd_put_8 (abfd, src->l_smclas, dst->l_smclas);
653 bfd_put_32 (abfd, src->l_ifile, dst->l_ifile);
654 bfd_put_32 (abfd, src->l_parm, dst->l_parm);
658 xcoff64_swap_reloc_in (abfd, s, d)
663 struct external_reloc *src = (struct external_reloc *) s;
664 struct internal_reloc *dst = (struct internal_reloc *) d;
666 memset (dst, 0, sizeof (struct internal_reloc));
668 dst->r_vaddr = bfd_get_64 (abfd, src->r_vaddr);
669 dst->r_symndx = bfd_get_32 (abfd, src->r_symndx);
670 dst->r_size = bfd_get_8 (abfd, src->r_size);
671 dst->r_type = bfd_get_8 (abfd, src->r_type);
675 xcoff64_swap_reloc_out (abfd, s, d)
680 struct internal_reloc *src = (struct internal_reloc *) s;
681 struct external_reloc *dst = (struct external_reloc *) d;
683 bfd_put_64 (abfd, src->r_vaddr, dst->r_vaddr);
684 bfd_put_32 (abfd, src->r_symndx, dst->r_symndx);
685 bfd_put_8 (abfd, src->r_type, dst->r_type);
686 bfd_put_8 (abfd, src->r_size, dst->r_size);
688 return bfd_coff_relsz (abfd);
691 /* Swap in the ldrel structure. */
694 xcoff64_swap_ldrel_in (abfd, s, dst)
697 struct internal_ldrel *dst;
699 const struct external_ldrel *src = (const struct external_ldrel *) s;
701 dst->l_vaddr = bfd_get_64 (abfd, src->l_vaddr);
702 dst->l_symndx = bfd_get_32 (abfd, src->l_symndx);
703 dst->l_rtype = bfd_get_16 (abfd, src->l_rtype);
704 dst->l_rsecnm = bfd_get_16 (abfd, src->l_rsecnm);
707 /* Swap out the ldrel structure. */
710 xcoff64_swap_ldrel_out (abfd, src, d)
712 const struct internal_ldrel *src;
715 struct external_ldrel *dst = (struct external_ldrel *) d;
717 bfd_put_64 (abfd, src->l_vaddr, dst->l_vaddr);
718 bfd_put_16 (abfd, (bfd_vma) src->l_rtype, dst->l_rtype);
719 bfd_put_16 (abfd, (bfd_vma) src->l_rsecnm, dst->l_rsecnm);
720 bfd_put_32 (abfd, src->l_symndx, dst->l_symndx);
724 xcoff64_write_object_contents (abfd)
728 boolean hasrelocs = false;
729 boolean haslinno = false;
732 file_ptr lineno_base;
734 unsigned long reloc_size = 0;
735 unsigned long lnno_size = 0;
736 boolean long_section_names;
737 asection *text_sec = ((void *) 0);
738 asection *data_sec = ((void *) 0);
739 asection *bss_sec = ((void *) 0);
740 struct internal_filehdr internal_f;
741 struct internal_aouthdr internal_a;
743 bfd_set_error (bfd_error_system_call);
745 if (! abfd->output_has_begun)
747 if (! bfd_coff_compute_section_file_positions (abfd))
751 /* Work out the size of the reloc and linno areas. */
752 reloc_base = obj_relocbase (abfd);
754 for (current = abfd->sections; current != NULL; current = current->next)
755 reloc_size += current->reloc_count * bfd_coff_relsz (abfd);
757 lineno_base = reloc_base + reloc_size;
759 /* Make a pass through the symbol table to count line number entries and
760 put them into the correct asections. */
761 lnno_size = coff_count_linenumbers (abfd) * bfd_coff_linesz (abfd);
763 sym_base = lineno_base + lnno_size;
765 /* Indicate in each section->line_filepos its actual file address. */
766 for (current = abfd->sections; current != NULL; current = current->next)
768 if (current->lineno_count)
770 current->line_filepos = lineno_base;
771 current->moving_line_filepos = lineno_base;
772 lineno_base += current->lineno_count * bfd_coff_linesz (abfd);
776 current->line_filepos = 0;
779 if (current->reloc_count)
781 current->rel_filepos = reloc_base;
782 reloc_base += current->reloc_count * bfd_coff_relsz (abfd);
786 current->rel_filepos = 0;
790 if ((abfd->flags & EXEC_P) != 0)
792 scn_base = bfd_coff_filhsz (abfd) + bfd_coff_aoutsz (abfd);
793 internal_f.f_opthdr = bfd_coff_aoutsz (abfd);
797 scn_base = bfd_coff_filhsz (abfd);
798 internal_f.f_opthdr = 0;
801 internal_f.f_nscns = 0;
803 if (bfd_seek (abfd, scn_base, SEEK_SET) != 0)
806 long_section_names = false;
807 for (current = abfd->sections; current != NULL; current = current->next)
809 struct internal_scnhdr section;
810 struct external_scnhdr buff;
811 bfd_size_type amount;
813 internal_f.f_nscns++;
815 strncpy (section.s_name, current->name, SCNNMLEN);
817 section.s_vaddr = current->vma;
818 section.s_paddr = current->lma;
819 section.s_size = current->_raw_size;
821 /* If this section has no size or is unloadable then the scnptr
823 if (current->_raw_size == 0
824 || (current->flags & (SEC_LOAD | SEC_HAS_CONTENTS)) == 0)
826 section.s_scnptr = 0;
830 section.s_scnptr = current->filepos;
833 section.s_relptr = current->rel_filepos;
834 section.s_lnnoptr = current->line_filepos;
835 section.s_nreloc = current->reloc_count;
837 section.s_nlnno = current->lineno_count;
838 if (current->reloc_count != 0)
840 if (current->lineno_count != 0)
843 section.s_flags = sec_to_styp_flags (current->name, current->flags);
845 if (!strcmp (current->name, _TEXT))
849 else if (!strcmp (current->name, _DATA))
853 else if (!strcmp (current->name, _BSS))
858 amount = bfd_coff_scnhsz (abfd);
859 if (bfd_coff_swap_scnhdr_out (abfd, §ion, &buff) == 0
860 || bfd_bwrite ((PTR) (&buff), amount, abfd) != amount)
864 internal_f.f_timdat = 0;
866 internal_f.f_flags = 0;
869 internal_f.f_flags |= F_RELFLG;
871 internal_f.f_flags |= F_LNNO;
872 if (abfd->flags & EXEC_P)
873 internal_f.f_flags |= F_EXEC;
875 /* FIXME: this is wrong for PPC_PE! */
876 if (bfd_little_endian (abfd))
877 internal_f.f_flags |= F_AR32WR;
879 internal_f.f_flags |= F_AR32W;
881 if ((abfd->flags & DYNAMIC) != 0)
882 internal_f.f_flags |= F_SHROBJ;
883 if (bfd_get_section_by_name (abfd, _LOADER) != NULL)
884 internal_f.f_flags |= F_DYNLOAD;
886 memset (&internal_a, 0, sizeof internal_a);
888 internal_f.f_magic = bfd_xcoff_magic_number (abfd);
889 internal_a.magic = (abfd->flags & D_PAGED) ? RS6K_AOUTHDR_ZMAGIC :
890 (abfd->flags & WP_TEXT) ? RS6K_AOUTHDR_NMAGIC :
893 /* FIXME: Does anybody ever set this to another value? */
894 internal_a.vstamp = 0;
896 /* Now should write relocs, strings, syms. */
897 obj_sym_filepos (abfd) = sym_base;
899 internal_f.f_symptr = 0;
900 internal_f.f_nsyms = 0;
902 /* If bfd_get_symcount (abfd) != 0, then we are not using the COFF
903 backend linker, and obj_raw_syment_count is not valid until after
904 coff_write_symbols is called. */
905 if (bfd_get_symcount (abfd) != 0)
909 if (!coff_renumber_symbols (abfd, &firstundef))
911 coff_mangle_symbols (abfd);
912 if (! coff_write_symbols (abfd))
914 if (! coff_write_linenumbers (abfd))
916 if (! coff_write_relocs (abfd, firstundef))
919 internal_f.f_symptr = sym_base;
920 internal_f.f_nsyms = bfd_get_symcount (abfd);
922 else if (obj_raw_syment_count (abfd) != 0)
924 internal_f.f_symptr = sym_base;
926 /* AIX appears to require that F_RELFLG not be set if there are
927 local symbols but no relocations. */
928 internal_f.f_flags &=~ F_RELFLG;
932 internal_f.f_flags |= F_LSYMS;
937 internal_a.tsize = bfd_get_section_size_before_reloc (text_sec);
938 internal_a.text_start = internal_a.tsize ? text_sec->vma : 0;
943 internal_a.dsize = bfd_get_section_size_before_reloc (data_sec);
944 internal_a.data_start = internal_a.dsize ? data_sec->vma : 0;
949 internal_a.bsize = bfd_get_section_size_before_reloc (bss_sec);
950 if (internal_a.bsize && bss_sec->vma < internal_a.data_start)
951 internal_a.data_start = bss_sec->vma;
954 internal_a.entry = bfd_get_start_address (abfd);
955 internal_f.f_nsyms = obj_raw_syment_count (abfd);
957 if (xcoff_data (abfd)->full_aouthdr)
960 asection *loader_sec;
962 internal_a.vstamp = 1;
964 internal_a.o_snentry = xcoff_data (abfd)->snentry;
965 if (internal_a.o_snentry == 0)
966 internal_a.entry = (bfd_vma) -1;
968 if (text_sec != NULL)
970 internal_a.o_sntext = text_sec->target_index;
971 internal_a.o_algntext = bfd_get_section_alignment (abfd, text_sec);
975 internal_a.o_sntext = 0;
976 internal_a.o_algntext = 0;
979 if (data_sec != NULL)
981 internal_a.o_sndata = data_sec->target_index;
982 internal_a.o_algndata = bfd_get_section_alignment (abfd, data_sec);
986 internal_a.o_sndata = 0;
987 internal_a.o_algndata = 0;
990 loader_sec = bfd_get_section_by_name (abfd, ".loader");
991 if (loader_sec != NULL)
992 internal_a.o_snloader = loader_sec->target_index;
994 internal_a.o_snloader = 0;
996 internal_a.o_snbss = bss_sec->target_index;
998 internal_a.o_snbss = 0;
1000 toc = xcoff_data (abfd)->toc;
1001 internal_a.o_toc = toc;
1002 internal_a.o_sntoc = xcoff_data (abfd)->sntoc;
1004 internal_a.o_modtype = xcoff_data (abfd)->modtype;
1005 if (xcoff_data (abfd)->cputype != -1)
1006 internal_a.o_cputype = xcoff_data (abfd)->cputype;
1009 switch (bfd_get_arch (abfd))
1011 case bfd_arch_rs6000:
1012 internal_a.o_cputype = 4;
1014 case bfd_arch_powerpc:
1015 if (bfd_get_mach (abfd) == 0)
1016 internal_a.o_cputype = 3;
1018 internal_a.o_cputype = 1;
1024 internal_a.o_maxstack = xcoff_data (abfd)->maxstack;
1025 internal_a.o_maxdata = xcoff_data (abfd)->maxdata;
1028 if (bfd_seek (abfd, (file_ptr) 0, 0) != 0)
1033 bfd_size_type amount = bfd_coff_filhsz (abfd);
1035 buff = bfd_malloc (amount);
1039 bfd_coff_swap_filehdr_out (abfd, (PTR) &internal_f, (PTR) buff);
1040 amount = bfd_bwrite ((PTR) buff, amount, abfd);
1044 if (amount != bfd_coff_filhsz (abfd))
1048 if (abfd->flags & EXEC_P)
1051 bfd_size_type amount = bfd_coff_aoutsz (abfd);
1053 buff = bfd_malloc (amount);
1057 bfd_coff_swap_aouthdr_out (abfd, (PTR) & internal_a, (PTR) buff);
1058 amount = bfd_bwrite ((PTR) buff, amount, abfd);
1062 if (amount != bfd_coff_aoutsz (abfd))
1070 xcoff64_reloc_type_br (input_bfd, input_section, output_bfd, rel, sym, howto,
1071 val, addend, relocation, contents)
1073 asection *input_section;
1074 bfd *output_bfd ATTRIBUTE_UNUSED;
1075 struct internal_reloc *rel;
1076 struct internal_syment *sym ATTRIBUTE_UNUSED;
1077 struct reloc_howto_struct *howto;
1080 bfd_vma *relocation;
1083 struct xcoff_link_hash_entry *h;
1085 if (0 > rel->r_symndx)
1088 h = obj_xcoff_sym_hashes (input_bfd)[rel->r_symndx];
1090 /* If we see an R_BR or R_RBR reloc which is jumping to global
1091 linkage code, and it is followed by an appropriate cror nop
1092 instruction, we replace the cror with ld r2,40(r1). This
1093 restores the TOC after the glink code. Contrariwise, if the
1094 call is followed by a ld r2,40(r1), but the call is not
1095 going to global linkage code, we can replace the load with a
1098 && bfd_link_hash_defined == h->root.type
1099 && (rel->r_vaddr - input_section->vma + 8 <=
1100 input_section->_cooked_size))
1105 pnext = contents + (rel->r_vaddr - input_section->vma) + 4;
1106 next = bfd_get_32 (input_bfd, pnext);
1108 /* The _ptrgl function is magic. It is used by the AIX compiler to call
1109 a function through a pointer. */
1110 if (h->smclas == XMC_GL || strcmp (h->root.root.string, "._ptrgl") == 0)
1112 if (next == 0x4def7b82 /* cror 15,15,15 */
1113 || next == 0x4ffffb82 /* cror 31,31,31 */
1114 || next == 0x60000000) /* ori r0,r0,0 */
1115 bfd_put_32 (input_bfd, 0xe8410028, pnext); /* ld r2,40(r1) */
1119 if (next == 0xe8410028) /* ld r2,40(r1) */
1120 bfd_put_32 (input_bfd, 0x60000000, pnext); /* ori r0,r0,0 */
1123 else if (NULL != h && bfd_link_hash_undefined == h->root.type)
1125 /* Normally, this relocation is against a defined symbol. In the
1126 case where this is a partial link and the output section offset
1127 is greater than 2^25, the linker will return an invalid error
1128 message that the relocation has been truncated. Yes it has been
1129 truncated but no it not important. For this case, disable the
1130 overflow checking. */
1131 howto->complain_on_overflow = complain_overflow_dont;
1134 howto->pc_relative = true;
1135 howto->src_mask &= ~3;
1136 howto->dst_mask = howto->src_mask;
1138 /* A PC relative reloc includes the section address. */
1139 addend += input_section->vma;
1141 *relocation = val + addend;
1142 *relocation -= (input_section->output_section->vma +
1143 input_section->output_offset);
1147 /* This is the relocation function for the PowerPC64.
1148 See xcoff_ppc_relocation_section for more information. */
1151 xcoff64_ppc_relocate_section (output_bfd, info, input_bfd,
1152 input_section, contents, relocs, syms,
1155 struct bfd_link_info *info;
1157 asection *input_section;
1159 struct internal_reloc *relocs;
1160 struct internal_syment *syms;
1161 asection **sections;
1163 struct internal_reloc *rel;
1164 struct internal_reloc *relend;
1167 relend = rel + input_section->reloc_count;
1168 for (; rel < relend; rel++)
1171 struct xcoff_link_hash_entry *h;
1172 struct internal_syment *sym;
1175 struct reloc_howto_struct howto;
1177 bfd_vma value_to_relocate;
1181 /* Relocation type R_REF is a special relocation type which is
1182 merely used to prevent garbage collection from occurring for
1183 the csect including the symbol which it references. */
1184 if (rel->r_type == R_REF)
1188 howto.type = rel->r_type;
1189 howto.rightshift = 0;
1190 howto.bitsize = (rel->r_size & 0x3f) + 1;
1191 howto.size = howto.bitsize > 16 ? (howto.bitsize > 32 ? 4 : 2) : 1;
1192 howto.pc_relative = false;
1194 howto.complain_on_overflow = rel->r_size & 0x80 ?
1195 complain_overflow_signed : complain_overflow_bitfield;
1196 howto.special_function = NULL;
1197 howto.name = "internal";
1198 howto.partial_inplace = true;
1199 howto.src_mask = howto.dst_mask = N_ONES(howto.bitsize);
1200 howto.pcrel_offset = false;
1207 symndx = rel->r_symndx;
1213 h = obj_xcoff_sym_hashes (input_bfd)[symndx];
1214 sym = syms + symndx;
1215 addend = - sym->n_value;
1219 sec = sections[symndx];
1220 /* Hack to make sure we use the right TOC anchor value
1221 if this reloc is against the TOC anchor. */
1222 if (sec->name[3] == '0'
1223 && strcmp (sec->name, ".tc0") == 0)
1224 val = xcoff_data (output_bfd)->toc;
1226 val = (sec->output_section->vma
1227 + sec->output_offset
1233 if (h->root.type == bfd_link_hash_defined
1234 || h->root.type == bfd_link_hash_defweak)
1236 sec = h->root.u.def.section;
1237 val = (h->root.u.def.value
1238 + sec->output_section->vma
1239 + sec->output_offset);
1241 else if (h->root.type == bfd_link_hash_common)
1243 sec = h->root.u.c.p->section;
1244 val = (sec->output_section->vma
1245 + sec->output_offset);
1247 else if ((0 == (h->flags & (XCOFF_DEF_DYNAMIC | XCOFF_IMPORT)))
1248 && ! info->relocateable)
1250 if (! ((*info->callbacks->undefined_symbol)
1251 (info, h->root.root.string, input_bfd, input_section,
1252 rel->r_vaddr - input_section->vma, true)))
1255 /* Don't try to process the reloc. It can't help, and
1256 it may generate another error. */
1262 if (rel->r_type >= XCOFF_MAX_CALCULATE_RELOCATION
1263 || (false == xcoff64_calculate_relocation[rel->r_type]
1264 (input_bfd, input_section, output_bfd, rel, sym, &howto, val,
1265 addend, &relocation, contents)))
1269 address = rel->r_vaddr - input_section->vma;
1270 location = contents + address;
1272 if (address > input_section->_raw_size)
1275 /* Get the value we are going to relocate. */
1276 if (1 == howto.size)
1277 value_to_relocate = bfd_get_16 (input_bfd, location);
1278 else if (2 == howto.size)
1279 value_to_relocate = bfd_get_32 (input_bfd, location);
1281 value_to_relocate = bfd_get_64 (input_bfd, location);
1285 FIXME: We may drop bits during the addition
1286 which we don't check for. We must either check at every single
1287 operation, which would be tedious, or we must do the computations
1288 in a type larger than bfd_vma, which would be inefficient. */
1290 if ((unsigned int) howto.complain_on_overflow >=
1291 XCOFF_MAX_COMPLAIN_OVERFLOW)
1294 if ((true == xcoff_complain_overflow[howto.complain_on_overflow]
1295 (input_bfd, value_to_relocate, relocation, &howto)))
1298 char buf[SYMNMLEN + 1];
1299 char reloc_type_name[10];
1307 name = h->root.root.string;
1311 name = _bfd_coff_internal_syment_name (input_bfd, sym, buf);
1315 sprintf (reloc_type_name, "0x%02x", rel->r_type);
1317 if (! ((*info->callbacks->reloc_overflow)
1318 (info, name, reloc_type_name, (bfd_vma) 0, input_bfd,
1319 input_section, rel->r_vaddr - input_section->vma)))
1323 /* Add RELOCATION to the right bits of VALUE_TO_RELOCATE. */
1324 value_to_relocate = ((value_to_relocate & ~howto.dst_mask) |
1325 (((value_to_relocate & howto.src_mask) +
1326 relocation) & howto.dst_mask));
1328 /* Put the value back in the object file. */
1329 if (1 == howto.size)
1330 bfd_put_16 (input_bfd, value_to_relocate, location);
1331 else if (2 == howto.size)
1332 bfd_put_32 (input_bfd, value_to_relocate, location);
1334 bfd_put_64 (input_bfd, value_to_relocate, location);
1341 /* The XCOFF reloc table. Actually, XCOFF relocations specify the
1342 bitsize and whether they are signed or not, along with a
1343 conventional type. This table is for the types, which are used for
1344 different algorithms for putting in the reloc. Many of these
1345 relocs need special_function entries, which I have not written. */
1347 reloc_howto_type xcoff64_howto_table[] =
1349 /* Standard 64 bit relocation. */
1350 HOWTO (R_POS, /* type */
1352 4, /* size (0 = byte, 1 = short, 2 = long) */
1354 false, /* pc_relative */
1356 complain_overflow_bitfield, /* complain_on_overflow */
1357 0, /* special_function */
1358 "R_POS_64", /* name */
1359 true, /* partial_inplace */
1360 MINUS_ONE, /* src_mask */
1361 MINUS_ONE, /* dst_mask */
1362 false), /* pcrel_offset */
1364 /* 64 bit relocation, but store negative value. */
1365 HOWTO (R_NEG, /* type */
1367 -4, /* size (0 = byte, 1 = short, 2 = long) */
1369 false, /* pc_relative */
1371 complain_overflow_bitfield, /* complain_on_overflow */
1372 0, /* special_function */
1374 true, /* partial_inplace */
1375 MINUS_ONE, /* src_mask */
1376 MINUS_ONE, /* dst_mask */
1377 false), /* pcrel_offset */
1379 /* 32 bit PC relative relocation. */
1380 HOWTO (R_REL, /* type */
1382 2, /* size (0 = byte, 1 = short, 2 = long) */
1384 true, /* pc_relative */
1386 complain_overflow_signed, /* complain_on_overflow */
1387 0, /* special_function */
1389 true, /* partial_inplace */
1390 0xffffffff, /* src_mask */
1391 0xffffffff, /* dst_mask */
1392 false), /* pcrel_offset */
1394 /* 16 bit TOC relative relocation. */
1395 HOWTO (R_TOC, /* type */
1397 1, /* size (0 = byte, 1 = short, 2 = long) */
1399 false, /* pc_relative */
1401 complain_overflow_bitfield, /* complain_on_overflow */
1402 0, /* special_function */
1404 true, /* partial_inplace */
1405 0xffff, /* src_mask */
1406 0xffff, /* dst_mask */
1407 false), /* pcrel_offset */
1409 /* I don't really know what this is. */
1410 HOWTO (R_RTB, /* type */
1412 2, /* size (0 = byte, 1 = short, 2 = long) */
1414 false, /* pc_relative */
1416 complain_overflow_bitfield, /* complain_on_overflow */
1417 0, /* special_function */
1419 true, /* partial_inplace */
1420 0xffffffff, /* src_mask */
1421 0xffffffff, /* dst_mask */
1422 false), /* pcrel_offset */
1424 /* External TOC relative symbol. */
1425 HOWTO (R_GL, /* type */
1427 2, /* size (0 = byte, 1 = short, 2 = long) */
1429 false, /* pc_relative */
1431 complain_overflow_bitfield, /* complain_on_overflow */
1432 0, /* special_function */
1434 true, /* partial_inplace */
1435 0xffff, /* src_mask */
1436 0xffff, /* dst_mask */
1437 false), /* pcrel_offset */
1439 /* Local TOC relative symbol. */
1440 HOWTO (R_TCL, /* type */
1442 2, /* size (0 = byte, 1 = short, 2 = long) */
1444 false, /* pc_relative */
1446 complain_overflow_bitfield, /* complain_on_overflow */
1447 0, /* special_function */
1449 true, /* partial_inplace */
1450 0xffff, /* src_mask */
1451 0xffff, /* dst_mask */
1452 false), /* pcrel_offset */
1456 /* Non modifiable absolute branch. */
1457 HOWTO (R_BA, /* type */
1459 2, /* size (0 = byte, 1 = short, 2 = long) */
1461 false, /* pc_relative */
1463 complain_overflow_bitfield, /* complain_on_overflow */
1464 0, /* special_function */
1465 "R_BA_26", /* name */
1466 true, /* partial_inplace */
1467 0x3fffffc, /* src_mask */
1468 0x3fffffc, /* dst_mask */
1469 false), /* pcrel_offset */
1473 /* Non modifiable relative branch. */
1474 HOWTO (R_BR, /* type */
1476 2, /* size (0 = byte, 1 = short, 2 = long) */
1478 true, /* pc_relative */
1480 complain_overflow_signed, /* complain_on_overflow */
1481 0, /* special_function */
1483 true, /* partial_inplace */
1484 0x3fffffc, /* src_mask */
1485 0x3fffffc, /* dst_mask */
1486 false), /* pcrel_offset */
1490 /* Indirect load. */
1491 HOWTO (R_RL, /* type */
1493 2, /* size (0 = byte, 1 = short, 2 = long) */
1495 false, /* pc_relative */
1497 complain_overflow_bitfield, /* complain_on_overflow */
1498 0, /* special_function */
1500 true, /* partial_inplace */
1501 0xffff, /* src_mask */
1502 0xffff, /* dst_mask */
1503 false), /* pcrel_offset */
1506 HOWTO (R_RLA, /* type */
1508 2, /* size (0 = byte, 1 = short, 2 = long) */
1510 false, /* pc_relative */
1512 complain_overflow_bitfield, /* complain_on_overflow */
1513 0, /* special_function */
1515 true, /* partial_inplace */
1516 0xffff, /* src_mask */
1517 0xffff, /* dst_mask */
1518 false), /* pcrel_offset */
1522 /* Non-relocating reference. */
1523 HOWTO (R_REF, /* type */
1525 2, /* size (0 = byte, 1 = short, 2 = long) */
1527 false, /* pc_relative */
1529 complain_overflow_bitfield, /* complain_on_overflow */
1530 0, /* special_function */
1532 false, /* partial_inplace */
1535 false), /* pcrel_offset */
1540 /* TOC relative indirect load. */
1541 HOWTO (R_TRL, /* type */
1543 2, /* size (0 = byte, 1 = short, 2 = long) */
1545 false, /* pc_relative */
1547 complain_overflow_bitfield, /* complain_on_overflow */
1548 0, /* special_function */
1550 true, /* partial_inplace */
1551 0xffff, /* src_mask */
1552 0xffff, /* dst_mask */
1553 false), /* pcrel_offset */
1555 /* TOC relative load address. */
1556 HOWTO (R_TRLA, /* type */
1558 2, /* size (0 = byte, 1 = short, 2 = long) */
1560 false, /* pc_relative */
1562 complain_overflow_bitfield, /* complain_on_overflow */
1563 0, /* special_function */
1564 "R_TRLA", /* name */
1565 true, /* partial_inplace */
1566 0xffff, /* src_mask */
1567 0xffff, /* dst_mask */
1568 false), /* pcrel_offset */
1570 /* Modifiable relative branch. */
1571 HOWTO (R_RRTBI, /* type */
1573 2, /* size (0 = byte, 1 = short, 2 = long) */
1575 false, /* pc_relative */
1577 complain_overflow_bitfield, /* complain_on_overflow */
1578 0, /* special_function */
1579 "R_RRTBI", /* name */
1580 true, /* partial_inplace */
1581 0xffffffff, /* src_mask */
1582 0xffffffff, /* dst_mask */
1583 false), /* pcrel_offset */
1585 /* Modifiable absolute branch. */
1586 HOWTO (R_RRTBA, /* type */
1588 2, /* size (0 = byte, 1 = short, 2 = long) */
1590 false, /* pc_relative */
1592 complain_overflow_bitfield, /* complain_on_overflow */
1593 0, /* special_function */
1594 "R_RRTBA", /* name */
1595 true, /* partial_inplace */
1596 0xffffffff, /* src_mask */
1597 0xffffffff, /* dst_mask */
1598 false), /* pcrel_offset */
1600 /* Modifiable call absolute indirect. */
1601 HOWTO (R_CAI, /* type */
1603 2, /* size (0 = byte, 1 = short, 2 = long) */
1605 false, /* pc_relative */
1607 complain_overflow_bitfield, /* complain_on_overflow */
1608 0, /* special_function */
1610 true, /* partial_inplace */
1611 0xffff, /* src_mask */
1612 0xffff, /* dst_mask */
1613 false), /* pcrel_offset */
1615 /* Modifiable call relative. */
1616 HOWTO (R_CREL, /* type */
1618 2, /* size (0 = byte, 1 = short, 2 = long) */
1620 false, /* pc_relative */
1622 complain_overflow_bitfield, /* complain_on_overflow */
1623 0, /* special_function */
1624 "R_CREL", /* name */
1625 true, /* partial_inplace */
1626 0xffff, /* src_mask */
1627 0xffff, /* dst_mask */
1628 false), /* pcrel_offset */
1630 /* Modifiable branch absolute. */
1631 HOWTO (R_RBA, /* type */
1633 2, /* size (0 = byte, 1 = short, 2 = long) */
1635 false, /* pc_relative */
1637 complain_overflow_bitfield, /* complain_on_overflow */
1638 0, /* special_function */
1640 true, /* partial_inplace */
1641 0xffff, /* src_mask */
1642 0xffff, /* dst_mask */
1643 false), /* pcrel_offset */
1645 /* Modifiable branch absolute. */
1646 HOWTO (R_RBAC, /* type */
1648 2, /* size (0 = byte, 1 = short, 2 = long) */
1650 false, /* pc_relative */
1652 complain_overflow_bitfield, /* complain_on_overflow */
1653 0, /* special_function */
1654 "R_RBAC", /* name */
1655 true, /* partial_inplace */
1656 0xffff, /* src_mask */
1657 0xffff, /* dst_mask */
1658 false), /* pcrel_offset */
1660 /* Modifiable branch relative. */
1661 HOWTO (R_RBR, /* type */
1663 2, /* size (0 = byte, 1 = short, 2 = long) */
1665 false, /* pc_relative */
1667 complain_overflow_signed, /* complain_on_overflow */
1668 0, /* special_function */
1669 "R_RBR_26", /* name */
1670 true, /* partial_inplace */
1671 0xffff, /* src_mask */
1672 0xffff, /* dst_mask */
1673 false), /* pcrel_offset */
1675 /* Modifiable branch absolute. */
1676 HOWTO (R_RBRC, /* type */
1678 2, /* size (0 = byte, 1 = short, 2 = long) */
1680 false, /* pc_relative */
1682 complain_overflow_bitfield, /* complain_on_overflow */
1683 0, /* special_function */
1684 "R_RBRC", /* name */
1685 true, /* partial_inplace */
1686 0xffff, /* src_mask */
1687 0xffff, /* dst_mask */
1688 false), /* pcrel_offset */
1690 HOWTO (R_POS, /* type */
1692 2, /* size (0 = byte, 1 = short, 2 = long) */
1694 false, /* pc_relative */
1696 complain_overflow_bitfield, /* complain_on_overflow */
1697 0, /* special_function */
1698 "R_POS_32", /* name */
1699 true, /* partial_inplace */
1700 0xffffffff, /* src_mask */
1701 0xffffffff, /* dst_mask */
1702 false), /* pcrel_offset */
1704 /* 16 bit Non modifiable absolute branch. */
1705 HOWTO (R_BA, /* type */
1707 1, /* size (0 = byte, 1 = short, 2 = long) */
1709 false, /* pc_relative */
1711 complain_overflow_bitfield, /* complain_on_overflow */
1712 0, /* special_function */
1713 "R_BA_16", /* name */
1714 true, /* partial_inplace */
1715 0xfffc, /* src_mask */
1716 0xfffc, /* dst_mask */
1717 false), /* pcrel_offset */
1719 /* Modifiable branch relative. */
1720 HOWTO (R_RBR, /* type */
1722 1, /* size (0 = byte, 1 = short, 2 = long) */
1724 false, /* pc_relative */
1726 complain_overflow_signed, /* complain_on_overflow */
1727 0, /* special_function */
1728 "R_RBR_16", /* name */
1729 true, /* partial_inplace */
1730 0xffff, /* src_mask */
1731 0xffff, /* dst_mask */
1732 false), /* pcrel_offset */
1734 /* Modifiable branch absolute. */
1735 HOWTO (R_RBA, /* type */
1737 1, /* size (0 = byte, 1 = short, 2 = long) */
1739 false, /* pc_relative */
1741 complain_overflow_bitfield, /* complain_on_overflow */
1742 0, /* special_function */
1743 "R_RBA_16", /* name */
1744 true, /* partial_inplace */
1745 0xffff, /* src_mask */
1746 0xffff, /* dst_mask */
1747 false), /* pcrel_offset */
1752 xcoff64_rtype2howto (relent, internal)
1754 struct internal_reloc *internal;
1756 if (internal->r_type > R_RBRC)
1759 /* Default howto layout works most of the time */
1760 relent->howto = &xcoff64_howto_table[internal->r_type];
1762 /* Special case some 16 bit reoloc */
1763 if (15 == (internal->r_size & 0x3f))
1765 if (R_BA == internal->r_type)
1766 relent->howto = &xcoff64_howto_table[0x1d];
1767 else if (R_RBR == internal->r_type)
1768 relent->howto = &xcoff64_howto_table[0x1e];
1769 else if (R_RBA == internal->r_type)
1770 relent->howto = &xcoff64_howto_table[0x1f];
1772 /* Special case 32 bit */
1773 else if (31 == (internal->r_size & 0x3f))
1775 if (R_POS == internal->r_type)
1776 relent->howto = &xcoff64_howto_table[0x1c];
1779 /* The r_size field of an XCOFF reloc encodes the bitsize of the
1780 relocation, as well as indicating whether it is signed or not.
1781 Doublecheck that the relocation information gathered from the
1782 type matches this information. The bitsize is not significant
1783 for R_REF relocs. */
1784 if (relent->howto->dst_mask != 0
1785 && (relent->howto->bitsize
1786 != ((unsigned int) internal->r_size & 0x3f) + 1))
1789 /* Put a meaningful value in addend */
1790 relent->addend = (internal->r_size & 0x80) ? - internal->r_vaddr
1791 : internal->r_vaddr;
1795 xcoff64_reloc_type_lookup (abfd, code)
1796 bfd *abfd ATTRIBUTE_UNUSED;
1797 bfd_reloc_code_real_type code;
1801 case BFD_RELOC_PPC_B26:
1802 return &xcoff64_howto_table[0xa];
1803 case BFD_RELOC_PPC_BA16:
1804 return &xcoff64_howto_table[0x1d];
1805 case BFD_RELOC_PPC_BA26:
1806 return &xcoff64_howto_table[8];
1807 case BFD_RELOC_PPC_TOC16:
1808 return &xcoff64_howto_table[3];
1810 case BFD_RELOC_CTOR:
1811 return &xcoff64_howto_table[0x1c];
1813 return &xcoff64_howto_table[0];
1819 /* Read in the armap of an XCOFF archive. */
1822 xcoff64_slurp_armap (abfd)
1827 bfd_size_type sz, amt;
1828 bfd_byte *contents, *cend;
1834 /* This is for the new format. */
1835 struct xcoff_ar_hdr_big hdr;
1837 if (xcoff_ardata (abfd) == NULL)
1839 bfd_has_map (abfd) = false;
1843 off = bfd_scan_vma (xcoff_ardata_big (abfd)->symoff64,
1844 (const char **) NULL, 10);
1847 bfd_has_map (abfd) = false;
1851 if (bfd_seek (abfd, off, SEEK_SET) != 0)
1854 /* The symbol table starts with a normal archive header. */
1855 if (bfd_bread ((PTR) &hdr, (bfd_size_type) SIZEOF_AR_HDR_BIG, abfd)
1856 != SIZEOF_AR_HDR_BIG)
1859 /* Skip the name (normally empty). */
1860 namlen = strtol (hdr.namlen, (char **) NULL, 10);
1861 pos = ((namlen + 1) & ~(size_t) 1) + SXCOFFARFMAG;
1862 if (bfd_seek (abfd, pos, SEEK_CUR) != 0)
1865 sz = bfd_scan_vma (hdr.size, (const char **) NULL, 10);
1867 /* Read in the entire symbol table. */
1868 contents = (bfd_byte *) bfd_alloc (abfd, sz);
1869 if (contents == NULL)
1871 if (bfd_bread ((PTR) contents, sz, abfd) != sz)
1874 /* The symbol table starts with an eight byte count. */
1875 c = H_GET_64 (abfd, contents);
1879 bfd_set_error (bfd_error_bad_value);
1883 amt *= sizeof (carsym);
1884 bfd_ardata (abfd)->symdefs = (carsym *) bfd_alloc (abfd, amt);
1885 if (bfd_ardata (abfd)->symdefs == NULL)
1888 /* After the count comes a list of eight byte file offsets. */
1889 for (i = 0, arsym = bfd_ardata (abfd)->symdefs, p = contents + 8;
1891 ++i, ++arsym, p += 8)
1892 arsym->file_offset = H_GET_64 (abfd, p);
1894 /* After the file offsets come null terminated symbol names. */
1895 cend = contents + sz;
1896 for (i = 0, arsym = bfd_ardata (abfd)->symdefs;
1898 ++i, ++arsym, p += strlen ((char *) p) + 1)
1902 bfd_set_error (bfd_error_bad_value);
1905 arsym->name = (char *) p;
1908 bfd_ardata (abfd)->symdef_count = c;
1909 bfd_has_map (abfd) = true;
1915 /* See if this is an NEW XCOFF archive. */
1917 static const bfd_target *
1918 xcoff64_archive_p (abfd)
1921 struct artdata *tdata_hold;
1922 char magic[SXCOFFARMAG];
1923 /* This is the new format. */
1924 struct xcoff_ar_file_hdr_big hdr;
1925 bfd_size_type amt = SXCOFFARMAG;
1927 if (bfd_bread ((PTR) magic, amt, abfd) != amt)
1929 if (bfd_get_error () != bfd_error_system_call)
1930 bfd_set_error (bfd_error_wrong_format);
1934 if (strncmp (magic, XCOFFARMAGBIG, SXCOFFARMAG) != 0)
1936 bfd_set_error (bfd_error_wrong_format);
1940 /* Copy over the magic string. */
1941 memcpy (hdr.magic, magic, SXCOFFARMAG);
1943 /* Now read the rest of the file header. */
1944 amt = SIZEOF_AR_FILE_HDR_BIG - SXCOFFARMAG;
1945 if (bfd_bread ((PTR) &hdr.memoff, amt, abfd) != amt)
1947 if (bfd_get_error () != bfd_error_system_call)
1948 bfd_set_error (bfd_error_wrong_format);
1952 tdata_hold = bfd_ardata (abfd);
1954 amt = sizeof (struct artdata);
1955 bfd_ardata (abfd) = (struct artdata *) bfd_zalloc (abfd, amt);
1956 if (bfd_ardata (abfd) == (struct artdata *) NULL)
1957 goto error_ret_restore;
1959 bfd_ardata (abfd)->cache = NULL;
1960 bfd_ardata (abfd)->archive_head = NULL;
1961 bfd_ardata (abfd)->symdefs = NULL;
1962 bfd_ardata (abfd)->extended_names = NULL;
1963 bfd_ardata (abfd)->first_file_filepos = bfd_scan_vma (hdr.firstmemoff,
1964 (const char **) NULL,
1967 amt = SIZEOF_AR_FILE_HDR_BIG;
1968 bfd_ardata (abfd)->tdata = bfd_zalloc (abfd, amt);
1969 if (bfd_ardata (abfd)->tdata == NULL)
1972 memcpy (bfd_ardata (abfd)->tdata, &hdr, SIZEOF_AR_FILE_HDR_BIG);
1974 if (! xcoff64_slurp_armap (abfd))
1977 bfd_release (abfd, bfd_ardata (abfd));
1979 bfd_ardata (abfd) = tdata_hold;
1987 /* Open the next element in an XCOFF archive. */
1990 xcoff64_openr_next_archived_file (archive, last_file)
1996 if ((xcoff_ardata (archive) == NULL)
1997 || ! xcoff_big_format_p (archive))
1999 bfd_set_error (bfd_error_invalid_operation);
2003 if (last_file == NULL)
2005 filestart = bfd_ardata (archive)->first_file_filepos;
2009 filestart = bfd_scan_vma (arch_xhdr_big (last_file)->nextoff,
2010 (const char **) NULL, 10);
2014 || filestart == bfd_scan_vma (xcoff_ardata_big (archive)->memoff,
2015 (const char **) NULL, 10)
2016 || filestart == bfd_scan_vma (xcoff_ardata_big (archive)->symoff,
2017 (const char **) NULL, 10))
2019 bfd_set_error (bfd_error_no_more_archived_files);
2023 return _bfd_get_elt_at_filepos (archive, filestart);
2026 /* We can't use the usual coff_sizeof_headers routine, because AIX
2027 always uses an a.out header. */
2031 xcoff64_sizeof_headers (abfd, reloc)
2033 boolean reloc ATTRIBUTE_UNUSED;
2037 size = bfd_coff_filhsz (abfd);
2039 /* Don't think the small aout header can be used since some of the
2040 old elements have been reordered past the end of the old coff
2043 if (xcoff_data (abfd)->full_aouthdr)
2044 size += bfd_coff_aoutsz (abfd);
2046 size += abfd->section_count * bfd_coff_scnhsz (abfd);
2053 xcoff64_create_csect_from_smclas (abfd, aux, symbol_name)
2055 union internal_auxent *aux;
2056 const char *symbol_name;
2058 asection *return_value = NULL;
2060 /* Changes from 32 :
2061 .sv == 8, is only for 32 bit programs
2062 .ti == 12 and .tb == 13 are now reserved. */
2063 static const char *names[19] =
2065 ".pr", ".ro", ".db", ".tc", ".ua", ".rw", ".gl", ".xo",
2066 NULL, ".bs", ".ds", ".uc", NULL, NULL, NULL, ".tc0",
2067 ".td", ".sv64", ".sv3264"
2070 if ((19 >= aux->x_csect.x_smclas)
2071 && (NULL != names[aux->x_csect.x_smclas]))
2074 return_value = bfd_make_section_anyway
2075 (abfd, names[aux->x_csect.x_smclas]);
2080 (*_bfd_error_handler)
2081 (_("%s: symbol `%s' has unrecognized smclas %d"),
2082 bfd_archive_filename (abfd), symbol_name, aux->x_csect.x_smclas);
2083 bfd_set_error (bfd_error_bad_value);
2086 return return_value;
2090 xcoff64_is_lineno_count_overflow (abfd, value)
2091 bfd *abfd ATTRIBUTE_UNUSED;
2092 bfd_vma value ATTRIBUTE_UNUSED;
2098 xcoff64_is_reloc_count_overflow (abfd, value)
2099 bfd *abfd ATTRIBUTE_UNUSED;
2100 bfd_vma value ATTRIBUTE_UNUSED;
2106 xcoff64_loader_symbol_offset (abfd, ldhdr)
2107 bfd *abfd ATTRIBUTE_UNUSED;
2108 struct internal_ldhdr *ldhdr;
2110 return (ldhdr->l_symoff);
2114 xcoff64_loader_reloc_offset (abfd, ldhdr)
2115 bfd *abfd ATTRIBUTE_UNUSED;
2116 struct internal_ldhdr *ldhdr;
2118 return (ldhdr->l_rldoff);
2122 xcoff64_bad_format_hook (abfd, filehdr)
2126 struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr;
2128 /* Check flavor first. */
2129 if (bfd_get_flavour (abfd) != bfd_target_xcoff_flavour)
2132 if (bfd_xcoff_magic_number (abfd) != internal_f->f_magic)
2139 xcoff64_generate_rtinit (abfd, init, fini, rtld)
2145 bfd_byte filehdr_ext[FILHSZ];
2146 bfd_byte scnhdr_ext[SCNHSZ * 3];
2147 bfd_byte syment_ext[SYMESZ * 10];
2148 bfd_byte reloc_ext[RELSZ * 3];
2149 bfd_byte *data_buffer;
2150 bfd_size_type data_buffer_size;
2151 bfd_byte *string_table, *st_tmp;
2152 bfd_size_type string_table_size;
2154 size_t initsz, finisz;
2155 struct internal_filehdr filehdr;
2156 struct internal_scnhdr text_scnhdr;
2157 struct internal_scnhdr data_scnhdr;
2158 struct internal_scnhdr bss_scnhdr;
2159 struct internal_syment syment;
2160 union internal_auxent auxent;
2161 struct internal_reloc reloc;
2163 char *text_name = ".text";
2164 char *data_name = ".data";
2165 char *bss_name = ".bss";
2166 char *rtinit_name = "__rtinit";
2167 char *rtld_name = "__rtld";
2169 if (! bfd_xcoff_rtinit_size (abfd))
2172 initsz = (init == NULL ? 0 : 1 + strlen (init));
2173 finisz = (fini == NULL ? 0 : 1 + strlen (fini));
2176 memset (filehdr_ext, 0, FILHSZ);
2177 memset (&filehdr, 0, sizeof (struct internal_filehdr));
2178 filehdr.f_magic = bfd_xcoff_magic_number (abfd);
2179 filehdr.f_nscns = 3;
2180 filehdr.f_timdat = 0;
2181 filehdr.f_nsyms = 0; /* at least 6, no more than 8 */
2182 filehdr.f_symptr = 0; /* set below */
2183 filehdr.f_opthdr = 0;
2184 filehdr.f_flags = 0;
2186 /* Section headers. */
2187 memset (scnhdr_ext, 0, 3 * SCNHSZ);
2190 memset (&text_scnhdr, 0, sizeof (struct internal_scnhdr));
2191 memcpy (text_scnhdr.s_name, text_name, strlen (text_name));
2192 text_scnhdr.s_paddr = 0;
2193 text_scnhdr.s_vaddr = 0;
2194 text_scnhdr.s_size = 0;
2195 text_scnhdr.s_scnptr = 0;
2196 text_scnhdr.s_relptr = 0;
2197 text_scnhdr.s_lnnoptr = 0;
2198 text_scnhdr.s_nreloc = 0;
2199 text_scnhdr.s_nlnno = 0;
2200 text_scnhdr.s_flags = STYP_TEXT;
2203 memset (&data_scnhdr, 0, sizeof (struct internal_scnhdr));
2204 memcpy (data_scnhdr.s_name, data_name, strlen (data_name));
2205 data_scnhdr.s_paddr = 0;
2206 data_scnhdr.s_vaddr = 0;
2207 data_scnhdr.s_size = 0; /* set below */
2208 data_scnhdr.s_scnptr = FILHSZ + 3 * SCNHSZ;
2209 data_scnhdr.s_relptr = 0; /* set below */
2210 data_scnhdr.s_lnnoptr = 0;
2211 data_scnhdr.s_nreloc = 0; /* either 1 or 2 */
2212 data_scnhdr.s_nlnno = 0;
2213 data_scnhdr.s_flags = STYP_DATA;
2216 memset (&bss_scnhdr, 0, sizeof (struct internal_scnhdr));
2217 memcpy (bss_scnhdr.s_name, bss_name, strlen (bss_name));
2218 bss_scnhdr.s_paddr = 0; /* set below */
2219 bss_scnhdr.s_vaddr = 0; /* set below */
2220 bss_scnhdr.s_size = 0; /* set below */
2221 bss_scnhdr.s_scnptr = 0;
2222 bss_scnhdr.s_relptr = 0;
2223 bss_scnhdr.s_lnnoptr = 0;
2224 bss_scnhdr.s_nreloc = 0;
2225 bss_scnhdr.s_nlnno = 0;
2226 bss_scnhdr.s_flags = STYP_BSS;
2229 0x0000 0x00000000 : rtl
2231 0x0008 0x00000018 : offset to init, or 0
2232 0x000C 0x00000038 : offset to fini, or 0
2233 0x0010 0x00000010 : size of descriptor
2234 0x0014 0x00000000 : pad
2235 0x0018 0x00000000 : init, needs a reloc
2237 0x0020 0x00000058 : offset to init name
2238 0x0024 0x00000000 : flags, padded to a word
2239 0x0028 0x00000000 : empty init
2243 0x0038 0x00000000 : fini, needs a reloc
2245 0x0040 0x00000??? : offset to fini name
2246 0x0044 0x00000000 : flags, padded to a word
2247 0x0048 0x00000000 : empty fini
2252 0x0058 + initsz fini name */
2254 data_buffer_size = 0x0058 + initsz + finisz;
2255 data_buffer_size += (data_buffer_size & 7) ? 8 - (data_buffer_size & 7) : 0;
2257 data_buffer = (bfd_byte *) bfd_zmalloc (data_buffer_size);
2258 if (data_buffer == NULL)
2264 bfd_put_32 (abfd, val, &data_buffer[0x08]);
2266 bfd_put_32 (abfd, val, &data_buffer[0x20]);
2267 memcpy (&data_buffer[val], init, initsz);
2273 bfd_put_32 (abfd, val, &data_buffer[0x0C]);
2274 val = 0x58 + initsz;
2275 bfd_put_32 (abfd, val, &data_buffer[0x40]);
2276 memcpy (&data_buffer[val], fini, finisz);
2280 bfd_put_32 (abfd, val, &data_buffer[0x10]);
2281 data_scnhdr.s_size = data_buffer_size;
2282 bss_scnhdr.s_paddr = bss_scnhdr.s_vaddr = data_scnhdr.s_size;
2285 string_table_size = 4;
2286 string_table_size += strlen (data_name) + 1;
2287 string_table_size += strlen (rtinit_name) + 1;
2288 string_table_size += initsz;
2289 string_table_size += finisz;
2291 string_table_size += strlen (rtld_name) + 1;
2293 string_table = (bfd_byte *) bfd_zmalloc (string_table_size);
2294 if (string_table == NULL)
2297 val = string_table_size;
2298 bfd_put_32 (abfd, val, &string_table[0]);
2299 st_tmp = string_table + 4;
2307 memset (syment_ext, 0, 10 * SYMESZ);
2308 memset (reloc_ext, 0, 3 * RELSZ);
2311 memset (&syment, 0, sizeof (struct internal_syment));
2312 memset (&auxent, 0, sizeof (union internal_auxent));
2314 syment._n._n_n._n_offset = st_tmp - string_table;
2315 memcpy (st_tmp, data_name, strlen (data_name));
2316 st_tmp += strlen (data_name) + 1;
2319 syment.n_sclass = C_HIDEXT;
2320 syment.n_numaux = 1;
2321 auxent.x_csect.x_scnlen.l = data_buffer_size;
2322 auxent.x_csect.x_smtyp = 3 << 3 | XTY_SD;
2323 auxent.x_csect.x_smclas = XMC_RW;
2324 bfd_coff_swap_sym_out (abfd, &syment,
2325 &syment_ext[filehdr.f_nsyms * SYMESZ]);
2326 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2328 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2329 filehdr.f_nsyms += 2;
2332 memset (&syment, 0, sizeof (struct internal_syment));
2333 memset (&auxent, 0, sizeof (union internal_auxent));
2334 syment._n._n_n._n_offset = st_tmp - string_table;
2335 memcpy (st_tmp, rtinit_name, strlen (rtinit_name));
2336 st_tmp += strlen (rtinit_name) + 1;
2339 syment.n_sclass = C_EXT;
2340 syment.n_numaux = 1;
2341 auxent.x_csect.x_smtyp = XTY_LD;
2342 auxent.x_csect.x_smclas = XMC_RW;
2343 bfd_coff_swap_sym_out (abfd, &syment,
2344 &syment_ext[filehdr.f_nsyms * SYMESZ]);
2345 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2347 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2348 filehdr.f_nsyms += 2;
2353 memset (&syment, 0, sizeof (struct internal_syment));
2354 memset (&auxent, 0, sizeof (union internal_auxent));
2356 syment._n._n_n._n_offset = st_tmp - string_table;
2357 memcpy (st_tmp, init, initsz);
2360 syment.n_sclass = C_EXT;
2361 syment.n_numaux = 1;
2362 bfd_coff_swap_sym_out (abfd, &syment,
2363 &syment_ext[filehdr.f_nsyms * SYMESZ]);
2364 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2366 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2368 memset (&reloc, 0, sizeof (struct internal_reloc));
2369 reloc.r_vaddr = 0x0018;
2370 reloc.r_symndx = filehdr.f_nsyms;
2371 reloc.r_type = R_POS;
2373 bfd_coff_swap_reloc_out (abfd, &reloc, &reloc_ext[0]);
2375 filehdr.f_nsyms += 2;
2376 data_scnhdr.s_nreloc += 1;
2382 memset (&syment, 0, sizeof (struct internal_syment));
2383 memset (&auxent, 0, sizeof (union internal_auxent));
2385 syment._n._n_n._n_offset = st_tmp - string_table;
2386 memcpy (st_tmp, fini, finisz);
2389 syment.n_sclass = C_EXT;
2390 syment.n_numaux = 1;
2391 bfd_coff_swap_sym_out (abfd, &syment,
2392 &syment_ext[filehdr.f_nsyms * SYMESZ]);
2393 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2395 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2398 memset (&reloc, 0, sizeof (struct internal_reloc));
2399 reloc.r_vaddr = 0x0038;
2400 reloc.r_symndx = filehdr.f_nsyms;
2401 reloc.r_type = R_POS;
2403 bfd_coff_swap_reloc_out (abfd, &reloc,
2404 &reloc_ext[data_scnhdr.s_nreloc * RELSZ]);
2406 filehdr.f_nsyms += 2;
2407 data_scnhdr.s_nreloc += 1;
2412 memset (&syment, 0, sizeof (struct internal_syment));
2413 memset (&auxent, 0, sizeof (union internal_auxent));
2415 syment._n._n_n._n_offset = st_tmp - string_table;
2416 memcpy (st_tmp, rtld_name, strlen (rtld_name));
2417 st_tmp += strlen (rtld_name) + 1;
2419 syment.n_sclass = C_EXT;
2420 syment.n_numaux = 1;
2421 bfd_coff_swap_sym_out (abfd, &syment,
2422 &syment_ext[filehdr.f_nsyms * SYMESZ]);
2423 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2425 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2428 memset (&reloc, 0, sizeof (struct internal_reloc));
2429 reloc.r_vaddr = 0x0000;
2430 reloc.r_symndx = filehdr.f_nsyms;
2431 reloc.r_type = R_POS;
2433 bfd_coff_swap_reloc_out (abfd, &reloc,
2434 &reloc_ext[data_scnhdr.s_nreloc * RELSZ]);
2436 filehdr.f_nsyms += 2;
2437 data_scnhdr.s_nreloc += 1;
2439 bss_scnhdr.s_size = 0;
2442 data_scnhdr.s_relptr = data_scnhdr.s_scnptr + data_buffer_size;
2443 filehdr.f_symptr = data_scnhdr.s_relptr + data_scnhdr.s_nreloc * RELSZ;
2445 bfd_coff_swap_filehdr_out (abfd, &filehdr, filehdr_ext);
2446 bfd_bwrite (filehdr_ext, FILHSZ, abfd);
2447 bfd_coff_swap_scnhdr_out (abfd, &text_scnhdr, &scnhdr_ext[SCNHSZ * 0]);
2448 bfd_coff_swap_scnhdr_out (abfd, &data_scnhdr, &scnhdr_ext[SCNHSZ * 1]);
2449 bfd_coff_swap_scnhdr_out (abfd, &bss_scnhdr, &scnhdr_ext[SCNHSZ * 2]);
2450 bfd_bwrite (scnhdr_ext, 3 * SCNHSZ, abfd);
2451 bfd_bwrite (data_buffer, data_buffer_size, abfd);
2452 bfd_bwrite (reloc_ext, data_scnhdr.s_nreloc * RELSZ, abfd);
2453 bfd_bwrite (syment_ext, filehdr.f_nsyms * SYMESZ, abfd);
2454 bfd_bwrite (string_table, string_table_size, abfd);
2462 /* The typical dynamic reloc. */
2464 static reloc_howto_type xcoff64_dynamic_reloc =
2465 HOWTO (0, /* type */
2467 4, /* size (0 = byte, 1 = short, 2 = long) */
2469 false, /* pc_relative */
2471 complain_overflow_bitfield, /* complain_on_overflow */
2472 0, /* special_function */
2474 true, /* partial_inplace */
2475 MINUS_ONE, /* src_mask */
2476 MINUS_ONE, /* dst_mask */
2477 false); /* pcrel_offset */
2479 static unsigned long xcoff64_glink_code[10] =
2481 0xe9820000, /* ld r12,0(r2) */
2482 0xf8410028, /* std r2,40(r1) */
2483 0xe80c0000, /* ld r0,0(r12) */
2484 0xe84c0008, /* ld r0,8(r12) */
2485 0x7c0903a6, /* mtctr r0 */
2486 0x4e800420, /* bctr */
2487 0x00000000, /* start of traceback table */
2488 0x000ca000, /* traceback table */
2489 0x00000000, /* traceback table */
2490 0x00000018, /* ??? */
2493 static const struct xcoff_backend_data_rec bfd_xcoff_backend_data =
2495 { /* COFF backend, defined in libcoff.h. */
2496 _bfd_xcoff64_swap_aux_in, /* _bfd_coff_swap_aux_in */
2497 _bfd_xcoff64_swap_sym_in, /* _bfd_coff_swap_sym_in */
2498 _bfd_xcoff64_swap_lineno_in, /* _bfd_coff_swap_lineno_in */
2499 _bfd_xcoff64_swap_aux_out, /* _bfd_swap_aux_out */
2500 _bfd_xcoff64_swap_sym_out, /* _bfd_swap_sym_out */
2501 _bfd_xcoff64_swap_lineno_out, /* _bfd_swap_lineno_out */
2502 xcoff64_swap_reloc_out, /* _bfd_swap_reloc_out */
2503 coff_swap_filehdr_out, /* _bfd_swap_filehdr_out */
2504 coff_swap_aouthdr_out, /* _bfd_swap_aouthdr_out */
2505 coff_swap_scnhdr_out, /* _bfd_swap_scnhdr_out */
2506 FILHSZ, /* _bfd_filhsz */
2507 AOUTSZ, /* _bfd_aoutsz */
2508 SCNHSZ, /* _bfd_scnhsz */
2509 SYMESZ, /* _bfd_symesz */
2510 AUXESZ, /* _bfd_auxesz */
2511 RELSZ, /* _bfd_relsz */
2512 LINESZ, /* _bfd_linesz */
2513 FILNMLEN, /* _bfd_filnmlen */
2514 true, /* _bfd_coff_long_filenames */
2515 false, /* _bfd_coff_long_section_names */
2516 (3), /* _bfd_coff_default_section_alignment_power */
2517 true, /* _bfd_coff_force_symnames_in_strings */
2518 4, /* _bfd_coff_debug_string_prefix_length */
2519 coff_swap_filehdr_in, /* _bfd_coff_swap_filehdr_in */
2520 coff_swap_aouthdr_in, /* _bfd_swap_aouthdr_in */
2521 coff_swap_scnhdr_in, /* _bfd_swap_scnhdr_in */
2522 xcoff64_swap_reloc_in, /* _bfd_reloc_in */
2523 xcoff64_bad_format_hook, /* _bfd_bad_format_hook */
2524 coff_set_arch_mach_hook, /* _bfd_set_arch_mach_hook */
2525 coff_mkobject_hook, /* _bfd_mkobject_hook */
2526 styp_to_sec_flags, /* _bfd_syp_to_sec_flags */
2527 coff_set_alignment_hook, /* _bfd_set_alignment_hook */
2528 coff_slurp_symbol_table, /* _bfd_coff_slurp_symbol_table */
2529 symname_in_debug_hook, /* _coff_symname_in_debug_hook */
2530 coff_pointerize_aux_hook, /* _bfd_coff_pointerize_aux_hook */
2531 coff_print_aux, /* bfd_coff_print_aux */
2532 dummy_reloc16_extra_cases, /* _bfd_coff_reloc16_extra_cases */
2533 dummy_reloc16_estimate, /* _bfd_coff_reloc16_estimate */
2534 NULL, /* bfd_coff_sym_is_global */
2535 /* _bfd_coff_compute_section_file_positions */
2536 coff_compute_section_file_positions,
2537 NULL , /* _bfd_coff_start_final_link */
2538 xcoff64_ppc_relocate_section, /* _bfd_coff_relocate_section */
2539 coff_rtype_to_howto, /* _bfd_coff_rtype_to_howto */
2540 NULL , /* _bfd_coff_addust_symndx */
2541 _bfd_generic_link_add_one_symbol, /* _bfd_coff_add_one_symbol */
2542 coff_link_output_has_begun, /* _bfd_coff_link_output_has_begun */
2543 coff_final_link_postscript /* _bfd_coff_final_link_postscript */
2546 0x01EF, /* magic number */
2547 bfd_arch_powerpc, /* architecture */
2548 bfd_mach_ppc_620, /* machine */
2550 /* Function pointers to xcoff specific swap routines. */
2551 xcoff64_swap_ldhdr_in, /* _xcoff_swap_ldhdr_in */
2552 xcoff64_swap_ldhdr_out, /* _xcoff_swap_ldhdr_out */
2553 xcoff64_swap_ldsym_in, /* _xcoff_swap_ldsym_in */
2554 xcoff64_swap_ldsym_out, /* _xcoff_swap_ldsym_out */
2555 xcoff64_swap_ldrel_in, /* _xcoff_swap_ldrel_in */
2556 xcoff64_swap_ldrel_out, /* _xcoff_swap_ldrel_out */
2559 LDHDRSZ, /* _xcoff_ldhdrsz */
2560 LDSYMSZ, /* _xcoff_ldsymsz */
2561 LDRELSZ, /* _xcoff_ldrelsz */
2562 24, /* _xcoff_function_descriptor_size */
2563 0, /* _xcoff_small_aout_header_size */
2566 2, /* _xcoff_ldhdr_version */
2568 /* xcoff vs xcoff64 putting symbol names. */
2569 _bfd_xcoff64_put_symbol_name, /* _xcoff_put_symbol_name */
2570 _bfd_xcoff64_put_ldsymbol_name, /* _xcoff_put_ldsymbol_name */
2572 /* Dynamic reloc howto. */
2573 &xcoff64_dynamic_reloc,
2575 xcoff64_create_csect_from_smclas,
2577 /* Lineno and reloc count overflow. */
2578 xcoff64_is_lineno_count_overflow,
2579 xcoff64_is_reloc_count_overflow,
2581 xcoff64_loader_symbol_offset,
2582 xcoff64_loader_reloc_offset,
2585 &xcoff64_glink_code[0],
2586 40, /* _xcoff_glink_size */
2589 88, /* _xcoff_rtinit_size */
2590 xcoff64_generate_rtinit, /* _xcoff_generate_rtinit */
2593 /* The transfer vector that leads the outside world to all of the above. */
2594 const bfd_target rs6000coff64_vec =
2597 bfd_target_xcoff_flavour,
2598 BFD_ENDIAN_BIG, /* data byte order is big */
2599 BFD_ENDIAN_BIG, /* header byte order is big */
2601 (HAS_RELOC | EXEC_P | /* object flags */
2602 HAS_LINENO | HAS_DEBUG | DYNAMIC |
2603 HAS_SYMS | HAS_LOCALS | WP_TEXT),
2605 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
2606 0, /* leading char */
2607 '/', /* ar_pad_char */
2608 15, /* ar_max_namelen??? FIXMEmgo */
2611 bfd_getb64, /* bfd_getx64 */
2612 bfd_getb_signed_64, /* bfd_getx_signed_64 */
2613 bfd_putb64, /* bfd_putx64 */
2614 bfd_getb32, /* bfd_getx32 */
2615 bfd_getb_signed_32, /* bfd_getx_signed_32 */
2616 bfd_putb32, /* bfd_putx32 */
2617 bfd_getb16, /* bfd_getx16 */
2618 bfd_getb_signed_16, /* bfd_getx_signed_16 */
2619 bfd_putb16, /* bfd_putx16 */
2622 bfd_getb64, /* bfd_h_getx64 */
2623 bfd_getb_signed_64, /* bfd_h_getx_signed_64 */
2624 bfd_putb64, /* bfd_h_putx64 */
2625 bfd_getb32, /* bfd_h_getx32 */
2626 bfd_getb_signed_32, /* bfd_h_getx_signed_32 */
2627 bfd_putb32, /* bfd_h_putx32 */
2628 bfd_getb16, /* bfd_h_getx16 */
2629 bfd_getb_signed_16, /* bfd_h_getx_signed_16 */
2630 bfd_putb16, /* bfd_h_putx16 */
2632 { /* bfd_check_format */
2639 { /* bfd_set_format */
2642 _bfd_generic_mkarchive,
2646 {/* bfd_write_contents */
2648 xcoff64_write_object_contents,
2649 _bfd_xcoff_write_archive_contents,
2654 bfd_true, /* _close_and_cleanup */
2655 bfd_true, /* _bfd_free_cached_info */
2656 coff_new_section_hook, /* _new_section_hook */
2657 _bfd_generic_get_section_contents, /* _bfd_get_section_contents */
2658 /* _bfd_get_section_contents_in_window */
2659 _bfd_generic_get_section_contents_in_window,
2662 _bfd_xcoff_copy_private_bfd_data, /* _bfd_copy_private_bfd */
2663 /* _bfd_merge_private_bfd_data */
2664 ((boolean (*) (bfd *, bfd *)) bfd_true),
2665 /* _bfd_copy_pivate_section_data */
2666 ((boolean (*) (bfd *, asection *, bfd *, asection *)) bfd_true),
2667 /* _bfd_copy_private_symbol_data */
2668 ((boolean (*) (bfd *, asymbol *, bfd *, asymbol *)) bfd_true),
2669 ((boolean (*) (bfd *, flagword)) bfd_true), /* _bfd_set_private_flags */
2670 ((boolean (*) (bfd *, void * )) bfd_true), /* _bfd_print_private_bfd_data */
2673 coff_core_file_failing_command, /* _core_file_failing_command */
2674 coff_core_file_failing_signal, /* _core_file_failing_signal */
2675 coff_core_file_matches_executable_p, /* _core_file_matches_executable_p */
2678 xcoff64_slurp_armap, /* _slurp_armap */
2679 /* XCOFF archives do not have anything which corresponds to an
2680 extended name table. */
2681 bfd_false, /* _slurp_extended_name_table */
2682 /* _construct_extended_name_table */
2683 ((boolean (*) (bfd *, char **, bfd_size_type *, const char **)) bfd_false),
2684 bfd_dont_truncate_arname, /* _truncate_arname */
2685 _bfd_xcoff_write_armap, /* _write_armap */
2686 _bfd_xcoff_read_ar_hdr, /* _read_ar_hdr */
2687 xcoff64_openr_next_archived_file, /* _openr_next_archived_file */
2688 _bfd_generic_get_elt_at_index, /* _get_elt_at_index */
2689 _bfd_xcoff_stat_arch_elt, /* _generic_stat_arch_elt */
2690 /* XCOFF archives do not have a timestamp. */
2691 bfd_true, /* _update_armap_timestamp */
2694 coff_get_symtab_upper_bound, /* _get_symtab_upper_bound */
2695 coff_get_symtab, /* _get_symtab */
2696 coff_make_empty_symbol, /* _make_empty_symbol */
2697 coff_print_symbol, /* _print_symbol */
2698 coff_get_symbol_info, /* _get_symbol_info */
2699 _bfd_xcoff_is_local_label_name, /* _bfd_is_local_label_name */
2700 coff_get_lineno, /* _get_lineno */
2701 coff_find_nearest_line, /* _find_nearest_line */
2702 coff_bfd_make_debug_symbol, /* _bfd_make_debug_symbol */
2703 _bfd_generic_read_minisymbols, /* _read_minisymbols */
2704 _bfd_generic_minisymbol_to_symbol, /* _minsymbol_to_symbol */
2707 coff_get_reloc_upper_bound, /* _get_reloc_upper_bound */
2708 coff_canonicalize_reloc, /* _cononicalize_reloc */
2709 xcoff64_reloc_type_lookup, /* _bfd_reloc_type_lookup */
2712 coff_set_arch_mach, /* _set_arch_mach */
2713 coff_set_section_contents, /* _set_section_contents */
2716 xcoff64_sizeof_headers, /* _sizeof_headers */
2717 /* _bfd_get_relocated_section_contents */
2718 bfd_generic_get_relocated_section_contents,
2719 bfd_generic_relax_section, /* _bfd_relax_section */
2720 _bfd_xcoff_bfd_link_hash_table_create,/* _bfd_link_hash_table_create */
2721 _bfd_generic_link_hash_table_free, /* _bfd_link_hash_table_free */
2722 _bfd_xcoff_bfd_link_add_symbols, /* _bfd_link_add_symbols */
2723 _bfd_generic_link_just_syms, /* _bfd_link_just_syms */
2724 _bfd_xcoff_bfd_final_link, /* _bfd_final_link */
2725 _bfd_generic_link_split_section, /* _bfd_link_split_section */
2726 bfd_generic_gc_sections, /* _bfd_gc_sections */
2727 bfd_generic_merge_sections, /* _bfd_merge_sections */
2728 bfd_generic_discard_group, /* _bfd_discard_group */
2731 /* _get_dynamic_symtab_upper_bound */
2732 _bfd_xcoff_get_dynamic_symtab_upper_bound,
2733 _bfd_xcoff_canonicalize_dynamic_symtab, /* _cononicalize_dynamic_symtab */
2734 _bfd_xcoff_get_dynamic_reloc_upper_bound,/* _get_dynamic_reloc_upper_bound */
2735 _bfd_xcoff_canonicalize_dynamic_reloc, /* _cononicalize_dynamic_reloc */
2737 /* Opposite endian version, none exists */
2741 (void *) &bfd_xcoff_backend_data,
2744 extern const bfd_target *xcoff64_core_p PARAMS ((bfd *));
2745 extern boolean xcoff64_core_file_matches_executable_p PARAMS((bfd *, bfd *));
2746 extern char *xcoff64_core_file_failing_command PARAMS ((bfd *));
2747 extern int xcoff64_core_file_failing_signal PARAMS ((bfd *));
2750 static const struct xcoff_backend_data_rec bfd_xcoff_aix5_backend_data =
2752 { /* COFF backend, defined in libcoff.h. */
2753 _bfd_xcoff64_swap_aux_in, /* _bfd_coff_swap_aux_in */
2754 _bfd_xcoff64_swap_sym_in, /* _bfd_coff_swap_sym_in */
2755 _bfd_xcoff64_swap_lineno_in, /* _bfd_coff_swap_lineno_in */
2756 _bfd_xcoff64_swap_aux_out, /* _bfd_swap_aux_out */
2757 _bfd_xcoff64_swap_sym_out, /* _bfd_swap_sym_out */
2758 _bfd_xcoff64_swap_lineno_out, /* _bfd_swap_lineno_out */
2759 xcoff64_swap_reloc_out, /* _bfd_swap_reloc_out */
2760 coff_swap_filehdr_out, /* _bfd_swap_filehdr_out */
2761 coff_swap_aouthdr_out, /* _bfd_swap_aouthdr_out */
2762 coff_swap_scnhdr_out, /* _bfd_swap_scnhdr_out */
2763 FILHSZ, /* _bfd_filhsz */
2764 AOUTSZ, /* _bfd_aoutsz */
2765 SCNHSZ, /* _bfd_scnhsz */
2766 SYMESZ, /* _bfd_symesz */
2767 AUXESZ, /* _bfd_auxesz */
2768 RELSZ, /* _bfd_relsz */
2769 LINESZ, /* _bfd_linesz */
2770 FILNMLEN, /* _bfd_filnmlen */
2771 true, /* _bfd_coff_long_filenames */
2772 false, /* _bfd_coff_long_section_names */
2773 (3), /* _bfd_coff_default_section_alignment_power */
2774 true, /* _bfd_coff_force_symnames_in_strings */
2775 4, /* _bfd_coff_debug_string_prefix_length */
2776 coff_swap_filehdr_in, /* _bfd_coff_swap_filehdr_in */
2777 coff_swap_aouthdr_in, /* _bfd_swap_aouthdr_in */
2778 coff_swap_scnhdr_in, /* _bfd_swap_scnhdr_in */
2779 xcoff64_swap_reloc_in, /* _bfd_reloc_in */
2780 xcoff64_bad_format_hook, /* _bfd_bad_format_hook */
2781 coff_set_arch_mach_hook, /* _bfd_set_arch_mach_hook */
2782 coff_mkobject_hook, /* _bfd_mkobject_hook */
2783 styp_to_sec_flags, /* _bfd_syp_to_sec_flags */
2784 coff_set_alignment_hook, /* _bfd_set_alignment_hook */
2785 coff_slurp_symbol_table, /* _bfd_coff_slurp_symbol_table */
2786 symname_in_debug_hook, /* _coff_symname_in_debug_hook */
2787 coff_pointerize_aux_hook, /* _bfd_coff_pointerize_aux_hook */
2788 coff_print_aux, /* bfd_coff_print_aux */
2789 dummy_reloc16_extra_cases, /* _bfd_coff_reloc16_extra_cases */
2790 dummy_reloc16_estimate, /* _bfd_coff_reloc16_estimate */
2791 NULL, /* bfd_coff_sym_is_global */
2792 /* _bfd_coff_compute_section_file_positions */
2793 coff_compute_section_file_positions,
2794 NULL , /* _bfd_coff_start_final_link */
2795 xcoff64_ppc_relocate_section, /* _bfd_coff_relocate_section */
2796 coff_rtype_to_howto, /* _bfd_coff_rtype_to_howto */
2797 NULL , /* _bfd_coff_addust_symndx */
2798 _bfd_generic_link_add_one_symbol, /* _bfd_coff_add_one_symbol */
2799 coff_link_output_has_begun, /* _bfd_coff_link_output_has_begun */
2800 coff_final_link_postscript /* _bfd_coff_final_link_postscript */
2803 U64_TOCMAGIC, /* magic number */
2804 bfd_arch_powerpc, /* architecture */
2805 bfd_mach_ppc_620, /* machine */
2807 /* Function pointers to xcoff specific swap routines. */
2808 xcoff64_swap_ldhdr_in, /* _xcoff_swap_ldhdr_in */
2809 xcoff64_swap_ldhdr_out, /* _xcoff_swap_ldhdr_out */
2810 xcoff64_swap_ldsym_in, /* _xcoff_swap_ldsym_in */
2811 xcoff64_swap_ldsym_out, /* _xcoff_swap_ldsym_out */
2812 xcoff64_swap_ldrel_in, /* _xcoff_swap_ldrel_in */
2813 xcoff64_swap_ldrel_out, /* _xcoff_swap_ldrel_out */
2816 LDHDRSZ, /* _xcoff_ldhdrsz */
2817 LDSYMSZ, /* _xcoff_ldsymsz */
2818 LDRELSZ, /* _xcoff_ldrelsz */
2819 24, /* _xcoff_function_descriptor_size */
2820 0, /* _xcoff_small_aout_header_size */
2822 2, /* _xcoff_ldhdr_version */
2824 _bfd_xcoff64_put_symbol_name, /* _xcoff_put_symbol_name */
2825 _bfd_xcoff64_put_ldsymbol_name, /* _xcoff_put_ldsymbol_name */
2827 /* Dynamic reloc howto. */
2828 &xcoff64_dynamic_reloc,
2829 xcoff64_create_csect_from_smclas,
2831 /* Lineno and reloc count overflow. */
2832 xcoff64_is_lineno_count_overflow,
2833 xcoff64_is_reloc_count_overflow,
2835 xcoff64_loader_symbol_offset,
2836 xcoff64_loader_reloc_offset,
2839 &xcoff64_glink_code[0],
2840 40, /* _xcoff_glink_size */
2843 88, /* _xcoff_rtinit_size */
2844 xcoff64_generate_rtinit, /* _xcoff_generate_rtinit */
2847 /* The transfer vector that leads the outside world to all of the above. */
2848 const bfd_target aix5coff64_vec =
2850 "aix5coff64-rs6000",
2851 bfd_target_xcoff_flavour,
2852 BFD_ENDIAN_BIG, /* data byte order is big */
2853 BFD_ENDIAN_BIG, /* header byte order is big */
2855 (HAS_RELOC | EXEC_P | /* object flags */
2856 HAS_LINENO | HAS_DEBUG | DYNAMIC |
2857 HAS_SYMS | HAS_LOCALS | WP_TEXT),
2859 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
2860 0, /* leading char */
2861 '/', /* ar_pad_char */
2862 15, /* ar_max_namelen??? FIXMEmgo */
2865 bfd_getb64, /* bfd_getx64 */
2866 bfd_getb_signed_64, /* bfd_getx_signed_64 */
2867 bfd_putb64, /* bfd_putx64 */
2868 bfd_getb32, /* bfd_getx32 */
2869 bfd_getb_signed_32, /* bfd_getx_signed_32 */
2870 bfd_putb32, /* bfd_putx32 */
2871 bfd_getb16, /* bfd_getx16 */
2872 bfd_getb_signed_16, /* bfd_getx_signed_16 */
2873 bfd_putb16, /* bfd_putx16 */
2876 bfd_getb64, /* bfd_h_getx64 */
2877 bfd_getb_signed_64, /* bfd_h_getx_signed_64 */
2878 bfd_putb64, /* bfd_h_putx64 */
2879 bfd_getb32, /* bfd_h_getx32 */
2880 bfd_getb_signed_32, /* bfd_h_getx_signed_32 */
2881 bfd_putb32, /* bfd_h_putx32 */
2882 bfd_getb16, /* bfd_h_getx16 */
2883 bfd_getb_signed_16, /* bfd_h_getx_signed_16 */
2884 bfd_putb16, /* bfd_h_putx16 */
2886 { /* bfd_check_format */
2893 { /* bfd_set_format */
2896 _bfd_generic_mkarchive,
2900 {/* bfd_write_contents */
2902 xcoff64_write_object_contents,
2903 _bfd_xcoff_write_archive_contents,
2908 bfd_true, /* _close_and_cleanup */
2909 bfd_true, /* _bfd_free_cached_info */
2910 coff_new_section_hook, /* _new_section_hook */
2911 _bfd_generic_get_section_contents, /* _bfd_get_section_contents */
2912 /* _bfd_get_section_contents_in_window */
2913 _bfd_generic_get_section_contents_in_window,
2916 _bfd_xcoff_copy_private_bfd_data, /* _bfd_copy_private_bfd */
2917 /* _bfd_merge_private_bfd_data */
2918 ((boolean (*) (bfd *, bfd *)) bfd_true),
2919 /* _bfd_copy_pivate_section_data */
2920 ((boolean (*) (bfd *, asection *, bfd *, asection *)) bfd_true),
2921 /* _bfd_copy_private_symbol_data */
2922 ((boolean (*) (bfd *, asymbol *, bfd *, asymbol *)) bfd_true),
2923 ((boolean (*) (bfd *, flagword)) bfd_true), /* _bfd_set_private_flags */
2924 ((boolean (*) (bfd *, void * )) bfd_true), /* _bfd_print_private_bfd_data */
2927 xcoff64_core_file_failing_command, /* _core_file_failing_command */
2928 xcoff64_core_file_failing_signal, /* _core_file_failing_signal */
2929 xcoff64_core_file_matches_executable_p, /* _core_file_matches_executable_p */
2932 xcoff64_slurp_armap, /* _slurp_armap */
2933 /* XCOFF archives do not have anything which corresponds to an
2934 extended name table. */
2935 bfd_false, /* _slurp_extended_name_table */
2936 /* _construct_extended_name_table */
2937 ((boolean (*) (bfd *, char **, bfd_size_type *, const char **)) bfd_false),
2938 bfd_dont_truncate_arname, /* _truncate_arname */
2939 _bfd_xcoff_write_armap, /* _write_armap */
2940 _bfd_xcoff_read_ar_hdr, /* _read_ar_hdr */
2941 xcoff64_openr_next_archived_file, /* _openr_next_archived_file */
2942 _bfd_generic_get_elt_at_index, /* _get_elt_at_index */
2943 _bfd_xcoff_stat_arch_elt, /* _generic_stat_arch_elt */
2944 /* XCOFF archives do not have a timestamp. */
2945 bfd_true, /* _update_armap_timestamp */
2948 coff_get_symtab_upper_bound, /* _get_symtab_upper_bound */
2949 coff_get_symtab, /* _get_symtab */
2950 coff_make_empty_symbol, /* _make_empty_symbol */
2951 coff_print_symbol, /* _print_symbol */
2952 coff_get_symbol_info, /* _get_symbol_info */
2953 _bfd_xcoff_is_local_label_name, /* _bfd_is_local_label_name */
2954 coff_get_lineno, /* _get_lineno */
2955 coff_find_nearest_line, /* _find_nearest_line */
2956 coff_bfd_make_debug_symbol, /* _bfd_make_debug_symbol */
2957 _bfd_generic_read_minisymbols, /* _read_minisymbols */
2958 _bfd_generic_minisymbol_to_symbol, /* _minsymbol_to_symbol */
2961 coff_get_reloc_upper_bound, /* _get_reloc_upper_bound */
2962 coff_canonicalize_reloc, /* _cononicalize_reloc */
2963 xcoff64_reloc_type_lookup, /* _bfd_reloc_type_lookup */
2966 coff_set_arch_mach, /* _set_arch_mach */
2967 coff_set_section_contents, /* _set_section_contents */
2970 xcoff64_sizeof_headers, /* _sizeof_headers */
2971 /* _bfd_get_relocated_section_contents */
2972 bfd_generic_get_relocated_section_contents,
2973 bfd_generic_relax_section, /* _bfd_relax_section */
2974 _bfd_xcoff_bfd_link_hash_table_create,/* _bfd_link_hash_table_create */
2975 _bfd_generic_link_hash_table_free, /* _bfd_link_hash_table_free */
2976 _bfd_xcoff_bfd_link_add_symbols, /* _bfd_link_add_symbols */
2977 _bfd_generic_link_just_syms, /* _bfd_link_just_syms */
2978 _bfd_xcoff_bfd_final_link, /* _bfd_final_link */
2979 _bfd_generic_link_split_section, /* _bfd_link_split_section */
2980 bfd_generic_gc_sections, /* _bfd_gc_sections */
2981 bfd_generic_merge_sections, /* _bfd_merge_sections */
2982 bfd_generic_discard_group, /* _bfd_discard_group */
2985 /* _get_dynamic_symtab_upper_bound */
2986 _bfd_xcoff_get_dynamic_symtab_upper_bound,
2987 _bfd_xcoff_canonicalize_dynamic_symtab, /* _cononicalize_dynamic_symtab */
2988 _bfd_xcoff_get_dynamic_reloc_upper_bound,/* _get_dynamic_reloc_upper_bound */
2989 _bfd_xcoff_canonicalize_dynamic_reloc, /* _cononicalize_dynamic_reloc */
2991 /* Opposite endian version, none exists. */
2995 (void *) & bfd_xcoff_aix5_backend_data,