1 /* BFD back-end for IBM RS/6000 "XCOFF" files.
2 Copyright (C) 1990-2020 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 bfd_boolean
_bfd_xcoff_mkobject (bfd
*);
36 extern bfd_boolean
_bfd_xcoff_copy_private_bfd_data (bfd
*, bfd
*);
37 extern bfd_boolean
_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 bfd_boolean
_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 bfd_boolean _bfd_xcoff_write_armap
46 (bfd
*, unsigned int, struct orl
*, unsigned int, int);
47 extern bfd_boolean
_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 bfd_boolean 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 bfd_boolean xcoff_write_armap_old
123 (bfd
*, unsigned int, struct orl
*, unsigned int, int);
124 static bfd_boolean xcoff_write_armap_big
125 (bfd
*, unsigned int, struct orl
*, unsigned int, int);
126 static bfd_boolean
xcoff_write_archive_contents_old (bfd
*);
127 static bfd_boolean
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 bfd_boolean xcoff_ppc_relocate_section
135 (bfd
*, struct bfd_link_info
*, bfd
*, asection
*, bfd_byte
*,
136 struct internal_reloc
*, struct internal_syment
*, asection
**);
137 static bfd_boolean _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 bfd_boolean
xcoff_is_lineno_count_overflow (bfd
*, bfd_vma
);
142 static bfd_boolean
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 bfd_boolean xcoff_generate_rtinit
146 (bfd
*, const char *, const char *, bfd_boolean
);
147 static bfd_boolean
do_pad (bfd
*, unsigned int);
148 static bfd_boolean
do_copy (bfd
*, bfd
*);
150 /* Relocation functions */
151 static bfd_boolean
xcoff_reloc_type_br (XCOFF_RELOC_FUNCTION_ARGS
);
153 static bfd_boolean xcoff_complain_overflow_dont_func
154 (XCOFF_COMPLAIN_FUNCTION_ARGS
);
155 static bfd_boolean xcoff_complain_overflow_bitfield_func
156 (XCOFF_COMPLAIN_FUNCTION_ARGS
);
157 static bfd_boolean xcoff_complain_overflow_signed_func
158 (XCOFF_COMPLAIN_FUNCTION_ARGS
);
159 static bfd_boolean xcoff_complain_overflow_unsigned_func
160 (XCOFF_COMPLAIN_FUNCTION_ARGS
);
162 bfd_boolean (*xcoff_calculate_relocation
[XCOFF_MAX_CALCULATE_RELOCATION
])
163 (XCOFF_RELOC_FUNCTION_ARGS
) =
165 xcoff_reloc_type_pos
, /* R_POS (0x00) */
166 xcoff_reloc_type_neg
, /* R_NEG (0x01) */
167 xcoff_reloc_type_rel
, /* R_REL (0x02) */
168 xcoff_reloc_type_toc
, /* R_TOC (0x03) */
169 xcoff_reloc_type_fail
, /* R_RTB (0x04) */
170 xcoff_reloc_type_toc
, /* R_GL (0x05) */
171 xcoff_reloc_type_toc
, /* R_TCL (0x06) */
172 xcoff_reloc_type_fail
, /* (0x07) */
173 xcoff_reloc_type_ba
, /* R_BA (0x08) */
174 xcoff_reloc_type_fail
, /* (0x09) */
175 xcoff_reloc_type_br
, /* R_BR (0x0a) */
176 xcoff_reloc_type_fail
, /* (0x0b) */
177 xcoff_reloc_type_pos
, /* R_RL (0x0c) */
178 xcoff_reloc_type_pos
, /* R_RLA (0x0d) */
179 xcoff_reloc_type_fail
, /* (0x0e) */
180 xcoff_reloc_type_noop
, /* R_REF (0x0f) */
181 xcoff_reloc_type_fail
, /* (0x10) */
182 xcoff_reloc_type_fail
, /* (0x11) */
183 xcoff_reloc_type_toc
, /* R_TRL (0x12) */
184 xcoff_reloc_type_toc
, /* R_TRLA (0x13) */
185 xcoff_reloc_type_fail
, /* R_RRTBI (0x14) */
186 xcoff_reloc_type_fail
, /* R_RRTBA (0x15) */
187 xcoff_reloc_type_ba
, /* R_CAI (0x16) */
188 xcoff_reloc_type_crel
, /* R_CREL (0x17) */
189 xcoff_reloc_type_ba
, /* R_RBA (0x18) */
190 xcoff_reloc_type_ba
, /* R_RBAC (0x19) */
191 xcoff_reloc_type_br
, /* R_RBR (0x1a) */
192 xcoff_reloc_type_ba
, /* R_RBRC (0x1b) */
195 bfd_boolean (*xcoff_complain_overflow
[XCOFF_MAX_COMPLAIN_OVERFLOW
])
196 (XCOFF_COMPLAIN_FUNCTION_ARGS
) =
198 xcoff_complain_overflow_dont_func
,
199 xcoff_complain_overflow_bitfield_func
,
200 xcoff_complain_overflow_signed_func
,
201 xcoff_complain_overflow_unsigned_func
,
204 /* Information about one member of an archive. */
207 /* The archive member that this structure describes. */
210 /* The number of bytes of padding that must be inserted before the
211 start of the member in order to ensure that the section contents
212 are correctly aligned. */
213 unsigned int leading_padding
;
215 /* The offset of MEMBER from the start of the archive (i.e. the end
216 of the leading padding). */
219 /* The normalized name of MEMBER. */
222 /* The length of NAME, without padding. */
223 bfd_size_type namlen
;
225 /* The length of NAME, with padding. */
226 bfd_size_type padded_namlen
;
228 /* The size of MEMBER's header, including the name and magic sequence. */
229 bfd_size_type header_size
;
231 /* The size of the MEMBER's contents. */
232 bfd_size_type contents_size
;
234 /* The number of bytes of padding that must be inserted after MEMBER
235 in order to preserve even alignment. */
236 bfd_size_type trailing_padding
;
239 /* A structure used for iterating over the members of an archive. */
240 struct archive_iterator
242 /* The archive itself. */
245 /* Information about the current archive member. */
246 struct member_layout current
;
248 /* Information about the next archive member. MEMBER is null if there
249 are no more archive members, in which case OFFSET is the offset of
250 the first unused byte. */
251 struct member_layout next
;
254 /* Initialize INFO so that it describes member MEMBER of archive ARCHIVE.
255 OFFSET is the even-padded offset of MEMBER, not including any leading
256 padding needed for section alignment. */
259 member_layout_init (struct member_layout
*info
, bfd
*archive
,
260 bfd
*member
, file_ptr offset
)
262 info
->member
= member
;
263 info
->leading_padding
= 0;
266 info
->name
= normalize_filename (member
);
267 info
->namlen
= strlen (info
->name
);
268 info
->padded_namlen
= info
->namlen
+ (info
->namlen
& 1);
269 if (xcoff_big_format_p (archive
))
270 info
->header_size
= SIZEOF_AR_HDR_BIG
;
272 info
->header_size
= SIZEOF_AR_HDR
;
273 info
->header_size
+= info
->padded_namlen
+ SXCOFFARFMAG
;
274 info
->contents_size
= arelt_size (member
);
275 info
->trailing_padding
= info
->contents_size
& 1;
277 if (bfd_check_format (member
, bfd_object
)
278 && bfd_get_flavour (member
) == bfd_target_xcoff_flavour
279 && (member
->flags
& DYNAMIC
) != 0)
280 info
->leading_padding
281 = (-(offset
+ info
->header_size
)
282 & ((1 << bfd_xcoff_text_align_power (member
)) - 1));
284 info
->offset
= offset
+ info
->leading_padding
;
287 /* Set up ITERATOR to iterate through archive ARCHIVE. */
290 archive_iterator_begin (struct archive_iterator
*iterator
,
293 iterator
->archive
= archive
;
294 member_layout_init (&iterator
->next
, archive
, archive
->archive_head
,
295 xcoff_big_format_p (archive
)
296 ? SIZEOF_AR_FILE_HDR_BIG
297 : SIZEOF_AR_FILE_HDR
);
300 /* Make ITERATOR visit the first unvisited archive member. Return true
301 on success; return false if all members have been visited. */
304 archive_iterator_next (struct archive_iterator
*iterator
)
306 if (!iterator
->next
.member
)
309 iterator
->current
= iterator
->next
;
310 member_layout_init (&iterator
->next
, iterator
->archive
,
311 iterator
->current
.member
->archive_next
,
312 iterator
->current
.offset
313 + iterator
->current
.header_size
314 + iterator
->current
.contents_size
315 + iterator
->current
.trailing_padding
);
319 /* We use our own tdata type. Its first field is the COFF tdata type,
320 so the COFF routines are compatible. */
323 _bfd_xcoff_mkobject (bfd
*abfd
)
325 coff_data_type
*coff
;
326 size_t amt
= sizeof (struct xcoff_tdata
);
328 abfd
->tdata
.xcoff_obj_data
= (struct xcoff_tdata
*) bfd_zalloc (abfd
, amt
);
329 if (abfd
->tdata
.xcoff_obj_data
== NULL
)
331 coff
= coff_data (abfd
);
332 coff
->symbols
= (coff_symbol_type
*) NULL
;
333 coff
->conversion_table
= (unsigned int *) NULL
;
334 coff
->raw_syments
= (struct coff_ptr_struct
*) NULL
;
337 xcoff_data (abfd
)->modtype
= ('1' << 8) | 'L';
339 /* We set cputype to -1 to indicate that it has not been
341 xcoff_data (abfd
)->cputype
= -1;
343 xcoff_data (abfd
)->csects
= NULL
;
344 xcoff_data (abfd
)->debug_indices
= NULL
;
346 /* text section alignment is different than the default */
347 bfd_xcoff_text_align_power (abfd
) = 2;
352 /* Copy XCOFF data from one BFD to another. */
355 _bfd_xcoff_copy_private_bfd_data (bfd
*ibfd
, bfd
*obfd
)
357 struct xcoff_tdata
*ix
, *ox
;
360 if (ibfd
->xvec
!= obfd
->xvec
)
362 ix
= xcoff_data (ibfd
);
363 ox
= xcoff_data (obfd
);
364 ox
->full_aouthdr
= ix
->full_aouthdr
;
370 sec
= coff_section_from_bfd_index (ibfd
, ix
->sntoc
);
374 ox
->sntoc
= sec
->output_section
->target_index
;
376 if (ix
->snentry
== 0)
380 sec
= coff_section_from_bfd_index (ibfd
, ix
->snentry
);
384 ox
->snentry
= sec
->output_section
->target_index
;
386 bfd_xcoff_text_align_power (obfd
) = bfd_xcoff_text_align_power (ibfd
);
387 bfd_xcoff_data_align_power (obfd
) = bfd_xcoff_data_align_power (ibfd
);
388 ox
->modtype
= ix
->modtype
;
389 ox
->cputype
= ix
->cputype
;
390 ox
->maxdata
= ix
->maxdata
;
391 ox
->maxstack
= ix
->maxstack
;
395 /* I don't think XCOFF really has a notion of local labels based on
396 name. This will mean that ld -X doesn't actually strip anything.
397 The AIX native linker does not have a -X option, and it ignores the
401 _bfd_xcoff_is_local_label_name (bfd
*abfd ATTRIBUTE_UNUSED
,
402 const char *name ATTRIBUTE_UNUSED
)
408 _bfd_xcoff_swap_sym_in (bfd
*abfd
, void * ext1
, void * in1
)
410 SYMENT
*ext
= (SYMENT
*)ext1
;
411 struct internal_syment
* in
= (struct internal_syment
*)in1
;
413 if (ext
->e
.e_name
[0] != 0)
415 memcpy (in
->_n
._n_name
, ext
->e
.e_name
, SYMNMLEN
);
419 in
->_n
._n_n
._n_zeroes
= 0;
420 in
->_n
._n_n
._n_offset
= H_GET_32 (abfd
, ext
->e
.e
.e_offset
);
423 in
->n_value
= H_GET_32 (abfd
, ext
->e_value
);
424 in
->n_scnum
= (short) H_GET_16 (abfd
, ext
->e_scnum
);
425 in
->n_type
= H_GET_16 (abfd
, ext
->e_type
);
426 in
->n_sclass
= H_GET_8 (abfd
, ext
->e_sclass
);
427 in
->n_numaux
= H_GET_8 (abfd
, ext
->e_numaux
);
431 _bfd_xcoff_swap_sym_out (bfd
*abfd
, void * inp
, void * extp
)
433 struct internal_syment
*in
= (struct internal_syment
*)inp
;
434 SYMENT
*ext
=(SYMENT
*)extp
;
436 if (in
->_n
._n_name
[0] != 0)
438 memcpy (ext
->e
.e_name
, in
->_n
._n_name
, SYMNMLEN
);
442 H_PUT_32 (abfd
, 0, ext
->e
.e
.e_zeroes
);
443 H_PUT_32 (abfd
, in
->_n
._n_n
._n_offset
, ext
->e
.e
.e_offset
);
446 H_PUT_32 (abfd
, in
->n_value
, ext
->e_value
);
447 H_PUT_16 (abfd
, in
->n_scnum
, ext
->e_scnum
);
448 H_PUT_16 (abfd
, in
->n_type
, ext
->e_type
);
449 H_PUT_8 (abfd
, in
->n_sclass
, ext
->e_sclass
);
450 H_PUT_8 (abfd
, in
->n_numaux
, ext
->e_numaux
);
451 return bfd_coff_symesz (abfd
);
455 _bfd_xcoff_swap_aux_in (bfd
*abfd
, void * ext1
, int type
, int in_class
,
456 int indx
, int numaux
, void * in1
)
458 AUXENT
* ext
= (AUXENT
*)ext1
;
459 union internal_auxent
*in
= (union internal_auxent
*)in1
;
464 if (ext
->x_file
.x_n
.x_fname
[0] == 0)
466 in
->x_file
.x_n
.x_zeroes
= 0;
467 in
->x_file
.x_n
.x_offset
=
468 H_GET_32 (abfd
, ext
->x_file
.x_n
.x_n
.x_offset
);
475 memcpy (in
->x_file
.x_fname
, ext
->x_file
.x_n
.x_fname
,
476 numaux
* sizeof (AUXENT
));
480 memcpy (in
->x_file
.x_fname
, ext
->x_file
.x_n
.x_fname
, FILNMLEN
);
485 /* RS/6000 "csect" auxents */
489 if (indx
+ 1 == numaux
)
491 in
->x_csect
.x_scnlen
.l
= H_GET_32 (abfd
, ext
->x_csect
.x_scnlen
);
492 in
->x_csect
.x_parmhash
= H_GET_32 (abfd
, ext
->x_csect
.x_parmhash
);
493 in
->x_csect
.x_snhash
= H_GET_16 (abfd
, ext
->x_csect
.x_snhash
);
494 /* We don't have to hack bitfields in x_smtyp because it's
495 defined by shifts-and-ands, which are equivalent on all
497 in
->x_csect
.x_smtyp
= H_GET_8 (abfd
, ext
->x_csect
.x_smtyp
);
498 in
->x_csect
.x_smclas
= H_GET_8 (abfd
, ext
->x_csect
.x_smclas
);
499 in
->x_csect
.x_stab
= H_GET_32 (abfd
, ext
->x_csect
.x_stab
);
500 in
->x_csect
.x_snstab
= H_GET_16 (abfd
, ext
->x_csect
.x_snstab
);
510 in
->x_scn
.x_scnlen
= H_GET_32 (abfd
, ext
->x_scn
.x_scnlen
);
511 in
->x_scn
.x_nreloc
= H_GET_16 (abfd
, ext
->x_scn
.x_nreloc
);
512 in
->x_scn
.x_nlinno
= H_GET_16 (abfd
, ext
->x_scn
.x_nlinno
);
513 /* PE defines some extra fields; we zero them out for
515 in
->x_scn
.x_checksum
= 0;
516 in
->x_scn
.x_associated
= 0;
517 in
->x_scn
.x_comdat
= 0;
524 in
->x_sym
.x_tagndx
.l
= H_GET_32 (abfd
, ext
->x_sym
.x_tagndx
);
525 in
->x_sym
.x_tvndx
= H_GET_16 (abfd
, ext
->x_sym
.x_tvndx
);
527 if (in_class
== C_BLOCK
|| in_class
== C_FCN
|| ISFCN (type
)
530 in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
=
531 H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
532 in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
=
533 H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
537 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0] =
538 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0]);
539 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1] =
540 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1]);
541 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2] =
542 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2]);
543 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3] =
544 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3]);
549 in
->x_sym
.x_misc
.x_fsize
= H_GET_32 (abfd
, ext
->x_sym
.x_misc
.x_fsize
);
553 in
->x_sym
.x_misc
.x_lnsz
.x_lnno
=
554 H_GET_16 (abfd
, ext
->x_sym
.x_misc
.x_lnsz
.x_lnno
);
555 in
->x_sym
.x_misc
.x_lnsz
.x_size
=
556 H_GET_16 (abfd
, ext
->x_sym
.x_misc
.x_lnsz
.x_size
);
560 /* The semicolon is because MSVC doesn't like labels at
565 _bfd_xcoff_swap_aux_out (bfd
*abfd
, void * inp
, int type
, int in_class
,
566 int indx ATTRIBUTE_UNUSED
,
567 int numaux ATTRIBUTE_UNUSED
,
570 union internal_auxent
*in
= (union internal_auxent
*)inp
;
571 AUXENT
*ext
= (AUXENT
*)extp
;
573 memset (ext
, 0, bfd_coff_auxesz (abfd
));
577 if (in
->x_file
.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_offset
,
581 ext
->x_file
.x_n
.x_n
.x_offset
);
585 memcpy (ext
->x_file
.x_n
.x_fname
, in
->x_file
.x_fname
, FILNMLEN
);
589 /* RS/6000 "csect" auxents */
593 if (indx
+ 1 == numaux
)
595 H_PUT_32 (abfd
, in
->x_csect
.x_scnlen
.l
, ext
->x_csect
.x_scnlen
);
596 H_PUT_32 (abfd
, in
->x_csect
.x_parmhash
, ext
->x_csect
.x_parmhash
);
597 H_PUT_16 (abfd
, in
->x_csect
.x_snhash
, ext
->x_csect
.x_snhash
);
598 /* We don't have to hack bitfields in x_smtyp because it's
599 defined by shifts-and-ands, which are equivalent on all
601 H_PUT_8 (abfd
, in
->x_csect
.x_smtyp
, ext
->x_csect
.x_smtyp
);
602 H_PUT_8 (abfd
, in
->x_csect
.x_smclas
, ext
->x_csect
.x_smclas
);
603 H_PUT_32 (abfd
, in
->x_csect
.x_stab
, ext
->x_csect
.x_stab
);
604 H_PUT_16 (abfd
, in
->x_csect
.x_snstab
, ext
->x_csect
.x_snstab
);
614 H_PUT_32 (abfd
, in
->x_scn
.x_scnlen
, ext
->x_scn
.x_scnlen
);
615 H_PUT_16 (abfd
, in
->x_scn
.x_nreloc
, ext
->x_scn
.x_nreloc
);
616 H_PUT_16 (abfd
, in
->x_scn
.x_nlinno
, ext
->x_scn
.x_nlinno
);
622 H_PUT_32 (abfd
, in
->x_sym
.x_tagndx
.l
, ext
->x_sym
.x_tagndx
);
623 H_PUT_16 (abfd
, in
->x_sym
.x_tvndx
, ext
->x_sym
.x_tvndx
);
625 if (in_class
== C_BLOCK
|| in_class
== C_FCN
|| ISFCN (type
)
628 H_PUT_32 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
,
629 ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
630 H_PUT_32 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
631 ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
635 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0],
636 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0]);
637 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1],
638 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1]);
639 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2],
640 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2]);
641 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3],
642 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3]);
646 H_PUT_32 (abfd
, in
->x_sym
.x_misc
.x_fsize
, ext
->x_sym
.x_misc
.x_fsize
);
649 H_PUT_16 (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_lnno
,
650 ext
->x_sym
.x_misc
.x_lnsz
.x_lnno
);
651 H_PUT_16 (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_size
,
652 ext
->x_sym
.x_misc
.x_lnsz
.x_size
);
656 return bfd_coff_auxesz (abfd
);
659 /* The XCOFF reloc table. Actually, XCOFF relocations specify the
660 bitsize and whether they are signed or not, along with a
661 conventional type. This table is for the types, which are used for
662 different algorithms for putting in the reloc. Many of these
663 relocs need special_function entries, which I have not written. */
665 reloc_howto_type xcoff_howto_table
[] =
667 /* 0x00: Standard 32 bit relocation. */
668 HOWTO (R_POS
, /* type */
670 2, /* size (0 = byte, 1 = short, 2 = long) */
672 FALSE
, /* pc_relative */
674 complain_overflow_bitfield
, /* complain_on_overflow */
675 0, /* special_function */
677 TRUE
, /* partial_inplace */
678 0xffffffff, /* src_mask */
679 0xffffffff, /* dst_mask */
680 FALSE
), /* pcrel_offset */
682 /* 0x01: 32 bit relocation, but store negative value. */
683 HOWTO (R_NEG
, /* type */
685 -2, /* size (0 = byte, 1 = short, 2 = long) */
687 FALSE
, /* pc_relative */
689 complain_overflow_bitfield
, /* complain_on_overflow */
690 0, /* special_function */
692 TRUE
, /* partial_inplace */
693 0xffffffff, /* src_mask */
694 0xffffffff, /* dst_mask */
695 FALSE
), /* pcrel_offset */
697 /* 0x02: 32 bit PC relative relocation. */
698 HOWTO (R_REL
, /* type */
700 2, /* size (0 = byte, 1 = short, 2 = long) */
702 TRUE
, /* pc_relative */
704 complain_overflow_signed
, /* complain_on_overflow */
705 0, /* special_function */
707 TRUE
, /* partial_inplace */
708 0xffffffff, /* src_mask */
709 0xffffffff, /* dst_mask */
710 FALSE
), /* pcrel_offset */
712 /* 0x03: 16 bit TOC relative relocation. */
713 HOWTO (R_TOC
, /* type */
715 1, /* size (0 = byte, 1 = short, 2 = long) */
717 FALSE
, /* pc_relative */
719 complain_overflow_bitfield
, /* complain_on_overflow */
720 0, /* special_function */
722 TRUE
, /* partial_inplace */
723 0xffff, /* src_mask */
724 0xffff, /* dst_mask */
725 FALSE
), /* pcrel_offset */
727 /* 0x04: I don't really know what this is. */
728 HOWTO (R_RTB
, /* type */
730 2, /* size (0 = byte, 1 = short, 2 = long) */
732 FALSE
, /* pc_relative */
734 complain_overflow_bitfield
, /* complain_on_overflow */
735 0, /* special_function */
737 TRUE
, /* partial_inplace */
738 0xffffffff, /* src_mask */
739 0xffffffff, /* dst_mask */
740 FALSE
), /* pcrel_offset */
742 /* 0x05: External TOC relative symbol. */
743 HOWTO (R_GL
, /* type */
745 1, /* size (0 = byte, 1 = short, 2 = long) */
747 FALSE
, /* pc_relative */
749 complain_overflow_bitfield
, /* complain_on_overflow */
750 0, /* special_function */
752 TRUE
, /* partial_inplace */
753 0xffff, /* src_mask */
754 0xffff, /* dst_mask */
755 FALSE
), /* pcrel_offset */
757 /* 0x06: Local TOC relative symbol. */
758 HOWTO (R_TCL
, /* type */
760 1, /* size (0 = byte, 1 = short, 2 = long) */
762 FALSE
, /* pc_relative */
764 complain_overflow_bitfield
, /* complain_on_overflow */
765 0, /* special_function */
767 TRUE
, /* partial_inplace */
768 0xffff, /* src_mask */
769 0xffff, /* dst_mask */
770 FALSE
), /* pcrel_offset */
774 /* 0x08: Non modifiable absolute branch. */
775 HOWTO (R_BA
, /* type */
777 2, /* size (0 = byte, 1 = short, 2 = long) */
779 FALSE
, /* pc_relative */
781 complain_overflow_bitfield
, /* complain_on_overflow */
782 0, /* special_function */
783 "R_BA_26", /* name */
784 TRUE
, /* partial_inplace */
785 0x03fffffc, /* src_mask */
786 0x03fffffc, /* dst_mask */
787 FALSE
), /* pcrel_offset */
791 /* 0x0a: Non modifiable relative branch. */
792 HOWTO (R_BR
, /* type */
794 2, /* size (0 = byte, 1 = short, 2 = long) */
796 TRUE
, /* pc_relative */
798 complain_overflow_signed
, /* complain_on_overflow */
799 0, /* special_function */
801 TRUE
, /* partial_inplace */
802 0x03fffffc, /* src_mask */
803 0x03fffffc, /* dst_mask */
804 FALSE
), /* pcrel_offset */
808 /* 0x0c: Indirect load. */
809 HOWTO (R_RL
, /* type */
811 1, /* size (0 = byte, 1 = short, 2 = long) */
813 FALSE
, /* pc_relative */
815 complain_overflow_bitfield
, /* complain_on_overflow */
816 0, /* special_function */
818 TRUE
, /* partial_inplace */
819 0xffff, /* src_mask */
820 0xffff, /* dst_mask */
821 FALSE
), /* pcrel_offset */
823 /* 0x0d: Load address. */
824 HOWTO (R_RLA
, /* type */
826 1, /* size (0 = byte, 1 = short, 2 = long) */
828 FALSE
, /* pc_relative */
830 complain_overflow_bitfield
, /* complain_on_overflow */
831 0, /* special_function */
833 TRUE
, /* partial_inplace */
834 0xffff, /* src_mask */
835 0xffff, /* dst_mask */
836 FALSE
), /* pcrel_offset */
840 /* 0x0f: Non-relocating reference. Bitsize is 1 so that r_rsize is 0. */
841 HOWTO (R_REF
, /* type */
843 0, /* size (0 = byte, 1 = short, 2 = long) */
845 FALSE
, /* pc_relative */
847 complain_overflow_dont
, /* complain_on_overflow */
848 0, /* special_function */
850 FALSE
, /* partial_inplace */
853 FALSE
), /* pcrel_offset */
858 /* 0x12: TOC relative indirect load. */
859 HOWTO (R_TRL
, /* type */
861 1, /* size (0 = byte, 1 = short, 2 = long) */
863 FALSE
, /* pc_relative */
865 complain_overflow_bitfield
, /* complain_on_overflow */
866 0, /* special_function */
868 TRUE
, /* partial_inplace */
869 0xffff, /* src_mask */
870 0xffff, /* dst_mask */
871 FALSE
), /* pcrel_offset */
873 /* 0x13: TOC relative load address. */
874 HOWTO (R_TRLA
, /* type */
876 1, /* size (0 = byte, 1 = short, 2 = long) */
878 FALSE
, /* pc_relative */
880 complain_overflow_bitfield
, /* complain_on_overflow */
881 0, /* special_function */
883 TRUE
, /* partial_inplace */
884 0xffff, /* src_mask */
885 0xffff, /* dst_mask */
886 FALSE
), /* pcrel_offset */
888 /* 0x14: Modifiable relative branch. */
889 HOWTO (R_RRTBI
, /* type */
891 2, /* size (0 = byte, 1 = short, 2 = long) */
893 FALSE
, /* pc_relative */
895 complain_overflow_bitfield
, /* complain_on_overflow */
896 0, /* special_function */
897 "R_RRTBI", /* name */
898 TRUE
, /* partial_inplace */
899 0xffffffff, /* src_mask */
900 0xffffffff, /* dst_mask */
901 FALSE
), /* pcrel_offset */
903 /* 0x15: Modifiable absolute branch. */
904 HOWTO (R_RRTBA
, /* type */
906 2, /* size (0 = byte, 1 = short, 2 = long) */
908 FALSE
, /* pc_relative */
910 complain_overflow_bitfield
, /* complain_on_overflow */
911 0, /* special_function */
912 "R_RRTBA", /* name */
913 TRUE
, /* partial_inplace */
914 0xffffffff, /* src_mask */
915 0xffffffff, /* dst_mask */
916 FALSE
), /* pcrel_offset */
918 /* 0x16: Modifiable call absolute indirect. */
919 HOWTO (R_CAI
, /* type */
921 1, /* size (0 = byte, 1 = short, 2 = long) */
923 FALSE
, /* pc_relative */
925 complain_overflow_bitfield
, /* complain_on_overflow */
926 0, /* special_function */
928 TRUE
, /* partial_inplace */
929 0xffff, /* src_mask */
930 0xffff, /* dst_mask */
931 FALSE
), /* pcrel_offset */
933 /* 0x17: Modifiable call relative. */
934 HOWTO (R_CREL
, /* type */
936 1, /* size (0 = byte, 1 = short, 2 = long) */
938 FALSE
, /* pc_relative */
940 complain_overflow_bitfield
, /* complain_on_overflow */
941 0, /* special_function */
943 TRUE
, /* partial_inplace */
944 0xffff, /* src_mask */
945 0xffff, /* dst_mask */
946 FALSE
), /* pcrel_offset */
948 /* 0x18: Modifiable branch absolute. */
949 HOWTO (R_RBA
, /* type */
951 2, /* size (0 = byte, 1 = short, 2 = long) */
953 FALSE
, /* pc_relative */
955 complain_overflow_bitfield
, /* complain_on_overflow */
956 0, /* special_function */
958 TRUE
, /* partial_inplace */
959 0x03fffffc, /* src_mask */
960 0x03fffffc, /* dst_mask */
961 FALSE
), /* pcrel_offset */
963 /* 0x19: Modifiable branch absolute. */
964 HOWTO (R_RBAC
, /* type */
966 2, /* size (0 = byte, 1 = short, 2 = long) */
968 FALSE
, /* pc_relative */
970 complain_overflow_bitfield
, /* complain_on_overflow */
971 0, /* special_function */
973 TRUE
, /* partial_inplace */
974 0xffffffff, /* src_mask */
975 0xffffffff, /* dst_mask */
976 FALSE
), /* pcrel_offset */
978 /* 0x1a: Modifiable branch relative. */
979 HOWTO (R_RBR
, /* type */
981 2, /* size (0 = byte, 1 = short, 2 = long) */
983 FALSE
, /* pc_relative */
985 complain_overflow_signed
, /* complain_on_overflow */
986 0, /* special_function */
987 "R_RBR_26", /* name */
988 TRUE
, /* partial_inplace */
989 0x03fffffc, /* src_mask */
990 0x03fffffc, /* dst_mask */
991 FALSE
), /* pcrel_offset */
993 /* 0x1b: Modifiable branch absolute. */
994 HOWTO (R_RBRC
, /* type */
996 1, /* size (0 = byte, 1 = short, 2 = long) */
998 FALSE
, /* pc_relative */
1000 complain_overflow_bitfield
, /* complain_on_overflow */
1001 0, /* special_function */
1002 "R_RBRC", /* name */
1003 TRUE
, /* partial_inplace */
1004 0xffff, /* src_mask */
1005 0xffff, /* dst_mask */
1006 FALSE
), /* pcrel_offset */
1008 /* 0x1c: 16 bit Non modifiable absolute branch. */
1009 HOWTO (R_BA
, /* type */
1011 1, /* size (0 = byte, 1 = short, 2 = long) */
1013 FALSE
, /* pc_relative */
1015 complain_overflow_bitfield
, /* complain_on_overflow */
1016 0, /* special_function */
1017 "R_BA_16", /* name */
1018 TRUE
, /* partial_inplace */
1019 0xfffc, /* src_mask */
1020 0xfffc, /* dst_mask */
1021 FALSE
), /* pcrel_offset */
1023 /* 0x1d: Modifiable branch relative. */
1024 HOWTO (R_RBR
, /* type */
1026 1, /* size (0 = byte, 1 = short, 2 = long) */
1028 TRUE
, /* pc_relative */
1030 complain_overflow_signed
, /* complain_on_overflow */
1031 0, /* special_function */
1032 "R_RBR_16", /* name */
1033 TRUE
, /* partial_inplace */
1034 0xfffc, /* src_mask */
1035 0xfffc, /* dst_mask */
1036 FALSE
), /* pcrel_offset */
1038 /* 0x1e: Modifiable branch relative. */
1039 HOWTO (R_RBA
, /* type */
1041 1, /* size (0 = byte, 1 = short, 2 = long) */
1043 FALSE
, /* pc_relative */
1045 complain_overflow_signed
, /* complain_on_overflow */
1046 0, /* special_function */
1047 "R_RBA_16", /* name */
1048 TRUE
, /* partial_inplace */
1049 0xffff, /* src_mask */
1050 0xffff, /* dst_mask */
1051 FALSE
), /* pcrel_offset */
1055 xcoff_rtype2howto (arelent
*relent
, struct internal_reloc
*internal
)
1057 if (internal
->r_type
> R_RBRC
)
1060 /* Default howto layout works most of the time */
1061 relent
->howto
= &xcoff_howto_table
[internal
->r_type
];
1063 /* Special case some 16 bit reloc */
1064 if (15 == (internal
->r_size
& 0x1f))
1066 if (R_BA
== internal
->r_type
)
1067 relent
->howto
= &xcoff_howto_table
[0x1c];
1068 else if (R_RBR
== internal
->r_type
)
1069 relent
->howto
= &xcoff_howto_table
[0x1d];
1070 else if (R_RBA
== internal
->r_type
)
1071 relent
->howto
= &xcoff_howto_table
[0x1e];
1074 /* The r_size field of an XCOFF reloc encodes the bitsize of the
1075 relocation, as well as indicating whether it is signed or not.
1076 Doublecheck that the relocation information gathered from the
1077 type matches this information. The bitsize is not significant
1078 for R_REF relocs. */
1079 if (relent
->howto
->dst_mask
!= 0
1080 && (relent
->howto
->bitsize
1081 != ((unsigned int) internal
->r_size
& 0x1f) + 1))
1086 _bfd_xcoff_reloc_type_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1087 bfd_reloc_code_real_type code
)
1091 case BFD_RELOC_PPC_B26
:
1092 return &xcoff_howto_table
[0xa];
1093 case BFD_RELOC_PPC_BA16
:
1094 return &xcoff_howto_table
[0x1c];
1095 case BFD_RELOC_PPC_BA26
:
1096 return &xcoff_howto_table
[8];
1097 case BFD_RELOC_PPC_TOC16
:
1098 return &xcoff_howto_table
[3];
1100 /* Note that this relocation is only internally used by gas. */
1101 return &xcoff_howto_table
[0xc];
1102 case BFD_RELOC_PPC_B16
:
1103 return &xcoff_howto_table
[0x1d];
1105 case BFD_RELOC_CTOR
:
1106 return &xcoff_howto_table
[0];
1107 case BFD_RELOC_NONE
:
1108 return &xcoff_howto_table
[0xf];
1114 static reloc_howto_type
*
1115 _bfd_xcoff_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1121 i
< sizeof (xcoff_howto_table
) / sizeof (xcoff_howto_table
[0]);
1123 if (xcoff_howto_table
[i
].name
!= NULL
1124 && strcasecmp (xcoff_howto_table
[i
].name
, r_name
) == 0)
1125 return &xcoff_howto_table
[i
];
1130 /* XCOFF archive support. The original version of this code was by
1131 Damon A. Permezel. It was enhanced to permit cross support, and
1132 writing archive files, by Ian Lance Taylor, Cygnus Support.
1134 XCOFF uses its own archive format. Everything is hooked together
1135 with file offset links, so it is possible to rapidly update an
1136 archive in place. Of course, we don't do that. An XCOFF archive
1137 has a real file header, not just an ARMAG string. The structure of
1138 the file header and of each archive header appear below.
1140 An XCOFF archive also has a member table, which is a list of
1141 elements in the archive (you can get that by looking through the
1142 linked list, but you have to read a lot more of the file). The
1143 member table has a normal archive header with an empty name. It is
1144 normally (and perhaps must be) the second to last entry in the
1145 archive. The member table data is almost printable ASCII. It
1146 starts with a 12 character decimal string which is the number of
1147 entries in the table. For each entry it has a 12 character decimal
1148 string which is the offset in the archive of that member. These
1149 entries are followed by a series of null terminated strings which
1150 are the member names for each entry.
1152 Finally, an XCOFF archive has a global symbol table, which is what
1153 we call the armap. The global symbol table has a normal archive
1154 header with an empty name. It is normally (and perhaps must be)
1155 the last entry in the archive. The contents start with a four byte
1156 binary number which is the number of entries. This is followed by
1157 a that many four byte binary numbers; each is the file offset of an
1158 entry in the archive. These numbers are followed by a series of
1159 null terminated strings, which are symbol names.
1161 AIX 4.3 introduced a new archive format which can handle larger
1162 files and also 32- and 64-bit objects in the same archive. The
1163 things said above remain true except that there is now more than
1164 one global symbol table. The one is used to index 32-bit objects,
1165 the other for 64-bit objects.
1167 The new archives (recognizable by the new ARMAG string) has larger
1168 field lengths so that we cannot really share any code. Also we have
1169 to take care that we are not generating the new form of archives
1170 on AIX 4.2 or earlier systems. */
1172 /* PR 21786: The PE/COFF standard does not require NUL termination for any of
1173 the ASCII fields in the archive headers. So in order to be able to extract
1174 numerical values we provide our own versions of strtol and strtoll which
1175 take a maximum length as an additional parameter. Also - just to save space,
1176 we omit the endptr return parameter, since we know that it is never used. */
1179 _bfd_strntol (const char * nptr
, int base
, unsigned int maxlen
)
1181 char buf
[24]; /* Should be enough. */
1183 BFD_ASSERT (maxlen
< (sizeof (buf
) - 1));
1185 memcpy (buf
, nptr
, maxlen
);
1187 return strtol (buf
, NULL
, base
);
1191 _bfd_strntoll (const char * nptr
, int base
, unsigned int maxlen
)
1193 char buf
[32]; /* Should be enough. */
1195 BFD_ASSERT (maxlen
< (sizeof (buf
) - 1));
1197 memcpy (buf
, nptr
, maxlen
);
1199 return strtoll (buf
, NULL
, base
);
1202 /* Macro to read an ASCII value stored in an archive header field. */
1203 #define GET_VALUE_IN_FIELD(VAR, FIELD, BASE) \
1206 (VAR) = (sizeof (VAR) > sizeof (long) \
1207 ? _bfd_strntoll (FIELD, BASE, sizeof FIELD) \
1208 : _bfd_strntol (FIELD, BASE, sizeof FIELD)); \
1212 #define EQ_VALUE_IN_FIELD(VAR, FIELD, BASE) \
1213 (sizeof (VAR) > sizeof (long) \
1214 ? (VAR) == _bfd_strntoll (FIELD, BASE, sizeof FIELD) \
1215 : (VAR) == _bfd_strntol (FIELD, BASE, sizeof FIELD))
1217 /* Read in the armap of an XCOFF archive. */
1220 _bfd_xcoff_slurp_armap (bfd
*abfd
)
1225 bfd_byte
*contents
, *cend
;
1230 if (xcoff_ardata (abfd
) == NULL
)
1232 abfd
->has_armap
= FALSE
;
1236 if (! xcoff_big_format_p (abfd
))
1238 /* This is for the old format. */
1239 struct xcoff_ar_hdr hdr
;
1241 GET_VALUE_IN_FIELD (off
, xcoff_ardata (abfd
)->symoff
, 10);
1244 abfd
->has_armap
= FALSE
;
1248 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1251 /* The symbol table starts with a normal archive header. */
1252 if (bfd_bread (&hdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
1256 /* Skip the name (normally empty). */
1257 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1258 off
= ((namlen
+ 1) & ~ (size_t) 1) + SXCOFFARFMAG
;
1259 if (bfd_seek (abfd
, off
, SEEK_CUR
) != 0)
1262 GET_VALUE_IN_FIELD (sz
, hdr
.size
, 10);
1265 bfd_set_error (bfd_error_bad_value
);
1269 /* Read in the entire symbol table. */
1270 contents
= (bfd_byte
*) _bfd_alloc_and_read (abfd
, sz
+ 1, sz
);
1271 if (contents
== NULL
)
1274 /* Ensure strings are NULL terminated so we don't wander off the
1275 end of the buffer. */
1278 /* The symbol table starts with a four byte count. */
1279 c
= H_GET_32 (abfd
, contents
);
1283 bfd_set_error (bfd_error_bad_value
);
1287 bfd_ardata (abfd
)->symdefs
=
1288 ((carsym
*) bfd_alloc (abfd
, c
* sizeof (carsym
)));
1289 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1292 /* After the count comes a list of four byte file offsets. */
1293 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 4;
1295 ++i
, ++arsym
, p
+= 4)
1296 arsym
->file_offset
= H_GET_32 (abfd
, p
);
1300 /* This is for the new format. */
1301 struct xcoff_ar_hdr_big hdr
;
1303 GET_VALUE_IN_FIELD (off
, xcoff_ardata_big (abfd
)->symoff
, 10);
1306 abfd
->has_armap
= FALSE
;
1310 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1313 /* The symbol table starts with a normal archive header. */
1314 if (bfd_bread (&hdr
, (bfd_size_type
) SIZEOF_AR_HDR_BIG
, abfd
)
1315 != SIZEOF_AR_HDR_BIG
)
1318 /* Skip the name (normally empty). */
1319 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1320 off
= ((namlen
+ 1) & ~ (size_t) 1) + SXCOFFARFMAG
;
1321 if (bfd_seek (abfd
, off
, SEEK_CUR
) != 0)
1324 GET_VALUE_IN_FIELD (sz
, hdr
.size
, 10);
1327 bfd_set_error (bfd_error_bad_value
);
1331 /* Read in the entire symbol table. */
1332 contents
= (bfd_byte
*) _bfd_alloc_and_read (abfd
, sz
+ 1, sz
);
1333 if (contents
== NULL
)
1336 /* Ensure strings are NULL terminated so we don't wander off the
1337 end of the buffer. */
1340 /* The symbol table starts with an eight byte count. */
1341 c
= H_GET_64 (abfd
, contents
);
1345 bfd_set_error (bfd_error_bad_value
);
1349 bfd_ardata (abfd
)->symdefs
=
1350 ((carsym
*) bfd_alloc (abfd
, c
* sizeof (carsym
)));
1351 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1354 /* After the count comes a list of eight byte file offsets. */
1355 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 8;
1357 ++i
, ++arsym
, p
+= 8)
1358 arsym
->file_offset
= H_GET_64 (abfd
, p
);
1361 /* After the file offsets come null terminated symbol names. */
1362 cend
= contents
+ sz
;
1363 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
;
1365 ++i
, ++arsym
, p
+= strlen ((char *) p
) + 1)
1369 bfd_set_error (bfd_error_bad_value
);
1372 arsym
->name
= (char *) p
;
1375 bfd_ardata (abfd
)->symdef_count
= c
;
1376 abfd
->has_armap
= TRUE
;
1381 /* See if this is an XCOFF archive. */
1384 _bfd_xcoff_archive_p (bfd
*abfd
)
1386 struct artdata
*tdata_hold
;
1387 char magic
[SXCOFFARMAG
];
1388 size_t amt
= SXCOFFARMAG
;
1390 if (bfd_bread (magic
, amt
, abfd
) != amt
)
1392 if (bfd_get_error () != bfd_error_system_call
)
1393 bfd_set_error (bfd_error_wrong_format
);
1397 if (strncmp (magic
, XCOFFARMAG
, SXCOFFARMAG
) != 0
1398 && strncmp (magic
, XCOFFARMAGBIG
, SXCOFFARMAG
) != 0)
1400 bfd_set_error (bfd_error_wrong_format
);
1404 tdata_hold
= bfd_ardata (abfd
);
1406 amt
= sizeof (struct artdata
);
1407 bfd_ardata (abfd
) = (struct artdata
*) bfd_zalloc (abfd
, amt
);
1408 if (bfd_ardata (abfd
) == (struct artdata
*) NULL
)
1409 goto error_ret_restore
;
1411 /* Cleared by bfd_zalloc above.
1412 bfd_ardata (abfd)->cache = NULL;
1413 bfd_ardata (abfd)->archive_head = NULL;
1414 bfd_ardata (abfd)->symdefs = NULL;
1415 bfd_ardata (abfd)->extended_names = NULL;
1416 bfd_ardata (abfd)->extended_names_size = 0; */
1418 /* Now handle the two formats. */
1419 if (magic
[1] != 'b')
1421 /* This is the old format. */
1422 struct xcoff_ar_file_hdr hdr
;
1424 /* Copy over the magic string. */
1425 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1427 /* Now read the rest of the file header. */
1428 amt
= SIZEOF_AR_FILE_HDR
- SXCOFFARMAG
;
1429 if (bfd_bread (&hdr
.memoff
, amt
, abfd
) != amt
)
1431 if (bfd_get_error () != bfd_error_system_call
)
1432 bfd_set_error (bfd_error_wrong_format
);
1436 GET_VALUE_IN_FIELD (bfd_ardata (abfd
)->first_file_filepos
,
1437 hdr
.firstmemoff
, 10);
1439 amt
= SIZEOF_AR_FILE_HDR
;
1440 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, amt
);
1441 if (bfd_ardata (abfd
)->tdata
== NULL
)
1444 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR
);
1448 /* This is the new format. */
1449 struct xcoff_ar_file_hdr_big hdr
;
1451 /* Copy over the magic string. */
1452 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1454 /* Now read the rest of the file header. */
1455 amt
= SIZEOF_AR_FILE_HDR_BIG
- SXCOFFARMAG
;
1456 if (bfd_bread (&hdr
.memoff
, amt
, abfd
) != amt
)
1458 if (bfd_get_error () != bfd_error_system_call
)
1459 bfd_set_error (bfd_error_wrong_format
);
1463 bfd_ardata (abfd
)->first_file_filepos
= bfd_scan_vma (hdr
.firstmemoff
,
1467 amt
= SIZEOF_AR_FILE_HDR_BIG
;
1468 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, amt
);
1469 if (bfd_ardata (abfd
)->tdata
== NULL
)
1472 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR_BIG
);
1475 if (! _bfd_xcoff_slurp_armap (abfd
))
1478 bfd_release (abfd
, bfd_ardata (abfd
));
1480 bfd_ardata (abfd
) = tdata_hold
;
1484 return _bfd_no_cleanup
;
1487 /* Read the archive header in an XCOFF archive. */
1490 _bfd_xcoff_read_ar_hdr (bfd
*abfd
)
1492 bfd_size_type namlen
;
1493 struct areltdata
*ret
;
1496 if (! xcoff_big_format_p (abfd
))
1498 struct xcoff_ar_hdr hdr
;
1499 struct xcoff_ar_hdr
*hdrp
;
1501 if (bfd_bread (&hdr
, SIZEOF_AR_HDR
, abfd
) != SIZEOF_AR_HDR
)
1504 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1505 amt
= sizeof (struct areltdata
) + SIZEOF_AR_HDR
+ namlen
+ 1;
1506 ret
= (struct areltdata
*) bfd_malloc (amt
);
1510 hdrp
= (struct xcoff_ar_hdr
*) (ret
+ 1);
1511 memcpy (hdrp
, &hdr
, SIZEOF_AR_HDR
);
1512 if (bfd_bread ((char *) hdrp
+ SIZEOF_AR_HDR
, namlen
, abfd
) != namlen
)
1517 ((char *) hdrp
)[SIZEOF_AR_HDR
+ namlen
] = '\0';
1519 ret
->arch_header
= (char *) hdrp
;
1520 GET_VALUE_IN_FIELD (ret
->parsed_size
, hdr
.size
, 10);
1521 ret
->filename
= (char *) hdrp
+ SIZEOF_AR_HDR
;
1525 struct xcoff_ar_hdr_big hdr
;
1526 struct xcoff_ar_hdr_big
*hdrp
;
1528 if (bfd_bread (&hdr
, SIZEOF_AR_HDR_BIG
, abfd
) != SIZEOF_AR_HDR_BIG
)
1531 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1532 amt
= sizeof (struct areltdata
) + SIZEOF_AR_HDR_BIG
+ namlen
+ 1;
1533 ret
= (struct areltdata
*) bfd_malloc (amt
);
1537 hdrp
= (struct xcoff_ar_hdr_big
*) (ret
+ 1);
1538 memcpy (hdrp
, &hdr
, SIZEOF_AR_HDR_BIG
);
1539 if (bfd_bread ((char *) hdrp
+ SIZEOF_AR_HDR_BIG
, namlen
, abfd
) != namlen
)
1544 ((char *) hdrp
)[SIZEOF_AR_HDR_BIG
+ namlen
] = '\0';
1546 ret
->arch_header
= (char *) hdrp
;
1547 GET_VALUE_IN_FIELD (ret
->parsed_size
, hdr
.size
, 10);
1548 ret
->filename
= (char *) hdrp
+ SIZEOF_AR_HDR_BIG
;
1551 /* Skip over the XCOFFARFMAG at the end of the file name. */
1552 if (bfd_seek (abfd
, (file_ptr
) ((namlen
& 1) + SXCOFFARFMAG
), SEEK_CUR
) != 0)
1558 /* Open the next element in an XCOFF archive. */
1561 _bfd_xcoff_openr_next_archived_file (bfd
*archive
, bfd
*last_file
)
1565 if (xcoff_ardata (archive
) == NULL
)
1567 bfd_set_error (bfd_error_invalid_operation
);
1571 if (! xcoff_big_format_p (archive
))
1573 if (last_file
== NULL
)
1574 filestart
= bfd_ardata (archive
)->first_file_filepos
;
1576 GET_VALUE_IN_FIELD (filestart
, arch_xhdr (last_file
)->nextoff
, 10);
1579 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata (archive
)->memoff
, 10)
1580 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata (archive
)->symoff
, 10))
1582 bfd_set_error (bfd_error_no_more_archived_files
);
1588 if (last_file
== NULL
)
1589 filestart
= bfd_ardata (archive
)->first_file_filepos
;
1591 GET_VALUE_IN_FIELD (filestart
, arch_xhdr_big (last_file
)->nextoff
, 10);
1594 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata_big (archive
)->memoff
, 10)
1595 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata_big (archive
)->symoff
, 10))
1597 bfd_set_error (bfd_error_no_more_archived_files
);
1602 return _bfd_get_elt_at_filepos (archive
, filestart
);
1605 /* Stat an element in an XCOFF archive. */
1608 _bfd_xcoff_stat_arch_elt (bfd
*abfd
, struct stat
*s
)
1610 if (abfd
->arelt_data
== NULL
)
1612 bfd_set_error (bfd_error_invalid_operation
);
1616 if (! xcoff_big_format_p (abfd
->my_archive
))
1618 struct xcoff_ar_hdr
*hdrp
= arch_xhdr (abfd
);
1620 GET_VALUE_IN_FIELD (s
->st_mtime
, hdrp
->date
, 10);
1621 GET_VALUE_IN_FIELD (s
->st_uid
, hdrp
->uid
, 10);
1622 GET_VALUE_IN_FIELD (s
->st_gid
, hdrp
->gid
, 10);
1623 GET_VALUE_IN_FIELD (s
->st_mode
, hdrp
->mode
, 8);
1624 s
->st_size
= arch_eltdata (abfd
)->parsed_size
;
1628 struct xcoff_ar_hdr_big
*hdrp
= arch_xhdr_big (abfd
);
1630 GET_VALUE_IN_FIELD (s
->st_mtime
, hdrp
->date
, 10);
1631 GET_VALUE_IN_FIELD (s
->st_uid
, hdrp
->uid
, 10);
1632 GET_VALUE_IN_FIELD (s
->st_gid
, hdrp
->gid
, 10);
1633 GET_VALUE_IN_FIELD (s
->st_mode
, hdrp
->mode
, 8);
1634 s
->st_size
= arch_eltdata (abfd
)->parsed_size
;
1640 /* Normalize a file name for inclusion in an archive. */
1643 normalize_filename (bfd
*abfd
)
1646 const char *filename
;
1648 file
= bfd_get_filename (abfd
);
1649 filename
= strrchr (file
, '/');
1650 if (filename
!= NULL
)
1657 /* Write out an XCOFF armap. */
1660 xcoff_write_armap_old (bfd
*abfd
, unsigned int elength ATTRIBUTE_UNUSED
,
1661 struct orl
*map
, unsigned int orl_count
, int stridx
)
1663 struct archive_iterator iterator
;
1664 struct xcoff_ar_hdr hdr
;
1666 unsigned char buf
[4];
1669 memset (&hdr
, 0, sizeof hdr
);
1670 sprintf (hdr
.size
, "%ld", (long) (4 + orl_count
* 4 + stridx
));
1671 sprintf (hdr
.nextoff
, "%d", 0);
1672 memcpy (hdr
.prevoff
, xcoff_ardata (abfd
)->memoff
, XCOFFARMAG_ELEMENT_SIZE
);
1673 sprintf (hdr
.date
, "%d", 0);
1674 sprintf (hdr
.uid
, "%d", 0);
1675 sprintf (hdr
.gid
, "%d", 0);
1676 sprintf (hdr
.mode
, "%d", 0);
1677 sprintf (hdr
.namlen
, "%d", 0);
1679 /* We need spaces, not null bytes, in the header. */
1680 for (p
= (char *) &hdr
; p
< (char *) &hdr
+ SIZEOF_AR_HDR
; p
++)
1684 if (bfd_bwrite (&hdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
1686 || (bfd_bwrite (XCOFFARFMAG
, (bfd_size_type
) SXCOFFARFMAG
, abfd
)
1690 H_PUT_32 (abfd
, orl_count
, buf
);
1691 if (bfd_bwrite (buf
, (bfd_size_type
) 4, abfd
) != 4)
1695 archive_iterator_begin (&iterator
, abfd
);
1696 while (i
< orl_count
&& archive_iterator_next (&iterator
))
1697 while (map
[i
].u
.abfd
== iterator
.current
.member
)
1699 H_PUT_32 (abfd
, iterator
.current
.offset
, buf
);
1700 if (bfd_bwrite (buf
, (bfd_size_type
) 4, abfd
) != 4)
1705 for (i
= 0; i
< orl_count
; i
++)
1710 name
= *map
[i
].name
;
1711 namlen
= strlen (name
);
1712 if (bfd_bwrite (name
, (bfd_size_type
) (namlen
+ 1), abfd
) != namlen
+ 1)
1716 if ((stridx
& 1) != 0)
1721 if (bfd_bwrite (&b
, (bfd_size_type
) 1, abfd
) != 1)
1728 static char buff20
[XCOFFARMAGBIG_ELEMENT_SIZE
+ 1];
1729 #if BFD_HOST_64BIT_LONG
1730 #define FMT20 "%-20ld"
1731 #elif defined (__MSVCRT__)
1732 #define FMT20 "%-20I64d"
1734 #define FMT20 "%-20lld"
1736 #define FMT12 "%-12d"
1737 #define FMT12_OCTAL "%-12o"
1739 #define PRINT20(d, v) \
1740 sprintf (buff20, FMT20, (bfd_uint64_t)(v)), \
1741 memcpy ((void *) (d), buff20, 20)
1743 #define PRINT12(d, v) \
1744 sprintf (buff20, FMT12, (int)(v)), \
1745 memcpy ((void *) (d), buff20, 12)
1747 #define PRINT12_OCTAL(d, v) \
1748 sprintf (buff20, FMT12_OCTAL, (unsigned int)(v)), \
1749 memcpy ((void *) (d), buff20, 12)
1751 #define PRINT4(d, v) \
1752 sprintf (buff20, FMT4, (int)(v)), \
1753 memcpy ((void *) (d), buff20, 4)
1755 #define READ20(d, v) \
1757 memcpy (buff20, (d), 20), \
1758 (v) = bfd_scan_vma (buff20, (const char **) NULL, 10)
1761 do_pad (bfd
*abfd
, unsigned int number
)
1765 /* Limit pad to <= 4096. */
1770 if (bfd_bwrite (&b
, (bfd_size_type
) 1, abfd
) != 1)
1777 do_copy (bfd
*out_bfd
, bfd
*in_bfd
)
1779 bfd_size_type remaining
;
1780 bfd_byte buffer
[DEFAULT_BUFFERSIZE
];
1782 if (bfd_seek (in_bfd
, (file_ptr
) 0, SEEK_SET
) != 0)
1785 remaining
= arelt_size (in_bfd
);
1787 while (remaining
>= DEFAULT_BUFFERSIZE
)
1789 if (bfd_bread (buffer
, DEFAULT_BUFFERSIZE
, in_bfd
) != DEFAULT_BUFFERSIZE
1790 || bfd_bwrite (buffer
, DEFAULT_BUFFERSIZE
, out_bfd
) != DEFAULT_BUFFERSIZE
)
1793 remaining
-= DEFAULT_BUFFERSIZE
;
1798 if (bfd_bread (buffer
, remaining
, in_bfd
) != remaining
1799 || bfd_bwrite (buffer
, remaining
, out_bfd
) != remaining
)
1807 xcoff_write_armap_big (bfd
*abfd
, unsigned int elength ATTRIBUTE_UNUSED
,
1808 struct orl
*map
, unsigned int orl_count
, int stridx
)
1810 struct archive_iterator iterator
;
1811 struct xcoff_ar_file_hdr_big
*fhdr
;
1812 bfd_vma i
, sym_32
, sym_64
, str_32
, str_64
;
1813 const bfd_arch_info_type
*arch_info
;
1815 size_t string_length
;
1816 file_ptr nextoff
, prevoff
;
1818 /* First, we look through the symbols and work out which are
1819 from 32-bit objects and which from 64-bit ones. */
1820 sym_32
= sym_64
= str_32
= str_64
= 0;
1823 for (current_bfd
= abfd
->archive_head
;
1824 current_bfd
!= NULL
&& i
< orl_count
;
1825 current_bfd
= current_bfd
->archive_next
)
1827 arch_info
= bfd_get_arch_info (current_bfd
);
1828 while (map
[i
].u
.abfd
== current_bfd
)
1830 string_length
= strlen (*map
[i
].name
) + 1;
1831 if (arch_info
->bits_per_address
== 64)
1834 str_64
+= string_length
;
1839 str_32
+= string_length
;
1845 /* A quick sanity check... */
1846 BFD_ASSERT (sym_64
+ sym_32
== orl_count
);
1847 /* Explicit cast to int for compiler. */
1848 BFD_ASSERT ((int)(str_64
+ str_32
) == stridx
);
1850 fhdr
= xcoff_ardata_big (abfd
);
1852 /* xcoff_write_archive_contents_big passes nextoff in symoff. */
1853 READ20 (fhdr
->memoff
, prevoff
);
1854 READ20 (fhdr
->symoff
, nextoff
);
1856 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
1858 /* Write out the symbol table.
1861 standard big archive header
1862 0x0000 ar_size [0x14]
1863 0x0014 ar_nxtmem [0x14]
1864 0x0028 ar_prvmem [0x14]
1865 0x003C ar_date [0x0C]
1866 0x0048 ar_uid [0x0C]
1867 0x0054 ar_gid [0x0C]
1868 0x0060 ar_mod [0x0C]
1869 0x006C ar_namelen[0x04]
1870 0x0070 ar_fmag [SXCOFFARFMAG]
1873 0x0072 num_syms [0x08], binary
1874 0x0078 offsets [0x08 * num_syms], binary
1875 0x0086 + 0x08 * num_syms names [??]
1876 ?? pad to even bytes.
1881 struct xcoff_ar_hdr_big
*hdr
;
1885 bfd_vma symbol_table_size
=
1890 + str_32
+ (str_32
& 1);
1892 symbol_table
= bfd_zmalloc (symbol_table_size
);
1893 if (symbol_table
== NULL
)
1896 hdr
= (struct xcoff_ar_hdr_big
*) symbol_table
;
1898 PRINT20 (hdr
->size
, 8 + 8 * sym_32
+ str_32
+ (str_32
& 1));
1901 PRINT20 (hdr
->nextoff
, nextoff
+ symbol_table_size
);
1903 PRINT20 (hdr
->nextoff
, 0);
1905 PRINT20 (hdr
->prevoff
, prevoff
);
1906 PRINT12 (hdr
->date
, 0);
1907 PRINT12 (hdr
->uid
, 0);
1908 PRINT12 (hdr
->gid
, 0);
1909 PRINT12 (hdr
->mode
, 0);
1910 PRINT4 (hdr
->namlen
, 0) ;
1912 st
= symbol_table
+ SIZEOF_AR_HDR_BIG
;
1913 memcpy (st
, XCOFFARFMAG
, SXCOFFARFMAG
);
1916 bfd_h_put_64 (abfd
, sym_32
, st
);
1919 /* loop over the 32 bit offsets */
1921 archive_iterator_begin (&iterator
, abfd
);
1922 while (i
< orl_count
&& archive_iterator_next (&iterator
))
1924 arch_info
= bfd_get_arch_info (iterator
.current
.member
);
1925 while (map
[i
].u
.abfd
== iterator
.current
.member
)
1927 if (arch_info
->bits_per_address
== 32)
1929 bfd_h_put_64 (abfd
, iterator
.current
.offset
, st
);
1936 /* loop over the 32 bit symbol names */
1938 for (current_bfd
= abfd
->archive_head
;
1939 current_bfd
!= NULL
&& i
< orl_count
;
1940 current_bfd
= current_bfd
->archive_next
)
1942 arch_info
= bfd_get_arch_info (current_bfd
);
1943 while (map
[i
].u
.abfd
== current_bfd
)
1945 if (arch_info
->bits_per_address
== 32)
1947 string_length
= sprintf (st
, "%s", *map
[i
].name
);
1948 st
+= string_length
+ 1;
1954 bfd_bwrite (symbol_table
, symbol_table_size
, abfd
);
1956 free (symbol_table
);
1959 nextoff
= nextoff
+ symbol_table_size
;
1962 PRINT20 (fhdr
->symoff
, 0);
1966 struct xcoff_ar_hdr_big
*hdr
;
1970 bfd_vma symbol_table_size
=
1975 + str_64
+ (str_64
& 1);
1977 symbol_table
= bfd_zmalloc (symbol_table_size
);
1978 if (symbol_table
== NULL
)
1981 hdr
= (struct xcoff_ar_hdr_big
*) symbol_table
;
1983 PRINT20 (hdr
->size
, 8 + 8 * sym_64
+ str_64
+ (str_64
& 1));
1984 PRINT20 (hdr
->nextoff
, 0);
1985 PRINT20 (hdr
->prevoff
, prevoff
);
1986 PRINT12 (hdr
->date
, 0);
1987 PRINT12 (hdr
->uid
, 0);
1988 PRINT12 (hdr
->gid
, 0);
1989 PRINT12 (hdr
->mode
, 0);
1990 PRINT4 (hdr
->namlen
, 0);
1992 st
= symbol_table
+ SIZEOF_AR_HDR_BIG
;
1993 memcpy (st
, XCOFFARFMAG
, SXCOFFARFMAG
);
1996 bfd_h_put_64 (abfd
, sym_64
, st
);
1999 /* loop over the 64 bit offsets */
2001 archive_iterator_begin (&iterator
, abfd
);
2002 while (i
< orl_count
&& archive_iterator_next (&iterator
))
2004 arch_info
= bfd_get_arch_info (iterator
.current
.member
);
2005 while (map
[i
].u
.abfd
== iterator
.current
.member
)
2007 if (arch_info
->bits_per_address
== 64)
2009 bfd_h_put_64 (abfd
, iterator
.current
.offset
, st
);
2016 /* loop over the 64 bit symbol names */
2018 for (current_bfd
= abfd
->archive_head
;
2019 current_bfd
!= NULL
&& i
< orl_count
;
2020 current_bfd
= current_bfd
->archive_next
)
2022 arch_info
= bfd_get_arch_info (current_bfd
);
2023 while (map
[i
].u
.abfd
== current_bfd
)
2025 if (arch_info
->bits_per_address
== 64)
2027 string_length
= sprintf (st
, "%s", *map
[i
].name
);
2028 st
+= string_length
+ 1;
2034 bfd_bwrite (symbol_table
, symbol_table_size
, abfd
);
2036 free (symbol_table
);
2038 PRINT20 (fhdr
->symoff64
, nextoff
);
2041 PRINT20 (fhdr
->symoff64
, 0);
2047 _bfd_xcoff_write_armap (bfd
*abfd
, unsigned int elength ATTRIBUTE_UNUSED
,
2048 struct orl
*map
, unsigned int orl_count
, int stridx
)
2050 if (! xcoff_big_format_p (abfd
))
2051 return xcoff_write_armap_old (abfd
, elength
, map
, orl_count
, stridx
);
2053 return xcoff_write_armap_big (abfd
, elength
, map
, orl_count
, stridx
);
2056 /* Write out an XCOFF archive. We always write an entire archive,
2057 rather than fussing with the freelist and so forth. */
2060 xcoff_write_archive_contents_old (bfd
*abfd
)
2062 struct archive_iterator iterator
;
2063 struct xcoff_ar_file_hdr fhdr
;
2064 bfd_size_type count
;
2065 bfd_size_type total_namlen
;
2067 bfd_boolean makemap
;
2068 bfd_boolean hasobjects
;
2069 file_ptr prevoff
, nextoff
;
2072 struct xcoff_ar_hdr ahdr
;
2075 char decbuf
[XCOFFARMAG_ELEMENT_SIZE
+ 1];
2077 memset (&fhdr
, 0, sizeof fhdr
);
2078 (void) memcpy (fhdr
.magic
, XCOFFARMAG
, SXCOFFARMAG
);
2079 sprintf (fhdr
.firstmemoff
, "%d", SIZEOF_AR_FILE_HDR
);
2080 sprintf (fhdr
.freeoff
, "%d", 0);
2084 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->archive_next
)
2087 total_namlen
+= strlen (normalize_filename (sub
)) + 1;
2088 if (sub
->arelt_data
== NULL
)
2090 sub
->arelt_data
= bfd_zmalloc (sizeof (struct areltdata
));
2091 if (sub
->arelt_data
== NULL
)
2094 if (arch_xhdr (sub
) == NULL
)
2096 struct xcoff_ar_hdr
*ahdrp
;
2099 if ((sub
->flags
& BFD_IN_MEMORY
) != 0)
2101 /* Assume we just "made" the member, and fake it. */
2102 struct bfd_in_memory
*bim
2103 = (struct bfd_in_memory
*) sub
->iostream
;
2105 s
.st_uid
= getuid ();
2106 s
.st_gid
= getgid ();
2108 s
.st_size
= bim
->size
;
2110 else if (stat (bfd_get_filename (sub
), &s
) != 0)
2112 bfd_set_input_error (sub
, bfd_error_system_call
);
2116 if ((abfd
->flags
& BFD_DETERMINISTIC_OUTPUT
) != 0)
2124 ahdrp
= bfd_zalloc (sub
, sizeof (*ahdrp
));
2128 sprintf (ahdrp
->size
, "%ld", (long) s
.st_size
);
2129 sprintf (ahdrp
->date
, "%ld", (long) s
.st_mtime
);
2130 sprintf (ahdrp
->uid
, "%ld", (long) s
.st_uid
);
2131 sprintf (ahdrp
->gid
, "%ld", (long) s
.st_gid
);
2132 sprintf (ahdrp
->mode
, "%o", (unsigned int) s
.st_mode
);
2134 arch_eltdata (sub
)->arch_header
= (char *) ahdrp
;
2135 arch_eltdata (sub
)->parsed_size
= s
.st_size
;
2138 offsets
= (file_ptr
*) bfd_alloc (abfd
, count
* sizeof (file_ptr
));
2139 if (offsets
== NULL
)
2142 if (bfd_seek (abfd
, (file_ptr
) SIZEOF_AR_FILE_HDR
, SEEK_SET
) != 0)
2145 makemap
= bfd_has_map (abfd
);
2148 for (archive_iterator_begin (&iterator
, abfd
), i
= 0;
2149 archive_iterator_next (&iterator
);
2152 bfd_size_type namlen
;
2153 struct xcoff_ar_hdr
*ahdrp
;
2155 if (makemap
&& ! hasobjects
)
2157 if (bfd_check_format (iterator
.current
.member
, bfd_object
))
2161 ahdrp
= arch_xhdr (iterator
.current
.member
);
2162 sprintf (ahdrp
->prevoff
, "%ld", (long) prevoff
);
2163 sprintf (ahdrp
->namlen
, "%ld", (long) iterator
.current
.namlen
);
2164 sprintf (ahdrp
->nextoff
, "%ld", (long) iterator
.next
.offset
);
2166 /* We need spaces, not null bytes, in the header. */
2167 for (p
= (char *) ahdrp
; p
< (char *) ahdrp
+ SIZEOF_AR_HDR
; p
++)
2171 if (!do_pad (abfd
, iterator
.current
.leading_padding
))
2174 BFD_ASSERT (iterator
.current
.offset
== bfd_tell (abfd
));
2175 namlen
= iterator
.current
.padded_namlen
;
2176 if (bfd_bwrite (ahdrp
, SIZEOF_AR_HDR
, abfd
) != SIZEOF_AR_HDR
2177 || bfd_bwrite (iterator
.current
.name
, namlen
, abfd
) != namlen
2178 || bfd_bwrite (XCOFFARFMAG
, SXCOFFARFMAG
, abfd
) != SXCOFFARFMAG
2179 || bfd_seek (iterator
.current
.member
, 0, SEEK_SET
) != 0
2180 || !do_copy (abfd
, iterator
.current
.member
)
2181 || !do_pad (abfd
, iterator
.current
.trailing_padding
))
2184 offsets
[i
] = iterator
.current
.offset
;
2185 prevoff
= iterator
.current
.offset
;
2188 sprintf (fhdr
.lastmemoff
, "%ld", (long) prevoff
);
2190 /* Write out the member table. */
2192 nextoff
= iterator
.next
.offset
;
2193 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2194 sprintf (fhdr
.memoff
, "%ld", (long) nextoff
);
2196 memset (&ahdr
, 0, sizeof ahdr
);
2197 sprintf (ahdr
.size
, "%ld", (long) (XCOFFARMAG_ELEMENT_SIZE
2198 + count
* XCOFFARMAG_ELEMENT_SIZE
2200 sprintf (ahdr
.prevoff
, "%ld", (long) prevoff
);
2201 sprintf (ahdr
.date
, "%d", 0);
2202 sprintf (ahdr
.uid
, "%d", 0);
2203 sprintf (ahdr
.gid
, "%d", 0);
2204 sprintf (ahdr
.mode
, "%d", 0);
2205 sprintf (ahdr
.namlen
, "%d", 0);
2207 size
= (SIZEOF_AR_HDR
2208 + XCOFFARMAG_ELEMENT_SIZE
2209 + count
* XCOFFARMAG_ELEMENT_SIZE
2214 nextoff
+= size
+ (size
& 1);
2216 if (makemap
&& hasobjects
)
2217 sprintf (ahdr
.nextoff
, "%ld", (long) nextoff
);
2219 sprintf (ahdr
.nextoff
, "%d", 0);
2221 /* We need spaces, not null bytes, in the header. */
2222 for (p
= (char *) &ahdr
; p
< (char *) &ahdr
+ SIZEOF_AR_HDR
; p
++)
2226 if ((bfd_bwrite (&ahdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
2228 || (bfd_bwrite (XCOFFARFMAG
, (bfd_size_type
) SXCOFFARFMAG
, abfd
)
2232 sprintf (decbuf
, "%-12ld", (long) count
);
2233 if (bfd_bwrite (decbuf
, (bfd_size_type
) XCOFFARMAG_ELEMENT_SIZE
, abfd
)
2234 != XCOFFARMAG_ELEMENT_SIZE
)
2236 for (i
= 0; i
< (size_t) count
; i
++)
2238 sprintf (decbuf
, "%-12ld", (long) offsets
[i
]);
2239 if (bfd_bwrite (decbuf
, (bfd_size_type
) XCOFFARMAG_ELEMENT_SIZE
,
2240 abfd
) != XCOFFARMAG_ELEMENT_SIZE
)
2243 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->archive_next
)
2246 bfd_size_type namlen
;
2248 name
= normalize_filename (sub
);
2249 namlen
= strlen (name
);
2250 if (bfd_bwrite (name
, namlen
+ 1, abfd
) != namlen
+ 1)
2254 if (! do_pad (abfd
, size
& 1))
2257 /* Write out the armap, if appropriate. */
2258 if (! makemap
|| ! hasobjects
)
2259 sprintf (fhdr
.symoff
, "%d", 0);
2262 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2263 sprintf (fhdr
.symoff
, "%ld", (long) nextoff
);
2264 bfd_ardata (abfd
)->tdata
= &fhdr
;
2265 if (! _bfd_compute_and_write_armap (abfd
, 0))
2269 /* Write out the archive file header. */
2271 /* We need spaces, not null bytes, in the header. */
2272 for (p
= (char *) &fhdr
; p
< (char *) &fhdr
+ SIZEOF_AR_FILE_HDR
; p
++)
2276 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) != 0
2277 || (bfd_bwrite (&fhdr
, (bfd_size_type
) SIZEOF_AR_FILE_HDR
, abfd
)
2278 != SIZEOF_AR_FILE_HDR
))
2285 xcoff_write_archive_contents_big (bfd
*abfd
)
2287 struct xcoff_ar_file_hdr_big fhdr
;
2288 bfd_size_type count
;
2289 bfd_size_type total_namlen
;
2291 bfd_boolean makemap
;
2292 bfd_boolean hasobjects
;
2293 file_ptr prevoff
, nextoff
;
2296 struct xcoff_ar_hdr_big
*hdr
;
2298 char *member_table
, *mt
;
2299 bfd_vma member_table_size
;
2300 struct archive_iterator iterator
;
2302 memset (&fhdr
, 0, SIZEOF_AR_FILE_HDR_BIG
);
2303 memcpy (fhdr
.magic
, XCOFFARMAGBIG
, SXCOFFARMAG
);
2305 if (bfd_seek (abfd
, (file_ptr
) SIZEOF_AR_FILE_HDR_BIG
, SEEK_SET
) != 0)
2308 /* Calculate count and total_namlen. */
2309 makemap
= bfd_has_map (abfd
);
2311 for (current_bfd
= abfd
->archive_head
, count
= 0, total_namlen
= 0;
2312 current_bfd
!= NULL
;
2313 current_bfd
= current_bfd
->archive_next
, count
++)
2315 total_namlen
+= strlen (normalize_filename (current_bfd
)) + 1;
2319 && bfd_check_format (current_bfd
, bfd_object
))
2322 if (current_bfd
->arelt_data
== NULL
)
2324 size
= sizeof (struct areltdata
);
2325 current_bfd
->arelt_data
= bfd_zmalloc (size
);
2326 if (current_bfd
->arelt_data
== NULL
)
2330 if (arch_xhdr_big (current_bfd
) == NULL
)
2332 struct xcoff_ar_hdr_big
*ahdrp
;
2335 if ((current_bfd
->flags
& BFD_IN_MEMORY
) != 0)
2337 /* Assume we just "made" the member, and fake it. */
2338 struct bfd_in_memory
*bim
2339 = (struct bfd_in_memory
*) current_bfd
->iostream
;
2341 s
.st_uid
= getuid ();
2342 s
.st_gid
= getgid ();
2344 s
.st_size
= bim
->size
;
2346 else if (stat (bfd_get_filename (current_bfd
), &s
) != 0)
2348 bfd_set_input_error (current_bfd
, bfd_error_system_call
);
2352 if ((abfd
->flags
& BFD_DETERMINISTIC_OUTPUT
) != 0)
2360 ahdrp
= bfd_zalloc (current_bfd
, sizeof (*ahdrp
));
2364 PRINT20 (ahdrp
->size
, s
.st_size
);
2365 PRINT12 (ahdrp
->date
, s
.st_mtime
);
2366 PRINT12 (ahdrp
->uid
, s
.st_uid
);
2367 PRINT12 (ahdrp
->gid
, s
.st_gid
);
2368 PRINT12_OCTAL (ahdrp
->mode
, s
.st_mode
);
2370 arch_eltdata (current_bfd
)->arch_header
= (char *) ahdrp
;
2371 arch_eltdata (current_bfd
)->parsed_size
= s
.st_size
;
2378 offsets
= (file_ptr
*) bfd_malloc (count
* sizeof (file_ptr
));
2379 if (offsets
== NULL
)
2384 for (archive_iterator_begin (&iterator
, abfd
), i
= 0;
2385 archive_iterator_next (&iterator
);
2388 bfd_size_type namlen
;
2389 struct xcoff_ar_hdr_big
*ahdrp
;
2391 ahdrp
= arch_xhdr_big (iterator
.current
.member
);
2392 PRINT20 (ahdrp
->prevoff
, prevoff
);
2393 PRINT4 (ahdrp
->namlen
, iterator
.current
.namlen
);
2394 PRINT20 (ahdrp
->nextoff
, iterator
.next
.offset
);
2396 if (!do_pad (abfd
, iterator
.current
.leading_padding
))
2402 BFD_ASSERT (iterator
.current
.offset
== bfd_tell (abfd
));
2403 namlen
= iterator
.current
.padded_namlen
;
2404 if (bfd_bwrite (ahdrp
, SIZEOF_AR_HDR_BIG
, abfd
) != SIZEOF_AR_HDR_BIG
2405 || bfd_bwrite (iterator
.current
.name
, namlen
, abfd
) != namlen
2406 || bfd_bwrite (XCOFFARFMAG
, SXCOFFARFMAG
, abfd
) != SXCOFFARFMAG
2407 || bfd_seek (iterator
.current
.member
, 0, SEEK_SET
) != 0
2408 || !do_copy (abfd
, iterator
.current
.member
)
2409 || !do_pad (abfd
, iterator
.current
.trailing_padding
))
2415 offsets
[i
] = iterator
.current
.offset
;
2416 prevoff
= iterator
.current
.offset
;
2421 PRINT20 (fhdr
.firstmemoff
, offsets
[0]);
2422 PRINT20 (fhdr
.lastmemoff
, prevoff
);
2425 /* Write out the member table.
2428 standard big archive header
2429 0x0000 ar_size [0x14]
2430 0x0014 ar_nxtmem [0x14]
2431 0x0028 ar_prvmem [0x14]
2432 0x003C ar_date [0x0C]
2433 0x0048 ar_uid [0x0C]
2434 0x0054 ar_gid [0x0C]
2435 0x0060 ar_mod [0x0C]
2436 0x006C ar_namelen[0x04]
2437 0x0070 ar_fmag [0x02]
2441 0x0086 offsets [0x14 * counts]
2442 0x0086 + 0x14 * counts names [??]
2443 ?? pad to even bytes.
2446 nextoff
= iterator
.next
.offset
;
2447 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2449 member_table_size
= (SIZEOF_AR_HDR_BIG
2451 + XCOFFARMAGBIG_ELEMENT_SIZE
2452 + count
* XCOFFARMAGBIG_ELEMENT_SIZE
2455 member_table_size
+= member_table_size
& 1;
2456 member_table
= bfd_zmalloc (member_table_size
);
2457 if (member_table
== NULL
)
2463 hdr
= (struct xcoff_ar_hdr_big
*) member_table
;
2465 PRINT20 (hdr
->size
, (XCOFFARMAGBIG_ELEMENT_SIZE
2466 + count
* XCOFFARMAGBIG_ELEMENT_SIZE
2467 + total_namlen
+ (total_namlen
& 1)));
2468 if (makemap
&& hasobjects
)
2469 PRINT20 (hdr
->nextoff
, nextoff
+ member_table_size
);
2471 PRINT20 (hdr
->nextoff
, 0);
2472 PRINT20 (hdr
->prevoff
, prevoff
);
2473 PRINT12 (hdr
->date
, 0);
2474 PRINT12 (hdr
->uid
, 0);
2475 PRINT12 (hdr
->gid
, 0);
2476 PRINT12 (hdr
->mode
, 0);
2477 PRINT4 (hdr
->namlen
, 0);
2479 mt
= member_table
+ SIZEOF_AR_HDR_BIG
;
2480 memcpy (mt
, XCOFFARFMAG
, SXCOFFARFMAG
);
2483 PRINT20 (mt
, count
);
2484 mt
+= XCOFFARMAGBIG_ELEMENT_SIZE
;
2485 for (i
= 0; i
< (size_t) count
; i
++)
2487 PRINT20 (mt
, offsets
[i
]);
2488 mt
+= XCOFFARMAGBIG_ELEMENT_SIZE
;
2497 for (current_bfd
= abfd
->archive_head
;
2498 current_bfd
!= NULL
;
2499 current_bfd
= current_bfd
->archive_next
)
2504 name
= normalize_filename (current_bfd
);
2505 namlen
= sprintf (mt
, "%s", name
);
2509 if (bfd_bwrite (member_table
, member_table_size
, abfd
) != member_table_size
)
2512 free (member_table
);
2514 PRINT20 (fhdr
.memoff
, nextoff
);
2517 nextoff
+= member_table_size
;
2519 /* Write out the armap, if appropriate. */
2521 if (! makemap
|| ! hasobjects
)
2522 PRINT20 (fhdr
.symoff
, 0);
2525 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2527 /* Save nextoff in fhdr.symoff so the armap routine can use it. */
2528 PRINT20 (fhdr
.symoff
, nextoff
);
2530 bfd_ardata (abfd
)->tdata
= &fhdr
;
2531 if (! _bfd_compute_and_write_armap (abfd
, 0))
2535 /* Write out the archive file header. */
2537 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) != 0
2538 || (bfd_bwrite (&fhdr
, (bfd_size_type
) SIZEOF_AR_FILE_HDR_BIG
,
2539 abfd
) != SIZEOF_AR_FILE_HDR_BIG
))
2546 _bfd_xcoff_write_archive_contents (bfd
*abfd
)
2548 if (! xcoff_big_format_p (abfd
))
2549 return xcoff_write_archive_contents_old (abfd
);
2551 return xcoff_write_archive_contents_big (abfd
);
2554 /* We can't use the usual coff_sizeof_headers routine, because AIX
2555 always uses an a.out header. */
2558 _bfd_xcoff_sizeof_headers (bfd
*abfd
,
2559 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
2564 if (xcoff_data (abfd
)->full_aouthdr
)
2567 size
+= SMALL_AOUTSZ
;
2568 size
+= abfd
->section_count
* SCNHSZ
;
2570 if (info
->strip
!= strip_all
)
2572 /* There can be additional sections just for dealing with overflow in
2573 reloc and lineno counts. But the numbers of relocs and lineno aren't
2574 known when bfd_sizeof_headers is called, so we compute them by
2575 summing the numbers from input sections. */
2576 struct nbr_reloc_lineno
2578 unsigned int reloc_count
;
2579 unsigned int lineno_count
;
2581 struct nbr_reloc_lineno
*n_rl
;
2583 unsigned int max_index
;
2586 /* Although the number of sections is known, the maximum value of
2587 section->index isn't (because some sections may have been removed).
2588 Don't try to renumber sections, just compute the upper bound. */
2590 for (s
= abfd
->sections
; s
!= NULL
; s
= s
->next
)
2591 if (s
->index
> max_index
)
2592 max_index
= s
->index
;
2594 /* Allocate the per section counters. It could be possible to use a
2595 preallocated array as the number of sections is limited on XCOFF,
2596 but this creates a maintainance issue. */
2597 n_rl
= bfd_zmalloc ((max_index
+ 1) * sizeof (*n_rl
));
2602 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link
.next
)
2603 for (s
= sub
->sections
; s
!= NULL
; s
= s
->next
)
2604 if (s
->output_section
->owner
== abfd
2605 && !bfd_section_removed_from_list (abfd
, s
->output_section
))
2607 struct nbr_reloc_lineno
*e
= &n_rl
[s
->output_section
->index
];
2608 e
->reloc_count
+= s
->reloc_count
;
2609 e
->lineno_count
+= s
->lineno_count
;
2612 /* Add the size of a section for each section with an overflow. */
2613 for (s
= abfd
->sections
; s
!= NULL
; s
= s
->next
)
2615 struct nbr_reloc_lineno
*e
= &n_rl
[s
->index
];
2617 if (e
->reloc_count
>= 0xffff
2618 || (e
->lineno_count
>= 0xffff && info
->strip
!= strip_debugger
))
2628 /* Routines to swap information in the XCOFF .loader section. If we
2629 ever need to write an XCOFF loader, this stuff will need to be
2630 moved to another file shared by the linker (which XCOFF calls the
2631 ``binder'') and the loader. */
2633 /* Swap in the ldhdr structure. */
2636 xcoff_swap_ldhdr_in (bfd
*abfd
, const void * s
, struct internal_ldhdr
*dst
)
2638 const struct external_ldhdr
*src
= (const struct external_ldhdr
*) s
;
2640 dst
->l_version
= bfd_get_32 (abfd
, src
->l_version
);
2641 dst
->l_nsyms
= bfd_get_32 (abfd
, src
->l_nsyms
);
2642 dst
->l_nreloc
= bfd_get_32 (abfd
, src
->l_nreloc
);
2643 dst
->l_istlen
= bfd_get_32 (abfd
, src
->l_istlen
);
2644 dst
->l_nimpid
= bfd_get_32 (abfd
, src
->l_nimpid
);
2645 dst
->l_impoff
= bfd_get_32 (abfd
, src
->l_impoff
);
2646 dst
->l_stlen
= bfd_get_32 (abfd
, src
->l_stlen
);
2647 dst
->l_stoff
= bfd_get_32 (abfd
, src
->l_stoff
);
2650 /* Swap out the ldhdr structure. */
2653 xcoff_swap_ldhdr_out (bfd
*abfd
, const struct internal_ldhdr
*src
, void * d
)
2655 struct external_ldhdr
*dst
= (struct external_ldhdr
*) d
;
2657 bfd_put_32 (abfd
, (bfd_vma
) src
->l_version
, dst
->l_version
);
2658 bfd_put_32 (abfd
, src
->l_nsyms
, dst
->l_nsyms
);
2659 bfd_put_32 (abfd
, src
->l_nreloc
, dst
->l_nreloc
);
2660 bfd_put_32 (abfd
, src
->l_istlen
, dst
->l_istlen
);
2661 bfd_put_32 (abfd
, src
->l_nimpid
, dst
->l_nimpid
);
2662 bfd_put_32 (abfd
, src
->l_impoff
, dst
->l_impoff
);
2663 bfd_put_32 (abfd
, src
->l_stlen
, dst
->l_stlen
);
2664 bfd_put_32 (abfd
, src
->l_stoff
, dst
->l_stoff
);
2667 /* Swap in the ldsym structure. */
2670 xcoff_swap_ldsym_in (bfd
*abfd
, const void * s
, struct internal_ldsym
*dst
)
2672 const struct external_ldsym
*src
= (const struct external_ldsym
*) s
;
2674 if (bfd_get_32 (abfd
, src
->_l
._l_l
._l_zeroes
) != 0) {
2675 memcpy (dst
->_l
._l_name
, src
->_l
._l_name
, SYMNMLEN
);
2677 dst
->_l
._l_l
._l_zeroes
= 0;
2678 dst
->_l
._l_l
._l_offset
= bfd_get_32 (abfd
, src
->_l
._l_l
._l_offset
);
2680 dst
->l_value
= bfd_get_32 (abfd
, src
->l_value
);
2681 dst
->l_scnum
= bfd_get_16 (abfd
, src
->l_scnum
);
2682 dst
->l_smtype
= bfd_get_8 (abfd
, src
->l_smtype
);
2683 dst
->l_smclas
= bfd_get_8 (abfd
, src
->l_smclas
);
2684 dst
->l_ifile
= bfd_get_32 (abfd
, src
->l_ifile
);
2685 dst
->l_parm
= bfd_get_32 (abfd
, src
->l_parm
);
2688 /* Swap out the ldsym structure. */
2691 xcoff_swap_ldsym_out (bfd
*abfd
, const struct internal_ldsym
*src
, void * d
)
2693 struct external_ldsym
*dst
= (struct external_ldsym
*) d
;
2695 if (src
->_l
._l_l
._l_zeroes
!= 0)
2696 memcpy (dst
->_l
._l_name
, src
->_l
._l_name
, SYMNMLEN
);
2699 bfd_put_32 (abfd
, (bfd_vma
) 0, dst
->_l
._l_l
._l_zeroes
);
2700 bfd_put_32 (abfd
, (bfd_vma
) src
->_l
._l_l
._l_offset
,
2701 dst
->_l
._l_l
._l_offset
);
2703 bfd_put_32 (abfd
, src
->l_value
, dst
->l_value
);
2704 bfd_put_16 (abfd
, (bfd_vma
) src
->l_scnum
, dst
->l_scnum
);
2705 bfd_put_8 (abfd
, src
->l_smtype
, dst
->l_smtype
);
2706 bfd_put_8 (abfd
, src
->l_smclas
, dst
->l_smclas
);
2707 bfd_put_32 (abfd
, src
->l_ifile
, dst
->l_ifile
);
2708 bfd_put_32 (abfd
, src
->l_parm
, dst
->l_parm
);
2712 xcoff_swap_reloc_in (bfd
*abfd
, void * s
, void * d
)
2714 struct external_reloc
*src
= (struct external_reloc
*) s
;
2715 struct internal_reloc
*dst
= (struct internal_reloc
*) d
;
2717 memset (dst
, 0, sizeof (struct internal_reloc
));
2719 dst
->r_vaddr
= bfd_get_32 (abfd
, src
->r_vaddr
);
2720 dst
->r_symndx
= bfd_get_32 (abfd
, src
->r_symndx
);
2721 dst
->r_size
= bfd_get_8 (abfd
, src
->r_size
);
2722 dst
->r_type
= bfd_get_8 (abfd
, src
->r_type
);
2726 xcoff_swap_reloc_out (bfd
*abfd
, void * s
, void * d
)
2728 struct internal_reloc
*src
= (struct internal_reloc
*) s
;
2729 struct external_reloc
*dst
= (struct external_reloc
*) d
;
2731 bfd_put_32 (abfd
, src
->r_vaddr
, dst
->r_vaddr
);
2732 bfd_put_32 (abfd
, src
->r_symndx
, dst
->r_symndx
);
2733 bfd_put_8 (abfd
, src
->r_type
, dst
->r_type
);
2734 bfd_put_8 (abfd
, src
->r_size
, dst
->r_size
);
2736 return bfd_coff_relsz (abfd
);
2739 /* Swap in the ldrel structure. */
2742 xcoff_swap_ldrel_in (bfd
*abfd
, const void * s
, struct internal_ldrel
*dst
)
2744 const struct external_ldrel
*src
= (const struct external_ldrel
*) s
;
2746 dst
->l_vaddr
= bfd_get_32 (abfd
, src
->l_vaddr
);
2747 dst
->l_symndx
= bfd_get_32 (abfd
, src
->l_symndx
);
2748 dst
->l_rtype
= bfd_get_16 (abfd
, src
->l_rtype
);
2749 dst
->l_rsecnm
= bfd_get_16 (abfd
, src
->l_rsecnm
);
2752 /* Swap out the ldrel structure. */
2755 xcoff_swap_ldrel_out (bfd
*abfd
, const struct internal_ldrel
*src
, void * d
)
2757 struct external_ldrel
*dst
= (struct external_ldrel
*) d
;
2759 bfd_put_32 (abfd
, src
->l_vaddr
, dst
->l_vaddr
);
2760 bfd_put_32 (abfd
, src
->l_symndx
, dst
->l_symndx
);
2761 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rtype
, dst
->l_rtype
);
2762 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rsecnm
, dst
->l_rsecnm
);
2767 xcoff_reloc_type_noop (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2768 asection
*input_section ATTRIBUTE_UNUSED
,
2769 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2770 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2771 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2772 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2773 bfd_vma val ATTRIBUTE_UNUSED
,
2774 bfd_vma addend ATTRIBUTE_UNUSED
,
2775 bfd_vma
*relocation ATTRIBUTE_UNUSED
,
2776 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2782 xcoff_reloc_type_fail (bfd
*input_bfd
,
2783 asection
*input_section ATTRIBUTE_UNUSED
,
2784 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2785 struct internal_reloc
*rel
,
2786 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2787 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2788 bfd_vma val ATTRIBUTE_UNUSED
,
2789 bfd_vma addend ATTRIBUTE_UNUSED
,
2790 bfd_vma
*relocation ATTRIBUTE_UNUSED
,
2791 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2794 /* xgettext: c-format */
2795 (_("%pB: unsupported relocation type %#x"),
2796 input_bfd
, (unsigned int) rel
->r_type
);
2797 bfd_set_error (bfd_error_bad_value
);
2802 xcoff_reloc_type_pos (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2803 asection
*input_section ATTRIBUTE_UNUSED
,
2804 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2805 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2806 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2807 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2810 bfd_vma
*relocation
,
2811 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2813 *relocation
= val
+ addend
;
2818 xcoff_reloc_type_neg (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2819 asection
*input_section ATTRIBUTE_UNUSED
,
2820 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2821 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2822 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2823 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2826 bfd_vma
*relocation
,
2827 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2829 *relocation
= addend
- val
;
2834 xcoff_reloc_type_rel (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2835 asection
*input_section
,
2836 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2837 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2838 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2839 struct reloc_howto_struct
*howto
,
2842 bfd_vma
*relocation
,
2843 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2845 howto
->pc_relative
= TRUE
;
2847 /* A PC relative reloc includes the section address. */
2848 addend
+= input_section
->vma
;
2850 *relocation
= val
+ addend
;
2851 *relocation
-= (input_section
->output_section
->vma
2852 + input_section
->output_offset
);
2857 xcoff_reloc_type_toc (bfd
*input_bfd
,
2858 asection
*input_section ATTRIBUTE_UNUSED
,
2860 struct internal_reloc
*rel
,
2861 struct internal_syment
*sym
,
2862 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2864 bfd_vma addend ATTRIBUTE_UNUSED
,
2865 bfd_vma
*relocation
,
2866 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2868 struct xcoff_link_hash_entry
*h
;
2870 if (0 > rel
->r_symndx
)
2873 h
= obj_xcoff_sym_hashes (input_bfd
)[rel
->r_symndx
];
2875 if (h
!= NULL
&& h
->smclas
!= XMC_TD
)
2877 if (h
->toc_section
== NULL
)
2880 /* xgettext: c-format */
2881 (_("%pB: TOC reloc at %#" PRIx64
" to symbol `%s' with no TOC entry"),
2882 input_bfd
, (uint64_t) rel
->r_vaddr
, h
->root
.root
.string
);
2883 bfd_set_error (bfd_error_bad_value
);
2887 BFD_ASSERT ((h
->flags
& XCOFF_SET_TOC
) == 0);
2888 val
= (h
->toc_section
->output_section
->vma
2889 + h
->toc_section
->output_offset
);
2892 *relocation
= ((val
- xcoff_data (output_bfd
)->toc
)
2893 - (sym
->n_value
- xcoff_data (input_bfd
)->toc
));
2898 xcoff_reloc_type_ba (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2899 asection
*input_section ATTRIBUTE_UNUSED
,
2900 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2901 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2902 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2903 struct reloc_howto_struct
*howto
,
2906 bfd_vma
*relocation
,
2907 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2909 howto
->src_mask
&= ~3;
2910 howto
->dst_mask
= howto
->src_mask
;
2912 *relocation
= val
+ addend
;
2918 xcoff_reloc_type_br (bfd
*input_bfd
,
2919 asection
*input_section
,
2920 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2921 struct internal_reloc
*rel
,
2922 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2923 struct reloc_howto_struct
*howto
,
2926 bfd_vma
*relocation
,
2929 struct xcoff_link_hash_entry
*h
;
2930 bfd_vma section_offset
;
2932 if (0 > rel
->r_symndx
)
2935 h
= obj_xcoff_sym_hashes (input_bfd
)[rel
->r_symndx
];
2936 section_offset
= rel
->r_vaddr
- input_section
->vma
;
2938 /* If we see an R_BR or R_RBR reloc which is jumping to global
2939 linkage code, and it is followed by an appropriate cror nop
2940 instruction, we replace the cror with lwz r2,20(r1). This
2941 restores the TOC after the glink code. Contrariwise, if the
2942 call is followed by a lwz r2,20(r1), but the call is not
2943 going to global linkage code, we can replace the load with a
2946 && (bfd_link_hash_defined
== h
->root
.type
2947 || bfd_link_hash_defweak
== h
->root
.type
)
2948 && section_offset
+ 8 <= input_section
->size
)
2953 pnext
= contents
+ section_offset
+ 4;
2954 next
= bfd_get_32 (input_bfd
, pnext
);
2956 /* The _ptrgl function is magic. It is used by the AIX
2957 compiler to call a function through a pointer. */
2958 if (h
->smclas
== XMC_GL
|| strcmp (h
->root
.root
.string
, "._ptrgl") == 0)
2960 if (next
== 0x4def7b82 /* cror 15,15,15 */
2961 || next
== 0x4ffffb82 /* cror 31,31,31 */
2962 || next
== 0x60000000) /* ori r0,r0,0 */
2963 bfd_put_32 (input_bfd
, 0x80410014, pnext
); /* lwz r2,20(r1) */
2968 if (next
== 0x80410014) /* lwz r2,20(r1) */
2969 bfd_put_32 (input_bfd
, 0x60000000, pnext
); /* ori r0,r0,0 */
2972 else if (NULL
!= h
&& bfd_link_hash_undefined
== h
->root
.type
)
2974 /* Normally, this relocation is against a defined symbol. In the
2975 case where this is a partial link and the output section offset
2976 is greater than 2^25, the linker will return an invalid error
2977 message that the relocation has been truncated. Yes it has been
2978 truncated but no it not important. For this case, disable the
2979 overflow checking. */
2981 howto
->complain_on_overflow
= complain_overflow_dont
;
2984 /* The original PC-relative relocation is biased by -r_vaddr, so adding
2985 the value below will give the absolute target address. */
2986 *relocation
= val
+ addend
+ rel
->r_vaddr
;
2988 howto
->src_mask
&= ~3;
2989 howto
->dst_mask
= howto
->src_mask
;
2992 && (h
->root
.type
== bfd_link_hash_defined
2993 || h
->root
.type
== bfd_link_hash_defweak
)
2994 && bfd_is_abs_section (h
->root
.u
.def
.section
)
2995 && section_offset
+ 4 <= input_section
->size
)
3000 /* Turn the relative branch into an absolute one by setting the
3002 ptr
= contents
+ section_offset
;
3003 insn
= bfd_get_32 (input_bfd
, ptr
);
3005 bfd_put_32 (input_bfd
, insn
, ptr
);
3007 /* Make the howto absolute too. */
3008 howto
->pc_relative
= FALSE
;
3009 howto
->complain_on_overflow
= complain_overflow_bitfield
;
3013 /* Use a PC-relative howto and subtract the instruction's address
3014 from the target address we calculated above. */
3015 howto
->pc_relative
= TRUE
;
3016 *relocation
-= (input_section
->output_section
->vma
3017 + input_section
->output_offset
3024 xcoff_reloc_type_crel (bfd
*input_bfd ATTRIBUTE_UNUSED
,
3025 asection
*input_section
,
3026 bfd
*output_bfd ATTRIBUTE_UNUSED
,
3027 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
3028 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
3029 struct reloc_howto_struct
*howto
,
3030 bfd_vma val ATTRIBUTE_UNUSED
,
3032 bfd_vma
*relocation
,
3033 bfd_byte
*contents ATTRIBUTE_UNUSED
)
3035 howto
->pc_relative
= TRUE
;
3036 howto
->src_mask
&= ~3;
3037 howto
->dst_mask
= howto
->src_mask
;
3039 /* A PC relative reloc includes the section address. */
3040 addend
+= input_section
->vma
;
3042 *relocation
= val
+ addend
;
3043 *relocation
-= (input_section
->output_section
->vma
3044 + input_section
->output_offset
);
3049 xcoff_complain_overflow_dont_func (bfd
*input_bfd ATTRIBUTE_UNUSED
,
3050 bfd_vma val ATTRIBUTE_UNUSED
,
3051 bfd_vma relocation ATTRIBUTE_UNUSED
,
3052 struct reloc_howto_struct
*
3053 howto ATTRIBUTE_UNUSED
)
3059 xcoff_complain_overflow_bitfield_func (bfd
*input_bfd
,
3062 struct reloc_howto_struct
*howto
)
3064 bfd_vma fieldmask
, signmask
, ss
;
3067 /* Get the values to be added together. For signed and unsigned
3068 relocations, we assume that all values should be truncated to
3069 the size of an address. For bitfields, all the bits matter.
3070 See also bfd_check_overflow. */
3071 fieldmask
= N_ONES (howto
->bitsize
);
3073 b
= val
& howto
->src_mask
;
3075 /* Much like unsigned, except no trimming with addrmask. In
3076 addition, the sum overflows if there is a carry out of
3077 the bfd_vma, i.e., the sum is less than either input
3079 a
>>= howto
->rightshift
;
3080 b
>>= howto
->bitpos
;
3082 /* Bitfields are sometimes used for signed numbers; for
3083 example, a 13-bit field sometimes represents values in
3084 0..8191 and sometimes represents values in -4096..4095.
3085 If the field is signed and a is -4095 (0x1001) and b is
3086 -1 (0x1fff), the sum is -4096 (0x1000), but (0x1001 +
3087 0x1fff is 0x3000). It's not clear how to handle this
3088 everywhere, since there is not way to know how many bits
3089 are significant in the relocation, but the original code
3090 assumed that it was fully sign extended, and we will keep
3092 signmask
= (fieldmask
>> 1) + 1;
3094 if ((a
& ~ fieldmask
) != 0)
3096 /* Some bits out of the field are set. This might not
3097 be a problem: if this is a signed bitfield, it is OK
3098 iff all the high bits are set, including the sign
3099 bit. We'll try setting all but the most significant
3100 bit in the original relocation value: if this is all
3101 ones, we are OK, assuming a signed bitfield. */
3102 ss
= (signmask
<< howto
->rightshift
) - 1;
3103 if ((ss
| relocation
) != ~ (bfd_vma
) 0)
3108 /* We just assume (b & ~ fieldmask) == 0. */
3110 /* We explicitly permit wrap around if this relocation
3111 covers the high bit of an address. The Linux kernel
3112 relies on it, and it is the only way to write assembler
3113 code which can run when loaded at a location 0x80000000
3114 away from the location at which it is linked. */
3115 if ((unsigned) howto
->bitsize
+ howto
->rightshift
3116 == bfd_arch_bits_per_address (input_bfd
))
3120 if (sum
< a
|| (sum
& ~ fieldmask
) != 0)
3122 /* There was a carry out, or the field overflow. Test
3123 for signed operands again. Here is the overflow test
3124 is as for complain_overflow_signed. */
3125 if (((~ (a
^ b
)) & (a
^ sum
)) & signmask
)
3133 xcoff_complain_overflow_signed_func (bfd
*input_bfd
,
3136 struct reloc_howto_struct
*howto
)
3138 bfd_vma addrmask
, fieldmask
, signmask
, ss
;
3141 /* Get the values to be added together. For signed and unsigned
3142 relocations, we assume that all values should be truncated to
3143 the size of an address. For bitfields, all the bits matter.
3144 See also bfd_check_overflow. */
3145 fieldmask
= N_ONES (howto
->bitsize
);
3146 addrmask
= N_ONES (bfd_arch_bits_per_address (input_bfd
)) | fieldmask
;
3148 b
= val
& howto
->src_mask
;
3150 a
= (a
& addrmask
) >> howto
->rightshift
;
3152 /* If any sign bits are set, all sign bits must be set.
3153 That is, A must be a valid negative address after
3155 signmask
= ~ (fieldmask
>> 1);
3157 if (ss
!= 0 && ss
!= ((addrmask
>> howto
->rightshift
) & signmask
))
3160 /* We only need this next bit of code if the sign bit of B
3161 is below the sign bit of A. This would only happen if
3162 SRC_MASK had fewer bits than BITSIZE. Note that if
3163 SRC_MASK has more bits than BITSIZE, we can get into
3164 trouble; we would need to verify that B is in range, as
3165 we do for A above. */
3166 signmask
= ((~ howto
->src_mask
) >> 1) & howto
->src_mask
;
3167 if ((b
& signmask
) != 0)
3169 /* Set all the bits above the sign bit. */
3170 b
-= signmask
<<= 1;
3173 b
= (b
& addrmask
) >> howto
->bitpos
;
3175 /* Now we can do the addition. */
3178 /* See if the result has the correct sign. Bits above the
3179 sign bit are junk now; ignore them. If the sum is
3180 positive, make sure we did not have all negative inputs;
3181 if the sum is negative, make sure we did not have all
3182 positive inputs. The test below looks only at the sign
3183 bits, and it really just
3184 SIGN (A) == SIGN (B) && SIGN (A) != SIGN (SUM)
3186 signmask
= (fieldmask
>> 1) + 1;
3187 if (((~ (a
^ b
)) & (a
^ sum
)) & signmask
)
3194 xcoff_complain_overflow_unsigned_func (bfd
*input_bfd
,
3197 struct reloc_howto_struct
*howto
)
3199 bfd_vma addrmask
, fieldmask
;
3202 /* Get the values to be added together. For signed and unsigned
3203 relocations, we assume that all values should be truncated to
3204 the size of an address. For bitfields, all the bits matter.
3205 See also bfd_check_overflow. */
3206 fieldmask
= N_ONES (howto
->bitsize
);
3207 addrmask
= N_ONES (bfd_arch_bits_per_address (input_bfd
)) | fieldmask
;
3209 b
= val
& howto
->src_mask
;
3211 /* Checking for an unsigned overflow is relatively easy:
3212 trim the addresses and add, and trim the result as well.
3213 Overflow is normally indicated when the result does not
3214 fit in the field. However, we also need to consider the
3215 case when, e.g., fieldmask is 0x7fffffff or smaller, an
3216 input is 0x80000000, and bfd_vma is only 32 bits; then we
3217 will get sum == 0, but there is an overflow, since the
3218 inputs did not fit in the field. Instead of doing a
3219 separate test, we can check for this by or-ing in the
3220 operands when testing for the sum overflowing its final
3222 a
= (a
& addrmask
) >> howto
->rightshift
;
3223 b
= (b
& addrmask
) >> howto
->bitpos
;
3224 sum
= (a
+ b
) & addrmask
;
3225 if ((a
| b
| sum
) & ~ fieldmask
)
3231 /* This is the relocation function for the RS/6000/POWER/PowerPC.
3232 This is currently the only processor which uses XCOFF; I hope that
3235 I took the relocation type definitions from two documents:
3236 the PowerPC AIX Version 4 Application Binary Interface, First
3237 Edition (April 1992), and the PowerOpen ABI, Big-Endian
3238 32-Bit Hardware Implementation (June 30, 1994). Differences
3239 between the documents are noted below.
3241 Unsupported r_type's
3247 These relocs are defined by the PowerPC ABI to be
3248 relative branches which use half of the difference
3249 between the symbol and the program counter. I can't
3250 quite figure out when this is useful. These relocs are
3251 not defined by the PowerOpen ABI.
3256 Simple positive relocation.
3259 Simple negative relocation.
3262 Simple PC relative relocation.
3265 TOC relative relocation. The value in the instruction in
3266 the input file is the offset from the input file TOC to
3267 the desired location. We want the offset from the final
3268 TOC to the desired location. We have:
3273 so we must change insn by on - in.
3276 GL linkage relocation. The value of this relocation
3277 is the address of the entry in the TOC section.
3280 Local object TOC address. I can't figure out the
3281 difference between this and case R_GL.
3284 TOC relative relocation. A TOC relative load instruction
3285 which may be changed to a load address instruction.
3286 FIXME: We don't currently implement this optimization.
3289 TOC relative relocation. This is a TOC relative load
3290 address instruction which may be changed to a load
3291 instruction. FIXME: I don't know if this is the correct
3295 Absolute branch. We don't want to mess with the lower
3296 two bits of the instruction.
3299 The PowerPC ABI defines this as an absolute call which
3300 may be modified to become a relative call. The PowerOpen
3301 ABI does not define this relocation type.
3304 Absolute branch which may be modified to become a
3308 The PowerPC ABI defines this as an absolute branch to a
3309 fixed address which may be modified to an absolute branch
3310 to a symbol. The PowerOpen ABI does not define this
3314 The PowerPC ABI defines this as an absolute branch to a
3315 fixed address which may be modified to a relative branch.
3316 The PowerOpen ABI does not define this relocation type.
3319 Relative branch. We don't want to mess with the lower
3320 two bits of the instruction.
3323 The PowerPC ABI defines this as a relative call which may
3324 be modified to become an absolute call. The PowerOpen
3325 ABI does not define this relocation type.
3328 A relative branch which may be modified to become an
3332 The PowerPC AIX ABI describes this as a load which may be
3333 changed to a load address. The PowerOpen ABI says this
3334 is the same as case R_POS.
3337 The PowerPC AIX ABI describes this as a load address
3338 which may be changed to a load. The PowerOpen ABI says
3339 this is the same as R_POS.
3343 xcoff_ppc_relocate_section (bfd
*output_bfd
,
3344 struct bfd_link_info
*info
,
3346 asection
*input_section
,
3348 struct internal_reloc
*relocs
,
3349 struct internal_syment
*syms
,
3350 asection
**sections
)
3352 struct internal_reloc
*rel
;
3353 struct internal_reloc
*relend
;
3356 relend
= rel
+ input_section
->reloc_count
;
3357 for (; rel
< relend
; rel
++)
3360 struct xcoff_link_hash_entry
*h
;
3361 struct internal_syment
*sym
;
3364 struct reloc_howto_struct howto
;
3366 bfd_vma value_to_relocate
;
3370 /* Relocation type R_REF is a special relocation type which is
3371 merely used to prevent garbage collection from occurring for
3372 the csect including the symbol which it references. */
3373 if (rel
->r_type
== R_REF
)
3377 howto
.type
= rel
->r_type
;
3378 howto
.rightshift
= 0;
3379 howto
.bitsize
= (rel
->r_size
& 0x1f) + 1;
3380 howto
.size
= howto
.bitsize
> 16 ? 2 : 1;
3381 howto
.pc_relative
= FALSE
;
3383 howto
.complain_on_overflow
= (rel
->r_size
& 0x80
3384 ? complain_overflow_signed
3385 : complain_overflow_bitfield
);
3386 howto
.special_function
= NULL
;
3387 howto
.name
= "internal";
3388 howto
.partial_inplace
= TRUE
;
3389 howto
.src_mask
= howto
.dst_mask
= N_ONES (howto
.bitsize
);
3390 howto
.pcrel_offset
= FALSE
;
3397 symndx
= rel
->r_symndx
;
3403 h
= obj_xcoff_sym_hashes (input_bfd
)[symndx
];
3404 sym
= syms
+ symndx
;
3405 addend
= - sym
->n_value
;
3409 sec
= sections
[symndx
];
3410 /* Hack to make sure we use the right TOC anchor value
3411 if this reloc is against the TOC anchor. */
3412 if (sec
->name
[3] == '0'
3413 && strcmp (sec
->name
, ".tc0") == 0)
3414 val
= xcoff_data (output_bfd
)->toc
;
3416 val
= (sec
->output_section
->vma
3417 + sec
->output_offset
3423 if (info
->unresolved_syms_in_objects
!= RM_IGNORE
3424 && (h
->flags
& XCOFF_WAS_UNDEFINED
) != 0)
3425 (*info
->callbacks
->undefined_symbol
)
3426 (info
, h
->root
.root
.string
,
3427 input_bfd
, input_section
,
3428 rel
->r_vaddr
- input_section
->vma
,
3429 info
->unresolved_syms_in_objects
== RM_DIAGNOSE
&&
3430 !info
->warn_unresolved_syms
);
3432 if (h
->root
.type
== bfd_link_hash_defined
3433 || h
->root
.type
== bfd_link_hash_defweak
)
3435 sec
= h
->root
.u
.def
.section
;
3436 val
= (h
->root
.u
.def
.value
3437 + sec
->output_section
->vma
3438 + sec
->output_offset
);
3440 else if (h
->root
.type
== bfd_link_hash_common
)
3442 sec
= h
->root
.u
.c
.p
->section
;
3443 val
= (sec
->output_section
->vma
3444 + sec
->output_offset
);
3449 BFD_ASSERT (bfd_link_relocatable (info
)
3450 || (info
->static_link
3451 && (h
->flags
& XCOFF_WAS_UNDEFINED
) != 0)
3452 || (h
->flags
& XCOFF_DEF_DYNAMIC
) != 0
3453 || (h
->flags
& XCOFF_IMPORT
) != 0);
3458 if (rel
->r_type
>= XCOFF_MAX_CALCULATE_RELOCATION
3459 || !((*xcoff_calculate_relocation
[rel
->r_type
])
3460 (input_bfd
, input_section
, output_bfd
, rel
, sym
, &howto
, val
,
3461 addend
, &relocation
, contents
)))
3465 address
= rel
->r_vaddr
- input_section
->vma
;
3466 location
= contents
+ address
;
3468 if (address
> input_section
->size
)
3471 /* Get the value we are going to relocate. */
3472 if (1 == howto
.size
)
3473 value_to_relocate
= bfd_get_16 (input_bfd
, location
);
3475 value_to_relocate
= bfd_get_32 (input_bfd
, location
);
3479 FIXME: We may drop bits during the addition
3480 which we don't check for. We must either check at every single
3481 operation, which would be tedious, or we must do the computations
3482 in a type larger than bfd_vma, which would be inefficient. */
3484 if (((*xcoff_complain_overflow
[howto
.complain_on_overflow
])
3485 (input_bfd
, value_to_relocate
, relocation
, &howto
)))
3488 char buf
[SYMNMLEN
+ 1];
3489 char reloc_type_name
[10];
3501 name
= _bfd_coff_internal_syment_name (input_bfd
, sym
, buf
);
3505 sprintf (reloc_type_name
, "0x%02x", rel
->r_type
);
3507 (*info
->callbacks
->reloc_overflow
)
3508 (info
, (h
? &h
->root
: NULL
), name
, reloc_type_name
,
3509 (bfd_vma
) 0, input_bfd
, input_section
,
3510 rel
->r_vaddr
- input_section
->vma
);
3513 /* Add RELOCATION to the right bits of VALUE_TO_RELOCATE. */
3514 value_to_relocate
= ((value_to_relocate
& ~howto
.dst_mask
)
3515 | (((value_to_relocate
& howto
.src_mask
)
3516 + relocation
) & howto
.dst_mask
));
3518 /* Put the value back in the object file. */
3519 if (1 == howto
.size
)
3520 bfd_put_16 (input_bfd
, value_to_relocate
, location
);
3522 bfd_put_32 (input_bfd
, value_to_relocate
, location
);
3528 /* gcc-8 warns (*) on all the strncpy calls in this function about
3529 possible string truncation. The "truncation" is not a bug. We
3530 have an external representation of structs with fields that are not
3531 necessarily NULL terminated and corresponding internal
3532 representation fields that are one larger so that they can always
3534 gcc versions between 4.2 and 4.6 do not allow pragma control of
3535 diagnostics inside functions, giving a hard error if you try to use
3536 the finer control available with later versions.
3537 gcc prior to 4.2 warns about diagnostic push and pop.
3538 gcc-5, gcc-6 and gcc-7 warn that -Wstringop-truncation is unknown,
3539 unless you also add #pragma GCC diagnostic ignored "-Wpragma".
3540 (*) Depending on your system header files! */
3541 #if GCC_VERSION >= 8000
3542 # pragma GCC diagnostic push
3543 # pragma GCC diagnostic ignored "-Wstringop-truncation"
3546 _bfd_xcoff_put_ldsymbol_name (bfd
*abfd ATTRIBUTE_UNUSED
,
3547 struct xcoff_loader_info
*ldinfo
,
3548 struct internal_ldsym
*ldsym
,
3552 len
= strlen (name
);
3554 if (len
<= SYMNMLEN
)
3555 strncpy (ldsym
->_l
._l_name
, name
, SYMNMLEN
);
3558 if (ldinfo
->string_size
+ len
+ 3 > ldinfo
->string_alc
)
3560 bfd_size_type newalc
;
3563 newalc
= ldinfo
->string_alc
* 2;
3566 while (ldinfo
->string_size
+ len
+ 3 > newalc
)
3569 newstrings
= bfd_realloc (ldinfo
->strings
, newalc
);
3570 if (newstrings
== NULL
)
3572 ldinfo
->failed
= TRUE
;
3575 ldinfo
->string_alc
= newalc
;
3576 ldinfo
->strings
= newstrings
;
3579 bfd_put_16 (ldinfo
->output_bfd
, (bfd_vma
) (len
+ 1),
3580 ldinfo
->strings
+ ldinfo
->string_size
);
3581 strcpy (ldinfo
->strings
+ ldinfo
->string_size
+ 2, name
);
3582 ldsym
->_l
._l_l
._l_zeroes
= 0;
3583 ldsym
->_l
._l_l
._l_offset
= ldinfo
->string_size
+ 2;
3584 ldinfo
->string_size
+= len
+ 3;
3591 _bfd_xcoff_put_symbol_name (struct bfd_link_info
*info
,
3592 struct bfd_strtab_hash
*strtab
,
3593 struct internal_syment
*sym
,
3596 if (strlen (name
) <= SYMNMLEN
)
3598 strncpy (sym
->_n
._n_name
, name
, SYMNMLEN
);
3605 hash
= !info
->traditional_format
;
3606 indx
= _bfd_stringtab_add (strtab
, name
, hash
, FALSE
);
3607 if (indx
== (bfd_size_type
) -1)
3609 sym
->_n
._n_n
._n_zeroes
= 0;
3610 sym
->_n
._n_n
._n_offset
= STRING_SIZE_SIZE
+ indx
;
3614 #if GCC_VERSION >= 8000
3615 # pragma GCC diagnostic pop
3619 xcoff_create_csect_from_smclas (bfd
*abfd
,
3620 union internal_auxent
*aux
,
3621 const char *symbol_name
)
3623 asection
*return_value
= NULL
;
3625 /* .sv64 = x_smclas == 17
3626 This is an invalid csect for 32 bit apps. */
3627 static const char * const names
[] =
3629 ".pr", ".ro", ".db", ".tc", ".ua", ".rw", ".gl", ".xo", /* 0 - 7 */
3630 ".sv", ".bs", ".ds", ".uc", ".ti", ".tb", NULL
, ".tc0", /* 8 - 15 */
3631 ".td", NULL
, ".sv3264", NULL
, ".tl", ".ul", ".te"
3634 if ((aux
->x_csect
.x_smclas
< ARRAY_SIZE (names
))
3635 && (NULL
!= names
[aux
->x_csect
.x_smclas
]))
3637 return_value
= bfd_make_section_anyway
3638 (abfd
, names
[aux
->x_csect
.x_smclas
]);
3643 /* xgettext: c-format */
3644 (_("%pB: symbol `%s' has unrecognized smclas %d"),
3645 abfd
, symbol_name
, aux
->x_csect
.x_smclas
);
3646 bfd_set_error (bfd_error_bad_value
);
3649 return return_value
;
3653 xcoff_is_lineno_count_overflow (bfd
*abfd ATTRIBUTE_UNUSED
, bfd_vma value
)
3655 if (0xffff <= value
)
3662 xcoff_is_reloc_count_overflow (bfd
*abfd ATTRIBUTE_UNUSED
, bfd_vma value
)
3664 if (0xffff <= value
)
3671 xcoff_loader_symbol_offset (bfd
*abfd
,
3672 struct internal_ldhdr
*ldhdr ATTRIBUTE_UNUSED
)
3674 return bfd_xcoff_ldhdrsz (abfd
);
3678 xcoff_loader_reloc_offset (bfd
*abfd
, struct internal_ldhdr
*ldhdr
)
3680 return bfd_xcoff_ldhdrsz (abfd
) + ldhdr
->l_nsyms
* bfd_xcoff_ldsymsz (abfd
);
3684 xcoff_generate_rtinit (bfd
*abfd
, const char *init
, const char *fini
,
3687 bfd_byte filehdr_ext
[FILHSZ
];
3688 bfd_byte scnhdr_ext
[SCNHSZ
];
3689 bfd_byte syment_ext
[SYMESZ
* 10];
3690 bfd_byte reloc_ext
[RELSZ
* 3];
3691 bfd_byte
*data_buffer
;
3692 bfd_size_type data_buffer_size
;
3693 bfd_byte
*string_table
= NULL
, *st_tmp
= NULL
;
3694 bfd_size_type string_table_size
;
3696 size_t initsz
, finisz
;
3697 struct internal_filehdr filehdr
;
3698 struct internal_scnhdr scnhdr
;
3699 struct internal_syment syment
;
3700 union internal_auxent auxent
;
3701 struct internal_reloc reloc
;
3703 char *data_name
= ".data";
3704 char *rtinit_name
= "__rtinit";
3705 char *rtld_name
= "__rtld";
3707 if (! bfd_xcoff_rtinit_size (abfd
))
3710 initsz
= (init
== NULL
? 0 : 1 + strlen (init
));
3711 finisz
= (fini
== NULL
? 0 : 1 + strlen (fini
));
3714 memset (filehdr_ext
, 0, FILHSZ
);
3715 memset (&filehdr
, 0, sizeof (struct internal_filehdr
));
3716 filehdr
.f_magic
= bfd_xcoff_magic_number (abfd
);
3717 filehdr
.f_nscns
= 1;
3718 filehdr
.f_timdat
= 0;
3719 filehdr
.f_nsyms
= 0; /* at least 6, no more than 10 */
3720 filehdr
.f_symptr
= 0; /* set below */
3721 filehdr
.f_opthdr
= 0;
3722 filehdr
.f_flags
= 0;
3724 /* section header */
3725 memset (scnhdr_ext
, 0, SCNHSZ
);
3726 memset (&scnhdr
, 0, sizeof (struct internal_scnhdr
));
3727 memcpy (scnhdr
.s_name
, data_name
, strlen (data_name
));
3730 scnhdr
.s_size
= 0; /* set below */
3731 scnhdr
.s_scnptr
= FILHSZ
+ SCNHSZ
;
3732 scnhdr
.s_relptr
= 0; /* set below */
3733 scnhdr
.s_lnnoptr
= 0;
3734 scnhdr
.s_nreloc
= 0; /* either 1 or 2 */
3736 scnhdr
.s_flags
= STYP_DATA
;
3739 0x0000 0x00000000 : rtl
3740 0x0004 0x00000010 : offset to init, or 0
3741 0x0008 0x00000028 : offset to fini, or 0
3742 0x000C 0x0000000C : size of descriptor
3743 0x0010 0x00000000 : init, needs a reloc
3744 0x0014 0x00000040 : offset to init name
3745 0x0018 0x00000000 : flags, padded to a word
3746 0x001C 0x00000000 : empty init
3749 0x0028 0x00000000 : fini, needs a reloc
3750 0x002C 0x00000??? : offset to fini name
3751 0x0030 0x00000000 : flags, padded to a word
3752 0x0034 0x00000000 : empty fini
3756 0x0040 + initsz fini name */
3758 data_buffer_size
= 0x0040 + initsz
+ finisz
;
3759 data_buffer_size
= (data_buffer_size
+ 7) &~ (bfd_size_type
) 7;
3761 data_buffer
= (bfd_byte
*) bfd_zmalloc (data_buffer_size
);
3762 if (data_buffer
== NULL
)
3768 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x04]);
3770 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x14]);
3771 memcpy (&data_buffer
[val
], init
, initsz
);
3777 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x08]);
3778 val
= 0x40 + initsz
;
3779 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x2C]);
3780 memcpy (&data_buffer
[val
], fini
, finisz
);
3784 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x0C]);
3786 scnhdr
.s_size
= data_buffer_size
;
3789 string_table_size
= 0;
3791 string_table_size
+= initsz
;
3793 string_table_size
+= finisz
;
3794 if (string_table_size
)
3796 string_table_size
+= 4;
3797 string_table
= (bfd_byte
*) bfd_zmalloc (string_table_size
);
3798 if (string_table
== NULL
)
3801 val
= string_table_size
;
3802 bfd_h_put_32 (abfd
, val
, &string_table
[0]);
3803 st_tmp
= string_table
+ 4;
3812 memset (syment_ext
, 0, 10 * SYMESZ
);
3813 memset (reloc_ext
, 0, 3 * RELSZ
);
3816 memset (&syment
, 0, sizeof (struct internal_syment
));
3817 memset (&auxent
, 0, sizeof (union internal_auxent
));
3818 memcpy (syment
._n
._n_name
, data_name
, strlen (data_name
));
3820 syment
.n_sclass
= C_HIDEXT
;
3821 syment
.n_numaux
= 1;
3822 auxent
.x_csect
.x_scnlen
.l
= data_buffer_size
;
3823 auxent
.x_csect
.x_smtyp
= 3 << 3 | XTY_SD
;
3824 auxent
.x_csect
.x_smclas
= XMC_RW
;
3825 bfd_coff_swap_sym_out (abfd
, &syment
,
3826 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3827 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3829 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3830 filehdr
.f_nsyms
+= 2;
3833 memset (&syment
, 0, sizeof (struct internal_syment
));
3834 memset (&auxent
, 0, sizeof (union internal_auxent
));
3835 memcpy (syment
._n
._n_name
, rtinit_name
, strlen (rtinit_name
));
3837 syment
.n_sclass
= C_EXT
;
3838 syment
.n_numaux
= 1;
3839 auxent
.x_csect
.x_smtyp
= XTY_LD
;
3840 auxent
.x_csect
.x_smclas
= XMC_RW
;
3841 bfd_coff_swap_sym_out (abfd
, &syment
,
3842 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3843 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3845 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3846 filehdr
.f_nsyms
+= 2;
3851 memset (&syment
, 0, sizeof (struct internal_syment
));
3852 memset (&auxent
, 0, sizeof (union internal_auxent
));
3856 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
3857 memcpy (st_tmp
, init
, initsz
);
3861 memcpy (syment
._n
._n_name
, init
, initsz
- 1);
3863 syment
.n_sclass
= C_EXT
;
3864 syment
.n_numaux
= 1;
3865 bfd_coff_swap_sym_out (abfd
, &syment
,
3866 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3867 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3869 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3872 memset (&reloc
, 0, sizeof (struct internal_reloc
));
3873 reloc
.r_vaddr
= 0x0010;
3874 reloc
.r_symndx
= filehdr
.f_nsyms
;
3875 reloc
.r_type
= R_POS
;
3877 bfd_coff_swap_reloc_out (abfd
, &reloc
, &reloc_ext
[0]);
3879 filehdr
.f_nsyms
+= 2;
3880 scnhdr
.s_nreloc
+= 1;
3886 memset (&syment
, 0, sizeof (struct internal_syment
));
3887 memset (&auxent
, 0, sizeof (union internal_auxent
));
3891 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
3892 memcpy (st_tmp
, fini
, finisz
);
3896 memcpy (syment
._n
._n_name
, fini
, finisz
- 1);
3898 syment
.n_sclass
= C_EXT
;
3899 syment
.n_numaux
= 1;
3900 bfd_coff_swap_sym_out (abfd
, &syment
,
3901 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3902 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3904 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3907 memset (&reloc
, 0, sizeof (struct internal_reloc
));
3908 reloc
.r_vaddr
= 0x0028;
3909 reloc
.r_symndx
= filehdr
.f_nsyms
;
3910 reloc
.r_type
= R_POS
;
3912 bfd_coff_swap_reloc_out (abfd
, &reloc
,
3913 &reloc_ext
[scnhdr
.s_nreloc
* RELSZ
]);
3915 filehdr
.f_nsyms
+= 2;
3916 scnhdr
.s_nreloc
+= 1;
3921 memset (&syment
, 0, sizeof (struct internal_syment
));
3922 memset (&auxent
, 0, sizeof (union internal_auxent
));
3923 memcpy (syment
._n
._n_name
, rtld_name
, strlen (rtld_name
));
3924 syment
.n_sclass
= C_EXT
;
3925 syment
.n_numaux
= 1;
3926 bfd_coff_swap_sym_out (abfd
, &syment
,
3927 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3928 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3930 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3933 memset (&reloc
, 0, sizeof (struct internal_reloc
));
3934 reloc
.r_vaddr
= 0x0000;
3935 reloc
.r_symndx
= filehdr
.f_nsyms
;
3936 reloc
.r_type
= R_POS
;
3938 bfd_coff_swap_reloc_out (abfd
, &reloc
,
3939 &reloc_ext
[scnhdr
.s_nreloc
* RELSZ
]);
3941 filehdr
.f_nsyms
+= 2;
3942 scnhdr
.s_nreloc
+= 1;
3945 scnhdr
.s_relptr
= scnhdr
.s_scnptr
+ data_buffer_size
;
3946 filehdr
.f_symptr
= scnhdr
.s_relptr
+ scnhdr
.s_nreloc
* RELSZ
;
3948 bfd_coff_swap_filehdr_out (abfd
, &filehdr
, filehdr_ext
);
3949 bfd_bwrite (filehdr_ext
, FILHSZ
, abfd
);
3950 bfd_coff_swap_scnhdr_out (abfd
, &scnhdr
, scnhdr_ext
);
3951 bfd_bwrite (scnhdr_ext
, SCNHSZ
, abfd
);
3952 bfd_bwrite (data_buffer
, data_buffer_size
, abfd
);
3953 bfd_bwrite (reloc_ext
, scnhdr
.s_nreloc
* RELSZ
, abfd
);
3954 bfd_bwrite (syment_ext
, filehdr
.f_nsyms
* SYMESZ
, abfd
);
3955 bfd_bwrite (string_table
, string_table_size
, abfd
);
3964 static reloc_howto_type xcoff_dynamic_reloc
=
3965 HOWTO (0, /* type */
3967 2, /* size (0 = byte, 1 = short, 2 = long) */
3969 FALSE
, /* pc_relative */
3971 complain_overflow_bitfield
, /* complain_on_overflow */
3972 0, /* special_function */
3974 TRUE
, /* partial_inplace */
3975 0xffffffff, /* src_mask */
3976 0xffffffff, /* dst_mask */
3977 FALSE
); /* pcrel_offset */
3981 The first word of global linkage code must be modified by filling in
3982 the correct TOC offset. */
3984 static unsigned long xcoff_glink_code
[9] =
3986 0x81820000, /* lwz r12,0(r2) */
3987 0x90410014, /* stw r2,20(r1) */
3988 0x800c0000, /* lwz r0,0(r12) */
3989 0x804c0004, /* lwz r2,4(r12) */
3990 0x7c0903a6, /* mtctr r0 */
3991 0x4e800420, /* bctr */
3992 0x00000000, /* start of traceback table */
3993 0x000c8000, /* traceback table */
3994 0x00000000, /* traceback table */
3997 /* Table to convert DWARF flags to section names. */
3999 const struct xcoff_dwsect_name xcoff_dwsect_names
[] = {
4000 { SSUBTYP_DWINFO
, ".dwinfo", TRUE
},
4001 { SSUBTYP_DWLINE
, ".dwline", TRUE
},
4002 { SSUBTYP_DWPBNMS
, ".dwpbnms", TRUE
},
4003 { SSUBTYP_DWPBTYP
, ".dwpbtyp", TRUE
},
4004 { SSUBTYP_DWARNGE
, ".dwarnge", TRUE
},
4005 { SSUBTYP_DWABREV
, ".dwabrev", FALSE
},
4006 { SSUBTYP_DWSTR
, ".dwstr", TRUE
},
4007 { SSUBTYP_DWRNGES
, ".dwrnges", TRUE
}
4010 /* For generic entry points. */
4011 #define _bfd_xcoff_close_and_cleanup _bfd_archive_close_and_cleanup
4012 #define _bfd_xcoff_bfd_free_cached_info _bfd_bool_bfd_true
4013 #define _bfd_xcoff_new_section_hook coff_new_section_hook
4014 #define _bfd_xcoff_get_section_contents _bfd_generic_get_section_contents
4015 #define _bfd_xcoff_get_section_contents_in_window \
4016 _bfd_generic_get_section_contents_in_window
4018 /* For copy private data entry points. */
4019 #define _bfd_xcoff_bfd_copy_private_bfd_data \
4020 _bfd_xcoff_copy_private_bfd_data
4021 #define _bfd_xcoff_bfd_merge_private_bfd_data \
4022 _bfd_generic_bfd_merge_private_bfd_data
4023 #define _bfd_xcoff_bfd_copy_private_section_data \
4024 _bfd_generic_bfd_copy_private_section_data
4025 #define _bfd_xcoff_bfd_copy_private_symbol_data \
4026 _bfd_generic_bfd_copy_private_symbol_data
4027 #define _bfd_xcoff_bfd_copy_private_header_data \
4028 _bfd_generic_bfd_copy_private_header_data
4029 #define _bfd_xcoff_bfd_set_private_flags \
4030 _bfd_generic_bfd_set_private_flags
4031 #define _bfd_xcoff_bfd_print_private_bfd_data \
4032 _bfd_generic_bfd_print_private_bfd_data
4034 /* For archive entry points. */
4035 #define _bfd_xcoff_slurp_extended_name_table \
4036 _bfd_noarchive_slurp_extended_name_table
4037 #define _bfd_xcoff_construct_extended_name_table \
4038 _bfd_noarchive_construct_extended_name_table
4039 #define _bfd_xcoff_truncate_arname bfd_dont_truncate_arname
4040 #define _bfd_xcoff_write_ar_hdr _bfd_generic_write_ar_hdr
4041 #define _bfd_xcoff_get_elt_at_index _bfd_generic_get_elt_at_index
4042 #define _bfd_xcoff_generic_stat_arch_elt _bfd_xcoff_stat_arch_elt
4043 #define _bfd_xcoff_update_armap_timestamp _bfd_bool_bfd_true
4045 /* For symbols entry points. */
4046 #define _bfd_xcoff_get_symtab_upper_bound coff_get_symtab_upper_bound
4047 #define _bfd_xcoff_canonicalize_symtab coff_canonicalize_symtab
4048 #define _bfd_xcoff_make_empty_symbol coff_make_empty_symbol
4049 #define _bfd_xcoff_print_symbol coff_print_symbol
4050 #define _bfd_xcoff_get_symbol_info coff_get_symbol_info
4051 #define _bfd_xcoff_get_symbol_version_string \
4052 _bfd_nosymbols_get_symbol_version_string
4053 #define _bfd_xcoff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
4054 #define _bfd_xcoff_bfd_is_target_special_symbol \
4055 coff_bfd_is_target_special_symbol
4056 #define _bfd_xcoff_get_lineno coff_get_lineno
4057 #define _bfd_xcoff_find_nearest_line coff_find_nearest_line
4058 #define _bfd_xcoff_find_line coff_find_line
4059 #define _bfd_xcoff_find_inliner_info coff_find_inliner_info
4060 #define _bfd_xcoff_bfd_make_debug_symbol coff_bfd_make_debug_symbol
4061 #define _bfd_xcoff_read_minisymbols _bfd_generic_read_minisymbols
4062 #define _bfd_xcoff_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
4064 /* For reloc entry points. */
4065 #define _bfd_xcoff_get_reloc_upper_bound coff_get_reloc_upper_bound
4066 #define _bfd_xcoff_canonicalize_reloc coff_canonicalize_reloc
4067 #define _bfd_xcoff_set_reloc _bfd_generic_set_reloc
4068 #define _bfd_xcoff_bfd_reloc_type_lookup _bfd_xcoff_reloc_type_lookup
4069 #define _bfd_xcoff_bfd_reloc_name_lookup _bfd_xcoff_reloc_name_lookup
4071 /* For link entry points. */
4072 #define _bfd_xcoff_bfd_get_relocated_section_contents \
4073 bfd_generic_get_relocated_section_contents
4074 #define _bfd_xcoff_bfd_relax_section bfd_generic_relax_section
4075 #define _bfd_xcoff_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
4076 #define _bfd_xcoff_bfd_link_just_syms _bfd_generic_link_just_syms
4077 #define _bfd_xcoff_bfd_copy_link_hash_symbol_type \
4078 _bfd_generic_copy_link_hash_symbol_type
4079 #define _bfd_xcoff_bfd_link_split_section _bfd_generic_link_split_section
4080 #define _bfd_xcoff_bfd_gc_sections bfd_generic_gc_sections
4081 #define _bfd_xcoff_bfd_lookup_section_flags bfd_generic_lookup_section_flags
4082 #define _bfd_xcoff_bfd_merge_sections bfd_generic_merge_sections
4083 #define _bfd_xcoff_bfd_is_group_section bfd_generic_is_group_section
4084 #define _bfd_xcoff_bfd_group_name bfd_generic_group_name
4085 #define _bfd_xcoff_bfd_discard_group bfd_generic_discard_group
4086 #define _bfd_xcoff_section_already_linked _bfd_generic_section_already_linked
4087 #define _bfd_xcoff_bfd_define_common_symbol _bfd_xcoff_define_common_symbol
4088 #define _bfd_xcoff_bfd_link_hide_symbol _bfd_generic_link_hide_symbol
4089 #define _bfd_xcoff_bfd_define_start_stop bfd_generic_define_start_stop
4090 #define _bfd_xcoff_bfd_link_check_relocs _bfd_generic_link_check_relocs
4092 /* For dynamic symbols and relocs entry points. */
4093 #define _bfd_xcoff_get_synthetic_symtab _bfd_nodynamic_get_synthetic_symtab
4095 static const struct xcoff_backend_data_rec bfd_xcoff_backend_data
=
4097 { /* COFF backend, defined in libcoff.h. */
4098 _bfd_xcoff_swap_aux_in
,
4099 _bfd_xcoff_swap_sym_in
,
4100 coff_swap_lineno_in
,
4101 _bfd_xcoff_swap_aux_out
,
4102 _bfd_xcoff_swap_sym_out
,
4103 coff_swap_lineno_out
,
4104 xcoff_swap_reloc_out
,
4105 coff_swap_filehdr_out
,
4106 coff_swap_aouthdr_out
,
4107 coff_swap_scnhdr_out
,
4116 TRUE
, /* _bfd_coff_long_filenames */
4117 XCOFF_NO_LONG_SECTION_NAMES
, /* _bfd_coff_long_section_names */
4118 3, /* _bfd_coff_default_section_alignment_power */
4119 FALSE
, /* _bfd_coff_force_symnames_in_strings */
4120 2, /* _bfd_coff_debug_string_prefix_length */
4121 32768, /* _bfd_coff_max_nscns */
4122 coff_swap_filehdr_in
,
4123 coff_swap_aouthdr_in
,
4124 coff_swap_scnhdr_in
,
4125 xcoff_swap_reloc_in
,
4126 coff_bad_format_hook
,
4127 coff_set_arch_mach_hook
,
4130 coff_set_alignment_hook
,
4131 coff_slurp_symbol_table
,
4132 symname_in_debug_hook
,
4133 coff_pointerize_aux_hook
,
4135 dummy_reloc16_extra_cases
,
4136 dummy_reloc16_estimate
,
4137 NULL
, /* bfd_coff_sym_is_global */
4138 coff_compute_section_file_positions
,
4139 NULL
, /* _bfd_coff_start_final_link */
4140 xcoff_ppc_relocate_section
,
4141 coff_rtype_to_howto
,
4142 NULL
, /* _bfd_coff_adjust_symndx */
4143 _bfd_generic_link_add_one_symbol
,
4144 coff_link_output_has_begun
,
4145 coff_final_link_postscript
,
4146 NULL
/* print_pdata. */
4149 0x01DF, /* magic number */
4153 /* Function pointers to xcoff specific swap routines. */
4154 xcoff_swap_ldhdr_in
,
4155 xcoff_swap_ldhdr_out
,
4156 xcoff_swap_ldsym_in
,
4157 xcoff_swap_ldsym_out
,
4158 xcoff_swap_ldrel_in
,
4159 xcoff_swap_ldrel_out
,
4165 12, /* _xcoff_function_descriptor_size */
4169 1, /* _xcoff_ldhdr_version */
4171 _bfd_xcoff_put_symbol_name
,
4172 _bfd_xcoff_put_ldsymbol_name
,
4173 &xcoff_dynamic_reloc
,
4174 xcoff_create_csect_from_smclas
,
4176 /* Lineno and reloc count overflow. */
4177 xcoff_is_lineno_count_overflow
,
4178 xcoff_is_reloc_count_overflow
,
4180 xcoff_loader_symbol_offset
,
4181 xcoff_loader_reloc_offset
,
4184 &xcoff_glink_code
[0],
4185 36, /* _xcoff_glink_size */
4188 64, /* _xcoff_rtinit_size */
4189 xcoff_generate_rtinit
,
4192 /* The transfer vector that leads the outside world to all of the above. */
4193 const bfd_target rs6000_xcoff_vec
=
4196 bfd_target_xcoff_flavour
,
4197 BFD_ENDIAN_BIG
, /* data byte order is big */
4198 BFD_ENDIAN_BIG
, /* header byte order is big */
4200 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
4201 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
4203 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
4204 0, /* leading char */
4205 '/', /* ar_pad_char */
4206 15, /* ar_max_namelen */
4207 0, /* match priority. */
4231 { /* bfd_check_format */
4234 _bfd_xcoff_archive_p
,
4238 { /* bfd_set_format */
4239 _bfd_bool_bfd_false_error
,
4241 _bfd_generic_mkarchive
,
4242 _bfd_bool_bfd_false_error
4245 {/* bfd_write_contents */
4246 _bfd_bool_bfd_false_error
,
4247 coff_write_object_contents
,
4248 _bfd_xcoff_write_archive_contents
,
4249 _bfd_bool_bfd_false_error
4252 BFD_JUMP_TABLE_GENERIC (_bfd_xcoff
),
4253 BFD_JUMP_TABLE_COPY (_bfd_xcoff
),
4254 BFD_JUMP_TABLE_CORE (coff
),
4255 BFD_JUMP_TABLE_ARCHIVE (_bfd_xcoff
),
4256 BFD_JUMP_TABLE_SYMBOLS (_bfd_xcoff
),
4257 BFD_JUMP_TABLE_RELOCS (_bfd_xcoff
),
4258 BFD_JUMP_TABLE_WRITE (coff
),
4259 BFD_JUMP_TABLE_LINK (_bfd_xcoff
),
4260 BFD_JUMP_TABLE_DYNAMIC (_bfd_xcoff
),
4262 /* Opposite endian version, none exists */
4265 & bfd_xcoff_backend_data
,
4268 /* xcoff-powermac target
4270 Only difference between this target and the rs6000 target is the
4271 the default architecture and machine type used in coffcode.h
4273 PowerPC Macs use the same magic numbers as RS/6000
4274 (because that's how they were bootstrapped originally),
4275 but they are always PowerPC architecture. */
4276 static const struct xcoff_backend_data_rec bfd_pmac_xcoff_backend_data
=
4278 { /* COFF backend, defined in libcoff.h. */
4279 _bfd_xcoff_swap_aux_in
,
4280 _bfd_xcoff_swap_sym_in
,
4281 coff_swap_lineno_in
,
4282 _bfd_xcoff_swap_aux_out
,
4283 _bfd_xcoff_swap_sym_out
,
4284 coff_swap_lineno_out
,
4285 xcoff_swap_reloc_out
,
4286 coff_swap_filehdr_out
,
4287 coff_swap_aouthdr_out
,
4288 coff_swap_scnhdr_out
,
4297 TRUE
, /* _bfd_coff_long_filenames */
4298 XCOFF_NO_LONG_SECTION_NAMES
, /* _bfd_coff_long_section_names */
4299 3, /* _bfd_coff_default_section_alignment_power */
4300 FALSE
, /* _bfd_coff_force_symnames_in_strings */
4301 2, /* _bfd_coff_debug_string_prefix_length */
4302 32768, /* _bfd_coff_max_nscns */
4303 coff_swap_filehdr_in
,
4304 coff_swap_aouthdr_in
,
4305 coff_swap_scnhdr_in
,
4306 xcoff_swap_reloc_in
,
4307 coff_bad_format_hook
,
4308 coff_set_arch_mach_hook
,
4311 coff_set_alignment_hook
,
4312 coff_slurp_symbol_table
,
4313 symname_in_debug_hook
,
4314 coff_pointerize_aux_hook
,
4316 dummy_reloc16_extra_cases
,
4317 dummy_reloc16_estimate
,
4318 NULL
, /* bfd_coff_sym_is_global */
4319 coff_compute_section_file_positions
,
4320 NULL
, /* _bfd_coff_start_final_link */
4321 xcoff_ppc_relocate_section
,
4322 coff_rtype_to_howto
,
4323 NULL
, /* _bfd_coff_adjust_symndx */
4324 _bfd_generic_link_add_one_symbol
,
4325 coff_link_output_has_begun
,
4326 coff_final_link_postscript
,
4327 NULL
/* print_pdata. */
4330 0x01DF, /* magic number */
4334 /* Function pointers to xcoff specific swap routines. */
4335 xcoff_swap_ldhdr_in
,
4336 xcoff_swap_ldhdr_out
,
4337 xcoff_swap_ldsym_in
,
4338 xcoff_swap_ldsym_out
,
4339 xcoff_swap_ldrel_in
,
4340 xcoff_swap_ldrel_out
,
4346 12, /* _xcoff_function_descriptor_size */
4350 1, /* _xcoff_ldhdr_version */
4352 _bfd_xcoff_put_symbol_name
,
4353 _bfd_xcoff_put_ldsymbol_name
,
4354 &xcoff_dynamic_reloc
,
4355 xcoff_create_csect_from_smclas
,
4357 /* Lineno and reloc count overflow. */
4358 xcoff_is_lineno_count_overflow
,
4359 xcoff_is_reloc_count_overflow
,
4361 xcoff_loader_symbol_offset
,
4362 xcoff_loader_reloc_offset
,
4365 &xcoff_glink_code
[0],
4366 36, /* _xcoff_glink_size */
4369 0, /* _xcoff_rtinit_size */
4370 xcoff_generate_rtinit
,
4373 /* The transfer vector that leads the outside world to all of the above. */
4374 const bfd_target powerpc_xcoff_vec
=
4377 bfd_target_xcoff_flavour
,
4378 BFD_ENDIAN_BIG
, /* data byte order is big */
4379 BFD_ENDIAN_BIG
, /* header byte order is big */
4381 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
4382 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
4384 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
4385 0, /* leading char */
4386 '/', /* ar_pad_char */
4387 15, /* ar_max_namelen */
4388 0, /* match priority. */
4412 { /* bfd_check_format */
4415 _bfd_xcoff_archive_p
,
4419 { /* bfd_set_format */
4420 _bfd_bool_bfd_false_error
,
4422 _bfd_generic_mkarchive
,
4423 _bfd_bool_bfd_false_error
4426 {/* bfd_write_contents */
4427 _bfd_bool_bfd_false_error
,
4428 coff_write_object_contents
,
4429 _bfd_xcoff_write_archive_contents
,
4430 _bfd_bool_bfd_false_error
4433 BFD_JUMP_TABLE_GENERIC (_bfd_xcoff
),
4434 BFD_JUMP_TABLE_COPY (_bfd_xcoff
),
4435 BFD_JUMP_TABLE_CORE (coff
),
4436 BFD_JUMP_TABLE_ARCHIVE (_bfd_xcoff
),
4437 BFD_JUMP_TABLE_SYMBOLS (_bfd_xcoff
),
4438 BFD_JUMP_TABLE_RELOCS (_bfd_xcoff
),
4439 BFD_JUMP_TABLE_WRITE (coff
),
4440 BFD_JUMP_TABLE_LINK (_bfd_xcoff
),
4441 BFD_JUMP_TABLE_DYNAMIC (_bfd_xcoff
),
4443 /* Opposite endian version, none exists */
4446 & bfd_pmac_xcoff_backend_data
,