1 /* BFD back-end for IBM RS/6000 "XCOFF64" files.
2 Copyright 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
4 Free Software Foundation, Inc.
5 Written Clinton Popetz.
6 Contributed by Cygnus Support.
8 This file is part of BFD, the Binary File Descriptor library.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
23 MA 02110-1301, USA. */
29 #include "coff/internal.h"
30 #include "coff/xcoff.h"
31 #include "coff/rs6k64.h"
35 #define GET_FILEHDR_SYMPTR H_GET_64
36 #define PUT_FILEHDR_SYMPTR H_PUT_64
37 #define GET_AOUTHDR_DATA_START H_GET_64
38 #define PUT_AOUTHDR_DATA_START H_PUT_64
39 #define GET_AOUTHDR_TEXT_START H_GET_64
40 #define PUT_AOUTHDR_TEXT_START H_PUT_64
41 #define GET_AOUTHDR_TSIZE H_GET_64
42 #define PUT_AOUTHDR_TSIZE H_PUT_64
43 #define GET_AOUTHDR_DSIZE H_GET_64
44 #define PUT_AOUTHDR_DSIZE H_PUT_64
45 #define GET_AOUTHDR_BSIZE H_GET_64
46 #define PUT_AOUTHDR_BSIZE H_PUT_64
47 #define GET_AOUTHDR_ENTRY H_GET_64
48 #define PUT_AOUTHDR_ENTRY H_PUT_64
49 #define GET_SCNHDR_PADDR H_GET_64
50 #define PUT_SCNHDR_PADDR H_PUT_64
51 #define GET_SCNHDR_VADDR H_GET_64
52 #define PUT_SCNHDR_VADDR H_PUT_64
53 #define GET_SCNHDR_SIZE H_GET_64
54 #define PUT_SCNHDR_SIZE H_PUT_64
55 #define GET_SCNHDR_SCNPTR H_GET_64
56 #define PUT_SCNHDR_SCNPTR H_PUT_64
57 #define GET_SCNHDR_RELPTR H_GET_64
58 #define PUT_SCNHDR_RELPTR H_PUT_64
59 #define GET_SCNHDR_LNNOPTR H_GET_64
60 #define PUT_SCNHDR_LNNOPTR H_PUT_64
61 #define GET_SCNHDR_NRELOC H_GET_32
62 #define MAX_SCNHDR_NRELOC 0xffffffff
63 #define PUT_SCNHDR_NRELOC H_PUT_32
64 #define GET_SCNHDR_NLNNO H_GET_32
65 #define MAX_SCNHDR_NLNNO 0xffffffff
66 #define PUT_SCNHDR_NLNNO H_PUT_32
67 #define GET_RELOC_VADDR H_GET_64
68 #define PUT_RELOC_VADDR H_PUT_64
70 #define COFF_FORCE_SYMBOLS_IN_STRINGS
71 #define COFF_DEBUG_STRING_WIDE_PREFIX
74 #define COFF_ADJUST_SCNHDR_OUT_POST(ABFD, INT, EXT) \
77 memset (((SCNHDR *) EXT)->s_pad, 0, \
78 sizeof (((SCNHDR *) EXT)->s_pad)); \
82 #define NO_COFF_LINENOS
84 #define coff_SWAP_lineno_in _bfd_xcoff64_swap_lineno_in
85 #define coff_SWAP_lineno_out _bfd_xcoff64_swap_lineno_out
87 static void _bfd_xcoff64_swap_lineno_in
88 (bfd
*, void *, void *);
89 static unsigned int _bfd_xcoff64_swap_lineno_out
90 (bfd
*, void *, void *);
91 static bfd_boolean _bfd_xcoff64_put_symbol_name
92 (bfd
*, struct bfd_strtab_hash
*, struct internal_syment
*, const char *);
93 static bfd_boolean _bfd_xcoff64_put_ldsymbol_name
94 (bfd
*, struct xcoff_loader_info
*, struct internal_ldsym
*, const char *);
95 static void _bfd_xcoff64_swap_sym_in
96 (bfd
*, void *, void *);
97 static unsigned int _bfd_xcoff64_swap_sym_out
98 (bfd
*, void *, void *);
99 static void _bfd_xcoff64_swap_aux_in
100 (bfd
*, void *, int, int, int, int, void *);
101 static unsigned int _bfd_xcoff64_swap_aux_out
102 (bfd
*, void *, int, int, int, int, void *);
103 static void xcoff64_swap_reloc_in
104 (bfd
*, void *, void *);
105 static unsigned int xcoff64_swap_reloc_out
106 (bfd
*, void *, void *);
107 extern bfd_boolean _bfd_xcoff_mkobject
109 extern bfd_boolean _bfd_xcoff_copy_private_bfd_data
111 extern bfd_boolean _bfd_xcoff_is_local_label_name
112 (bfd
*, const char *);
113 extern void xcoff64_rtype2howto
114 (arelent
*, struct internal_reloc
*);
115 extern reloc_howto_type
* xcoff64_reloc_type_lookup
116 (bfd
*, bfd_reloc_code_real_type
);
117 extern bfd_boolean _bfd_xcoff_slurp_armap
119 extern void *_bfd_xcoff_read_ar_hdr
121 extern bfd
*_bfd_xcoff_openr_next_archived_file
123 extern int _bfd_xcoff_stat_arch_elt
124 (bfd
*, struct stat
*);
125 extern bfd_boolean _bfd_xcoff_write_armap
126 (bfd
*, unsigned int, struct orl
*, unsigned int, int);
127 extern bfd_boolean _bfd_xcoff_write_archive_contents
129 extern int _bfd_xcoff_sizeof_headers
130 (bfd
*, struct bfd_link_info
*);
131 extern void _bfd_xcoff_swap_sym_in
132 (bfd
*, void *, void *);
133 extern unsigned int _bfd_xcoff_swap_sym_out
134 (bfd
*, void *, void *);
135 extern void _bfd_xcoff_swap_aux_in
136 (bfd
*, void *, int, int, int, int, void *);
137 extern unsigned int _bfd_xcoff_swap_aux_out
138 (bfd
*, void *, int, int, int, int, void *);
139 static void xcoff64_swap_ldhdr_in
140 (bfd
*, const void *, struct internal_ldhdr
*);
141 static void xcoff64_swap_ldhdr_out
142 (bfd
*, const struct internal_ldhdr
*, void *d
);
143 static void xcoff64_swap_ldsym_in
144 (bfd
*, const void *, struct internal_ldsym
*);
145 static void xcoff64_swap_ldsym_out
146 (bfd
*, const struct internal_ldsym
*, void *d
);
147 static void xcoff64_swap_ldrel_in
148 (bfd
*, const void *, struct internal_ldrel
*);
149 static void xcoff64_swap_ldrel_out
150 (bfd
*, const struct internal_ldrel
*, void *d
);
151 static bfd_boolean xcoff64_write_object_contents
153 static bfd_boolean xcoff64_ppc_relocate_section
154 (bfd
*, struct bfd_link_info
*, bfd
*, asection
*, bfd_byte
*,
155 struct internal_reloc
*, struct internal_syment
*,
157 static bfd_boolean xcoff64_slurp_armap
159 static const bfd_target
*xcoff64_archive_p
161 static bfd
*xcoff64_openr_next_archived_file
163 static int xcoff64_sizeof_headers
164 (bfd
*, struct bfd_link_info
*);
165 static asection
*xcoff64_create_csect_from_smclas
166 (bfd
*, union internal_auxent
*, const char *);
167 static bfd_boolean xcoff64_is_lineno_count_overflow
169 static bfd_boolean xcoff64_is_reloc_count_overflow
171 static bfd_vma xcoff64_loader_symbol_offset
172 (bfd
*, struct internal_ldhdr
*);
173 static bfd_vma xcoff64_loader_reloc_offset
174 (bfd
*, struct internal_ldhdr
*);
175 static bfd_boolean xcoff64_generate_rtinit
176 (bfd
*, const char *, const char *, bfd_boolean
);
177 static bfd_boolean xcoff64_bad_format_hook
180 /* Relocation functions */
181 static bfd_boolean xcoff64_reloc_type_br
182 (XCOFF_RELOC_FUNCTION_ARGS
);
184 bfd_boolean (*xcoff64_calculate_relocation
[XCOFF_MAX_CALCULATE_RELOCATION
])
185 (XCOFF_RELOC_FUNCTION_ARGS
) =
187 xcoff_reloc_type_pos
, /* R_POS (0x00) */
188 xcoff_reloc_type_neg
, /* R_NEG (0x01) */
189 xcoff_reloc_type_rel
, /* R_REL (0x02) */
190 xcoff_reloc_type_toc
, /* R_TOC (0x03) */
191 xcoff_reloc_type_fail
, /* R_RTB (0x04) */
192 xcoff_reloc_type_toc
, /* R_GL (0x05) */
193 xcoff_reloc_type_toc
, /* R_TCL (0x06) */
194 xcoff_reloc_type_fail
, /* (0x07) */
195 xcoff_reloc_type_ba
, /* R_BA (0x08) */
196 xcoff_reloc_type_fail
, /* (0x09) */
197 xcoff64_reloc_type_br
, /* R_BR (0x0a) */
198 xcoff_reloc_type_fail
, /* (0x0b) */
199 xcoff_reloc_type_pos
, /* R_RL (0x0c) */
200 xcoff_reloc_type_pos
, /* R_RLA (0x0d) */
201 xcoff_reloc_type_fail
, /* (0x0e) */
202 xcoff_reloc_type_noop
, /* R_REF (0x0f) */
203 xcoff_reloc_type_fail
, /* (0x10) */
204 xcoff_reloc_type_fail
, /* (0x11) */
205 xcoff_reloc_type_toc
, /* R_TRL (0x12) */
206 xcoff_reloc_type_toc
, /* R_TRLA (0x13) */
207 xcoff_reloc_type_fail
, /* R_RRTBI (0x14) */
208 xcoff_reloc_type_fail
, /* R_RRTBA (0x15) */
209 xcoff_reloc_type_ba
, /* R_CAI (0x16) */
210 xcoff_reloc_type_crel
, /* R_CREL (0x17) */
211 xcoff_reloc_type_ba
, /* R_RBA (0x18) */
212 xcoff_reloc_type_ba
, /* R_RBAC (0x19) */
213 xcoff64_reloc_type_br
, /* R_RBR (0x1a) */
214 xcoff_reloc_type_ba
, /* R_RBRC (0x1b) */
217 /* coffcode.h needs these to be defined. */
218 /* Internalcoff.h and coffcode.h modify themselves based on these flags. */
220 #define RS6000COFF_C 1
222 #define SELECT_RELOC(internal, howto) \
224 internal.r_type = howto->type; \
226 ((howto->complain_on_overflow == complain_overflow_signed \
229 | (howto->bitsize - 1)); \
232 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
233 #define COFF_LONG_FILENAMES
234 #define NO_COFF_SYMBOLS
235 #define RTYPE2HOWTO(cache_ptr, dst) xcoff64_rtype2howto (cache_ptr, dst)
236 #define coff_mkobject _bfd_xcoff_mkobject
237 #define coff_bfd_copy_private_bfd_data _bfd_xcoff_copy_private_bfd_data
238 #define coff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
239 #define coff_bfd_reloc_type_lookup xcoff64_reloc_type_lookup
240 #define coff_bfd_reloc_name_lookup xcoff64_reloc_name_lookup
242 extern const bfd_target
* rs6000coff_core_p
244 extern bfd_boolean rs6000coff_core_file_matches_executable_p
245 (bfd
*cbfd
, bfd
*ebfd
);
246 extern char *rs6000coff_core_file_failing_command
248 extern int rs6000coff_core_file_failing_signal
250 #define CORE_FILE_P rs6000coff_core_p
251 #define coff_core_file_failing_command \
252 rs6000coff_core_file_failing_command
253 #define coff_core_file_failing_signal \
254 rs6000coff_core_file_failing_signal
255 #define coff_core_file_matches_executable_p \
256 rs6000coff_core_file_matches_executable_p
257 #define coff_core_file_pid \
258 _bfd_nocore_core_file_pid
260 #define CORE_FILE_P _bfd_dummy_target
261 #define coff_core_file_failing_command \
262 _bfd_nocore_core_file_failing_command
263 #define coff_core_file_failing_signal \
264 _bfd_nocore_core_file_failing_signal
265 #define coff_core_file_matches_executable_p \
266 _bfd_nocore_core_file_matches_executable_p
267 #define coff_core_file_pid \
268 _bfd_nocore_core_file_pid
270 #define coff_SWAP_sym_in _bfd_xcoff64_swap_sym_in
271 #define coff_SWAP_sym_out _bfd_xcoff64_swap_sym_out
272 #define coff_SWAP_aux_in _bfd_xcoff64_swap_aux_in
273 #define coff_SWAP_aux_out _bfd_xcoff64_swap_aux_out
274 #define coff_swap_reloc_in xcoff64_swap_reloc_in
275 #define coff_swap_reloc_out xcoff64_swap_reloc_out
276 #define NO_COFF_RELOCS
278 #ifndef bfd_pe_print_pdata
279 #define bfd_pe_print_pdata NULL
282 #include "coffcode.h"
284 /* For XCOFF64, the effective width of symndx changes depending on
285 whether we are the first entry. Sigh. */
287 _bfd_xcoff64_swap_lineno_in (bfd
*abfd
, void *ext1
, void *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 (bfd
*abfd
, void *inp
, void *outp
)
302 struct internal_lineno
*in
= (struct internal_lineno
*) inp
;
303 struct external_lineno
*ext
= (struct external_lineno
*) outp
;
305 H_PUT_32 (abfd
, in
->l_addr
.l_symndx
, ext
->l_addr
.l_symndx
);
306 H_PUT_32 (abfd
, in
->l_lnno
, (ext
->l_lnno
));
309 H_PUT_32 (abfd
, in
->l_addr
.l_symndx
, ext
->l_addr
.l_symndx
);
311 H_PUT_64 (abfd
, in
->l_addr
.l_paddr
, ext
->l_addr
.l_paddr
);
313 return bfd_coff_linesz (abfd
);
317 _bfd_xcoff64_swap_sym_in (bfd
*abfd
, void *ext1
, void *in1
)
319 struct external_syment
*ext
= (struct external_syment
*) ext1
;
320 struct internal_syment
*in
= (struct internal_syment
*) in1
;
322 in
->_n
._n_n
._n_zeroes
= 0;
323 in
->_n
._n_n
._n_offset
= H_GET_32 (abfd
, ext
->e_offset
);
324 in
->n_value
= H_GET_64 (abfd
, ext
->e_value
);
325 in
->n_scnum
= H_GET_16 (abfd
, ext
->e_scnum
);
326 in
->n_type
= H_GET_16 (abfd
, ext
->e_type
);
327 in
->n_sclass
= H_GET_8 (abfd
, ext
->e_sclass
);
328 in
->n_numaux
= H_GET_8 (abfd
, ext
->e_numaux
);
332 _bfd_xcoff64_swap_sym_out (bfd
*abfd
, void *inp
, void *extp
)
334 struct internal_syment
*in
= (struct internal_syment
*) inp
;
335 struct external_syment
*ext
= (struct external_syment
*) extp
;
337 H_PUT_32 (abfd
, in
->_n
._n_n
._n_offset
, ext
->e_offset
);
338 H_PUT_64 (abfd
, in
->n_value
, ext
->e_value
);
339 H_PUT_16 (abfd
, in
->n_scnum
, ext
->e_scnum
);
340 H_PUT_16 (abfd
, in
->n_type
, ext
->e_type
);
341 H_PUT_8 (abfd
, in
->n_sclass
, ext
->e_sclass
);
342 H_PUT_8 (abfd
, in
->n_numaux
, ext
->e_numaux
);
343 return bfd_coff_symesz (abfd
);
347 _bfd_xcoff64_swap_aux_in (bfd
*abfd
, void *ext1
, int type
, int in_class
,
348 int indx
, int numaux
, void *in1
)
350 union external_auxent
*ext
= (union external_auxent
*) ext1
;
351 union internal_auxent
*in
= (union internal_auxent
*) in1
;
356 if (ext
->x_file
.x_n
.x_n
.x_zeroes
[0] == 0)
358 in
->x_file
.x_n
.x_zeroes
= 0;
359 in
->x_file
.x_n
.x_offset
=
360 H_GET_32 (abfd
, ext
->x_file
.x_n
.x_n
.x_offset
);
364 memcpy (in
->x_file
.x_fname
, ext
->x_file
.x_n
.x_fname
, FILNMLEN
);
368 /* RS/6000 "csect" auxents */
372 if (indx
+ 1 == numaux
)
374 bfd_signed_vma h
= 0;
377 h
= H_GET_S32 (abfd
, ext
->x_csect
.x_scnlen_hi
);
378 l
= H_GET_32 (abfd
, ext
->x_csect
.x_scnlen_lo
);
380 in
->x_csect
.x_scnlen
.l
= h
<< 32 | (l
& 0xffffffff);
382 in
->x_csect
.x_parmhash
= H_GET_32 (abfd
, ext
->x_csect
.x_parmhash
);
383 in
->x_csect
.x_snhash
= H_GET_16 (abfd
, ext
->x_csect
.x_snhash
);
384 /* We don't have to hack bitfields in x_smtyp because it's
385 defined by shifts-and-ands, which are equivalent on all
387 in
->x_csect
.x_smtyp
= H_GET_8 (abfd
, ext
->x_csect
.x_smtyp
);
388 in
->x_csect
.x_smclas
= H_GET_8 (abfd
, ext
->x_csect
.x_smclas
);
398 /* PE defines some extra fields; we zero them out for
400 in
->x_scn
.x_checksum
= 0;
401 in
->x_scn
.x_associated
= 0;
402 in
->x_scn
.x_comdat
= 0;
409 if (in_class
== C_BLOCK
|| in_class
== C_FCN
|| ISFCN (type
)
412 in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
413 = H_GET_64 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
414 in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
415 = H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
419 in
->x_sym
.x_misc
.x_fsize
420 = H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_fsize
);
424 in
->x_sym
.x_misc
.x_lnsz
.x_lnno
425 = H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_lnsz
.x_lnno
);
426 in
->x_sym
.x_misc
.x_lnsz
.x_size
427 = H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_lnsz
.x_size
);
434 _bfd_xcoff64_swap_aux_out (bfd
*abfd
, void *inp
, int type
, int in_class
,
435 int indx ATTRIBUTE_UNUSED
,
436 int numaux ATTRIBUTE_UNUSED
,
439 union internal_auxent
*in
= (union internal_auxent
*) inp
;
440 union external_auxent
*ext
= (union external_auxent
*) extp
;
442 memset (ext
, 0, bfd_coff_auxesz (abfd
));
446 if (in
->x_file
.x_n
.x_zeroes
== 0)
448 H_PUT_32 (abfd
, 0, ext
->x_file
.x_n
.x_n
.x_zeroes
);
449 H_PUT_32 (abfd
, in
->x_file
.x_n
.x_offset
,
450 ext
->x_file
.x_n
.x_n
.x_offset
);
454 memcpy (ext
->x_file
.x_n
.x_fname
, in
->x_file
.x_fname
, FILNMLEN
);
456 H_PUT_8 (abfd
, _AUX_FILE
, ext
->x_auxtype
.x_auxtype
);
459 /* RS/6000 "csect" auxents */
463 if (indx
+ 1 == numaux
)
467 temp
= in
->x_csect
.x_scnlen
.l
& 0xffffffff;
468 H_PUT_32 (abfd
, temp
, ext
->x_csect
.x_scnlen_lo
);
469 temp
= in
->x_csect
.x_scnlen
.l
>> 32;
470 H_PUT_32 (abfd
, temp
, ext
->x_csect
.x_scnlen_hi
);
471 H_PUT_32 (abfd
, in
->x_csect
.x_parmhash
, ext
->x_csect
.x_parmhash
);
472 H_PUT_16 (abfd
, in
->x_csect
.x_snhash
, ext
->x_csect
.x_snhash
);
473 /* We don't have to hack bitfields in x_smtyp because it's
474 defined by shifts-and-ands, which are equivalent on all
476 H_PUT_8 (abfd
, in
->x_csect
.x_smtyp
, ext
->x_csect
.x_smtyp
);
477 H_PUT_8 (abfd
, in
->x_csect
.x_smclas
, ext
->x_csect
.x_smclas
);
478 H_PUT_8 (abfd
, _AUX_CSECT
, ext
->x_auxtype
.x_auxtype
);
493 if (in_class
== C_BLOCK
|| in_class
== C_FCN
|| ISFCN (type
)
496 H_PUT_64 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
,
497 ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
498 H_PUT_8 (abfd
, _AUX_FCN
,
499 ext
->x_auxtype
.x_auxtype
);
500 H_PUT_32 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
501 ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
505 H_PUT_32 (abfd
, in
->x_sym
.x_misc
.x_fsize
,
506 ext
->x_sym
.x_fcnary
.x_fcn
.x_fsize
);
510 H_PUT_32 (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_lnno
,
511 ext
->x_sym
.x_fcnary
.x_lnsz
.x_lnno
);
512 H_PUT_16 (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_size
,
513 ext
->x_sym
.x_fcnary
.x_lnsz
.x_size
);
518 return bfd_coff_auxesz (abfd
);
522 _bfd_xcoff64_put_symbol_name (bfd
*abfd
, struct bfd_strtab_hash
*strtab
,
523 struct internal_syment
*sym
,
531 if ((abfd
->flags
& BFD_TRADITIONAL_FORMAT
) != 0)
534 indx
= _bfd_stringtab_add (strtab
, name
, hash
, FALSE
);
536 if (indx
== (bfd_size_type
) -1)
539 sym
->_n
._n_n
._n_zeroes
= 0;
540 sym
->_n
._n_n
._n_offset
= STRING_SIZE_SIZE
+ indx
;
546 _bfd_xcoff64_put_ldsymbol_name (bfd
*abfd ATTRIBUTE_UNUSED
,
547 struct xcoff_loader_info
*ldinfo
,
548 struct internal_ldsym
*ldsym
,
554 if (ldinfo
->string_size
+ len
+ 3 > ldinfo
->string_alc
)
556 bfd_size_type newalc
;
559 newalc
= ldinfo
->string_alc
* 2;
562 while (ldinfo
->string_size
+ len
+ 3 > newalc
)
565 newstrings
= bfd_realloc (ldinfo
->strings
, newalc
);
566 if (newstrings
== NULL
)
568 ldinfo
->failed
= TRUE
;
571 ldinfo
->string_alc
= newalc
;
572 ldinfo
->strings
= newstrings
;
575 bfd_put_16 (ldinfo
->output_bfd
, (bfd_vma
) (len
+ 1),
576 ldinfo
->strings
+ ldinfo
->string_size
);
577 strcpy (ldinfo
->strings
+ ldinfo
->string_size
+ 2, name
);
578 ldsym
->_l
._l_l
._l_zeroes
= 0;
579 ldsym
->_l
._l_l
._l_offset
= ldinfo
->string_size
+ 2;
580 ldinfo
->string_size
+= len
+ 3;
585 /* Routines to swap information in the XCOFF .loader section. If we
586 ever need to write an XCOFF loader, this stuff will need to be
587 moved to another file shared by the linker (which XCOFF calls the
588 ``binder'') and the loader. */
590 /* Swap in the ldhdr structure. */
593 xcoff64_swap_ldhdr_in (bfd
*abfd
,
595 struct internal_ldhdr
*dst
)
597 const struct external_ldhdr
*src
= (const struct external_ldhdr
*) s
;
599 dst
->l_version
= bfd_get_32 (abfd
, src
->l_version
);
600 dst
->l_nsyms
= bfd_get_32 (abfd
, src
->l_nsyms
);
601 dst
->l_nreloc
= bfd_get_32 (abfd
, src
->l_nreloc
);
602 dst
->l_istlen
= bfd_get_32 (abfd
, src
->l_istlen
);
603 dst
->l_nimpid
= bfd_get_32 (abfd
, src
->l_nimpid
);
604 dst
->l_stlen
= bfd_get_32 (abfd
, src
->l_stlen
);
605 dst
->l_impoff
= bfd_get_64 (abfd
, src
->l_impoff
);
606 dst
->l_stoff
= bfd_get_64 (abfd
, src
->l_stoff
);
607 dst
->l_symoff
= bfd_get_64 (abfd
, src
->l_symoff
);
608 dst
->l_rldoff
= bfd_get_64 (abfd
, src
->l_rldoff
);
611 /* Swap out the ldhdr structure. */
614 xcoff64_swap_ldhdr_out (bfd
*abfd
, const struct internal_ldhdr
*src
, void *d
)
616 struct external_ldhdr
*dst
= (struct external_ldhdr
*) d
;
618 bfd_put_32 (abfd
, (bfd_vma
) src
->l_version
, dst
->l_version
);
619 bfd_put_32 (abfd
, src
->l_nsyms
, dst
->l_nsyms
);
620 bfd_put_32 (abfd
, src
->l_nreloc
, dst
->l_nreloc
);
621 bfd_put_32 (abfd
, src
->l_istlen
, dst
->l_istlen
);
622 bfd_put_32 (abfd
, src
->l_nimpid
, dst
->l_nimpid
);
623 bfd_put_32 (abfd
, src
->l_stlen
, dst
->l_stlen
);
624 bfd_put_64 (abfd
, src
->l_impoff
, dst
->l_impoff
);
625 bfd_put_64 (abfd
, src
->l_stoff
, dst
->l_stoff
);
626 bfd_put_64 (abfd
, src
->l_symoff
, dst
->l_symoff
);
627 bfd_put_64 (abfd
, src
->l_rldoff
, dst
->l_rldoff
);
630 /* Swap in the ldsym structure. */
633 xcoff64_swap_ldsym_in (bfd
*abfd
, const void *s
, struct internal_ldsym
*dst
)
635 const struct external_ldsym
*src
= (const struct external_ldsym
*) s
;
636 /* XCOFF64 does not use l_zeroes like XCOFF32
637 Set the internal l_zeroes to 0 so the common 32/64 code uses l_value
638 as an offset into the loader symbol table. */
639 dst
->_l
._l_l
._l_zeroes
= 0;
640 dst
->_l
._l_l
._l_offset
= bfd_get_32 (abfd
, src
->l_offset
);
641 dst
->l_value
= bfd_get_64 (abfd
, src
->l_value
);
642 dst
->l_scnum
= bfd_get_16 (abfd
, src
->l_scnum
);
643 dst
->l_smtype
= bfd_get_8 (abfd
, src
->l_smtype
);
644 dst
->l_smclas
= bfd_get_8 (abfd
, src
->l_smclas
);
645 dst
->l_ifile
= bfd_get_32 (abfd
, src
->l_ifile
);
646 dst
->l_parm
= bfd_get_32 (abfd
, src
->l_parm
);
649 /* Swap out the ldsym structure. */
652 xcoff64_swap_ldsym_out (bfd
*abfd
, const struct internal_ldsym
*src
, void *d
)
654 struct external_ldsym
*dst
= (struct external_ldsym
*) d
;
656 bfd_put_64 (abfd
, src
->l_value
, dst
->l_value
);
657 bfd_put_32 (abfd
, (bfd_vma
) src
->_l
._l_l
._l_offset
, dst
->l_offset
);
658 bfd_put_16 (abfd
, (bfd_vma
) src
->l_scnum
, dst
->l_scnum
);
659 bfd_put_8 (abfd
, src
->l_smtype
, dst
->l_smtype
);
660 bfd_put_8 (abfd
, src
->l_smclas
, dst
->l_smclas
);
661 bfd_put_32 (abfd
, src
->l_ifile
, dst
->l_ifile
);
662 bfd_put_32 (abfd
, src
->l_parm
, dst
->l_parm
);
666 xcoff64_swap_reloc_in (bfd
*abfd
, void *s
, void *d
)
668 struct external_reloc
*src
= (struct external_reloc
*) s
;
669 struct internal_reloc
*dst
= (struct internal_reloc
*) d
;
671 memset (dst
, 0, sizeof (struct internal_reloc
));
673 dst
->r_vaddr
= bfd_get_64 (abfd
, src
->r_vaddr
);
674 dst
->r_symndx
= bfd_get_32 (abfd
, src
->r_symndx
);
675 dst
->r_size
= bfd_get_8 (abfd
, src
->r_size
);
676 dst
->r_type
= bfd_get_8 (abfd
, src
->r_type
);
680 xcoff64_swap_reloc_out (bfd
*abfd
, void *s
, void *d
)
682 struct internal_reloc
*src
= (struct internal_reloc
*) s
;
683 struct external_reloc
*dst
= (struct external_reloc
*) d
;
685 bfd_put_64 (abfd
, src
->r_vaddr
, dst
->r_vaddr
);
686 bfd_put_32 (abfd
, src
->r_symndx
, dst
->r_symndx
);
687 bfd_put_8 (abfd
, src
->r_type
, dst
->r_type
);
688 bfd_put_8 (abfd
, src
->r_size
, dst
->r_size
);
690 return bfd_coff_relsz (abfd
);
693 /* Swap in the ldrel structure. */
696 xcoff64_swap_ldrel_in (bfd
*abfd
, const void *s
, struct internal_ldrel
*dst
)
698 const struct external_ldrel
*src
= (const struct external_ldrel
*) s
;
700 dst
->l_vaddr
= bfd_get_64 (abfd
, src
->l_vaddr
);
701 dst
->l_symndx
= bfd_get_32 (abfd
, src
->l_symndx
);
702 dst
->l_rtype
= bfd_get_16 (abfd
, src
->l_rtype
);
703 dst
->l_rsecnm
= bfd_get_16 (abfd
, src
->l_rsecnm
);
706 /* Swap out the ldrel structure. */
709 xcoff64_swap_ldrel_out (bfd
*abfd
, const struct internal_ldrel
*src
, void *d
)
711 struct external_ldrel
*dst
= (struct external_ldrel
*) d
;
713 bfd_put_64 (abfd
, src
->l_vaddr
, dst
->l_vaddr
);
714 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rtype
, dst
->l_rtype
);
715 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rsecnm
, dst
->l_rsecnm
);
716 bfd_put_32 (abfd
, src
->l_symndx
, dst
->l_symndx
);
720 xcoff64_write_object_contents (bfd
*abfd
)
723 bfd_boolean hasrelocs
= FALSE
;
724 bfd_boolean haslinno
= FALSE
;
727 file_ptr lineno_base
;
729 unsigned long reloc_size
= 0;
730 unsigned long lnno_size
= 0;
731 asection
*text_sec
= NULL
;
732 asection
*data_sec
= NULL
;
733 asection
*bss_sec
= NULL
;
734 struct internal_filehdr internal_f
;
735 struct internal_aouthdr internal_a
;
737 bfd_set_error (bfd_error_system_call
);
739 if (! abfd
->output_has_begun
)
741 if (! bfd_coff_compute_section_file_positions (abfd
))
745 /* Work out the size of the reloc and linno areas. */
746 reloc_base
= obj_relocbase (abfd
);
748 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
749 reloc_size
+= current
->reloc_count
* bfd_coff_relsz (abfd
);
751 lineno_base
= reloc_base
+ reloc_size
;
753 /* Make a pass through the symbol table to count line number entries and
754 put them into the correct asections. */
755 lnno_size
= coff_count_linenumbers (abfd
) * bfd_coff_linesz (abfd
);
757 sym_base
= lineno_base
+ lnno_size
;
759 /* Indicate in each section->line_filepos its actual file address. */
760 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
762 if (current
->lineno_count
)
764 current
->line_filepos
= lineno_base
;
765 current
->moving_line_filepos
= lineno_base
;
766 lineno_base
+= current
->lineno_count
* bfd_coff_linesz (abfd
);
770 current
->line_filepos
= 0;
773 if (current
->reloc_count
)
775 current
->rel_filepos
= reloc_base
;
776 reloc_base
+= current
->reloc_count
* bfd_coff_relsz (abfd
);
780 current
->rel_filepos
= 0;
784 if ((abfd
->flags
& EXEC_P
) != 0)
786 scn_base
= bfd_coff_filhsz (abfd
) + bfd_coff_aoutsz (abfd
);
787 internal_f
.f_opthdr
= bfd_coff_aoutsz (abfd
);
791 scn_base
= bfd_coff_filhsz (abfd
);
792 internal_f
.f_opthdr
= 0;
795 internal_f
.f_nscns
= 0;
797 if (bfd_seek (abfd
, scn_base
, SEEK_SET
) != 0)
800 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
802 struct internal_scnhdr section
;
803 struct external_scnhdr buff
;
804 bfd_size_type amount
;
806 internal_f
.f_nscns
++;
808 strncpy (section
.s_name
, current
->name
, SCNNMLEN
);
810 section
.s_vaddr
= current
->vma
;
811 section
.s_paddr
= current
->lma
;
812 section
.s_size
= current
->size
;
814 /* If this section has no size or is unloadable then the scnptr
816 if (current
->size
== 0
817 || (current
->flags
& (SEC_LOAD
| SEC_HAS_CONTENTS
)) == 0)
819 section
.s_scnptr
= 0;
823 section
.s_scnptr
= current
->filepos
;
826 section
.s_relptr
= current
->rel_filepos
;
827 section
.s_lnnoptr
= current
->line_filepos
;
828 section
.s_nreloc
= current
->reloc_count
;
830 section
.s_nlnno
= current
->lineno_count
;
831 if (current
->reloc_count
!= 0)
833 if (current
->lineno_count
!= 0)
836 section
.s_flags
= sec_to_styp_flags (current
->name
, current
->flags
);
838 if (!strcmp (current
->name
, _TEXT
))
842 else if (!strcmp (current
->name
, _DATA
))
846 else if (!strcmp (current
->name
, _BSS
))
851 amount
= bfd_coff_scnhsz (abfd
);
852 if (bfd_coff_swap_scnhdr_out (abfd
, §ion
, &buff
) == 0
853 || bfd_bwrite (&buff
, amount
, abfd
) != amount
)
857 internal_f
.f_timdat
= 0;
859 internal_f
.f_flags
= 0;
862 internal_f
.f_flags
|= F_RELFLG
;
864 internal_f
.f_flags
|= F_LNNO
;
865 if (abfd
->flags
& EXEC_P
)
866 internal_f
.f_flags
|= F_EXEC
;
868 /* FIXME: this is wrong for PPC_PE! */
869 if (bfd_little_endian (abfd
))
870 internal_f
.f_flags
|= F_AR32WR
;
872 internal_f
.f_flags
|= F_AR32W
;
874 if ((abfd
->flags
& DYNAMIC
) != 0)
875 internal_f
.f_flags
|= F_SHROBJ
;
876 if (bfd_get_section_by_name (abfd
, _LOADER
) != NULL
)
877 internal_f
.f_flags
|= F_DYNLOAD
;
879 memset (&internal_a
, 0, sizeof internal_a
);
881 internal_f
.f_magic
= bfd_xcoff_magic_number (abfd
);
882 internal_a
.magic
= (abfd
->flags
& D_PAGED
883 ? RS6K_AOUTHDR_ZMAGIC
884 : (abfd
->flags
& WP_TEXT
885 ? RS6K_AOUTHDR_NMAGIC
886 : RS6K_AOUTHDR_OMAGIC
));
888 /* FIXME: Does anybody ever set this to another value? */
889 internal_a
.vstamp
= 0;
891 /* Now should write relocs, strings, syms. */
892 obj_sym_filepos (abfd
) = sym_base
;
894 internal_f
.f_symptr
= 0;
895 internal_f
.f_nsyms
= 0;
897 /* If bfd_get_symcount (abfd) != 0, then we are not using the COFF
898 backend linker, and obj_raw_syment_count is not valid until after
899 coff_write_symbols is called. */
900 if (bfd_get_symcount (abfd
) != 0)
904 if (!coff_renumber_symbols (abfd
, &firstundef
))
906 coff_mangle_symbols (abfd
);
907 if (! coff_write_symbols (abfd
))
909 if (! coff_write_linenumbers (abfd
))
911 if (! coff_write_relocs (abfd
, firstundef
))
914 internal_f
.f_symptr
= sym_base
;
915 internal_f
.f_nsyms
= bfd_get_symcount (abfd
);
917 else if (obj_raw_syment_count (abfd
) != 0)
919 internal_f
.f_symptr
= sym_base
;
921 /* AIX appears to require that F_RELFLG not be set if there are
922 local symbols but no relocations. */
923 internal_f
.f_flags
&=~ F_RELFLG
;
927 internal_f
.f_flags
|= F_LSYMS
;
932 internal_a
.tsize
= text_sec
->size
;
933 internal_a
.text_start
= internal_a
.tsize
? text_sec
->vma
: 0;
938 internal_a
.dsize
= data_sec
->size
;
939 internal_a
.data_start
= internal_a
.dsize
? data_sec
->vma
: 0;
944 internal_a
.bsize
= bss_sec
->size
;
945 if (internal_a
.bsize
&& bss_sec
->vma
< internal_a
.data_start
)
946 internal_a
.data_start
= bss_sec
->vma
;
949 internal_a
.entry
= bfd_get_start_address (abfd
);
950 internal_f
.f_nsyms
= obj_raw_syment_count (abfd
);
952 if (xcoff_data (abfd
)->full_aouthdr
)
955 asection
*loader_sec
;
957 internal_a
.vstamp
= 1;
959 internal_a
.o_snentry
= xcoff_data (abfd
)->snentry
;
960 if (internal_a
.o_snentry
== 0)
961 internal_a
.entry
= (bfd_vma
) -1;
963 if (text_sec
!= NULL
)
965 internal_a
.o_sntext
= text_sec
->target_index
;
966 internal_a
.o_algntext
= bfd_get_section_alignment (abfd
, text_sec
);
970 internal_a
.o_sntext
= 0;
971 internal_a
.o_algntext
= 0;
974 if (data_sec
!= NULL
)
976 internal_a
.o_sndata
= data_sec
->target_index
;
977 internal_a
.o_algndata
= bfd_get_section_alignment (abfd
, data_sec
);
981 internal_a
.o_sndata
= 0;
982 internal_a
.o_algndata
= 0;
985 loader_sec
= bfd_get_section_by_name (abfd
, ".loader");
986 if (loader_sec
!= NULL
)
987 internal_a
.o_snloader
= loader_sec
->target_index
;
989 internal_a
.o_snloader
= 0;
991 internal_a
.o_snbss
= bss_sec
->target_index
;
993 internal_a
.o_snbss
= 0;
995 toc
= xcoff_data (abfd
)->toc
;
996 internal_a
.o_toc
= toc
;
997 internal_a
.o_sntoc
= xcoff_data (abfd
)->sntoc
;
999 internal_a
.o_modtype
= xcoff_data (abfd
)->modtype
;
1000 if (xcoff_data (abfd
)->cputype
!= -1)
1001 internal_a
.o_cputype
= xcoff_data (abfd
)->cputype
;
1004 switch (bfd_get_arch (abfd
))
1006 case bfd_arch_rs6000
:
1007 internal_a
.o_cputype
= 4;
1009 case bfd_arch_powerpc
:
1010 if (bfd_get_mach (abfd
) == bfd_mach_ppc
)
1011 internal_a
.o_cputype
= 3;
1012 else if (bfd_get_mach (abfd
) == bfd_mach_ppc_620
)
1013 internal_a
.o_cputype
= 2;
1015 internal_a
.o_cputype
= 1;
1021 internal_a
.o_maxstack
= xcoff_data (abfd
)->maxstack
;
1022 internal_a
.o_maxdata
= xcoff_data (abfd
)->maxdata
;
1025 if (bfd_seek (abfd
, (file_ptr
) 0, 0) != 0)
1030 bfd_size_type amount
= bfd_coff_filhsz (abfd
);
1032 buff
= bfd_malloc (amount
);
1036 bfd_coff_swap_filehdr_out (abfd
, &internal_f
, buff
);
1037 amount
= bfd_bwrite (buff
, amount
, abfd
);
1041 if (amount
!= bfd_coff_filhsz (abfd
))
1045 if (abfd
->flags
& EXEC_P
)
1048 bfd_size_type amount
= bfd_coff_aoutsz (abfd
);
1050 buff
= bfd_malloc (amount
);
1054 bfd_coff_swap_aouthdr_out (abfd
, &internal_a
, buff
);
1055 amount
= bfd_bwrite (buff
, amount
, abfd
);
1059 if (amount
!= bfd_coff_aoutsz (abfd
))
1067 xcoff64_reloc_type_br (bfd
*input_bfd
,
1068 asection
*input_section
,
1069 bfd
*output_bfd ATTRIBUTE_UNUSED
,
1070 struct internal_reloc
*rel
,
1071 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
1072 struct reloc_howto_struct
*howto
,
1075 bfd_vma
*relocation
,
1078 struct xcoff_link_hash_entry
*h
;
1079 bfd_vma section_offset
;
1081 if (0 > rel
->r_symndx
)
1084 h
= obj_xcoff_sym_hashes (input_bfd
)[rel
->r_symndx
];
1085 section_offset
= rel
->r_vaddr
- input_section
->vma
;
1087 /* If we see an R_BR or R_RBR reloc which is jumping to global
1088 linkage code, and it is followed by an appropriate cror nop
1089 instruction, we replace the cror with ld r2,40(r1). This
1090 restores the TOC after the glink code. Contrariwise, if the
1091 call is followed by a ld r2,40(r1), but the call is not
1092 going to global linkage code, we can replace the load with a
1095 && (bfd_link_hash_defined
== h
->root
.type
1096 || bfd_link_hash_defweak
== h
->root
.type
)
1097 && section_offset
+ 8 <= input_section
->size
)
1102 pnext
= contents
+ section_offset
+ 4;
1103 next
= bfd_get_32 (input_bfd
, pnext
);
1105 /* The _ptrgl function is magic. It is used by the AIX compiler to call
1106 a function through a pointer. */
1107 if (h
->smclas
== XMC_GL
|| strcmp (h
->root
.root
.string
, "._ptrgl") == 0)
1109 if (next
== 0x4def7b82 /* cror 15,15,15 */
1110 || next
== 0x4ffffb82 /* cror 31,31,31 */
1111 || next
== 0x60000000) /* ori r0,r0,0 */
1112 bfd_put_32 (input_bfd
, 0xe8410028, pnext
); /* ld r2,40(r1) */
1116 if (next
== 0xe8410028) /* ld r2,40(r1) */
1117 bfd_put_32 (input_bfd
, 0x60000000, pnext
); /* ori r0,r0,0 */
1120 else if (NULL
!= h
&& bfd_link_hash_undefined
== h
->root
.type
)
1122 /* Normally, this relocation is against a defined symbol. In the
1123 case where this is a partial link and the output section offset
1124 is greater than 2^25, the linker will return an invalid error
1125 message that the relocation has been truncated. Yes it has been
1126 truncated but no it not important. For this case, disable the
1127 overflow checking. */
1128 howto
->complain_on_overflow
= complain_overflow_dont
;
1131 /* The original PC-relative relocation is biased by -r_vaddr, so adding
1132 the value below will give the absolute target address. */
1133 *relocation
= val
+ addend
+ rel
->r_vaddr
;
1135 howto
->src_mask
&= ~3;
1136 howto
->dst_mask
= howto
->src_mask
;
1139 && (h
->root
.type
== bfd_link_hash_defined
1140 || h
->root
.type
== bfd_link_hash_defweak
)
1141 && bfd_is_abs_section (h
->root
.u
.def
.section
)
1142 && section_offset
+ 4 <= input_section
->size
)
1147 /* Turn the relative branch into an absolute one by setting the
1149 ptr
= contents
+ section_offset
;
1150 insn
= bfd_get_32 (input_bfd
, ptr
);
1152 bfd_put_32 (input_bfd
, insn
, ptr
);
1154 /* Make the howto absolute too. */
1155 howto
->pc_relative
= FALSE
;
1156 howto
->complain_on_overflow
= complain_overflow_bitfield
;
1160 /* Use a PC-relative howto and subtract the instruction's address
1161 from the target address we calculated above. */
1162 howto
->pc_relative
= TRUE
;
1163 *relocation
-= (input_section
->output_section
->vma
1164 + input_section
->output_offset
1170 /* This is the relocation function for the PowerPC64.
1171 See xcoff_ppc_relocation_section for more information. */
1174 xcoff64_ppc_relocate_section (bfd
*output_bfd
,
1175 struct bfd_link_info
*info
,
1177 asection
*input_section
,
1179 struct internal_reloc
*relocs
,
1180 struct internal_syment
*syms
,
1181 asection
**sections
)
1183 struct internal_reloc
*rel
;
1184 struct internal_reloc
*relend
;
1187 relend
= rel
+ input_section
->reloc_count
;
1188 for (; rel
< relend
; rel
++)
1191 struct xcoff_link_hash_entry
*h
;
1192 struct internal_syment
*sym
;
1195 struct reloc_howto_struct howto
;
1197 bfd_vma value_to_relocate
;
1201 /* Relocation type R_REF is a special relocation type which is
1202 merely used to prevent garbage collection from occurring for
1203 the csect including the symbol which it references. */
1204 if (rel
->r_type
== R_REF
)
1208 howto
.type
= rel
->r_type
;
1209 howto
.rightshift
= 0;
1210 howto
.bitsize
= (rel
->r_size
& 0x3f) + 1;
1211 howto
.size
= howto
.bitsize
> 16 ? (howto
.bitsize
> 32 ? 4 : 2) : 1;
1212 howto
.pc_relative
= FALSE
;
1214 howto
.complain_on_overflow
= (rel
->r_size
& 0x80
1215 ? complain_overflow_signed
1216 : complain_overflow_bitfield
);
1217 howto
.special_function
= NULL
;
1218 howto
.name
= "internal";
1219 howto
.partial_inplace
= TRUE
;
1220 howto
.src_mask
= howto
.dst_mask
= N_ONES (howto
.bitsize
);
1221 howto
.pcrel_offset
= FALSE
;
1228 symndx
= rel
->r_symndx
;
1234 h
= obj_xcoff_sym_hashes (input_bfd
)[symndx
];
1235 sym
= syms
+ symndx
;
1236 addend
= - sym
->n_value
;
1240 sec
= sections
[symndx
];
1241 /* Hack to make sure we use the right TOC anchor value
1242 if this reloc is against the TOC anchor. */
1243 if (sec
->name
[3] == '0'
1244 && strcmp (sec
->name
, ".tc0") == 0)
1245 val
= xcoff_data (output_bfd
)->toc
;
1247 val
= (sec
->output_section
->vma
1248 + sec
->output_offset
1254 if (info
->unresolved_syms_in_objects
!= RM_IGNORE
1255 && (h
->flags
& XCOFF_WAS_UNDEFINED
) != 0)
1257 if (! ((*info
->callbacks
->undefined_symbol
)
1258 (info
, h
->root
.root
.string
,
1259 input_bfd
, input_section
,
1260 rel
->r_vaddr
- input_section
->vma
,
1261 (info
->unresolved_syms_in_objects
1262 == RM_GENERATE_ERROR
))))
1265 if (h
->root
.type
== bfd_link_hash_defined
1266 || h
->root
.type
== bfd_link_hash_defweak
)
1268 sec
= h
->root
.u
.def
.section
;
1269 val
= (h
->root
.u
.def
.value
1270 + sec
->output_section
->vma
1271 + sec
->output_offset
);
1273 else if (h
->root
.type
== bfd_link_hash_common
)
1275 sec
= h
->root
.u
.c
.p
->section
;
1276 val
= (sec
->output_section
->vma
1277 + sec
->output_offset
);
1281 BFD_ASSERT (info
->relocatable
1282 || (h
->flags
& XCOFF_DEF_DYNAMIC
) != 0
1283 || (h
->flags
& XCOFF_IMPORT
) != 0);
1288 if (rel
->r_type
>= XCOFF_MAX_CALCULATE_RELOCATION
1289 || !((*xcoff64_calculate_relocation
[rel
->r_type
])
1290 (input_bfd
, input_section
, output_bfd
, rel
, sym
, &howto
, val
,
1291 addend
, &relocation
, contents
)))
1295 address
= rel
->r_vaddr
- input_section
->vma
;
1296 location
= contents
+ address
;
1298 if (address
> input_section
->size
)
1301 /* Get the value we are going to relocate. */
1302 if (1 == howto
.size
)
1303 value_to_relocate
= bfd_get_16 (input_bfd
, location
);
1304 else if (2 == howto
.size
)
1305 value_to_relocate
= bfd_get_32 (input_bfd
, location
);
1307 value_to_relocate
= bfd_get_64 (input_bfd
, location
);
1311 FIXME: We may drop bits during the addition
1312 which we don't check for. We must either check at every single
1313 operation, which would be tedious, or we must do the computations
1314 in a type larger than bfd_vma, which would be inefficient. */
1316 if ((unsigned int) howto
.complain_on_overflow
1317 >= XCOFF_MAX_COMPLAIN_OVERFLOW
)
1320 if (((*xcoff_complain_overflow
[howto
.complain_on_overflow
])
1321 (input_bfd
, value_to_relocate
, relocation
, &howto
)))
1324 char buf
[SYMNMLEN
+ 1];
1325 char reloc_type_name
[10];
1337 name
= _bfd_coff_internal_syment_name (input_bfd
, sym
, buf
);
1341 sprintf (reloc_type_name
, "0x%02x", rel
->r_type
);
1343 if (! ((*info
->callbacks
->reloc_overflow
)
1344 (info
, (h
? &h
->root
: NULL
), name
, reloc_type_name
,
1345 (bfd_vma
) 0, input_bfd
, input_section
,
1346 rel
->r_vaddr
- input_section
->vma
)))
1350 /* Add RELOCATION to the right bits of VALUE_TO_RELOCATE. */
1351 value_to_relocate
= ((value_to_relocate
& ~howto
.dst_mask
)
1352 | (((value_to_relocate
& howto
.src_mask
)
1353 + relocation
) & howto
.dst_mask
));
1355 /* Put the value back in the object file. */
1356 if (1 == howto
.size
)
1357 bfd_put_16 (input_bfd
, value_to_relocate
, location
);
1358 else if (2 == howto
.size
)
1359 bfd_put_32 (input_bfd
, value_to_relocate
, location
);
1361 bfd_put_64 (input_bfd
, value_to_relocate
, location
);
1368 /* The XCOFF reloc table. Actually, XCOFF relocations specify the
1369 bitsize and whether they are signed or not, along with a
1370 conventional type. This table is for the types, which are used for
1371 different algorithms for putting in the reloc. Many of these
1372 relocs need special_function entries, which I have not written. */
1374 reloc_howto_type xcoff64_howto_table
[] =
1376 /* Standard 64 bit relocation. */
1377 HOWTO (R_POS
, /* type */
1379 4, /* size (0 = byte, 1 = short, 2 = long) */
1381 FALSE
, /* pc_relative */
1383 complain_overflow_bitfield
, /* complain_on_overflow */
1384 0, /* special_function */
1385 "R_POS_64", /* name */
1386 TRUE
, /* partial_inplace */
1387 MINUS_ONE
, /* src_mask */
1388 MINUS_ONE
, /* dst_mask */
1389 FALSE
), /* pcrel_offset */
1391 /* 64 bit relocation, but store negative value. */
1392 HOWTO (R_NEG
, /* type */
1394 -4, /* size (0 = byte, 1 = short, 2 = long) */
1396 FALSE
, /* pc_relative */
1398 complain_overflow_bitfield
, /* complain_on_overflow */
1399 0, /* special_function */
1401 TRUE
, /* partial_inplace */
1402 MINUS_ONE
, /* src_mask */
1403 MINUS_ONE
, /* dst_mask */
1404 FALSE
), /* pcrel_offset */
1406 /* 32 bit PC relative relocation. */
1407 HOWTO (R_REL
, /* type */
1409 2, /* size (0 = byte, 1 = short, 2 = long) */
1411 TRUE
, /* pc_relative */
1413 complain_overflow_signed
, /* complain_on_overflow */
1414 0, /* special_function */
1416 TRUE
, /* partial_inplace */
1417 0xffffffff, /* src_mask */
1418 0xffffffff, /* dst_mask */
1419 FALSE
), /* pcrel_offset */
1421 /* 16 bit TOC relative relocation. */
1422 HOWTO (R_TOC
, /* type */
1424 1, /* size (0 = byte, 1 = short, 2 = long) */
1426 FALSE
, /* pc_relative */
1428 complain_overflow_bitfield
, /* complain_on_overflow */
1429 0, /* special_function */
1431 TRUE
, /* partial_inplace */
1432 0xffff, /* src_mask */
1433 0xffff, /* dst_mask */
1434 FALSE
), /* pcrel_offset */
1436 /* I don't really know what this is. */
1437 HOWTO (R_RTB
, /* type */
1439 2, /* size (0 = byte, 1 = short, 2 = long) */
1441 FALSE
, /* pc_relative */
1443 complain_overflow_bitfield
, /* complain_on_overflow */
1444 0, /* special_function */
1446 TRUE
, /* partial_inplace */
1447 0xffffffff, /* src_mask */
1448 0xffffffff, /* dst_mask */
1449 FALSE
), /* pcrel_offset */
1451 /* External TOC relative symbol. */
1452 HOWTO (R_GL
, /* type */
1454 1, /* size (0 = byte, 1 = short, 2 = long) */
1456 FALSE
, /* pc_relative */
1458 complain_overflow_bitfield
, /* complain_on_overflow */
1459 0, /* special_function */
1461 TRUE
, /* partial_inplace */
1462 0xffff, /* src_mask */
1463 0xffff, /* dst_mask */
1464 FALSE
), /* pcrel_offset */
1466 /* Local TOC relative symbol. */
1467 HOWTO (R_TCL
, /* type */
1469 1, /* size (0 = byte, 1 = short, 2 = long) */
1471 FALSE
, /* pc_relative */
1473 complain_overflow_bitfield
, /* complain_on_overflow */
1474 0, /* special_function */
1476 TRUE
, /* partial_inplace */
1477 0xffff, /* src_mask */
1478 0xffff, /* dst_mask */
1479 FALSE
), /* pcrel_offset */
1483 /* Non modifiable absolute branch. */
1484 HOWTO (R_BA
, /* type */
1486 2, /* size (0 = byte, 1 = short, 2 = long) */
1488 FALSE
, /* pc_relative */
1490 complain_overflow_bitfield
, /* complain_on_overflow */
1491 0, /* special_function */
1492 "R_BA_26", /* name */
1493 TRUE
, /* partial_inplace */
1494 0x03fffffc, /* src_mask */
1495 0x03fffffc, /* dst_mask */
1496 FALSE
), /* pcrel_offset */
1500 /* Non modifiable relative branch. */
1501 HOWTO (R_BR
, /* type */
1503 2, /* size (0 = byte, 1 = short, 2 = long) */
1505 TRUE
, /* pc_relative */
1507 complain_overflow_signed
, /* complain_on_overflow */
1508 0, /* special_function */
1510 TRUE
, /* partial_inplace */
1511 0x03fffffc, /* src_mask */
1512 0x03fffffc, /* dst_mask */
1513 FALSE
), /* pcrel_offset */
1517 /* Indirect load. */
1518 HOWTO (R_RL
, /* type */
1520 1, /* size (0 = byte, 1 = short, 2 = long) */
1522 FALSE
, /* pc_relative */
1524 complain_overflow_bitfield
, /* complain_on_overflow */
1525 0, /* special_function */
1527 TRUE
, /* partial_inplace */
1528 0xffff, /* src_mask */
1529 0xffff, /* dst_mask */
1530 FALSE
), /* pcrel_offset */
1533 HOWTO (R_RLA
, /* type */
1535 1, /* size (0 = byte, 1 = short, 2 = long) */
1537 FALSE
, /* pc_relative */
1539 complain_overflow_bitfield
, /* complain_on_overflow */
1540 0, /* special_function */
1542 TRUE
, /* partial_inplace */
1543 0xffff, /* src_mask */
1544 0xffff, /* dst_mask */
1545 FALSE
), /* pcrel_offset */
1549 /* Non-relocating reference. Bitsize is 1 so that r_rsize is 0. */
1550 HOWTO (R_REF
, /* type */
1552 0, /* size (0 = byte, 1 = short, 2 = long) */
1554 FALSE
, /* pc_relative */
1556 complain_overflow_dont
, /* complain_on_overflow */
1557 0, /* special_function */
1559 FALSE
, /* partial_inplace */
1562 FALSE
), /* pcrel_offset */
1567 /* TOC relative indirect load. */
1568 HOWTO (R_TRL
, /* type */
1570 1, /* size (0 = byte, 1 = short, 2 = long) */
1572 FALSE
, /* pc_relative */
1574 complain_overflow_bitfield
, /* complain_on_overflow */
1575 0, /* special_function */
1577 TRUE
, /* partial_inplace */
1578 0xffff, /* src_mask */
1579 0xffff, /* dst_mask */
1580 FALSE
), /* pcrel_offset */
1582 /* TOC relative load address. */
1583 HOWTO (R_TRLA
, /* type */
1585 1, /* size (0 = byte, 1 = short, 2 = long) */
1587 FALSE
, /* pc_relative */
1589 complain_overflow_bitfield
, /* complain_on_overflow */
1590 0, /* special_function */
1591 "R_TRLA", /* name */
1592 TRUE
, /* partial_inplace */
1593 0xffff, /* src_mask */
1594 0xffff, /* dst_mask */
1595 FALSE
), /* pcrel_offset */
1597 /* Modifiable relative branch. */
1598 HOWTO (R_RRTBI
, /* type */
1600 2, /* size (0 = byte, 1 = short, 2 = long) */
1602 FALSE
, /* pc_relative */
1604 complain_overflow_bitfield
, /* complain_on_overflow */
1605 0, /* special_function */
1606 "R_RRTBI", /* name */
1607 TRUE
, /* partial_inplace */
1608 0xffffffff, /* src_mask */
1609 0xffffffff, /* dst_mask */
1610 FALSE
), /* pcrel_offset */
1612 /* Modifiable absolute branch. */
1613 HOWTO (R_RRTBA
, /* type */
1615 2, /* size (0 = byte, 1 = short, 2 = long) */
1617 FALSE
, /* pc_relative */
1619 complain_overflow_bitfield
, /* complain_on_overflow */
1620 0, /* special_function */
1621 "R_RRTBA", /* name */
1622 TRUE
, /* partial_inplace */
1623 0xffffffff, /* src_mask */
1624 0xffffffff, /* dst_mask */
1625 FALSE
), /* pcrel_offset */
1627 /* Modifiable call absolute indirect. */
1628 HOWTO (R_CAI
, /* type */
1630 1, /* size (0 = byte, 1 = short, 2 = long) */
1632 FALSE
, /* pc_relative */
1634 complain_overflow_bitfield
, /* complain_on_overflow */
1635 0, /* special_function */
1637 TRUE
, /* partial_inplace */
1638 0xffff, /* src_mask */
1639 0xffff, /* dst_mask */
1640 FALSE
), /* pcrel_offset */
1642 /* Modifiable call relative. */
1643 HOWTO (R_CREL
, /* type */
1645 1, /* size (0 = byte, 1 = short, 2 = long) */
1647 FALSE
, /* pc_relative */
1649 complain_overflow_bitfield
, /* complain_on_overflow */
1650 0, /* special_function */
1651 "R_CREL", /* name */
1652 TRUE
, /* partial_inplace */
1653 0xffff, /* src_mask */
1654 0xffff, /* dst_mask */
1655 FALSE
), /* pcrel_offset */
1657 /* Modifiable branch absolute. */
1658 HOWTO (R_RBA
, /* type */
1660 2, /* size (0 = byte, 1 = short, 2 = long) */
1662 FALSE
, /* pc_relative */
1664 complain_overflow_bitfield
, /* complain_on_overflow */
1665 0, /* special_function */
1667 TRUE
, /* partial_inplace */
1668 0x03fffffc, /* src_mask */
1669 0x03fffffc, /* dst_mask */
1670 FALSE
), /* pcrel_offset */
1672 /* Modifiable branch absolute. */
1673 HOWTO (R_RBAC
, /* type */
1675 2, /* size (0 = byte, 1 = short, 2 = long) */
1677 FALSE
, /* pc_relative */
1679 complain_overflow_bitfield
, /* complain_on_overflow */
1680 0, /* special_function */
1681 "R_RBAC", /* name */
1682 TRUE
, /* partial_inplace */
1683 0xffffffff, /* src_mask */
1684 0xffffffff, /* dst_mask */
1685 FALSE
), /* pcrel_offset */
1687 /* Modifiable branch relative. */
1688 HOWTO (R_RBR
, /* type */
1690 2, /* size (0 = byte, 1 = short, 2 = long) */
1692 FALSE
, /* pc_relative */
1694 complain_overflow_signed
, /* complain_on_overflow */
1695 0, /* special_function */
1696 "R_RBR_26", /* name */
1697 TRUE
, /* partial_inplace */
1698 0x03fffffc, /* src_mask */
1699 0x03fffffc, /* dst_mask */
1700 FALSE
), /* pcrel_offset */
1702 /* Modifiable branch absolute. */
1703 HOWTO (R_RBRC
, /* type */
1705 1, /* size (0 = byte, 1 = short, 2 = long) */
1707 FALSE
, /* pc_relative */
1709 complain_overflow_bitfield
, /* complain_on_overflow */
1710 0, /* special_function */
1711 "R_RBRC", /* name */
1712 TRUE
, /* partial_inplace */
1713 0xffff, /* src_mask */
1714 0xffff, /* dst_mask */
1715 FALSE
), /* pcrel_offset */
1717 HOWTO (R_POS
, /* type */
1719 2, /* size (0 = byte, 1 = short, 2 = long) */
1721 FALSE
, /* pc_relative */
1723 complain_overflow_bitfield
, /* complain_on_overflow */
1724 0, /* special_function */
1725 "R_POS_32", /* name */
1726 TRUE
, /* partial_inplace */
1727 0xffffffff, /* src_mask */
1728 0xffffffff, /* dst_mask */
1729 FALSE
), /* pcrel_offset */
1731 /* 16 bit Non modifiable absolute branch. */
1732 HOWTO (R_BA
, /* type */
1734 1, /* size (0 = byte, 1 = short, 2 = long) */
1736 FALSE
, /* pc_relative */
1738 complain_overflow_bitfield
, /* complain_on_overflow */
1739 0, /* special_function */
1740 "R_BA_16", /* name */
1741 TRUE
, /* partial_inplace */
1742 0xfffc, /* src_mask */
1743 0xfffc, /* dst_mask */
1744 FALSE
), /* pcrel_offset */
1746 /* Modifiable branch relative. */
1747 HOWTO (R_RBR
, /* type */
1749 1, /* size (0 = byte, 1 = short, 2 = long) */
1751 FALSE
, /* pc_relative */
1753 complain_overflow_signed
, /* complain_on_overflow */
1754 0, /* special_function */
1755 "R_RBR_16", /* name */
1756 TRUE
, /* partial_inplace */
1757 0xffff, /* src_mask */
1758 0xffff, /* dst_mask */
1759 FALSE
), /* pcrel_offset */
1761 /* Modifiable branch absolute. */
1762 HOWTO (R_RBA
, /* type */
1764 1, /* size (0 = byte, 1 = short, 2 = long) */
1766 FALSE
, /* pc_relative */
1768 complain_overflow_bitfield
, /* complain_on_overflow */
1769 0, /* special_function */
1770 "R_RBA_16", /* name */
1771 TRUE
, /* partial_inplace */
1772 0xffff, /* src_mask */
1773 0xffff, /* dst_mask */
1774 FALSE
), /* pcrel_offset */
1779 xcoff64_rtype2howto (arelent
*relent
, struct internal_reloc
*internal
)
1781 if (internal
->r_type
> R_RBRC
)
1784 /* Default howto layout works most of the time */
1785 relent
->howto
= &xcoff64_howto_table
[internal
->r_type
];
1787 /* Special case some 16 bit reloc */
1788 if (15 == (internal
->r_size
& 0x3f))
1790 if (R_BA
== internal
->r_type
)
1791 relent
->howto
= &xcoff64_howto_table
[0x1d];
1792 else if (R_RBR
== internal
->r_type
)
1793 relent
->howto
= &xcoff64_howto_table
[0x1e];
1794 else if (R_RBA
== internal
->r_type
)
1795 relent
->howto
= &xcoff64_howto_table
[0x1f];
1797 /* Special case 32 bit */
1798 else if (31 == (internal
->r_size
& 0x3f))
1800 if (R_POS
== internal
->r_type
)
1801 relent
->howto
= &xcoff64_howto_table
[0x1c];
1804 /* The r_size field of an XCOFF reloc encodes the bitsize of the
1805 relocation, as well as indicating whether it is signed or not.
1806 Doublecheck that the relocation information gathered from the
1807 type matches this information. The bitsize is not significant
1808 for R_REF relocs. */
1809 if (relent
->howto
->dst_mask
!= 0
1810 && (relent
->howto
->bitsize
1811 != ((unsigned int) internal
->r_size
& 0x3f) + 1))
1816 xcoff64_reloc_type_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1817 bfd_reloc_code_real_type code
)
1821 case BFD_RELOC_PPC_B26
:
1822 return &xcoff64_howto_table
[0xa];
1823 case BFD_RELOC_PPC_BA16
:
1824 return &xcoff64_howto_table
[0x1d];
1825 case BFD_RELOC_PPC_BA26
:
1826 return &xcoff64_howto_table
[8];
1827 case BFD_RELOC_PPC_TOC16
:
1828 return &xcoff64_howto_table
[3];
1830 /* Note that this relocation is only internally used by gas. */
1831 return &xcoff64_howto_table
[0xc];
1833 case BFD_RELOC_CTOR
:
1834 return &xcoff64_howto_table
[0x1c];
1836 return &xcoff64_howto_table
[0];
1837 case BFD_RELOC_NONE
:
1838 return &xcoff64_howto_table
[0xf];
1844 static reloc_howto_type
*
1845 xcoff64_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1851 i
< sizeof (xcoff64_howto_table
) / sizeof (xcoff64_howto_table
[0]);
1853 if (xcoff64_howto_table
[i
].name
!= NULL
1854 && strcasecmp (xcoff64_howto_table
[i
].name
, r_name
) == 0)
1855 return &xcoff64_howto_table
[i
];
1860 /* Read in the armap of an XCOFF archive. */
1863 xcoff64_slurp_armap (bfd
*abfd
)
1867 bfd_size_type sz
, amt
;
1868 bfd_byte
*contents
, *cend
;
1874 /* This is for the new format. */
1875 struct xcoff_ar_hdr_big hdr
;
1877 if (xcoff_ardata (abfd
) == NULL
)
1879 bfd_has_map (abfd
) = FALSE
;
1883 off
= bfd_scan_vma (xcoff_ardata_big (abfd
)->symoff64
,
1884 (const char **) NULL
, 10);
1887 bfd_has_map (abfd
) = FALSE
;
1891 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1894 /* The symbol table starts with a normal archive header. */
1895 if (bfd_bread (&hdr
, (bfd_size_type
) SIZEOF_AR_HDR_BIG
, abfd
)
1896 != SIZEOF_AR_HDR_BIG
)
1899 /* Skip the name (normally empty). */
1900 namlen
= strtol (hdr
.namlen
, (char **) NULL
, 10);
1901 pos
= ((namlen
+ 1) & ~(size_t) 1) + SXCOFFARFMAG
;
1902 if (bfd_seek (abfd
, pos
, SEEK_CUR
) != 0)
1905 sz
= bfd_scan_vma (hdr
.size
, (const char **) NULL
, 10);
1907 /* Read in the entire symbol table. */
1908 contents
= (bfd_byte
*) bfd_alloc (abfd
, sz
);
1909 if (contents
== NULL
)
1911 if (bfd_bread (contents
, sz
, abfd
) != sz
)
1914 /* The symbol table starts with an eight byte count. */
1915 c
= H_GET_64 (abfd
, contents
);
1919 bfd_set_error (bfd_error_bad_value
);
1923 amt
*= sizeof (carsym
);
1924 bfd_ardata (abfd
)->symdefs
= (carsym
*) bfd_alloc (abfd
, amt
);
1925 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1928 /* After the count comes a list of eight byte file offsets. */
1929 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 8;
1931 ++i
, ++arsym
, p
+= 8)
1932 arsym
->file_offset
= H_GET_64 (abfd
, p
);
1934 /* After the file offsets come null terminated symbol names. */
1935 cend
= contents
+ sz
;
1936 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
;
1938 ++i
, ++arsym
, p
+= strlen ((char *) p
) + 1)
1942 bfd_set_error (bfd_error_bad_value
);
1945 arsym
->name
= (char *) p
;
1948 bfd_ardata (abfd
)->symdef_count
= c
;
1949 bfd_has_map (abfd
) = TRUE
;
1955 /* See if this is an NEW XCOFF archive. */
1957 static const bfd_target
*
1958 xcoff64_archive_p (bfd
*abfd
)
1960 struct artdata
*tdata_hold
;
1961 char magic
[SXCOFFARMAG
];
1962 /* This is the new format. */
1963 struct xcoff_ar_file_hdr_big hdr
;
1964 bfd_size_type amt
= SXCOFFARMAG
;
1966 if (bfd_bread (magic
, amt
, abfd
) != amt
)
1968 if (bfd_get_error () != bfd_error_system_call
)
1969 bfd_set_error (bfd_error_wrong_format
);
1973 if (strncmp (magic
, XCOFFARMAGBIG
, SXCOFFARMAG
) != 0)
1975 bfd_set_error (bfd_error_wrong_format
);
1979 /* Copy over the magic string. */
1980 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1982 /* Now read the rest of the file header. */
1983 amt
= SIZEOF_AR_FILE_HDR_BIG
- SXCOFFARMAG
;
1984 if (bfd_bread (&hdr
.memoff
, amt
, abfd
) != amt
)
1986 if (bfd_get_error () != bfd_error_system_call
)
1987 bfd_set_error (bfd_error_wrong_format
);
1991 tdata_hold
= bfd_ardata (abfd
);
1993 amt
= sizeof (struct artdata
);
1994 bfd_ardata (abfd
) = (struct artdata
*) bfd_zalloc (abfd
, amt
);
1995 if (bfd_ardata (abfd
) == (struct artdata
*) NULL
)
1996 goto error_ret_restore
;
1998 /* Already cleared by bfd_zalloc above.
1999 bfd_ardata (abfd)->cache = NULL;
2000 bfd_ardata (abfd)->archive_head = NULL;
2001 bfd_ardata (abfd)->symdefs = NULL;
2002 bfd_ardata (abfd)->extended_names = NULL;
2003 bfd_ardata (abfd)->extended_names_size = 0; */
2004 bfd_ardata (abfd
)->first_file_filepos
= bfd_scan_vma (hdr
.firstmemoff
,
2005 (const char **) NULL
,
2008 amt
= SIZEOF_AR_FILE_HDR_BIG
;
2009 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, amt
);
2010 if (bfd_ardata (abfd
)->tdata
== NULL
)
2013 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR_BIG
);
2015 if (! xcoff64_slurp_armap (abfd
))
2018 bfd_release (abfd
, bfd_ardata (abfd
));
2020 bfd_ardata (abfd
) = tdata_hold
;
2028 /* Open the next element in an XCOFF archive. */
2031 xcoff64_openr_next_archived_file (bfd
*archive
, bfd
*last_file
)
2035 if ((xcoff_ardata (archive
) == NULL
)
2036 || ! xcoff_big_format_p (archive
))
2038 bfd_set_error (bfd_error_invalid_operation
);
2042 if (last_file
== NULL
)
2044 filestart
= bfd_ardata (archive
)->first_file_filepos
;
2048 filestart
= bfd_scan_vma (arch_xhdr_big (last_file
)->nextoff
,
2049 (const char **) NULL
, 10);
2053 || filestart
== bfd_scan_vma (xcoff_ardata_big (archive
)->memoff
,
2054 (const char **) NULL
, 10)
2055 || filestart
== bfd_scan_vma (xcoff_ardata_big (archive
)->symoff
,
2056 (const char **) NULL
, 10))
2058 bfd_set_error (bfd_error_no_more_archived_files
);
2062 return _bfd_get_elt_at_filepos (archive
, (file_ptr
) filestart
);
2065 /* We can't use the usual coff_sizeof_headers routine, because AIX
2066 always uses an a.out header. */
2069 xcoff64_sizeof_headers (bfd
*abfd
,
2070 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
2074 size
= bfd_coff_filhsz (abfd
);
2076 /* Don't think the small aout header can be used since some of the
2077 old elements have been reordered past the end of the old coff
2080 if (xcoff_data (abfd
)->full_aouthdr
)
2081 size
+= bfd_coff_aoutsz (abfd
);
2083 size
+= abfd
->section_count
* bfd_coff_scnhsz (abfd
);
2088 xcoff64_create_csect_from_smclas (bfd
*abfd
, union internal_auxent
*aux
,
2089 const char *symbol_name
)
2091 asection
*return_value
= NULL
;
2093 /* Changes from 32 :
2094 .sv == 8, is only for 32 bit programs
2095 .ti == 12 and .tb == 13 are now reserved. */
2096 static const char *names
[19] =
2098 ".pr", ".ro", ".db", ".tc", ".ua", ".rw", ".gl", ".xo",
2099 NULL
, ".bs", ".ds", ".uc", NULL
, NULL
, NULL
, ".tc0",
2100 ".td", ".sv64", ".sv3264"
2103 if ((19 >= aux
->x_csect
.x_smclas
)
2104 && (NULL
!= names
[aux
->x_csect
.x_smclas
]))
2107 return_value
= bfd_make_section_anyway
2108 (abfd
, names
[aux
->x_csect
.x_smclas
]);
2113 (*_bfd_error_handler
)
2114 (_("%B: symbol `%s' has unrecognized smclas %d"),
2115 abfd
, symbol_name
, aux
->x_csect
.x_smclas
);
2116 bfd_set_error (bfd_error_bad_value
);
2119 return return_value
;
2123 xcoff64_is_lineno_count_overflow (bfd
*abfd ATTRIBUTE_UNUSED
,
2124 bfd_vma value ATTRIBUTE_UNUSED
)
2130 xcoff64_is_reloc_count_overflow (bfd
*abfd ATTRIBUTE_UNUSED
,
2131 bfd_vma value ATTRIBUTE_UNUSED
)
2137 xcoff64_loader_symbol_offset (bfd
*abfd ATTRIBUTE_UNUSED
,
2138 struct internal_ldhdr
*ldhdr
)
2140 return (ldhdr
->l_symoff
);
2144 xcoff64_loader_reloc_offset (bfd
*abfd ATTRIBUTE_UNUSED
,
2145 struct internal_ldhdr
*ldhdr
)
2147 return (ldhdr
->l_rldoff
);
2151 xcoff64_bad_format_hook (bfd
* abfd
, void *filehdr
)
2153 struct internal_filehdr
*internal_f
= (struct internal_filehdr
*) filehdr
;
2155 /* Check flavor first. */
2156 if (bfd_get_flavour (abfd
) != bfd_target_xcoff_flavour
)
2159 if (bfd_xcoff_magic_number (abfd
) != internal_f
->f_magic
)
2166 xcoff64_generate_rtinit (bfd
*abfd
, const char *init
, const char *fini
,
2169 bfd_byte filehdr_ext
[FILHSZ
];
2170 bfd_byte scnhdr_ext
[SCNHSZ
* 3];
2171 bfd_byte syment_ext
[SYMESZ
* 10];
2172 bfd_byte reloc_ext
[RELSZ
* 3];
2173 bfd_byte
*data_buffer
;
2174 bfd_size_type data_buffer_size
;
2175 bfd_byte
*string_table
, *st_tmp
;
2176 bfd_size_type string_table_size
;
2178 size_t initsz
, finisz
;
2179 struct internal_filehdr filehdr
;
2180 struct internal_scnhdr text_scnhdr
;
2181 struct internal_scnhdr data_scnhdr
;
2182 struct internal_scnhdr bss_scnhdr
;
2183 struct internal_syment syment
;
2184 union internal_auxent auxent
;
2185 struct internal_reloc reloc
;
2187 char *text_name
= ".text";
2188 char *data_name
= ".data";
2189 char *bss_name
= ".bss";
2190 char *rtinit_name
= "__rtinit";
2191 char *rtld_name
= "__rtld";
2193 if (! bfd_xcoff_rtinit_size (abfd
))
2196 initsz
= (init
== NULL
? 0 : 1 + strlen (init
));
2197 finisz
= (fini
== NULL
? 0 : 1 + strlen (fini
));
2200 memset (filehdr_ext
, 0, FILHSZ
);
2201 memset (&filehdr
, 0, sizeof (struct internal_filehdr
));
2202 filehdr
.f_magic
= bfd_xcoff_magic_number (abfd
);
2203 filehdr
.f_nscns
= 3;
2204 filehdr
.f_timdat
= 0;
2205 filehdr
.f_nsyms
= 0; /* at least 6, no more than 8 */
2206 filehdr
.f_symptr
= 0; /* set below */
2207 filehdr
.f_opthdr
= 0;
2208 filehdr
.f_flags
= 0;
2210 /* Section headers. */
2211 memset (scnhdr_ext
, 0, 3 * SCNHSZ
);
2214 memset (&text_scnhdr
, 0, sizeof (struct internal_scnhdr
));
2215 memcpy (text_scnhdr
.s_name
, text_name
, strlen (text_name
));
2216 text_scnhdr
.s_paddr
= 0;
2217 text_scnhdr
.s_vaddr
= 0;
2218 text_scnhdr
.s_size
= 0;
2219 text_scnhdr
.s_scnptr
= 0;
2220 text_scnhdr
.s_relptr
= 0;
2221 text_scnhdr
.s_lnnoptr
= 0;
2222 text_scnhdr
.s_nreloc
= 0;
2223 text_scnhdr
.s_nlnno
= 0;
2224 text_scnhdr
.s_flags
= STYP_TEXT
;
2227 memset (&data_scnhdr
, 0, sizeof (struct internal_scnhdr
));
2228 memcpy (data_scnhdr
.s_name
, data_name
, strlen (data_name
));
2229 data_scnhdr
.s_paddr
= 0;
2230 data_scnhdr
.s_vaddr
= 0;
2231 data_scnhdr
.s_size
= 0; /* set below */
2232 data_scnhdr
.s_scnptr
= FILHSZ
+ 3 * SCNHSZ
;
2233 data_scnhdr
.s_relptr
= 0; /* set below */
2234 data_scnhdr
.s_lnnoptr
= 0;
2235 data_scnhdr
.s_nreloc
= 0; /* either 1 or 2 */
2236 data_scnhdr
.s_nlnno
= 0;
2237 data_scnhdr
.s_flags
= STYP_DATA
;
2240 memset (&bss_scnhdr
, 0, sizeof (struct internal_scnhdr
));
2241 memcpy (bss_scnhdr
.s_name
, bss_name
, strlen (bss_name
));
2242 bss_scnhdr
.s_paddr
= 0; /* set below */
2243 bss_scnhdr
.s_vaddr
= 0; /* set below */
2244 bss_scnhdr
.s_size
= 0; /* set below */
2245 bss_scnhdr
.s_scnptr
= 0;
2246 bss_scnhdr
.s_relptr
= 0;
2247 bss_scnhdr
.s_lnnoptr
= 0;
2248 bss_scnhdr
.s_nreloc
= 0;
2249 bss_scnhdr
.s_nlnno
= 0;
2250 bss_scnhdr
.s_flags
= STYP_BSS
;
2253 0x0000 0x00000000 : rtl
2255 0x0008 0x00000018 : offset to init, or 0
2256 0x000C 0x00000038 : offset to fini, or 0
2257 0x0010 0x00000010 : size of descriptor
2258 0x0014 0x00000000 : pad
2259 0x0018 0x00000000 : init, needs a reloc
2261 0x0020 0x00000058 : offset to init name
2262 0x0024 0x00000000 : flags, padded to a word
2263 0x0028 0x00000000 : empty init
2267 0x0038 0x00000000 : fini, needs a reloc
2269 0x0040 0x00000??? : offset to fini name
2270 0x0044 0x00000000 : flags, padded to a word
2271 0x0048 0x00000000 : empty fini
2276 0x0058 + initsz fini name */
2278 data_buffer_size
= 0x0058 + initsz
+ finisz
;
2279 data_buffer_size
= (data_buffer_size
+ 7) &~ (bfd_size_type
) 7;
2281 data_buffer
= (bfd_byte
*) bfd_zmalloc (data_buffer_size
);
2282 if (data_buffer
== NULL
)
2288 bfd_put_32 (abfd
, val
, &data_buffer
[0x08]);
2290 bfd_put_32 (abfd
, val
, &data_buffer
[0x20]);
2291 memcpy (&data_buffer
[val
], init
, initsz
);
2297 bfd_put_32 (abfd
, val
, &data_buffer
[0x0C]);
2298 val
= 0x58 + initsz
;
2299 bfd_put_32 (abfd
, val
, &data_buffer
[0x40]);
2300 memcpy (&data_buffer
[val
], fini
, finisz
);
2304 bfd_put_32 (abfd
, val
, &data_buffer
[0x10]);
2305 data_scnhdr
.s_size
= data_buffer_size
;
2306 bss_scnhdr
.s_paddr
= bss_scnhdr
.s_vaddr
= data_scnhdr
.s_size
;
2309 string_table_size
= 4;
2310 string_table_size
+= strlen (data_name
) + 1;
2311 string_table_size
+= strlen (rtinit_name
) + 1;
2312 string_table_size
+= initsz
;
2313 string_table_size
+= finisz
;
2315 string_table_size
+= strlen (rtld_name
) + 1;
2317 string_table
= (bfd_byte
*) bfd_zmalloc (string_table_size
);
2318 if (string_table
== NULL
)
2321 val
= string_table_size
;
2322 bfd_put_32 (abfd
, val
, &string_table
[0]);
2323 st_tmp
= string_table
+ 4;
2331 memset (syment_ext
, 0, 10 * SYMESZ
);
2332 memset (reloc_ext
, 0, 3 * RELSZ
);
2335 memset (&syment
, 0, sizeof (struct internal_syment
));
2336 memset (&auxent
, 0, sizeof (union internal_auxent
));
2338 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2339 memcpy (st_tmp
, data_name
, strlen (data_name
));
2340 st_tmp
+= strlen (data_name
) + 1;
2343 syment
.n_sclass
= C_HIDEXT
;
2344 syment
.n_numaux
= 1;
2345 auxent
.x_csect
.x_scnlen
.l
= data_buffer_size
;
2346 auxent
.x_csect
.x_smtyp
= 3 << 3 | XTY_SD
;
2347 auxent
.x_csect
.x_smclas
= XMC_RW
;
2348 bfd_coff_swap_sym_out (abfd
, &syment
,
2349 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2350 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2352 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2353 filehdr
.f_nsyms
+= 2;
2356 memset (&syment
, 0, sizeof (struct internal_syment
));
2357 memset (&auxent
, 0, sizeof (union internal_auxent
));
2358 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2359 memcpy (st_tmp
, rtinit_name
, strlen (rtinit_name
));
2360 st_tmp
+= strlen (rtinit_name
) + 1;
2363 syment
.n_sclass
= C_EXT
;
2364 syment
.n_numaux
= 1;
2365 auxent
.x_csect
.x_smtyp
= XTY_LD
;
2366 auxent
.x_csect
.x_smclas
= XMC_RW
;
2367 bfd_coff_swap_sym_out (abfd
, &syment
,
2368 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2369 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2371 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2372 filehdr
.f_nsyms
+= 2;
2377 memset (&syment
, 0, sizeof (struct internal_syment
));
2378 memset (&auxent
, 0, sizeof (union internal_auxent
));
2380 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2381 memcpy (st_tmp
, init
, initsz
);
2384 syment
.n_sclass
= C_EXT
;
2385 syment
.n_numaux
= 1;
2386 bfd_coff_swap_sym_out (abfd
, &syment
,
2387 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2388 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2390 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2392 memset (&reloc
, 0, sizeof (struct internal_reloc
));
2393 reloc
.r_vaddr
= 0x0018;
2394 reloc
.r_symndx
= filehdr
.f_nsyms
;
2395 reloc
.r_type
= R_POS
;
2397 bfd_coff_swap_reloc_out (abfd
, &reloc
, &reloc_ext
[0]);
2399 filehdr
.f_nsyms
+= 2;
2400 data_scnhdr
.s_nreloc
+= 1;
2406 memset (&syment
, 0, sizeof (struct internal_syment
));
2407 memset (&auxent
, 0, sizeof (union internal_auxent
));
2409 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2410 memcpy (st_tmp
, fini
, finisz
);
2413 syment
.n_sclass
= C_EXT
;
2414 syment
.n_numaux
= 1;
2415 bfd_coff_swap_sym_out (abfd
, &syment
,
2416 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2417 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2419 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2422 memset (&reloc
, 0, sizeof (struct internal_reloc
));
2423 reloc
.r_vaddr
= 0x0038;
2424 reloc
.r_symndx
= filehdr
.f_nsyms
;
2425 reloc
.r_type
= R_POS
;
2427 bfd_coff_swap_reloc_out (abfd
, &reloc
,
2428 &reloc_ext
[data_scnhdr
.s_nreloc
* RELSZ
]);
2430 filehdr
.f_nsyms
+= 2;
2431 data_scnhdr
.s_nreloc
+= 1;
2436 memset (&syment
, 0, sizeof (struct internal_syment
));
2437 memset (&auxent
, 0, sizeof (union internal_auxent
));
2439 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2440 memcpy (st_tmp
, rtld_name
, strlen (rtld_name
));
2441 st_tmp
+= strlen (rtld_name
) + 1;
2443 syment
.n_sclass
= C_EXT
;
2444 syment
.n_numaux
= 1;
2445 bfd_coff_swap_sym_out (abfd
, &syment
,
2446 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2447 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2449 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2452 memset (&reloc
, 0, sizeof (struct internal_reloc
));
2453 reloc
.r_vaddr
= 0x0000;
2454 reloc
.r_symndx
= filehdr
.f_nsyms
;
2455 reloc
.r_type
= R_POS
;
2457 bfd_coff_swap_reloc_out (abfd
, &reloc
,
2458 &reloc_ext
[data_scnhdr
.s_nreloc
* RELSZ
]);
2460 filehdr
.f_nsyms
+= 2;
2461 data_scnhdr
.s_nreloc
+= 1;
2463 bss_scnhdr
.s_size
= 0;
2466 data_scnhdr
.s_relptr
= data_scnhdr
.s_scnptr
+ data_buffer_size
;
2467 filehdr
.f_symptr
= data_scnhdr
.s_relptr
+ data_scnhdr
.s_nreloc
* RELSZ
;
2469 bfd_coff_swap_filehdr_out (abfd
, &filehdr
, filehdr_ext
);
2470 bfd_bwrite (filehdr_ext
, FILHSZ
, abfd
);
2471 bfd_coff_swap_scnhdr_out (abfd
, &text_scnhdr
, &scnhdr_ext
[SCNHSZ
* 0]);
2472 bfd_coff_swap_scnhdr_out (abfd
, &data_scnhdr
, &scnhdr_ext
[SCNHSZ
* 1]);
2473 bfd_coff_swap_scnhdr_out (abfd
, &bss_scnhdr
, &scnhdr_ext
[SCNHSZ
* 2]);
2474 bfd_bwrite (scnhdr_ext
, 3 * SCNHSZ
, abfd
);
2475 bfd_bwrite (data_buffer
, data_buffer_size
, abfd
);
2476 bfd_bwrite (reloc_ext
, data_scnhdr
.s_nreloc
* RELSZ
, abfd
);
2477 bfd_bwrite (syment_ext
, filehdr
.f_nsyms
* SYMESZ
, abfd
);
2478 bfd_bwrite (string_table
, string_table_size
, abfd
);
2486 /* The typical dynamic reloc. */
2488 static reloc_howto_type xcoff64_dynamic_reloc
=
2489 HOWTO (0, /* type */
2491 4, /* size (0 = byte, 1 = short, 2 = long) */
2493 FALSE
, /* pc_relative */
2495 complain_overflow_bitfield
, /* complain_on_overflow */
2496 0, /* special_function */
2498 TRUE
, /* partial_inplace */
2499 MINUS_ONE
, /* src_mask */
2500 MINUS_ONE
, /* dst_mask */
2501 FALSE
); /* pcrel_offset */
2503 static unsigned long xcoff64_glink_code
[10] =
2505 0xe9820000, /* ld r12,0(r2) */
2506 0xf8410028, /* std r2,40(r1) */
2507 0xe80c0000, /* ld r0,0(r12) */
2508 0xe84c0008, /* ld r0,8(r12) */
2509 0x7c0903a6, /* mtctr r0 */
2510 0x4e800420, /* bctr */
2511 0x00000000, /* start of traceback table */
2512 0x000ca000, /* traceback table */
2513 0x00000000, /* traceback table */
2514 0x00000018, /* ??? */
2517 static const struct xcoff_backend_data_rec bfd_xcoff_backend_data
=
2519 { /* COFF backend, defined in libcoff.h. */
2520 _bfd_xcoff64_swap_aux_in
,
2521 _bfd_xcoff64_swap_sym_in
,
2522 _bfd_xcoff64_swap_lineno_in
,
2523 _bfd_xcoff64_swap_aux_out
,
2524 _bfd_xcoff64_swap_sym_out
,
2525 _bfd_xcoff64_swap_lineno_out
,
2526 xcoff64_swap_reloc_out
,
2527 coff_swap_filehdr_out
,
2528 coff_swap_aouthdr_out
,
2529 coff_swap_scnhdr_out
,
2538 TRUE
, /* _bfd_coff_long_filenames */
2539 XCOFF_NO_LONG_SECTION_NAMES
, /* _bfd_coff_long_section_names */
2540 3, /* _bfd_coff_default_section_alignment_power */
2541 TRUE
, /* _bfd_coff_force_symnames_in_strings */
2542 4, /* _bfd_coff_debug_string_prefix_length */
2543 coff_swap_filehdr_in
,
2544 coff_swap_aouthdr_in
,
2545 coff_swap_scnhdr_in
,
2546 xcoff64_swap_reloc_in
,
2547 xcoff64_bad_format_hook
,
2548 coff_set_arch_mach_hook
,
2551 coff_set_alignment_hook
,
2552 coff_slurp_symbol_table
,
2553 symname_in_debug_hook
,
2554 coff_pointerize_aux_hook
,
2556 dummy_reloc16_extra_cases
,
2557 dummy_reloc16_estimate
,
2558 NULL
, /* bfd_coff_symbol_classification */
2559 coff_compute_section_file_positions
,
2560 NULL
, /* _bfd_coff_start_final_link */
2561 xcoff64_ppc_relocate_section
,
2562 coff_rtype_to_howto
,
2563 NULL
, /* _bfd_coff_adjust_symndx */
2564 _bfd_generic_link_add_one_symbol
,
2565 coff_link_output_has_begun
,
2566 coff_final_link_postscript
,
2567 NULL
/* print_pdata. */
2570 0x01EF, /* magic number */
2574 /* Function pointers to xcoff specific swap routines. */
2575 xcoff64_swap_ldhdr_in
,
2576 xcoff64_swap_ldhdr_out
,
2577 xcoff64_swap_ldsym_in
,
2578 xcoff64_swap_ldsym_out
,
2579 xcoff64_swap_ldrel_in
,
2580 xcoff64_swap_ldrel_out
,
2586 24, /* _xcoff_function_descriptor_size */
2587 0, /* _xcoff_small_aout_header_size */
2590 2, /* _xcoff_ldhdr_version */
2592 _bfd_xcoff64_put_symbol_name
,
2593 _bfd_xcoff64_put_ldsymbol_name
,
2594 &xcoff64_dynamic_reloc
,
2595 xcoff64_create_csect_from_smclas
,
2597 /* Lineno and reloc count overflow. */
2598 xcoff64_is_lineno_count_overflow
,
2599 xcoff64_is_reloc_count_overflow
,
2601 xcoff64_loader_symbol_offset
,
2602 xcoff64_loader_reloc_offset
,
2605 &xcoff64_glink_code
[0],
2606 40, /* _xcoff_glink_size */
2609 88, /* _xcoff_rtinit_size */
2610 xcoff64_generate_rtinit
,
2613 /* The transfer vector that leads the outside world to all of the above. */
2614 const bfd_target rs6000coff64_vec
=
2617 bfd_target_xcoff_flavour
,
2618 BFD_ENDIAN_BIG
, /* data byte order is big */
2619 BFD_ENDIAN_BIG
, /* header byte order is big */
2621 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
2622 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
2624 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
2625 0, /* leading char */
2626 '/', /* ar_pad_char */
2627 15, /* ar_max_namelen */
2628 0, /* match priority. */
2652 { /* bfd_check_format */
2659 { /* bfd_set_format */
2662 _bfd_generic_mkarchive
,
2666 {/* bfd_write_contents */
2668 xcoff64_write_object_contents
,
2669 _bfd_xcoff_write_archive_contents
,
2674 _bfd_archive_close_and_cleanup
,
2676 coff_new_section_hook
,
2677 _bfd_generic_get_section_contents
,
2678 _bfd_generic_get_section_contents_in_window
,
2681 _bfd_xcoff_copy_private_bfd_data
,
2682 _bfd_generic_bfd_merge_private_bfd_data
,
2683 _bfd_generic_init_private_section_data
,
2684 _bfd_generic_bfd_copy_private_section_data
,
2685 _bfd_generic_bfd_copy_private_symbol_data
,
2686 _bfd_generic_bfd_copy_private_header_data
,
2687 _bfd_generic_bfd_set_private_flags
,
2688 _bfd_generic_bfd_print_private_bfd_data
,
2691 BFD_JUMP_TABLE_CORE (coff
),
2694 xcoff64_slurp_armap
,
2695 _bfd_noarchive_slurp_extended_name_table
,
2696 _bfd_noarchive_construct_extended_name_table
,
2697 bfd_dont_truncate_arname
,
2698 _bfd_xcoff_write_armap
,
2699 _bfd_xcoff_read_ar_hdr
,
2700 _bfd_generic_write_ar_hdr
,
2701 xcoff64_openr_next_archived_file
,
2702 _bfd_generic_get_elt_at_index
,
2703 _bfd_xcoff_stat_arch_elt
,
2707 coff_get_symtab_upper_bound
,
2708 coff_canonicalize_symtab
,
2709 coff_make_empty_symbol
,
2711 coff_get_symbol_info
,
2712 _bfd_xcoff_is_local_label_name
,
2713 coff_bfd_is_target_special_symbol
,
2715 coff_find_nearest_line
,
2716 _bfd_generic_find_nearest_line_discriminator
,
2717 _bfd_generic_find_line
,
2718 coff_find_inliner_info
,
2719 coff_bfd_make_debug_symbol
,
2720 _bfd_generic_read_minisymbols
,
2721 _bfd_generic_minisymbol_to_symbol
,
2724 coff_get_reloc_upper_bound
,
2725 coff_canonicalize_reloc
,
2726 xcoff64_reloc_type_lookup
,
2727 xcoff64_reloc_name_lookup
,
2731 coff_set_section_contents
,
2734 xcoff64_sizeof_headers
,
2735 bfd_generic_get_relocated_section_contents
,
2736 bfd_generic_relax_section
,
2737 _bfd_xcoff_bfd_link_hash_table_create
,
2738 _bfd_generic_link_hash_table_free
,
2739 _bfd_xcoff_bfd_link_add_symbols
,
2740 _bfd_generic_link_just_syms
,
2741 _bfd_generic_copy_link_hash_symbol_type
,
2742 _bfd_xcoff_bfd_final_link
,
2743 _bfd_generic_link_split_section
,
2744 bfd_generic_gc_sections
,
2745 bfd_generic_lookup_section_flags
,
2746 bfd_generic_merge_sections
,
2747 bfd_generic_is_group_section
,
2748 bfd_generic_discard_group
,
2749 _bfd_generic_section_already_linked
,
2750 _bfd_xcoff_define_common_symbol
,
2753 _bfd_xcoff_get_dynamic_symtab_upper_bound
,
2754 _bfd_xcoff_canonicalize_dynamic_symtab
,
2755 _bfd_nodynamic_get_synthetic_symtab
,
2756 _bfd_xcoff_get_dynamic_reloc_upper_bound
,
2757 _bfd_xcoff_canonicalize_dynamic_reloc
,
2759 /* Opposite endian version, none exists */
2762 &bfd_xcoff_backend_data
,
2765 extern const bfd_target
*xcoff64_core_p
2767 extern bfd_boolean xcoff64_core_file_matches_executable_p
2769 extern char *xcoff64_core_file_failing_command
2771 extern int xcoff64_core_file_failing_signal
2773 #define xcoff64_core_file_pid _bfd_nocore_core_file_pid
2776 static const struct xcoff_backend_data_rec bfd_xcoff_aix5_backend_data
=
2778 { /* COFF backend, defined in libcoff.h. */
2779 _bfd_xcoff64_swap_aux_in
,
2780 _bfd_xcoff64_swap_sym_in
,
2781 _bfd_xcoff64_swap_lineno_in
,
2782 _bfd_xcoff64_swap_aux_out
,
2783 _bfd_xcoff64_swap_sym_out
,
2784 _bfd_xcoff64_swap_lineno_out
,
2785 xcoff64_swap_reloc_out
,
2786 coff_swap_filehdr_out
,
2787 coff_swap_aouthdr_out
,
2788 coff_swap_scnhdr_out
,
2797 TRUE
, /* _bfd_coff_long_filenames */
2798 XCOFF_NO_LONG_SECTION_NAMES
, /* _bfd_coff_long_section_names */
2799 3, /* _bfd_coff_default_section_alignment_power */
2800 TRUE
, /* _bfd_coff_force_symnames_in_strings */
2801 4, /* _bfd_coff_debug_string_prefix_length */
2802 coff_swap_filehdr_in
,
2803 coff_swap_aouthdr_in
,
2804 coff_swap_scnhdr_in
,
2805 xcoff64_swap_reloc_in
,
2806 xcoff64_bad_format_hook
,
2807 coff_set_arch_mach_hook
,
2810 coff_set_alignment_hook
,
2811 coff_slurp_symbol_table
,
2812 symname_in_debug_hook
,
2813 coff_pointerize_aux_hook
,
2815 dummy_reloc16_extra_cases
,
2816 dummy_reloc16_estimate
,
2817 NULL
, /* bfd_coff_sym_is_global */
2818 coff_compute_section_file_positions
,
2819 NULL
, /* _bfd_coff_start_final_link */
2820 xcoff64_ppc_relocate_section
,
2821 coff_rtype_to_howto
,
2822 NULL
, /* _bfd_coff_adjust_symndx */
2823 _bfd_generic_link_add_one_symbol
,
2824 coff_link_output_has_begun
,
2825 coff_final_link_postscript
,
2826 NULL
/* print_pdata. */
2829 U64_TOCMAGIC
, /* magic number */
2833 /* Function pointers to xcoff specific swap routines. */
2834 xcoff64_swap_ldhdr_in
,
2835 xcoff64_swap_ldhdr_out
,
2836 xcoff64_swap_ldsym_in
,
2837 xcoff64_swap_ldsym_out
,
2838 xcoff64_swap_ldrel_in
,
2839 xcoff64_swap_ldrel_out
,
2845 24, /* _xcoff_function_descriptor_size */
2846 0, /* _xcoff_small_aout_header_size */
2848 2, /* _xcoff_ldhdr_version */
2850 _bfd_xcoff64_put_symbol_name
,
2851 _bfd_xcoff64_put_ldsymbol_name
,
2852 &xcoff64_dynamic_reloc
,
2853 xcoff64_create_csect_from_smclas
,
2855 /* Lineno and reloc count overflow. */
2856 xcoff64_is_lineno_count_overflow
,
2857 xcoff64_is_reloc_count_overflow
,
2859 xcoff64_loader_symbol_offset
,
2860 xcoff64_loader_reloc_offset
,
2863 &xcoff64_glink_code
[0],
2864 40, /* _xcoff_glink_size */
2867 88, /* _xcoff_rtinit_size */
2868 xcoff64_generate_rtinit
,
2871 /* The transfer vector that leads the outside world to all of the above. */
2872 const bfd_target aix5coff64_vec
=
2874 "aix5coff64-rs6000",
2875 bfd_target_xcoff_flavour
,
2876 BFD_ENDIAN_BIG
, /* data byte order is big */
2877 BFD_ENDIAN_BIG
, /* header byte order is big */
2879 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
2880 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
2882 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
2883 0, /* leading char */
2884 '/', /* ar_pad_char */
2885 15, /* ar_max_namelen */
2886 0, /* match priority. */
2910 { /* bfd_check_format */
2917 { /* bfd_set_format */
2920 _bfd_generic_mkarchive
,
2924 {/* bfd_write_contents */
2926 xcoff64_write_object_contents
,
2927 _bfd_xcoff_write_archive_contents
,
2932 _bfd_archive_close_and_cleanup
,
2934 coff_new_section_hook
,
2935 _bfd_generic_get_section_contents
,
2936 _bfd_generic_get_section_contents_in_window
,
2939 _bfd_xcoff_copy_private_bfd_data
,
2940 _bfd_generic_bfd_merge_private_bfd_data
,
2941 _bfd_generic_init_private_section_data
,
2942 _bfd_generic_bfd_copy_private_section_data
,
2943 _bfd_generic_bfd_copy_private_symbol_data
,
2944 _bfd_generic_bfd_copy_private_header_data
,
2945 _bfd_generic_bfd_set_private_flags
,
2946 _bfd_generic_bfd_print_private_bfd_data
,
2949 BFD_JUMP_TABLE_CORE (xcoff64
),
2952 xcoff64_slurp_armap
,
2953 _bfd_noarchive_slurp_extended_name_table
,
2954 _bfd_noarchive_construct_extended_name_table
,
2955 bfd_dont_truncate_arname
,
2956 _bfd_xcoff_write_armap
,
2957 _bfd_xcoff_read_ar_hdr
,
2958 _bfd_generic_write_ar_hdr
,
2959 xcoff64_openr_next_archived_file
,
2960 _bfd_generic_get_elt_at_index
,
2961 _bfd_xcoff_stat_arch_elt
,
2965 coff_get_symtab_upper_bound
,
2966 coff_canonicalize_symtab
,
2967 coff_make_empty_symbol
,
2969 coff_get_symbol_info
,
2970 _bfd_xcoff_is_local_label_name
,
2971 coff_bfd_is_target_special_symbol
,
2973 coff_find_nearest_line
,
2974 _bfd_generic_find_nearest_line_discriminator
,
2975 _bfd_generic_find_line
,
2976 coff_find_inliner_info
,
2977 coff_bfd_make_debug_symbol
,
2978 _bfd_generic_read_minisymbols
,
2979 _bfd_generic_minisymbol_to_symbol
,
2982 coff_get_reloc_upper_bound
,
2983 coff_canonicalize_reloc
,
2984 xcoff64_reloc_type_lookup
,
2985 xcoff64_reloc_name_lookup
,
2989 coff_set_section_contents
,
2992 xcoff64_sizeof_headers
,
2993 bfd_generic_get_relocated_section_contents
,
2994 bfd_generic_relax_section
,
2995 _bfd_xcoff_bfd_link_hash_table_create
,
2996 _bfd_generic_link_hash_table_free
,
2997 _bfd_xcoff_bfd_link_add_symbols
,
2998 _bfd_generic_link_just_syms
,
2999 _bfd_generic_copy_link_hash_symbol_type
,
3000 _bfd_xcoff_bfd_final_link
,
3001 _bfd_generic_link_split_section
,
3002 bfd_generic_gc_sections
,
3003 bfd_generic_lookup_section_flags
,
3004 bfd_generic_merge_sections
,
3005 bfd_generic_is_group_section
,
3006 bfd_generic_discard_group
,
3007 _bfd_generic_section_already_linked
,
3008 _bfd_xcoff_define_common_symbol
,
3011 _bfd_xcoff_get_dynamic_symtab_upper_bound
,
3012 _bfd_xcoff_canonicalize_dynamic_symtab
,
3013 _bfd_nodynamic_get_synthetic_symtab
,
3014 _bfd_xcoff_get_dynamic_reloc_upper_bound
,
3015 _bfd_xcoff_canonicalize_dynamic_reloc
,
3017 /* Opposite endian version, none exists. */
3020 & bfd_xcoff_aix5_backend_data
,