1 /* BFD back-end for IBM RS/6000 "XCOFF" files.
2 Copyright (C) 1990-2022 Free Software Foundation, Inc.
3 Written by Metin G. Ozisik, Mimi Phuong-Thao Vo, and John Gilmore.
4 Archive support from Damon A. Permezel.
5 Contributed by IBM Corporation and 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. */
25 #include "libiberty.h"
29 #include "coff/internal.h"
30 #include "coff/xcoff.h"
31 #include "coff/rs6000.h"
35 extern bool _bfd_xcoff_mkobject (bfd
*);
36 extern bool _bfd_xcoff_copy_private_bfd_data (bfd
*, bfd
*);
37 extern bool _bfd_xcoff_is_local_label_name (bfd
*, const char *);
38 extern reloc_howto_type
*_bfd_xcoff_reloc_type_lookup
39 (bfd
*, bfd_reloc_code_real_type
);
40 extern bool _bfd_xcoff_slurp_armap (bfd
*);
41 extern bfd_cleanup
_bfd_xcoff_archive_p (bfd
*);
42 extern void * _bfd_xcoff_read_ar_hdr (bfd
*);
43 extern bfd
*_bfd_xcoff_openr_next_archived_file (bfd
*, bfd
*);
44 extern int _bfd_xcoff_stat_arch_elt (bfd
*, struct stat
*);
45 extern bool _bfd_xcoff_write_armap
46 (bfd
*, unsigned int, struct orl
*, unsigned int, int);
47 extern bool _bfd_xcoff_write_archive_contents (bfd
*);
48 extern int _bfd_xcoff_sizeof_headers (bfd
*, struct bfd_link_info
*);
49 extern void _bfd_xcoff_swap_sym_in (bfd
*, void *, void *);
50 extern unsigned int _bfd_xcoff_swap_sym_out (bfd
*, void *, void *);
51 extern void _bfd_xcoff_swap_aux_in (bfd
*, void *, int, int, int, int, void *);
52 extern unsigned int _bfd_xcoff_swap_aux_out
53 (bfd
*, void *, int, int, int, int, void *);
54 static void xcoff_swap_reloc_in (bfd
*, void *, void *);
55 static unsigned int xcoff_swap_reloc_out (bfd
*, void *, void *);
57 /* Forward declare xcoff_rtype2howto for coffcode.h macro. */
58 void xcoff_rtype2howto (arelent
*, struct internal_reloc
*);
60 /* coffcode.h needs these to be defined. */
61 #define RS6000COFF_C 1
63 #define SELECT_RELOC(internal, howto) \
65 internal.r_type = howto->type; \
67 ((howto->complain_on_overflow == complain_overflow_signed \
70 | (howto->bitsize - 1)); \
73 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
74 #define COFF_LONG_FILENAMES
75 #define NO_COFF_SYMBOLS
76 #define RTYPE2HOWTO(cache_ptr, dst) xcoff_rtype2howto (cache_ptr, dst)
77 #define coff_mkobject _bfd_xcoff_mkobject
78 #define coff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
80 extern bfd_cleanup
rs6000coff_core_p (bfd
*abfd
);
81 extern bool rs6000coff_core_file_matches_executable_p
82 (bfd
*cbfd
, bfd
*ebfd
);
83 extern char *rs6000coff_core_file_failing_command (bfd
*abfd
);
84 extern int rs6000coff_core_file_failing_signal (bfd
*abfd
);
85 #define CORE_FILE_P rs6000coff_core_p
86 #define coff_core_file_failing_command \
87 rs6000coff_core_file_failing_command
88 #define coff_core_file_failing_signal \
89 rs6000coff_core_file_failing_signal
90 #define coff_core_file_matches_executable_p \
91 rs6000coff_core_file_matches_executable_p
92 #define coff_core_file_pid \
93 _bfd_nocore_core_file_pid
95 #define CORE_FILE_P _bfd_dummy_target
96 #define coff_core_file_failing_command \
97 _bfd_nocore_core_file_failing_command
98 #define coff_core_file_failing_signal \
99 _bfd_nocore_core_file_failing_signal
100 #define coff_core_file_matches_executable_p \
101 _bfd_nocore_core_file_matches_executable_p
102 #define coff_core_file_pid \
103 _bfd_nocore_core_file_pid
105 #define coff_SWAP_sym_in _bfd_xcoff_swap_sym_in
106 #define coff_SWAP_sym_out _bfd_xcoff_swap_sym_out
107 #define coff_SWAP_aux_in _bfd_xcoff_swap_aux_in
108 #define coff_SWAP_aux_out _bfd_xcoff_swap_aux_out
109 #define coff_swap_reloc_in xcoff_swap_reloc_in
110 #define coff_swap_reloc_out xcoff_swap_reloc_out
111 #define NO_COFF_RELOCS
113 #ifndef bfd_pe_print_pdata
114 #define bfd_pe_print_pdata NULL
117 #include "coffcode.h"
119 /* The main body of code is in coffcode.h. */
121 static const char *normalize_filename (bfd
*);
122 static bool xcoff_write_armap_old
123 (bfd
*, unsigned int, struct orl
*, unsigned int, int);
124 static bool xcoff_write_armap_big
125 (bfd
*, unsigned int, struct orl
*, unsigned int, int);
126 static bool xcoff_write_archive_contents_old (bfd
*);
127 static bool xcoff_write_archive_contents_big (bfd
*);
128 static void xcoff_swap_ldhdr_in (bfd
*, const void *, struct internal_ldhdr
*);
129 static void xcoff_swap_ldhdr_out (bfd
*, const struct internal_ldhdr
*, void *);
130 static void xcoff_swap_ldsym_in (bfd
*, const void *, struct internal_ldsym
*);
131 static void xcoff_swap_ldsym_out (bfd
*, const struct internal_ldsym
*, void *);
132 static void xcoff_swap_ldrel_in (bfd
*, const void *, struct internal_ldrel
*);
133 static void xcoff_swap_ldrel_out (bfd
*, const struct internal_ldrel
*, void *);
134 static bool xcoff_ppc_relocate_section
135 (bfd
*, struct bfd_link_info
*, bfd
*, asection
*, bfd_byte
*,
136 struct internal_reloc
*, struct internal_syment
*, asection
**);
137 static bool _bfd_xcoff_put_ldsymbol_name
138 (bfd
*, struct xcoff_loader_info
*, struct internal_ldsym
*, const char *);
139 static asection
*xcoff_create_csect_from_smclas
140 (bfd
*, union internal_auxent
*, const char *);
141 static bool xcoff_is_lineno_count_overflow (bfd
*, bfd_vma
);
142 static bool xcoff_is_reloc_count_overflow (bfd
*, bfd_vma
);
143 static bfd_vma
xcoff_loader_symbol_offset (bfd
*, struct internal_ldhdr
*);
144 static bfd_vma
xcoff_loader_reloc_offset (bfd
*, struct internal_ldhdr
*);
145 static bool xcoff_generate_rtinit
146 (bfd
*, const char *, const char *, bool);
147 static bool do_pad (bfd
*, unsigned int);
148 static bool do_copy (bfd
*, bfd
*);
150 /* Relocation functions */
151 static xcoff_reloc_function xcoff_reloc_type_br
;
153 static xcoff_complain_function xcoff_complain_overflow_dont_func
;
154 static xcoff_complain_function xcoff_complain_overflow_bitfield_func
;
155 static xcoff_complain_function xcoff_complain_overflow_signed_func
;
156 static xcoff_complain_function xcoff_complain_overflow_unsigned_func
;
158 xcoff_reloc_function
*const
159 xcoff_calculate_relocation
[XCOFF_MAX_CALCULATE_RELOCATION
] =
161 xcoff_reloc_type_pos
, /* R_POS (0x00) */
162 xcoff_reloc_type_neg
, /* R_NEG (0x01) */
163 xcoff_reloc_type_rel
, /* R_REL (0x02) */
164 xcoff_reloc_type_toc
, /* R_TOC (0x03) */
165 xcoff_reloc_type_toc
, /* R_TRL (0x04) */
166 xcoff_reloc_type_toc
, /* R_GL (0x05) */
167 xcoff_reloc_type_toc
, /* R_TCL (0x06) */
168 xcoff_reloc_type_fail
, /* (0x07) */
169 xcoff_reloc_type_ba
, /* R_BA (0x08) */
170 xcoff_reloc_type_fail
, /* (0x09) */
171 xcoff_reloc_type_br
, /* R_BR (0x0a) */
172 xcoff_reloc_type_fail
, /* (0x0b) */
173 xcoff_reloc_type_pos
, /* R_RL (0x0c) */
174 xcoff_reloc_type_pos
, /* R_RLA (0x0d) */
175 xcoff_reloc_type_fail
, /* (0x0e) */
176 xcoff_reloc_type_noop
, /* R_REF (0x0f) */
177 xcoff_reloc_type_fail
, /* (0x10) */
178 xcoff_reloc_type_fail
, /* (0x11) */
179 xcoff_reloc_type_fail
, /* (0x12) */
180 xcoff_reloc_type_toc
, /* R_TRLA (0x13) */
181 xcoff_reloc_type_fail
, /* R_RRTBI (0x14) */
182 xcoff_reloc_type_fail
, /* R_RRTBA (0x15) */
183 xcoff_reloc_type_ba
, /* R_CAI (0x16) */
184 xcoff_reloc_type_crel
, /* R_CREL (0x17) */
185 xcoff_reloc_type_ba
, /* R_RBA (0x18) */
186 xcoff_reloc_type_ba
, /* R_RBAC (0x19) */
187 xcoff_reloc_type_br
, /* R_RBR (0x1a) */
188 xcoff_reloc_type_ba
, /* R_RBRC (0x1b) */
189 xcoff_reloc_type_fail
, /* (0x1c) */
190 xcoff_reloc_type_fail
, /* (0x1d) */
191 xcoff_reloc_type_fail
, /* (0x1e) */
192 xcoff_reloc_type_fail
, /* (0x1f) */
193 xcoff_reloc_type_tls
, /* R_TLS (0x20) */
194 xcoff_reloc_type_tls
, /* R_TLS_IE (0x21) */
195 xcoff_reloc_type_tls
, /* R_TLS_LD (0x22) */
196 xcoff_reloc_type_tls
, /* R_TLS_LE (0x23) */
197 xcoff_reloc_type_tls
, /* R_TLSM (0x24) */
198 xcoff_reloc_type_tls
, /* R_TLSML (0x25) */
199 xcoff_reloc_type_fail
, /* (0x26) */
200 xcoff_reloc_type_fail
, /* (0x27) */
201 xcoff_reloc_type_fail
, /* (0x28) */
202 xcoff_reloc_type_fail
, /* (0x29) */
203 xcoff_reloc_type_fail
, /* (0x2a) */
204 xcoff_reloc_type_fail
, /* (0x2b) */
205 xcoff_reloc_type_fail
, /* (0x2c) */
206 xcoff_reloc_type_fail
, /* (0x2d) */
207 xcoff_reloc_type_fail
, /* (0x2e) */
208 xcoff_reloc_type_fail
, /* (0x2f) */
209 xcoff_reloc_type_toc
, /* R_TOCU (0x30) */
210 xcoff_reloc_type_toc
, /* R_TOCL (0x31) */
213 xcoff_complain_function
*const
214 xcoff_complain_overflow
[XCOFF_MAX_COMPLAIN_OVERFLOW
] =
216 xcoff_complain_overflow_dont_func
,
217 xcoff_complain_overflow_bitfield_func
,
218 xcoff_complain_overflow_signed_func
,
219 xcoff_complain_overflow_unsigned_func
,
222 /* Information about one member of an archive. */
225 /* The archive member that this structure describes. */
228 /* The number of bytes of padding that must be inserted before the
229 start of the member in order to ensure that the section contents
230 are correctly aligned. */
231 unsigned int leading_padding
;
233 /* The offset of MEMBER from the start of the archive (i.e. the end
234 of the leading padding). */
237 /* The normalized name of MEMBER. */
240 /* The length of NAME, without padding. */
241 bfd_size_type namlen
;
243 /* The length of NAME, with padding. */
244 bfd_size_type padded_namlen
;
246 /* The size of MEMBER's header, including the name and magic sequence. */
247 bfd_size_type header_size
;
249 /* The size of the MEMBER's contents. */
250 bfd_size_type contents_size
;
252 /* The number of bytes of padding that must be inserted after MEMBER
253 in order to preserve even alignment. */
254 bfd_size_type trailing_padding
;
257 /* A structure used for iterating over the members of an archive. */
258 struct archive_iterator
260 /* The archive itself. */
263 /* Information about the current archive member. */
264 struct member_layout current
;
266 /* Information about the next archive member. MEMBER is null if there
267 are no more archive members, in which case OFFSET is the offset of
268 the first unused byte. */
269 struct member_layout next
;
272 /* Initialize INFO so that it describes member MEMBER of archive ARCHIVE.
273 OFFSET is the even-padded offset of MEMBER, not including any leading
274 padding needed for section alignment. */
277 member_layout_init (struct member_layout
*info
, bfd
*archive
,
278 bfd
*member
, file_ptr offset
)
280 info
->member
= member
;
281 info
->leading_padding
= 0;
284 info
->name
= normalize_filename (member
);
285 info
->namlen
= strlen (info
->name
);
286 info
->padded_namlen
= info
->namlen
+ (info
->namlen
& 1);
287 if (xcoff_big_format_p (archive
))
288 info
->header_size
= SIZEOF_AR_HDR_BIG
;
290 info
->header_size
= SIZEOF_AR_HDR
;
291 info
->header_size
+= info
->padded_namlen
+ SXCOFFARFMAG
;
292 info
->contents_size
= arelt_size (member
);
293 info
->trailing_padding
= info
->contents_size
& 1;
295 if (bfd_check_format (member
, bfd_object
)
296 && bfd_get_flavour (member
) == bfd_target_xcoff_flavour
297 && (member
->flags
& DYNAMIC
) != 0)
298 info
->leading_padding
299 = (-(offset
+ info
->header_size
)
300 & ((1 << bfd_xcoff_text_align_power (member
)) - 1));
302 info
->offset
= offset
+ info
->leading_padding
;
305 /* Set up ITERATOR to iterate through archive ARCHIVE. */
308 archive_iterator_begin (struct archive_iterator
*iterator
,
311 iterator
->archive
= archive
;
312 member_layout_init (&iterator
->next
, archive
, archive
->archive_head
,
313 xcoff_big_format_p (archive
)
314 ? SIZEOF_AR_FILE_HDR_BIG
315 : SIZEOF_AR_FILE_HDR
);
318 /* Make ITERATOR visit the first unvisited archive member. Return true
319 on success; return false if all members have been visited. */
322 archive_iterator_next (struct archive_iterator
*iterator
)
324 if (!iterator
->next
.member
)
327 iterator
->current
= iterator
->next
;
328 member_layout_init (&iterator
->next
, iterator
->archive
,
329 iterator
->current
.member
->archive_next
,
330 iterator
->current
.offset
331 + iterator
->current
.header_size
332 + iterator
->current
.contents_size
333 + iterator
->current
.trailing_padding
);
337 /* We use our own tdata type. Its first field is the COFF tdata type,
338 so the COFF routines are compatible. */
341 _bfd_xcoff_mkobject (bfd
*abfd
)
343 coff_data_type
*coff
;
344 size_t amt
= sizeof (struct xcoff_tdata
);
346 abfd
->tdata
.xcoff_obj_data
= (struct xcoff_tdata
*) bfd_zalloc (abfd
, amt
);
347 if (abfd
->tdata
.xcoff_obj_data
== NULL
)
349 coff
= coff_data (abfd
);
350 coff
->symbols
= (coff_symbol_type
*) NULL
;
351 coff
->conversion_table
= (unsigned int *) NULL
;
352 coff
->raw_syments
= (struct coff_ptr_struct
*) NULL
;
355 xcoff_data (abfd
)->modtype
= ('1' << 8) | 'L';
357 /* We set cputype to -1 to indicate that it has not been
359 xcoff_data (abfd
)->cputype
= -1;
361 xcoff_data (abfd
)->csects
= NULL
;
362 xcoff_data (abfd
)->debug_indices
= NULL
;
364 /* text section alignment is different than the default */
365 bfd_xcoff_text_align_power (abfd
) = 2;
370 /* Copy XCOFF data from one BFD to another. */
373 _bfd_xcoff_copy_private_bfd_data (bfd
*ibfd
, bfd
*obfd
)
375 struct xcoff_tdata
*ix
, *ox
;
378 if (ibfd
->xvec
!= obfd
->xvec
)
380 ix
= xcoff_data (ibfd
);
381 ox
= xcoff_data (obfd
);
382 ox
->full_aouthdr
= ix
->full_aouthdr
;
388 sec
= coff_section_from_bfd_index (ibfd
, ix
->sntoc
);
389 if (sec
== NULL
|| sec
->output_section
== NULL
)
392 ox
->sntoc
= sec
->output_section
->target_index
;
394 if (ix
->snentry
== 0)
398 sec
= coff_section_from_bfd_index (ibfd
, ix
->snentry
);
399 if (sec
== NULL
|| sec
->output_section
== NULL
)
402 ox
->snentry
= sec
->output_section
->target_index
;
404 bfd_xcoff_text_align_power (obfd
) = bfd_xcoff_text_align_power (ibfd
);
405 bfd_xcoff_data_align_power (obfd
) = bfd_xcoff_data_align_power (ibfd
);
406 ox
->modtype
= ix
->modtype
;
407 ox
->cputype
= ix
->cputype
;
408 ox
->maxdata
= ix
->maxdata
;
409 ox
->maxstack
= ix
->maxstack
;
413 /* I don't think XCOFF really has a notion of local labels based on
414 name. This will mean that ld -X doesn't actually strip anything.
415 The AIX native linker does not have a -X option, and it ignores the
419 _bfd_xcoff_is_local_label_name (bfd
*abfd ATTRIBUTE_UNUSED
,
420 const char *name ATTRIBUTE_UNUSED
)
426 _bfd_xcoff_swap_sym_in (bfd
*abfd
, void * ext1
, void * in1
)
428 SYMENT
*ext
= (SYMENT
*)ext1
;
429 struct internal_syment
* in
= (struct internal_syment
*)in1
;
431 if (ext
->e
.e_name
[0] != 0)
433 memcpy (in
->_n
._n_name
, ext
->e
.e_name
, SYMNMLEN
);
437 in
->_n
._n_n
._n_zeroes
= 0;
438 in
->_n
._n_n
._n_offset
= H_GET_32 (abfd
, ext
->e
.e
.e_offset
);
441 in
->n_value
= H_GET_32 (abfd
, ext
->e_value
);
442 in
->n_scnum
= (short) H_GET_16 (abfd
, ext
->e_scnum
);
443 in
->n_type
= H_GET_16 (abfd
, ext
->e_type
);
444 in
->n_sclass
= H_GET_8 (abfd
, ext
->e_sclass
);
445 in
->n_numaux
= H_GET_8 (abfd
, ext
->e_numaux
);
449 _bfd_xcoff_swap_sym_out (bfd
*abfd
, void * inp
, void * extp
)
451 struct internal_syment
*in
= (struct internal_syment
*)inp
;
452 SYMENT
*ext
=(SYMENT
*)extp
;
454 if (in
->_n
._n_name
[0] != 0)
456 memcpy (ext
->e
.e_name
, in
->_n
._n_name
, SYMNMLEN
);
460 H_PUT_32 (abfd
, 0, ext
->e
.e
.e_zeroes
);
461 H_PUT_32 (abfd
, in
->_n
._n_n
._n_offset
, ext
->e
.e
.e_offset
);
464 H_PUT_32 (abfd
, in
->n_value
, ext
->e_value
);
465 H_PUT_16 (abfd
, in
->n_scnum
, ext
->e_scnum
);
466 H_PUT_16 (abfd
, in
->n_type
, ext
->e_type
);
467 H_PUT_8 (abfd
, in
->n_sclass
, ext
->e_sclass
);
468 H_PUT_8 (abfd
, in
->n_numaux
, ext
->e_numaux
);
469 return bfd_coff_symesz (abfd
);
473 _bfd_xcoff_swap_aux_in (bfd
*abfd
, void * ext1
, int type ATTRIBUTE_UNUSED
,
474 int in_class
, int indx
, int numaux
, void * in1
)
476 AUXENT
* ext
= (AUXENT
*)ext1
;
477 union internal_auxent
*in
= (union internal_auxent
*)in1
;
483 /* xgettext: c-format */
484 (_("%pB: unsupported swap_aux_in for storage class %#x"),
485 abfd
, (unsigned int) in_class
);
486 bfd_set_error (bfd_error_bad_value
);
490 if (ext
->x_file
.x_n
.x_fname
[0] == 0)
492 in
->x_file
.x_n
.x_n
.x_zeroes
= 0;
493 in
->x_file
.x_n
.x_n
.x_offset
=
494 H_GET_32 (abfd
, ext
->x_file
.x_n
.x_n
.x_offset
);
497 memcpy (in
->x_file
.x_n
.x_fname
, ext
->x_file
.x_n
.x_fname
, FILNMLEN
);
498 in
->x_file
.x_ftype
= H_GET_8 (abfd
, ext
->x_file
.x_ftype
);
501 /* RS/6000 "csect" auxents.
502 There is always a CSECT auxiliary entry. But functions can
503 have FCN ones too. In this case, CSECT is always the last
508 if (indx
+ 1 == numaux
)
510 in
->x_csect
.x_scnlen
.l
= H_GET_32 (abfd
, ext
->x_csect
.x_scnlen
);
511 in
->x_csect
.x_parmhash
= H_GET_32 (abfd
, ext
->x_csect
.x_parmhash
);
512 in
->x_csect
.x_snhash
= H_GET_16 (abfd
, ext
->x_csect
.x_snhash
);
513 /* We don't have to hack bitfields in x_smtyp because it's
514 defined by shifts-and-ands, which are equivalent on all
516 in
->x_csect
.x_smtyp
= H_GET_8 (abfd
, ext
->x_csect
.x_smtyp
);
517 in
->x_csect
.x_smclas
= H_GET_8 (abfd
, ext
->x_csect
.x_smclas
);
518 in
->x_csect
.x_stab
= H_GET_32 (abfd
, ext
->x_csect
.x_stab
);
519 in
->x_csect
.x_snstab
= H_GET_16 (abfd
, ext
->x_csect
.x_snstab
);
523 /* x_exptr isn't supported. */
524 in
->x_sym
.x_misc
.x_fsize
525 = H_GET_32 (abfd
, ext
->x_fcn
.x_fsize
);
526 in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
527 = H_GET_32 (abfd
, ext
->x_fcn
.x_lnnoptr
);
528 in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
529 = H_GET_32 (abfd
, ext
->x_fcn
.x_endndx
);
534 in
->x_scn
.x_scnlen
= H_GET_32 (abfd
, ext
->x_scn
.x_scnlen
);
535 in
->x_scn
.x_nreloc
= H_GET_16 (abfd
, ext
->x_scn
.x_nreloc
);
536 in
->x_scn
.x_nlinno
= H_GET_16 (abfd
, ext
->x_scn
.x_nlinno
);
537 /* PE defines some extra fields; we zero them out for
539 in
->x_scn
.x_checksum
= 0;
540 in
->x_scn
.x_associated
= 0;
541 in
->x_scn
.x_comdat
= 0;
546 in
->x_sym
.x_misc
.x_lnsz
.x_lnno
547 = H_GET_32 (abfd
, ext
->x_sym
.x_lnno
);
551 in
->x_sect
.x_scnlen
= H_GET_32 (abfd
, ext
->x_sect
.x_scnlen
);
552 in
->x_sect
.x_nreloc
= H_GET_32 (abfd
, ext
->x_sect
.x_nreloc
);
559 _bfd_xcoff_swap_aux_out (bfd
*abfd
, void * inp
, int type ATTRIBUTE_UNUSED
,
560 int in_class
, int indx
, int numaux
, void * extp
)
562 union internal_auxent
*in
= (union internal_auxent
*)inp
;
563 AUXENT
*ext
= (AUXENT
*)extp
;
565 memset (ext
, 0, bfd_coff_auxesz (abfd
));
570 /* xgettext: c-format */
571 (_("%pB: unsupported swap_aux_out for storage class %#x"),
572 abfd
, (unsigned int) in_class
);
573 bfd_set_error (bfd_error_bad_value
);
577 if (in
->x_file
.x_n
.x_fname
[0] == 0)
579 H_PUT_32 (abfd
, 0, ext
->x_file
.x_n
.x_n
.x_zeroes
);
580 H_PUT_32 (abfd
, in
->x_file
.x_n
.x_n
.x_offset
,
581 ext
->x_file
.x_n
.x_n
.x_offset
);
584 memcpy (ext
->x_file
.x_n
.x_fname
, in
->x_file
.x_n
.x_fname
, FILNMLEN
);
585 H_PUT_8 (abfd
, in
->x_file
.x_ftype
, ext
->x_file
.x_ftype
);
588 /* RS/6000 "csect" auxents */
592 if (indx
+ 1 == numaux
)
594 H_PUT_32 (abfd
, in
->x_csect
.x_scnlen
.l
, ext
->x_csect
.x_scnlen
);
595 H_PUT_32 (abfd
, in
->x_csect
.x_parmhash
, ext
->x_csect
.x_parmhash
);
596 H_PUT_16 (abfd
, in
->x_csect
.x_snhash
, ext
->x_csect
.x_snhash
);
597 /* We don't have to hack bitfields in x_smtyp because it's
598 defined by shifts-and-ands, which are equivalent on all
600 H_PUT_8 (abfd
, in
->x_csect
.x_smtyp
, ext
->x_csect
.x_smtyp
);
601 H_PUT_8 (abfd
, in
->x_csect
.x_smclas
, ext
->x_csect
.x_smclas
);
602 H_PUT_32 (abfd
, in
->x_csect
.x_stab
, ext
->x_csect
.x_stab
);
603 H_PUT_16 (abfd
, in
->x_csect
.x_snstab
, ext
->x_csect
.x_snstab
);
607 H_PUT_32 (abfd
, in
->x_sym
.x_misc
.x_fsize
, ext
->x_fcn
.x_fsize
);
608 H_PUT_32 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
,
609 ext
->x_fcn
.x_lnnoptr
);
610 H_PUT_32 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
611 ext
->x_fcn
.x_endndx
);
616 H_PUT_32 (abfd
, in
->x_scn
.x_scnlen
, ext
->x_scn
.x_scnlen
);
617 H_PUT_16 (abfd
, in
->x_scn
.x_nreloc
, ext
->x_scn
.x_nreloc
);
618 H_PUT_16 (abfd
, in
->x_scn
.x_nlinno
, ext
->x_scn
.x_nlinno
);
623 H_PUT_32 (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_lnno
, ext
->x_sym
.x_lnno
);
627 H_PUT_32 (abfd
, in
->x_sect
.x_scnlen
, ext
->x_sect
.x_scnlen
);
628 H_PUT_32 (abfd
, in
->x_sect
.x_nreloc
, ext
->x_sect
.x_nreloc
);
632 return bfd_coff_auxesz (abfd
);
635 /* The XCOFF reloc table.
636 XCOFF relocations aren't defined only by the type field r_type.
637 The bitsize and whether they are signed or not, are defined by
638 r_size field. Thus, it's complicated to create a constant
639 table reference every possible relocation.
640 This table contains the "default" relocation and few modified
641 relocations what were already there. It's enough when
642 xcoff_rtype2howto is called.
643 For relocations from an input bfd to an output bfd, the default
644 relocation is retrieved and when manually adapted.
646 For now, it seems to be enought. */
648 reloc_howto_type xcoff_howto_table
[] =
650 /* 0x00: Standard 32 bit relocation. */
651 HOWTO (R_POS
, /* type */
653 2, /* size (0 = byte, 1 = short, 2 = long) */
655 false, /* pc_relative */
657 complain_overflow_bitfield
, /* complain_on_overflow */
658 0, /* special_function */
660 true, /* partial_inplace */
661 0xffffffff, /* src_mask */
662 0xffffffff, /* dst_mask */
663 false), /* pcrel_offset */
665 /* 0x01: 32 bit relocation, but store negative value. */
666 HOWTO (R_NEG
, /* type */
668 -2, /* size (0 = byte, 1 = short, 2 = long) */
670 false, /* pc_relative */
672 complain_overflow_bitfield
, /* complain_on_overflow */
673 0, /* special_function */
675 true, /* partial_inplace */
676 0xffffffff, /* src_mask */
677 0xffffffff, /* dst_mask */
678 false), /* pcrel_offset */
680 /* 0x02: 32 bit PC relative relocation. */
681 HOWTO (R_REL
, /* type */
683 2, /* size (0 = byte, 1 = short, 2 = long) */
685 true, /* pc_relative */
687 complain_overflow_signed
, /* complain_on_overflow */
688 0, /* special_function */
690 true, /* partial_inplace */
691 0xffffffff, /* src_mask */
692 0xffffffff, /* dst_mask */
693 false), /* pcrel_offset */
695 /* 0x03: 16 bit TOC relative relocation. */
696 HOWTO (R_TOC
, /* type */
698 1, /* size (0 = byte, 1 = short, 2 = long) */
700 false, /* pc_relative */
702 complain_overflow_bitfield
, /* complain_on_overflow */
703 0, /* special_function */
705 true, /* partial_inplace */
707 0xffff, /* dst_mask */
708 false), /* pcrel_offset */
710 /* 0x04: Same as R_TOC */
711 HOWTO (R_TRL
, /* type */
713 1, /* size (0 = byte, 1 = short, 2 = long) */
715 false, /* pc_relative */
717 complain_overflow_bitfield
, /* complain_on_overflow */
718 0, /* special_function */
720 true, /* partial_inplace */
722 0xffff, /* dst_mask */
723 false), /* pcrel_offset */
725 /* 0x05: External TOC relative symbol. */
726 HOWTO (R_GL
, /* type */
728 1, /* size (0 = byte, 1 = short, 2 = long) */
730 false, /* pc_relative */
732 complain_overflow_bitfield
, /* complain_on_overflow */
733 0, /* special_function */
735 true, /* partial_inplace */
737 0xffff, /* dst_mask */
738 false), /* pcrel_offset */
740 /* 0x06: Local TOC relative symbol. */
741 HOWTO (R_TCL
, /* type */
743 1, /* size (0 = byte, 1 = short, 2 = long) */
745 false, /* pc_relative */
747 complain_overflow_bitfield
, /* complain_on_overflow */
748 0, /* special_function */
750 true, /* partial_inplace */
752 0xffff, /* dst_mask */
753 false), /* pcrel_offset */
757 /* 0x08: Same as R_RBA. */
758 HOWTO (R_BA
, /* type */
760 2, /* size (0 = byte, 1 = short, 2 = long) */
762 false, /* pc_relative */
764 complain_overflow_bitfield
, /* complain_on_overflow */
765 0, /* special_function */
766 "R_BA_26", /* name */
767 true, /* partial_inplace */
768 0x03fffffc, /* src_mask */
769 0x03fffffc, /* dst_mask */
770 false), /* pcrel_offset */
774 /* 0x0a: Same as R_RBR. */
775 HOWTO (R_BR
, /* type */
777 2, /* size (0 = byte, 1 = short, 2 = long) */
779 true, /* pc_relative */
781 complain_overflow_signed
, /* complain_on_overflow */
782 0, /* special_function */
784 true, /* partial_inplace */
785 0x03fffffc, /* src_mask */
786 0x03fffffc, /* dst_mask */
787 false), /* pcrel_offset */
791 /* 0x0c: Same as R_POS. */
792 HOWTO (R_RL
, /* type */
794 2, /* size (0 = byte, 1 = short, 2 = long) */
796 false, /* pc_relative */
798 complain_overflow_bitfield
, /* complain_on_overflow */
799 0, /* special_function */
801 true, /* partial_inplace */
802 0xffffffff, /* src_mask */
803 0xffffffff, /* dst_mask */
804 false), /* pcrel_offset */
806 /* 0x0d: Same as R_POS. */
807 HOWTO (R_RLA
, /* type */
809 2, /* size (0 = byte, 1 = short, 2 = long) */
811 false, /* pc_relative */
813 complain_overflow_bitfield
, /* complain_on_overflow */
814 0, /* special_function */
816 true, /* partial_inplace */
817 0xffffffff, /* src_mask */
818 0xffffffff, /* dst_mask */
819 false), /* pcrel_offset */
823 /* 0x0f: Non-relocating reference. Bitsize is 1 so that r_rsize is 0. */
824 HOWTO (R_REF
, /* type */
826 0, /* size (0 = byte, 1 = short, 2 = long) */
828 false, /* pc_relative */
830 complain_overflow_dont
, /* complain_on_overflow */
831 0, /* special_function */
833 false, /* partial_inplace */
836 false), /* pcrel_offset */
842 /* 0x13: Same as R_TOC. */
843 HOWTO (R_TRLA
, /* type */
845 1, /* size (0 = byte, 1 = short, 2 = long) */
847 false, /* pc_relative */
849 complain_overflow_bitfield
, /* complain_on_overflow */
850 0, /* special_function */
852 true, /* partial_inplace */
854 0xffff, /* dst_mask */
855 false), /* pcrel_offset */
857 /* 0x14: Modifiable relative branch. */
858 HOWTO (R_RRTBI
, /* type */
860 2, /* size (0 = byte, 1 = short, 2 = long) */
862 false, /* pc_relative */
864 complain_overflow_bitfield
, /* complain_on_overflow */
865 0, /* special_function */
866 "R_RRTBI", /* name */
867 true, /* partial_inplace */
868 0xffffffff, /* src_mask */
869 0xffffffff, /* dst_mask */
870 false), /* pcrel_offset */
872 /* 0x15: Modifiable absolute branch. */
873 HOWTO (R_RRTBA
, /* type */
875 2, /* size (0 = byte, 1 = short, 2 = long) */
877 false, /* pc_relative */
879 complain_overflow_bitfield
, /* complain_on_overflow */
880 0, /* special_function */
881 "R_RRTBA", /* name */
882 true, /* partial_inplace */
883 0xffffffff, /* src_mask */
884 0xffffffff, /* dst_mask */
885 false), /* pcrel_offset */
887 /* 0x16: Modifiable call absolute indirect. */
888 HOWTO (R_CAI
, /* type */
890 1, /* size (0 = byte, 1 = short, 2 = long) */
892 false, /* pc_relative */
894 complain_overflow_bitfield
, /* complain_on_overflow */
895 0, /* special_function */
897 true, /* partial_inplace */
898 0xffff, /* src_mask */
899 0xffff, /* dst_mask */
900 false), /* pcrel_offset */
902 /* 0x17: Modifiable call relative. */
903 HOWTO (R_CREL
, /* type */
905 1, /* size (0 = byte, 1 = short, 2 = long) */
907 false, /* pc_relative */
909 complain_overflow_bitfield
, /* complain_on_overflow */
910 0, /* special_function */
912 true, /* partial_inplace */
913 0xffff, /* src_mask */
914 0xffff, /* dst_mask */
915 false), /* pcrel_offset */
917 /* 0x18: Modifiable branch absolute. */
918 HOWTO (R_RBA
, /* type */
920 2, /* size (0 = byte, 1 = short, 2 = long) */
922 false, /* pc_relative */
924 complain_overflow_bitfield
, /* complain_on_overflow */
925 0, /* special_function */
927 true, /* partial_inplace */
928 0x03fffffc, /* src_mask */
929 0x03fffffc, /* dst_mask */
930 false), /* pcrel_offset */
932 /* 0x19: Modifiable branch absolute. */
933 HOWTO (R_RBAC
, /* type */
935 2, /* size (0 = byte, 1 = short, 2 = long) */
937 false, /* pc_relative */
939 complain_overflow_bitfield
, /* complain_on_overflow */
940 0, /* special_function */
942 true, /* partial_inplace */
943 0xffffffff, /* src_mask */
944 0xffffffff, /* dst_mask */
945 false), /* pcrel_offset */
947 /* 0x1a: Modifiable branch relative. */
948 HOWTO (R_RBR
, /* type */
950 2, /* size (0 = byte, 1 = short, 2 = long) */
952 false, /* pc_relative */
954 complain_overflow_signed
, /* complain_on_overflow */
955 0, /* special_function */
956 "R_RBR_26", /* name */
957 true, /* partial_inplace */
958 0x03fffffc, /* src_mask */
959 0x03fffffc, /* dst_mask */
960 false), /* pcrel_offset */
962 /* 0x1b: Modifiable branch absolute. */
963 HOWTO (R_RBRC
, /* type */
965 1, /* size (0 = byte, 1 = short, 2 = long) */
967 false, /* pc_relative */
969 complain_overflow_bitfield
, /* complain_on_overflow */
970 0, /* special_function */
972 true, /* partial_inplace */
973 0xffff, /* src_mask */
974 0xffff, /* dst_mask */
975 false), /* pcrel_offset */
977 /* 0x1c: 16 bit Non modifiable absolute branch. */
978 HOWTO (R_BA
, /* type */
980 1, /* size (0 = byte, 1 = short, 2 = long) */
982 false, /* pc_relative */
984 complain_overflow_bitfield
, /* complain_on_overflow */
985 0, /* special_function */
986 "R_BA_16", /* name */
987 true, /* partial_inplace */
988 0xfffc, /* src_mask */
989 0xfffc, /* dst_mask */
990 false), /* pcrel_offset */
992 /* 0x1d: Modifiable branch relative. */
993 HOWTO (R_RBR
, /* type */
995 1, /* size (0 = byte, 1 = short, 2 = long) */
997 true, /* pc_relative */
999 complain_overflow_signed
, /* complain_on_overflow */
1000 0, /* special_function */
1001 "R_RBR_16", /* name */
1002 true, /* partial_inplace */
1003 0xfffc, /* src_mask */
1004 0xfffc, /* dst_mask */
1005 false), /* pcrel_offset */
1007 /* 0x1e: Modifiable branch relative. */
1008 HOWTO (R_RBA
, /* type */
1010 1, /* size (0 = byte, 1 = short, 2 = long) */
1012 false, /* pc_relative */
1014 complain_overflow_signed
, /* complain_on_overflow */
1015 0, /* special_function */
1016 "R_RBA_16", /* name */
1017 true, /* partial_inplace */
1018 0xffff, /* src_mask */
1019 0xffff, /* dst_mask */
1020 false), /* pcrel_offset */
1024 /* 0x20: General-dynamic TLS relocation. */
1025 HOWTO (R_TLS
, /* type */
1027 2, /* size (0 = byte, 1 = short, 2 = long) */
1029 false, /* pc_relative */
1031 complain_overflow_bitfield
, /* complain_on_overflow */
1032 0, /* special_function */
1034 true, /* partial_inplace */
1035 0xffffffff, /* src_mask */
1036 0xffffffff, /* dst_mask */
1037 false), /* pcrel_offset */
1039 /* 0x21: Initial-exec TLS relocation. */
1040 HOWTO (R_TLS_IE
, /* type */
1042 2, /* size (0 = byte, 1 = short, 2 = long) */
1044 false, /* pc_relative */
1046 complain_overflow_bitfield
, /* complain_on_overflow */
1047 0, /* special_function */
1048 "R_TLS_IE", /* name */
1049 true, /* partial_inplace */
1050 0xffffffff, /* src_mask */
1051 0xffffffff, /* dst_mask */
1052 false), /* pcrel_offset */
1054 /* 0x22: Local-dynamic TLS relocation. */
1055 HOWTO (R_TLS_LD
, /* type */
1057 2, /* size (0 = byte, 1 = short, 2 = long) */
1059 false, /* pc_relative */
1061 complain_overflow_bitfield
, /* complain_on_overflow */
1062 0, /* special_function */
1063 "R_TLS_LD", /* name */
1064 true, /* partial_inplace */
1065 0xffffffff, /* src_mask */
1066 0xffffffff, /* dst_mask */
1067 false), /* pcrel_offset */
1069 /* 0x23: Local-exec TLS relocation. */
1070 HOWTO (R_TLS_LE
, /* type */
1072 2, /* size (0 = byte, 1 = short, 2 = long) */
1074 false, /* pc_relative */
1076 complain_overflow_bitfield
, /* complain_on_overflow */
1077 0, /* special_function */
1078 "R_TLS_LE", /* name */
1079 true, /* partial_inplace */
1080 0xffffffff, /* src_mask */
1081 0xffffffff, /* dst_mask */
1082 false), /* pcrel_offset */
1084 /* 0x24: TLS relocation. */
1085 HOWTO (R_TLSM
, /* type */
1087 2, /* size (0 = byte, 1 = short, 2 = long) */
1089 false, /* pc_relative */
1091 complain_overflow_bitfield
, /* complain_on_overflow */
1092 0, /* special_function */
1093 "R_TLSM", /* name */
1094 true, /* partial_inplace */
1095 0xffffffff, /* src_mask */
1096 0xffffffff, /* dst_mask */
1097 false), /* pcrel_offset */
1100 /* 0x25: TLS module relocation. */
1101 HOWTO (R_TLSML
, /* type */
1103 2, /* size (0 = byte, 1 = short, 2 = long) */
1105 false, /* pc_relative */
1107 complain_overflow_bitfield
, /* complain_on_overflow */
1108 0, /* special_function */
1109 "R_TLSML", /* name */
1110 true, /* partial_inplace */
1111 0xffffffff, /* src_mask */
1112 0xffffffff, /* dst_mask */
1113 false), /* pcrel_offset */
1126 /* 0x30: High-order 16 bit TOC relative relocation. */
1127 HOWTO (R_TOCU
, /* type */
1128 16, /* rightshift */
1129 1, /* size (0 = byte, 1 = short, 2 = long) */
1131 false, /* pc_relative */
1133 complain_overflow_bitfield
, /* complain_on_overflow */
1134 0, /* special_function */
1135 "R_TOCU", /* name */
1136 true, /* partial_inplace */
1138 0xffff, /* dst_mask */
1139 false), /* pcrel_offset */
1141 /* 0x31: Low-order 16 bit TOC relative relocation. */
1142 HOWTO (R_TOCL
, /* type */
1144 1, /* size (0 = byte, 1 = short, 2 = long) */
1146 false, /* pc_relative */
1148 complain_overflow_dont
, /* complain_on_overflow */
1149 0, /* special_function */
1150 "R_TOCL", /* name */
1151 true, /* partial_inplace */
1153 0xffff, /* dst_mask */
1154 false), /* pcrel_offset */
1159 xcoff_rtype2howto (arelent
*relent
, struct internal_reloc
*internal
)
1161 if (internal
->r_type
> R_TOCL
)
1164 /* Default howto layout works most of the time */
1165 relent
->howto
= &xcoff_howto_table
[internal
->r_type
];
1167 /* Special case some 16 bit reloc */
1168 if (15 == (internal
->r_size
& 0x1f))
1170 if (R_BA
== internal
->r_type
)
1171 relent
->howto
= &xcoff_howto_table
[0x1c];
1172 else if (R_RBR
== internal
->r_type
)
1173 relent
->howto
= &xcoff_howto_table
[0x1d];
1174 else if (R_RBA
== internal
->r_type
)
1175 relent
->howto
= &xcoff_howto_table
[0x1e];
1178 /* The r_size field of an XCOFF reloc encodes the bitsize of the
1179 relocation, as well as indicating whether it is signed or not.
1180 Doublecheck that the relocation information gathered from the
1181 type matches this information. The bitsize is not significant
1182 for R_REF relocs. */
1183 if (relent
->howto
->dst_mask
!= 0
1184 && (relent
->howto
->bitsize
1185 != ((unsigned int) internal
->r_size
& 0x1f) + 1))
1190 _bfd_xcoff_reloc_type_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1191 bfd_reloc_code_real_type code
)
1195 case BFD_RELOC_PPC_B26
:
1196 return &xcoff_howto_table
[0xa];
1197 case BFD_RELOC_PPC_BA16
:
1198 return &xcoff_howto_table
[0x1c];
1199 case BFD_RELOC_PPC_BA26
:
1200 return &xcoff_howto_table
[8];
1201 case BFD_RELOC_PPC_TOC16
:
1202 return &xcoff_howto_table
[3];
1203 case BFD_RELOC_PPC_TOC16_HI
:
1204 return &xcoff_howto_table
[0x30];
1205 case BFD_RELOC_PPC_TOC16_LO
:
1206 return &xcoff_howto_table
[0x31];
1207 case BFD_RELOC_PPC_B16
:
1208 return &xcoff_howto_table
[0x1d];
1210 case BFD_RELOC_CTOR
:
1211 return &xcoff_howto_table
[0];
1212 case BFD_RELOC_NONE
:
1213 return &xcoff_howto_table
[0xf];
1214 case BFD_RELOC_PPC_NEG
:
1215 return &xcoff_howto_table
[0x1];
1216 case BFD_RELOC_PPC_TLSGD
:
1217 return &xcoff_howto_table
[0x20];
1218 case BFD_RELOC_PPC_TLSIE
:
1219 return &xcoff_howto_table
[0x21];
1220 case BFD_RELOC_PPC_TLSLD
:
1221 return &xcoff_howto_table
[0x22];
1222 case BFD_RELOC_PPC_TLSLE
:
1223 return &xcoff_howto_table
[0x23];
1224 case BFD_RELOC_PPC_TLSM
:
1225 return &xcoff_howto_table
[0x24];
1226 case BFD_RELOC_PPC_TLSML
:
1227 return &xcoff_howto_table
[0x25];
1233 static reloc_howto_type
*
1234 _bfd_xcoff_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1240 i
< sizeof (xcoff_howto_table
) / sizeof (xcoff_howto_table
[0]);
1242 if (xcoff_howto_table
[i
].name
!= NULL
1243 && strcasecmp (xcoff_howto_table
[i
].name
, r_name
) == 0)
1244 return &xcoff_howto_table
[i
];
1249 /* XCOFF archive support. The original version of this code was by
1250 Damon A. Permezel. It was enhanced to permit cross support, and
1251 writing archive files, by Ian Lance Taylor, Cygnus Support.
1253 XCOFF uses its own archive format. Everything is hooked together
1254 with file offset links, so it is possible to rapidly update an
1255 archive in place. Of course, we don't do that. An XCOFF archive
1256 has a real file header, not just an ARMAG string. The structure of
1257 the file header and of each archive header appear below.
1259 An XCOFF archive also has a member table, which is a list of
1260 elements in the archive (you can get that by looking through the
1261 linked list, but you have to read a lot more of the file). The
1262 member table has a normal archive header with an empty name. It is
1263 normally (and perhaps must be) the second to last entry in the
1264 archive. The member table data is almost printable ASCII. It
1265 starts with a 12 character decimal string which is the number of
1266 entries in the table. For each entry it has a 12 character decimal
1267 string which is the offset in the archive of that member. These
1268 entries are followed by a series of null terminated strings which
1269 are the member names for each entry.
1271 Finally, an XCOFF archive has a global symbol table, which is what
1272 we call the armap. The global symbol table has a normal archive
1273 header with an empty name. It is normally (and perhaps must be)
1274 the last entry in the archive. The contents start with a four byte
1275 binary number which is the number of entries. This is followed by
1276 a that many four byte binary numbers; each is the file offset of an
1277 entry in the archive. These numbers are followed by a series of
1278 null terminated strings, which are symbol names.
1280 AIX 4.3 introduced a new archive format which can handle larger
1281 files and also 32- and 64-bit objects in the same archive. The
1282 things said above remain true except that there is now more than
1283 one global symbol table. The one is used to index 32-bit objects,
1284 the other for 64-bit objects.
1286 The new archives (recognizable by the new ARMAG string) has larger
1287 field lengths so that we cannot really share any code. Also we have
1288 to take care that we are not generating the new form of archives
1289 on AIX 4.2 or earlier systems. */
1291 /* PR 21786: The PE/COFF standard does not require NUL termination for any of
1292 the ASCII fields in the archive headers. So in order to be able to extract
1293 numerical values we provide our own versions of strtol and strtoll which
1294 take a maximum length as an additional parameter. Also - just to save space,
1295 we omit the endptr return parameter, since we know that it is never used. */
1298 _bfd_strntol (const char * nptr
, int base
, unsigned int maxlen
)
1300 char buf
[24]; /* Should be enough. */
1302 BFD_ASSERT (maxlen
< (sizeof (buf
) - 1));
1304 memcpy (buf
, nptr
, maxlen
);
1306 return strtol (buf
, NULL
, base
);
1310 _bfd_strntoll (const char * nptr
, int base
, unsigned int maxlen
)
1312 char buf
[32]; /* Should be enough. */
1314 BFD_ASSERT (maxlen
< (sizeof (buf
) - 1));
1316 memcpy (buf
, nptr
, maxlen
);
1318 return strtoll (buf
, NULL
, base
);
1321 /* Macro to read an ASCII value stored in an archive header field. */
1322 #define GET_VALUE_IN_FIELD(VAR, FIELD, BASE) \
1325 (VAR) = (sizeof (VAR) > sizeof (long) \
1326 ? _bfd_strntoll (FIELD, BASE, sizeof FIELD) \
1327 : _bfd_strntol (FIELD, BASE, sizeof FIELD)); \
1331 #define EQ_VALUE_IN_FIELD(VAR, FIELD, BASE) \
1332 (sizeof (VAR) > sizeof (long) \
1333 ? (VAR) == _bfd_strntoll (FIELD, BASE, sizeof FIELD) \
1334 : (VAR) == _bfd_strntol (FIELD, BASE, sizeof FIELD))
1336 /* Read in the armap of an XCOFF archive. */
1339 _bfd_xcoff_slurp_armap (bfd
*abfd
)
1344 bfd_byte
*contents
, *cend
;
1349 if (xcoff_ardata (abfd
) == NULL
)
1351 abfd
->has_armap
= false;
1355 if (! xcoff_big_format_p (abfd
))
1357 /* This is for the old format. */
1358 struct xcoff_ar_hdr hdr
;
1360 GET_VALUE_IN_FIELD (off
, xcoff_ardata (abfd
)->symoff
, 10);
1363 abfd
->has_armap
= false;
1367 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1370 /* The symbol table starts with a normal archive header. */
1371 if (bfd_bread (&hdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
1375 /* Skip the name (normally empty). */
1376 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1377 off
= ((namlen
+ 1) & ~ (size_t) 1) + SXCOFFARFMAG
;
1378 if (bfd_seek (abfd
, off
, SEEK_CUR
) != 0)
1381 GET_VALUE_IN_FIELD (sz
, hdr
.size
, 10);
1384 bfd_set_error (bfd_error_bad_value
);
1388 /* Read in the entire symbol table. */
1389 contents
= (bfd_byte
*) _bfd_alloc_and_read (abfd
, sz
+ 1, sz
);
1390 if (contents
== NULL
)
1393 /* Ensure strings are NULL terminated so we don't wander off the
1394 end of the buffer. */
1397 /* The symbol table starts with a four byte count. */
1398 c
= H_GET_32 (abfd
, contents
);
1402 bfd_set_error (bfd_error_bad_value
);
1406 bfd_ardata (abfd
)->symdefs
=
1407 ((carsym
*) bfd_alloc (abfd
, c
* sizeof (carsym
)));
1408 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1411 /* After the count comes a list of four byte file offsets. */
1412 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 4;
1414 ++i
, ++arsym
, p
+= 4)
1415 arsym
->file_offset
= H_GET_32 (abfd
, p
);
1419 /* This is for the new format. */
1420 struct xcoff_ar_hdr_big hdr
;
1422 GET_VALUE_IN_FIELD (off
, xcoff_ardata_big (abfd
)->symoff
, 10);
1425 abfd
->has_armap
= false;
1429 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1432 /* The symbol table starts with a normal archive header. */
1433 if (bfd_bread (&hdr
, (bfd_size_type
) SIZEOF_AR_HDR_BIG
, abfd
)
1434 != SIZEOF_AR_HDR_BIG
)
1437 /* Skip the name (normally empty). */
1438 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1439 off
= ((namlen
+ 1) & ~ (size_t) 1) + SXCOFFARFMAG
;
1440 if (bfd_seek (abfd
, off
, SEEK_CUR
) != 0)
1443 GET_VALUE_IN_FIELD (sz
, hdr
.size
, 10);
1446 bfd_set_error (bfd_error_bad_value
);
1450 /* Read in the entire symbol table. */
1451 contents
= (bfd_byte
*) _bfd_alloc_and_read (abfd
, sz
+ 1, sz
);
1452 if (contents
== NULL
)
1455 /* Ensure strings are NULL terminated so we don't wander off the
1456 end of the buffer. */
1459 /* The symbol table starts with an eight byte count. */
1460 c
= H_GET_64 (abfd
, contents
);
1464 bfd_set_error (bfd_error_bad_value
);
1468 bfd_ardata (abfd
)->symdefs
=
1469 ((carsym
*) bfd_alloc (abfd
, c
* sizeof (carsym
)));
1470 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1473 /* After the count comes a list of eight byte file offsets. */
1474 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 8;
1476 ++i
, ++arsym
, p
+= 8)
1477 arsym
->file_offset
= H_GET_64 (abfd
, p
);
1480 /* After the file offsets come null terminated symbol names. */
1481 cend
= contents
+ sz
;
1482 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
;
1484 ++i
, ++arsym
, p
+= strlen ((char *) p
) + 1)
1488 bfd_set_error (bfd_error_bad_value
);
1491 arsym
->name
= (char *) p
;
1494 bfd_ardata (abfd
)->symdef_count
= c
;
1495 abfd
->has_armap
= true;
1500 /* See if this is an XCOFF archive. */
1503 _bfd_xcoff_archive_p (bfd
*abfd
)
1505 struct artdata
*tdata_hold
;
1506 char magic
[SXCOFFARMAG
];
1507 size_t amt
= SXCOFFARMAG
;
1509 if (bfd_bread (magic
, amt
, abfd
) != amt
)
1511 if (bfd_get_error () != bfd_error_system_call
)
1512 bfd_set_error (bfd_error_wrong_format
);
1516 if (strncmp (magic
, XCOFFARMAG
, SXCOFFARMAG
) != 0
1517 && strncmp (magic
, XCOFFARMAGBIG
, SXCOFFARMAG
) != 0)
1519 bfd_set_error (bfd_error_wrong_format
);
1523 tdata_hold
= bfd_ardata (abfd
);
1525 amt
= sizeof (struct artdata
);
1526 bfd_ardata (abfd
) = (struct artdata
*) bfd_zalloc (abfd
, amt
);
1527 if (bfd_ardata (abfd
) == (struct artdata
*) NULL
)
1528 goto error_ret_restore
;
1530 /* Cleared by bfd_zalloc above.
1531 bfd_ardata (abfd)->cache = NULL;
1532 bfd_ardata (abfd)->archive_head = NULL;
1533 bfd_ardata (abfd)->symdefs = NULL;
1534 bfd_ardata (abfd)->extended_names = NULL;
1535 bfd_ardata (abfd)->extended_names_size = 0; */
1537 /* Now handle the two formats. */
1538 if (magic
[1] != 'b')
1540 /* This is the old format. */
1541 struct xcoff_ar_file_hdr hdr
;
1543 /* Copy over the magic string. */
1544 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1546 /* Now read the rest of the file header. */
1547 amt
= SIZEOF_AR_FILE_HDR
- SXCOFFARMAG
;
1548 if (bfd_bread (&hdr
.memoff
, amt
, abfd
) != amt
)
1550 if (bfd_get_error () != bfd_error_system_call
)
1551 bfd_set_error (bfd_error_wrong_format
);
1555 GET_VALUE_IN_FIELD (bfd_ardata (abfd
)->first_file_filepos
,
1556 hdr
.firstmemoff
, 10);
1558 amt
= SIZEOF_AR_FILE_HDR
;
1559 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, amt
);
1560 if (bfd_ardata (abfd
)->tdata
== NULL
)
1563 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR
);
1567 /* This is the new format. */
1568 struct xcoff_ar_file_hdr_big hdr
;
1570 /* Copy over the magic string. */
1571 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1573 /* Now read the rest of the file header. */
1574 amt
= SIZEOF_AR_FILE_HDR_BIG
- SXCOFFARMAG
;
1575 if (bfd_bread (&hdr
.memoff
, amt
, abfd
) != amt
)
1577 if (bfd_get_error () != bfd_error_system_call
)
1578 bfd_set_error (bfd_error_wrong_format
);
1582 bfd_ardata (abfd
)->first_file_filepos
= bfd_scan_vma (hdr
.firstmemoff
,
1586 amt
= SIZEOF_AR_FILE_HDR_BIG
;
1587 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, amt
);
1588 if (bfd_ardata (abfd
)->tdata
== NULL
)
1591 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR_BIG
);
1594 if (! _bfd_xcoff_slurp_armap (abfd
))
1597 bfd_release (abfd
, bfd_ardata (abfd
));
1599 bfd_ardata (abfd
) = tdata_hold
;
1603 return _bfd_no_cleanup
;
1606 /* Read the archive header in an XCOFF archive. */
1609 _bfd_xcoff_read_ar_hdr (bfd
*abfd
)
1611 bfd_size_type namlen
;
1612 struct areltdata
*ret
;
1615 if (! xcoff_big_format_p (abfd
))
1617 struct xcoff_ar_hdr hdr
;
1618 struct xcoff_ar_hdr
*hdrp
;
1620 if (bfd_bread (&hdr
, SIZEOF_AR_HDR
, abfd
) != SIZEOF_AR_HDR
)
1623 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1624 if (namlen
> bfd_get_file_size (abfd
))
1626 amt
= sizeof (struct areltdata
) + SIZEOF_AR_HDR
+ namlen
+ 1;
1627 ret
= (struct areltdata
*) bfd_malloc (amt
);
1631 hdrp
= (struct xcoff_ar_hdr
*) (ret
+ 1);
1632 memcpy (hdrp
, &hdr
, SIZEOF_AR_HDR
);
1633 if (bfd_bread ((char *) hdrp
+ SIZEOF_AR_HDR
, namlen
, abfd
) != namlen
)
1638 ((char *) hdrp
)[SIZEOF_AR_HDR
+ namlen
] = '\0';
1640 ret
->arch_header
= (char *) hdrp
;
1641 GET_VALUE_IN_FIELD (ret
->parsed_size
, hdr
.size
, 10);
1642 ret
->filename
= (char *) hdrp
+ SIZEOF_AR_HDR
;
1646 struct xcoff_ar_hdr_big hdr
;
1647 struct xcoff_ar_hdr_big
*hdrp
;
1649 if (bfd_bread (&hdr
, SIZEOF_AR_HDR_BIG
, abfd
) != SIZEOF_AR_HDR_BIG
)
1652 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1653 if (namlen
> bfd_get_file_size (abfd
))
1655 amt
= sizeof (struct areltdata
) + SIZEOF_AR_HDR_BIG
+ namlen
+ 1;
1656 ret
= (struct areltdata
*) bfd_malloc (amt
);
1660 hdrp
= (struct xcoff_ar_hdr_big
*) (ret
+ 1);
1661 memcpy (hdrp
, &hdr
, SIZEOF_AR_HDR_BIG
);
1662 if (bfd_bread ((char *) hdrp
+ SIZEOF_AR_HDR_BIG
, namlen
, abfd
) != namlen
)
1667 ((char *) hdrp
)[SIZEOF_AR_HDR_BIG
+ namlen
] = '\0';
1669 ret
->arch_header
= (char *) hdrp
;
1670 GET_VALUE_IN_FIELD (ret
->parsed_size
, hdr
.size
, 10);
1671 ret
->filename
= (char *) hdrp
+ SIZEOF_AR_HDR_BIG
;
1674 /* Size occupied by the header above that covered in the fixed
1675 SIZEOF_AR_HDR or SIZEOF_AR_HDR_BIG. */
1676 ret
->extra_size
= namlen
+ (namlen
& 1) + SXCOFFARFMAG
;
1678 /* Skip over the XCOFFARFMAG at the end of the file name. */
1679 if (bfd_seek (abfd
, (file_ptr
) ((namlen
& 1) + SXCOFFARFMAG
), SEEK_CUR
) != 0)
1685 /* Open the next element in an XCOFF archive. */
1688 _bfd_xcoff_openr_next_archived_file (bfd
*archive
, bfd
*last_file
)
1691 file_ptr laststart
, lastend
;
1693 if (xcoff_ardata (archive
) == NULL
)
1695 bfd_set_error (bfd_error_invalid_operation
);
1699 if (! xcoff_big_format_p (archive
))
1701 if (last_file
== NULL
)
1703 filestart
= bfd_ardata (archive
)->first_file_filepos
;
1705 lastend
= SIZEOF_AR_FILE_HDR
;
1709 struct areltdata
*arel
= arch_eltdata (last_file
);
1711 GET_VALUE_IN_FIELD (filestart
, arch_xhdr (last_file
)->nextoff
, 10);
1712 laststart
= last_file
->proxy_origin
;
1713 lastend
= laststart
+ arel
->parsed_size
;
1714 laststart
-= SIZEOF_AR_HDR
+ arel
->extra_size
;
1717 /* Sanity check that we aren't pointing into the previous element. */
1718 if (filestart
!= 0 && filestart
>= laststart
&& filestart
< lastend
)
1720 bfd_set_error (bfd_error_malformed_archive
);
1725 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata (archive
)->memoff
, 10)
1726 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata (archive
)->symoff
, 10))
1728 bfd_set_error (bfd_error_no_more_archived_files
);
1734 if (last_file
== NULL
)
1736 filestart
= bfd_ardata (archive
)->first_file_filepos
;
1738 lastend
= SIZEOF_AR_FILE_HDR_BIG
;
1742 struct areltdata
*arel
= arch_eltdata (last_file
);
1744 GET_VALUE_IN_FIELD (filestart
, arch_xhdr_big (last_file
)->nextoff
, 10);
1745 laststart
= last_file
->proxy_origin
;
1746 lastend
= laststart
+ arel
->parsed_size
;
1747 laststart
-= SIZEOF_AR_HDR_BIG
+ arel
->extra_size
;
1750 /* Sanity check that we aren't pointing into the previous element. */
1751 if (filestart
!= 0 && filestart
>= laststart
&& filestart
< lastend
)
1753 bfd_set_error (bfd_error_malformed_archive
);
1758 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata_big (archive
)->memoff
, 10)
1759 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata_big (archive
)->symoff
, 10))
1761 bfd_set_error (bfd_error_no_more_archived_files
);
1766 return _bfd_get_elt_at_filepos (archive
, filestart
, NULL
);
1769 /* Stat an element in an XCOFF archive. */
1772 _bfd_xcoff_stat_arch_elt (bfd
*abfd
, struct stat
*s
)
1774 if (abfd
->arelt_data
== NULL
)
1776 bfd_set_error (bfd_error_invalid_operation
);
1780 if (! xcoff_big_format_p (abfd
->my_archive
))
1782 struct xcoff_ar_hdr
*hdrp
= arch_xhdr (abfd
);
1784 GET_VALUE_IN_FIELD (s
->st_mtime
, hdrp
->date
, 10);
1785 GET_VALUE_IN_FIELD (s
->st_uid
, hdrp
->uid
, 10);
1786 GET_VALUE_IN_FIELD (s
->st_gid
, hdrp
->gid
, 10);
1787 GET_VALUE_IN_FIELD (s
->st_mode
, hdrp
->mode
, 8);
1788 s
->st_size
= arch_eltdata (abfd
)->parsed_size
;
1792 struct xcoff_ar_hdr_big
*hdrp
= arch_xhdr_big (abfd
);
1794 GET_VALUE_IN_FIELD (s
->st_mtime
, hdrp
->date
, 10);
1795 GET_VALUE_IN_FIELD (s
->st_uid
, hdrp
->uid
, 10);
1796 GET_VALUE_IN_FIELD (s
->st_gid
, hdrp
->gid
, 10);
1797 GET_VALUE_IN_FIELD (s
->st_mode
, hdrp
->mode
, 8);
1798 s
->st_size
= arch_eltdata (abfd
)->parsed_size
;
1804 /* Normalize a file name for inclusion in an archive. */
1807 normalize_filename (bfd
*abfd
)
1810 const char *filename
;
1812 file
= bfd_get_filename (abfd
);
1813 filename
= strrchr (file
, '/');
1814 if (filename
!= NULL
)
1821 /* Write out an XCOFF armap. */
1824 xcoff_write_armap_old (bfd
*abfd
, unsigned int elength ATTRIBUTE_UNUSED
,
1825 struct orl
*map
, unsigned int orl_count
, int stridx
)
1827 struct archive_iterator iterator
;
1828 struct xcoff_ar_hdr hdr
;
1830 unsigned char buf
[4];
1833 memset (&hdr
, 0, sizeof hdr
);
1834 sprintf (hdr
.size
, "%ld", (long) (4 + orl_count
* 4 + stridx
));
1835 sprintf (hdr
.nextoff
, "%d", 0);
1836 memcpy (hdr
.prevoff
, xcoff_ardata (abfd
)->memoff
, XCOFFARMAG_ELEMENT_SIZE
);
1837 sprintf (hdr
.date
, "%d", 0);
1838 sprintf (hdr
.uid
, "%d", 0);
1839 sprintf (hdr
.gid
, "%d", 0);
1840 sprintf (hdr
.mode
, "%d", 0);
1841 sprintf (hdr
.namlen
, "%d", 0);
1843 /* We need spaces, not null bytes, in the header. */
1844 for (p
= (char *) &hdr
; p
< (char *) &hdr
+ SIZEOF_AR_HDR
; p
++)
1848 if (bfd_bwrite (&hdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
1850 || (bfd_bwrite (XCOFFARFMAG
, (bfd_size_type
) SXCOFFARFMAG
, abfd
)
1854 H_PUT_32 (abfd
, orl_count
, buf
);
1855 if (bfd_bwrite (buf
, (bfd_size_type
) 4, abfd
) != 4)
1859 archive_iterator_begin (&iterator
, abfd
);
1860 while (i
< orl_count
&& archive_iterator_next (&iterator
))
1861 while (map
[i
].u
.abfd
== iterator
.current
.member
)
1863 H_PUT_32 (abfd
, iterator
.current
.offset
, buf
);
1864 if (bfd_bwrite (buf
, (bfd_size_type
) 4, abfd
) != 4)
1869 for (i
= 0; i
< orl_count
; i
++)
1874 name
= *map
[i
].name
;
1875 namlen
= strlen (name
);
1876 if (bfd_bwrite (name
, (bfd_size_type
) (namlen
+ 1), abfd
) != namlen
+ 1)
1880 if ((stridx
& 1) != 0)
1885 if (bfd_bwrite (&b
, (bfd_size_type
) 1, abfd
) != 1)
1892 static char buff20
[XCOFFARMAGBIG_ELEMENT_SIZE
+ 1];
1893 #if BFD_HOST_64BIT_LONG
1894 #define FMT20 "%-20ld"
1895 #elif defined (__MSVCRT__)
1896 #define FMT20 "%-20I64d"
1898 #define FMT20 "%-20lld"
1900 #define FMT12 "%-12d"
1901 #define FMT12_OCTAL "%-12o"
1903 #define PRINT20(d, v) \
1904 sprintf (buff20, FMT20, (bfd_uint64_t)(v)), \
1905 memcpy ((void *) (d), buff20, 20)
1907 #define PRINT12(d, v) \
1908 sprintf (buff20, FMT12, (int)(v)), \
1909 memcpy ((void *) (d), buff20, 12)
1911 #define PRINT12_OCTAL(d, v) \
1912 sprintf (buff20, FMT12_OCTAL, (unsigned int)(v)), \
1913 memcpy ((void *) (d), buff20, 12)
1915 #define PRINT4(d, v) \
1916 sprintf (buff20, FMT4, (int)(v)), \
1917 memcpy ((void *) (d), buff20, 4)
1919 #define READ20(d, v) \
1921 memcpy (buff20, (d), 20), \
1922 (v) = bfd_scan_vma (buff20, (const char **) NULL, 10)
1925 do_pad (bfd
*abfd
, unsigned int number
)
1929 /* Limit pad to <= 4096. */
1934 if (bfd_bwrite (&b
, (bfd_size_type
) 1, abfd
) != 1)
1941 do_copy (bfd
*out_bfd
, bfd
*in_bfd
)
1943 bfd_size_type remaining
;
1944 bfd_byte buffer
[DEFAULT_BUFFERSIZE
];
1946 if (bfd_seek (in_bfd
, (file_ptr
) 0, SEEK_SET
) != 0)
1949 remaining
= arelt_size (in_bfd
);
1951 while (remaining
>= DEFAULT_BUFFERSIZE
)
1953 if (bfd_bread (buffer
, DEFAULT_BUFFERSIZE
, in_bfd
) != DEFAULT_BUFFERSIZE
1954 || bfd_bwrite (buffer
, DEFAULT_BUFFERSIZE
, out_bfd
) != DEFAULT_BUFFERSIZE
)
1957 remaining
-= DEFAULT_BUFFERSIZE
;
1962 if (bfd_bread (buffer
, remaining
, in_bfd
) != remaining
1963 || bfd_bwrite (buffer
, remaining
, out_bfd
) != remaining
)
1971 xcoff_write_armap_big (bfd
*abfd
, unsigned int elength ATTRIBUTE_UNUSED
,
1972 struct orl
*map
, unsigned int orl_count
, int stridx
)
1974 struct archive_iterator iterator
;
1975 struct xcoff_ar_file_hdr_big
*fhdr
;
1976 bfd_vma i
, sym_32
, sym_64
, str_32
, str_64
;
1977 const bfd_arch_info_type
*arch_info
;
1979 size_t string_length
;
1980 file_ptr nextoff
, prevoff
;
1982 /* First, we look through the symbols and work out which are
1983 from 32-bit objects and which from 64-bit ones. */
1984 sym_32
= sym_64
= str_32
= str_64
= 0;
1987 for (current_bfd
= abfd
->archive_head
;
1988 current_bfd
!= NULL
&& i
< orl_count
;
1989 current_bfd
= current_bfd
->archive_next
)
1991 arch_info
= bfd_get_arch_info (current_bfd
);
1992 while (map
[i
].u
.abfd
== current_bfd
)
1994 string_length
= strlen (*map
[i
].name
) + 1;
1995 if (arch_info
->bits_per_address
== 64)
1998 str_64
+= string_length
;
2003 str_32
+= string_length
;
2009 /* A quick sanity check... */
2010 BFD_ASSERT (sym_64
+ sym_32
== orl_count
);
2011 /* Explicit cast to int for compiler. */
2012 BFD_ASSERT ((int)(str_64
+ str_32
) == stridx
);
2014 fhdr
= xcoff_ardata_big (abfd
);
2016 /* xcoff_write_archive_contents_big passes nextoff in symoff. */
2017 READ20 (fhdr
->memoff
, prevoff
);
2018 READ20 (fhdr
->symoff
, nextoff
);
2020 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2022 /* Write out the symbol table.
2025 standard big archive header
2026 0x0000 ar_size [0x14]
2027 0x0014 ar_nxtmem [0x14]
2028 0x0028 ar_prvmem [0x14]
2029 0x003C ar_date [0x0C]
2030 0x0048 ar_uid [0x0C]
2031 0x0054 ar_gid [0x0C]
2032 0x0060 ar_mod [0x0C]
2033 0x006C ar_namelen[0x04]
2034 0x0070 ar_fmag [SXCOFFARFMAG]
2037 0x0072 num_syms [0x08], binary
2038 0x0078 offsets [0x08 * num_syms], binary
2039 0x0086 + 0x08 * num_syms names [??]
2040 ?? pad to even bytes.
2045 struct xcoff_ar_hdr_big
*hdr
;
2049 bfd_vma symbol_table_size
=
2054 + str_32
+ (str_32
& 1);
2056 symbol_table
= bfd_zmalloc (symbol_table_size
);
2057 if (symbol_table
== NULL
)
2060 hdr
= (struct xcoff_ar_hdr_big
*) symbol_table
;
2062 PRINT20 (hdr
->size
, 8 + 8 * sym_32
+ str_32
+ (str_32
& 1));
2065 PRINT20 (hdr
->nextoff
, nextoff
+ symbol_table_size
);
2067 PRINT20 (hdr
->nextoff
, 0);
2069 PRINT20 (hdr
->prevoff
, prevoff
);
2070 PRINT12 (hdr
->date
, 0);
2071 PRINT12 (hdr
->uid
, 0);
2072 PRINT12 (hdr
->gid
, 0);
2073 PRINT12 (hdr
->mode
, 0);
2074 PRINT4 (hdr
->namlen
, 0) ;
2076 st
= symbol_table
+ SIZEOF_AR_HDR_BIG
;
2077 memcpy (st
, XCOFFARFMAG
, SXCOFFARFMAG
);
2080 bfd_h_put_64 (abfd
, sym_32
, st
);
2083 /* loop over the 32 bit offsets */
2085 archive_iterator_begin (&iterator
, abfd
);
2086 while (i
< orl_count
&& archive_iterator_next (&iterator
))
2088 arch_info
= bfd_get_arch_info (iterator
.current
.member
);
2089 while (map
[i
].u
.abfd
== iterator
.current
.member
)
2091 if (arch_info
->bits_per_address
== 32)
2093 bfd_h_put_64 (abfd
, iterator
.current
.offset
, st
);
2100 /* loop over the 32 bit symbol names */
2102 for (current_bfd
= abfd
->archive_head
;
2103 current_bfd
!= NULL
&& i
< orl_count
;
2104 current_bfd
= current_bfd
->archive_next
)
2106 arch_info
= bfd_get_arch_info (current_bfd
);
2107 while (map
[i
].u
.abfd
== current_bfd
)
2109 if (arch_info
->bits_per_address
== 32)
2111 string_length
= sprintf (st
, "%s", *map
[i
].name
);
2112 st
+= string_length
+ 1;
2118 bfd_bwrite (symbol_table
, symbol_table_size
, abfd
);
2120 free (symbol_table
);
2123 nextoff
= nextoff
+ symbol_table_size
;
2126 PRINT20 (fhdr
->symoff
, 0);
2130 struct xcoff_ar_hdr_big
*hdr
;
2134 bfd_vma symbol_table_size
=
2139 + str_64
+ (str_64
& 1);
2141 symbol_table
= bfd_zmalloc (symbol_table_size
);
2142 if (symbol_table
== NULL
)
2145 hdr
= (struct xcoff_ar_hdr_big
*) symbol_table
;
2147 PRINT20 (hdr
->size
, 8 + 8 * sym_64
+ str_64
+ (str_64
& 1));
2148 PRINT20 (hdr
->nextoff
, 0);
2149 PRINT20 (hdr
->prevoff
, prevoff
);
2150 PRINT12 (hdr
->date
, 0);
2151 PRINT12 (hdr
->uid
, 0);
2152 PRINT12 (hdr
->gid
, 0);
2153 PRINT12 (hdr
->mode
, 0);
2154 PRINT4 (hdr
->namlen
, 0);
2156 st
= symbol_table
+ SIZEOF_AR_HDR_BIG
;
2157 memcpy (st
, XCOFFARFMAG
, SXCOFFARFMAG
);
2160 bfd_h_put_64 (abfd
, sym_64
, st
);
2163 /* loop over the 64 bit offsets */
2165 archive_iterator_begin (&iterator
, abfd
);
2166 while (i
< orl_count
&& archive_iterator_next (&iterator
))
2168 arch_info
= bfd_get_arch_info (iterator
.current
.member
);
2169 while (map
[i
].u
.abfd
== iterator
.current
.member
)
2171 if (arch_info
->bits_per_address
== 64)
2173 bfd_h_put_64 (abfd
, iterator
.current
.offset
, st
);
2180 /* loop over the 64 bit symbol names */
2182 for (current_bfd
= abfd
->archive_head
;
2183 current_bfd
!= NULL
&& i
< orl_count
;
2184 current_bfd
= current_bfd
->archive_next
)
2186 arch_info
= bfd_get_arch_info (current_bfd
);
2187 while (map
[i
].u
.abfd
== current_bfd
)
2189 if (arch_info
->bits_per_address
== 64)
2191 string_length
= sprintf (st
, "%s", *map
[i
].name
);
2192 st
+= string_length
+ 1;
2198 bfd_bwrite (symbol_table
, symbol_table_size
, abfd
);
2200 free (symbol_table
);
2202 PRINT20 (fhdr
->symoff64
, nextoff
);
2205 PRINT20 (fhdr
->symoff64
, 0);
2211 _bfd_xcoff_write_armap (bfd
*abfd
, unsigned int elength ATTRIBUTE_UNUSED
,
2212 struct orl
*map
, unsigned int orl_count
, int stridx
)
2214 if (! xcoff_big_format_p (abfd
))
2215 return xcoff_write_armap_old (abfd
, elength
, map
, orl_count
, stridx
);
2217 return xcoff_write_armap_big (abfd
, elength
, map
, orl_count
, stridx
);
2220 /* Write out an XCOFF archive. We always write an entire archive,
2221 rather than fussing with the freelist and so forth. */
2224 xcoff_write_archive_contents_old (bfd
*abfd
)
2226 struct archive_iterator iterator
;
2227 struct xcoff_ar_file_hdr fhdr
;
2228 bfd_size_type count
;
2229 bfd_size_type total_namlen
;
2233 file_ptr prevoff
, nextoff
;
2236 struct xcoff_ar_hdr ahdr
;
2239 char decbuf
[XCOFFARMAG_ELEMENT_SIZE
+ 1];
2241 memset (&fhdr
, 0, sizeof fhdr
);
2242 (void) memcpy (fhdr
.magic
, XCOFFARMAG
, SXCOFFARMAG
);
2243 sprintf (fhdr
.firstmemoff
, "%d", SIZEOF_AR_FILE_HDR
);
2244 sprintf (fhdr
.freeoff
, "%d", 0);
2248 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->archive_next
)
2251 total_namlen
+= strlen (normalize_filename (sub
)) + 1;
2252 if (sub
->arelt_data
== NULL
)
2254 sub
->arelt_data
= bfd_zmalloc (sizeof (struct areltdata
));
2255 if (sub
->arelt_data
== NULL
)
2258 if (arch_xhdr (sub
) == NULL
)
2260 struct xcoff_ar_hdr
*ahdrp
;
2263 if ((sub
->flags
& BFD_IN_MEMORY
) != 0)
2265 /* Assume we just "made" the member, and fake it. */
2266 struct bfd_in_memory
*bim
2267 = (struct bfd_in_memory
*) sub
->iostream
;
2269 s
.st_uid
= getuid ();
2270 s
.st_gid
= getgid ();
2272 s
.st_size
= bim
->size
;
2274 else if (stat (bfd_get_filename (sub
), &s
) != 0)
2276 bfd_set_input_error (sub
, bfd_error_system_call
);
2280 if ((abfd
->flags
& BFD_DETERMINISTIC_OUTPUT
) != 0)
2288 ahdrp
= bfd_zalloc (sub
, sizeof (*ahdrp
));
2292 sprintf (ahdrp
->size
, "%ld", (long) s
.st_size
);
2293 sprintf (ahdrp
->date
, "%ld", (long) s
.st_mtime
);
2294 sprintf (ahdrp
->uid
, "%ld", (long) s
.st_uid
);
2295 sprintf (ahdrp
->gid
, "%ld", (long) s
.st_gid
);
2296 sprintf (ahdrp
->mode
, "%o", (unsigned int) s
.st_mode
);
2298 arch_eltdata (sub
)->arch_header
= (char *) ahdrp
;
2299 arch_eltdata (sub
)->parsed_size
= s
.st_size
;
2302 offsets
= (file_ptr
*) bfd_alloc (abfd
, count
* sizeof (file_ptr
));
2303 if (offsets
== NULL
)
2306 if (bfd_seek (abfd
, (file_ptr
) SIZEOF_AR_FILE_HDR
, SEEK_SET
) != 0)
2309 makemap
= bfd_has_map (abfd
);
2312 for (archive_iterator_begin (&iterator
, abfd
), i
= 0;
2313 archive_iterator_next (&iterator
);
2316 bfd_size_type namlen
;
2317 struct xcoff_ar_hdr
*ahdrp
;
2319 if (makemap
&& ! hasobjects
)
2321 if (bfd_check_format (iterator
.current
.member
, bfd_object
))
2325 ahdrp
= arch_xhdr (iterator
.current
.member
);
2326 sprintf (ahdrp
->prevoff
, "%ld", (long) prevoff
);
2327 sprintf (ahdrp
->namlen
, "%ld", (long) iterator
.current
.namlen
);
2328 sprintf (ahdrp
->nextoff
, "%ld", (long) iterator
.next
.offset
);
2330 /* We need spaces, not null bytes, in the header. */
2331 for (p
= (char *) ahdrp
; p
< (char *) ahdrp
+ SIZEOF_AR_HDR
; p
++)
2335 if (!do_pad (abfd
, iterator
.current
.leading_padding
))
2338 BFD_ASSERT (iterator
.current
.offset
== bfd_tell (abfd
));
2339 namlen
= iterator
.current
.padded_namlen
;
2340 if (bfd_bwrite (ahdrp
, SIZEOF_AR_HDR
, abfd
) != SIZEOF_AR_HDR
2341 || bfd_bwrite (iterator
.current
.name
, namlen
, abfd
) != namlen
2342 || bfd_bwrite (XCOFFARFMAG
, SXCOFFARFMAG
, abfd
) != SXCOFFARFMAG
2343 || bfd_seek (iterator
.current
.member
, 0, SEEK_SET
) != 0
2344 || !do_copy (abfd
, iterator
.current
.member
)
2345 || !do_pad (abfd
, iterator
.current
.trailing_padding
))
2348 offsets
[i
] = iterator
.current
.offset
;
2349 prevoff
= iterator
.current
.offset
;
2352 sprintf (fhdr
.lastmemoff
, "%ld", (long) prevoff
);
2354 /* Write out the member table. */
2356 nextoff
= iterator
.next
.offset
;
2357 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2358 sprintf (fhdr
.memoff
, "%ld", (long) nextoff
);
2360 memset (&ahdr
, 0, sizeof ahdr
);
2361 sprintf (ahdr
.size
, "%ld", (long) (XCOFFARMAG_ELEMENT_SIZE
2362 + count
* XCOFFARMAG_ELEMENT_SIZE
2364 sprintf (ahdr
.prevoff
, "%ld", (long) prevoff
);
2365 sprintf (ahdr
.date
, "%d", 0);
2366 sprintf (ahdr
.uid
, "%d", 0);
2367 sprintf (ahdr
.gid
, "%d", 0);
2368 sprintf (ahdr
.mode
, "%d", 0);
2369 sprintf (ahdr
.namlen
, "%d", 0);
2371 size
= (SIZEOF_AR_HDR
2372 + XCOFFARMAG_ELEMENT_SIZE
2373 + count
* XCOFFARMAG_ELEMENT_SIZE
2378 nextoff
+= size
+ (size
& 1);
2380 if (makemap
&& hasobjects
)
2381 sprintf (ahdr
.nextoff
, "%ld", (long) nextoff
);
2383 sprintf (ahdr
.nextoff
, "%d", 0);
2385 /* We need spaces, not null bytes, in the header. */
2386 for (p
= (char *) &ahdr
; p
< (char *) &ahdr
+ SIZEOF_AR_HDR
; p
++)
2390 if ((bfd_bwrite (&ahdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
2392 || (bfd_bwrite (XCOFFARFMAG
, (bfd_size_type
) SXCOFFARFMAG
, abfd
)
2396 sprintf (decbuf
, "%-12ld", (long) count
);
2397 if (bfd_bwrite (decbuf
, (bfd_size_type
) XCOFFARMAG_ELEMENT_SIZE
, abfd
)
2398 != XCOFFARMAG_ELEMENT_SIZE
)
2400 for (i
= 0; i
< (size_t) count
; i
++)
2402 sprintf (decbuf
, "%-12ld", (long) offsets
[i
]);
2403 if (bfd_bwrite (decbuf
, (bfd_size_type
) XCOFFARMAG_ELEMENT_SIZE
,
2404 abfd
) != XCOFFARMAG_ELEMENT_SIZE
)
2407 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->archive_next
)
2410 bfd_size_type namlen
;
2412 name
= normalize_filename (sub
);
2413 namlen
= strlen (name
);
2414 if (bfd_bwrite (name
, namlen
+ 1, abfd
) != namlen
+ 1)
2418 if (! do_pad (abfd
, size
& 1))
2421 /* Write out the armap, if appropriate. */
2422 if (! makemap
|| ! hasobjects
)
2423 sprintf (fhdr
.symoff
, "%d", 0);
2426 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2427 sprintf (fhdr
.symoff
, "%ld", (long) nextoff
);
2428 bfd_ardata (abfd
)->tdata
= &fhdr
;
2429 if (! _bfd_compute_and_write_armap (abfd
, 0))
2433 /* Write out the archive file header. */
2435 /* We need spaces, not null bytes, in the header. */
2436 for (p
= (char *) &fhdr
; p
< (char *) &fhdr
+ SIZEOF_AR_FILE_HDR
; p
++)
2440 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) != 0
2441 || (bfd_bwrite (&fhdr
, (bfd_size_type
) SIZEOF_AR_FILE_HDR
, abfd
)
2442 != SIZEOF_AR_FILE_HDR
))
2449 xcoff_write_archive_contents_big (bfd
*abfd
)
2451 struct xcoff_ar_file_hdr_big fhdr
;
2452 bfd_size_type count
;
2453 bfd_size_type total_namlen
;
2457 file_ptr prevoff
, nextoff
;
2460 struct xcoff_ar_hdr_big
*hdr
;
2462 char *member_table
, *mt
;
2463 bfd_vma member_table_size
;
2464 struct archive_iterator iterator
;
2466 memset (&fhdr
, 0, SIZEOF_AR_FILE_HDR_BIG
);
2467 memcpy (fhdr
.magic
, XCOFFARMAGBIG
, SXCOFFARMAG
);
2469 if (bfd_seek (abfd
, (file_ptr
) SIZEOF_AR_FILE_HDR_BIG
, SEEK_SET
) != 0)
2472 /* Calculate count and total_namlen. */
2473 makemap
= bfd_has_map (abfd
);
2475 for (current_bfd
= abfd
->archive_head
, count
= 0, total_namlen
= 0;
2476 current_bfd
!= NULL
;
2477 current_bfd
= current_bfd
->archive_next
, count
++)
2479 total_namlen
+= strlen (normalize_filename (current_bfd
)) + 1;
2483 && bfd_check_format (current_bfd
, bfd_object
))
2486 if (current_bfd
->arelt_data
== NULL
)
2488 size
= sizeof (struct areltdata
);
2489 current_bfd
->arelt_data
= bfd_zmalloc (size
);
2490 if (current_bfd
->arelt_data
== NULL
)
2494 if (arch_xhdr_big (current_bfd
) == NULL
)
2496 struct xcoff_ar_hdr_big
*ahdrp
;
2499 if ((current_bfd
->flags
& BFD_IN_MEMORY
) != 0)
2501 /* Assume we just "made" the member, and fake it. */
2502 struct bfd_in_memory
*bim
2503 = (struct bfd_in_memory
*) current_bfd
->iostream
;
2505 s
.st_uid
= getuid ();
2506 s
.st_gid
= getgid ();
2508 s
.st_size
= bim
->size
;
2510 else if (stat (bfd_get_filename (current_bfd
), &s
) != 0)
2512 bfd_set_input_error (current_bfd
, bfd_error_system_call
);
2516 if ((abfd
->flags
& BFD_DETERMINISTIC_OUTPUT
) != 0)
2524 ahdrp
= bfd_zalloc (current_bfd
, sizeof (*ahdrp
));
2528 PRINT20 (ahdrp
->size
, s
.st_size
);
2529 PRINT12 (ahdrp
->date
, s
.st_mtime
);
2530 PRINT12 (ahdrp
->uid
, s
.st_uid
);
2531 PRINT12 (ahdrp
->gid
, s
.st_gid
);
2532 PRINT12_OCTAL (ahdrp
->mode
, s
.st_mode
);
2534 arch_eltdata (current_bfd
)->arch_header
= (char *) ahdrp
;
2535 arch_eltdata (current_bfd
)->parsed_size
= s
.st_size
;
2542 offsets
= (file_ptr
*) bfd_malloc (count
* sizeof (file_ptr
));
2543 if (offsets
== NULL
)
2548 for (archive_iterator_begin (&iterator
, abfd
), i
= 0;
2549 archive_iterator_next (&iterator
);
2552 bfd_size_type namlen
;
2553 struct xcoff_ar_hdr_big
*ahdrp
;
2555 ahdrp
= arch_xhdr_big (iterator
.current
.member
);
2556 PRINT20 (ahdrp
->prevoff
, prevoff
);
2557 PRINT4 (ahdrp
->namlen
, iterator
.current
.namlen
);
2558 PRINT20 (ahdrp
->nextoff
, iterator
.next
.offset
);
2560 if (!do_pad (abfd
, iterator
.current
.leading_padding
))
2566 BFD_ASSERT (iterator
.current
.offset
== bfd_tell (abfd
));
2567 namlen
= iterator
.current
.padded_namlen
;
2568 if (bfd_bwrite (ahdrp
, SIZEOF_AR_HDR_BIG
, abfd
) != SIZEOF_AR_HDR_BIG
2569 || bfd_bwrite (iterator
.current
.name
, namlen
, abfd
) != namlen
2570 || bfd_bwrite (XCOFFARFMAG
, SXCOFFARFMAG
, abfd
) != SXCOFFARFMAG
2571 || bfd_seek (iterator
.current
.member
, 0, SEEK_SET
) != 0
2572 || !do_copy (abfd
, iterator
.current
.member
)
2573 || !do_pad (abfd
, iterator
.current
.trailing_padding
))
2579 offsets
[i
] = iterator
.current
.offset
;
2580 prevoff
= iterator
.current
.offset
;
2585 PRINT20 (fhdr
.firstmemoff
, offsets
[0]);
2586 PRINT20 (fhdr
.lastmemoff
, prevoff
);
2589 /* Write out the member table.
2592 standard big archive header
2593 0x0000 ar_size [0x14]
2594 0x0014 ar_nxtmem [0x14]
2595 0x0028 ar_prvmem [0x14]
2596 0x003C ar_date [0x0C]
2597 0x0048 ar_uid [0x0C]
2598 0x0054 ar_gid [0x0C]
2599 0x0060 ar_mod [0x0C]
2600 0x006C ar_namelen[0x04]
2601 0x0070 ar_fmag [0x02]
2605 0x0086 offsets [0x14 * counts]
2606 0x0086 + 0x14 * counts names [??]
2607 ?? pad to even bytes.
2610 nextoff
= iterator
.next
.offset
;
2611 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2613 member_table_size
= (SIZEOF_AR_HDR_BIG
2615 + XCOFFARMAGBIG_ELEMENT_SIZE
2616 + count
* XCOFFARMAGBIG_ELEMENT_SIZE
2619 member_table_size
+= member_table_size
& 1;
2620 member_table
= bfd_zmalloc (member_table_size
);
2621 if (member_table
== NULL
)
2627 hdr
= (struct xcoff_ar_hdr_big
*) member_table
;
2629 PRINT20 (hdr
->size
, (XCOFFARMAGBIG_ELEMENT_SIZE
2630 + count
* XCOFFARMAGBIG_ELEMENT_SIZE
2631 + total_namlen
+ (total_namlen
& 1)));
2632 if (makemap
&& hasobjects
)
2633 PRINT20 (hdr
->nextoff
, nextoff
+ member_table_size
);
2635 PRINT20 (hdr
->nextoff
, 0);
2636 PRINT20 (hdr
->prevoff
, prevoff
);
2637 PRINT12 (hdr
->date
, 0);
2638 PRINT12 (hdr
->uid
, 0);
2639 PRINT12 (hdr
->gid
, 0);
2640 PRINT12 (hdr
->mode
, 0);
2641 PRINT4 (hdr
->namlen
, 0);
2643 mt
= member_table
+ SIZEOF_AR_HDR_BIG
;
2644 memcpy (mt
, XCOFFARFMAG
, SXCOFFARFMAG
);
2647 PRINT20 (mt
, count
);
2648 mt
+= XCOFFARMAGBIG_ELEMENT_SIZE
;
2649 for (i
= 0; i
< (size_t) count
; i
++)
2651 PRINT20 (mt
, offsets
[i
]);
2652 mt
+= XCOFFARMAGBIG_ELEMENT_SIZE
;
2661 for (current_bfd
= abfd
->archive_head
;
2662 current_bfd
!= NULL
;
2663 current_bfd
= current_bfd
->archive_next
)
2668 name
= normalize_filename (current_bfd
);
2669 namlen
= sprintf (mt
, "%s", name
);
2673 if (bfd_bwrite (member_table
, member_table_size
, abfd
) != member_table_size
)
2676 free (member_table
);
2678 PRINT20 (fhdr
.memoff
, nextoff
);
2681 nextoff
+= member_table_size
;
2683 /* Write out the armap, if appropriate. */
2685 if (! makemap
|| ! hasobjects
)
2686 PRINT20 (fhdr
.symoff
, 0);
2689 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2691 /* Save nextoff in fhdr.symoff so the armap routine can use it. */
2692 PRINT20 (fhdr
.symoff
, nextoff
);
2694 bfd_ardata (abfd
)->tdata
= &fhdr
;
2695 if (! _bfd_compute_and_write_armap (abfd
, 0))
2699 /* Write out the archive file header. */
2701 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) != 0
2702 || (bfd_bwrite (&fhdr
, (bfd_size_type
) SIZEOF_AR_FILE_HDR_BIG
,
2703 abfd
) != SIZEOF_AR_FILE_HDR_BIG
))
2710 _bfd_xcoff_write_archive_contents (bfd
*abfd
)
2712 if (! xcoff_big_format_p (abfd
))
2713 return xcoff_write_archive_contents_old (abfd
);
2715 return xcoff_write_archive_contents_big (abfd
);
2718 /* We can't use the usual coff_sizeof_headers routine, because AIX
2719 always uses an a.out header. */
2722 _bfd_xcoff_sizeof_headers (bfd
*abfd
,
2723 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
2728 if (xcoff_data (abfd
)->full_aouthdr
)
2731 size
+= SMALL_AOUTSZ
;
2732 size
+= abfd
->section_count
* SCNHSZ
;
2734 if (info
->strip
!= strip_all
)
2736 /* There can be additional sections just for dealing with overflow in
2737 reloc and lineno counts. But the numbers of relocs and lineno aren't
2738 known when bfd_sizeof_headers is called, so we compute them by
2739 summing the numbers from input sections. */
2740 struct nbr_reloc_lineno
2742 unsigned int reloc_count
;
2743 unsigned int lineno_count
;
2745 struct nbr_reloc_lineno
*n_rl
;
2747 unsigned int max_index
;
2750 /* Although the number of sections is known, the maximum value of
2751 section->index isn't (because some sections may have been removed).
2752 Don't try to renumber sections, just compute the upper bound. */
2754 for (s
= abfd
->sections
; s
!= NULL
; s
= s
->next
)
2755 if (s
->index
> max_index
)
2756 max_index
= s
->index
;
2758 /* Allocate the per section counters. It could be possible to use a
2759 preallocated array as the number of sections is limited on XCOFF,
2760 but this creates a maintainance issue. */
2761 n_rl
= bfd_zmalloc ((max_index
+ 1) * sizeof (*n_rl
));
2766 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link
.next
)
2767 for (s
= sub
->sections
; s
!= NULL
; s
= s
->next
)
2768 if (s
->output_section
->owner
== abfd
2769 && !bfd_section_removed_from_list (abfd
, s
->output_section
))
2771 struct nbr_reloc_lineno
*e
= &n_rl
[s
->output_section
->index
];
2772 e
->reloc_count
+= s
->reloc_count
;
2773 e
->lineno_count
+= s
->lineno_count
;
2776 /* Add the size of a section for each section with an overflow. */
2777 for (s
= abfd
->sections
; s
!= NULL
; s
= s
->next
)
2779 struct nbr_reloc_lineno
*e
= &n_rl
[s
->index
];
2781 if (e
->reloc_count
>= 0xffff
2782 || (e
->lineno_count
>= 0xffff && info
->strip
!= strip_debugger
))
2792 /* Routines to swap information in the XCOFF .loader section. If we
2793 ever need to write an XCOFF loader, this stuff will need to be
2794 moved to another file shared by the linker (which XCOFF calls the
2795 ``binder'') and the loader. */
2797 /* Swap in the ldhdr structure. */
2800 xcoff_swap_ldhdr_in (bfd
*abfd
, const void * s
, struct internal_ldhdr
*dst
)
2802 const struct external_ldhdr
*src
= (const struct external_ldhdr
*) s
;
2804 dst
->l_version
= bfd_get_32 (abfd
, src
->l_version
);
2805 dst
->l_nsyms
= bfd_get_32 (abfd
, src
->l_nsyms
);
2806 dst
->l_nreloc
= bfd_get_32 (abfd
, src
->l_nreloc
);
2807 dst
->l_istlen
= bfd_get_32 (abfd
, src
->l_istlen
);
2808 dst
->l_nimpid
= bfd_get_32 (abfd
, src
->l_nimpid
);
2809 dst
->l_impoff
= bfd_get_32 (abfd
, src
->l_impoff
);
2810 dst
->l_stlen
= bfd_get_32 (abfd
, src
->l_stlen
);
2811 dst
->l_stoff
= bfd_get_32 (abfd
, src
->l_stoff
);
2814 /* Swap out the ldhdr structure. */
2817 xcoff_swap_ldhdr_out (bfd
*abfd
, const struct internal_ldhdr
*src
, void * d
)
2819 struct external_ldhdr
*dst
= (struct external_ldhdr
*) d
;
2821 bfd_put_32 (abfd
, (bfd_vma
) src
->l_version
, dst
->l_version
);
2822 bfd_put_32 (abfd
, src
->l_nsyms
, dst
->l_nsyms
);
2823 bfd_put_32 (abfd
, src
->l_nreloc
, dst
->l_nreloc
);
2824 bfd_put_32 (abfd
, src
->l_istlen
, dst
->l_istlen
);
2825 bfd_put_32 (abfd
, src
->l_nimpid
, dst
->l_nimpid
);
2826 bfd_put_32 (abfd
, src
->l_impoff
, dst
->l_impoff
);
2827 bfd_put_32 (abfd
, src
->l_stlen
, dst
->l_stlen
);
2828 bfd_put_32 (abfd
, src
->l_stoff
, dst
->l_stoff
);
2831 /* Swap in the ldsym structure. */
2834 xcoff_swap_ldsym_in (bfd
*abfd
, const void * s
, struct internal_ldsym
*dst
)
2836 const struct external_ldsym
*src
= (const struct external_ldsym
*) s
;
2838 if (bfd_get_32 (abfd
, src
->_l
._l_l
._l_zeroes
) != 0) {
2839 memcpy (dst
->_l
._l_name
, src
->_l
._l_name
, SYMNMLEN
);
2841 dst
->_l
._l_l
._l_zeroes
= 0;
2842 dst
->_l
._l_l
._l_offset
= bfd_get_32 (abfd
, src
->_l
._l_l
._l_offset
);
2844 dst
->l_value
= bfd_get_32 (abfd
, src
->l_value
);
2845 dst
->l_scnum
= bfd_get_16 (abfd
, src
->l_scnum
);
2846 dst
->l_smtype
= bfd_get_8 (abfd
, src
->l_smtype
);
2847 dst
->l_smclas
= bfd_get_8 (abfd
, src
->l_smclas
);
2848 dst
->l_ifile
= bfd_get_32 (abfd
, src
->l_ifile
);
2849 dst
->l_parm
= bfd_get_32 (abfd
, src
->l_parm
);
2852 /* Swap out the ldsym structure. */
2855 xcoff_swap_ldsym_out (bfd
*abfd
, const struct internal_ldsym
*src
, void * d
)
2857 struct external_ldsym
*dst
= (struct external_ldsym
*) d
;
2859 if (src
->_l
._l_l
._l_zeroes
!= 0)
2860 memcpy (dst
->_l
._l_name
, src
->_l
._l_name
, SYMNMLEN
);
2863 bfd_put_32 (abfd
, (bfd_vma
) 0, dst
->_l
._l_l
._l_zeroes
);
2864 bfd_put_32 (abfd
, (bfd_vma
) src
->_l
._l_l
._l_offset
,
2865 dst
->_l
._l_l
._l_offset
);
2867 bfd_put_32 (abfd
, src
->l_value
, dst
->l_value
);
2868 bfd_put_16 (abfd
, (bfd_vma
) src
->l_scnum
, dst
->l_scnum
);
2869 bfd_put_8 (abfd
, src
->l_smtype
, dst
->l_smtype
);
2870 bfd_put_8 (abfd
, src
->l_smclas
, dst
->l_smclas
);
2871 bfd_put_32 (abfd
, src
->l_ifile
, dst
->l_ifile
);
2872 bfd_put_32 (abfd
, src
->l_parm
, dst
->l_parm
);
2876 xcoff_swap_reloc_in (bfd
*abfd
, void * s
, void * d
)
2878 struct external_reloc
*src
= (struct external_reloc
*) s
;
2879 struct internal_reloc
*dst
= (struct internal_reloc
*) d
;
2881 memset (dst
, 0, sizeof (struct internal_reloc
));
2883 dst
->r_vaddr
= bfd_get_32 (abfd
, src
->r_vaddr
);
2884 dst
->r_symndx
= bfd_get_32 (abfd
, src
->r_symndx
);
2885 dst
->r_size
= bfd_get_8 (abfd
, src
->r_size
);
2886 dst
->r_type
= bfd_get_8 (abfd
, src
->r_type
);
2890 xcoff_swap_reloc_out (bfd
*abfd
, void * s
, void * d
)
2892 struct internal_reloc
*src
= (struct internal_reloc
*) s
;
2893 struct external_reloc
*dst
= (struct external_reloc
*) d
;
2895 bfd_put_32 (abfd
, src
->r_vaddr
, dst
->r_vaddr
);
2896 bfd_put_32 (abfd
, src
->r_symndx
, dst
->r_symndx
);
2897 bfd_put_8 (abfd
, src
->r_type
, dst
->r_type
);
2898 bfd_put_8 (abfd
, src
->r_size
, dst
->r_size
);
2900 return bfd_coff_relsz (abfd
);
2903 /* Swap in the ldrel structure. */
2906 xcoff_swap_ldrel_in (bfd
*abfd
, const void * s
, struct internal_ldrel
*dst
)
2908 const struct external_ldrel
*src
= (const struct external_ldrel
*) s
;
2910 dst
->l_vaddr
= bfd_get_32 (abfd
, src
->l_vaddr
);
2911 dst
->l_symndx
= bfd_get_32 (abfd
, src
->l_symndx
);
2912 dst
->l_rtype
= bfd_get_16 (abfd
, src
->l_rtype
);
2913 dst
->l_rsecnm
= bfd_get_16 (abfd
, src
->l_rsecnm
);
2916 /* Swap out the ldrel structure. */
2919 xcoff_swap_ldrel_out (bfd
*abfd
, const struct internal_ldrel
*src
, void * d
)
2921 struct external_ldrel
*dst
= (struct external_ldrel
*) d
;
2923 bfd_put_32 (abfd
, src
->l_vaddr
, dst
->l_vaddr
);
2924 bfd_put_32 (abfd
, src
->l_symndx
, dst
->l_symndx
);
2925 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rtype
, dst
->l_rtype
);
2926 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rsecnm
, dst
->l_rsecnm
);
2931 xcoff_reloc_type_noop (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2932 asection
*input_section ATTRIBUTE_UNUSED
,
2933 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2934 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2935 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2936 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2937 bfd_vma val ATTRIBUTE_UNUSED
,
2938 bfd_vma addend ATTRIBUTE_UNUSED
,
2939 bfd_vma
*relocation ATTRIBUTE_UNUSED
,
2940 bfd_byte
*contents ATTRIBUTE_UNUSED
,
2941 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
2947 xcoff_reloc_type_fail (bfd
*input_bfd
,
2948 asection
*input_section ATTRIBUTE_UNUSED
,
2949 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2950 struct internal_reloc
*rel
,
2951 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2952 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2953 bfd_vma val ATTRIBUTE_UNUSED
,
2954 bfd_vma addend ATTRIBUTE_UNUSED
,
2955 bfd_vma
*relocation ATTRIBUTE_UNUSED
,
2956 bfd_byte
*contents ATTRIBUTE_UNUSED
,
2957 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
2960 /* xgettext: c-format */
2961 (_("%pB: unsupported relocation type %#x"),
2962 input_bfd
, (unsigned int) rel
->r_type
);
2963 bfd_set_error (bfd_error_bad_value
);
2968 xcoff_reloc_type_pos (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2969 asection
*input_section ATTRIBUTE_UNUSED
,
2970 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2971 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2972 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2973 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2976 bfd_vma
*relocation
,
2977 bfd_byte
*contents ATTRIBUTE_UNUSED
,
2978 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
2980 *relocation
= val
+ addend
;
2985 xcoff_reloc_type_neg (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2986 asection
*input_section ATTRIBUTE_UNUSED
,
2987 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2988 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2989 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2990 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2993 bfd_vma
*relocation
,
2994 bfd_byte
*contents ATTRIBUTE_UNUSED
,
2995 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
2997 *relocation
= - val
- addend
;
3002 xcoff_reloc_type_rel (bfd
*input_bfd ATTRIBUTE_UNUSED
,
3003 asection
*input_section
,
3004 bfd
*output_bfd ATTRIBUTE_UNUSED
,
3005 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
3006 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
3007 struct reloc_howto_struct
*howto
,
3010 bfd_vma
*relocation
,
3011 bfd_byte
*contents ATTRIBUTE_UNUSED
,
3012 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
3014 howto
->pc_relative
= true;
3016 /* A PC relative reloc includes the section address. */
3017 addend
+= input_section
->vma
;
3019 *relocation
= val
+ addend
;
3020 *relocation
-= (input_section
->output_section
->vma
3021 + input_section
->output_offset
);
3026 xcoff_reloc_type_toc (bfd
*input_bfd
,
3027 asection
*input_section ATTRIBUTE_UNUSED
,
3029 struct internal_reloc
*rel
,
3030 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
3031 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
3033 bfd_vma addend ATTRIBUTE_UNUSED
,
3034 bfd_vma
*relocation
,
3035 bfd_byte
*contents ATTRIBUTE_UNUSED
,
3036 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
3038 struct xcoff_link_hash_entry
*h
;
3040 if (0 > rel
->r_symndx
)
3043 h
= obj_xcoff_sym_hashes (input_bfd
)[rel
->r_symndx
];
3045 if (h
!= NULL
&& h
->smclas
!= XMC_TD
)
3047 if (h
->toc_section
== NULL
)
3050 /* xgettext: c-format */
3051 (_("%pB: TOC reloc at %#" PRIx64
" to symbol `%s' with no TOC entry"),
3052 input_bfd
, (uint64_t) rel
->r_vaddr
, h
->root
.root
.string
);
3053 bfd_set_error (bfd_error_bad_value
);
3057 BFD_ASSERT ((h
->flags
& XCOFF_SET_TOC
) == 0);
3058 val
= (h
->toc_section
->output_section
->vma
3059 + h
->toc_section
->output_offset
);
3062 /* We can't use the preexisting value written down by the
3063 assembly, as R_TOCU needs to be adjusted when the final
3064 R_TOCL value is signed. */
3065 *relocation
= val
- xcoff_data (output_bfd
)->toc
;
3067 if (rel
->r_type
== R_TOCU
)
3068 *relocation
= ((*relocation
+ 0x8000) >> 16) & 0xffff;
3069 if (rel
->r_type
== R_TOCL
)
3070 *relocation
= *relocation
& 0x0000ffff;
3076 xcoff_reloc_type_ba (bfd
*input_bfd ATTRIBUTE_UNUSED
,
3077 asection
*input_section ATTRIBUTE_UNUSED
,
3078 bfd
*output_bfd ATTRIBUTE_UNUSED
,
3079 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
3080 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
3081 struct reloc_howto_struct
*howto
,
3084 bfd_vma
*relocation
,
3085 bfd_byte
*contents ATTRIBUTE_UNUSED
,
3086 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
3088 howto
->src_mask
&= ~3;
3089 howto
->dst_mask
= howto
->src_mask
;
3091 *relocation
= val
+ addend
;
3097 xcoff_reloc_type_br (bfd
*input_bfd
,
3098 asection
*input_section
,
3099 bfd
*output_bfd ATTRIBUTE_UNUSED
,
3100 struct internal_reloc
*rel
,
3101 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
3102 struct reloc_howto_struct
*howto
,
3105 bfd_vma
*relocation
,
3107 struct bfd_link_info
*info
)
3109 struct xcoff_link_hash_entry
*h
;
3110 bfd_vma section_offset
;
3111 struct xcoff_stub_hash_entry
*stub_entry
= NULL
;
3112 enum xcoff_stub_type stub_type
;
3114 if (0 > rel
->r_symndx
)
3117 h
= obj_xcoff_sym_hashes (input_bfd
)[rel
->r_symndx
];
3118 section_offset
= rel
->r_vaddr
- input_section
->vma
;
3120 /* If we see an R_BR or R_RBR reloc which is jumping to global
3121 linkage code, and it is followed by an appropriate cror nop
3122 instruction, we replace the cror with lwz r2,20(r1). This
3123 restores the TOC after the glink code. Contrariwise, if the
3124 call is followed by a lwz r2,20(r1), but the call is not
3125 going to global linkage code, we can replace the load with a
3128 && (bfd_link_hash_defined
== h
->root
.type
3129 || bfd_link_hash_defweak
== h
->root
.type
)
3130 && section_offset
+ 8 <= input_section
->size
)
3135 pnext
= contents
+ section_offset
+ 4;
3136 next
= bfd_get_32 (input_bfd
, pnext
);
3138 /* The _ptrgl function is magic. It is used by the AIX
3139 compiler to call a function through a pointer. */
3140 if (h
->smclas
== XMC_GL
|| strcmp (h
->root
.root
.string
, "._ptrgl") == 0)
3142 if (next
== 0x4def7b82 /* cror 15,15,15 */
3143 || next
== 0x4ffffb82 /* cror 31,31,31 */
3144 || next
== 0x60000000) /* ori r0,r0,0 */
3145 bfd_put_32 (input_bfd
, 0x80410014, pnext
); /* lwz r2,20(r1) */
3150 if (next
== 0x80410014) /* lwz r2,20(r1) */
3151 bfd_put_32 (input_bfd
, 0x60000000, pnext
); /* ori r0,r0,0 */
3154 else if (NULL
!= h
&& bfd_link_hash_undefined
== h
->root
.type
)
3156 /* Normally, this relocation is against a defined symbol. In the
3157 case where this is a partial link and the output section offset
3158 is greater than 2^25, the linker will return an invalid error
3159 message that the relocation has been truncated. Yes it has been
3160 truncated but no it not important. For this case, disable the
3161 overflow checking. */
3163 howto
->complain_on_overflow
= complain_overflow_dont
;
3166 /* Check if a stub is needed. */
3167 stub_type
= bfd_xcoff_type_of_stub (input_section
, rel
, val
, h
);
3168 if (stub_type
!= xcoff_stub_none
)
3170 asection
*stub_csect
;
3172 stub_entry
= bfd_xcoff_get_stub_entry (input_section
, h
, info
);
3173 if (stub_entry
== NULL
)
3175 _bfd_error_handler (_("Unable to find the stub entry targeting %s"),
3176 h
->root
.root
.string
);
3177 bfd_set_error (bfd_error_bad_value
);
3181 stub_csect
= stub_entry
->hcsect
->root
.u
.def
.section
;
3182 val
= (stub_entry
->stub_offset
3183 + stub_csect
->output_section
->vma
3184 + stub_csect
->output_offset
);
3187 /* The original PC-relative relocation is biased by -r_vaddr, so adding
3188 the value below will give the absolute target address. */
3189 *relocation
= val
+ addend
+ rel
->r_vaddr
;
3191 howto
->src_mask
&= ~3;
3192 howto
->dst_mask
= howto
->src_mask
;
3195 && (h
->root
.type
== bfd_link_hash_defined
3196 || h
->root
.type
== bfd_link_hash_defweak
)
3197 && bfd_is_abs_section (h
->root
.u
.def
.section
)
3198 && section_offset
+ 4 <= input_section
->size
)
3203 /* Turn the relative branch into an absolute one by setting the
3205 ptr
= contents
+ section_offset
;
3206 insn
= bfd_get_32 (input_bfd
, ptr
);
3208 bfd_put_32 (input_bfd
, insn
, ptr
);
3210 /* Make the howto absolute too. */
3211 howto
->pc_relative
= false;
3212 howto
->complain_on_overflow
= complain_overflow_bitfield
;
3216 /* Use a PC-relative howto and subtract the instruction's address
3217 from the target address we calculated above. */
3218 howto
->pc_relative
= true;
3219 *relocation
-= (input_section
->output_section
->vma
3220 + input_section
->output_offset
3227 xcoff_reloc_type_crel (bfd
*input_bfd ATTRIBUTE_UNUSED
,
3228 asection
*input_section
,
3229 bfd
*output_bfd ATTRIBUTE_UNUSED
,
3230 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
3231 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
3232 struct reloc_howto_struct
*howto
,
3233 bfd_vma val ATTRIBUTE_UNUSED
,
3235 bfd_vma
*relocation
,
3236 bfd_byte
*contents ATTRIBUTE_UNUSED
,
3237 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
3239 howto
->pc_relative
= true;
3240 howto
->src_mask
&= ~3;
3241 howto
->dst_mask
= howto
->src_mask
;
3243 /* A PC relative reloc includes the section address. */
3244 addend
+= input_section
->vma
;
3246 *relocation
= val
+ addend
;
3247 *relocation
-= (input_section
->output_section
->vma
3248 + input_section
->output_offset
);
3253 xcoff_reloc_type_tls (bfd
*input_bfd ATTRIBUTE_UNUSED
,
3254 asection
*input_section ATTRIBUTE_UNUSED
,
3255 bfd
*output_bfd ATTRIBUTE_UNUSED
,
3256 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
3257 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
3258 struct reloc_howto_struct
*howto
,
3261 bfd_vma
*relocation
,
3262 bfd_byte
*contents ATTRIBUTE_UNUSED
,
3263 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
3265 struct xcoff_link_hash_entry
*h
;
3267 if (0 > rel
->r_symndx
)
3270 h
= obj_xcoff_sym_hashes (input_bfd
)[rel
->r_symndx
];
3272 /* R_TLSML is handled by the loader but must be from a
3273 TOC entry targeting itslef. This is already verified in
3274 xcoff_link_add_symbols.
3275 The value must be 0. */
3276 if (howto
->type
== R_TLSML
)
3282 /* The target symbol should always be available even if it's not
3284 BFD_ASSERT (h
!= NULL
);
3286 /* TLS relocations must target a TLS symbol. */
3287 if (h
->smclas
!= XMC_TL
&& h
->smclas
!= XMC_UL
)
3289 char vaddr_buf
[128];
3291 sprintf_vma (vaddr_buf
, rel
->r_vaddr
);
3293 (_("%pB: TLS relocation at 0x%s over non-TLS symbol %s (0x%x)\n"),
3294 input_bfd
, vaddr_buf
, h
->root
.root
.string
, h
->smclas
);
3298 /* Local TLS relocations must target a local symbol, ie
3300 if ((rel
->r_type
== R_TLS_LD
|| rel
->r_type
== R_TLS_LE
)
3301 && (((h
->flags
& XCOFF_DEF_REGULAR
) == 0
3302 && (h
->flags
& XCOFF_DEF_DYNAMIC
) != 0)
3303 || (h
->flags
& XCOFF_IMPORT
) != 0))
3305 char vaddr_buf
[128];
3307 sprintf_vma (vaddr_buf
, rel
->r_vaddr
);
3309 (_("%pB: TLS local relocation at 0x%s over imported symbol %s\n"),
3310 input_bfd
, vaddr_buf
, h
->root
.root
.string
);
3314 /* R_TLSM are relocations used by the loader.
3315 The value must be 0. */
3316 if (howto
->type
== R_TLSM
)
3322 /* Other TLS relocations aims to put offsets from TLS pointers
3323 starting at -0x7c00 (or -0x7800 in XCOFF64). It becomes a
3324 simple R_POS relocation as long as .tdata and .tbss addresses
3325 start at the same value. This is done in aix ld scripts.
3326 TODO: implement optimization when tls size is < 62K. */
3327 *relocation
= val
+ addend
;
3333 xcoff_complain_overflow_dont_func (bfd
*input_bfd ATTRIBUTE_UNUSED
,
3334 bfd_vma val ATTRIBUTE_UNUSED
,
3335 bfd_vma relocation ATTRIBUTE_UNUSED
,
3336 struct reloc_howto_struct
*
3337 howto ATTRIBUTE_UNUSED
)
3343 xcoff_complain_overflow_bitfield_func (bfd
*input_bfd
,
3346 struct reloc_howto_struct
*howto
)
3348 bfd_vma fieldmask
, signmask
, ss
;
3351 /* Get the values to be added together. For signed and unsigned
3352 relocations, we assume that all values should be truncated to
3353 the size of an address. For bitfields, all the bits matter.
3354 See also bfd_check_overflow. */
3355 fieldmask
= N_ONES (howto
->bitsize
);
3357 b
= val
& howto
->src_mask
;
3359 /* Much like unsigned, except no trimming with addrmask. In
3360 addition, the sum overflows if there is a carry out of
3361 the bfd_vma, i.e., the sum is less than either input
3363 a
>>= howto
->rightshift
;
3364 b
>>= howto
->bitpos
;
3366 /* Bitfields are sometimes used for signed numbers; for
3367 example, a 13-bit field sometimes represents values in
3368 0..8191 and sometimes represents values in -4096..4095.
3369 If the field is signed and a is -4095 (0x1001) and b is
3370 -1 (0x1fff), the sum is -4096 (0x1000), but (0x1001 +
3371 0x1fff is 0x3000). It's not clear how to handle this
3372 everywhere, since there is not way to know how many bits
3373 are significant in the relocation, but the original code
3374 assumed that it was fully sign extended, and we will keep
3376 signmask
= (fieldmask
>> 1) + 1;
3378 if ((a
& ~ fieldmask
) != 0)
3380 /* Some bits out of the field are set. This might not
3381 be a problem: if this is a signed bitfield, it is OK
3382 iff all the high bits are set, including the sign
3383 bit. We'll try setting all but the most significant
3384 bit in the original relocation value: if this is all
3385 ones, we are OK, assuming a signed bitfield. */
3386 ss
= (signmask
<< howto
->rightshift
) - 1;
3387 if ((ss
| relocation
) != ~ (bfd_vma
) 0)
3392 /* We just assume (b & ~ fieldmask) == 0. */
3394 /* We explicitly permit wrap around if this relocation
3395 covers the high bit of an address. The Linux kernel
3396 relies on it, and it is the only way to write assembler
3397 code which can run when loaded at a location 0x80000000
3398 away from the location at which it is linked. */
3399 if ((unsigned) howto
->bitsize
+ howto
->rightshift
3400 == bfd_arch_bits_per_address (input_bfd
))
3404 if (sum
< a
|| (sum
& ~ fieldmask
) != 0)
3406 /* There was a carry out, or the field overflow. Test
3407 for signed operands again. Here is the overflow test
3408 is as for complain_overflow_signed. */
3409 if (((~ (a
^ b
)) & (a
^ sum
)) & signmask
)
3417 xcoff_complain_overflow_signed_func (bfd
*input_bfd
,
3420 struct reloc_howto_struct
*howto
)
3422 bfd_vma addrmask
, fieldmask
, signmask
, ss
;
3425 /* Get the values to be added together. For signed and unsigned
3426 relocations, we assume that all values should be truncated to
3427 the size of an address. For bitfields, all the bits matter.
3428 See also bfd_check_overflow. */
3429 fieldmask
= N_ONES (howto
->bitsize
);
3430 addrmask
= N_ONES (bfd_arch_bits_per_address (input_bfd
)) | fieldmask
;
3432 b
= val
& howto
->src_mask
;
3434 a
= (a
& addrmask
) >> howto
->rightshift
;
3436 /* If any sign bits are set, all sign bits must be set.
3437 That is, A must be a valid negative address after
3439 signmask
= ~ (fieldmask
>> 1);
3441 if (ss
!= 0 && ss
!= ((addrmask
>> howto
->rightshift
) & signmask
))
3444 /* We only need this next bit of code if the sign bit of B
3445 is below the sign bit of A. This would only happen if
3446 SRC_MASK had fewer bits than BITSIZE. Note that if
3447 SRC_MASK has more bits than BITSIZE, we can get into
3448 trouble; we would need to verify that B is in range, as
3449 we do for A above. */
3450 signmask
= ((~ howto
->src_mask
) >> 1) & howto
->src_mask
;
3451 if ((b
& signmask
) != 0)
3453 /* Set all the bits above the sign bit. */
3454 b
-= signmask
<<= 1;
3457 b
= (b
& addrmask
) >> howto
->bitpos
;
3459 /* Now we can do the addition. */
3462 /* See if the result has the correct sign. Bits above the
3463 sign bit are junk now; ignore them. If the sum is
3464 positive, make sure we did not have all negative inputs;
3465 if the sum is negative, make sure we did not have all
3466 positive inputs. The test below looks only at the sign
3467 bits, and it really just
3468 SIGN (A) == SIGN (B) && SIGN (A) != SIGN (SUM)
3470 signmask
= (fieldmask
>> 1) + 1;
3471 if (((~ (a
^ b
)) & (a
^ sum
)) & signmask
)
3478 xcoff_complain_overflow_unsigned_func (bfd
*input_bfd
,
3481 struct reloc_howto_struct
*howto
)
3483 bfd_vma addrmask
, fieldmask
;
3486 /* Get the values to be added together. For signed and unsigned
3487 relocations, we assume that all values should be truncated to
3488 the size of an address. For bitfields, all the bits matter.
3489 See also bfd_check_overflow. */
3490 fieldmask
= N_ONES (howto
->bitsize
);
3491 addrmask
= N_ONES (bfd_arch_bits_per_address (input_bfd
)) | fieldmask
;
3493 b
= val
& howto
->src_mask
;
3495 /* Checking for an unsigned overflow is relatively easy:
3496 trim the addresses and add, and trim the result as well.
3497 Overflow is normally indicated when the result does not
3498 fit in the field. However, we also need to consider the
3499 case when, e.g., fieldmask is 0x7fffffff or smaller, an
3500 input is 0x80000000, and bfd_vma is only 32 bits; then we
3501 will get sum == 0, but there is an overflow, since the
3502 inputs did not fit in the field. Instead of doing a
3503 separate test, we can check for this by or-ing in the
3504 operands when testing for the sum overflowing its final
3506 a
= (a
& addrmask
) >> howto
->rightshift
;
3507 b
= (b
& addrmask
) >> howto
->bitpos
;
3508 sum
= (a
+ b
) & addrmask
;
3509 if ((a
| b
| sum
) & ~ fieldmask
)
3515 /* This is the relocation function for the RS/6000/POWER/PowerPC.
3516 This is currently the only processor which uses XCOFF; I hope that
3519 The original version was based on two documents:
3520 the PowerPC AIX Version 4 Application Binary Interface, First
3521 Edition (April 1992), and the PowerOpen ABI, Big-Endian
3522 32-Bit Hardware Implementation (June 30, 1994). Differences
3523 between the documents are noted below.
3524 Now, IBM has released an official documentation about XCOFF
3526 https://www.ibm.com/support/knowledgecenter/ssw_aix_72/filesreference/XCOFF.html
3528 Unsupported r_type's
3534 These relocs are defined by the PowerPC ABI to be
3535 relative branches which use half of the difference
3536 between the symbol and the program counter. I can't
3537 quite figure out when this is useful. These relocs are
3538 not defined by the PowerOpen ABI.
3543 Simple positive relocation.
3546 Simple negative relocation.
3549 Simple PC relative relocation.
3552 TOC relative relocation. The value in the instruction in
3553 the input file is the offset from the input file TOC to
3554 the desired location. We want the offset from the final
3555 TOC to the desired location. We have:
3560 so we must change insn by on - in.
3561 This relocation allows the linker to perform optimizations
3562 by transforming a load instruction into a add-immediate
3563 when possible. The relocation is, then, changed to R_TRLA
3565 TODO: Currently, the optimisation isn't implemented.
3568 TOC relative relocation. Same as R_TOC, except that
3569 the optimization isn't allowed
3572 TOC relative relocation. This is a TOC relative load
3573 address instruction which have been changed to an add-
3574 immediate instruction.
3577 GL linkage relocation. The value of this relocation
3578 is the address of the external symbol in the TOC
3582 Local object TOC address. I can't figure out the
3583 difference between this and case R_GL.
3586 The PowerPC AIX ABI describes this as a load which may be
3587 changed to a load address. The PowerOpen ABI says this
3588 is the same as case R_POS.
3591 The PowerPC AIX ABI describes this as a load address
3592 which may be changed to a load. The PowerOpen ABI says
3593 this is the same as R_POS.
3596 Not a relocation but a way to prevent the garbage
3597 collector of AIX linker to remove symbols.
3598 This is not needed in our case.
3601 The PowerOpen ABI says this is the same as R_RBA.
3604 Absolute branch which may be modified to become a
3608 The PowerOpen ABI says this is the same as R_RBR.
3611 A relative branch which may be modified to become an
3615 The PowerPC ABI defines this as an absolute call which
3616 may be modified to become a relative call. The PowerOpen
3617 ABI does not define this relocation type.
3620 The PowerPC ABI defines this as a relative call which may
3621 be modified to become an absolute call. The PowerOpen
3622 ABI does not define this relocation type.
3625 The PowerPC ABI defines this as an absolute branch to a
3626 fixed address which may be modified to an absolute branch
3627 to a symbol. The PowerOpen ABI does not define this
3631 The PowerPC ABI defines this as an absolute branch to a
3632 fixed address which may be modified to a relative branch.
3633 The PowerOpen ABI does not define this relocation type.
3636 Thread-local storage relocation using general-dynamic
3640 Thread-local storage relocation using initial-exec model.
3643 Thread-local storage relocation using local-dynamic model.
3646 Thread-local storage relocation using local-exec model.
3649 Tread-local storage relocation used by the loader.
3652 Tread-local storage relocation used by the loader.
3655 Upper TOC relative relocation. The value is the
3656 high-order 16 bit of a TOC relative relocation.
3659 Lower TOC relative relocation. The value is the
3660 low-order 16 bit of a TOC relative relocation.
3664 xcoff_ppc_relocate_section (bfd
*output_bfd
,
3665 struct bfd_link_info
*info
,
3667 asection
*input_section
,
3669 struct internal_reloc
*relocs
,
3670 struct internal_syment
*syms
,
3671 asection
**sections
)
3673 struct internal_reloc
*rel
;
3674 struct internal_reloc
*relend
;
3677 relend
= rel
+ input_section
->reloc_count
;
3678 for (; rel
< relend
; rel
++)
3681 struct xcoff_link_hash_entry
*h
;
3682 struct internal_syment
*sym
;
3685 struct reloc_howto_struct howto
;
3687 bfd_vma value_to_relocate
;
3691 /* Relocation type R_REF is a special relocation type which is
3692 merely used to prevent garbage collection from occurring for
3693 the csect including the symbol which it references. */
3694 if (rel
->r_type
== R_REF
)
3697 /* Retrieve default value in HOWTO table and fix up according
3698 to r_size field, if it can be different.
3699 This should be made during relocation reading but the algorithms
3700 are expecting constant howtos. */
3701 memcpy (&howto
, &xcoff_howto_table
[rel
->r_type
], sizeof (howto
));
3702 if (howto
.bitsize
!= (rel
->r_size
& 0x1f) + 1)
3704 switch (rel
->r_type
)
3708 howto
.bitsize
= (rel
->r_size
& 0x1f) + 1;
3709 howto
.size
= howto
.bitsize
> 16 ? 2 : 1;
3710 howto
.src_mask
= howto
.dst_mask
= N_ONES (howto
.bitsize
);
3715 char vaddr_buf
[128];
3717 sprintf_vma (vaddr_buf
, rel
->r_vaddr
);
3719 (_("%pB: relocation (%d) at 0x%s has wrong r_rsize (0x%x)\n"),
3720 input_bfd
, rel
->r_type
, vaddr_buf
, rel
->r_size
);
3726 howto
.complain_on_overflow
= (rel
->r_size
& 0x80
3727 ? complain_overflow_signed
3728 : complain_overflow_bitfield
);
3735 symndx
= rel
->r_symndx
;
3741 h
= obj_xcoff_sym_hashes (input_bfd
)[symndx
];
3742 sym
= syms
+ symndx
;
3743 addend
= - sym
->n_value
;
3747 sec
= sections
[symndx
];
3748 /* Hack to make sure we use the right TOC anchor value
3749 if this reloc is against the TOC anchor. */
3750 if (sec
->name
[3] == '0'
3751 && strcmp (sec
->name
, ".tc0") == 0)
3752 val
= xcoff_data (output_bfd
)->toc
;
3754 val
= (sec
->output_section
->vma
3755 + sec
->output_offset
3761 if (info
->unresolved_syms_in_objects
!= RM_IGNORE
3762 && (h
->flags
& XCOFF_WAS_UNDEFINED
) != 0)
3763 (*info
->callbacks
->undefined_symbol
)
3764 (info
, h
->root
.root
.string
,
3765 input_bfd
, input_section
,
3766 rel
->r_vaddr
- input_section
->vma
,
3767 info
->unresolved_syms_in_objects
== RM_DIAGNOSE
&&
3768 !info
->warn_unresolved_syms
);
3770 if (h
->root
.type
== bfd_link_hash_defined
3771 || h
->root
.type
== bfd_link_hash_defweak
)
3773 sec
= h
->root
.u
.def
.section
;
3774 val
= (h
->root
.u
.def
.value
3775 + sec
->output_section
->vma
3776 + sec
->output_offset
);
3778 else if (h
->root
.type
== bfd_link_hash_common
)
3780 sec
= h
->root
.u
.c
.p
->section
;
3781 val
= (sec
->output_section
->vma
3782 + sec
->output_offset
);
3787 BFD_ASSERT (bfd_link_relocatable (info
)
3788 || (info
->static_link
3789 && (h
->flags
& XCOFF_WAS_UNDEFINED
) != 0)
3790 || (h
->flags
& XCOFF_DEF_DYNAMIC
) != 0
3791 || (h
->flags
& XCOFF_IMPORT
) != 0);
3796 if (rel
->r_type
>= XCOFF_MAX_CALCULATE_RELOCATION
3797 || !((*xcoff_calculate_relocation
[rel
->r_type
])
3798 (input_bfd
, input_section
, output_bfd
, rel
, sym
, &howto
, val
,
3799 addend
, &relocation
, contents
, info
)))
3803 address
= rel
->r_vaddr
- input_section
->vma
;
3804 location
= contents
+ address
;
3806 if (address
> input_section
->size
)
3809 /* Get the value we are going to relocate. */
3810 if (1 == howto
.size
)
3811 value_to_relocate
= bfd_get_16 (input_bfd
, location
);
3813 value_to_relocate
= bfd_get_32 (input_bfd
, location
);
3817 FIXME: We may drop bits during the addition
3818 which we don't check for. We must either check at every single
3819 operation, which would be tedious, or we must do the computations
3820 in a type larger than bfd_vma, which would be inefficient. */
3822 if (((*xcoff_complain_overflow
[howto
.complain_on_overflow
])
3823 (input_bfd
, value_to_relocate
, relocation
, &howto
)))
3826 char buf
[SYMNMLEN
+ 1];
3827 char reloc_type_name
[10];
3839 name
= _bfd_coff_internal_syment_name (input_bfd
, sym
, buf
);
3843 sprintf (reloc_type_name
, "0x%02x", rel
->r_type
);
3845 (*info
->callbacks
->reloc_overflow
)
3846 (info
, (h
? &h
->root
: NULL
), name
, reloc_type_name
,
3847 (bfd_vma
) 0, input_bfd
, input_section
,
3848 rel
->r_vaddr
- input_section
->vma
);
3851 /* Add RELOCATION to the right bits of VALUE_TO_RELOCATE. */
3852 value_to_relocate
= ((value_to_relocate
& ~howto
.dst_mask
)
3853 | (((value_to_relocate
& howto
.src_mask
)
3854 + relocation
) & howto
.dst_mask
));
3856 /* Put the value back in the object file. */
3857 if (1 == howto
.size
)
3858 bfd_put_16 (input_bfd
, value_to_relocate
, location
);
3860 bfd_put_32 (input_bfd
, value_to_relocate
, location
);
3866 /* gcc-8 warns (*) on all the strncpy calls in this function about
3867 possible string truncation. The "truncation" is not a bug. We
3868 have an external representation of structs with fields that are not
3869 necessarily NULL terminated and corresponding internal
3870 representation fields that are one larger so that they can always
3872 gcc versions between 4.2 and 4.6 do not allow pragma control of
3873 diagnostics inside functions, giving a hard error if you try to use
3874 the finer control available with later versions.
3875 gcc prior to 4.2 warns about diagnostic push and pop.
3876 gcc-5, gcc-6 and gcc-7 warn that -Wstringop-truncation is unknown,
3877 unless you also add #pragma GCC diagnostic ignored "-Wpragma".
3878 (*) Depending on your system header files! */
3879 #if GCC_VERSION >= 8000
3880 # pragma GCC diagnostic push
3881 # pragma GCC diagnostic ignored "-Wstringop-truncation"
3884 _bfd_xcoff_put_ldsymbol_name (bfd
*abfd ATTRIBUTE_UNUSED
,
3885 struct xcoff_loader_info
*ldinfo
,
3886 struct internal_ldsym
*ldsym
,
3890 len
= strlen (name
);
3892 if (len
<= SYMNMLEN
)
3893 strncpy (ldsym
->_l
._l_name
, name
, SYMNMLEN
);
3896 if (ldinfo
->string_size
+ len
+ 3 > ldinfo
->string_alc
)
3898 bfd_size_type newalc
;
3901 newalc
= ldinfo
->string_alc
* 2;
3904 while (ldinfo
->string_size
+ len
+ 3 > newalc
)
3907 newstrings
= bfd_realloc (ldinfo
->strings
, newalc
);
3908 if (newstrings
== NULL
)
3910 ldinfo
->failed
= true;
3913 ldinfo
->string_alc
= newalc
;
3914 ldinfo
->strings
= newstrings
;
3917 ldinfo
->strings
[ldinfo
->string_size
] = ((len
+ 1) >> 8) & 0xff;
3918 ldinfo
->strings
[ldinfo
->string_size
+ 1] = ((len
+ 1)) & 0xff;
3919 strcpy (ldinfo
->strings
+ ldinfo
->string_size
+ 2, name
);
3920 ldsym
->_l
._l_l
._l_zeroes
= 0;
3921 ldsym
->_l
._l_l
._l_offset
= ldinfo
->string_size
+ 2;
3922 ldinfo
->string_size
+= len
+ 3;
3929 _bfd_xcoff_put_symbol_name (struct bfd_link_info
*info
,
3930 struct bfd_strtab_hash
*strtab
,
3931 struct internal_syment
*sym
,
3934 if (strlen (name
) <= SYMNMLEN
)
3936 strncpy (sym
->_n
._n_name
, name
, SYMNMLEN
);
3943 hash
= !info
->traditional_format
;
3944 indx
= _bfd_stringtab_add (strtab
, name
, hash
, false);
3945 if (indx
== (bfd_size_type
) -1)
3947 sym
->_n
._n_n
._n_zeroes
= 0;
3948 sym
->_n
._n_n
._n_offset
= STRING_SIZE_SIZE
+ indx
;
3952 #if GCC_VERSION >= 8000
3953 # pragma GCC diagnostic pop
3957 xcoff_create_csect_from_smclas (bfd
*abfd
,
3958 union internal_auxent
*aux
,
3959 const char *symbol_name
)
3961 asection
*return_value
= NULL
;
3963 /* .sv64 = x_smclas == 17
3964 This is an invalid csect for 32 bit apps. */
3965 static const char * const names
[] =
3967 ".pr", ".ro", ".db", ".tc", ".ua", ".rw", ".gl", ".xo", /* 0 - 7 */
3968 ".sv", ".bs", ".ds", ".uc", ".ti", ".tb", NULL
, ".tc0", /* 8 - 15 */
3969 ".td", NULL
, ".sv3264", NULL
, ".tl", ".ul", ".te"
3972 if ((aux
->x_csect
.x_smclas
< ARRAY_SIZE (names
))
3973 && (NULL
!= names
[aux
->x_csect
.x_smclas
]))
3975 return_value
= bfd_make_section_anyway
3976 (abfd
, names
[aux
->x_csect
.x_smclas
]);
3981 /* xgettext: c-format */
3982 (_("%pB: symbol `%s' has unrecognized smclas %d"),
3983 abfd
, symbol_name
, aux
->x_csect
.x_smclas
);
3984 bfd_set_error (bfd_error_bad_value
);
3987 return return_value
;
3991 xcoff_is_lineno_count_overflow (bfd
*abfd ATTRIBUTE_UNUSED
, bfd_vma value
)
3993 if (0xffff <= value
)
4000 xcoff_is_reloc_count_overflow (bfd
*abfd ATTRIBUTE_UNUSED
, bfd_vma value
)
4002 if (0xffff <= value
)
4009 xcoff_loader_symbol_offset (bfd
*abfd
,
4010 struct internal_ldhdr
*ldhdr ATTRIBUTE_UNUSED
)
4012 return bfd_xcoff_ldhdrsz (abfd
);
4016 xcoff_loader_reloc_offset (bfd
*abfd
, struct internal_ldhdr
*ldhdr
)
4018 return bfd_xcoff_ldhdrsz (abfd
) + ldhdr
->l_nsyms
* bfd_xcoff_ldsymsz (abfd
);
4022 xcoff_generate_rtinit (bfd
*abfd
, const char *init
, const char *fini
,
4025 bfd_byte filehdr_ext
[FILHSZ
];
4026 bfd_byte scnhdr_ext
[SCNHSZ
];
4027 bfd_byte syment_ext
[SYMESZ
* 10];
4028 bfd_byte reloc_ext
[RELSZ
* 3];
4029 bfd_byte
*data_buffer
;
4030 bfd_size_type data_buffer_size
;
4031 bfd_byte
*string_table
= NULL
, *st_tmp
= NULL
;
4032 bfd_size_type string_table_size
;
4034 size_t initsz
, finisz
;
4035 struct internal_filehdr filehdr
;
4036 struct internal_scnhdr scnhdr
;
4037 struct internal_syment syment
;
4038 union internal_auxent auxent
;
4039 struct internal_reloc reloc
;
4041 char *data_name
= ".data";
4042 char *rtinit_name
= "__rtinit";
4043 char *rtld_name
= "__rtld";
4045 if (! bfd_xcoff_rtinit_size (abfd
))
4048 initsz
= (init
== NULL
? 0 : 1 + strlen (init
));
4049 finisz
= (fini
== NULL
? 0 : 1 + strlen (fini
));
4052 memset (filehdr_ext
, 0, FILHSZ
);
4053 memset (&filehdr
, 0, sizeof (struct internal_filehdr
));
4054 filehdr
.f_magic
= bfd_xcoff_magic_number (abfd
);
4055 filehdr
.f_nscns
= 1;
4056 filehdr
.f_timdat
= 0;
4057 filehdr
.f_nsyms
= 0; /* at least 6, no more than 10 */
4058 filehdr
.f_symptr
= 0; /* set below */
4059 filehdr
.f_opthdr
= 0;
4060 filehdr
.f_flags
= 0;
4062 /* section header */
4063 memset (scnhdr_ext
, 0, SCNHSZ
);
4064 memset (&scnhdr
, 0, sizeof (struct internal_scnhdr
));
4065 memcpy (scnhdr
.s_name
, data_name
, strlen (data_name
));
4068 scnhdr
.s_size
= 0; /* set below */
4069 scnhdr
.s_scnptr
= FILHSZ
+ SCNHSZ
;
4070 scnhdr
.s_relptr
= 0; /* set below */
4071 scnhdr
.s_lnnoptr
= 0;
4072 scnhdr
.s_nreloc
= 0; /* either 1 or 2 */
4074 scnhdr
.s_flags
= STYP_DATA
;
4077 0x0000 0x00000000 : rtl
4078 0x0004 0x00000010 : offset to init, or 0
4079 0x0008 0x00000028 : offset to fini, or 0
4080 0x000C 0x0000000C : size of descriptor
4081 0x0010 0x00000000 : init, needs a reloc
4082 0x0014 0x00000040 : offset to init name
4083 0x0018 0x00000000 : flags, padded to a word
4084 0x001C 0x00000000 : empty init
4087 0x0028 0x00000000 : fini, needs a reloc
4088 0x002C 0x00000??? : offset to fini name
4089 0x0030 0x00000000 : flags, padded to a word
4090 0x0034 0x00000000 : empty fini
4094 0x0040 + initsz fini name */
4096 data_buffer_size
= 0x0040 + initsz
+ finisz
;
4097 data_buffer_size
= (data_buffer_size
+ 7) &~ (bfd_size_type
) 7;
4099 data_buffer
= (bfd_byte
*) bfd_zmalloc (data_buffer_size
);
4100 if (data_buffer
== NULL
)
4106 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x04]);
4108 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x14]);
4109 memcpy (&data_buffer
[val
], init
, initsz
);
4115 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x08]);
4116 val
= 0x40 + initsz
;
4117 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x2C]);
4118 memcpy (&data_buffer
[val
], fini
, finisz
);
4122 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x0C]);
4124 scnhdr
.s_size
= data_buffer_size
;
4127 string_table_size
= 0;
4129 string_table_size
+= initsz
;
4131 string_table_size
+= finisz
;
4132 if (string_table_size
)
4134 string_table_size
+= 4;
4135 string_table
= (bfd_byte
*) bfd_zmalloc (string_table_size
);
4136 if (string_table
== NULL
)
4139 val
= string_table_size
;
4140 bfd_h_put_32 (abfd
, val
, &string_table
[0]);
4141 st_tmp
= string_table
+ 4;
4150 memset (syment_ext
, 0, 10 * SYMESZ
);
4151 memset (reloc_ext
, 0, 3 * RELSZ
);
4154 memset (&syment
, 0, sizeof (struct internal_syment
));
4155 memset (&auxent
, 0, sizeof (union internal_auxent
));
4156 memcpy (syment
._n
._n_name
, data_name
, strlen (data_name
));
4158 syment
.n_sclass
= C_HIDEXT
;
4159 syment
.n_numaux
= 1;
4160 auxent
.x_csect
.x_scnlen
.l
= data_buffer_size
;
4161 auxent
.x_csect
.x_smtyp
= 3 << 3 | XTY_SD
;
4162 auxent
.x_csect
.x_smclas
= XMC_RW
;
4163 bfd_coff_swap_sym_out (abfd
, &syment
,
4164 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
4165 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
4167 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
4168 filehdr
.f_nsyms
+= 2;
4171 memset (&syment
, 0, sizeof (struct internal_syment
));
4172 memset (&auxent
, 0, sizeof (union internal_auxent
));
4173 memcpy (syment
._n
._n_name
, rtinit_name
, strlen (rtinit_name
));
4175 syment
.n_sclass
= C_EXT
;
4176 syment
.n_numaux
= 1;
4177 auxent
.x_csect
.x_smtyp
= XTY_LD
;
4178 auxent
.x_csect
.x_smclas
= XMC_RW
;
4179 bfd_coff_swap_sym_out (abfd
, &syment
,
4180 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
4181 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
4183 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
4184 filehdr
.f_nsyms
+= 2;
4189 memset (&syment
, 0, sizeof (struct internal_syment
));
4190 memset (&auxent
, 0, sizeof (union internal_auxent
));
4194 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
4195 memcpy (st_tmp
, init
, initsz
);
4199 memcpy (syment
._n
._n_name
, init
, initsz
- 1);
4201 syment
.n_sclass
= C_EXT
;
4202 syment
.n_numaux
= 1;
4203 bfd_coff_swap_sym_out (abfd
, &syment
,
4204 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
4205 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
4207 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
4210 memset (&reloc
, 0, sizeof (struct internal_reloc
));
4211 reloc
.r_vaddr
= 0x0010;
4212 reloc
.r_symndx
= filehdr
.f_nsyms
;
4213 reloc
.r_type
= R_POS
;
4215 bfd_coff_swap_reloc_out (abfd
, &reloc
, &reloc_ext
[0]);
4217 filehdr
.f_nsyms
+= 2;
4218 scnhdr
.s_nreloc
+= 1;
4224 memset (&syment
, 0, sizeof (struct internal_syment
));
4225 memset (&auxent
, 0, sizeof (union internal_auxent
));
4229 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
4230 memcpy (st_tmp
, fini
, finisz
);
4234 memcpy (syment
._n
._n_name
, fini
, finisz
- 1);
4236 syment
.n_sclass
= C_EXT
;
4237 syment
.n_numaux
= 1;
4238 bfd_coff_swap_sym_out (abfd
, &syment
,
4239 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
4240 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
4242 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
4245 memset (&reloc
, 0, sizeof (struct internal_reloc
));
4246 reloc
.r_vaddr
= 0x0028;
4247 reloc
.r_symndx
= filehdr
.f_nsyms
;
4248 reloc
.r_type
= R_POS
;
4250 bfd_coff_swap_reloc_out (abfd
, &reloc
,
4251 &reloc_ext
[scnhdr
.s_nreloc
* RELSZ
]);
4253 filehdr
.f_nsyms
+= 2;
4254 scnhdr
.s_nreloc
+= 1;
4259 memset (&syment
, 0, sizeof (struct internal_syment
));
4260 memset (&auxent
, 0, sizeof (union internal_auxent
));
4261 memcpy (syment
._n
._n_name
, rtld_name
, strlen (rtld_name
));
4262 syment
.n_sclass
= C_EXT
;
4263 syment
.n_numaux
= 1;
4264 bfd_coff_swap_sym_out (abfd
, &syment
,
4265 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
4266 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
4268 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
4271 memset (&reloc
, 0, sizeof (struct internal_reloc
));
4272 reloc
.r_vaddr
= 0x0000;
4273 reloc
.r_symndx
= filehdr
.f_nsyms
;
4274 reloc
.r_type
= R_POS
;
4276 bfd_coff_swap_reloc_out (abfd
, &reloc
,
4277 &reloc_ext
[scnhdr
.s_nreloc
* RELSZ
]);
4279 filehdr
.f_nsyms
+= 2;
4280 scnhdr
.s_nreloc
+= 1;
4283 scnhdr
.s_relptr
= scnhdr
.s_scnptr
+ data_buffer_size
;
4284 filehdr
.f_symptr
= scnhdr
.s_relptr
+ scnhdr
.s_nreloc
* RELSZ
;
4286 bfd_coff_swap_filehdr_out (abfd
, &filehdr
, filehdr_ext
);
4287 bfd_bwrite (filehdr_ext
, FILHSZ
, abfd
);
4288 bfd_coff_swap_scnhdr_out (abfd
, &scnhdr
, scnhdr_ext
);
4289 bfd_bwrite (scnhdr_ext
, SCNHSZ
, abfd
);
4290 bfd_bwrite (data_buffer
, data_buffer_size
, abfd
);
4291 bfd_bwrite (reloc_ext
, scnhdr
.s_nreloc
* RELSZ
, abfd
);
4292 bfd_bwrite (syment_ext
, filehdr
.f_nsyms
* SYMESZ
, abfd
);
4293 bfd_bwrite (string_table
, string_table_size
, abfd
);
4302 static reloc_howto_type xcoff_dynamic_reloc
=
4303 HOWTO (0, /* type */
4305 2, /* size (0 = byte, 1 = short, 2 = long) */
4307 false, /* pc_relative */
4309 complain_overflow_bitfield
, /* complain_on_overflow */
4310 0, /* special_function */
4312 true, /* partial_inplace */
4313 0xffffffff, /* src_mask */
4314 0xffffffff, /* dst_mask */
4315 false); /* pcrel_offset */
4317 /* Indirect call stub
4318 The first word of the code must be modified by filling in
4319 the correct TOC offset. */
4321 static const unsigned long xcoff_stub_indirect_call_code
[4] =
4323 0x81820000, /* lwz r12,0(r2) */
4324 0x800c0000, /* lwz r0,0(r12) */
4325 0x7c0903a6, /* mtctr r0 */
4326 0x4e800420, /* bctr */
4330 The first word of the code must be modified by filling in
4331 the correct TOC offset.
4332 This is exactly as the glink code but without the traceback,
4333 as it won't be an independent function. */
4335 static const unsigned long xcoff_stub_shared_call_code
[6] =
4337 0x81820000, /* lwz r12,0(r2) */
4338 0x90410014, /* stw r2,20(r1) */
4339 0x800c0000, /* lwz r0,0(r12) */
4340 0x804c0004, /* lwz r2,4(r12) */
4341 0x7c0903a6, /* mtctr r0 */
4342 0x4e800420, /* bctr */
4347 The first word of global linkage code must be modified by filling in
4348 the correct TOC offset. */
4350 static const unsigned long xcoff_glink_code
[9] =
4352 0x81820000, /* lwz r12,0(r2) */
4353 0x90410014, /* stw r2,20(r1) */
4354 0x800c0000, /* lwz r0,0(r12) */
4355 0x804c0004, /* lwz r2,4(r12) */
4356 0x7c0903a6, /* mtctr r0 */
4357 0x4e800420, /* bctr */
4358 0x00000000, /* start of traceback table */
4359 0x000c8000, /* traceback table */
4360 0x00000000, /* traceback table */
4363 /* Table to convert DWARF flags to section names.
4364 Remember to update binutils/dwarf.c:debug_displays
4365 if new DWARF sections are supported by XCOFF. */
4367 const struct xcoff_dwsect_name xcoff_dwsect_names
[] = {
4368 { SSUBTYP_DWINFO
, ".dwinfo", ".debug_info", true },
4369 { SSUBTYP_DWLINE
, ".dwline", ".debug_line", true },
4370 { SSUBTYP_DWPBNMS
, ".dwpbnms", ".debug_pubnames", true },
4371 { SSUBTYP_DWPBTYP
, ".dwpbtyp", ".debug_pubtypes", true },
4372 { SSUBTYP_DWARNGE
, ".dwarnge", ".debug_aranges", true },
4373 { SSUBTYP_DWABREV
, ".dwabrev", ".debug_abbrev", false },
4374 { SSUBTYP_DWSTR
, ".dwstr", ".debug_str", true },
4375 { SSUBTYP_DWRNGES
, ".dwrnges", ".debug_ranges", true },
4376 { SSUBTYP_DWLOC
, ".dwloc", ".debug_loc", true },
4377 { SSUBTYP_DWFRAME
, ".dwframe", ".debug_frame", true },
4378 { SSUBTYP_DWMAC
, ".dwmac", ".debug_macro", true }
4381 /* For generic entry points. */
4382 #define _bfd_xcoff_close_and_cleanup _bfd_archive_close_and_cleanup
4383 #define _bfd_xcoff_bfd_free_cached_info _bfd_bool_bfd_true
4384 #define _bfd_xcoff_new_section_hook coff_new_section_hook
4385 #define _bfd_xcoff_get_section_contents _bfd_generic_get_section_contents
4386 #define _bfd_xcoff_get_section_contents_in_window \
4387 _bfd_generic_get_section_contents_in_window
4389 /* For copy private data entry points. */
4390 #define _bfd_xcoff_bfd_copy_private_bfd_data \
4391 _bfd_xcoff_copy_private_bfd_data
4392 #define _bfd_xcoff_bfd_merge_private_bfd_data \
4393 _bfd_generic_bfd_merge_private_bfd_data
4394 #define _bfd_xcoff_bfd_copy_private_section_data \
4395 _bfd_generic_bfd_copy_private_section_data
4396 #define _bfd_xcoff_bfd_copy_private_symbol_data \
4397 _bfd_generic_bfd_copy_private_symbol_data
4398 #define _bfd_xcoff_bfd_copy_private_header_data \
4399 _bfd_generic_bfd_copy_private_header_data
4400 #define _bfd_xcoff_bfd_set_private_flags \
4401 _bfd_generic_bfd_set_private_flags
4402 #define _bfd_xcoff_bfd_print_private_bfd_data \
4403 _bfd_generic_bfd_print_private_bfd_data
4405 /* For archive entry points. */
4406 #define _bfd_xcoff_slurp_extended_name_table \
4407 _bfd_noarchive_slurp_extended_name_table
4408 #define _bfd_xcoff_construct_extended_name_table \
4409 _bfd_noarchive_construct_extended_name_table
4410 #define _bfd_xcoff_truncate_arname bfd_dont_truncate_arname
4411 #define _bfd_xcoff_write_ar_hdr _bfd_generic_write_ar_hdr
4412 #define _bfd_xcoff_get_elt_at_index _bfd_generic_get_elt_at_index
4413 #define _bfd_xcoff_generic_stat_arch_elt _bfd_xcoff_stat_arch_elt
4414 #define _bfd_xcoff_update_armap_timestamp _bfd_bool_bfd_true
4416 /* For symbols entry points. */
4417 #define _bfd_xcoff_get_symtab_upper_bound coff_get_symtab_upper_bound
4418 #define _bfd_xcoff_canonicalize_symtab coff_canonicalize_symtab
4419 #define _bfd_xcoff_make_empty_symbol coff_make_empty_symbol
4420 #define _bfd_xcoff_print_symbol coff_print_symbol
4421 #define _bfd_xcoff_get_symbol_info coff_get_symbol_info
4422 #define _bfd_xcoff_get_symbol_version_string \
4423 _bfd_nosymbols_get_symbol_version_string
4424 #define _bfd_xcoff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
4425 #define _bfd_xcoff_bfd_is_target_special_symbol \
4426 coff_bfd_is_target_special_symbol
4427 #define _bfd_xcoff_get_lineno coff_get_lineno
4428 #define _bfd_xcoff_find_nearest_line coff_find_nearest_line
4429 #define _bfd_xcoff_find_line coff_find_line
4430 #define _bfd_xcoff_find_inliner_info coff_find_inliner_info
4431 #define _bfd_xcoff_bfd_make_debug_symbol coff_bfd_make_debug_symbol
4432 #define _bfd_xcoff_read_minisymbols _bfd_generic_read_minisymbols
4433 #define _bfd_xcoff_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
4435 /* For reloc entry points. */
4436 #define _bfd_xcoff_get_reloc_upper_bound coff_get_reloc_upper_bound
4437 #define _bfd_xcoff_canonicalize_reloc coff_canonicalize_reloc
4438 #define _bfd_xcoff_set_reloc _bfd_generic_set_reloc
4439 #define _bfd_xcoff_bfd_reloc_type_lookup _bfd_xcoff_reloc_type_lookup
4440 #define _bfd_xcoff_bfd_reloc_name_lookup _bfd_xcoff_reloc_name_lookup
4442 /* For link entry points. */
4443 #define _bfd_xcoff_bfd_get_relocated_section_contents \
4444 bfd_generic_get_relocated_section_contents
4445 #define _bfd_xcoff_bfd_relax_section bfd_generic_relax_section
4446 #define _bfd_xcoff_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
4447 #define _bfd_xcoff_bfd_link_just_syms _bfd_generic_link_just_syms
4448 #define _bfd_xcoff_bfd_copy_link_hash_symbol_type \
4449 _bfd_generic_copy_link_hash_symbol_type
4450 #define _bfd_xcoff_bfd_link_split_section _bfd_generic_link_split_section
4451 #define _bfd_xcoff_bfd_gc_sections bfd_generic_gc_sections
4452 #define _bfd_xcoff_bfd_lookup_section_flags bfd_generic_lookup_section_flags
4453 #define _bfd_xcoff_bfd_merge_sections bfd_generic_merge_sections
4454 #define _bfd_xcoff_bfd_is_group_section bfd_generic_is_group_section
4455 #define _bfd_xcoff_bfd_group_name bfd_generic_group_name
4456 #define _bfd_xcoff_bfd_discard_group bfd_generic_discard_group
4457 #define _bfd_xcoff_section_already_linked _bfd_generic_section_already_linked
4458 #define _bfd_xcoff_bfd_define_common_symbol _bfd_xcoff_define_common_symbol
4459 #define _bfd_xcoff_bfd_link_hide_symbol _bfd_generic_link_hide_symbol
4460 #define _bfd_xcoff_bfd_define_start_stop bfd_generic_define_start_stop
4461 #define _bfd_xcoff_bfd_link_check_relocs _bfd_generic_link_check_relocs
4463 /* For dynamic symbols and relocs entry points. */
4464 #define _bfd_xcoff_get_synthetic_symtab _bfd_nodynamic_get_synthetic_symtab
4466 static const struct xcoff_backend_data_rec bfd_xcoff_backend_data
=
4468 { /* COFF backend, defined in libcoff.h. */
4469 _bfd_xcoff_swap_aux_in
,
4470 _bfd_xcoff_swap_sym_in
,
4471 coff_swap_lineno_in
,
4472 _bfd_xcoff_swap_aux_out
,
4473 _bfd_xcoff_swap_sym_out
,
4474 coff_swap_lineno_out
,
4475 xcoff_swap_reloc_out
,
4476 coff_swap_filehdr_out
,
4477 coff_swap_aouthdr_out
,
4478 coff_swap_scnhdr_out
,
4487 true, /* _bfd_coff_long_filenames */
4488 XCOFF_NO_LONG_SECTION_NAMES
, /* _bfd_coff_long_section_names */
4489 3, /* _bfd_coff_default_section_alignment_power */
4490 false, /* _bfd_coff_force_symnames_in_strings */
4491 2, /* _bfd_coff_debug_string_prefix_length */
4492 32768, /* _bfd_coff_max_nscns */
4493 coff_swap_filehdr_in
,
4494 coff_swap_aouthdr_in
,
4495 coff_swap_scnhdr_in
,
4496 xcoff_swap_reloc_in
,
4497 coff_bad_format_hook
,
4498 coff_set_arch_mach_hook
,
4501 coff_set_alignment_hook
,
4502 coff_slurp_symbol_table
,
4503 symname_in_debug_hook
,
4504 coff_pointerize_aux_hook
,
4506 dummy_reloc16_extra_cases
,
4507 dummy_reloc16_estimate
,
4508 NULL
, /* bfd_coff_sym_is_global */
4509 coff_compute_section_file_positions
,
4510 NULL
, /* _bfd_coff_start_final_link */
4511 xcoff_ppc_relocate_section
,
4512 coff_rtype_to_howto
,
4513 NULL
, /* _bfd_coff_adjust_symndx */
4514 _bfd_generic_link_add_one_symbol
,
4515 coff_link_output_has_begun
,
4516 coff_final_link_postscript
,
4517 NULL
/* print_pdata. */
4520 0x01DF, /* magic number */
4524 /* Function pointers to xcoff specific swap routines. */
4525 xcoff_swap_ldhdr_in
,
4526 xcoff_swap_ldhdr_out
,
4527 xcoff_swap_ldsym_in
,
4528 xcoff_swap_ldsym_out
,
4529 xcoff_swap_ldrel_in
,
4530 xcoff_swap_ldrel_out
,
4536 12, /* _xcoff_function_descriptor_size */
4540 1, /* _xcoff_ldhdr_version */
4542 _bfd_xcoff_put_symbol_name
,
4543 _bfd_xcoff_put_ldsymbol_name
,
4544 &xcoff_dynamic_reloc
,
4545 xcoff_create_csect_from_smclas
,
4547 /* Lineno and reloc count overflow. */
4548 xcoff_is_lineno_count_overflow
,
4549 xcoff_is_reloc_count_overflow
,
4551 xcoff_loader_symbol_offset
,
4552 xcoff_loader_reloc_offset
,
4555 &xcoff_glink_code
[0],
4556 36, /* _xcoff_glink_size */
4559 64, /* _xcoff_rtinit_size */
4560 xcoff_generate_rtinit
,
4562 /* Stub indirect call. */
4563 &xcoff_stub_indirect_call_code
[0],
4564 16, /* _xcoff_stub_indirect_call_size */
4566 /* Stub shared call. */
4567 &xcoff_stub_shared_call_code
[0],
4568 24, /* _xcoff_stub_shared_call_size */
4571 /* The transfer vector that leads the outside world to all of the above. */
4572 const bfd_target rs6000_xcoff_vec
=
4575 bfd_target_xcoff_flavour
,
4576 BFD_ENDIAN_BIG
, /* data byte order is big */
4577 BFD_ENDIAN_BIG
, /* header byte order is big */
4579 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
4580 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
4582 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
4583 0, /* leading char */
4584 '/', /* ar_pad_char */
4585 15, /* ar_max_namelen */
4586 0, /* match priority. */
4587 TARGET_KEEP_UNUSED_SECTION_SYMBOLS
, /* keep unused section symbols. */
4611 { /* bfd_check_format */
4614 _bfd_xcoff_archive_p
,
4618 { /* bfd_set_format */
4619 _bfd_bool_bfd_false_error
,
4621 _bfd_generic_mkarchive
,
4622 _bfd_bool_bfd_false_error
4625 {/* bfd_write_contents */
4626 _bfd_bool_bfd_false_error
,
4627 coff_write_object_contents
,
4628 _bfd_xcoff_write_archive_contents
,
4629 _bfd_bool_bfd_false_error
4632 BFD_JUMP_TABLE_GENERIC (_bfd_xcoff
),
4633 BFD_JUMP_TABLE_COPY (_bfd_xcoff
),
4634 BFD_JUMP_TABLE_CORE (coff
),
4635 BFD_JUMP_TABLE_ARCHIVE (_bfd_xcoff
),
4636 BFD_JUMP_TABLE_SYMBOLS (_bfd_xcoff
),
4637 BFD_JUMP_TABLE_RELOCS (_bfd_xcoff
),
4638 BFD_JUMP_TABLE_WRITE (coff
),
4639 BFD_JUMP_TABLE_LINK (_bfd_xcoff
),
4640 BFD_JUMP_TABLE_DYNAMIC (_bfd_xcoff
),
4642 /* Opposite endian version, none exists */
4645 & bfd_xcoff_backend_data
,
4648 /* xcoff-powermac target
4650 Only difference between this target and the rs6000 target is the
4651 the default architecture and machine type used in coffcode.h
4653 PowerPC Macs use the same magic numbers as RS/6000
4654 (because that's how they were bootstrapped originally),
4655 but they are always PowerPC architecture. */
4656 static const struct xcoff_backend_data_rec bfd_pmac_xcoff_backend_data
=
4658 { /* COFF backend, defined in libcoff.h. */
4659 _bfd_xcoff_swap_aux_in
,
4660 _bfd_xcoff_swap_sym_in
,
4661 coff_swap_lineno_in
,
4662 _bfd_xcoff_swap_aux_out
,
4663 _bfd_xcoff_swap_sym_out
,
4664 coff_swap_lineno_out
,
4665 xcoff_swap_reloc_out
,
4666 coff_swap_filehdr_out
,
4667 coff_swap_aouthdr_out
,
4668 coff_swap_scnhdr_out
,
4677 true, /* _bfd_coff_long_filenames */
4678 XCOFF_NO_LONG_SECTION_NAMES
, /* _bfd_coff_long_section_names */
4679 3, /* _bfd_coff_default_section_alignment_power */
4680 false, /* _bfd_coff_force_symnames_in_strings */
4681 2, /* _bfd_coff_debug_string_prefix_length */
4682 32768, /* _bfd_coff_max_nscns */
4683 coff_swap_filehdr_in
,
4684 coff_swap_aouthdr_in
,
4685 coff_swap_scnhdr_in
,
4686 xcoff_swap_reloc_in
,
4687 coff_bad_format_hook
,
4688 coff_set_arch_mach_hook
,
4691 coff_set_alignment_hook
,
4692 coff_slurp_symbol_table
,
4693 symname_in_debug_hook
,
4694 coff_pointerize_aux_hook
,
4696 dummy_reloc16_extra_cases
,
4697 dummy_reloc16_estimate
,
4698 NULL
, /* bfd_coff_sym_is_global */
4699 coff_compute_section_file_positions
,
4700 NULL
, /* _bfd_coff_start_final_link */
4701 xcoff_ppc_relocate_section
,
4702 coff_rtype_to_howto
,
4703 NULL
, /* _bfd_coff_adjust_symndx */
4704 _bfd_generic_link_add_one_symbol
,
4705 coff_link_output_has_begun
,
4706 coff_final_link_postscript
,
4707 NULL
/* print_pdata. */
4710 0x01DF, /* magic number */
4714 /* Function pointers to xcoff specific swap routines. */
4715 xcoff_swap_ldhdr_in
,
4716 xcoff_swap_ldhdr_out
,
4717 xcoff_swap_ldsym_in
,
4718 xcoff_swap_ldsym_out
,
4719 xcoff_swap_ldrel_in
,
4720 xcoff_swap_ldrel_out
,
4726 12, /* _xcoff_function_descriptor_size */
4730 1, /* _xcoff_ldhdr_version */
4732 _bfd_xcoff_put_symbol_name
,
4733 _bfd_xcoff_put_ldsymbol_name
,
4734 &xcoff_dynamic_reloc
,
4735 xcoff_create_csect_from_smclas
,
4737 /* Lineno and reloc count overflow. */
4738 xcoff_is_lineno_count_overflow
,
4739 xcoff_is_reloc_count_overflow
,
4741 xcoff_loader_symbol_offset
,
4742 xcoff_loader_reloc_offset
,
4745 &xcoff_glink_code
[0],
4746 36, /* _xcoff_glink_size */
4749 0, /* _xcoff_rtinit_size */
4750 xcoff_generate_rtinit
,
4752 /* Stub indirect call. */
4753 &xcoff_stub_indirect_call_code
[0],
4754 16, /* _xcoff_stub_indirect_call_size */
4756 /* Stub shared call. */
4757 &xcoff_stub_shared_call_code
[0],
4758 24, /* _xcoff_stub_shared_call_size */
4761 /* The transfer vector that leads the outside world to all of the above. */
4762 const bfd_target powerpc_xcoff_vec
=
4765 bfd_target_xcoff_flavour
,
4766 BFD_ENDIAN_BIG
, /* data byte order is big */
4767 BFD_ENDIAN_BIG
, /* header byte order is big */
4769 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
4770 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
4772 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
4773 0, /* leading char */
4774 '/', /* ar_pad_char */
4775 15, /* ar_max_namelen */
4776 0, /* match priority. */
4777 TARGET_KEEP_UNUSED_SECTION_SYMBOLS
, /* keep unused section symbols. */
4801 { /* bfd_check_format */
4804 _bfd_xcoff_archive_p
,
4808 { /* bfd_set_format */
4809 _bfd_bool_bfd_false_error
,
4811 _bfd_generic_mkarchive
,
4812 _bfd_bool_bfd_false_error
4815 {/* bfd_write_contents */
4816 _bfd_bool_bfd_false_error
,
4817 coff_write_object_contents
,
4818 _bfd_xcoff_write_archive_contents
,
4819 _bfd_bool_bfd_false_error
4822 BFD_JUMP_TABLE_GENERIC (_bfd_xcoff
),
4823 BFD_JUMP_TABLE_COPY (_bfd_xcoff
),
4824 BFD_JUMP_TABLE_CORE (coff
),
4825 BFD_JUMP_TABLE_ARCHIVE (_bfd_xcoff
),
4826 BFD_JUMP_TABLE_SYMBOLS (_bfd_xcoff
),
4827 BFD_JUMP_TABLE_RELOCS (_bfd_xcoff
),
4828 BFD_JUMP_TABLE_WRITE (coff
),
4829 BFD_JUMP_TABLE_LINK (_bfd_xcoff
),
4830 BFD_JUMP_TABLE_DYNAMIC (_bfd_xcoff
),
4832 /* Opposite endian version, none exists */
4835 & bfd_pmac_xcoff_backend_data
,