1 /* BFD back-end for IBM RS/6000 "XCOFF64" files.
2 Copyright 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
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 3 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., 51 Franklin Street - Fifth Floor, Boston,
22 MA 02110-1301, USA. */
28 #include "coff/internal.h"
29 #include "coff/xcoff.h"
30 #include "coff/rs6k64.h"
34 #define GET_FILEHDR_SYMPTR H_GET_64
35 #define PUT_FILEHDR_SYMPTR H_PUT_64
36 #define GET_AOUTHDR_DATA_START H_GET_64
37 #define PUT_AOUTHDR_DATA_START H_PUT_64
38 #define GET_AOUTHDR_TEXT_START H_GET_64
39 #define PUT_AOUTHDR_TEXT_START H_PUT_64
40 #define GET_AOUTHDR_TSIZE H_GET_64
41 #define PUT_AOUTHDR_TSIZE H_PUT_64
42 #define GET_AOUTHDR_DSIZE H_GET_64
43 #define PUT_AOUTHDR_DSIZE H_PUT_64
44 #define GET_AOUTHDR_BSIZE H_GET_64
45 #define PUT_AOUTHDR_BSIZE H_PUT_64
46 #define GET_AOUTHDR_ENTRY H_GET_64
47 #define PUT_AOUTHDR_ENTRY H_PUT_64
48 #define GET_SCNHDR_PADDR H_GET_64
49 #define PUT_SCNHDR_PADDR H_PUT_64
50 #define GET_SCNHDR_VADDR H_GET_64
51 #define PUT_SCNHDR_VADDR H_PUT_64
52 #define GET_SCNHDR_SIZE H_GET_64
53 #define PUT_SCNHDR_SIZE H_PUT_64
54 #define GET_SCNHDR_SCNPTR H_GET_64
55 #define PUT_SCNHDR_SCNPTR H_PUT_64
56 #define GET_SCNHDR_RELPTR H_GET_64
57 #define PUT_SCNHDR_RELPTR H_PUT_64
58 #define GET_SCNHDR_LNNOPTR H_GET_64
59 #define PUT_SCNHDR_LNNOPTR H_PUT_64
60 #define GET_SCNHDR_NRELOC H_GET_32
61 #define MAX_SCNHDR_NRELOC 0xffffffff
62 #define PUT_SCNHDR_NRELOC H_PUT_32
63 #define GET_SCNHDR_NLNNO H_GET_32
64 #define MAX_SCNHDR_NLNNO 0xffffffff
65 #define PUT_SCNHDR_NLNNO H_PUT_32
66 #define GET_RELOC_VADDR H_GET_64
67 #define PUT_RELOC_VADDR H_PUT_64
69 #define COFF_FORCE_SYMBOLS_IN_STRINGS
70 #define COFF_DEBUG_STRING_WIDE_PREFIX
73 #define COFF_ADJUST_SCNHDR_OUT_POST(ABFD, INT, EXT) \
76 memset (((SCNHDR *) EXT)->s_pad, 0, \
77 sizeof (((SCNHDR *) EXT)->s_pad)); \
81 #define NO_COFF_LINENOS
83 #define coff_SWAP_lineno_in _bfd_xcoff64_swap_lineno_in
84 #define coff_SWAP_lineno_out _bfd_xcoff64_swap_lineno_out
86 static void _bfd_xcoff64_swap_lineno_in
87 PARAMS ((bfd
*, PTR
, PTR
));
88 static unsigned int _bfd_xcoff64_swap_lineno_out
89 PARAMS ((bfd
*, PTR
, PTR
));
90 static bfd_boolean _bfd_xcoff64_put_symbol_name
91 PARAMS ((bfd
*, struct bfd_strtab_hash
*, struct internal_syment
*,
93 static bfd_boolean _bfd_xcoff64_put_ldsymbol_name
94 PARAMS ((bfd
*, struct xcoff_loader_info
*, struct internal_ldsym
*,
96 static void _bfd_xcoff64_swap_sym_in
97 PARAMS ((bfd
*, PTR
, PTR
));
98 static unsigned int _bfd_xcoff64_swap_sym_out
99 PARAMS ((bfd
*, PTR
, PTR
));
100 static void _bfd_xcoff64_swap_aux_in
101 PARAMS ((bfd
*, PTR
, int, int, int, int, PTR
));
102 static unsigned int _bfd_xcoff64_swap_aux_out
103 PARAMS ((bfd
*, PTR
, int, int, int, int, PTR
));
104 static void xcoff64_swap_reloc_in
105 PARAMS ((bfd
*, PTR
, PTR
));
106 static unsigned int xcoff64_swap_reloc_out
107 PARAMS ((bfd
*, PTR
, PTR
));
108 extern bfd_boolean _bfd_xcoff_mkobject
110 extern bfd_boolean _bfd_xcoff_copy_private_bfd_data
111 PARAMS ((bfd
*, bfd
*));
112 extern bfd_boolean _bfd_xcoff_is_local_label_name
113 PARAMS ((bfd
*, const char *));
114 extern void xcoff64_rtype2howto
115 PARAMS ((arelent
*, struct internal_reloc
*));
116 extern reloc_howto_type
* xcoff64_reloc_type_lookup
117 PARAMS ((bfd
*, bfd_reloc_code_real_type
));
118 extern bfd_boolean _bfd_xcoff_slurp_armap
120 extern PTR _bfd_xcoff_read_ar_hdr
122 extern bfd
*_bfd_xcoff_openr_next_archived_file
123 PARAMS ((bfd
*, bfd
*));
124 extern int _bfd_xcoff_stat_arch_elt
125 PARAMS ((bfd
*, struct stat
*));
126 extern bfd_boolean _bfd_xcoff_write_armap
127 PARAMS ((bfd
*, unsigned int, struct orl
*, unsigned int, int));
128 extern bfd_boolean _bfd_xcoff_write_archive_contents
130 extern int _bfd_xcoff_sizeof_headers
131 PARAMS ((bfd
*, struct bfd_link_info
*));
132 extern void _bfd_xcoff_swap_sym_in
133 PARAMS ((bfd
*, PTR
, PTR
));
134 extern unsigned int _bfd_xcoff_swap_sym_out
135 PARAMS ((bfd
*, PTR
, PTR
));
136 extern void _bfd_xcoff_swap_aux_in
137 PARAMS ((bfd
*, PTR
, int, int, int, int, PTR
));
138 extern unsigned int _bfd_xcoff_swap_aux_out
139 PARAMS ((bfd
*, PTR
, int, int, int, int, PTR
));
140 static void xcoff64_swap_ldhdr_in
141 PARAMS ((bfd
*, const PTR
, struct internal_ldhdr
*));
142 static void xcoff64_swap_ldhdr_out
143 PARAMS ((bfd
*, const struct internal_ldhdr
*, PTR d
));
144 static void xcoff64_swap_ldsym_in
145 PARAMS ((bfd
*, const PTR
, struct internal_ldsym
*));
146 static void xcoff64_swap_ldsym_out
147 PARAMS ((bfd
*, const struct internal_ldsym
*, PTR d
));
148 static void xcoff64_swap_ldrel_in
149 PARAMS ((bfd
*, const PTR
, struct internal_ldrel
*));
150 static void xcoff64_swap_ldrel_out
151 PARAMS ((bfd
*, const struct internal_ldrel
*, PTR d
));
152 static bfd_boolean xcoff64_write_object_contents
154 static bfd_boolean xcoff64_ppc_relocate_section
155 PARAMS ((bfd
*, struct bfd_link_info
*, bfd
*, asection
*, bfd_byte
*,
156 struct internal_reloc
*, struct internal_syment
*,
158 static bfd_boolean xcoff64_slurp_armap
160 static const bfd_target
*xcoff64_archive_p
162 static bfd
*xcoff64_openr_next_archived_file
163 PARAMS ((bfd
*, bfd
*));
164 static int xcoff64_sizeof_headers
165 PARAMS ((bfd
*, struct bfd_link_info
*));
166 static asection
*xcoff64_create_csect_from_smclas
167 PARAMS ((bfd
*, union internal_auxent
*, const char *));
168 static bfd_boolean xcoff64_is_lineno_count_overflow
169 PARAMS ((bfd
*, bfd_vma
));
170 static bfd_boolean xcoff64_is_reloc_count_overflow
171 PARAMS ((bfd
*, bfd_vma
));
172 static bfd_vma xcoff64_loader_symbol_offset
173 PARAMS ((bfd
*, struct internal_ldhdr
*));
174 static bfd_vma xcoff64_loader_reloc_offset
175 PARAMS ((bfd
*, struct internal_ldhdr
*));
176 static bfd_boolean xcoff64_generate_rtinit
177 PARAMS ((bfd
*, const char *, const char *, bfd_boolean
));
178 static bfd_boolean xcoff64_bad_format_hook
179 PARAMS ((bfd
*, PTR
));
181 /* Relocation functions */
182 static bfd_boolean xcoff64_reloc_type_br
183 PARAMS ((XCOFF_RELOC_FUNCTION_ARGS
));
185 bfd_boolean (*xcoff64_calculate_relocation
[XCOFF_MAX_CALCULATE_RELOCATION
])
186 PARAMS ((XCOFF_RELOC_FUNCTION_ARGS
)) =
188 xcoff_reloc_type_pos
, /* R_POS (0x00) */
189 xcoff_reloc_type_neg
, /* R_NEG (0x01) */
190 xcoff_reloc_type_rel
, /* R_REL (0x02) */
191 xcoff_reloc_type_toc
, /* R_TOC (0x03) */
192 xcoff_reloc_type_fail
, /* R_RTB (0x04) */
193 xcoff_reloc_type_toc
, /* R_GL (0x05) */
194 xcoff_reloc_type_toc
, /* R_TCL (0x06) */
195 xcoff_reloc_type_fail
, /* (0x07) */
196 xcoff_reloc_type_ba
, /* R_BA (0x08) */
197 xcoff_reloc_type_fail
, /* (0x09) */
198 xcoff64_reloc_type_br
, /* R_BR (0x0a) */
199 xcoff_reloc_type_fail
, /* (0x0b) */
200 xcoff_reloc_type_pos
, /* R_RL (0x0c) */
201 xcoff_reloc_type_pos
, /* R_RLA (0x0d) */
202 xcoff_reloc_type_fail
, /* (0x0e) */
203 xcoff_reloc_type_noop
, /* R_REF (0x0f) */
204 xcoff_reloc_type_fail
, /* (0x10) */
205 xcoff_reloc_type_fail
, /* (0x11) */
206 xcoff_reloc_type_toc
, /* R_TRL (0x12) */
207 xcoff_reloc_type_toc
, /* R_TRLA (0x13) */
208 xcoff_reloc_type_fail
, /* R_RRTBI (0x14) */
209 xcoff_reloc_type_fail
, /* R_RRTBA (0x15) */
210 xcoff_reloc_type_ba
, /* R_CAI (0x16) */
211 xcoff_reloc_type_crel
, /* R_CREL (0x17) */
212 xcoff_reloc_type_ba
, /* R_RBA (0x18) */
213 xcoff_reloc_type_ba
, /* R_RBAC (0x19) */
214 xcoff64_reloc_type_br
, /* R_RBR (0x1a) */
215 xcoff_reloc_type_ba
, /* R_RBRC (0x1b) */
218 /* coffcode.h needs these to be defined. */
219 /* Internalcoff.h and coffcode.h modify themselves based on these flags. */
221 #define RS6000COFF_C 1
223 #define SELECT_RELOC(internal, howto) \
225 internal.r_type = howto->type; \
227 ((howto->complain_on_overflow == complain_overflow_signed \
230 | (howto->bitsize - 1)); \
233 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
234 #define COFF_LONG_FILENAMES
235 #define NO_COFF_SYMBOLS
236 #define RTYPE2HOWTO(cache_ptr, dst) xcoff64_rtype2howto (cache_ptr, dst)
237 #define coff_mkobject _bfd_xcoff_mkobject
238 #define coff_bfd_copy_private_bfd_data _bfd_xcoff_copy_private_bfd_data
239 #define coff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
240 #define coff_bfd_reloc_type_lookup xcoff64_reloc_type_lookup
241 #define coff_bfd_reloc_name_lookup xcoff64_reloc_name_lookup
243 extern const bfd_target
* rs6000coff_core_p
244 PARAMS ((bfd
*abfd
));
245 extern bfd_boolean rs6000coff_core_file_matches_executable_p
246 PARAMS ((bfd
*cbfd
, bfd
*ebfd
));
247 extern char *rs6000coff_core_file_failing_command
248 PARAMS ((bfd
*abfd
));
249 extern int rs6000coff_core_file_failing_signal
250 PARAMS ((bfd
*abfd
));
251 #define CORE_FILE_P rs6000coff_core_p
252 #define coff_core_file_failing_command \
253 rs6000coff_core_file_failing_command
254 #define coff_core_file_failing_signal \
255 rs6000coff_core_file_failing_signal
256 #define coff_core_file_matches_executable_p \
257 rs6000coff_core_file_matches_executable_p
259 #define CORE_FILE_P _bfd_dummy_target
260 #define coff_core_file_failing_command \
261 _bfd_nocore_core_file_failing_command
262 #define coff_core_file_failing_signal \
263 _bfd_nocore_core_file_failing_signal
264 #define coff_core_file_matches_executable_p \
265 _bfd_nocore_core_file_matches_executable_p
267 #define coff_SWAP_sym_in _bfd_xcoff64_swap_sym_in
268 #define coff_SWAP_sym_out _bfd_xcoff64_swap_sym_out
269 #define coff_SWAP_aux_in _bfd_xcoff64_swap_aux_in
270 #define coff_SWAP_aux_out _bfd_xcoff64_swap_aux_out
271 #define coff_swap_reloc_in xcoff64_swap_reloc_in
272 #define coff_swap_reloc_out xcoff64_swap_reloc_out
273 #define NO_COFF_RELOCS
275 #ifndef bfd_pe_print_pdata
276 #define bfd_pe_print_pdata NULL
279 #include "coffcode.h"
281 /* For XCOFF64, the effective width of symndx changes depending on
282 whether we are the first entry. Sigh. */
284 _bfd_xcoff64_swap_lineno_in (abfd
, ext1
, in1
)
289 LINENO
*ext
= (LINENO
*) ext1
;
290 struct internal_lineno
*in
= (struct internal_lineno
*) in1
;
292 in
->l_lnno
= H_GET_32 (abfd
, (ext
->l_lnno
));
294 in
->l_addr
.l_symndx
= H_GET_32 (abfd
, ext
->l_addr
.l_symndx
);
296 in
->l_addr
.l_paddr
= H_GET_64 (abfd
, ext
->l_addr
.l_paddr
);
300 _bfd_xcoff64_swap_lineno_out (abfd
, inp
, outp
)
305 struct internal_lineno
*in
= (struct internal_lineno
*) inp
;
306 struct external_lineno
*ext
= (struct external_lineno
*) outp
;
308 H_PUT_32 (abfd
, in
->l_addr
.l_symndx
, ext
->l_addr
.l_symndx
);
309 H_PUT_32 (abfd
, in
->l_lnno
, (ext
->l_lnno
));
312 H_PUT_32 (abfd
, in
->l_addr
.l_symndx
, ext
->l_addr
.l_symndx
);
314 H_PUT_64 (abfd
, in
->l_addr
.l_paddr
, ext
->l_addr
.l_paddr
);
316 return bfd_coff_linesz (abfd
);
320 _bfd_xcoff64_swap_sym_in (abfd
, ext1
, in1
)
325 struct external_syment
*ext
= (struct external_syment
*) ext1
;
326 struct internal_syment
*in
= (struct internal_syment
*) in1
;
328 in
->_n
._n_n
._n_zeroes
= 0;
329 in
->_n
._n_n
._n_offset
= H_GET_32 (abfd
, ext
->e_offset
);
330 in
->n_value
= H_GET_64 (abfd
, ext
->e_value
);
331 in
->n_scnum
= H_GET_16 (abfd
, ext
->e_scnum
);
332 in
->n_type
= H_GET_16 (abfd
, ext
->e_type
);
333 in
->n_sclass
= H_GET_8 (abfd
, ext
->e_sclass
);
334 in
->n_numaux
= H_GET_8 (abfd
, ext
->e_numaux
);
338 _bfd_xcoff64_swap_sym_out (abfd
, inp
, extp
)
343 struct internal_syment
*in
= (struct internal_syment
*) inp
;
344 struct external_syment
*ext
= (struct external_syment
*) extp
;
346 H_PUT_32 (abfd
, in
->_n
._n_n
._n_offset
, ext
->e_offset
);
347 H_PUT_64 (abfd
, in
->n_value
, ext
->e_value
);
348 H_PUT_16 (abfd
, in
->n_scnum
, ext
->e_scnum
);
349 H_PUT_16 (abfd
, in
->n_type
, ext
->e_type
);
350 H_PUT_8 (abfd
, in
->n_sclass
, ext
->e_sclass
);
351 H_PUT_8 (abfd
, in
->n_numaux
, ext
->e_numaux
);
352 return bfd_coff_symesz (abfd
);
356 _bfd_xcoff64_swap_aux_in (abfd
, ext1
, type
, class, indx
, numaux
, in1
)
365 union external_auxent
*ext
= (union external_auxent
*) ext1
;
366 union internal_auxent
*in
= (union internal_auxent
*) in1
;
371 if (ext
->x_file
.x_n
.x_zeroes
[0] == 0)
373 in
->x_file
.x_n
.x_zeroes
= 0;
374 in
->x_file
.x_n
.x_offset
= H_GET_32 (abfd
, ext
->x_file
.x_n
.x_offset
);
378 memcpy (in
->x_file
.x_fname
, ext
->x_file
.x_fname
, FILNMLEN
);
382 /* RS/6000 "csect" auxents */
385 if (indx
+ 1 == numaux
)
387 bfd_signed_vma h
= 0;
390 h
= H_GET_S32 (abfd
, ext
->x_csect
.x_scnlen_hi
);
391 l
= H_GET_32 (abfd
, ext
->x_csect
.x_scnlen_lo
);
393 in
->x_csect
.x_scnlen
.l
= h
<< 32 | (l
& 0xffffffff);
395 in
->x_csect
.x_parmhash
= H_GET_32 (abfd
, ext
->x_csect
.x_parmhash
);
396 in
->x_csect
.x_snhash
= H_GET_16 (abfd
, ext
->x_csect
.x_snhash
);
397 /* We don't have to hack bitfields in x_smtyp because it's
398 defined by shifts-and-ands, which are equivalent on all
400 in
->x_csect
.x_smtyp
= H_GET_8 (abfd
, ext
->x_csect
.x_smtyp
);
401 in
->x_csect
.x_smclas
= H_GET_8 (abfd
, ext
->x_csect
.x_smclas
);
411 /* PE defines some extra fields; we zero them out for
413 in
->x_scn
.x_checksum
= 0;
414 in
->x_scn
.x_associated
= 0;
415 in
->x_scn
.x_comdat
= 0;
422 if (class == C_BLOCK
|| class == C_FCN
|| ISFCN (type
) || ISTAG (class))
424 in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
425 = H_GET_64 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
426 in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
427 = H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
431 in
->x_sym
.x_misc
.x_fsize
432 = H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_fsize
);
436 in
->x_sym
.x_misc
.x_lnsz
.x_lnno
437 = H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_lnsz
.x_lnno
);
438 in
->x_sym
.x_misc
.x_lnsz
.x_size
439 = H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_lnsz
.x_size
);
446 _bfd_xcoff64_swap_aux_out (abfd
, inp
, type
, class, indx
, numaux
, extp
)
451 int indx ATTRIBUTE_UNUSED
;
452 int numaux ATTRIBUTE_UNUSED
;
455 union internal_auxent
*in
= (union internal_auxent
*) inp
;
456 union external_auxent
*ext
= (union external_auxent
*) extp
;
458 memset ((PTR
) ext
, 0, bfd_coff_auxesz (abfd
));
462 if (in
->x_file
.x_n
.x_zeroes
== 0)
464 H_PUT_32 (abfd
, 0, ext
->x_file
.x_n
.x_zeroes
);
465 H_PUT_32 (abfd
, in
->x_file
.x_n
.x_offset
, ext
->x_file
.x_n
.x_offset
);
469 memcpy (ext
->x_file
.x_fname
, in
->x_file
.x_fname
, FILNMLEN
);
471 H_PUT_8 (abfd
, _AUX_FILE
, ext
->x_auxtype
.x_auxtype
);
474 /* RS/6000 "csect" auxents */
477 if (indx
+ 1 == numaux
)
481 temp
= in
->x_csect
.x_scnlen
.l
& 0xffffffff;
482 H_PUT_32 (abfd
, temp
, ext
->x_csect
.x_scnlen_lo
);
483 temp
= in
->x_csect
.x_scnlen
.l
>> 32;
484 H_PUT_32 (abfd
, temp
, ext
->x_csect
.x_scnlen_hi
);
485 H_PUT_32 (abfd
, in
->x_csect
.x_parmhash
, ext
->x_csect
.x_parmhash
);
486 H_PUT_16 (abfd
, in
->x_csect
.x_snhash
, ext
->x_csect
.x_snhash
);
487 /* We don't have to hack bitfields in x_smtyp because it's
488 defined by shifts-and-ands, which are equivalent on all
490 H_PUT_8 (abfd
, in
->x_csect
.x_smtyp
, ext
->x_csect
.x_smtyp
);
491 H_PUT_8 (abfd
, in
->x_csect
.x_smclas
, ext
->x_csect
.x_smclas
);
492 H_PUT_8 (abfd
, _AUX_CSECT
, ext
->x_auxtype
.x_auxtype
);
507 if (class == C_BLOCK
|| class == C_FCN
|| ISFCN (type
) || ISTAG (class))
509 H_PUT_64 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
,
510 ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
511 H_PUT_8 (abfd
, _AUX_FCN
,
512 ext
->x_auxtype
.x_auxtype
);
513 H_PUT_32 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
514 ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
518 H_PUT_32 (abfd
, in
->x_sym
.x_misc
.x_fsize
,
519 ext
->x_sym
.x_fcnary
.x_fcn
.x_fsize
);
523 H_PUT_32 (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_lnno
,
524 ext
->x_sym
.x_fcnary
.x_lnsz
.x_lnno
);
525 H_PUT_16 (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_size
,
526 ext
->x_sym
.x_fcnary
.x_lnsz
.x_size
);
531 return bfd_coff_auxesz (abfd
);
535 _bfd_xcoff64_put_symbol_name (abfd
, strtab
, sym
, name
)
537 struct bfd_strtab_hash
*strtab
;
538 struct internal_syment
*sym
;
546 if ((abfd
->flags
& BFD_TRADITIONAL_FORMAT
) != 0)
549 indx
= _bfd_stringtab_add (strtab
, name
, hash
, FALSE
);
551 if (indx
== (bfd_size_type
) -1)
554 sym
->_n
._n_n
._n_zeroes
= 0;
555 sym
->_n
._n_n
._n_offset
= STRING_SIZE_SIZE
+ indx
;
561 _bfd_xcoff64_put_ldsymbol_name (abfd
, ldinfo
, ldsym
, name
)
562 bfd
*abfd ATTRIBUTE_UNUSED
;
563 struct xcoff_loader_info
*ldinfo
;
564 struct internal_ldsym
*ldsym
;
570 if (ldinfo
->string_size
+ len
+ 3 > ldinfo
->string_alc
)
572 bfd_size_type newalc
;
575 newalc
= ldinfo
->string_alc
* 2;
578 while (ldinfo
->string_size
+ len
+ 3 > newalc
)
581 newstrings
= bfd_realloc (ldinfo
->strings
, newalc
);
582 if (newstrings
== NULL
)
584 ldinfo
->failed
= TRUE
;
587 ldinfo
->string_alc
= newalc
;
588 ldinfo
->strings
= newstrings
;
591 bfd_put_16 (ldinfo
->output_bfd
, (bfd_vma
) (len
+ 1),
592 ldinfo
->strings
+ ldinfo
->string_size
);
593 strcpy (ldinfo
->strings
+ ldinfo
->string_size
+ 2, name
);
594 ldsym
->_l
._l_l
._l_zeroes
= 0;
595 ldsym
->_l
._l_l
._l_offset
= ldinfo
->string_size
+ 2;
596 ldinfo
->string_size
+= len
+ 3;
601 /* Routines to swap information in the XCOFF .loader section. If we
602 ever need to write an XCOFF loader, this stuff will need to be
603 moved to another file shared by the linker (which XCOFF calls the
604 ``binder'') and the loader. */
606 /* Swap in the ldhdr structure. */
609 xcoff64_swap_ldhdr_in (abfd
, s
, dst
)
612 struct internal_ldhdr
*dst
;
614 const struct external_ldhdr
*src
= (const struct external_ldhdr
*) s
;
616 dst
->l_version
= bfd_get_32 (abfd
, src
->l_version
);
617 dst
->l_nsyms
= bfd_get_32 (abfd
, src
->l_nsyms
);
618 dst
->l_nreloc
= bfd_get_32 (abfd
, src
->l_nreloc
);
619 dst
->l_istlen
= bfd_get_32 (abfd
, src
->l_istlen
);
620 dst
->l_nimpid
= bfd_get_32 (abfd
, src
->l_nimpid
);
621 dst
->l_stlen
= bfd_get_32 (abfd
, src
->l_stlen
);
622 dst
->l_impoff
= bfd_get_64 (abfd
, src
->l_impoff
);
623 dst
->l_stoff
= bfd_get_64 (abfd
, src
->l_stoff
);
624 dst
->l_symoff
= bfd_get_64 (abfd
, src
->l_symoff
);
625 dst
->l_rldoff
= bfd_get_64 (abfd
, src
->l_rldoff
);
628 /* Swap out the ldhdr structure. */
631 xcoff64_swap_ldhdr_out (abfd
, src
, d
)
633 const struct internal_ldhdr
*src
;
636 struct external_ldhdr
*dst
= (struct external_ldhdr
*) d
;
638 bfd_put_32 (abfd
, (bfd_vma
) src
->l_version
, dst
->l_version
);
639 bfd_put_32 (abfd
, src
->l_nsyms
, dst
->l_nsyms
);
640 bfd_put_32 (abfd
, src
->l_nreloc
, dst
->l_nreloc
);
641 bfd_put_32 (abfd
, src
->l_istlen
, dst
->l_istlen
);
642 bfd_put_32 (abfd
, src
->l_nimpid
, dst
->l_nimpid
);
643 bfd_put_32 (abfd
, src
->l_stlen
, dst
->l_stlen
);
644 bfd_put_64 (abfd
, src
->l_impoff
, dst
->l_impoff
);
645 bfd_put_64 (abfd
, src
->l_stoff
, dst
->l_stoff
);
646 bfd_put_64 (abfd
, src
->l_symoff
, dst
->l_symoff
);
647 bfd_put_64 (abfd
, src
->l_rldoff
, dst
->l_rldoff
);
650 /* Swap in the ldsym structure. */
653 xcoff64_swap_ldsym_in (abfd
, s
, dst
)
656 struct internal_ldsym
*dst
;
658 const struct external_ldsym
*src
= (const struct external_ldsym
*) s
;
659 /* XCOFF64 does not use l_zeroes like XCOFF32
660 Set the internal l_zeroes to 0 so the common 32/64 code uses l_value
661 as an offset into the loader symbol table. */
662 dst
->_l
._l_l
._l_zeroes
= 0;
663 dst
->_l
._l_l
._l_offset
= bfd_get_32 (abfd
, src
->l_offset
);
664 dst
->l_value
= bfd_get_64 (abfd
, src
->l_value
);
665 dst
->l_scnum
= bfd_get_16 (abfd
, src
->l_scnum
);
666 dst
->l_smtype
= bfd_get_8 (abfd
, src
->l_smtype
);
667 dst
->l_smclas
= bfd_get_8 (abfd
, src
->l_smclas
);
668 dst
->l_ifile
= bfd_get_32 (abfd
, src
->l_ifile
);
669 dst
->l_parm
= bfd_get_32 (abfd
, src
->l_parm
);
672 /* Swap out the ldsym structure. */
675 xcoff64_swap_ldsym_out (abfd
, src
, d
)
677 const struct internal_ldsym
*src
;
680 struct external_ldsym
*dst
= (struct external_ldsym
*) d
;
682 bfd_put_64 (abfd
, src
->l_value
, dst
->l_value
);
683 bfd_put_32 (abfd
, (bfd_vma
) src
->_l
._l_l
._l_offset
, dst
->l_offset
);
684 bfd_put_16 (abfd
, (bfd_vma
) src
->l_scnum
, dst
->l_scnum
);
685 bfd_put_8 (abfd
, src
->l_smtype
, dst
->l_smtype
);
686 bfd_put_8 (abfd
, src
->l_smclas
, dst
->l_smclas
);
687 bfd_put_32 (abfd
, src
->l_ifile
, dst
->l_ifile
);
688 bfd_put_32 (abfd
, src
->l_parm
, dst
->l_parm
);
692 xcoff64_swap_reloc_in (abfd
, s
, d
)
697 struct external_reloc
*src
= (struct external_reloc
*) s
;
698 struct internal_reloc
*dst
= (struct internal_reloc
*) d
;
700 memset (dst
, 0, sizeof (struct internal_reloc
));
702 dst
->r_vaddr
= bfd_get_64 (abfd
, src
->r_vaddr
);
703 dst
->r_symndx
= bfd_get_32 (abfd
, src
->r_symndx
);
704 dst
->r_size
= bfd_get_8 (abfd
, src
->r_size
);
705 dst
->r_type
= bfd_get_8 (abfd
, src
->r_type
);
709 xcoff64_swap_reloc_out (abfd
, s
, d
)
714 struct internal_reloc
*src
= (struct internal_reloc
*) s
;
715 struct external_reloc
*dst
= (struct external_reloc
*) d
;
717 bfd_put_64 (abfd
, src
->r_vaddr
, dst
->r_vaddr
);
718 bfd_put_32 (abfd
, src
->r_symndx
, dst
->r_symndx
);
719 bfd_put_8 (abfd
, src
->r_type
, dst
->r_type
);
720 bfd_put_8 (abfd
, src
->r_size
, dst
->r_size
);
722 return bfd_coff_relsz (abfd
);
725 /* Swap in the ldrel structure. */
728 xcoff64_swap_ldrel_in (abfd
, s
, dst
)
731 struct internal_ldrel
*dst
;
733 const struct external_ldrel
*src
= (const struct external_ldrel
*) s
;
735 dst
->l_vaddr
= bfd_get_64 (abfd
, src
->l_vaddr
);
736 dst
->l_symndx
= bfd_get_32 (abfd
, src
->l_symndx
);
737 dst
->l_rtype
= bfd_get_16 (abfd
, src
->l_rtype
);
738 dst
->l_rsecnm
= bfd_get_16 (abfd
, src
->l_rsecnm
);
741 /* Swap out the ldrel structure. */
744 xcoff64_swap_ldrel_out (abfd
, src
, d
)
746 const struct internal_ldrel
*src
;
749 struct external_ldrel
*dst
= (struct external_ldrel
*) d
;
751 bfd_put_64 (abfd
, src
->l_vaddr
, dst
->l_vaddr
);
752 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rtype
, dst
->l_rtype
);
753 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rsecnm
, dst
->l_rsecnm
);
754 bfd_put_32 (abfd
, src
->l_symndx
, dst
->l_symndx
);
758 xcoff64_write_object_contents (abfd
)
762 bfd_boolean hasrelocs
= FALSE
;
763 bfd_boolean haslinno
= FALSE
;
766 file_ptr lineno_base
;
768 unsigned long reloc_size
= 0;
769 unsigned long lnno_size
= 0;
770 asection
*text_sec
= ((void *) 0);
771 asection
*data_sec
= ((void *) 0);
772 asection
*bss_sec
= ((void *) 0);
773 struct internal_filehdr internal_f
;
774 struct internal_aouthdr internal_a
;
776 bfd_set_error (bfd_error_system_call
);
778 if (! abfd
->output_has_begun
)
780 if (! bfd_coff_compute_section_file_positions (abfd
))
784 /* Work out the size of the reloc and linno areas. */
785 reloc_base
= obj_relocbase (abfd
);
787 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
788 reloc_size
+= current
->reloc_count
* bfd_coff_relsz (abfd
);
790 lineno_base
= reloc_base
+ reloc_size
;
792 /* Make a pass through the symbol table to count line number entries and
793 put them into the correct asections. */
794 lnno_size
= coff_count_linenumbers (abfd
) * bfd_coff_linesz (abfd
);
796 sym_base
= lineno_base
+ lnno_size
;
798 /* Indicate in each section->line_filepos its actual file address. */
799 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
801 if (current
->lineno_count
)
803 current
->line_filepos
= lineno_base
;
804 current
->moving_line_filepos
= lineno_base
;
805 lineno_base
+= current
->lineno_count
* bfd_coff_linesz (abfd
);
809 current
->line_filepos
= 0;
812 if (current
->reloc_count
)
814 current
->rel_filepos
= reloc_base
;
815 reloc_base
+= current
->reloc_count
* bfd_coff_relsz (abfd
);
819 current
->rel_filepos
= 0;
823 if ((abfd
->flags
& EXEC_P
) != 0)
825 scn_base
= bfd_coff_filhsz (abfd
) + bfd_coff_aoutsz (abfd
);
826 internal_f
.f_opthdr
= bfd_coff_aoutsz (abfd
);
830 scn_base
= bfd_coff_filhsz (abfd
);
831 internal_f
.f_opthdr
= 0;
834 internal_f
.f_nscns
= 0;
836 if (bfd_seek (abfd
, scn_base
, SEEK_SET
) != 0)
839 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
841 struct internal_scnhdr section
;
842 struct external_scnhdr buff
;
843 bfd_size_type amount
;
845 internal_f
.f_nscns
++;
847 strncpy (section
.s_name
, current
->name
, SCNNMLEN
);
849 section
.s_vaddr
= current
->vma
;
850 section
.s_paddr
= current
->lma
;
851 section
.s_size
= current
->size
;
853 /* If this section has no size or is unloadable then the scnptr
855 if (current
->size
== 0
856 || (current
->flags
& (SEC_LOAD
| SEC_HAS_CONTENTS
)) == 0)
858 section
.s_scnptr
= 0;
862 section
.s_scnptr
= current
->filepos
;
865 section
.s_relptr
= current
->rel_filepos
;
866 section
.s_lnnoptr
= current
->line_filepos
;
867 section
.s_nreloc
= current
->reloc_count
;
869 section
.s_nlnno
= current
->lineno_count
;
870 if (current
->reloc_count
!= 0)
872 if (current
->lineno_count
!= 0)
875 section
.s_flags
= sec_to_styp_flags (current
->name
, current
->flags
);
877 if (!strcmp (current
->name
, _TEXT
))
881 else if (!strcmp (current
->name
, _DATA
))
885 else if (!strcmp (current
->name
, _BSS
))
890 amount
= bfd_coff_scnhsz (abfd
);
891 if (bfd_coff_swap_scnhdr_out (abfd
, §ion
, &buff
) == 0
892 || bfd_bwrite ((PTR
) (&buff
), amount
, abfd
) != amount
)
896 internal_f
.f_timdat
= 0;
898 internal_f
.f_flags
= 0;
901 internal_f
.f_flags
|= F_RELFLG
;
903 internal_f
.f_flags
|= F_LNNO
;
904 if (abfd
->flags
& EXEC_P
)
905 internal_f
.f_flags
|= F_EXEC
;
907 /* FIXME: this is wrong for PPC_PE! */
908 if (bfd_little_endian (abfd
))
909 internal_f
.f_flags
|= F_AR32WR
;
911 internal_f
.f_flags
|= F_AR32W
;
913 if ((abfd
->flags
& DYNAMIC
) != 0)
914 internal_f
.f_flags
|= F_SHROBJ
;
915 if (bfd_get_section_by_name (abfd
, _LOADER
) != NULL
)
916 internal_f
.f_flags
|= F_DYNLOAD
;
918 memset (&internal_a
, 0, sizeof internal_a
);
920 internal_f
.f_magic
= bfd_xcoff_magic_number (abfd
);
921 internal_a
.magic
= (abfd
->flags
& D_PAGED
922 ? RS6K_AOUTHDR_ZMAGIC
923 : (abfd
->flags
& WP_TEXT
924 ? RS6K_AOUTHDR_NMAGIC
925 : RS6K_AOUTHDR_OMAGIC
));
927 /* FIXME: Does anybody ever set this to another value? */
928 internal_a
.vstamp
= 0;
930 /* Now should write relocs, strings, syms. */
931 obj_sym_filepos (abfd
) = sym_base
;
933 internal_f
.f_symptr
= 0;
934 internal_f
.f_nsyms
= 0;
936 /* If bfd_get_symcount (abfd) != 0, then we are not using the COFF
937 backend linker, and obj_raw_syment_count is not valid until after
938 coff_write_symbols is called. */
939 if (bfd_get_symcount (abfd
) != 0)
943 if (!coff_renumber_symbols (abfd
, &firstundef
))
945 coff_mangle_symbols (abfd
);
946 if (! coff_write_symbols (abfd
))
948 if (! coff_write_linenumbers (abfd
))
950 if (! coff_write_relocs (abfd
, firstundef
))
953 internal_f
.f_symptr
= sym_base
;
954 internal_f
.f_nsyms
= bfd_get_symcount (abfd
);
956 else if (obj_raw_syment_count (abfd
) != 0)
958 internal_f
.f_symptr
= sym_base
;
960 /* AIX appears to require that F_RELFLG not be set if there are
961 local symbols but no relocations. */
962 internal_f
.f_flags
&=~ F_RELFLG
;
966 internal_f
.f_flags
|= F_LSYMS
;
971 internal_a
.tsize
= text_sec
->size
;
972 internal_a
.text_start
= internal_a
.tsize
? text_sec
->vma
: 0;
977 internal_a
.dsize
= data_sec
->size
;
978 internal_a
.data_start
= internal_a
.dsize
? data_sec
->vma
: 0;
983 internal_a
.bsize
= bss_sec
->size
;
984 if (internal_a
.bsize
&& bss_sec
->vma
< internal_a
.data_start
)
985 internal_a
.data_start
= bss_sec
->vma
;
988 internal_a
.entry
= bfd_get_start_address (abfd
);
989 internal_f
.f_nsyms
= obj_raw_syment_count (abfd
);
991 if (xcoff_data (abfd
)->full_aouthdr
)
994 asection
*loader_sec
;
996 internal_a
.vstamp
= 1;
998 internal_a
.o_snentry
= xcoff_data (abfd
)->snentry
;
999 if (internal_a
.o_snentry
== 0)
1000 internal_a
.entry
= (bfd_vma
) -1;
1002 if (text_sec
!= NULL
)
1004 internal_a
.o_sntext
= text_sec
->target_index
;
1005 internal_a
.o_algntext
= bfd_get_section_alignment (abfd
, text_sec
);
1009 internal_a
.o_sntext
= 0;
1010 internal_a
.o_algntext
= 0;
1013 if (data_sec
!= NULL
)
1015 internal_a
.o_sndata
= data_sec
->target_index
;
1016 internal_a
.o_algndata
= bfd_get_section_alignment (abfd
, data_sec
);
1020 internal_a
.o_sndata
= 0;
1021 internal_a
.o_algndata
= 0;
1024 loader_sec
= bfd_get_section_by_name (abfd
, ".loader");
1025 if (loader_sec
!= NULL
)
1026 internal_a
.o_snloader
= loader_sec
->target_index
;
1028 internal_a
.o_snloader
= 0;
1029 if (bss_sec
!= NULL
)
1030 internal_a
.o_snbss
= bss_sec
->target_index
;
1032 internal_a
.o_snbss
= 0;
1034 toc
= xcoff_data (abfd
)->toc
;
1035 internal_a
.o_toc
= toc
;
1036 internal_a
.o_sntoc
= xcoff_data (abfd
)->sntoc
;
1038 internal_a
.o_modtype
= xcoff_data (abfd
)->modtype
;
1039 if (xcoff_data (abfd
)->cputype
!= -1)
1040 internal_a
.o_cputype
= xcoff_data (abfd
)->cputype
;
1043 switch (bfd_get_arch (abfd
))
1045 case bfd_arch_rs6000
:
1046 internal_a
.o_cputype
= 4;
1048 case bfd_arch_powerpc
:
1049 if (bfd_get_mach (abfd
) == bfd_mach_ppc
)
1050 internal_a
.o_cputype
= 3;
1051 else if (bfd_get_mach (abfd
) == bfd_mach_ppc_620
)
1052 internal_a
.o_cputype
= 2;
1054 internal_a
.o_cputype
= 1;
1060 internal_a
.o_maxstack
= xcoff_data (abfd
)->maxstack
;
1061 internal_a
.o_maxdata
= xcoff_data (abfd
)->maxdata
;
1064 if (bfd_seek (abfd
, (file_ptr
) 0, 0) != 0)
1069 bfd_size_type amount
= bfd_coff_filhsz (abfd
);
1071 buff
= bfd_malloc (amount
);
1075 bfd_coff_swap_filehdr_out (abfd
, (PTR
) &internal_f
, (PTR
) buff
);
1076 amount
= bfd_bwrite ((PTR
) buff
, amount
, abfd
);
1080 if (amount
!= bfd_coff_filhsz (abfd
))
1084 if (abfd
->flags
& EXEC_P
)
1087 bfd_size_type amount
= bfd_coff_aoutsz (abfd
);
1089 buff
= bfd_malloc (amount
);
1093 bfd_coff_swap_aouthdr_out (abfd
, (PTR
) &internal_a
, (PTR
) buff
);
1094 amount
= bfd_bwrite ((PTR
) buff
, amount
, abfd
);
1098 if (amount
!= bfd_coff_aoutsz (abfd
))
1106 xcoff64_reloc_type_br (input_bfd
, input_section
, output_bfd
, rel
, sym
, howto
,
1107 val
, addend
, relocation
, contents
)
1109 asection
*input_section
;
1110 bfd
*output_bfd ATTRIBUTE_UNUSED
;
1111 struct internal_reloc
*rel
;
1112 struct internal_syment
*sym ATTRIBUTE_UNUSED
;
1113 struct reloc_howto_struct
*howto
;
1116 bfd_vma
*relocation
;
1119 struct xcoff_link_hash_entry
*h
;
1120 bfd_vma section_offset
;
1122 if (0 > rel
->r_symndx
)
1125 h
= obj_xcoff_sym_hashes (input_bfd
)[rel
->r_symndx
];
1126 section_offset
= rel
->r_vaddr
- input_section
->vma
;
1128 /* If we see an R_BR or R_RBR reloc which is jumping to global
1129 linkage code, and it is followed by an appropriate cror nop
1130 instruction, we replace the cror with ld r2,40(r1). This
1131 restores the TOC after the glink code. Contrariwise, if the
1132 call is followed by a ld r2,40(r1), but the call is not
1133 going to global linkage code, we can replace the load with a
1136 && bfd_link_hash_defined
== h
->root
.type
1137 && section_offset
+ 8 <= input_section
->size
)
1142 pnext
= contents
+ section_offset
+ 4;
1143 next
= bfd_get_32 (input_bfd
, pnext
);
1145 /* The _ptrgl function is magic. It is used by the AIX compiler to call
1146 a function through a pointer. */
1147 if (h
->smclas
== XMC_GL
|| strcmp (h
->root
.root
.string
, "._ptrgl") == 0)
1149 if (next
== 0x4def7b82 /* cror 15,15,15 */
1150 || next
== 0x4ffffb82 /* cror 31,31,31 */
1151 || next
== 0x60000000) /* ori r0,r0,0 */
1152 bfd_put_32 (input_bfd
, 0xe8410028, pnext
); /* ld r2,40(r1) */
1156 if (next
== 0xe8410028) /* ld r2,40(r1) */
1157 bfd_put_32 (input_bfd
, 0x60000000, pnext
); /* ori r0,r0,0 */
1160 else if (NULL
!= h
&& bfd_link_hash_undefined
== h
->root
.type
)
1162 /* Normally, this relocation is against a defined symbol. In the
1163 case where this is a partial link and the output section offset
1164 is greater than 2^25, the linker will return an invalid error
1165 message that the relocation has been truncated. Yes it has been
1166 truncated but no it not important. For this case, disable the
1167 overflow checking. */
1168 howto
->complain_on_overflow
= complain_overflow_dont
;
1171 /* The original PC-relative relocation is biased by -r_vaddr, so adding
1172 the value below will give the absolute target address. */
1173 *relocation
= val
+ addend
+ rel
->r_vaddr
;
1175 howto
->src_mask
&= ~3;
1176 howto
->dst_mask
= howto
->src_mask
;
1179 && h
->root
.type
== bfd_link_hash_defined
1180 && bfd_is_abs_section (h
->root
.u
.def
.section
)
1181 && section_offset
+ 4 <= input_section
->size
)
1186 /* Turn the relative branch into an absolute one by setting the
1188 ptr
= contents
+ section_offset
;
1189 insn
= bfd_get_32 (input_bfd
, ptr
);
1191 bfd_put_32 (input_bfd
, insn
, ptr
);
1193 /* Make the howto absolute too. */
1194 howto
->pc_relative
= FALSE
;
1195 howto
->complain_on_overflow
= complain_overflow_bitfield
;
1199 /* Use a PC-relative howto and subtract the instruction's address
1200 from the target address we calculated above. */
1201 howto
->pc_relative
= TRUE
;
1202 *relocation
-= (input_section
->output_section
->vma
1203 + input_section
->output_offset
1209 /* This is the relocation function for the PowerPC64.
1210 See xcoff_ppc_relocation_section for more information. */
1213 xcoff64_ppc_relocate_section (output_bfd
, info
, input_bfd
,
1214 input_section
, contents
, relocs
, syms
,
1217 struct bfd_link_info
*info
;
1219 asection
*input_section
;
1221 struct internal_reloc
*relocs
;
1222 struct internal_syment
*syms
;
1223 asection
**sections
;
1225 struct internal_reloc
*rel
;
1226 struct internal_reloc
*relend
;
1229 relend
= rel
+ input_section
->reloc_count
;
1230 for (; rel
< relend
; rel
++)
1233 struct xcoff_link_hash_entry
*h
;
1234 struct internal_syment
*sym
;
1237 struct reloc_howto_struct howto
;
1239 bfd_vma value_to_relocate
;
1243 /* Relocation type R_REF is a special relocation type which is
1244 merely used to prevent garbage collection from occurring for
1245 the csect including the symbol which it references. */
1246 if (rel
->r_type
== R_REF
)
1250 howto
.type
= rel
->r_type
;
1251 howto
.rightshift
= 0;
1252 howto
.bitsize
= (rel
->r_size
& 0x3f) + 1;
1253 howto
.size
= howto
.bitsize
> 16 ? (howto
.bitsize
> 32 ? 4 : 2) : 1;
1254 howto
.pc_relative
= FALSE
;
1256 howto
.complain_on_overflow
= (rel
->r_size
& 0x80
1257 ? complain_overflow_signed
1258 : complain_overflow_bitfield
);
1259 howto
.special_function
= NULL
;
1260 howto
.name
= "internal";
1261 howto
.partial_inplace
= TRUE
;
1262 howto
.src_mask
= howto
.dst_mask
= N_ONES (howto
.bitsize
);
1263 howto
.pcrel_offset
= FALSE
;
1270 symndx
= rel
->r_symndx
;
1276 h
= obj_xcoff_sym_hashes (input_bfd
)[symndx
];
1277 sym
= syms
+ symndx
;
1278 addend
= - sym
->n_value
;
1282 sec
= sections
[symndx
];
1283 /* Hack to make sure we use the right TOC anchor value
1284 if this reloc is against the TOC anchor. */
1285 if (sec
->name
[3] == '0'
1286 && strcmp (sec
->name
, ".tc0") == 0)
1287 val
= xcoff_data (output_bfd
)->toc
;
1289 val
= (sec
->output_section
->vma
1290 + sec
->output_offset
1296 if (info
->unresolved_syms_in_objects
!= RM_IGNORE
1297 && (h
->flags
& XCOFF_WAS_UNDEFINED
) != 0)
1299 if (! ((*info
->callbacks
->undefined_symbol
)
1300 (info
, h
->root
.root
.string
,
1301 input_bfd
, input_section
,
1302 rel
->r_vaddr
- input_section
->vma
,
1303 (info
->unresolved_syms_in_objects
1304 == RM_GENERATE_ERROR
))))
1307 if (h
->root
.type
== bfd_link_hash_defined
1308 || h
->root
.type
== bfd_link_hash_defweak
)
1310 sec
= h
->root
.u
.def
.section
;
1311 val
= (h
->root
.u
.def
.value
1312 + sec
->output_section
->vma
1313 + sec
->output_offset
);
1315 else if (h
->root
.type
== bfd_link_hash_common
)
1317 sec
= h
->root
.u
.c
.p
->section
;
1318 val
= (sec
->output_section
->vma
1319 + sec
->output_offset
);
1323 BFD_ASSERT (info
->relocatable
1324 || (h
->flags
& XCOFF_DEF_DYNAMIC
) != 0
1325 || (h
->flags
& XCOFF_IMPORT
) != 0);
1330 if (rel
->r_type
>= XCOFF_MAX_CALCULATE_RELOCATION
1331 || !((*xcoff64_calculate_relocation
[rel
->r_type
])
1332 (input_bfd
, input_section
, output_bfd
, rel
, sym
, &howto
, val
,
1333 addend
, &relocation
, contents
)))
1337 address
= rel
->r_vaddr
- input_section
->vma
;
1338 location
= contents
+ address
;
1340 if (address
> input_section
->size
)
1343 /* Get the value we are going to relocate. */
1344 if (1 == howto
.size
)
1345 value_to_relocate
= bfd_get_16 (input_bfd
, location
);
1346 else if (2 == howto
.size
)
1347 value_to_relocate
= bfd_get_32 (input_bfd
, location
);
1349 value_to_relocate
= bfd_get_64 (input_bfd
, location
);
1353 FIXME: We may drop bits during the addition
1354 which we don't check for. We must either check at every single
1355 operation, which would be tedious, or we must do the computations
1356 in a type larger than bfd_vma, which would be inefficient. */
1358 if ((unsigned int) howto
.complain_on_overflow
1359 >= XCOFF_MAX_COMPLAIN_OVERFLOW
)
1362 if (((*xcoff_complain_overflow
[howto
.complain_on_overflow
])
1363 (input_bfd
, value_to_relocate
, relocation
, &howto
)))
1366 char buf
[SYMNMLEN
+ 1];
1367 char reloc_type_name
[10];
1379 name
= _bfd_coff_internal_syment_name (input_bfd
, sym
, buf
);
1383 sprintf (reloc_type_name
, "0x%02x", rel
->r_type
);
1385 if (! ((*info
->callbacks
->reloc_overflow
)
1386 (info
, (h
? &h
->root
: NULL
), name
, reloc_type_name
,
1387 (bfd_vma
) 0, input_bfd
, input_section
,
1388 rel
->r_vaddr
- input_section
->vma
)))
1392 /* Add RELOCATION to the right bits of VALUE_TO_RELOCATE. */
1393 value_to_relocate
= ((value_to_relocate
& ~howto
.dst_mask
)
1394 | (((value_to_relocate
& howto
.src_mask
)
1395 + relocation
) & howto
.dst_mask
));
1397 /* Put the value back in the object file. */
1398 if (1 == howto
.size
)
1399 bfd_put_16 (input_bfd
, value_to_relocate
, location
);
1400 else if (2 == howto
.size
)
1401 bfd_put_32 (input_bfd
, value_to_relocate
, location
);
1403 bfd_put_64 (input_bfd
, value_to_relocate
, location
);
1410 /* The XCOFF reloc table. Actually, XCOFF relocations specify the
1411 bitsize and whether they are signed or not, along with a
1412 conventional type. This table is for the types, which are used for
1413 different algorithms for putting in the reloc. Many of these
1414 relocs need special_function entries, which I have not written. */
1416 reloc_howto_type xcoff64_howto_table
[] =
1418 /* Standard 64 bit relocation. */
1419 HOWTO (R_POS
, /* type */
1421 4, /* size (0 = byte, 1 = short, 2 = long) */
1423 FALSE
, /* pc_relative */
1425 complain_overflow_bitfield
, /* complain_on_overflow */
1426 0, /* special_function */
1427 "R_POS_64", /* name */
1428 TRUE
, /* partial_inplace */
1429 MINUS_ONE
, /* src_mask */
1430 MINUS_ONE
, /* dst_mask */
1431 FALSE
), /* pcrel_offset */
1433 /* 64 bit relocation, but store negative value. */
1434 HOWTO (R_NEG
, /* type */
1436 -4, /* size (0 = byte, 1 = short, 2 = long) */
1438 FALSE
, /* pc_relative */
1440 complain_overflow_bitfield
, /* complain_on_overflow */
1441 0, /* special_function */
1443 TRUE
, /* partial_inplace */
1444 MINUS_ONE
, /* src_mask */
1445 MINUS_ONE
, /* dst_mask */
1446 FALSE
), /* pcrel_offset */
1448 /* 32 bit PC relative relocation. */
1449 HOWTO (R_REL
, /* type */
1451 2, /* size (0 = byte, 1 = short, 2 = long) */
1453 TRUE
, /* pc_relative */
1455 complain_overflow_signed
, /* complain_on_overflow */
1456 0, /* special_function */
1458 TRUE
, /* partial_inplace */
1459 0xffffffff, /* src_mask */
1460 0xffffffff, /* dst_mask */
1461 FALSE
), /* pcrel_offset */
1463 /* 16 bit TOC relative relocation. */
1464 HOWTO (R_TOC
, /* type */
1466 1, /* size (0 = byte, 1 = short, 2 = long) */
1468 FALSE
, /* pc_relative */
1470 complain_overflow_bitfield
, /* complain_on_overflow */
1471 0, /* special_function */
1473 TRUE
, /* partial_inplace */
1474 0xffff, /* src_mask */
1475 0xffff, /* dst_mask */
1476 FALSE
), /* pcrel_offset */
1478 /* I don't really know what this is. */
1479 HOWTO (R_RTB
, /* type */
1481 2, /* size (0 = byte, 1 = short, 2 = long) */
1483 FALSE
, /* pc_relative */
1485 complain_overflow_bitfield
, /* complain_on_overflow */
1486 0, /* special_function */
1488 TRUE
, /* partial_inplace */
1489 0xffffffff, /* src_mask */
1490 0xffffffff, /* dst_mask */
1491 FALSE
), /* pcrel_offset */
1493 /* External TOC relative symbol. */
1494 HOWTO (R_GL
, /* type */
1496 1, /* size (0 = byte, 1 = short, 2 = long) */
1498 FALSE
, /* pc_relative */
1500 complain_overflow_bitfield
, /* complain_on_overflow */
1501 0, /* special_function */
1503 TRUE
, /* partial_inplace */
1504 0xffff, /* src_mask */
1505 0xffff, /* dst_mask */
1506 FALSE
), /* pcrel_offset */
1508 /* Local TOC relative symbol. */
1509 HOWTO (R_TCL
, /* type */
1511 1, /* size (0 = byte, 1 = short, 2 = long) */
1513 FALSE
, /* pc_relative */
1515 complain_overflow_bitfield
, /* complain_on_overflow */
1516 0, /* special_function */
1518 TRUE
, /* partial_inplace */
1519 0xffff, /* src_mask */
1520 0xffff, /* dst_mask */
1521 FALSE
), /* pcrel_offset */
1525 /* Non modifiable absolute branch. */
1526 HOWTO (R_BA
, /* type */
1528 2, /* size (0 = byte, 1 = short, 2 = long) */
1530 FALSE
, /* pc_relative */
1532 complain_overflow_bitfield
, /* complain_on_overflow */
1533 0, /* special_function */
1534 "R_BA_26", /* name */
1535 TRUE
, /* partial_inplace */
1536 0x03fffffc, /* src_mask */
1537 0x03fffffc, /* dst_mask */
1538 FALSE
), /* pcrel_offset */
1542 /* Non modifiable relative branch. */
1543 HOWTO (R_BR
, /* type */
1545 2, /* size (0 = byte, 1 = short, 2 = long) */
1547 TRUE
, /* pc_relative */
1549 complain_overflow_signed
, /* complain_on_overflow */
1550 0, /* special_function */
1552 TRUE
, /* partial_inplace */
1553 0x03fffffc, /* src_mask */
1554 0x03fffffc, /* dst_mask */
1555 FALSE
), /* pcrel_offset */
1559 /* Indirect load. */
1560 HOWTO (R_RL
, /* type */
1562 1, /* size (0 = byte, 1 = short, 2 = long) */
1564 FALSE
, /* pc_relative */
1566 complain_overflow_bitfield
, /* complain_on_overflow */
1567 0, /* special_function */
1569 TRUE
, /* partial_inplace */
1570 0xffff, /* src_mask */
1571 0xffff, /* dst_mask */
1572 FALSE
), /* pcrel_offset */
1575 HOWTO (R_RLA
, /* type */
1577 1, /* size (0 = byte, 1 = short, 2 = long) */
1579 FALSE
, /* pc_relative */
1581 complain_overflow_bitfield
, /* complain_on_overflow */
1582 0, /* special_function */
1584 TRUE
, /* partial_inplace */
1585 0xffff, /* src_mask */
1586 0xffff, /* dst_mask */
1587 FALSE
), /* pcrel_offset */
1591 /* Non-relocating reference. */
1592 HOWTO (R_REF
, /* type */
1594 2, /* size (0 = byte, 1 = short, 2 = long) */
1596 FALSE
, /* pc_relative */
1598 complain_overflow_dont
, /* complain_on_overflow */
1599 0, /* special_function */
1601 FALSE
, /* partial_inplace */
1604 FALSE
), /* pcrel_offset */
1609 /* TOC relative indirect load. */
1610 HOWTO (R_TRL
, /* type */
1612 1, /* size (0 = byte, 1 = short, 2 = long) */
1614 FALSE
, /* pc_relative */
1616 complain_overflow_bitfield
, /* complain_on_overflow */
1617 0, /* special_function */
1619 TRUE
, /* partial_inplace */
1620 0xffff, /* src_mask */
1621 0xffff, /* dst_mask */
1622 FALSE
), /* pcrel_offset */
1624 /* TOC relative load address. */
1625 HOWTO (R_TRLA
, /* type */
1627 1, /* size (0 = byte, 1 = short, 2 = long) */
1629 FALSE
, /* pc_relative */
1631 complain_overflow_bitfield
, /* complain_on_overflow */
1632 0, /* special_function */
1633 "R_TRLA", /* name */
1634 TRUE
, /* partial_inplace */
1635 0xffff, /* src_mask */
1636 0xffff, /* dst_mask */
1637 FALSE
), /* pcrel_offset */
1639 /* Modifiable relative branch. */
1640 HOWTO (R_RRTBI
, /* type */
1642 2, /* size (0 = byte, 1 = short, 2 = long) */
1644 FALSE
, /* pc_relative */
1646 complain_overflow_bitfield
, /* complain_on_overflow */
1647 0, /* special_function */
1648 "R_RRTBI", /* name */
1649 TRUE
, /* partial_inplace */
1650 0xffffffff, /* src_mask */
1651 0xffffffff, /* dst_mask */
1652 FALSE
), /* pcrel_offset */
1654 /* Modifiable absolute branch. */
1655 HOWTO (R_RRTBA
, /* type */
1657 2, /* size (0 = byte, 1 = short, 2 = long) */
1659 FALSE
, /* pc_relative */
1661 complain_overflow_bitfield
, /* complain_on_overflow */
1662 0, /* special_function */
1663 "R_RRTBA", /* name */
1664 TRUE
, /* partial_inplace */
1665 0xffffffff, /* src_mask */
1666 0xffffffff, /* dst_mask */
1667 FALSE
), /* pcrel_offset */
1669 /* Modifiable call absolute indirect. */
1670 HOWTO (R_CAI
, /* type */
1672 1, /* size (0 = byte, 1 = short, 2 = long) */
1674 FALSE
, /* pc_relative */
1676 complain_overflow_bitfield
, /* complain_on_overflow */
1677 0, /* special_function */
1679 TRUE
, /* partial_inplace */
1680 0xffff, /* src_mask */
1681 0xffff, /* dst_mask */
1682 FALSE
), /* pcrel_offset */
1684 /* Modifiable call relative. */
1685 HOWTO (R_CREL
, /* type */
1687 1, /* size (0 = byte, 1 = short, 2 = long) */
1689 FALSE
, /* pc_relative */
1691 complain_overflow_bitfield
, /* complain_on_overflow */
1692 0, /* special_function */
1693 "R_CREL", /* name */
1694 TRUE
, /* partial_inplace */
1695 0xffff, /* src_mask */
1696 0xffff, /* dst_mask */
1697 FALSE
), /* pcrel_offset */
1699 /* Modifiable branch absolute. */
1700 HOWTO (R_RBA
, /* type */
1702 2, /* size (0 = byte, 1 = short, 2 = long) */
1704 FALSE
, /* pc_relative */
1706 complain_overflow_bitfield
, /* complain_on_overflow */
1707 0, /* special_function */
1709 TRUE
, /* partial_inplace */
1710 0x03fffffc, /* src_mask */
1711 0x03fffffc, /* dst_mask */
1712 FALSE
), /* pcrel_offset */
1714 /* Modifiable branch absolute. */
1715 HOWTO (R_RBAC
, /* type */
1717 2, /* size (0 = byte, 1 = short, 2 = long) */
1719 FALSE
, /* pc_relative */
1721 complain_overflow_bitfield
, /* complain_on_overflow */
1722 0, /* special_function */
1723 "R_RBAC", /* name */
1724 TRUE
, /* partial_inplace */
1725 0xffffffff, /* src_mask */
1726 0xffffffff, /* dst_mask */
1727 FALSE
), /* pcrel_offset */
1729 /* Modifiable branch relative. */
1730 HOWTO (R_RBR
, /* type */
1732 2, /* size (0 = byte, 1 = short, 2 = long) */
1734 FALSE
, /* pc_relative */
1736 complain_overflow_signed
, /* complain_on_overflow */
1737 0, /* special_function */
1738 "R_RBR_26", /* name */
1739 TRUE
, /* partial_inplace */
1740 0x03fffffc, /* src_mask */
1741 0x03fffffc, /* dst_mask */
1742 FALSE
), /* pcrel_offset */
1744 /* Modifiable branch absolute. */
1745 HOWTO (R_RBRC
, /* type */
1747 1, /* size (0 = byte, 1 = short, 2 = long) */
1749 FALSE
, /* pc_relative */
1751 complain_overflow_bitfield
, /* complain_on_overflow */
1752 0, /* special_function */
1753 "R_RBRC", /* name */
1754 TRUE
, /* partial_inplace */
1755 0xffff, /* src_mask */
1756 0xffff, /* dst_mask */
1757 FALSE
), /* pcrel_offset */
1759 HOWTO (R_POS
, /* type */
1761 2, /* size (0 = byte, 1 = short, 2 = long) */
1763 FALSE
, /* pc_relative */
1765 complain_overflow_bitfield
, /* complain_on_overflow */
1766 0, /* special_function */
1767 "R_POS_32", /* name */
1768 TRUE
, /* partial_inplace */
1769 0xffffffff, /* src_mask */
1770 0xffffffff, /* dst_mask */
1771 FALSE
), /* pcrel_offset */
1773 /* 16 bit Non modifiable absolute branch. */
1774 HOWTO (R_BA
, /* type */
1776 1, /* size (0 = byte, 1 = short, 2 = long) */
1778 FALSE
, /* pc_relative */
1780 complain_overflow_bitfield
, /* complain_on_overflow */
1781 0, /* special_function */
1782 "R_BA_16", /* name */
1783 TRUE
, /* partial_inplace */
1784 0xfffc, /* src_mask */
1785 0xfffc, /* dst_mask */
1786 FALSE
), /* pcrel_offset */
1788 /* Modifiable branch relative. */
1789 HOWTO (R_RBR
, /* type */
1791 1, /* size (0 = byte, 1 = short, 2 = long) */
1793 FALSE
, /* pc_relative */
1795 complain_overflow_signed
, /* complain_on_overflow */
1796 0, /* special_function */
1797 "R_RBR_16", /* name */
1798 TRUE
, /* partial_inplace */
1799 0xffff, /* src_mask */
1800 0xffff, /* dst_mask */
1801 FALSE
), /* pcrel_offset */
1803 /* Modifiable branch absolute. */
1804 HOWTO (R_RBA
, /* type */
1806 1, /* size (0 = byte, 1 = short, 2 = long) */
1808 FALSE
, /* pc_relative */
1810 complain_overflow_bitfield
, /* complain_on_overflow */
1811 0, /* special_function */
1812 "R_RBA_16", /* name */
1813 TRUE
, /* partial_inplace */
1814 0xffff, /* src_mask */
1815 0xffff, /* dst_mask */
1816 FALSE
), /* pcrel_offset */
1821 xcoff64_rtype2howto (relent
, internal
)
1823 struct internal_reloc
*internal
;
1825 if (internal
->r_type
> R_RBRC
)
1828 /* Default howto layout works most of the time */
1829 relent
->howto
= &xcoff64_howto_table
[internal
->r_type
];
1831 /* Special case some 16 bit reloc */
1832 if (15 == (internal
->r_size
& 0x3f))
1834 if (R_BA
== internal
->r_type
)
1835 relent
->howto
= &xcoff64_howto_table
[0x1d];
1836 else if (R_RBR
== internal
->r_type
)
1837 relent
->howto
= &xcoff64_howto_table
[0x1e];
1838 else if (R_RBA
== internal
->r_type
)
1839 relent
->howto
= &xcoff64_howto_table
[0x1f];
1841 /* Special case 32 bit */
1842 else if (31 == (internal
->r_size
& 0x3f))
1844 if (R_POS
== internal
->r_type
)
1845 relent
->howto
= &xcoff64_howto_table
[0x1c];
1848 /* The r_size field of an XCOFF reloc encodes the bitsize of the
1849 relocation, as well as indicating whether it is signed or not.
1850 Doublecheck that the relocation information gathered from the
1851 type matches this information. The bitsize is not significant
1852 for R_REF relocs. */
1853 if (relent
->howto
->dst_mask
!= 0
1854 && (relent
->howto
->bitsize
1855 != ((unsigned int) internal
->r_size
& 0x3f) + 1))
1860 xcoff64_reloc_type_lookup (abfd
, code
)
1861 bfd
*abfd ATTRIBUTE_UNUSED
;
1862 bfd_reloc_code_real_type code
;
1866 case BFD_RELOC_PPC_B26
:
1867 return &xcoff64_howto_table
[0xa];
1868 case BFD_RELOC_PPC_BA16
:
1869 return &xcoff64_howto_table
[0x1d];
1870 case BFD_RELOC_PPC_BA26
:
1871 return &xcoff64_howto_table
[8];
1872 case BFD_RELOC_PPC_TOC16
:
1873 return &xcoff64_howto_table
[3];
1875 case BFD_RELOC_CTOR
:
1876 return &xcoff64_howto_table
[0x1c];
1878 return &xcoff64_howto_table
[0];
1884 static reloc_howto_type
*
1885 xcoff64_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1891 i
< sizeof (xcoff64_howto_table
) / sizeof (xcoff64_howto_table
[0]);
1893 if (xcoff64_howto_table
[i
].name
!= NULL
1894 && strcasecmp (xcoff64_howto_table
[i
].name
, r_name
) == 0)
1895 return &xcoff64_howto_table
[i
];
1900 /* Read in the armap of an XCOFF archive. */
1903 xcoff64_slurp_armap (abfd
)
1908 bfd_size_type sz
, amt
;
1909 bfd_byte
*contents
, *cend
;
1915 /* This is for the new format. */
1916 struct xcoff_ar_hdr_big hdr
;
1918 if (xcoff_ardata (abfd
) == NULL
)
1920 bfd_has_map (abfd
) = FALSE
;
1924 off
= bfd_scan_vma (xcoff_ardata_big (abfd
)->symoff64
,
1925 (const char **) NULL
, 10);
1928 bfd_has_map (abfd
) = FALSE
;
1932 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1935 /* The symbol table starts with a normal archive header. */
1936 if (bfd_bread ((PTR
) &hdr
, (bfd_size_type
) SIZEOF_AR_HDR_BIG
, abfd
)
1937 != SIZEOF_AR_HDR_BIG
)
1940 /* Skip the name (normally empty). */
1941 namlen
= strtol (hdr
.namlen
, (char **) NULL
, 10);
1942 pos
= ((namlen
+ 1) & ~(size_t) 1) + SXCOFFARFMAG
;
1943 if (bfd_seek (abfd
, pos
, SEEK_CUR
) != 0)
1946 sz
= bfd_scan_vma (hdr
.size
, (const char **) NULL
, 10);
1948 /* Read in the entire symbol table. */
1949 contents
= (bfd_byte
*) bfd_alloc (abfd
, sz
);
1950 if (contents
== NULL
)
1952 if (bfd_bread ((PTR
) contents
, sz
, abfd
) != sz
)
1955 /* The symbol table starts with an eight byte count. */
1956 c
= H_GET_64 (abfd
, contents
);
1960 bfd_set_error (bfd_error_bad_value
);
1964 amt
*= sizeof (carsym
);
1965 bfd_ardata (abfd
)->symdefs
= (carsym
*) bfd_alloc (abfd
, amt
);
1966 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1969 /* After the count comes a list of eight byte file offsets. */
1970 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 8;
1972 ++i
, ++arsym
, p
+= 8)
1973 arsym
->file_offset
= H_GET_64 (abfd
, p
);
1975 /* After the file offsets come null terminated symbol names. */
1976 cend
= contents
+ sz
;
1977 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
;
1979 ++i
, ++arsym
, p
+= strlen ((char *) p
) + 1)
1983 bfd_set_error (bfd_error_bad_value
);
1986 arsym
->name
= (char *) p
;
1989 bfd_ardata (abfd
)->symdef_count
= c
;
1990 bfd_has_map (abfd
) = TRUE
;
1996 /* See if this is an NEW XCOFF archive. */
1998 static const bfd_target
*
1999 xcoff64_archive_p (abfd
)
2002 struct artdata
*tdata_hold
;
2003 char magic
[SXCOFFARMAG
];
2004 /* This is the new format. */
2005 struct xcoff_ar_file_hdr_big hdr
;
2006 bfd_size_type amt
= SXCOFFARMAG
;
2008 if (bfd_bread ((PTR
) magic
, amt
, abfd
) != amt
)
2010 if (bfd_get_error () != bfd_error_system_call
)
2011 bfd_set_error (bfd_error_wrong_format
);
2015 if (strncmp (magic
, XCOFFARMAGBIG
, SXCOFFARMAG
) != 0)
2017 bfd_set_error (bfd_error_wrong_format
);
2021 /* Copy over the magic string. */
2022 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
2024 /* Now read the rest of the file header. */
2025 amt
= SIZEOF_AR_FILE_HDR_BIG
- SXCOFFARMAG
;
2026 if (bfd_bread ((PTR
) &hdr
.memoff
, amt
, abfd
) != amt
)
2028 if (bfd_get_error () != bfd_error_system_call
)
2029 bfd_set_error (bfd_error_wrong_format
);
2033 tdata_hold
= bfd_ardata (abfd
);
2035 amt
= sizeof (struct artdata
);
2036 bfd_ardata (abfd
) = (struct artdata
*) bfd_zalloc (abfd
, amt
);
2037 if (bfd_ardata (abfd
) == (struct artdata
*) NULL
)
2038 goto error_ret_restore
;
2040 /* Already cleared by bfd_zalloc above.
2041 bfd_ardata (abfd)->cache = NULL;
2042 bfd_ardata (abfd)->archive_head = NULL;
2043 bfd_ardata (abfd)->symdefs = NULL;
2044 bfd_ardata (abfd)->extended_names = NULL;
2045 bfd_ardata (abfd)->extended_names_size = 0; */
2046 bfd_ardata (abfd
)->first_file_filepos
= bfd_scan_vma (hdr
.firstmemoff
,
2047 (const char **) NULL
,
2050 amt
= SIZEOF_AR_FILE_HDR_BIG
;
2051 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, amt
);
2052 if (bfd_ardata (abfd
)->tdata
== NULL
)
2055 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR_BIG
);
2057 if (! xcoff64_slurp_armap (abfd
))
2060 bfd_release (abfd
, bfd_ardata (abfd
));
2062 bfd_ardata (abfd
) = tdata_hold
;
2070 /* Open the next element in an XCOFF archive. */
2073 xcoff64_openr_next_archived_file (archive
, last_file
)
2079 if ((xcoff_ardata (archive
) == NULL
)
2080 || ! xcoff_big_format_p (archive
))
2082 bfd_set_error (bfd_error_invalid_operation
);
2086 if (last_file
== NULL
)
2088 filestart
= bfd_ardata (archive
)->first_file_filepos
;
2092 filestart
= bfd_scan_vma (arch_xhdr_big (last_file
)->nextoff
,
2093 (const char **) NULL
, 10);
2097 || filestart
== bfd_scan_vma (xcoff_ardata_big (archive
)->memoff
,
2098 (const char **) NULL
, 10)
2099 || filestart
== bfd_scan_vma (xcoff_ardata_big (archive
)->symoff
,
2100 (const char **) NULL
, 10))
2102 bfd_set_error (bfd_error_no_more_archived_files
);
2106 return _bfd_get_elt_at_filepos (archive
, (file_ptr
) filestart
);
2109 /* We can't use the usual coff_sizeof_headers routine, because AIX
2110 always uses an a.out header. */
2113 xcoff64_sizeof_headers (bfd
*abfd
,
2114 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
2118 size
= bfd_coff_filhsz (abfd
);
2120 /* Don't think the small aout header can be used since some of the
2121 old elements have been reordered past the end of the old coff
2124 if (xcoff_data (abfd
)->full_aouthdr
)
2125 size
+= bfd_coff_aoutsz (abfd
);
2127 size
+= abfd
->section_count
* bfd_coff_scnhsz (abfd
);
2134 xcoff64_create_csect_from_smclas (abfd
, aux
, symbol_name
)
2136 union internal_auxent
*aux
;
2137 const char *symbol_name
;
2139 asection
*return_value
= NULL
;
2141 /* Changes from 32 :
2142 .sv == 8, is only for 32 bit programs
2143 .ti == 12 and .tb == 13 are now reserved. */
2144 static const char *names
[19] =
2146 ".pr", ".ro", ".db", ".tc", ".ua", ".rw", ".gl", ".xo",
2147 NULL
, ".bs", ".ds", ".uc", NULL
, NULL
, NULL
, ".tc0",
2148 ".td", ".sv64", ".sv3264"
2151 if ((19 >= aux
->x_csect
.x_smclas
)
2152 && (NULL
!= names
[aux
->x_csect
.x_smclas
]))
2155 return_value
= bfd_make_section_anyway
2156 (abfd
, names
[aux
->x_csect
.x_smclas
]);
2161 (*_bfd_error_handler
)
2162 (_("%B: symbol `%s' has unrecognized smclas %d"),
2163 abfd
, symbol_name
, aux
->x_csect
.x_smclas
);
2164 bfd_set_error (bfd_error_bad_value
);
2167 return return_value
;
2171 xcoff64_is_lineno_count_overflow (abfd
, value
)
2172 bfd
*abfd ATTRIBUTE_UNUSED
;
2173 bfd_vma value ATTRIBUTE_UNUSED
;
2179 xcoff64_is_reloc_count_overflow (abfd
, value
)
2180 bfd
*abfd ATTRIBUTE_UNUSED
;
2181 bfd_vma value ATTRIBUTE_UNUSED
;
2187 xcoff64_loader_symbol_offset (abfd
, ldhdr
)
2188 bfd
*abfd ATTRIBUTE_UNUSED
;
2189 struct internal_ldhdr
*ldhdr
;
2191 return (ldhdr
->l_symoff
);
2195 xcoff64_loader_reloc_offset (abfd
, ldhdr
)
2196 bfd
*abfd ATTRIBUTE_UNUSED
;
2197 struct internal_ldhdr
*ldhdr
;
2199 return (ldhdr
->l_rldoff
);
2203 xcoff64_bad_format_hook (abfd
, filehdr
)
2207 struct internal_filehdr
*internal_f
= (struct internal_filehdr
*) filehdr
;
2209 /* Check flavor first. */
2210 if (bfd_get_flavour (abfd
) != bfd_target_xcoff_flavour
)
2213 if (bfd_xcoff_magic_number (abfd
) != internal_f
->f_magic
)
2220 xcoff64_generate_rtinit (abfd
, init
, fini
, rtld
)
2226 bfd_byte filehdr_ext
[FILHSZ
];
2227 bfd_byte scnhdr_ext
[SCNHSZ
* 3];
2228 bfd_byte syment_ext
[SYMESZ
* 10];
2229 bfd_byte reloc_ext
[RELSZ
* 3];
2230 bfd_byte
*data_buffer
;
2231 bfd_size_type data_buffer_size
;
2232 bfd_byte
*string_table
, *st_tmp
;
2233 bfd_size_type string_table_size
;
2235 size_t initsz
, finisz
;
2236 struct internal_filehdr filehdr
;
2237 struct internal_scnhdr text_scnhdr
;
2238 struct internal_scnhdr data_scnhdr
;
2239 struct internal_scnhdr bss_scnhdr
;
2240 struct internal_syment syment
;
2241 union internal_auxent auxent
;
2242 struct internal_reloc reloc
;
2244 char *text_name
= ".text";
2245 char *data_name
= ".data";
2246 char *bss_name
= ".bss";
2247 char *rtinit_name
= "__rtinit";
2248 char *rtld_name
= "__rtld";
2250 if (! bfd_xcoff_rtinit_size (abfd
))
2253 initsz
= (init
== NULL
? 0 : 1 + strlen (init
));
2254 finisz
= (fini
== NULL
? 0 : 1 + strlen (fini
));
2257 memset (filehdr_ext
, 0, FILHSZ
);
2258 memset (&filehdr
, 0, sizeof (struct internal_filehdr
));
2259 filehdr
.f_magic
= bfd_xcoff_magic_number (abfd
);
2260 filehdr
.f_nscns
= 3;
2261 filehdr
.f_timdat
= 0;
2262 filehdr
.f_nsyms
= 0; /* at least 6, no more than 8 */
2263 filehdr
.f_symptr
= 0; /* set below */
2264 filehdr
.f_opthdr
= 0;
2265 filehdr
.f_flags
= 0;
2267 /* Section headers. */
2268 memset (scnhdr_ext
, 0, 3 * SCNHSZ
);
2271 memset (&text_scnhdr
, 0, sizeof (struct internal_scnhdr
));
2272 memcpy (text_scnhdr
.s_name
, text_name
, strlen (text_name
));
2273 text_scnhdr
.s_paddr
= 0;
2274 text_scnhdr
.s_vaddr
= 0;
2275 text_scnhdr
.s_size
= 0;
2276 text_scnhdr
.s_scnptr
= 0;
2277 text_scnhdr
.s_relptr
= 0;
2278 text_scnhdr
.s_lnnoptr
= 0;
2279 text_scnhdr
.s_nreloc
= 0;
2280 text_scnhdr
.s_nlnno
= 0;
2281 text_scnhdr
.s_flags
= STYP_TEXT
;
2284 memset (&data_scnhdr
, 0, sizeof (struct internal_scnhdr
));
2285 memcpy (data_scnhdr
.s_name
, data_name
, strlen (data_name
));
2286 data_scnhdr
.s_paddr
= 0;
2287 data_scnhdr
.s_vaddr
= 0;
2288 data_scnhdr
.s_size
= 0; /* set below */
2289 data_scnhdr
.s_scnptr
= FILHSZ
+ 3 * SCNHSZ
;
2290 data_scnhdr
.s_relptr
= 0; /* set below */
2291 data_scnhdr
.s_lnnoptr
= 0;
2292 data_scnhdr
.s_nreloc
= 0; /* either 1 or 2 */
2293 data_scnhdr
.s_nlnno
= 0;
2294 data_scnhdr
.s_flags
= STYP_DATA
;
2297 memset (&bss_scnhdr
, 0, sizeof (struct internal_scnhdr
));
2298 memcpy (bss_scnhdr
.s_name
, bss_name
, strlen (bss_name
));
2299 bss_scnhdr
.s_paddr
= 0; /* set below */
2300 bss_scnhdr
.s_vaddr
= 0; /* set below */
2301 bss_scnhdr
.s_size
= 0; /* set below */
2302 bss_scnhdr
.s_scnptr
= 0;
2303 bss_scnhdr
.s_relptr
= 0;
2304 bss_scnhdr
.s_lnnoptr
= 0;
2305 bss_scnhdr
.s_nreloc
= 0;
2306 bss_scnhdr
.s_nlnno
= 0;
2307 bss_scnhdr
.s_flags
= STYP_BSS
;
2310 0x0000 0x00000000 : rtl
2312 0x0008 0x00000018 : offset to init, or 0
2313 0x000C 0x00000038 : offset to fini, or 0
2314 0x0010 0x00000010 : size of descriptor
2315 0x0014 0x00000000 : pad
2316 0x0018 0x00000000 : init, needs a reloc
2318 0x0020 0x00000058 : offset to init name
2319 0x0024 0x00000000 : flags, padded to a word
2320 0x0028 0x00000000 : empty init
2324 0x0038 0x00000000 : fini, needs a reloc
2326 0x0040 0x00000??? : offset to fini name
2327 0x0044 0x00000000 : flags, padded to a word
2328 0x0048 0x00000000 : empty fini
2333 0x0058 + initsz fini name */
2335 data_buffer_size
= 0x0058 + initsz
+ finisz
;
2336 data_buffer_size
= (data_buffer_size
+ 7) &~ (bfd_size_type
) 7;
2338 data_buffer
= (bfd_byte
*) bfd_zmalloc (data_buffer_size
);
2339 if (data_buffer
== NULL
)
2345 bfd_put_32 (abfd
, val
, &data_buffer
[0x08]);
2347 bfd_put_32 (abfd
, val
, &data_buffer
[0x20]);
2348 memcpy (&data_buffer
[val
], init
, initsz
);
2354 bfd_put_32 (abfd
, val
, &data_buffer
[0x0C]);
2355 val
= 0x58 + initsz
;
2356 bfd_put_32 (abfd
, val
, &data_buffer
[0x40]);
2357 memcpy (&data_buffer
[val
], fini
, finisz
);
2361 bfd_put_32 (abfd
, val
, &data_buffer
[0x10]);
2362 data_scnhdr
.s_size
= data_buffer_size
;
2363 bss_scnhdr
.s_paddr
= bss_scnhdr
.s_vaddr
= data_scnhdr
.s_size
;
2366 string_table_size
= 4;
2367 string_table_size
+= strlen (data_name
) + 1;
2368 string_table_size
+= strlen (rtinit_name
) + 1;
2369 string_table_size
+= initsz
;
2370 string_table_size
+= finisz
;
2372 string_table_size
+= strlen (rtld_name
) + 1;
2374 string_table
= (bfd_byte
*) bfd_zmalloc (string_table_size
);
2375 if (string_table
== NULL
)
2378 val
= string_table_size
;
2379 bfd_put_32 (abfd
, val
, &string_table
[0]);
2380 st_tmp
= string_table
+ 4;
2388 memset (syment_ext
, 0, 10 * SYMESZ
);
2389 memset (reloc_ext
, 0, 3 * RELSZ
);
2392 memset (&syment
, 0, sizeof (struct internal_syment
));
2393 memset (&auxent
, 0, sizeof (union internal_auxent
));
2395 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2396 memcpy (st_tmp
, data_name
, strlen (data_name
));
2397 st_tmp
+= strlen (data_name
) + 1;
2400 syment
.n_sclass
= C_HIDEXT
;
2401 syment
.n_numaux
= 1;
2402 auxent
.x_csect
.x_scnlen
.l
= data_buffer_size
;
2403 auxent
.x_csect
.x_smtyp
= 3 << 3 | XTY_SD
;
2404 auxent
.x_csect
.x_smclas
= XMC_RW
;
2405 bfd_coff_swap_sym_out (abfd
, &syment
,
2406 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2407 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2409 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2410 filehdr
.f_nsyms
+= 2;
2413 memset (&syment
, 0, sizeof (struct internal_syment
));
2414 memset (&auxent
, 0, sizeof (union internal_auxent
));
2415 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2416 memcpy (st_tmp
, rtinit_name
, strlen (rtinit_name
));
2417 st_tmp
+= strlen (rtinit_name
) + 1;
2420 syment
.n_sclass
= C_EXT
;
2421 syment
.n_numaux
= 1;
2422 auxent
.x_csect
.x_smtyp
= XTY_LD
;
2423 auxent
.x_csect
.x_smclas
= XMC_RW
;
2424 bfd_coff_swap_sym_out (abfd
, &syment
,
2425 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2426 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2428 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2429 filehdr
.f_nsyms
+= 2;
2434 memset (&syment
, 0, sizeof (struct internal_syment
));
2435 memset (&auxent
, 0, sizeof (union internal_auxent
));
2437 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2438 memcpy (st_tmp
, init
, initsz
);
2441 syment
.n_sclass
= C_EXT
;
2442 syment
.n_numaux
= 1;
2443 bfd_coff_swap_sym_out (abfd
, &syment
,
2444 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2445 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2447 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2449 memset (&reloc
, 0, sizeof (struct internal_reloc
));
2450 reloc
.r_vaddr
= 0x0018;
2451 reloc
.r_symndx
= filehdr
.f_nsyms
;
2452 reloc
.r_type
= R_POS
;
2454 bfd_coff_swap_reloc_out (abfd
, &reloc
, &reloc_ext
[0]);
2456 filehdr
.f_nsyms
+= 2;
2457 data_scnhdr
.s_nreloc
+= 1;
2463 memset (&syment
, 0, sizeof (struct internal_syment
));
2464 memset (&auxent
, 0, sizeof (union internal_auxent
));
2466 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2467 memcpy (st_tmp
, fini
, finisz
);
2470 syment
.n_sclass
= C_EXT
;
2471 syment
.n_numaux
= 1;
2472 bfd_coff_swap_sym_out (abfd
, &syment
,
2473 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2474 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2476 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2479 memset (&reloc
, 0, sizeof (struct internal_reloc
));
2480 reloc
.r_vaddr
= 0x0038;
2481 reloc
.r_symndx
= filehdr
.f_nsyms
;
2482 reloc
.r_type
= R_POS
;
2484 bfd_coff_swap_reloc_out (abfd
, &reloc
,
2485 &reloc_ext
[data_scnhdr
.s_nreloc
* RELSZ
]);
2487 filehdr
.f_nsyms
+= 2;
2488 data_scnhdr
.s_nreloc
+= 1;
2493 memset (&syment
, 0, sizeof (struct internal_syment
));
2494 memset (&auxent
, 0, sizeof (union internal_auxent
));
2496 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2497 memcpy (st_tmp
, rtld_name
, strlen (rtld_name
));
2498 st_tmp
+= strlen (rtld_name
) + 1;
2500 syment
.n_sclass
= C_EXT
;
2501 syment
.n_numaux
= 1;
2502 bfd_coff_swap_sym_out (abfd
, &syment
,
2503 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2504 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2506 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2509 memset (&reloc
, 0, sizeof (struct internal_reloc
));
2510 reloc
.r_vaddr
= 0x0000;
2511 reloc
.r_symndx
= filehdr
.f_nsyms
;
2512 reloc
.r_type
= R_POS
;
2514 bfd_coff_swap_reloc_out (abfd
, &reloc
,
2515 &reloc_ext
[data_scnhdr
.s_nreloc
* RELSZ
]);
2517 filehdr
.f_nsyms
+= 2;
2518 data_scnhdr
.s_nreloc
+= 1;
2520 bss_scnhdr
.s_size
= 0;
2523 data_scnhdr
.s_relptr
= data_scnhdr
.s_scnptr
+ data_buffer_size
;
2524 filehdr
.f_symptr
= data_scnhdr
.s_relptr
+ data_scnhdr
.s_nreloc
* RELSZ
;
2526 bfd_coff_swap_filehdr_out (abfd
, &filehdr
, filehdr_ext
);
2527 bfd_bwrite (filehdr_ext
, FILHSZ
, abfd
);
2528 bfd_coff_swap_scnhdr_out (abfd
, &text_scnhdr
, &scnhdr_ext
[SCNHSZ
* 0]);
2529 bfd_coff_swap_scnhdr_out (abfd
, &data_scnhdr
, &scnhdr_ext
[SCNHSZ
* 1]);
2530 bfd_coff_swap_scnhdr_out (abfd
, &bss_scnhdr
, &scnhdr_ext
[SCNHSZ
* 2]);
2531 bfd_bwrite (scnhdr_ext
, 3 * SCNHSZ
, abfd
);
2532 bfd_bwrite (data_buffer
, data_buffer_size
, abfd
);
2533 bfd_bwrite (reloc_ext
, data_scnhdr
.s_nreloc
* RELSZ
, abfd
);
2534 bfd_bwrite (syment_ext
, filehdr
.f_nsyms
* SYMESZ
, abfd
);
2535 bfd_bwrite (string_table
, string_table_size
, abfd
);
2543 /* The typical dynamic reloc. */
2545 static reloc_howto_type xcoff64_dynamic_reloc
=
2546 HOWTO (0, /* type */
2548 4, /* size (0 = byte, 1 = short, 2 = long) */
2550 FALSE
, /* pc_relative */
2552 complain_overflow_bitfield
, /* complain_on_overflow */
2553 0, /* special_function */
2555 TRUE
, /* partial_inplace */
2556 MINUS_ONE
, /* src_mask */
2557 MINUS_ONE
, /* dst_mask */
2558 FALSE
); /* pcrel_offset */
2560 static unsigned long xcoff64_glink_code
[10] =
2562 0xe9820000, /* ld r12,0(r2) */
2563 0xf8410028, /* std r2,40(r1) */
2564 0xe80c0000, /* ld r0,0(r12) */
2565 0xe84c0008, /* ld r0,8(r12) */
2566 0x7c0903a6, /* mtctr r0 */
2567 0x4e800420, /* bctr */
2568 0x00000000, /* start of traceback table */
2569 0x000ca000, /* traceback table */
2570 0x00000000, /* traceback table */
2571 0x00000018, /* ??? */
2574 static const struct xcoff_backend_data_rec bfd_xcoff_backend_data
=
2576 { /* COFF backend, defined in libcoff.h. */
2577 _bfd_xcoff64_swap_aux_in
,
2578 _bfd_xcoff64_swap_sym_in
,
2579 _bfd_xcoff64_swap_lineno_in
,
2580 _bfd_xcoff64_swap_aux_out
,
2581 _bfd_xcoff64_swap_sym_out
,
2582 _bfd_xcoff64_swap_lineno_out
,
2583 xcoff64_swap_reloc_out
,
2584 coff_swap_filehdr_out
,
2585 coff_swap_aouthdr_out
,
2586 coff_swap_scnhdr_out
,
2595 TRUE
, /* _bfd_coff_long_filenames */
2596 XCOFF_NO_LONG_SECTION_NAMES
, /* _bfd_coff_long_section_names */
2597 3, /* _bfd_coff_default_section_alignment_power */
2598 TRUE
, /* _bfd_coff_force_symnames_in_strings */
2599 4, /* _bfd_coff_debug_string_prefix_length */
2600 coff_swap_filehdr_in
,
2601 coff_swap_aouthdr_in
,
2602 coff_swap_scnhdr_in
,
2603 xcoff64_swap_reloc_in
,
2604 xcoff64_bad_format_hook
,
2605 coff_set_arch_mach_hook
,
2608 coff_set_alignment_hook
,
2609 coff_slurp_symbol_table
,
2610 symname_in_debug_hook
,
2611 coff_pointerize_aux_hook
,
2613 dummy_reloc16_extra_cases
,
2614 dummy_reloc16_estimate
,
2615 NULL
, /* bfd_coff_symbol_classification */
2616 coff_compute_section_file_positions
,
2617 NULL
, /* _bfd_coff_start_final_link */
2618 xcoff64_ppc_relocate_section
,
2619 coff_rtype_to_howto
,
2620 NULL
, /* _bfd_coff_adjust_symndx */
2621 _bfd_generic_link_add_one_symbol
,
2622 coff_link_output_has_begun
,
2623 coff_final_link_postscript
,
2624 NULL
/* print_pdata. */
2627 0x01EF, /* magic number */
2631 /* Function pointers to xcoff specific swap routines. */
2632 xcoff64_swap_ldhdr_in
,
2633 xcoff64_swap_ldhdr_out
,
2634 xcoff64_swap_ldsym_in
,
2635 xcoff64_swap_ldsym_out
,
2636 xcoff64_swap_ldrel_in
,
2637 xcoff64_swap_ldrel_out
,
2643 24, /* _xcoff_function_descriptor_size */
2644 0, /* _xcoff_small_aout_header_size */
2647 2, /* _xcoff_ldhdr_version */
2649 _bfd_xcoff64_put_symbol_name
,
2650 _bfd_xcoff64_put_ldsymbol_name
,
2651 &xcoff64_dynamic_reloc
,
2652 xcoff64_create_csect_from_smclas
,
2654 /* Lineno and reloc count overflow. */
2655 xcoff64_is_lineno_count_overflow
,
2656 xcoff64_is_reloc_count_overflow
,
2658 xcoff64_loader_symbol_offset
,
2659 xcoff64_loader_reloc_offset
,
2662 &xcoff64_glink_code
[0],
2663 40, /* _xcoff_glink_size */
2666 88, /* _xcoff_rtinit_size */
2667 xcoff64_generate_rtinit
,
2670 /* The transfer vector that leads the outside world to all of the above. */
2671 const bfd_target rs6000coff64_vec
=
2674 bfd_target_xcoff_flavour
,
2675 BFD_ENDIAN_BIG
, /* data byte order is big */
2676 BFD_ENDIAN_BIG
, /* header byte order is big */
2678 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
2679 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
2681 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
2682 0, /* leading char */
2683 '/', /* ar_pad_char */
2684 15, /* ar_max_namelen */
2708 { /* bfd_check_format */
2715 { /* bfd_set_format */
2718 _bfd_generic_mkarchive
,
2722 {/* bfd_write_contents */
2724 xcoff64_write_object_contents
,
2725 _bfd_xcoff_write_archive_contents
,
2732 coff_new_section_hook
,
2733 _bfd_generic_get_section_contents
,
2734 _bfd_generic_get_section_contents_in_window
,
2737 _bfd_xcoff_copy_private_bfd_data
,
2738 ((bfd_boolean (*) (bfd
*, bfd
*)) bfd_true
),
2739 _bfd_generic_init_private_section_data
,
2740 ((bfd_boolean (*) (bfd
*, asection
*, bfd
*, asection
*)) bfd_true
),
2741 ((bfd_boolean (*) (bfd
*, asymbol
*, bfd
*, asymbol
*)) bfd_true
),
2742 ((bfd_boolean (*) (bfd
*, bfd
*)) bfd_true
),
2743 ((bfd_boolean (*) (bfd
*, flagword
)) bfd_true
),
2744 ((bfd_boolean (*) (bfd
*, void * )) bfd_true
),
2747 coff_core_file_failing_command
,
2748 coff_core_file_failing_signal
,
2749 coff_core_file_matches_executable_p
,
2752 xcoff64_slurp_armap
,
2754 ((bfd_boolean (*) (bfd
*, char **, bfd_size_type
*, const char **)) bfd_false
),
2755 bfd_dont_truncate_arname
,
2756 _bfd_xcoff_write_armap
,
2757 _bfd_xcoff_read_ar_hdr
,
2758 xcoff64_openr_next_archived_file
,
2759 _bfd_generic_get_elt_at_index
,
2760 _bfd_xcoff_stat_arch_elt
,
2764 coff_get_symtab_upper_bound
,
2765 coff_canonicalize_symtab
,
2766 coff_make_empty_symbol
,
2768 coff_get_symbol_info
,
2769 _bfd_xcoff_is_local_label_name
,
2770 coff_bfd_is_target_special_symbol
,
2772 coff_find_nearest_line
,
2773 _bfd_generic_find_line
,
2774 coff_find_inliner_info
,
2775 coff_bfd_make_debug_symbol
,
2776 _bfd_generic_read_minisymbols
,
2777 _bfd_generic_minisymbol_to_symbol
,
2780 coff_get_reloc_upper_bound
,
2781 coff_canonicalize_reloc
,
2782 xcoff64_reloc_type_lookup
,
2783 xcoff64_reloc_name_lookup
,
2787 coff_set_section_contents
,
2790 xcoff64_sizeof_headers
,
2791 bfd_generic_get_relocated_section_contents
,
2792 bfd_generic_relax_section
,
2793 _bfd_xcoff_bfd_link_hash_table_create
,
2794 _bfd_generic_link_hash_table_free
,
2795 _bfd_xcoff_bfd_link_add_symbols
,
2796 _bfd_generic_link_just_syms
,
2797 _bfd_xcoff_bfd_final_link
,
2798 _bfd_generic_link_split_section
,
2799 bfd_generic_gc_sections
,
2800 bfd_generic_merge_sections
,
2801 bfd_generic_is_group_section
,
2802 bfd_generic_discard_group
,
2803 _bfd_generic_section_already_linked
,
2806 _bfd_xcoff_get_dynamic_symtab_upper_bound
,
2807 _bfd_xcoff_canonicalize_dynamic_symtab
,
2808 _bfd_nodynamic_get_synthetic_symtab
,
2809 _bfd_xcoff_get_dynamic_reloc_upper_bound
,
2810 _bfd_xcoff_canonicalize_dynamic_reloc
,
2812 /* Opposite endian version, none exists */
2815 (void *) &bfd_xcoff_backend_data
,
2818 extern const bfd_target
*xcoff64_core_p
2820 extern bfd_boolean xcoff64_core_file_matches_executable_p
2821 PARAMS ((bfd
*, bfd
*));
2822 extern char *xcoff64_core_file_failing_command
2824 extern int xcoff64_core_file_failing_signal
2828 static const struct xcoff_backend_data_rec bfd_xcoff_aix5_backend_data
=
2830 { /* COFF backend, defined in libcoff.h. */
2831 _bfd_xcoff64_swap_aux_in
,
2832 _bfd_xcoff64_swap_sym_in
,
2833 _bfd_xcoff64_swap_lineno_in
,
2834 _bfd_xcoff64_swap_aux_out
,
2835 _bfd_xcoff64_swap_sym_out
,
2836 _bfd_xcoff64_swap_lineno_out
,
2837 xcoff64_swap_reloc_out
,
2838 coff_swap_filehdr_out
,
2839 coff_swap_aouthdr_out
,
2840 coff_swap_scnhdr_out
,
2849 TRUE
, /* _bfd_coff_long_filenames */
2850 XCOFF_NO_LONG_SECTION_NAMES
, /* _bfd_coff_long_section_names */
2851 3, /* _bfd_coff_default_section_alignment_power */
2852 TRUE
, /* _bfd_coff_force_symnames_in_strings */
2853 4, /* _bfd_coff_debug_string_prefix_length */
2854 coff_swap_filehdr_in
,
2855 coff_swap_aouthdr_in
,
2856 coff_swap_scnhdr_in
,
2857 xcoff64_swap_reloc_in
,
2858 xcoff64_bad_format_hook
,
2859 coff_set_arch_mach_hook
,
2862 coff_set_alignment_hook
,
2863 coff_slurp_symbol_table
,
2864 symname_in_debug_hook
,
2865 coff_pointerize_aux_hook
,
2867 dummy_reloc16_extra_cases
,
2868 dummy_reloc16_estimate
,
2869 NULL
, /* bfd_coff_sym_is_global */
2870 coff_compute_section_file_positions
,
2871 NULL
, /* _bfd_coff_start_final_link */
2872 xcoff64_ppc_relocate_section
,
2873 coff_rtype_to_howto
,
2874 NULL
, /* _bfd_coff_adjust_symndx */
2875 _bfd_generic_link_add_one_symbol
,
2876 coff_link_output_has_begun
,
2877 coff_final_link_postscript
,
2878 NULL
/* print_pdata. */
2881 U64_TOCMAGIC
, /* magic number */
2885 /* Function pointers to xcoff specific swap routines. */
2886 xcoff64_swap_ldhdr_in
,
2887 xcoff64_swap_ldhdr_out
,
2888 xcoff64_swap_ldsym_in
,
2889 xcoff64_swap_ldsym_out
,
2890 xcoff64_swap_ldrel_in
,
2891 xcoff64_swap_ldrel_out
,
2897 24, /* _xcoff_function_descriptor_size */
2898 0, /* _xcoff_small_aout_header_size */
2900 2, /* _xcoff_ldhdr_version */
2902 _bfd_xcoff64_put_symbol_name
,
2903 _bfd_xcoff64_put_ldsymbol_name
,
2904 &xcoff64_dynamic_reloc
,
2905 xcoff64_create_csect_from_smclas
,
2907 /* Lineno and reloc count overflow. */
2908 xcoff64_is_lineno_count_overflow
,
2909 xcoff64_is_reloc_count_overflow
,
2911 xcoff64_loader_symbol_offset
,
2912 xcoff64_loader_reloc_offset
,
2915 &xcoff64_glink_code
[0],
2916 40, /* _xcoff_glink_size */
2919 88, /* _xcoff_rtinit_size */
2920 xcoff64_generate_rtinit
,
2923 /* The transfer vector that leads the outside world to all of the above. */
2924 const bfd_target aix5coff64_vec
=
2926 "aix5coff64-rs6000",
2927 bfd_target_xcoff_flavour
,
2928 BFD_ENDIAN_BIG
, /* data byte order is big */
2929 BFD_ENDIAN_BIG
, /* header byte order is big */
2931 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
2932 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
2934 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
2935 0, /* leading char */
2936 '/', /* ar_pad_char */
2937 15, /* ar_max_namelen */
2961 { /* bfd_check_format */
2968 { /* bfd_set_format */
2971 _bfd_generic_mkarchive
,
2975 {/* bfd_write_contents */
2977 xcoff64_write_object_contents
,
2978 _bfd_xcoff_write_archive_contents
,
2985 coff_new_section_hook
,
2986 _bfd_generic_get_section_contents
,
2987 _bfd_generic_get_section_contents_in_window
,
2990 _bfd_xcoff_copy_private_bfd_data
,
2991 ((bfd_boolean (*) (bfd
*, bfd
*)) bfd_true
),
2992 _bfd_generic_init_private_section_data
,
2993 ((bfd_boolean (*) (bfd
*, asection
*, bfd
*, asection
*)) bfd_true
),
2994 ((bfd_boolean (*) (bfd
*, asymbol
*, bfd
*, asymbol
*)) bfd_true
),
2995 ((bfd_boolean (*) (bfd
*, bfd
*)) bfd_true
),
2996 ((bfd_boolean (*) (bfd
*, flagword
)) bfd_true
),
2997 ((bfd_boolean (*) (bfd
*, void * )) bfd_true
),
3000 xcoff64_core_file_failing_command
,
3001 xcoff64_core_file_failing_signal
,
3002 xcoff64_core_file_matches_executable_p
,
3005 xcoff64_slurp_armap
,
3007 ((bfd_boolean (*) (bfd
*, char **, bfd_size_type
*, const char **)) bfd_false
),
3008 bfd_dont_truncate_arname
,
3009 _bfd_xcoff_write_armap
,
3010 _bfd_xcoff_read_ar_hdr
,
3011 xcoff64_openr_next_archived_file
,
3012 _bfd_generic_get_elt_at_index
,
3013 _bfd_xcoff_stat_arch_elt
,
3017 coff_get_symtab_upper_bound
,
3018 coff_canonicalize_symtab
,
3019 coff_make_empty_symbol
,
3021 coff_get_symbol_info
,
3022 _bfd_xcoff_is_local_label_name
,
3023 coff_bfd_is_target_special_symbol
,
3025 coff_find_nearest_line
,
3026 _bfd_generic_find_line
,
3027 coff_find_inliner_info
,
3028 coff_bfd_make_debug_symbol
,
3029 _bfd_generic_read_minisymbols
,
3030 _bfd_generic_minisymbol_to_symbol
,
3033 coff_get_reloc_upper_bound
,
3034 coff_canonicalize_reloc
,
3035 xcoff64_reloc_type_lookup
,
3036 xcoff64_reloc_name_lookup
,
3040 coff_set_section_contents
,
3043 xcoff64_sizeof_headers
,
3044 bfd_generic_get_relocated_section_contents
,
3045 bfd_generic_relax_section
,
3046 _bfd_xcoff_bfd_link_hash_table_create
,
3047 _bfd_generic_link_hash_table_free
,
3048 _bfd_xcoff_bfd_link_add_symbols
,
3049 _bfd_generic_link_just_syms
,
3050 _bfd_xcoff_bfd_final_link
,
3051 _bfd_generic_link_split_section
,
3052 bfd_generic_gc_sections
,
3053 bfd_generic_merge_sections
,
3054 bfd_generic_is_group_section
,
3055 bfd_generic_discard_group
,
3056 _bfd_generic_section_already_linked
,
3059 _bfd_xcoff_get_dynamic_symtab_upper_bound
,
3060 _bfd_xcoff_canonicalize_dynamic_symtab
,
3061 _bfd_nodynamic_get_synthetic_symtab
,
3062 _bfd_xcoff_get_dynamic_reloc_upper_bound
,
3063 _bfd_xcoff_canonicalize_dynamic_reloc
,
3065 /* Opposite endian version, none exists. */
3068 (void *) & bfd_xcoff_aix5_backend_data
,