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 xcoff_reloc_function xcoff_reloc_type_br
;
153 static xcoff_complain_function xcoff_complain_overflow_dont_func
;
154 static xcoff_complain_function xcoff_complain_overflow_bitfield_func
;
155 static xcoff_complain_function xcoff_complain_overflow_signed_func
;
156 static xcoff_complain_function xcoff_complain_overflow_unsigned_func
;
158 xcoff_reloc_function
*const
159 xcoff_calculate_relocation
[XCOFF_MAX_CALCULATE_RELOCATION
] =
161 xcoff_reloc_type_pos
, /* R_POS (0x00) */
162 xcoff_reloc_type_neg
, /* R_NEG (0x01) */
163 xcoff_reloc_type_rel
, /* R_REL (0x02) */
164 xcoff_reloc_type_toc
, /* R_TOC (0x03) */
165 xcoff_reloc_type_fail
, /* R_RTB (0x04) */
166 xcoff_reloc_type_toc
, /* R_GL (0x05) */
167 xcoff_reloc_type_toc
, /* R_TCL (0x06) */
168 xcoff_reloc_type_fail
, /* (0x07) */
169 xcoff_reloc_type_ba
, /* R_BA (0x08) */
170 xcoff_reloc_type_fail
, /* (0x09) */
171 xcoff_reloc_type_br
, /* R_BR (0x0a) */
172 xcoff_reloc_type_fail
, /* (0x0b) */
173 xcoff_reloc_type_pos
, /* R_RL (0x0c) */
174 xcoff_reloc_type_pos
, /* R_RLA (0x0d) */
175 xcoff_reloc_type_fail
, /* (0x0e) */
176 xcoff_reloc_type_noop
, /* R_REF (0x0f) */
177 xcoff_reloc_type_fail
, /* (0x10) */
178 xcoff_reloc_type_fail
, /* (0x11) */
179 xcoff_reloc_type_toc
, /* R_TRL (0x12) */
180 xcoff_reloc_type_toc
, /* R_TRLA (0x13) */
181 xcoff_reloc_type_fail
, /* R_RRTBI (0x14) */
182 xcoff_reloc_type_fail
, /* R_RRTBA (0x15) */
183 xcoff_reloc_type_ba
, /* R_CAI (0x16) */
184 xcoff_reloc_type_crel
, /* R_CREL (0x17) */
185 xcoff_reloc_type_ba
, /* R_RBA (0x18) */
186 xcoff_reloc_type_ba
, /* R_RBAC (0x19) */
187 xcoff_reloc_type_br
, /* R_RBR (0x1a) */
188 xcoff_reloc_type_ba
, /* R_RBRC (0x1b) */
191 xcoff_complain_function
*const
192 xcoff_complain_overflow
[XCOFF_MAX_COMPLAIN_OVERFLOW
] =
194 xcoff_complain_overflow_dont_func
,
195 xcoff_complain_overflow_bitfield_func
,
196 xcoff_complain_overflow_signed_func
,
197 xcoff_complain_overflow_unsigned_func
,
200 /* Information about one member of an archive. */
203 /* The archive member that this structure describes. */
206 /* The number of bytes of padding that must be inserted before the
207 start of the member in order to ensure that the section contents
208 are correctly aligned. */
209 unsigned int leading_padding
;
211 /* The offset of MEMBER from the start of the archive (i.e. the end
212 of the leading padding). */
215 /* The normalized name of MEMBER. */
218 /* The length of NAME, without padding. */
219 bfd_size_type namlen
;
221 /* The length of NAME, with padding. */
222 bfd_size_type padded_namlen
;
224 /* The size of MEMBER's header, including the name and magic sequence. */
225 bfd_size_type header_size
;
227 /* The size of the MEMBER's contents. */
228 bfd_size_type contents_size
;
230 /* The number of bytes of padding that must be inserted after MEMBER
231 in order to preserve even alignment. */
232 bfd_size_type trailing_padding
;
235 /* A structure used for iterating over the members of an archive. */
236 struct archive_iterator
238 /* The archive itself. */
241 /* Information about the current archive member. */
242 struct member_layout current
;
244 /* Information about the next archive member. MEMBER is null if there
245 are no more archive members, in which case OFFSET is the offset of
246 the first unused byte. */
247 struct member_layout next
;
250 /* Initialize INFO so that it describes member MEMBER of archive ARCHIVE.
251 OFFSET is the even-padded offset of MEMBER, not including any leading
252 padding needed for section alignment. */
255 member_layout_init (struct member_layout
*info
, bfd
*archive
,
256 bfd
*member
, file_ptr offset
)
258 info
->member
= member
;
259 info
->leading_padding
= 0;
262 info
->name
= normalize_filename (member
);
263 info
->namlen
= strlen (info
->name
);
264 info
->padded_namlen
= info
->namlen
+ (info
->namlen
& 1);
265 if (xcoff_big_format_p (archive
))
266 info
->header_size
= SIZEOF_AR_HDR_BIG
;
268 info
->header_size
= SIZEOF_AR_HDR
;
269 info
->header_size
+= info
->padded_namlen
+ SXCOFFARFMAG
;
270 info
->contents_size
= arelt_size (member
);
271 info
->trailing_padding
= info
->contents_size
& 1;
273 if (bfd_check_format (member
, bfd_object
)
274 && bfd_get_flavour (member
) == bfd_target_xcoff_flavour
275 && (member
->flags
& DYNAMIC
) != 0)
276 info
->leading_padding
277 = (-(offset
+ info
->header_size
)
278 & ((1 << bfd_xcoff_text_align_power (member
)) - 1));
280 info
->offset
= offset
+ info
->leading_padding
;
283 /* Set up ITERATOR to iterate through archive ARCHIVE. */
286 archive_iterator_begin (struct archive_iterator
*iterator
,
289 iterator
->archive
= archive
;
290 member_layout_init (&iterator
->next
, archive
, archive
->archive_head
,
291 xcoff_big_format_p (archive
)
292 ? SIZEOF_AR_FILE_HDR_BIG
293 : SIZEOF_AR_FILE_HDR
);
296 /* Make ITERATOR visit the first unvisited archive member. Return true
297 on success; return false if all members have been visited. */
300 archive_iterator_next (struct archive_iterator
*iterator
)
302 if (!iterator
->next
.member
)
305 iterator
->current
= iterator
->next
;
306 member_layout_init (&iterator
->next
, iterator
->archive
,
307 iterator
->current
.member
->archive_next
,
308 iterator
->current
.offset
309 + iterator
->current
.header_size
310 + iterator
->current
.contents_size
311 + iterator
->current
.trailing_padding
);
315 /* We use our own tdata type. Its first field is the COFF tdata type,
316 so the COFF routines are compatible. */
319 _bfd_xcoff_mkobject (bfd
*abfd
)
321 coff_data_type
*coff
;
322 size_t amt
= sizeof (struct xcoff_tdata
);
324 abfd
->tdata
.xcoff_obj_data
= (struct xcoff_tdata
*) bfd_zalloc (abfd
, amt
);
325 if (abfd
->tdata
.xcoff_obj_data
== NULL
)
327 coff
= coff_data (abfd
);
328 coff
->symbols
= (coff_symbol_type
*) NULL
;
329 coff
->conversion_table
= (unsigned int *) NULL
;
330 coff
->raw_syments
= (struct coff_ptr_struct
*) NULL
;
333 xcoff_data (abfd
)->modtype
= ('1' << 8) | 'L';
335 /* We set cputype to -1 to indicate that it has not been
337 xcoff_data (abfd
)->cputype
= -1;
339 xcoff_data (abfd
)->csects
= NULL
;
340 xcoff_data (abfd
)->debug_indices
= NULL
;
342 /* text section alignment is different than the default */
343 bfd_xcoff_text_align_power (abfd
) = 2;
348 /* Copy XCOFF data from one BFD to another. */
351 _bfd_xcoff_copy_private_bfd_data (bfd
*ibfd
, bfd
*obfd
)
353 struct xcoff_tdata
*ix
, *ox
;
356 if (ibfd
->xvec
!= obfd
->xvec
)
358 ix
= xcoff_data (ibfd
);
359 ox
= xcoff_data (obfd
);
360 ox
->full_aouthdr
= ix
->full_aouthdr
;
366 sec
= coff_section_from_bfd_index (ibfd
, ix
->sntoc
);
370 ox
->sntoc
= sec
->output_section
->target_index
;
372 if (ix
->snentry
== 0)
376 sec
= coff_section_from_bfd_index (ibfd
, ix
->snentry
);
380 ox
->snentry
= sec
->output_section
->target_index
;
382 bfd_xcoff_text_align_power (obfd
) = bfd_xcoff_text_align_power (ibfd
);
383 bfd_xcoff_data_align_power (obfd
) = bfd_xcoff_data_align_power (ibfd
);
384 ox
->modtype
= ix
->modtype
;
385 ox
->cputype
= ix
->cputype
;
386 ox
->maxdata
= ix
->maxdata
;
387 ox
->maxstack
= ix
->maxstack
;
391 /* I don't think XCOFF really has a notion of local labels based on
392 name. This will mean that ld -X doesn't actually strip anything.
393 The AIX native linker does not have a -X option, and it ignores the
397 _bfd_xcoff_is_local_label_name (bfd
*abfd ATTRIBUTE_UNUSED
,
398 const char *name ATTRIBUTE_UNUSED
)
404 _bfd_xcoff_swap_sym_in (bfd
*abfd
, void * ext1
, void * in1
)
406 SYMENT
*ext
= (SYMENT
*)ext1
;
407 struct internal_syment
* in
= (struct internal_syment
*)in1
;
409 if (ext
->e
.e_name
[0] != 0)
411 memcpy (in
->_n
._n_name
, ext
->e
.e_name
, SYMNMLEN
);
415 in
->_n
._n_n
._n_zeroes
= 0;
416 in
->_n
._n_n
._n_offset
= H_GET_32 (abfd
, ext
->e
.e
.e_offset
);
419 in
->n_value
= H_GET_32 (abfd
, ext
->e_value
);
420 in
->n_scnum
= (short) H_GET_16 (abfd
, ext
->e_scnum
);
421 in
->n_type
= H_GET_16 (abfd
, ext
->e_type
);
422 in
->n_sclass
= H_GET_8 (abfd
, ext
->e_sclass
);
423 in
->n_numaux
= H_GET_8 (abfd
, ext
->e_numaux
);
427 _bfd_xcoff_swap_sym_out (bfd
*abfd
, void * inp
, void * extp
)
429 struct internal_syment
*in
= (struct internal_syment
*)inp
;
430 SYMENT
*ext
=(SYMENT
*)extp
;
432 if (in
->_n
._n_name
[0] != 0)
434 memcpy (ext
->e
.e_name
, in
->_n
._n_name
, SYMNMLEN
);
438 H_PUT_32 (abfd
, 0, ext
->e
.e
.e_zeroes
);
439 H_PUT_32 (abfd
, in
->_n
._n_n
._n_offset
, ext
->e
.e
.e_offset
);
442 H_PUT_32 (abfd
, in
->n_value
, ext
->e_value
);
443 H_PUT_16 (abfd
, in
->n_scnum
, ext
->e_scnum
);
444 H_PUT_16 (abfd
, in
->n_type
, ext
->e_type
);
445 H_PUT_8 (abfd
, in
->n_sclass
, ext
->e_sclass
);
446 H_PUT_8 (abfd
, in
->n_numaux
, ext
->e_numaux
);
447 return bfd_coff_symesz (abfd
);
451 _bfd_xcoff_swap_aux_in (bfd
*abfd
, void * ext1
, int type
, int in_class
,
452 int indx
, int numaux
, void * in1
)
454 AUXENT
* ext
= (AUXENT
*)ext1
;
455 union internal_auxent
*in
= (union internal_auxent
*)in1
;
460 if (ext
->x_file
.x_n
.x_fname
[0] == 0)
462 in
->x_file
.x_n
.x_zeroes
= 0;
463 in
->x_file
.x_n
.x_offset
=
464 H_GET_32 (abfd
, ext
->x_file
.x_n
.x_n
.x_offset
);
471 memcpy (in
->x_file
.x_fname
, ext
->x_file
.x_n
.x_fname
,
472 numaux
* sizeof (AUXENT
));
476 memcpy (in
->x_file
.x_fname
, ext
->x_file
.x_n
.x_fname
, FILNMLEN
);
481 /* RS/6000 "csect" auxents */
485 if (indx
+ 1 == numaux
)
487 in
->x_csect
.x_scnlen
.l
= H_GET_32 (abfd
, ext
->x_csect
.x_scnlen
);
488 in
->x_csect
.x_parmhash
= H_GET_32 (abfd
, ext
->x_csect
.x_parmhash
);
489 in
->x_csect
.x_snhash
= H_GET_16 (abfd
, ext
->x_csect
.x_snhash
);
490 /* We don't have to hack bitfields in x_smtyp because it's
491 defined by shifts-and-ands, which are equivalent on all
493 in
->x_csect
.x_smtyp
= H_GET_8 (abfd
, ext
->x_csect
.x_smtyp
);
494 in
->x_csect
.x_smclas
= H_GET_8 (abfd
, ext
->x_csect
.x_smclas
);
495 in
->x_csect
.x_stab
= H_GET_32 (abfd
, ext
->x_csect
.x_stab
);
496 in
->x_csect
.x_snstab
= H_GET_16 (abfd
, ext
->x_csect
.x_snstab
);
506 in
->x_scn
.x_scnlen
= H_GET_32 (abfd
, ext
->x_scn
.x_scnlen
);
507 in
->x_scn
.x_nreloc
= H_GET_16 (abfd
, ext
->x_scn
.x_nreloc
);
508 in
->x_scn
.x_nlinno
= H_GET_16 (abfd
, ext
->x_scn
.x_nlinno
);
509 /* PE defines some extra fields; we zero them out for
511 in
->x_scn
.x_checksum
= 0;
512 in
->x_scn
.x_associated
= 0;
513 in
->x_scn
.x_comdat
= 0;
520 in
->x_sym
.x_tagndx
.l
= H_GET_32 (abfd
, ext
->x_sym
.x_tagndx
);
521 in
->x_sym
.x_tvndx
= H_GET_16 (abfd
, ext
->x_sym
.x_tvndx
);
523 if (in_class
== C_BLOCK
|| in_class
== C_FCN
|| ISFCN (type
)
526 in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
=
527 H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
528 in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
=
529 H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
533 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0] =
534 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0]);
535 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1] =
536 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1]);
537 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2] =
538 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2]);
539 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3] =
540 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3]);
545 in
->x_sym
.x_misc
.x_fsize
= H_GET_32 (abfd
, ext
->x_sym
.x_misc
.x_fsize
);
549 in
->x_sym
.x_misc
.x_lnsz
.x_lnno
=
550 H_GET_16 (abfd
, ext
->x_sym
.x_misc
.x_lnsz
.x_lnno
);
551 in
->x_sym
.x_misc
.x_lnsz
.x_size
=
552 H_GET_16 (abfd
, ext
->x_sym
.x_misc
.x_lnsz
.x_size
);
556 /* The semicolon is because MSVC doesn't like labels at
561 _bfd_xcoff_swap_aux_out (bfd
*abfd
, void * inp
, int type
, int in_class
,
562 int indx ATTRIBUTE_UNUSED
,
563 int numaux ATTRIBUTE_UNUSED
,
566 union internal_auxent
*in
= (union internal_auxent
*)inp
;
567 AUXENT
*ext
= (AUXENT
*)extp
;
569 memset (ext
, 0, bfd_coff_auxesz (abfd
));
573 if (in
->x_file
.x_fname
[0] == 0)
575 H_PUT_32 (abfd
, 0, ext
->x_file
.x_n
.x_n
.x_zeroes
);
576 H_PUT_32 (abfd
, in
->x_file
.x_n
.x_offset
,
577 ext
->x_file
.x_n
.x_n
.x_offset
);
581 memcpy (ext
->x_file
.x_n
.x_fname
, in
->x_file
.x_fname
, FILNMLEN
);
585 /* RS/6000 "csect" auxents */
589 if (indx
+ 1 == numaux
)
591 H_PUT_32 (abfd
, in
->x_csect
.x_scnlen
.l
, ext
->x_csect
.x_scnlen
);
592 H_PUT_32 (abfd
, in
->x_csect
.x_parmhash
, ext
->x_csect
.x_parmhash
);
593 H_PUT_16 (abfd
, in
->x_csect
.x_snhash
, ext
->x_csect
.x_snhash
);
594 /* We don't have to hack bitfields in x_smtyp because it's
595 defined by shifts-and-ands, which are equivalent on all
597 H_PUT_8 (abfd
, in
->x_csect
.x_smtyp
, ext
->x_csect
.x_smtyp
);
598 H_PUT_8 (abfd
, in
->x_csect
.x_smclas
, ext
->x_csect
.x_smclas
);
599 H_PUT_32 (abfd
, in
->x_csect
.x_stab
, ext
->x_csect
.x_stab
);
600 H_PUT_16 (abfd
, in
->x_csect
.x_snstab
, ext
->x_csect
.x_snstab
);
610 H_PUT_32 (abfd
, in
->x_scn
.x_scnlen
, ext
->x_scn
.x_scnlen
);
611 H_PUT_16 (abfd
, in
->x_scn
.x_nreloc
, ext
->x_scn
.x_nreloc
);
612 H_PUT_16 (abfd
, in
->x_scn
.x_nlinno
, ext
->x_scn
.x_nlinno
);
618 H_PUT_32 (abfd
, in
->x_sym
.x_tagndx
.l
, ext
->x_sym
.x_tagndx
);
619 H_PUT_16 (abfd
, in
->x_sym
.x_tvndx
, ext
->x_sym
.x_tvndx
);
621 if (in_class
== C_BLOCK
|| in_class
== C_FCN
|| ISFCN (type
)
624 H_PUT_32 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
,
625 ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
626 H_PUT_32 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
627 ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
631 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0],
632 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0]);
633 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1],
634 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1]);
635 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2],
636 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2]);
637 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3],
638 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3]);
642 H_PUT_32 (abfd
, in
->x_sym
.x_misc
.x_fsize
, ext
->x_sym
.x_misc
.x_fsize
);
645 H_PUT_16 (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_lnno
,
646 ext
->x_sym
.x_misc
.x_lnsz
.x_lnno
);
647 H_PUT_16 (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_size
,
648 ext
->x_sym
.x_misc
.x_lnsz
.x_size
);
652 return bfd_coff_auxesz (abfd
);
655 /* The XCOFF reloc table. Actually, XCOFF relocations specify the
656 bitsize and whether they are signed or not, along with a
657 conventional type. This table is for the types, which are used for
658 different algorithms for putting in the reloc. Many of these
659 relocs need special_function entries, which I have not written. */
661 reloc_howto_type xcoff_howto_table
[] =
663 /* 0x00: Standard 32 bit relocation. */
664 HOWTO (R_POS
, /* type */
666 2, /* size (0 = byte, 1 = short, 2 = long) */
668 FALSE
, /* pc_relative */
670 complain_overflow_bitfield
, /* complain_on_overflow */
671 0, /* special_function */
673 TRUE
, /* partial_inplace */
674 0xffffffff, /* src_mask */
675 0xffffffff, /* dst_mask */
676 FALSE
), /* pcrel_offset */
678 /* 0x01: 32 bit relocation, but store negative value. */
679 HOWTO (R_NEG
, /* type */
681 -2, /* size (0 = byte, 1 = short, 2 = long) */
683 FALSE
, /* pc_relative */
685 complain_overflow_bitfield
, /* complain_on_overflow */
686 0, /* special_function */
688 TRUE
, /* partial_inplace */
689 0xffffffff, /* src_mask */
690 0xffffffff, /* dst_mask */
691 FALSE
), /* pcrel_offset */
693 /* 0x02: 32 bit PC relative relocation. */
694 HOWTO (R_REL
, /* type */
696 2, /* size (0 = byte, 1 = short, 2 = long) */
698 TRUE
, /* pc_relative */
700 complain_overflow_signed
, /* complain_on_overflow */
701 0, /* special_function */
703 TRUE
, /* partial_inplace */
704 0xffffffff, /* src_mask */
705 0xffffffff, /* dst_mask */
706 FALSE
), /* pcrel_offset */
708 /* 0x03: 16 bit TOC relative relocation. */
709 HOWTO (R_TOC
, /* type */
711 1, /* size (0 = byte, 1 = short, 2 = long) */
713 FALSE
, /* pc_relative */
715 complain_overflow_bitfield
, /* complain_on_overflow */
716 0, /* special_function */
718 TRUE
, /* partial_inplace */
719 0xffff, /* src_mask */
720 0xffff, /* dst_mask */
721 FALSE
), /* pcrel_offset */
723 /* 0x04: I don't really know what this is. */
724 HOWTO (R_RTB
, /* type */
726 2, /* size (0 = byte, 1 = short, 2 = long) */
728 FALSE
, /* pc_relative */
730 complain_overflow_bitfield
, /* complain_on_overflow */
731 0, /* special_function */
733 TRUE
, /* partial_inplace */
734 0xffffffff, /* src_mask */
735 0xffffffff, /* dst_mask */
736 FALSE
), /* pcrel_offset */
738 /* 0x05: External TOC relative symbol. */
739 HOWTO (R_GL
, /* type */
741 1, /* size (0 = byte, 1 = short, 2 = long) */
743 FALSE
, /* pc_relative */
745 complain_overflow_bitfield
, /* complain_on_overflow */
746 0, /* special_function */
748 TRUE
, /* partial_inplace */
749 0xffff, /* src_mask */
750 0xffff, /* dst_mask */
751 FALSE
), /* pcrel_offset */
753 /* 0x06: Local TOC relative symbol. */
754 HOWTO (R_TCL
, /* type */
756 1, /* size (0 = byte, 1 = short, 2 = long) */
758 FALSE
, /* pc_relative */
760 complain_overflow_bitfield
, /* complain_on_overflow */
761 0, /* special_function */
763 TRUE
, /* partial_inplace */
764 0xffff, /* src_mask */
765 0xffff, /* dst_mask */
766 FALSE
), /* pcrel_offset */
770 /* 0x08: Non modifiable absolute branch. */
771 HOWTO (R_BA
, /* type */
773 2, /* size (0 = byte, 1 = short, 2 = long) */
775 FALSE
, /* pc_relative */
777 complain_overflow_bitfield
, /* complain_on_overflow */
778 0, /* special_function */
779 "R_BA_26", /* name */
780 TRUE
, /* partial_inplace */
781 0x03fffffc, /* src_mask */
782 0x03fffffc, /* dst_mask */
783 FALSE
), /* pcrel_offset */
787 /* 0x0a: Non modifiable relative branch. */
788 HOWTO (R_BR
, /* type */
790 2, /* size (0 = byte, 1 = short, 2 = long) */
792 TRUE
, /* pc_relative */
794 complain_overflow_signed
, /* complain_on_overflow */
795 0, /* special_function */
797 TRUE
, /* partial_inplace */
798 0x03fffffc, /* src_mask */
799 0x03fffffc, /* dst_mask */
800 FALSE
), /* pcrel_offset */
804 /* 0x0c: Indirect load. */
805 HOWTO (R_RL
, /* type */
807 1, /* size (0 = byte, 1 = short, 2 = long) */
809 FALSE
, /* pc_relative */
811 complain_overflow_bitfield
, /* complain_on_overflow */
812 0, /* special_function */
814 TRUE
, /* partial_inplace */
815 0xffff, /* src_mask */
816 0xffff, /* dst_mask */
817 FALSE
), /* pcrel_offset */
819 /* 0x0d: Load address. */
820 HOWTO (R_RLA
, /* type */
822 1, /* size (0 = byte, 1 = short, 2 = long) */
824 FALSE
, /* pc_relative */
826 complain_overflow_bitfield
, /* complain_on_overflow */
827 0, /* special_function */
829 TRUE
, /* partial_inplace */
830 0xffff, /* src_mask */
831 0xffff, /* dst_mask */
832 FALSE
), /* pcrel_offset */
836 /* 0x0f: Non-relocating reference. Bitsize is 1 so that r_rsize is 0. */
837 HOWTO (R_REF
, /* type */
839 0, /* size (0 = byte, 1 = short, 2 = long) */
841 FALSE
, /* pc_relative */
843 complain_overflow_dont
, /* complain_on_overflow */
844 0, /* special_function */
846 FALSE
, /* partial_inplace */
849 FALSE
), /* pcrel_offset */
854 /* 0x12: TOC relative indirect load. */
855 HOWTO (R_TRL
, /* type */
857 1, /* size (0 = byte, 1 = short, 2 = long) */
859 FALSE
, /* pc_relative */
861 complain_overflow_bitfield
, /* complain_on_overflow */
862 0, /* special_function */
864 TRUE
, /* partial_inplace */
865 0xffff, /* src_mask */
866 0xffff, /* dst_mask */
867 FALSE
), /* pcrel_offset */
869 /* 0x13: TOC relative load address. */
870 HOWTO (R_TRLA
, /* type */
872 1, /* size (0 = byte, 1 = short, 2 = long) */
874 FALSE
, /* pc_relative */
876 complain_overflow_bitfield
, /* complain_on_overflow */
877 0, /* special_function */
879 TRUE
, /* partial_inplace */
880 0xffff, /* src_mask */
881 0xffff, /* dst_mask */
882 FALSE
), /* pcrel_offset */
884 /* 0x14: Modifiable relative branch. */
885 HOWTO (R_RRTBI
, /* type */
887 2, /* size (0 = byte, 1 = short, 2 = long) */
889 FALSE
, /* pc_relative */
891 complain_overflow_bitfield
, /* complain_on_overflow */
892 0, /* special_function */
893 "R_RRTBI", /* name */
894 TRUE
, /* partial_inplace */
895 0xffffffff, /* src_mask */
896 0xffffffff, /* dst_mask */
897 FALSE
), /* pcrel_offset */
899 /* 0x15: Modifiable absolute branch. */
900 HOWTO (R_RRTBA
, /* type */
902 2, /* size (0 = byte, 1 = short, 2 = long) */
904 FALSE
, /* pc_relative */
906 complain_overflow_bitfield
, /* complain_on_overflow */
907 0, /* special_function */
908 "R_RRTBA", /* name */
909 TRUE
, /* partial_inplace */
910 0xffffffff, /* src_mask */
911 0xffffffff, /* dst_mask */
912 FALSE
), /* pcrel_offset */
914 /* 0x16: Modifiable call absolute indirect. */
915 HOWTO (R_CAI
, /* type */
917 1, /* size (0 = byte, 1 = short, 2 = long) */
919 FALSE
, /* pc_relative */
921 complain_overflow_bitfield
, /* complain_on_overflow */
922 0, /* special_function */
924 TRUE
, /* partial_inplace */
925 0xffff, /* src_mask */
926 0xffff, /* dst_mask */
927 FALSE
), /* pcrel_offset */
929 /* 0x17: Modifiable call relative. */
930 HOWTO (R_CREL
, /* type */
932 1, /* size (0 = byte, 1 = short, 2 = long) */
934 FALSE
, /* pc_relative */
936 complain_overflow_bitfield
, /* complain_on_overflow */
937 0, /* special_function */
939 TRUE
, /* partial_inplace */
940 0xffff, /* src_mask */
941 0xffff, /* dst_mask */
942 FALSE
), /* pcrel_offset */
944 /* 0x18: Modifiable branch absolute. */
945 HOWTO (R_RBA
, /* type */
947 2, /* size (0 = byte, 1 = short, 2 = long) */
949 FALSE
, /* pc_relative */
951 complain_overflow_bitfield
, /* complain_on_overflow */
952 0, /* special_function */
954 TRUE
, /* partial_inplace */
955 0x03fffffc, /* src_mask */
956 0x03fffffc, /* dst_mask */
957 FALSE
), /* pcrel_offset */
959 /* 0x19: Modifiable branch absolute. */
960 HOWTO (R_RBAC
, /* type */
962 2, /* size (0 = byte, 1 = short, 2 = long) */
964 FALSE
, /* pc_relative */
966 complain_overflow_bitfield
, /* complain_on_overflow */
967 0, /* special_function */
969 TRUE
, /* partial_inplace */
970 0xffffffff, /* src_mask */
971 0xffffffff, /* dst_mask */
972 FALSE
), /* pcrel_offset */
974 /* 0x1a: Modifiable branch relative. */
975 HOWTO (R_RBR
, /* type */
977 2, /* size (0 = byte, 1 = short, 2 = long) */
979 FALSE
, /* pc_relative */
981 complain_overflow_signed
, /* complain_on_overflow */
982 0, /* special_function */
983 "R_RBR_26", /* name */
984 TRUE
, /* partial_inplace */
985 0x03fffffc, /* src_mask */
986 0x03fffffc, /* dst_mask */
987 FALSE
), /* pcrel_offset */
989 /* 0x1b: Modifiable branch absolute. */
990 HOWTO (R_RBRC
, /* type */
992 1, /* size (0 = byte, 1 = short, 2 = long) */
994 FALSE
, /* pc_relative */
996 complain_overflow_bitfield
, /* complain_on_overflow */
997 0, /* special_function */
999 TRUE
, /* partial_inplace */
1000 0xffff, /* src_mask */
1001 0xffff, /* dst_mask */
1002 FALSE
), /* pcrel_offset */
1004 /* 0x1c: 16 bit Non modifiable absolute branch. */
1005 HOWTO (R_BA
, /* type */
1007 1, /* size (0 = byte, 1 = short, 2 = long) */
1009 FALSE
, /* pc_relative */
1011 complain_overflow_bitfield
, /* complain_on_overflow */
1012 0, /* special_function */
1013 "R_BA_16", /* name */
1014 TRUE
, /* partial_inplace */
1015 0xfffc, /* src_mask */
1016 0xfffc, /* dst_mask */
1017 FALSE
), /* pcrel_offset */
1019 /* 0x1d: Modifiable branch relative. */
1020 HOWTO (R_RBR
, /* type */
1022 1, /* size (0 = byte, 1 = short, 2 = long) */
1024 TRUE
, /* pc_relative */
1026 complain_overflow_signed
, /* complain_on_overflow */
1027 0, /* special_function */
1028 "R_RBR_16", /* name */
1029 TRUE
, /* partial_inplace */
1030 0xfffc, /* src_mask */
1031 0xfffc, /* dst_mask */
1032 FALSE
), /* pcrel_offset */
1034 /* 0x1e: Modifiable branch relative. */
1035 HOWTO (R_RBA
, /* type */
1037 1, /* size (0 = byte, 1 = short, 2 = long) */
1039 FALSE
, /* pc_relative */
1041 complain_overflow_signed
, /* complain_on_overflow */
1042 0, /* special_function */
1043 "R_RBA_16", /* name */
1044 TRUE
, /* partial_inplace */
1045 0xffff, /* src_mask */
1046 0xffff, /* dst_mask */
1047 FALSE
), /* pcrel_offset */
1051 xcoff_rtype2howto (arelent
*relent
, struct internal_reloc
*internal
)
1053 if (internal
->r_type
> R_RBRC
)
1056 /* Default howto layout works most of the time */
1057 relent
->howto
= &xcoff_howto_table
[internal
->r_type
];
1059 /* Special case some 16 bit reloc */
1060 if (15 == (internal
->r_size
& 0x1f))
1062 if (R_BA
== internal
->r_type
)
1063 relent
->howto
= &xcoff_howto_table
[0x1c];
1064 else if (R_RBR
== internal
->r_type
)
1065 relent
->howto
= &xcoff_howto_table
[0x1d];
1066 else if (R_RBA
== internal
->r_type
)
1067 relent
->howto
= &xcoff_howto_table
[0x1e];
1070 /* The r_size field of an XCOFF reloc encodes the bitsize of the
1071 relocation, as well as indicating whether it is signed or not.
1072 Doublecheck that the relocation information gathered from the
1073 type matches this information. The bitsize is not significant
1074 for R_REF relocs. */
1075 if (relent
->howto
->dst_mask
!= 0
1076 && (relent
->howto
->bitsize
1077 != ((unsigned int) internal
->r_size
& 0x1f) + 1))
1082 _bfd_xcoff_reloc_type_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1083 bfd_reloc_code_real_type code
)
1087 case BFD_RELOC_PPC_B26
:
1088 return &xcoff_howto_table
[0xa];
1089 case BFD_RELOC_PPC_BA16
:
1090 return &xcoff_howto_table
[0x1c];
1091 case BFD_RELOC_PPC_BA26
:
1092 return &xcoff_howto_table
[8];
1093 case BFD_RELOC_PPC_TOC16
:
1094 return &xcoff_howto_table
[3];
1096 /* Note that this relocation is only internally used by gas. */
1097 return &xcoff_howto_table
[0xc];
1098 case BFD_RELOC_PPC_B16
:
1099 return &xcoff_howto_table
[0x1d];
1101 case BFD_RELOC_CTOR
:
1102 return &xcoff_howto_table
[0];
1103 case BFD_RELOC_NONE
:
1104 return &xcoff_howto_table
[0xf];
1110 static reloc_howto_type
*
1111 _bfd_xcoff_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1117 i
< sizeof (xcoff_howto_table
) / sizeof (xcoff_howto_table
[0]);
1119 if (xcoff_howto_table
[i
].name
!= NULL
1120 && strcasecmp (xcoff_howto_table
[i
].name
, r_name
) == 0)
1121 return &xcoff_howto_table
[i
];
1126 /* XCOFF archive support. The original version of this code was by
1127 Damon A. Permezel. It was enhanced to permit cross support, and
1128 writing archive files, by Ian Lance Taylor, Cygnus Support.
1130 XCOFF uses its own archive format. Everything is hooked together
1131 with file offset links, so it is possible to rapidly update an
1132 archive in place. Of course, we don't do that. An XCOFF archive
1133 has a real file header, not just an ARMAG string. The structure of
1134 the file header and of each archive header appear below.
1136 An XCOFF archive also has a member table, which is a list of
1137 elements in the archive (you can get that by looking through the
1138 linked list, but you have to read a lot more of the file). The
1139 member table has a normal archive header with an empty name. It is
1140 normally (and perhaps must be) the second to last entry in the
1141 archive. The member table data is almost printable ASCII. It
1142 starts with a 12 character decimal string which is the number of
1143 entries in the table. For each entry it has a 12 character decimal
1144 string which is the offset in the archive of that member. These
1145 entries are followed by a series of null terminated strings which
1146 are the member names for each entry.
1148 Finally, an XCOFF archive has a global symbol table, which is what
1149 we call the armap. The global symbol table has a normal archive
1150 header with an empty name. It is normally (and perhaps must be)
1151 the last entry in the archive. The contents start with a four byte
1152 binary number which is the number of entries. This is followed by
1153 a that many four byte binary numbers; each is the file offset of an
1154 entry in the archive. These numbers are followed by a series of
1155 null terminated strings, which are symbol names.
1157 AIX 4.3 introduced a new archive format which can handle larger
1158 files and also 32- and 64-bit objects in the same archive. The
1159 things said above remain true except that there is now more than
1160 one global symbol table. The one is used to index 32-bit objects,
1161 the other for 64-bit objects.
1163 The new archives (recognizable by the new ARMAG string) has larger
1164 field lengths so that we cannot really share any code. Also we have
1165 to take care that we are not generating the new form of archives
1166 on AIX 4.2 or earlier systems. */
1168 /* PR 21786: The PE/COFF standard does not require NUL termination for any of
1169 the ASCII fields in the archive headers. So in order to be able to extract
1170 numerical values we provide our own versions of strtol and strtoll which
1171 take a maximum length as an additional parameter. Also - just to save space,
1172 we omit the endptr return parameter, since we know that it is never used. */
1175 _bfd_strntol (const char * nptr
, int base
, unsigned int maxlen
)
1177 char buf
[24]; /* Should be enough. */
1179 BFD_ASSERT (maxlen
< (sizeof (buf
) - 1));
1181 memcpy (buf
, nptr
, maxlen
);
1183 return strtol (buf
, NULL
, base
);
1187 _bfd_strntoll (const char * nptr
, int base
, unsigned int maxlen
)
1189 char buf
[32]; /* Should be enough. */
1191 BFD_ASSERT (maxlen
< (sizeof (buf
) - 1));
1193 memcpy (buf
, nptr
, maxlen
);
1195 return strtoll (buf
, NULL
, base
);
1198 /* Macro to read an ASCII value stored in an archive header field. */
1199 #define GET_VALUE_IN_FIELD(VAR, FIELD, BASE) \
1202 (VAR) = (sizeof (VAR) > sizeof (long) \
1203 ? _bfd_strntoll (FIELD, BASE, sizeof FIELD) \
1204 : _bfd_strntol (FIELD, BASE, sizeof FIELD)); \
1208 #define EQ_VALUE_IN_FIELD(VAR, FIELD, BASE) \
1209 (sizeof (VAR) > sizeof (long) \
1210 ? (VAR) == _bfd_strntoll (FIELD, BASE, sizeof FIELD) \
1211 : (VAR) == _bfd_strntol (FIELD, BASE, sizeof FIELD))
1213 /* Read in the armap of an XCOFF archive. */
1216 _bfd_xcoff_slurp_armap (bfd
*abfd
)
1221 bfd_byte
*contents
, *cend
;
1226 if (xcoff_ardata (abfd
) == NULL
)
1228 abfd
->has_armap
= FALSE
;
1232 if (! xcoff_big_format_p (abfd
))
1234 /* This is for the old format. */
1235 struct xcoff_ar_hdr hdr
;
1237 GET_VALUE_IN_FIELD (off
, xcoff_ardata (abfd
)->symoff
, 10);
1240 abfd
->has_armap
= FALSE
;
1244 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1247 /* The symbol table starts with a normal archive header. */
1248 if (bfd_bread (&hdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
1252 /* Skip the name (normally empty). */
1253 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1254 off
= ((namlen
+ 1) & ~ (size_t) 1) + SXCOFFARFMAG
;
1255 if (bfd_seek (abfd
, off
, SEEK_CUR
) != 0)
1258 GET_VALUE_IN_FIELD (sz
, hdr
.size
, 10);
1261 bfd_set_error (bfd_error_bad_value
);
1265 /* Read in the entire symbol table. */
1266 contents
= (bfd_byte
*) _bfd_alloc_and_read (abfd
, sz
+ 1, sz
);
1267 if (contents
== NULL
)
1270 /* Ensure strings are NULL terminated so we don't wander off the
1271 end of the buffer. */
1274 /* The symbol table starts with a four byte count. */
1275 c
= H_GET_32 (abfd
, contents
);
1279 bfd_set_error (bfd_error_bad_value
);
1283 bfd_ardata (abfd
)->symdefs
=
1284 ((carsym
*) bfd_alloc (abfd
, c
* sizeof (carsym
)));
1285 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1288 /* After the count comes a list of four byte file offsets. */
1289 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 4;
1291 ++i
, ++arsym
, p
+= 4)
1292 arsym
->file_offset
= H_GET_32 (abfd
, p
);
1296 /* This is for the new format. */
1297 struct xcoff_ar_hdr_big hdr
;
1299 GET_VALUE_IN_FIELD (off
, xcoff_ardata_big (abfd
)->symoff
, 10);
1302 abfd
->has_armap
= FALSE
;
1306 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1309 /* The symbol table starts with a normal archive header. */
1310 if (bfd_bread (&hdr
, (bfd_size_type
) SIZEOF_AR_HDR_BIG
, abfd
)
1311 != SIZEOF_AR_HDR_BIG
)
1314 /* Skip the name (normally empty). */
1315 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1316 off
= ((namlen
+ 1) & ~ (size_t) 1) + SXCOFFARFMAG
;
1317 if (bfd_seek (abfd
, off
, SEEK_CUR
) != 0)
1320 GET_VALUE_IN_FIELD (sz
, hdr
.size
, 10);
1323 bfd_set_error (bfd_error_bad_value
);
1327 /* Read in the entire symbol table. */
1328 contents
= (bfd_byte
*) _bfd_alloc_and_read (abfd
, sz
+ 1, sz
);
1329 if (contents
== NULL
)
1332 /* Ensure strings are NULL terminated so we don't wander off the
1333 end of the buffer. */
1336 /* The symbol table starts with an eight byte count. */
1337 c
= H_GET_64 (abfd
, contents
);
1341 bfd_set_error (bfd_error_bad_value
);
1345 bfd_ardata (abfd
)->symdefs
=
1346 ((carsym
*) bfd_alloc (abfd
, c
* sizeof (carsym
)));
1347 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1350 /* After the count comes a list of eight byte file offsets. */
1351 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 8;
1353 ++i
, ++arsym
, p
+= 8)
1354 arsym
->file_offset
= H_GET_64 (abfd
, p
);
1357 /* After the file offsets come null terminated symbol names. */
1358 cend
= contents
+ sz
;
1359 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
;
1361 ++i
, ++arsym
, p
+= strlen ((char *) p
) + 1)
1365 bfd_set_error (bfd_error_bad_value
);
1368 arsym
->name
= (char *) p
;
1371 bfd_ardata (abfd
)->symdef_count
= c
;
1372 abfd
->has_armap
= TRUE
;
1377 /* See if this is an XCOFF archive. */
1380 _bfd_xcoff_archive_p (bfd
*abfd
)
1382 struct artdata
*tdata_hold
;
1383 char magic
[SXCOFFARMAG
];
1384 size_t amt
= SXCOFFARMAG
;
1386 if (bfd_bread (magic
, amt
, abfd
) != amt
)
1388 if (bfd_get_error () != bfd_error_system_call
)
1389 bfd_set_error (bfd_error_wrong_format
);
1393 if (strncmp (magic
, XCOFFARMAG
, SXCOFFARMAG
) != 0
1394 && strncmp (magic
, XCOFFARMAGBIG
, SXCOFFARMAG
) != 0)
1396 bfd_set_error (bfd_error_wrong_format
);
1400 tdata_hold
= bfd_ardata (abfd
);
1402 amt
= sizeof (struct artdata
);
1403 bfd_ardata (abfd
) = (struct artdata
*) bfd_zalloc (abfd
, amt
);
1404 if (bfd_ardata (abfd
) == (struct artdata
*) NULL
)
1405 goto error_ret_restore
;
1407 /* Cleared by bfd_zalloc above.
1408 bfd_ardata (abfd)->cache = NULL;
1409 bfd_ardata (abfd)->archive_head = NULL;
1410 bfd_ardata (abfd)->symdefs = NULL;
1411 bfd_ardata (abfd)->extended_names = NULL;
1412 bfd_ardata (abfd)->extended_names_size = 0; */
1414 /* Now handle the two formats. */
1415 if (magic
[1] != 'b')
1417 /* This is the old format. */
1418 struct xcoff_ar_file_hdr hdr
;
1420 /* Copy over the magic string. */
1421 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1423 /* Now read the rest of the file header. */
1424 amt
= SIZEOF_AR_FILE_HDR
- SXCOFFARMAG
;
1425 if (bfd_bread (&hdr
.memoff
, amt
, abfd
) != amt
)
1427 if (bfd_get_error () != bfd_error_system_call
)
1428 bfd_set_error (bfd_error_wrong_format
);
1432 GET_VALUE_IN_FIELD (bfd_ardata (abfd
)->first_file_filepos
,
1433 hdr
.firstmemoff
, 10);
1435 amt
= SIZEOF_AR_FILE_HDR
;
1436 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, amt
);
1437 if (bfd_ardata (abfd
)->tdata
== NULL
)
1440 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR
);
1444 /* This is the new format. */
1445 struct xcoff_ar_file_hdr_big hdr
;
1447 /* Copy over the magic string. */
1448 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1450 /* Now read the rest of the file header. */
1451 amt
= SIZEOF_AR_FILE_HDR_BIG
- SXCOFFARMAG
;
1452 if (bfd_bread (&hdr
.memoff
, amt
, abfd
) != amt
)
1454 if (bfd_get_error () != bfd_error_system_call
)
1455 bfd_set_error (bfd_error_wrong_format
);
1459 bfd_ardata (abfd
)->first_file_filepos
= bfd_scan_vma (hdr
.firstmemoff
,
1463 amt
= SIZEOF_AR_FILE_HDR_BIG
;
1464 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, amt
);
1465 if (bfd_ardata (abfd
)->tdata
== NULL
)
1468 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR_BIG
);
1471 if (! _bfd_xcoff_slurp_armap (abfd
))
1474 bfd_release (abfd
, bfd_ardata (abfd
));
1476 bfd_ardata (abfd
) = tdata_hold
;
1480 return _bfd_no_cleanup
;
1483 /* Read the archive header in an XCOFF archive. */
1486 _bfd_xcoff_read_ar_hdr (bfd
*abfd
)
1488 bfd_size_type namlen
;
1489 struct areltdata
*ret
;
1492 if (! xcoff_big_format_p (abfd
))
1494 struct xcoff_ar_hdr hdr
;
1495 struct xcoff_ar_hdr
*hdrp
;
1497 if (bfd_bread (&hdr
, SIZEOF_AR_HDR
, abfd
) != SIZEOF_AR_HDR
)
1500 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1501 amt
= sizeof (struct areltdata
) + SIZEOF_AR_HDR
+ namlen
+ 1;
1502 ret
= (struct areltdata
*) bfd_malloc (amt
);
1506 hdrp
= (struct xcoff_ar_hdr
*) (ret
+ 1);
1507 memcpy (hdrp
, &hdr
, SIZEOF_AR_HDR
);
1508 if (bfd_bread ((char *) hdrp
+ SIZEOF_AR_HDR
, namlen
, abfd
) != namlen
)
1513 ((char *) hdrp
)[SIZEOF_AR_HDR
+ namlen
] = '\0';
1515 ret
->arch_header
= (char *) hdrp
;
1516 GET_VALUE_IN_FIELD (ret
->parsed_size
, hdr
.size
, 10);
1517 ret
->filename
= (char *) hdrp
+ SIZEOF_AR_HDR
;
1521 struct xcoff_ar_hdr_big hdr
;
1522 struct xcoff_ar_hdr_big
*hdrp
;
1524 if (bfd_bread (&hdr
, SIZEOF_AR_HDR_BIG
, abfd
) != SIZEOF_AR_HDR_BIG
)
1527 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1528 amt
= sizeof (struct areltdata
) + SIZEOF_AR_HDR_BIG
+ namlen
+ 1;
1529 ret
= (struct areltdata
*) bfd_malloc (amt
);
1533 hdrp
= (struct xcoff_ar_hdr_big
*) (ret
+ 1);
1534 memcpy (hdrp
, &hdr
, SIZEOF_AR_HDR_BIG
);
1535 if (bfd_bread ((char *) hdrp
+ SIZEOF_AR_HDR_BIG
, namlen
, abfd
) != namlen
)
1540 ((char *) hdrp
)[SIZEOF_AR_HDR_BIG
+ namlen
] = '\0';
1542 ret
->arch_header
= (char *) hdrp
;
1543 GET_VALUE_IN_FIELD (ret
->parsed_size
, hdr
.size
, 10);
1544 ret
->filename
= (char *) hdrp
+ SIZEOF_AR_HDR_BIG
;
1547 /* Skip over the XCOFFARFMAG at the end of the file name. */
1548 if (bfd_seek (abfd
, (file_ptr
) ((namlen
& 1) + SXCOFFARFMAG
), SEEK_CUR
) != 0)
1554 /* Open the next element in an XCOFF archive. */
1557 _bfd_xcoff_openr_next_archived_file (bfd
*archive
, bfd
*last_file
)
1561 if (xcoff_ardata (archive
) == NULL
)
1563 bfd_set_error (bfd_error_invalid_operation
);
1567 if (! xcoff_big_format_p (archive
))
1569 if (last_file
== NULL
)
1570 filestart
= bfd_ardata (archive
)->first_file_filepos
;
1572 GET_VALUE_IN_FIELD (filestart
, arch_xhdr (last_file
)->nextoff
, 10);
1575 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata (archive
)->memoff
, 10)
1576 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata (archive
)->symoff
, 10))
1578 bfd_set_error (bfd_error_no_more_archived_files
);
1584 if (last_file
== NULL
)
1585 filestart
= bfd_ardata (archive
)->first_file_filepos
;
1587 GET_VALUE_IN_FIELD (filestart
, arch_xhdr_big (last_file
)->nextoff
, 10);
1590 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata_big (archive
)->memoff
, 10)
1591 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata_big (archive
)->symoff
, 10))
1593 bfd_set_error (bfd_error_no_more_archived_files
);
1598 return _bfd_get_elt_at_filepos (archive
, filestart
);
1601 /* Stat an element in an XCOFF archive. */
1604 _bfd_xcoff_stat_arch_elt (bfd
*abfd
, struct stat
*s
)
1606 if (abfd
->arelt_data
== NULL
)
1608 bfd_set_error (bfd_error_invalid_operation
);
1612 if (! xcoff_big_format_p (abfd
->my_archive
))
1614 struct xcoff_ar_hdr
*hdrp
= arch_xhdr (abfd
);
1616 GET_VALUE_IN_FIELD (s
->st_mtime
, hdrp
->date
, 10);
1617 GET_VALUE_IN_FIELD (s
->st_uid
, hdrp
->uid
, 10);
1618 GET_VALUE_IN_FIELD (s
->st_gid
, hdrp
->gid
, 10);
1619 GET_VALUE_IN_FIELD (s
->st_mode
, hdrp
->mode
, 8);
1620 s
->st_size
= arch_eltdata (abfd
)->parsed_size
;
1624 struct xcoff_ar_hdr_big
*hdrp
= arch_xhdr_big (abfd
);
1626 GET_VALUE_IN_FIELD (s
->st_mtime
, hdrp
->date
, 10);
1627 GET_VALUE_IN_FIELD (s
->st_uid
, hdrp
->uid
, 10);
1628 GET_VALUE_IN_FIELD (s
->st_gid
, hdrp
->gid
, 10);
1629 GET_VALUE_IN_FIELD (s
->st_mode
, hdrp
->mode
, 8);
1630 s
->st_size
= arch_eltdata (abfd
)->parsed_size
;
1636 /* Normalize a file name for inclusion in an archive. */
1639 normalize_filename (bfd
*abfd
)
1642 const char *filename
;
1644 file
= bfd_get_filename (abfd
);
1645 filename
= strrchr (file
, '/');
1646 if (filename
!= NULL
)
1653 /* Write out an XCOFF armap. */
1656 xcoff_write_armap_old (bfd
*abfd
, unsigned int elength ATTRIBUTE_UNUSED
,
1657 struct orl
*map
, unsigned int orl_count
, int stridx
)
1659 struct archive_iterator iterator
;
1660 struct xcoff_ar_hdr hdr
;
1662 unsigned char buf
[4];
1665 memset (&hdr
, 0, sizeof hdr
);
1666 sprintf (hdr
.size
, "%ld", (long) (4 + orl_count
* 4 + stridx
));
1667 sprintf (hdr
.nextoff
, "%d", 0);
1668 memcpy (hdr
.prevoff
, xcoff_ardata (abfd
)->memoff
, XCOFFARMAG_ELEMENT_SIZE
);
1669 sprintf (hdr
.date
, "%d", 0);
1670 sprintf (hdr
.uid
, "%d", 0);
1671 sprintf (hdr
.gid
, "%d", 0);
1672 sprintf (hdr
.mode
, "%d", 0);
1673 sprintf (hdr
.namlen
, "%d", 0);
1675 /* We need spaces, not null bytes, in the header. */
1676 for (p
= (char *) &hdr
; p
< (char *) &hdr
+ SIZEOF_AR_HDR
; p
++)
1680 if (bfd_bwrite (&hdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
1682 || (bfd_bwrite (XCOFFARFMAG
, (bfd_size_type
) SXCOFFARFMAG
, abfd
)
1686 H_PUT_32 (abfd
, orl_count
, buf
);
1687 if (bfd_bwrite (buf
, (bfd_size_type
) 4, abfd
) != 4)
1691 archive_iterator_begin (&iterator
, abfd
);
1692 while (i
< orl_count
&& archive_iterator_next (&iterator
))
1693 while (map
[i
].u
.abfd
== iterator
.current
.member
)
1695 H_PUT_32 (abfd
, iterator
.current
.offset
, buf
);
1696 if (bfd_bwrite (buf
, (bfd_size_type
) 4, abfd
) != 4)
1701 for (i
= 0; i
< orl_count
; i
++)
1706 name
= *map
[i
].name
;
1707 namlen
= strlen (name
);
1708 if (bfd_bwrite (name
, (bfd_size_type
) (namlen
+ 1), abfd
) != namlen
+ 1)
1712 if ((stridx
& 1) != 0)
1717 if (bfd_bwrite (&b
, (bfd_size_type
) 1, abfd
) != 1)
1724 static char buff20
[XCOFFARMAGBIG_ELEMENT_SIZE
+ 1];
1725 #if BFD_HOST_64BIT_LONG
1726 #define FMT20 "%-20ld"
1727 #elif defined (__MSVCRT__)
1728 #define FMT20 "%-20I64d"
1730 #define FMT20 "%-20lld"
1732 #define FMT12 "%-12d"
1733 #define FMT12_OCTAL "%-12o"
1735 #define PRINT20(d, v) \
1736 sprintf (buff20, FMT20, (bfd_uint64_t)(v)), \
1737 memcpy ((void *) (d), buff20, 20)
1739 #define PRINT12(d, v) \
1740 sprintf (buff20, FMT12, (int)(v)), \
1741 memcpy ((void *) (d), buff20, 12)
1743 #define PRINT12_OCTAL(d, v) \
1744 sprintf (buff20, FMT12_OCTAL, (unsigned int)(v)), \
1745 memcpy ((void *) (d), buff20, 12)
1747 #define PRINT4(d, v) \
1748 sprintf (buff20, FMT4, (int)(v)), \
1749 memcpy ((void *) (d), buff20, 4)
1751 #define READ20(d, v) \
1753 memcpy (buff20, (d), 20), \
1754 (v) = bfd_scan_vma (buff20, (const char **) NULL, 10)
1757 do_pad (bfd
*abfd
, unsigned int number
)
1761 /* Limit pad to <= 4096. */
1766 if (bfd_bwrite (&b
, (bfd_size_type
) 1, abfd
) != 1)
1773 do_copy (bfd
*out_bfd
, bfd
*in_bfd
)
1775 bfd_size_type remaining
;
1776 bfd_byte buffer
[DEFAULT_BUFFERSIZE
];
1778 if (bfd_seek (in_bfd
, (file_ptr
) 0, SEEK_SET
) != 0)
1781 remaining
= arelt_size (in_bfd
);
1783 while (remaining
>= DEFAULT_BUFFERSIZE
)
1785 if (bfd_bread (buffer
, DEFAULT_BUFFERSIZE
, in_bfd
) != DEFAULT_BUFFERSIZE
1786 || bfd_bwrite (buffer
, DEFAULT_BUFFERSIZE
, out_bfd
) != DEFAULT_BUFFERSIZE
)
1789 remaining
-= DEFAULT_BUFFERSIZE
;
1794 if (bfd_bread (buffer
, remaining
, in_bfd
) != remaining
1795 || bfd_bwrite (buffer
, remaining
, out_bfd
) != remaining
)
1803 xcoff_write_armap_big (bfd
*abfd
, unsigned int elength ATTRIBUTE_UNUSED
,
1804 struct orl
*map
, unsigned int orl_count
, int stridx
)
1806 struct archive_iterator iterator
;
1807 struct xcoff_ar_file_hdr_big
*fhdr
;
1808 bfd_vma i
, sym_32
, sym_64
, str_32
, str_64
;
1809 const bfd_arch_info_type
*arch_info
;
1811 size_t string_length
;
1812 file_ptr nextoff
, prevoff
;
1814 /* First, we look through the symbols and work out which are
1815 from 32-bit objects and which from 64-bit ones. */
1816 sym_32
= sym_64
= str_32
= str_64
= 0;
1819 for (current_bfd
= abfd
->archive_head
;
1820 current_bfd
!= NULL
&& i
< orl_count
;
1821 current_bfd
= current_bfd
->archive_next
)
1823 arch_info
= bfd_get_arch_info (current_bfd
);
1824 while (map
[i
].u
.abfd
== current_bfd
)
1826 string_length
= strlen (*map
[i
].name
) + 1;
1827 if (arch_info
->bits_per_address
== 64)
1830 str_64
+= string_length
;
1835 str_32
+= string_length
;
1841 /* A quick sanity check... */
1842 BFD_ASSERT (sym_64
+ sym_32
== orl_count
);
1843 /* Explicit cast to int for compiler. */
1844 BFD_ASSERT ((int)(str_64
+ str_32
) == stridx
);
1846 fhdr
= xcoff_ardata_big (abfd
);
1848 /* xcoff_write_archive_contents_big passes nextoff in symoff. */
1849 READ20 (fhdr
->memoff
, prevoff
);
1850 READ20 (fhdr
->symoff
, nextoff
);
1852 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
1854 /* Write out the symbol table.
1857 standard big archive header
1858 0x0000 ar_size [0x14]
1859 0x0014 ar_nxtmem [0x14]
1860 0x0028 ar_prvmem [0x14]
1861 0x003C ar_date [0x0C]
1862 0x0048 ar_uid [0x0C]
1863 0x0054 ar_gid [0x0C]
1864 0x0060 ar_mod [0x0C]
1865 0x006C ar_namelen[0x04]
1866 0x0070 ar_fmag [SXCOFFARFMAG]
1869 0x0072 num_syms [0x08], binary
1870 0x0078 offsets [0x08 * num_syms], binary
1871 0x0086 + 0x08 * num_syms names [??]
1872 ?? pad to even bytes.
1877 struct xcoff_ar_hdr_big
*hdr
;
1881 bfd_vma symbol_table_size
=
1886 + str_32
+ (str_32
& 1);
1888 symbol_table
= bfd_zmalloc (symbol_table_size
);
1889 if (symbol_table
== NULL
)
1892 hdr
= (struct xcoff_ar_hdr_big
*) symbol_table
;
1894 PRINT20 (hdr
->size
, 8 + 8 * sym_32
+ str_32
+ (str_32
& 1));
1897 PRINT20 (hdr
->nextoff
, nextoff
+ symbol_table_size
);
1899 PRINT20 (hdr
->nextoff
, 0);
1901 PRINT20 (hdr
->prevoff
, prevoff
);
1902 PRINT12 (hdr
->date
, 0);
1903 PRINT12 (hdr
->uid
, 0);
1904 PRINT12 (hdr
->gid
, 0);
1905 PRINT12 (hdr
->mode
, 0);
1906 PRINT4 (hdr
->namlen
, 0) ;
1908 st
= symbol_table
+ SIZEOF_AR_HDR_BIG
;
1909 memcpy (st
, XCOFFARFMAG
, SXCOFFARFMAG
);
1912 bfd_h_put_64 (abfd
, sym_32
, st
);
1915 /* loop over the 32 bit offsets */
1917 archive_iterator_begin (&iterator
, abfd
);
1918 while (i
< orl_count
&& archive_iterator_next (&iterator
))
1920 arch_info
= bfd_get_arch_info (iterator
.current
.member
);
1921 while (map
[i
].u
.abfd
== iterator
.current
.member
)
1923 if (arch_info
->bits_per_address
== 32)
1925 bfd_h_put_64 (abfd
, iterator
.current
.offset
, st
);
1932 /* loop over the 32 bit symbol names */
1934 for (current_bfd
= abfd
->archive_head
;
1935 current_bfd
!= NULL
&& i
< orl_count
;
1936 current_bfd
= current_bfd
->archive_next
)
1938 arch_info
= bfd_get_arch_info (current_bfd
);
1939 while (map
[i
].u
.abfd
== current_bfd
)
1941 if (arch_info
->bits_per_address
== 32)
1943 string_length
= sprintf (st
, "%s", *map
[i
].name
);
1944 st
+= string_length
+ 1;
1950 bfd_bwrite (symbol_table
, symbol_table_size
, abfd
);
1952 free (symbol_table
);
1955 nextoff
= nextoff
+ symbol_table_size
;
1958 PRINT20 (fhdr
->symoff
, 0);
1962 struct xcoff_ar_hdr_big
*hdr
;
1966 bfd_vma symbol_table_size
=
1971 + str_64
+ (str_64
& 1);
1973 symbol_table
= bfd_zmalloc (symbol_table_size
);
1974 if (symbol_table
== NULL
)
1977 hdr
= (struct xcoff_ar_hdr_big
*) symbol_table
;
1979 PRINT20 (hdr
->size
, 8 + 8 * sym_64
+ str_64
+ (str_64
& 1));
1980 PRINT20 (hdr
->nextoff
, 0);
1981 PRINT20 (hdr
->prevoff
, prevoff
);
1982 PRINT12 (hdr
->date
, 0);
1983 PRINT12 (hdr
->uid
, 0);
1984 PRINT12 (hdr
->gid
, 0);
1985 PRINT12 (hdr
->mode
, 0);
1986 PRINT4 (hdr
->namlen
, 0);
1988 st
= symbol_table
+ SIZEOF_AR_HDR_BIG
;
1989 memcpy (st
, XCOFFARFMAG
, SXCOFFARFMAG
);
1992 bfd_h_put_64 (abfd
, sym_64
, st
);
1995 /* loop over the 64 bit offsets */
1997 archive_iterator_begin (&iterator
, abfd
);
1998 while (i
< orl_count
&& archive_iterator_next (&iterator
))
2000 arch_info
= bfd_get_arch_info (iterator
.current
.member
);
2001 while (map
[i
].u
.abfd
== iterator
.current
.member
)
2003 if (arch_info
->bits_per_address
== 64)
2005 bfd_h_put_64 (abfd
, iterator
.current
.offset
, st
);
2012 /* loop over the 64 bit symbol names */
2014 for (current_bfd
= abfd
->archive_head
;
2015 current_bfd
!= NULL
&& i
< orl_count
;
2016 current_bfd
= current_bfd
->archive_next
)
2018 arch_info
= bfd_get_arch_info (current_bfd
);
2019 while (map
[i
].u
.abfd
== current_bfd
)
2021 if (arch_info
->bits_per_address
== 64)
2023 string_length
= sprintf (st
, "%s", *map
[i
].name
);
2024 st
+= string_length
+ 1;
2030 bfd_bwrite (symbol_table
, symbol_table_size
, abfd
);
2032 free (symbol_table
);
2034 PRINT20 (fhdr
->symoff64
, nextoff
);
2037 PRINT20 (fhdr
->symoff64
, 0);
2043 _bfd_xcoff_write_armap (bfd
*abfd
, unsigned int elength ATTRIBUTE_UNUSED
,
2044 struct orl
*map
, unsigned int orl_count
, int stridx
)
2046 if (! xcoff_big_format_p (abfd
))
2047 return xcoff_write_armap_old (abfd
, elength
, map
, orl_count
, stridx
);
2049 return xcoff_write_armap_big (abfd
, elength
, map
, orl_count
, stridx
);
2052 /* Write out an XCOFF archive. We always write an entire archive,
2053 rather than fussing with the freelist and so forth. */
2056 xcoff_write_archive_contents_old (bfd
*abfd
)
2058 struct archive_iterator iterator
;
2059 struct xcoff_ar_file_hdr fhdr
;
2060 bfd_size_type count
;
2061 bfd_size_type total_namlen
;
2063 bfd_boolean makemap
;
2064 bfd_boolean hasobjects
;
2065 file_ptr prevoff
, nextoff
;
2068 struct xcoff_ar_hdr ahdr
;
2071 char decbuf
[XCOFFARMAG_ELEMENT_SIZE
+ 1];
2073 memset (&fhdr
, 0, sizeof fhdr
);
2074 (void) memcpy (fhdr
.magic
, XCOFFARMAG
, SXCOFFARMAG
);
2075 sprintf (fhdr
.firstmemoff
, "%d", SIZEOF_AR_FILE_HDR
);
2076 sprintf (fhdr
.freeoff
, "%d", 0);
2080 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->archive_next
)
2083 total_namlen
+= strlen (normalize_filename (sub
)) + 1;
2084 if (sub
->arelt_data
== NULL
)
2086 sub
->arelt_data
= bfd_zmalloc (sizeof (struct areltdata
));
2087 if (sub
->arelt_data
== NULL
)
2090 if (arch_xhdr (sub
) == NULL
)
2092 struct xcoff_ar_hdr
*ahdrp
;
2095 if ((sub
->flags
& BFD_IN_MEMORY
) != 0)
2097 /* Assume we just "made" the member, and fake it. */
2098 struct bfd_in_memory
*bim
2099 = (struct bfd_in_memory
*) sub
->iostream
;
2101 s
.st_uid
= getuid ();
2102 s
.st_gid
= getgid ();
2104 s
.st_size
= bim
->size
;
2106 else if (stat (bfd_get_filename (sub
), &s
) != 0)
2108 bfd_set_input_error (sub
, bfd_error_system_call
);
2112 if ((abfd
->flags
& BFD_DETERMINISTIC_OUTPUT
) != 0)
2120 ahdrp
= bfd_zalloc (sub
, sizeof (*ahdrp
));
2124 sprintf (ahdrp
->size
, "%ld", (long) s
.st_size
);
2125 sprintf (ahdrp
->date
, "%ld", (long) s
.st_mtime
);
2126 sprintf (ahdrp
->uid
, "%ld", (long) s
.st_uid
);
2127 sprintf (ahdrp
->gid
, "%ld", (long) s
.st_gid
);
2128 sprintf (ahdrp
->mode
, "%o", (unsigned int) s
.st_mode
);
2130 arch_eltdata (sub
)->arch_header
= (char *) ahdrp
;
2131 arch_eltdata (sub
)->parsed_size
= s
.st_size
;
2134 offsets
= (file_ptr
*) bfd_alloc (abfd
, count
* sizeof (file_ptr
));
2135 if (offsets
== NULL
)
2138 if (bfd_seek (abfd
, (file_ptr
) SIZEOF_AR_FILE_HDR
, SEEK_SET
) != 0)
2141 makemap
= bfd_has_map (abfd
);
2144 for (archive_iterator_begin (&iterator
, abfd
), i
= 0;
2145 archive_iterator_next (&iterator
);
2148 bfd_size_type namlen
;
2149 struct xcoff_ar_hdr
*ahdrp
;
2151 if (makemap
&& ! hasobjects
)
2153 if (bfd_check_format (iterator
.current
.member
, bfd_object
))
2157 ahdrp
= arch_xhdr (iterator
.current
.member
);
2158 sprintf (ahdrp
->prevoff
, "%ld", (long) prevoff
);
2159 sprintf (ahdrp
->namlen
, "%ld", (long) iterator
.current
.namlen
);
2160 sprintf (ahdrp
->nextoff
, "%ld", (long) iterator
.next
.offset
);
2162 /* We need spaces, not null bytes, in the header. */
2163 for (p
= (char *) ahdrp
; p
< (char *) ahdrp
+ SIZEOF_AR_HDR
; p
++)
2167 if (!do_pad (abfd
, iterator
.current
.leading_padding
))
2170 BFD_ASSERT (iterator
.current
.offset
== bfd_tell (abfd
));
2171 namlen
= iterator
.current
.padded_namlen
;
2172 if (bfd_bwrite (ahdrp
, SIZEOF_AR_HDR
, abfd
) != SIZEOF_AR_HDR
2173 || bfd_bwrite (iterator
.current
.name
, namlen
, abfd
) != namlen
2174 || bfd_bwrite (XCOFFARFMAG
, SXCOFFARFMAG
, abfd
) != SXCOFFARFMAG
2175 || bfd_seek (iterator
.current
.member
, 0, SEEK_SET
) != 0
2176 || !do_copy (abfd
, iterator
.current
.member
)
2177 || !do_pad (abfd
, iterator
.current
.trailing_padding
))
2180 offsets
[i
] = iterator
.current
.offset
;
2181 prevoff
= iterator
.current
.offset
;
2184 sprintf (fhdr
.lastmemoff
, "%ld", (long) prevoff
);
2186 /* Write out the member table. */
2188 nextoff
= iterator
.next
.offset
;
2189 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2190 sprintf (fhdr
.memoff
, "%ld", (long) nextoff
);
2192 memset (&ahdr
, 0, sizeof ahdr
);
2193 sprintf (ahdr
.size
, "%ld", (long) (XCOFFARMAG_ELEMENT_SIZE
2194 + count
* XCOFFARMAG_ELEMENT_SIZE
2196 sprintf (ahdr
.prevoff
, "%ld", (long) prevoff
);
2197 sprintf (ahdr
.date
, "%d", 0);
2198 sprintf (ahdr
.uid
, "%d", 0);
2199 sprintf (ahdr
.gid
, "%d", 0);
2200 sprintf (ahdr
.mode
, "%d", 0);
2201 sprintf (ahdr
.namlen
, "%d", 0);
2203 size
= (SIZEOF_AR_HDR
2204 + XCOFFARMAG_ELEMENT_SIZE
2205 + count
* XCOFFARMAG_ELEMENT_SIZE
2210 nextoff
+= size
+ (size
& 1);
2212 if (makemap
&& hasobjects
)
2213 sprintf (ahdr
.nextoff
, "%ld", (long) nextoff
);
2215 sprintf (ahdr
.nextoff
, "%d", 0);
2217 /* We need spaces, not null bytes, in the header. */
2218 for (p
= (char *) &ahdr
; p
< (char *) &ahdr
+ SIZEOF_AR_HDR
; p
++)
2222 if ((bfd_bwrite (&ahdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
2224 || (bfd_bwrite (XCOFFARFMAG
, (bfd_size_type
) SXCOFFARFMAG
, abfd
)
2228 sprintf (decbuf
, "%-12ld", (long) count
);
2229 if (bfd_bwrite (decbuf
, (bfd_size_type
) XCOFFARMAG_ELEMENT_SIZE
, abfd
)
2230 != XCOFFARMAG_ELEMENT_SIZE
)
2232 for (i
= 0; i
< (size_t) count
; i
++)
2234 sprintf (decbuf
, "%-12ld", (long) offsets
[i
]);
2235 if (bfd_bwrite (decbuf
, (bfd_size_type
) XCOFFARMAG_ELEMENT_SIZE
,
2236 abfd
) != XCOFFARMAG_ELEMENT_SIZE
)
2239 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->archive_next
)
2242 bfd_size_type namlen
;
2244 name
= normalize_filename (sub
);
2245 namlen
= strlen (name
);
2246 if (bfd_bwrite (name
, namlen
+ 1, abfd
) != namlen
+ 1)
2250 if (! do_pad (abfd
, size
& 1))
2253 /* Write out the armap, if appropriate. */
2254 if (! makemap
|| ! hasobjects
)
2255 sprintf (fhdr
.symoff
, "%d", 0);
2258 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2259 sprintf (fhdr
.symoff
, "%ld", (long) nextoff
);
2260 bfd_ardata (abfd
)->tdata
= &fhdr
;
2261 if (! _bfd_compute_and_write_armap (abfd
, 0))
2265 /* Write out the archive file header. */
2267 /* We need spaces, not null bytes, in the header. */
2268 for (p
= (char *) &fhdr
; p
< (char *) &fhdr
+ SIZEOF_AR_FILE_HDR
; p
++)
2272 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) != 0
2273 || (bfd_bwrite (&fhdr
, (bfd_size_type
) SIZEOF_AR_FILE_HDR
, abfd
)
2274 != SIZEOF_AR_FILE_HDR
))
2281 xcoff_write_archive_contents_big (bfd
*abfd
)
2283 struct xcoff_ar_file_hdr_big fhdr
;
2284 bfd_size_type count
;
2285 bfd_size_type total_namlen
;
2287 bfd_boolean makemap
;
2288 bfd_boolean hasobjects
;
2289 file_ptr prevoff
, nextoff
;
2292 struct xcoff_ar_hdr_big
*hdr
;
2294 char *member_table
, *mt
;
2295 bfd_vma member_table_size
;
2296 struct archive_iterator iterator
;
2298 memset (&fhdr
, 0, SIZEOF_AR_FILE_HDR_BIG
);
2299 memcpy (fhdr
.magic
, XCOFFARMAGBIG
, SXCOFFARMAG
);
2301 if (bfd_seek (abfd
, (file_ptr
) SIZEOF_AR_FILE_HDR_BIG
, SEEK_SET
) != 0)
2304 /* Calculate count and total_namlen. */
2305 makemap
= bfd_has_map (abfd
);
2307 for (current_bfd
= abfd
->archive_head
, count
= 0, total_namlen
= 0;
2308 current_bfd
!= NULL
;
2309 current_bfd
= current_bfd
->archive_next
, count
++)
2311 total_namlen
+= strlen (normalize_filename (current_bfd
)) + 1;
2315 && bfd_check_format (current_bfd
, bfd_object
))
2318 if (current_bfd
->arelt_data
== NULL
)
2320 size
= sizeof (struct areltdata
);
2321 current_bfd
->arelt_data
= bfd_zmalloc (size
);
2322 if (current_bfd
->arelt_data
== NULL
)
2326 if (arch_xhdr_big (current_bfd
) == NULL
)
2328 struct xcoff_ar_hdr_big
*ahdrp
;
2331 if ((current_bfd
->flags
& BFD_IN_MEMORY
) != 0)
2333 /* Assume we just "made" the member, and fake it. */
2334 struct bfd_in_memory
*bim
2335 = (struct bfd_in_memory
*) current_bfd
->iostream
;
2337 s
.st_uid
= getuid ();
2338 s
.st_gid
= getgid ();
2340 s
.st_size
= bim
->size
;
2342 else if (stat (bfd_get_filename (current_bfd
), &s
) != 0)
2344 bfd_set_input_error (current_bfd
, bfd_error_system_call
);
2348 if ((abfd
->flags
& BFD_DETERMINISTIC_OUTPUT
) != 0)
2356 ahdrp
= bfd_zalloc (current_bfd
, sizeof (*ahdrp
));
2360 PRINT20 (ahdrp
->size
, s
.st_size
);
2361 PRINT12 (ahdrp
->date
, s
.st_mtime
);
2362 PRINT12 (ahdrp
->uid
, s
.st_uid
);
2363 PRINT12 (ahdrp
->gid
, s
.st_gid
);
2364 PRINT12_OCTAL (ahdrp
->mode
, s
.st_mode
);
2366 arch_eltdata (current_bfd
)->arch_header
= (char *) ahdrp
;
2367 arch_eltdata (current_bfd
)->parsed_size
= s
.st_size
;
2374 offsets
= (file_ptr
*) bfd_malloc (count
* sizeof (file_ptr
));
2375 if (offsets
== NULL
)
2380 for (archive_iterator_begin (&iterator
, abfd
), i
= 0;
2381 archive_iterator_next (&iterator
);
2384 bfd_size_type namlen
;
2385 struct xcoff_ar_hdr_big
*ahdrp
;
2387 ahdrp
= arch_xhdr_big (iterator
.current
.member
);
2388 PRINT20 (ahdrp
->prevoff
, prevoff
);
2389 PRINT4 (ahdrp
->namlen
, iterator
.current
.namlen
);
2390 PRINT20 (ahdrp
->nextoff
, iterator
.next
.offset
);
2392 if (!do_pad (abfd
, iterator
.current
.leading_padding
))
2398 BFD_ASSERT (iterator
.current
.offset
== bfd_tell (abfd
));
2399 namlen
= iterator
.current
.padded_namlen
;
2400 if (bfd_bwrite (ahdrp
, SIZEOF_AR_HDR_BIG
, abfd
) != SIZEOF_AR_HDR_BIG
2401 || bfd_bwrite (iterator
.current
.name
, namlen
, abfd
) != namlen
2402 || bfd_bwrite (XCOFFARFMAG
, SXCOFFARFMAG
, abfd
) != SXCOFFARFMAG
2403 || bfd_seek (iterator
.current
.member
, 0, SEEK_SET
) != 0
2404 || !do_copy (abfd
, iterator
.current
.member
)
2405 || !do_pad (abfd
, iterator
.current
.trailing_padding
))
2411 offsets
[i
] = iterator
.current
.offset
;
2412 prevoff
= iterator
.current
.offset
;
2417 PRINT20 (fhdr
.firstmemoff
, offsets
[0]);
2418 PRINT20 (fhdr
.lastmemoff
, prevoff
);
2421 /* Write out the member table.
2424 standard big archive header
2425 0x0000 ar_size [0x14]
2426 0x0014 ar_nxtmem [0x14]
2427 0x0028 ar_prvmem [0x14]
2428 0x003C ar_date [0x0C]
2429 0x0048 ar_uid [0x0C]
2430 0x0054 ar_gid [0x0C]
2431 0x0060 ar_mod [0x0C]
2432 0x006C ar_namelen[0x04]
2433 0x0070 ar_fmag [0x02]
2437 0x0086 offsets [0x14 * counts]
2438 0x0086 + 0x14 * counts names [??]
2439 ?? pad to even bytes.
2442 nextoff
= iterator
.next
.offset
;
2443 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2445 member_table_size
= (SIZEOF_AR_HDR_BIG
2447 + XCOFFARMAGBIG_ELEMENT_SIZE
2448 + count
* XCOFFARMAGBIG_ELEMENT_SIZE
2451 member_table_size
+= member_table_size
& 1;
2452 member_table
= bfd_zmalloc (member_table_size
);
2453 if (member_table
== NULL
)
2459 hdr
= (struct xcoff_ar_hdr_big
*) member_table
;
2461 PRINT20 (hdr
->size
, (XCOFFARMAGBIG_ELEMENT_SIZE
2462 + count
* XCOFFARMAGBIG_ELEMENT_SIZE
2463 + total_namlen
+ (total_namlen
& 1)));
2464 if (makemap
&& hasobjects
)
2465 PRINT20 (hdr
->nextoff
, nextoff
+ member_table_size
);
2467 PRINT20 (hdr
->nextoff
, 0);
2468 PRINT20 (hdr
->prevoff
, prevoff
);
2469 PRINT12 (hdr
->date
, 0);
2470 PRINT12 (hdr
->uid
, 0);
2471 PRINT12 (hdr
->gid
, 0);
2472 PRINT12 (hdr
->mode
, 0);
2473 PRINT4 (hdr
->namlen
, 0);
2475 mt
= member_table
+ SIZEOF_AR_HDR_BIG
;
2476 memcpy (mt
, XCOFFARFMAG
, SXCOFFARFMAG
);
2479 PRINT20 (mt
, count
);
2480 mt
+= XCOFFARMAGBIG_ELEMENT_SIZE
;
2481 for (i
= 0; i
< (size_t) count
; i
++)
2483 PRINT20 (mt
, offsets
[i
]);
2484 mt
+= XCOFFARMAGBIG_ELEMENT_SIZE
;
2493 for (current_bfd
= abfd
->archive_head
;
2494 current_bfd
!= NULL
;
2495 current_bfd
= current_bfd
->archive_next
)
2500 name
= normalize_filename (current_bfd
);
2501 namlen
= sprintf (mt
, "%s", name
);
2505 if (bfd_bwrite (member_table
, member_table_size
, abfd
) != member_table_size
)
2508 free (member_table
);
2510 PRINT20 (fhdr
.memoff
, nextoff
);
2513 nextoff
+= member_table_size
;
2515 /* Write out the armap, if appropriate. */
2517 if (! makemap
|| ! hasobjects
)
2518 PRINT20 (fhdr
.symoff
, 0);
2521 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2523 /* Save nextoff in fhdr.symoff so the armap routine can use it. */
2524 PRINT20 (fhdr
.symoff
, nextoff
);
2526 bfd_ardata (abfd
)->tdata
= &fhdr
;
2527 if (! _bfd_compute_and_write_armap (abfd
, 0))
2531 /* Write out the archive file header. */
2533 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) != 0
2534 || (bfd_bwrite (&fhdr
, (bfd_size_type
) SIZEOF_AR_FILE_HDR_BIG
,
2535 abfd
) != SIZEOF_AR_FILE_HDR_BIG
))
2542 _bfd_xcoff_write_archive_contents (bfd
*abfd
)
2544 if (! xcoff_big_format_p (abfd
))
2545 return xcoff_write_archive_contents_old (abfd
);
2547 return xcoff_write_archive_contents_big (abfd
);
2550 /* We can't use the usual coff_sizeof_headers routine, because AIX
2551 always uses an a.out header. */
2554 _bfd_xcoff_sizeof_headers (bfd
*abfd
,
2555 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
2560 if (xcoff_data (abfd
)->full_aouthdr
)
2563 size
+= SMALL_AOUTSZ
;
2564 size
+= abfd
->section_count
* SCNHSZ
;
2566 if (info
->strip
!= strip_all
)
2568 /* There can be additional sections just for dealing with overflow in
2569 reloc and lineno counts. But the numbers of relocs and lineno aren't
2570 known when bfd_sizeof_headers is called, so we compute them by
2571 summing the numbers from input sections. */
2572 struct nbr_reloc_lineno
2574 unsigned int reloc_count
;
2575 unsigned int lineno_count
;
2577 struct nbr_reloc_lineno
*n_rl
;
2579 unsigned int max_index
;
2582 /* Although the number of sections is known, the maximum value of
2583 section->index isn't (because some sections may have been removed).
2584 Don't try to renumber sections, just compute the upper bound. */
2586 for (s
= abfd
->sections
; s
!= NULL
; s
= s
->next
)
2587 if (s
->index
> max_index
)
2588 max_index
= s
->index
;
2590 /* Allocate the per section counters. It could be possible to use a
2591 preallocated array as the number of sections is limited on XCOFF,
2592 but this creates a maintainance issue. */
2593 n_rl
= bfd_zmalloc ((max_index
+ 1) * sizeof (*n_rl
));
2598 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link
.next
)
2599 for (s
= sub
->sections
; s
!= NULL
; s
= s
->next
)
2600 if (s
->output_section
->owner
== abfd
2601 && !bfd_section_removed_from_list (abfd
, s
->output_section
))
2603 struct nbr_reloc_lineno
*e
= &n_rl
[s
->output_section
->index
];
2604 e
->reloc_count
+= s
->reloc_count
;
2605 e
->lineno_count
+= s
->lineno_count
;
2608 /* Add the size of a section for each section with an overflow. */
2609 for (s
= abfd
->sections
; s
!= NULL
; s
= s
->next
)
2611 struct nbr_reloc_lineno
*e
= &n_rl
[s
->index
];
2613 if (e
->reloc_count
>= 0xffff
2614 || (e
->lineno_count
>= 0xffff && info
->strip
!= strip_debugger
))
2624 /* Routines to swap information in the XCOFF .loader section. If we
2625 ever need to write an XCOFF loader, this stuff will need to be
2626 moved to another file shared by the linker (which XCOFF calls the
2627 ``binder'') and the loader. */
2629 /* Swap in the ldhdr structure. */
2632 xcoff_swap_ldhdr_in (bfd
*abfd
, const void * s
, struct internal_ldhdr
*dst
)
2634 const struct external_ldhdr
*src
= (const struct external_ldhdr
*) s
;
2636 dst
->l_version
= bfd_get_32 (abfd
, src
->l_version
);
2637 dst
->l_nsyms
= bfd_get_32 (abfd
, src
->l_nsyms
);
2638 dst
->l_nreloc
= bfd_get_32 (abfd
, src
->l_nreloc
);
2639 dst
->l_istlen
= bfd_get_32 (abfd
, src
->l_istlen
);
2640 dst
->l_nimpid
= bfd_get_32 (abfd
, src
->l_nimpid
);
2641 dst
->l_impoff
= bfd_get_32 (abfd
, src
->l_impoff
);
2642 dst
->l_stlen
= bfd_get_32 (abfd
, src
->l_stlen
);
2643 dst
->l_stoff
= bfd_get_32 (abfd
, src
->l_stoff
);
2646 /* Swap out the ldhdr structure. */
2649 xcoff_swap_ldhdr_out (bfd
*abfd
, const struct internal_ldhdr
*src
, void * d
)
2651 struct external_ldhdr
*dst
= (struct external_ldhdr
*) d
;
2653 bfd_put_32 (abfd
, (bfd_vma
) src
->l_version
, dst
->l_version
);
2654 bfd_put_32 (abfd
, src
->l_nsyms
, dst
->l_nsyms
);
2655 bfd_put_32 (abfd
, src
->l_nreloc
, dst
->l_nreloc
);
2656 bfd_put_32 (abfd
, src
->l_istlen
, dst
->l_istlen
);
2657 bfd_put_32 (abfd
, src
->l_nimpid
, dst
->l_nimpid
);
2658 bfd_put_32 (abfd
, src
->l_impoff
, dst
->l_impoff
);
2659 bfd_put_32 (abfd
, src
->l_stlen
, dst
->l_stlen
);
2660 bfd_put_32 (abfd
, src
->l_stoff
, dst
->l_stoff
);
2663 /* Swap in the ldsym structure. */
2666 xcoff_swap_ldsym_in (bfd
*abfd
, const void * s
, struct internal_ldsym
*dst
)
2668 const struct external_ldsym
*src
= (const struct external_ldsym
*) s
;
2670 if (bfd_get_32 (abfd
, src
->_l
._l_l
._l_zeroes
) != 0) {
2671 memcpy (dst
->_l
._l_name
, src
->_l
._l_name
, SYMNMLEN
);
2673 dst
->_l
._l_l
._l_zeroes
= 0;
2674 dst
->_l
._l_l
._l_offset
= bfd_get_32 (abfd
, src
->_l
._l_l
._l_offset
);
2676 dst
->l_value
= bfd_get_32 (abfd
, src
->l_value
);
2677 dst
->l_scnum
= bfd_get_16 (abfd
, src
->l_scnum
);
2678 dst
->l_smtype
= bfd_get_8 (abfd
, src
->l_smtype
);
2679 dst
->l_smclas
= bfd_get_8 (abfd
, src
->l_smclas
);
2680 dst
->l_ifile
= bfd_get_32 (abfd
, src
->l_ifile
);
2681 dst
->l_parm
= bfd_get_32 (abfd
, src
->l_parm
);
2684 /* Swap out the ldsym structure. */
2687 xcoff_swap_ldsym_out (bfd
*abfd
, const struct internal_ldsym
*src
, void * d
)
2689 struct external_ldsym
*dst
= (struct external_ldsym
*) d
;
2691 if (src
->_l
._l_l
._l_zeroes
!= 0)
2692 memcpy (dst
->_l
._l_name
, src
->_l
._l_name
, SYMNMLEN
);
2695 bfd_put_32 (abfd
, (bfd_vma
) 0, dst
->_l
._l_l
._l_zeroes
);
2696 bfd_put_32 (abfd
, (bfd_vma
) src
->_l
._l_l
._l_offset
,
2697 dst
->_l
._l_l
._l_offset
);
2699 bfd_put_32 (abfd
, src
->l_value
, dst
->l_value
);
2700 bfd_put_16 (abfd
, (bfd_vma
) src
->l_scnum
, dst
->l_scnum
);
2701 bfd_put_8 (abfd
, src
->l_smtype
, dst
->l_smtype
);
2702 bfd_put_8 (abfd
, src
->l_smclas
, dst
->l_smclas
);
2703 bfd_put_32 (abfd
, src
->l_ifile
, dst
->l_ifile
);
2704 bfd_put_32 (abfd
, src
->l_parm
, dst
->l_parm
);
2708 xcoff_swap_reloc_in (bfd
*abfd
, void * s
, void * d
)
2710 struct external_reloc
*src
= (struct external_reloc
*) s
;
2711 struct internal_reloc
*dst
= (struct internal_reloc
*) d
;
2713 memset (dst
, 0, sizeof (struct internal_reloc
));
2715 dst
->r_vaddr
= bfd_get_32 (abfd
, src
->r_vaddr
);
2716 dst
->r_symndx
= bfd_get_32 (abfd
, src
->r_symndx
);
2717 dst
->r_size
= bfd_get_8 (abfd
, src
->r_size
);
2718 dst
->r_type
= bfd_get_8 (abfd
, src
->r_type
);
2722 xcoff_swap_reloc_out (bfd
*abfd
, void * s
, void * d
)
2724 struct internal_reloc
*src
= (struct internal_reloc
*) s
;
2725 struct external_reloc
*dst
= (struct external_reloc
*) d
;
2727 bfd_put_32 (abfd
, src
->r_vaddr
, dst
->r_vaddr
);
2728 bfd_put_32 (abfd
, src
->r_symndx
, dst
->r_symndx
);
2729 bfd_put_8 (abfd
, src
->r_type
, dst
->r_type
);
2730 bfd_put_8 (abfd
, src
->r_size
, dst
->r_size
);
2732 return bfd_coff_relsz (abfd
);
2735 /* Swap in the ldrel structure. */
2738 xcoff_swap_ldrel_in (bfd
*abfd
, const void * s
, struct internal_ldrel
*dst
)
2740 const struct external_ldrel
*src
= (const struct external_ldrel
*) s
;
2742 dst
->l_vaddr
= bfd_get_32 (abfd
, src
->l_vaddr
);
2743 dst
->l_symndx
= bfd_get_32 (abfd
, src
->l_symndx
);
2744 dst
->l_rtype
= bfd_get_16 (abfd
, src
->l_rtype
);
2745 dst
->l_rsecnm
= bfd_get_16 (abfd
, src
->l_rsecnm
);
2748 /* Swap out the ldrel structure. */
2751 xcoff_swap_ldrel_out (bfd
*abfd
, const struct internal_ldrel
*src
, void * d
)
2753 struct external_ldrel
*dst
= (struct external_ldrel
*) d
;
2755 bfd_put_32 (abfd
, src
->l_vaddr
, dst
->l_vaddr
);
2756 bfd_put_32 (abfd
, src
->l_symndx
, dst
->l_symndx
);
2757 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rtype
, dst
->l_rtype
);
2758 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rsecnm
, dst
->l_rsecnm
);
2763 xcoff_reloc_type_noop (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2764 asection
*input_section ATTRIBUTE_UNUSED
,
2765 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2766 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2767 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2768 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2769 bfd_vma val ATTRIBUTE_UNUSED
,
2770 bfd_vma addend ATTRIBUTE_UNUSED
,
2771 bfd_vma
*relocation ATTRIBUTE_UNUSED
,
2772 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2778 xcoff_reloc_type_fail (bfd
*input_bfd
,
2779 asection
*input_section ATTRIBUTE_UNUSED
,
2780 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2781 struct internal_reloc
*rel
,
2782 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2783 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2784 bfd_vma val ATTRIBUTE_UNUSED
,
2785 bfd_vma addend ATTRIBUTE_UNUSED
,
2786 bfd_vma
*relocation ATTRIBUTE_UNUSED
,
2787 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2790 /* xgettext: c-format */
2791 (_("%pB: unsupported relocation type %#x"),
2792 input_bfd
, (unsigned int) rel
->r_type
);
2793 bfd_set_error (bfd_error_bad_value
);
2798 xcoff_reloc_type_pos (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2799 asection
*input_section ATTRIBUTE_UNUSED
,
2800 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2801 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2802 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2803 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2806 bfd_vma
*relocation
,
2807 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2809 *relocation
= val
+ addend
;
2814 xcoff_reloc_type_neg (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2815 asection
*input_section ATTRIBUTE_UNUSED
,
2816 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2817 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2818 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2819 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2822 bfd_vma
*relocation
,
2823 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2825 *relocation
= addend
- val
;
2830 xcoff_reloc_type_rel (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2831 asection
*input_section
,
2832 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2833 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2834 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2835 struct reloc_howto_struct
*howto
,
2838 bfd_vma
*relocation
,
2839 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2841 howto
->pc_relative
= TRUE
;
2843 /* A PC relative reloc includes the section address. */
2844 addend
+= input_section
->vma
;
2846 *relocation
= val
+ addend
;
2847 *relocation
-= (input_section
->output_section
->vma
2848 + input_section
->output_offset
);
2853 xcoff_reloc_type_toc (bfd
*input_bfd
,
2854 asection
*input_section ATTRIBUTE_UNUSED
,
2856 struct internal_reloc
*rel
,
2857 struct internal_syment
*sym
,
2858 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2860 bfd_vma addend ATTRIBUTE_UNUSED
,
2861 bfd_vma
*relocation
,
2862 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2864 struct xcoff_link_hash_entry
*h
;
2866 if (0 > rel
->r_symndx
)
2869 h
= obj_xcoff_sym_hashes (input_bfd
)[rel
->r_symndx
];
2871 if (h
!= NULL
&& h
->smclas
!= XMC_TD
)
2873 if (h
->toc_section
== NULL
)
2876 /* xgettext: c-format */
2877 (_("%pB: TOC reloc at %#" PRIx64
" to symbol `%s' with no TOC entry"),
2878 input_bfd
, (uint64_t) rel
->r_vaddr
, h
->root
.root
.string
);
2879 bfd_set_error (bfd_error_bad_value
);
2883 BFD_ASSERT ((h
->flags
& XCOFF_SET_TOC
) == 0);
2884 val
= (h
->toc_section
->output_section
->vma
2885 + h
->toc_section
->output_offset
);
2888 *relocation
= ((val
- xcoff_data (output_bfd
)->toc
)
2889 - (sym
->n_value
- xcoff_data (input_bfd
)->toc
));
2894 xcoff_reloc_type_ba (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2895 asection
*input_section ATTRIBUTE_UNUSED
,
2896 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2897 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2898 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2899 struct reloc_howto_struct
*howto
,
2902 bfd_vma
*relocation
,
2903 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2905 howto
->src_mask
&= ~3;
2906 howto
->dst_mask
= howto
->src_mask
;
2908 *relocation
= val
+ addend
;
2914 xcoff_reloc_type_br (bfd
*input_bfd
,
2915 asection
*input_section
,
2916 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2917 struct internal_reloc
*rel
,
2918 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2919 struct reloc_howto_struct
*howto
,
2922 bfd_vma
*relocation
,
2925 struct xcoff_link_hash_entry
*h
;
2926 bfd_vma section_offset
;
2928 if (0 > rel
->r_symndx
)
2931 h
= obj_xcoff_sym_hashes (input_bfd
)[rel
->r_symndx
];
2932 section_offset
= rel
->r_vaddr
- input_section
->vma
;
2934 /* If we see an R_BR or R_RBR reloc which is jumping to global
2935 linkage code, and it is followed by an appropriate cror nop
2936 instruction, we replace the cror with lwz r2,20(r1). This
2937 restores the TOC after the glink code. Contrariwise, if the
2938 call is followed by a lwz r2,20(r1), but the call is not
2939 going to global linkage code, we can replace the load with a
2942 && (bfd_link_hash_defined
== h
->root
.type
2943 || bfd_link_hash_defweak
== h
->root
.type
)
2944 && section_offset
+ 8 <= input_section
->size
)
2949 pnext
= contents
+ section_offset
+ 4;
2950 next
= bfd_get_32 (input_bfd
, pnext
);
2952 /* The _ptrgl function is magic. It is used by the AIX
2953 compiler to call a function through a pointer. */
2954 if (h
->smclas
== XMC_GL
|| strcmp (h
->root
.root
.string
, "._ptrgl") == 0)
2956 if (next
== 0x4def7b82 /* cror 15,15,15 */
2957 || next
== 0x4ffffb82 /* cror 31,31,31 */
2958 || next
== 0x60000000) /* ori r0,r0,0 */
2959 bfd_put_32 (input_bfd
, 0x80410014, pnext
); /* lwz r2,20(r1) */
2964 if (next
== 0x80410014) /* lwz r2,20(r1) */
2965 bfd_put_32 (input_bfd
, 0x60000000, pnext
); /* ori r0,r0,0 */
2968 else if (NULL
!= h
&& bfd_link_hash_undefined
== h
->root
.type
)
2970 /* Normally, this relocation is against a defined symbol. In the
2971 case where this is a partial link and the output section offset
2972 is greater than 2^25, the linker will return an invalid error
2973 message that the relocation has been truncated. Yes it has been
2974 truncated but no it not important. For this case, disable the
2975 overflow checking. */
2977 howto
->complain_on_overflow
= complain_overflow_dont
;
2980 /* The original PC-relative relocation is biased by -r_vaddr, so adding
2981 the value below will give the absolute target address. */
2982 *relocation
= val
+ addend
+ rel
->r_vaddr
;
2984 howto
->src_mask
&= ~3;
2985 howto
->dst_mask
= howto
->src_mask
;
2988 && (h
->root
.type
== bfd_link_hash_defined
2989 || h
->root
.type
== bfd_link_hash_defweak
)
2990 && bfd_is_abs_section (h
->root
.u
.def
.section
)
2991 && section_offset
+ 4 <= input_section
->size
)
2996 /* Turn the relative branch into an absolute one by setting the
2998 ptr
= contents
+ section_offset
;
2999 insn
= bfd_get_32 (input_bfd
, ptr
);
3001 bfd_put_32 (input_bfd
, insn
, ptr
);
3003 /* Make the howto absolute too. */
3004 howto
->pc_relative
= FALSE
;
3005 howto
->complain_on_overflow
= complain_overflow_bitfield
;
3009 /* Use a PC-relative howto and subtract the instruction's address
3010 from the target address we calculated above. */
3011 howto
->pc_relative
= TRUE
;
3012 *relocation
-= (input_section
->output_section
->vma
3013 + input_section
->output_offset
3020 xcoff_reloc_type_crel (bfd
*input_bfd ATTRIBUTE_UNUSED
,
3021 asection
*input_section
,
3022 bfd
*output_bfd ATTRIBUTE_UNUSED
,
3023 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
3024 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
3025 struct reloc_howto_struct
*howto
,
3026 bfd_vma val ATTRIBUTE_UNUSED
,
3028 bfd_vma
*relocation
,
3029 bfd_byte
*contents ATTRIBUTE_UNUSED
)
3031 howto
->pc_relative
= TRUE
;
3032 howto
->src_mask
&= ~3;
3033 howto
->dst_mask
= howto
->src_mask
;
3035 /* A PC relative reloc includes the section address. */
3036 addend
+= input_section
->vma
;
3038 *relocation
= val
+ addend
;
3039 *relocation
-= (input_section
->output_section
->vma
3040 + input_section
->output_offset
);
3045 xcoff_complain_overflow_dont_func (bfd
*input_bfd ATTRIBUTE_UNUSED
,
3046 bfd_vma val ATTRIBUTE_UNUSED
,
3047 bfd_vma relocation ATTRIBUTE_UNUSED
,
3048 struct reloc_howto_struct
*
3049 howto ATTRIBUTE_UNUSED
)
3055 xcoff_complain_overflow_bitfield_func (bfd
*input_bfd
,
3058 struct reloc_howto_struct
*howto
)
3060 bfd_vma fieldmask
, signmask
, ss
;
3063 /* Get the values to be added together. For signed and unsigned
3064 relocations, we assume that all values should be truncated to
3065 the size of an address. For bitfields, all the bits matter.
3066 See also bfd_check_overflow. */
3067 fieldmask
= N_ONES (howto
->bitsize
);
3069 b
= val
& howto
->src_mask
;
3071 /* Much like unsigned, except no trimming with addrmask. In
3072 addition, the sum overflows if there is a carry out of
3073 the bfd_vma, i.e., the sum is less than either input
3075 a
>>= howto
->rightshift
;
3076 b
>>= howto
->bitpos
;
3078 /* Bitfields are sometimes used for signed numbers; for
3079 example, a 13-bit field sometimes represents values in
3080 0..8191 and sometimes represents values in -4096..4095.
3081 If the field is signed and a is -4095 (0x1001) and b is
3082 -1 (0x1fff), the sum is -4096 (0x1000), but (0x1001 +
3083 0x1fff is 0x3000). It's not clear how to handle this
3084 everywhere, since there is not way to know how many bits
3085 are significant in the relocation, but the original code
3086 assumed that it was fully sign extended, and we will keep
3088 signmask
= (fieldmask
>> 1) + 1;
3090 if ((a
& ~ fieldmask
) != 0)
3092 /* Some bits out of the field are set. This might not
3093 be a problem: if this is a signed bitfield, it is OK
3094 iff all the high bits are set, including the sign
3095 bit. We'll try setting all but the most significant
3096 bit in the original relocation value: if this is all
3097 ones, we are OK, assuming a signed bitfield. */
3098 ss
= (signmask
<< howto
->rightshift
) - 1;
3099 if ((ss
| relocation
) != ~ (bfd_vma
) 0)
3104 /* We just assume (b & ~ fieldmask) == 0. */
3106 /* We explicitly permit wrap around if this relocation
3107 covers the high bit of an address. The Linux kernel
3108 relies on it, and it is the only way to write assembler
3109 code which can run when loaded at a location 0x80000000
3110 away from the location at which it is linked. */
3111 if ((unsigned) howto
->bitsize
+ howto
->rightshift
3112 == bfd_arch_bits_per_address (input_bfd
))
3116 if (sum
< a
|| (sum
& ~ fieldmask
) != 0)
3118 /* There was a carry out, or the field overflow. Test
3119 for signed operands again. Here is the overflow test
3120 is as for complain_overflow_signed. */
3121 if (((~ (a
^ b
)) & (a
^ sum
)) & signmask
)
3129 xcoff_complain_overflow_signed_func (bfd
*input_bfd
,
3132 struct reloc_howto_struct
*howto
)
3134 bfd_vma addrmask
, fieldmask
, signmask
, ss
;
3137 /* Get the values to be added together. For signed and unsigned
3138 relocations, we assume that all values should be truncated to
3139 the size of an address. For bitfields, all the bits matter.
3140 See also bfd_check_overflow. */
3141 fieldmask
= N_ONES (howto
->bitsize
);
3142 addrmask
= N_ONES (bfd_arch_bits_per_address (input_bfd
)) | fieldmask
;
3144 b
= val
& howto
->src_mask
;
3146 a
= (a
& addrmask
) >> howto
->rightshift
;
3148 /* If any sign bits are set, all sign bits must be set.
3149 That is, A must be a valid negative address after
3151 signmask
= ~ (fieldmask
>> 1);
3153 if (ss
!= 0 && ss
!= ((addrmask
>> howto
->rightshift
) & signmask
))
3156 /* We only need this next bit of code if the sign bit of B
3157 is below the sign bit of A. This would only happen if
3158 SRC_MASK had fewer bits than BITSIZE. Note that if
3159 SRC_MASK has more bits than BITSIZE, we can get into
3160 trouble; we would need to verify that B is in range, as
3161 we do for A above. */
3162 signmask
= ((~ howto
->src_mask
) >> 1) & howto
->src_mask
;
3163 if ((b
& signmask
) != 0)
3165 /* Set all the bits above the sign bit. */
3166 b
-= signmask
<<= 1;
3169 b
= (b
& addrmask
) >> howto
->bitpos
;
3171 /* Now we can do the addition. */
3174 /* See if the result has the correct sign. Bits above the
3175 sign bit are junk now; ignore them. If the sum is
3176 positive, make sure we did not have all negative inputs;
3177 if the sum is negative, make sure we did not have all
3178 positive inputs. The test below looks only at the sign
3179 bits, and it really just
3180 SIGN (A) == SIGN (B) && SIGN (A) != SIGN (SUM)
3182 signmask
= (fieldmask
>> 1) + 1;
3183 if (((~ (a
^ b
)) & (a
^ sum
)) & signmask
)
3190 xcoff_complain_overflow_unsigned_func (bfd
*input_bfd
,
3193 struct reloc_howto_struct
*howto
)
3195 bfd_vma addrmask
, fieldmask
;
3198 /* Get the values to be added together. For signed and unsigned
3199 relocations, we assume that all values should be truncated to
3200 the size of an address. For bitfields, all the bits matter.
3201 See also bfd_check_overflow. */
3202 fieldmask
= N_ONES (howto
->bitsize
);
3203 addrmask
= N_ONES (bfd_arch_bits_per_address (input_bfd
)) | fieldmask
;
3205 b
= val
& howto
->src_mask
;
3207 /* Checking for an unsigned overflow is relatively easy:
3208 trim the addresses and add, and trim the result as well.
3209 Overflow is normally indicated when the result does not
3210 fit in the field. However, we also need to consider the
3211 case when, e.g., fieldmask is 0x7fffffff or smaller, an
3212 input is 0x80000000, and bfd_vma is only 32 bits; then we
3213 will get sum == 0, but there is an overflow, since the
3214 inputs did not fit in the field. Instead of doing a
3215 separate test, we can check for this by or-ing in the
3216 operands when testing for the sum overflowing its final
3218 a
= (a
& addrmask
) >> howto
->rightshift
;
3219 b
= (b
& addrmask
) >> howto
->bitpos
;
3220 sum
= (a
+ b
) & addrmask
;
3221 if ((a
| b
| sum
) & ~ fieldmask
)
3227 /* This is the relocation function for the RS/6000/POWER/PowerPC.
3228 This is currently the only processor which uses XCOFF; I hope that
3231 I took the relocation type definitions from two documents:
3232 the PowerPC AIX Version 4 Application Binary Interface, First
3233 Edition (April 1992), and the PowerOpen ABI, Big-Endian
3234 32-Bit Hardware Implementation (June 30, 1994). Differences
3235 between the documents are noted below.
3237 Unsupported r_type's
3243 These relocs are defined by the PowerPC ABI to be
3244 relative branches which use half of the difference
3245 between the symbol and the program counter. I can't
3246 quite figure out when this is useful. These relocs are
3247 not defined by the PowerOpen ABI.
3252 Simple positive relocation.
3255 Simple negative relocation.
3258 Simple PC relative relocation.
3261 TOC relative relocation. The value in the instruction in
3262 the input file is the offset from the input file TOC to
3263 the desired location. We want the offset from the final
3264 TOC to the desired location. We have:
3269 so we must change insn by on - in.
3272 GL linkage relocation. The value of this relocation
3273 is the address of the entry in the TOC section.
3276 Local object TOC address. I can't figure out the
3277 difference between this and case R_GL.
3280 TOC relative relocation. A TOC relative load instruction
3281 which may be changed to a load address instruction.
3282 FIXME: We don't currently implement this optimization.
3285 TOC relative relocation. This is a TOC relative load
3286 address instruction which may be changed to a load
3287 instruction. FIXME: I don't know if this is the correct
3291 Absolute branch. We don't want to mess with the lower
3292 two bits of the instruction.
3295 The PowerPC ABI defines this as an absolute call which
3296 may be modified to become a relative call. The PowerOpen
3297 ABI does not define this relocation type.
3300 Absolute branch which may be modified to become a
3304 The PowerPC ABI defines this as an absolute branch to a
3305 fixed address which may be modified to an absolute branch
3306 to a symbol. The PowerOpen ABI does not define this
3310 The PowerPC ABI defines this as an absolute branch to a
3311 fixed address which may be modified to a relative branch.
3312 The PowerOpen ABI does not define this relocation type.
3315 Relative branch. We don't want to mess with the lower
3316 two bits of the instruction.
3319 The PowerPC ABI defines this as a relative call which may
3320 be modified to become an absolute call. The PowerOpen
3321 ABI does not define this relocation type.
3324 A relative branch which may be modified to become an
3328 The PowerPC AIX ABI describes this as a load which may be
3329 changed to a load address. The PowerOpen ABI says this
3330 is the same as case R_POS.
3333 The PowerPC AIX ABI describes this as a load address
3334 which may be changed to a load. The PowerOpen ABI says
3335 this is the same as R_POS.
3339 xcoff_ppc_relocate_section (bfd
*output_bfd
,
3340 struct bfd_link_info
*info
,
3342 asection
*input_section
,
3344 struct internal_reloc
*relocs
,
3345 struct internal_syment
*syms
,
3346 asection
**sections
)
3348 struct internal_reloc
*rel
;
3349 struct internal_reloc
*relend
;
3352 relend
= rel
+ input_section
->reloc_count
;
3353 for (; rel
< relend
; rel
++)
3356 struct xcoff_link_hash_entry
*h
;
3357 struct internal_syment
*sym
;
3360 struct reloc_howto_struct howto
;
3362 bfd_vma value_to_relocate
;
3366 /* Relocation type R_REF is a special relocation type which is
3367 merely used to prevent garbage collection from occurring for
3368 the csect including the symbol which it references. */
3369 if (rel
->r_type
== R_REF
)
3373 howto
.type
= rel
->r_type
;
3374 howto
.rightshift
= 0;
3375 howto
.bitsize
= (rel
->r_size
& 0x1f) + 1;
3376 howto
.size
= howto
.bitsize
> 16 ? 2 : 1;
3377 howto
.pc_relative
= FALSE
;
3379 howto
.complain_on_overflow
= (rel
->r_size
& 0x80
3380 ? complain_overflow_signed
3381 : complain_overflow_bitfield
);
3382 howto
.special_function
= NULL
;
3383 howto
.name
= "internal";
3384 howto
.partial_inplace
= TRUE
;
3385 howto
.src_mask
= howto
.dst_mask
= N_ONES (howto
.bitsize
);
3386 howto
.pcrel_offset
= FALSE
;
3393 symndx
= rel
->r_symndx
;
3399 h
= obj_xcoff_sym_hashes (input_bfd
)[symndx
];
3400 sym
= syms
+ symndx
;
3401 addend
= - sym
->n_value
;
3405 sec
= sections
[symndx
];
3406 /* Hack to make sure we use the right TOC anchor value
3407 if this reloc is against the TOC anchor. */
3408 if (sec
->name
[3] == '0'
3409 && strcmp (sec
->name
, ".tc0") == 0)
3410 val
= xcoff_data (output_bfd
)->toc
;
3412 val
= (sec
->output_section
->vma
3413 + sec
->output_offset
3419 if (info
->unresolved_syms_in_objects
!= RM_IGNORE
3420 && (h
->flags
& XCOFF_WAS_UNDEFINED
) != 0)
3421 (*info
->callbacks
->undefined_symbol
)
3422 (info
, h
->root
.root
.string
,
3423 input_bfd
, input_section
,
3424 rel
->r_vaddr
- input_section
->vma
,
3425 info
->unresolved_syms_in_objects
== RM_DIAGNOSE
&&
3426 !info
->warn_unresolved_syms
);
3428 if (h
->root
.type
== bfd_link_hash_defined
3429 || h
->root
.type
== bfd_link_hash_defweak
)
3431 sec
= h
->root
.u
.def
.section
;
3432 val
= (h
->root
.u
.def
.value
3433 + sec
->output_section
->vma
3434 + sec
->output_offset
);
3436 else if (h
->root
.type
== bfd_link_hash_common
)
3438 sec
= h
->root
.u
.c
.p
->section
;
3439 val
= (sec
->output_section
->vma
3440 + sec
->output_offset
);
3445 BFD_ASSERT (bfd_link_relocatable (info
)
3446 || (info
->static_link
3447 && (h
->flags
& XCOFF_WAS_UNDEFINED
) != 0)
3448 || (h
->flags
& XCOFF_DEF_DYNAMIC
) != 0
3449 || (h
->flags
& XCOFF_IMPORT
) != 0);
3454 if (rel
->r_type
>= XCOFF_MAX_CALCULATE_RELOCATION
3455 || !((*xcoff_calculate_relocation
[rel
->r_type
])
3456 (input_bfd
, input_section
, output_bfd
, rel
, sym
, &howto
, val
,
3457 addend
, &relocation
, contents
)))
3461 address
= rel
->r_vaddr
- input_section
->vma
;
3462 location
= contents
+ address
;
3464 if (address
> input_section
->size
)
3467 /* Get the value we are going to relocate. */
3468 if (1 == howto
.size
)
3469 value_to_relocate
= bfd_get_16 (input_bfd
, location
);
3471 value_to_relocate
= bfd_get_32 (input_bfd
, location
);
3475 FIXME: We may drop bits during the addition
3476 which we don't check for. We must either check at every single
3477 operation, which would be tedious, or we must do the computations
3478 in a type larger than bfd_vma, which would be inefficient. */
3480 if (((*xcoff_complain_overflow
[howto
.complain_on_overflow
])
3481 (input_bfd
, value_to_relocate
, relocation
, &howto
)))
3484 char buf
[SYMNMLEN
+ 1];
3485 char reloc_type_name
[10];
3497 name
= _bfd_coff_internal_syment_name (input_bfd
, sym
, buf
);
3501 sprintf (reloc_type_name
, "0x%02x", rel
->r_type
);
3503 (*info
->callbacks
->reloc_overflow
)
3504 (info
, (h
? &h
->root
: NULL
), name
, reloc_type_name
,
3505 (bfd_vma
) 0, input_bfd
, input_section
,
3506 rel
->r_vaddr
- input_section
->vma
);
3509 /* Add RELOCATION to the right bits of VALUE_TO_RELOCATE. */
3510 value_to_relocate
= ((value_to_relocate
& ~howto
.dst_mask
)
3511 | (((value_to_relocate
& howto
.src_mask
)
3512 + relocation
) & howto
.dst_mask
));
3514 /* Put the value back in the object file. */
3515 if (1 == howto
.size
)
3516 bfd_put_16 (input_bfd
, value_to_relocate
, location
);
3518 bfd_put_32 (input_bfd
, value_to_relocate
, location
);
3524 /* gcc-8 warns (*) on all the strncpy calls in this function about
3525 possible string truncation. The "truncation" is not a bug. We
3526 have an external representation of structs with fields that are not
3527 necessarily NULL terminated and corresponding internal
3528 representation fields that are one larger so that they can always
3530 gcc versions between 4.2 and 4.6 do not allow pragma control of
3531 diagnostics inside functions, giving a hard error if you try to use
3532 the finer control available with later versions.
3533 gcc prior to 4.2 warns about diagnostic push and pop.
3534 gcc-5, gcc-6 and gcc-7 warn that -Wstringop-truncation is unknown,
3535 unless you also add #pragma GCC diagnostic ignored "-Wpragma".
3536 (*) Depending on your system header files! */
3537 #if GCC_VERSION >= 8000
3538 # pragma GCC diagnostic push
3539 # pragma GCC diagnostic ignored "-Wstringop-truncation"
3542 _bfd_xcoff_put_ldsymbol_name (bfd
*abfd ATTRIBUTE_UNUSED
,
3543 struct xcoff_loader_info
*ldinfo
,
3544 struct internal_ldsym
*ldsym
,
3548 len
= strlen (name
);
3550 if (len
<= SYMNMLEN
)
3551 strncpy (ldsym
->_l
._l_name
, name
, SYMNMLEN
);
3554 if (ldinfo
->string_size
+ len
+ 3 > ldinfo
->string_alc
)
3556 bfd_size_type newalc
;
3559 newalc
= ldinfo
->string_alc
* 2;
3562 while (ldinfo
->string_size
+ len
+ 3 > newalc
)
3565 newstrings
= bfd_realloc (ldinfo
->strings
, newalc
);
3566 if (newstrings
== NULL
)
3568 ldinfo
->failed
= TRUE
;
3571 ldinfo
->string_alc
= newalc
;
3572 ldinfo
->strings
= newstrings
;
3575 bfd_put_16 (ldinfo
->output_bfd
, (bfd_vma
) (len
+ 1),
3576 ldinfo
->strings
+ ldinfo
->string_size
);
3577 strcpy (ldinfo
->strings
+ ldinfo
->string_size
+ 2, name
);
3578 ldsym
->_l
._l_l
._l_zeroes
= 0;
3579 ldsym
->_l
._l_l
._l_offset
= ldinfo
->string_size
+ 2;
3580 ldinfo
->string_size
+= len
+ 3;
3587 _bfd_xcoff_put_symbol_name (struct bfd_link_info
*info
,
3588 struct bfd_strtab_hash
*strtab
,
3589 struct internal_syment
*sym
,
3592 if (strlen (name
) <= SYMNMLEN
)
3594 strncpy (sym
->_n
._n_name
, name
, SYMNMLEN
);
3601 hash
= !info
->traditional_format
;
3602 indx
= _bfd_stringtab_add (strtab
, name
, hash
, FALSE
);
3603 if (indx
== (bfd_size_type
) -1)
3605 sym
->_n
._n_n
._n_zeroes
= 0;
3606 sym
->_n
._n_n
._n_offset
= STRING_SIZE_SIZE
+ indx
;
3610 #if GCC_VERSION >= 8000
3611 # pragma GCC diagnostic pop
3615 xcoff_create_csect_from_smclas (bfd
*abfd
,
3616 union internal_auxent
*aux
,
3617 const char *symbol_name
)
3619 asection
*return_value
= NULL
;
3621 /* .sv64 = x_smclas == 17
3622 This is an invalid csect for 32 bit apps. */
3623 static const char * const names
[] =
3625 ".pr", ".ro", ".db", ".tc", ".ua", ".rw", ".gl", ".xo", /* 0 - 7 */
3626 ".sv", ".bs", ".ds", ".uc", ".ti", ".tb", NULL
, ".tc0", /* 8 - 15 */
3627 ".td", NULL
, ".sv3264", NULL
, ".tl", ".ul", ".te"
3630 if ((aux
->x_csect
.x_smclas
< ARRAY_SIZE (names
))
3631 && (NULL
!= names
[aux
->x_csect
.x_smclas
]))
3633 return_value
= bfd_make_section_anyway
3634 (abfd
, names
[aux
->x_csect
.x_smclas
]);
3639 /* xgettext: c-format */
3640 (_("%pB: symbol `%s' has unrecognized smclas %d"),
3641 abfd
, symbol_name
, aux
->x_csect
.x_smclas
);
3642 bfd_set_error (bfd_error_bad_value
);
3645 return return_value
;
3649 xcoff_is_lineno_count_overflow (bfd
*abfd ATTRIBUTE_UNUSED
, bfd_vma value
)
3651 if (0xffff <= value
)
3658 xcoff_is_reloc_count_overflow (bfd
*abfd ATTRIBUTE_UNUSED
, bfd_vma value
)
3660 if (0xffff <= value
)
3667 xcoff_loader_symbol_offset (bfd
*abfd
,
3668 struct internal_ldhdr
*ldhdr ATTRIBUTE_UNUSED
)
3670 return bfd_xcoff_ldhdrsz (abfd
);
3674 xcoff_loader_reloc_offset (bfd
*abfd
, struct internal_ldhdr
*ldhdr
)
3676 return bfd_xcoff_ldhdrsz (abfd
) + ldhdr
->l_nsyms
* bfd_xcoff_ldsymsz (abfd
);
3680 xcoff_generate_rtinit (bfd
*abfd
, const char *init
, const char *fini
,
3683 bfd_byte filehdr_ext
[FILHSZ
];
3684 bfd_byte scnhdr_ext
[SCNHSZ
];
3685 bfd_byte syment_ext
[SYMESZ
* 10];
3686 bfd_byte reloc_ext
[RELSZ
* 3];
3687 bfd_byte
*data_buffer
;
3688 bfd_size_type data_buffer_size
;
3689 bfd_byte
*string_table
= NULL
, *st_tmp
= NULL
;
3690 bfd_size_type string_table_size
;
3692 size_t initsz
, finisz
;
3693 struct internal_filehdr filehdr
;
3694 struct internal_scnhdr scnhdr
;
3695 struct internal_syment syment
;
3696 union internal_auxent auxent
;
3697 struct internal_reloc reloc
;
3699 char *data_name
= ".data";
3700 char *rtinit_name
= "__rtinit";
3701 char *rtld_name
= "__rtld";
3703 if (! bfd_xcoff_rtinit_size (abfd
))
3706 initsz
= (init
== NULL
? 0 : 1 + strlen (init
));
3707 finisz
= (fini
== NULL
? 0 : 1 + strlen (fini
));
3710 memset (filehdr_ext
, 0, FILHSZ
);
3711 memset (&filehdr
, 0, sizeof (struct internal_filehdr
));
3712 filehdr
.f_magic
= bfd_xcoff_magic_number (abfd
);
3713 filehdr
.f_nscns
= 1;
3714 filehdr
.f_timdat
= 0;
3715 filehdr
.f_nsyms
= 0; /* at least 6, no more than 10 */
3716 filehdr
.f_symptr
= 0; /* set below */
3717 filehdr
.f_opthdr
= 0;
3718 filehdr
.f_flags
= 0;
3720 /* section header */
3721 memset (scnhdr_ext
, 0, SCNHSZ
);
3722 memset (&scnhdr
, 0, sizeof (struct internal_scnhdr
));
3723 memcpy (scnhdr
.s_name
, data_name
, strlen (data_name
));
3726 scnhdr
.s_size
= 0; /* set below */
3727 scnhdr
.s_scnptr
= FILHSZ
+ SCNHSZ
;
3728 scnhdr
.s_relptr
= 0; /* set below */
3729 scnhdr
.s_lnnoptr
= 0;
3730 scnhdr
.s_nreloc
= 0; /* either 1 or 2 */
3732 scnhdr
.s_flags
= STYP_DATA
;
3735 0x0000 0x00000000 : rtl
3736 0x0004 0x00000010 : offset to init, or 0
3737 0x0008 0x00000028 : offset to fini, or 0
3738 0x000C 0x0000000C : size of descriptor
3739 0x0010 0x00000000 : init, needs a reloc
3740 0x0014 0x00000040 : offset to init name
3741 0x0018 0x00000000 : flags, padded to a word
3742 0x001C 0x00000000 : empty init
3745 0x0028 0x00000000 : fini, needs a reloc
3746 0x002C 0x00000??? : offset to fini name
3747 0x0030 0x00000000 : flags, padded to a word
3748 0x0034 0x00000000 : empty fini
3752 0x0040 + initsz fini name */
3754 data_buffer_size
= 0x0040 + initsz
+ finisz
;
3755 data_buffer_size
= (data_buffer_size
+ 7) &~ (bfd_size_type
) 7;
3757 data_buffer
= (bfd_byte
*) bfd_zmalloc (data_buffer_size
);
3758 if (data_buffer
== NULL
)
3764 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x04]);
3766 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x14]);
3767 memcpy (&data_buffer
[val
], init
, initsz
);
3773 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x08]);
3774 val
= 0x40 + initsz
;
3775 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x2C]);
3776 memcpy (&data_buffer
[val
], fini
, finisz
);
3780 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x0C]);
3782 scnhdr
.s_size
= data_buffer_size
;
3785 string_table_size
= 0;
3787 string_table_size
+= initsz
;
3789 string_table_size
+= finisz
;
3790 if (string_table_size
)
3792 string_table_size
+= 4;
3793 string_table
= (bfd_byte
*) bfd_zmalloc (string_table_size
);
3794 if (string_table
== NULL
)
3797 val
= string_table_size
;
3798 bfd_h_put_32 (abfd
, val
, &string_table
[0]);
3799 st_tmp
= string_table
+ 4;
3808 memset (syment_ext
, 0, 10 * SYMESZ
);
3809 memset (reloc_ext
, 0, 3 * RELSZ
);
3812 memset (&syment
, 0, sizeof (struct internal_syment
));
3813 memset (&auxent
, 0, sizeof (union internal_auxent
));
3814 memcpy (syment
._n
._n_name
, data_name
, strlen (data_name
));
3816 syment
.n_sclass
= C_HIDEXT
;
3817 syment
.n_numaux
= 1;
3818 auxent
.x_csect
.x_scnlen
.l
= data_buffer_size
;
3819 auxent
.x_csect
.x_smtyp
= 3 << 3 | XTY_SD
;
3820 auxent
.x_csect
.x_smclas
= XMC_RW
;
3821 bfd_coff_swap_sym_out (abfd
, &syment
,
3822 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3823 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3825 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3826 filehdr
.f_nsyms
+= 2;
3829 memset (&syment
, 0, sizeof (struct internal_syment
));
3830 memset (&auxent
, 0, sizeof (union internal_auxent
));
3831 memcpy (syment
._n
._n_name
, rtinit_name
, strlen (rtinit_name
));
3833 syment
.n_sclass
= C_EXT
;
3834 syment
.n_numaux
= 1;
3835 auxent
.x_csect
.x_smtyp
= XTY_LD
;
3836 auxent
.x_csect
.x_smclas
= XMC_RW
;
3837 bfd_coff_swap_sym_out (abfd
, &syment
,
3838 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3839 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3841 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3842 filehdr
.f_nsyms
+= 2;
3847 memset (&syment
, 0, sizeof (struct internal_syment
));
3848 memset (&auxent
, 0, sizeof (union internal_auxent
));
3852 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
3853 memcpy (st_tmp
, init
, initsz
);
3857 memcpy (syment
._n
._n_name
, init
, initsz
- 1);
3859 syment
.n_sclass
= C_EXT
;
3860 syment
.n_numaux
= 1;
3861 bfd_coff_swap_sym_out (abfd
, &syment
,
3862 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3863 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3865 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3868 memset (&reloc
, 0, sizeof (struct internal_reloc
));
3869 reloc
.r_vaddr
= 0x0010;
3870 reloc
.r_symndx
= filehdr
.f_nsyms
;
3871 reloc
.r_type
= R_POS
;
3873 bfd_coff_swap_reloc_out (abfd
, &reloc
, &reloc_ext
[0]);
3875 filehdr
.f_nsyms
+= 2;
3876 scnhdr
.s_nreloc
+= 1;
3882 memset (&syment
, 0, sizeof (struct internal_syment
));
3883 memset (&auxent
, 0, sizeof (union internal_auxent
));
3887 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
3888 memcpy (st_tmp
, fini
, finisz
);
3892 memcpy (syment
._n
._n_name
, fini
, finisz
- 1);
3894 syment
.n_sclass
= C_EXT
;
3895 syment
.n_numaux
= 1;
3896 bfd_coff_swap_sym_out (abfd
, &syment
,
3897 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3898 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3900 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3903 memset (&reloc
, 0, sizeof (struct internal_reloc
));
3904 reloc
.r_vaddr
= 0x0028;
3905 reloc
.r_symndx
= filehdr
.f_nsyms
;
3906 reloc
.r_type
= R_POS
;
3908 bfd_coff_swap_reloc_out (abfd
, &reloc
,
3909 &reloc_ext
[scnhdr
.s_nreloc
* RELSZ
]);
3911 filehdr
.f_nsyms
+= 2;
3912 scnhdr
.s_nreloc
+= 1;
3917 memset (&syment
, 0, sizeof (struct internal_syment
));
3918 memset (&auxent
, 0, sizeof (union internal_auxent
));
3919 memcpy (syment
._n
._n_name
, rtld_name
, strlen (rtld_name
));
3920 syment
.n_sclass
= C_EXT
;
3921 syment
.n_numaux
= 1;
3922 bfd_coff_swap_sym_out (abfd
, &syment
,
3923 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3924 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3926 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3929 memset (&reloc
, 0, sizeof (struct internal_reloc
));
3930 reloc
.r_vaddr
= 0x0000;
3931 reloc
.r_symndx
= filehdr
.f_nsyms
;
3932 reloc
.r_type
= R_POS
;
3934 bfd_coff_swap_reloc_out (abfd
, &reloc
,
3935 &reloc_ext
[scnhdr
.s_nreloc
* RELSZ
]);
3937 filehdr
.f_nsyms
+= 2;
3938 scnhdr
.s_nreloc
+= 1;
3941 scnhdr
.s_relptr
= scnhdr
.s_scnptr
+ data_buffer_size
;
3942 filehdr
.f_symptr
= scnhdr
.s_relptr
+ scnhdr
.s_nreloc
* RELSZ
;
3944 bfd_coff_swap_filehdr_out (abfd
, &filehdr
, filehdr_ext
);
3945 bfd_bwrite (filehdr_ext
, FILHSZ
, abfd
);
3946 bfd_coff_swap_scnhdr_out (abfd
, &scnhdr
, scnhdr_ext
);
3947 bfd_bwrite (scnhdr_ext
, SCNHSZ
, abfd
);
3948 bfd_bwrite (data_buffer
, data_buffer_size
, abfd
);
3949 bfd_bwrite (reloc_ext
, scnhdr
.s_nreloc
* RELSZ
, abfd
);
3950 bfd_bwrite (syment_ext
, filehdr
.f_nsyms
* SYMESZ
, abfd
);
3951 bfd_bwrite (string_table
, string_table_size
, abfd
);
3960 static reloc_howto_type xcoff_dynamic_reloc
=
3961 HOWTO (0, /* type */
3963 2, /* size (0 = byte, 1 = short, 2 = long) */
3965 FALSE
, /* pc_relative */
3967 complain_overflow_bitfield
, /* complain_on_overflow */
3968 0, /* special_function */
3970 TRUE
, /* partial_inplace */
3971 0xffffffff, /* src_mask */
3972 0xffffffff, /* dst_mask */
3973 FALSE
); /* pcrel_offset */
3977 The first word of global linkage code must be modified by filling in
3978 the correct TOC offset. */
3980 static const unsigned long xcoff_glink_code
[9] =
3982 0x81820000, /* lwz r12,0(r2) */
3983 0x90410014, /* stw r2,20(r1) */
3984 0x800c0000, /* lwz r0,0(r12) */
3985 0x804c0004, /* lwz r2,4(r12) */
3986 0x7c0903a6, /* mtctr r0 */
3987 0x4e800420, /* bctr */
3988 0x00000000, /* start of traceback table */
3989 0x000c8000, /* traceback table */
3990 0x00000000, /* traceback table */
3993 /* Table to convert DWARF flags to section names. */
3995 const struct xcoff_dwsect_name xcoff_dwsect_names
[] = {
3996 { SSUBTYP_DWINFO
, ".dwinfo", TRUE
},
3997 { SSUBTYP_DWLINE
, ".dwline", TRUE
},
3998 { SSUBTYP_DWPBNMS
, ".dwpbnms", TRUE
},
3999 { SSUBTYP_DWPBTYP
, ".dwpbtyp", TRUE
},
4000 { SSUBTYP_DWARNGE
, ".dwarnge", TRUE
},
4001 { SSUBTYP_DWABREV
, ".dwabrev", FALSE
},
4002 { SSUBTYP_DWSTR
, ".dwstr", TRUE
},
4003 { SSUBTYP_DWRNGES
, ".dwrnges", TRUE
}
4006 /* For generic entry points. */
4007 #define _bfd_xcoff_close_and_cleanup _bfd_archive_close_and_cleanup
4008 #define _bfd_xcoff_bfd_free_cached_info _bfd_bool_bfd_true
4009 #define _bfd_xcoff_new_section_hook coff_new_section_hook
4010 #define _bfd_xcoff_get_section_contents _bfd_generic_get_section_contents
4011 #define _bfd_xcoff_get_section_contents_in_window \
4012 _bfd_generic_get_section_contents_in_window
4014 /* For copy private data entry points. */
4015 #define _bfd_xcoff_bfd_copy_private_bfd_data \
4016 _bfd_xcoff_copy_private_bfd_data
4017 #define _bfd_xcoff_bfd_merge_private_bfd_data \
4018 _bfd_generic_bfd_merge_private_bfd_data
4019 #define _bfd_xcoff_bfd_copy_private_section_data \
4020 _bfd_generic_bfd_copy_private_section_data
4021 #define _bfd_xcoff_bfd_copy_private_symbol_data \
4022 _bfd_generic_bfd_copy_private_symbol_data
4023 #define _bfd_xcoff_bfd_copy_private_header_data \
4024 _bfd_generic_bfd_copy_private_header_data
4025 #define _bfd_xcoff_bfd_set_private_flags \
4026 _bfd_generic_bfd_set_private_flags
4027 #define _bfd_xcoff_bfd_print_private_bfd_data \
4028 _bfd_generic_bfd_print_private_bfd_data
4030 /* For archive entry points. */
4031 #define _bfd_xcoff_slurp_extended_name_table \
4032 _bfd_noarchive_slurp_extended_name_table
4033 #define _bfd_xcoff_construct_extended_name_table \
4034 _bfd_noarchive_construct_extended_name_table
4035 #define _bfd_xcoff_truncate_arname bfd_dont_truncate_arname
4036 #define _bfd_xcoff_write_ar_hdr _bfd_generic_write_ar_hdr
4037 #define _bfd_xcoff_get_elt_at_index _bfd_generic_get_elt_at_index
4038 #define _bfd_xcoff_generic_stat_arch_elt _bfd_xcoff_stat_arch_elt
4039 #define _bfd_xcoff_update_armap_timestamp _bfd_bool_bfd_true
4041 /* For symbols entry points. */
4042 #define _bfd_xcoff_get_symtab_upper_bound coff_get_symtab_upper_bound
4043 #define _bfd_xcoff_canonicalize_symtab coff_canonicalize_symtab
4044 #define _bfd_xcoff_make_empty_symbol coff_make_empty_symbol
4045 #define _bfd_xcoff_print_symbol coff_print_symbol
4046 #define _bfd_xcoff_get_symbol_info coff_get_symbol_info
4047 #define _bfd_xcoff_get_symbol_version_string \
4048 _bfd_nosymbols_get_symbol_version_string
4049 #define _bfd_xcoff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
4050 #define _bfd_xcoff_bfd_is_target_special_symbol \
4051 coff_bfd_is_target_special_symbol
4052 #define _bfd_xcoff_get_lineno coff_get_lineno
4053 #define _bfd_xcoff_find_nearest_line coff_find_nearest_line
4054 #define _bfd_xcoff_find_line coff_find_line
4055 #define _bfd_xcoff_find_inliner_info coff_find_inliner_info
4056 #define _bfd_xcoff_bfd_make_debug_symbol coff_bfd_make_debug_symbol
4057 #define _bfd_xcoff_read_minisymbols _bfd_generic_read_minisymbols
4058 #define _bfd_xcoff_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
4060 /* For reloc entry points. */
4061 #define _bfd_xcoff_get_reloc_upper_bound coff_get_reloc_upper_bound
4062 #define _bfd_xcoff_canonicalize_reloc coff_canonicalize_reloc
4063 #define _bfd_xcoff_set_reloc _bfd_generic_set_reloc
4064 #define _bfd_xcoff_bfd_reloc_type_lookup _bfd_xcoff_reloc_type_lookup
4065 #define _bfd_xcoff_bfd_reloc_name_lookup _bfd_xcoff_reloc_name_lookup
4067 /* For link entry points. */
4068 #define _bfd_xcoff_bfd_get_relocated_section_contents \
4069 bfd_generic_get_relocated_section_contents
4070 #define _bfd_xcoff_bfd_relax_section bfd_generic_relax_section
4071 #define _bfd_xcoff_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
4072 #define _bfd_xcoff_bfd_link_just_syms _bfd_generic_link_just_syms
4073 #define _bfd_xcoff_bfd_copy_link_hash_symbol_type \
4074 _bfd_generic_copy_link_hash_symbol_type
4075 #define _bfd_xcoff_bfd_link_split_section _bfd_generic_link_split_section
4076 #define _bfd_xcoff_bfd_gc_sections bfd_generic_gc_sections
4077 #define _bfd_xcoff_bfd_lookup_section_flags bfd_generic_lookup_section_flags
4078 #define _bfd_xcoff_bfd_merge_sections bfd_generic_merge_sections
4079 #define _bfd_xcoff_bfd_is_group_section bfd_generic_is_group_section
4080 #define _bfd_xcoff_bfd_group_name bfd_generic_group_name
4081 #define _bfd_xcoff_bfd_discard_group bfd_generic_discard_group
4082 #define _bfd_xcoff_section_already_linked _bfd_generic_section_already_linked
4083 #define _bfd_xcoff_bfd_define_common_symbol _bfd_xcoff_define_common_symbol
4084 #define _bfd_xcoff_bfd_link_hide_symbol _bfd_generic_link_hide_symbol
4085 #define _bfd_xcoff_bfd_define_start_stop bfd_generic_define_start_stop
4086 #define _bfd_xcoff_bfd_link_check_relocs _bfd_generic_link_check_relocs
4088 /* For dynamic symbols and relocs entry points. */
4089 #define _bfd_xcoff_get_synthetic_symtab _bfd_nodynamic_get_synthetic_symtab
4091 static const struct xcoff_backend_data_rec bfd_xcoff_backend_data
=
4093 { /* COFF backend, defined in libcoff.h. */
4094 _bfd_xcoff_swap_aux_in
,
4095 _bfd_xcoff_swap_sym_in
,
4096 coff_swap_lineno_in
,
4097 _bfd_xcoff_swap_aux_out
,
4098 _bfd_xcoff_swap_sym_out
,
4099 coff_swap_lineno_out
,
4100 xcoff_swap_reloc_out
,
4101 coff_swap_filehdr_out
,
4102 coff_swap_aouthdr_out
,
4103 coff_swap_scnhdr_out
,
4112 TRUE
, /* _bfd_coff_long_filenames */
4113 XCOFF_NO_LONG_SECTION_NAMES
, /* _bfd_coff_long_section_names */
4114 3, /* _bfd_coff_default_section_alignment_power */
4115 FALSE
, /* _bfd_coff_force_symnames_in_strings */
4116 2, /* _bfd_coff_debug_string_prefix_length */
4117 32768, /* _bfd_coff_max_nscns */
4118 coff_swap_filehdr_in
,
4119 coff_swap_aouthdr_in
,
4120 coff_swap_scnhdr_in
,
4121 xcoff_swap_reloc_in
,
4122 coff_bad_format_hook
,
4123 coff_set_arch_mach_hook
,
4126 coff_set_alignment_hook
,
4127 coff_slurp_symbol_table
,
4128 symname_in_debug_hook
,
4129 coff_pointerize_aux_hook
,
4131 dummy_reloc16_extra_cases
,
4132 dummy_reloc16_estimate
,
4133 NULL
, /* bfd_coff_sym_is_global */
4134 coff_compute_section_file_positions
,
4135 NULL
, /* _bfd_coff_start_final_link */
4136 xcoff_ppc_relocate_section
,
4137 coff_rtype_to_howto
,
4138 NULL
, /* _bfd_coff_adjust_symndx */
4139 _bfd_generic_link_add_one_symbol
,
4140 coff_link_output_has_begun
,
4141 coff_final_link_postscript
,
4142 NULL
/* print_pdata. */
4145 0x01DF, /* magic number */
4149 /* Function pointers to xcoff specific swap routines. */
4150 xcoff_swap_ldhdr_in
,
4151 xcoff_swap_ldhdr_out
,
4152 xcoff_swap_ldsym_in
,
4153 xcoff_swap_ldsym_out
,
4154 xcoff_swap_ldrel_in
,
4155 xcoff_swap_ldrel_out
,
4161 12, /* _xcoff_function_descriptor_size */
4165 1, /* _xcoff_ldhdr_version */
4167 _bfd_xcoff_put_symbol_name
,
4168 _bfd_xcoff_put_ldsymbol_name
,
4169 &xcoff_dynamic_reloc
,
4170 xcoff_create_csect_from_smclas
,
4172 /* Lineno and reloc count overflow. */
4173 xcoff_is_lineno_count_overflow
,
4174 xcoff_is_reloc_count_overflow
,
4176 xcoff_loader_symbol_offset
,
4177 xcoff_loader_reloc_offset
,
4180 &xcoff_glink_code
[0],
4181 36, /* _xcoff_glink_size */
4184 64, /* _xcoff_rtinit_size */
4185 xcoff_generate_rtinit
,
4188 /* The transfer vector that leads the outside world to all of the above. */
4189 const bfd_target rs6000_xcoff_vec
=
4192 bfd_target_xcoff_flavour
,
4193 BFD_ENDIAN_BIG
, /* data byte order is big */
4194 BFD_ENDIAN_BIG
, /* header byte order is big */
4196 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
4197 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
4199 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
4200 0, /* leading char */
4201 '/', /* ar_pad_char */
4202 15, /* ar_max_namelen */
4203 0, /* match priority. */
4227 { /* bfd_check_format */
4230 _bfd_xcoff_archive_p
,
4234 { /* bfd_set_format */
4235 _bfd_bool_bfd_false_error
,
4237 _bfd_generic_mkarchive
,
4238 _bfd_bool_bfd_false_error
4241 {/* bfd_write_contents */
4242 _bfd_bool_bfd_false_error
,
4243 coff_write_object_contents
,
4244 _bfd_xcoff_write_archive_contents
,
4245 _bfd_bool_bfd_false_error
4248 BFD_JUMP_TABLE_GENERIC (_bfd_xcoff
),
4249 BFD_JUMP_TABLE_COPY (_bfd_xcoff
),
4250 BFD_JUMP_TABLE_CORE (coff
),
4251 BFD_JUMP_TABLE_ARCHIVE (_bfd_xcoff
),
4252 BFD_JUMP_TABLE_SYMBOLS (_bfd_xcoff
),
4253 BFD_JUMP_TABLE_RELOCS (_bfd_xcoff
),
4254 BFD_JUMP_TABLE_WRITE (coff
),
4255 BFD_JUMP_TABLE_LINK (_bfd_xcoff
),
4256 BFD_JUMP_TABLE_DYNAMIC (_bfd_xcoff
),
4258 /* Opposite endian version, none exists */
4261 & bfd_xcoff_backend_data
,
4264 /* xcoff-powermac target
4266 Only difference between this target and the rs6000 target is the
4267 the default architecture and machine type used in coffcode.h
4269 PowerPC Macs use the same magic numbers as RS/6000
4270 (because that's how they were bootstrapped originally),
4271 but they are always PowerPC architecture. */
4272 static const struct xcoff_backend_data_rec bfd_pmac_xcoff_backend_data
=
4274 { /* COFF backend, defined in libcoff.h. */
4275 _bfd_xcoff_swap_aux_in
,
4276 _bfd_xcoff_swap_sym_in
,
4277 coff_swap_lineno_in
,
4278 _bfd_xcoff_swap_aux_out
,
4279 _bfd_xcoff_swap_sym_out
,
4280 coff_swap_lineno_out
,
4281 xcoff_swap_reloc_out
,
4282 coff_swap_filehdr_out
,
4283 coff_swap_aouthdr_out
,
4284 coff_swap_scnhdr_out
,
4293 TRUE
, /* _bfd_coff_long_filenames */
4294 XCOFF_NO_LONG_SECTION_NAMES
, /* _bfd_coff_long_section_names */
4295 3, /* _bfd_coff_default_section_alignment_power */
4296 FALSE
, /* _bfd_coff_force_symnames_in_strings */
4297 2, /* _bfd_coff_debug_string_prefix_length */
4298 32768, /* _bfd_coff_max_nscns */
4299 coff_swap_filehdr_in
,
4300 coff_swap_aouthdr_in
,
4301 coff_swap_scnhdr_in
,
4302 xcoff_swap_reloc_in
,
4303 coff_bad_format_hook
,
4304 coff_set_arch_mach_hook
,
4307 coff_set_alignment_hook
,
4308 coff_slurp_symbol_table
,
4309 symname_in_debug_hook
,
4310 coff_pointerize_aux_hook
,
4312 dummy_reloc16_extra_cases
,
4313 dummy_reloc16_estimate
,
4314 NULL
, /* bfd_coff_sym_is_global */
4315 coff_compute_section_file_positions
,
4316 NULL
, /* _bfd_coff_start_final_link */
4317 xcoff_ppc_relocate_section
,
4318 coff_rtype_to_howto
,
4319 NULL
, /* _bfd_coff_adjust_symndx */
4320 _bfd_generic_link_add_one_symbol
,
4321 coff_link_output_has_begun
,
4322 coff_final_link_postscript
,
4323 NULL
/* print_pdata. */
4326 0x01DF, /* magic number */
4330 /* Function pointers to xcoff specific swap routines. */
4331 xcoff_swap_ldhdr_in
,
4332 xcoff_swap_ldhdr_out
,
4333 xcoff_swap_ldsym_in
,
4334 xcoff_swap_ldsym_out
,
4335 xcoff_swap_ldrel_in
,
4336 xcoff_swap_ldrel_out
,
4342 12, /* _xcoff_function_descriptor_size */
4346 1, /* _xcoff_ldhdr_version */
4348 _bfd_xcoff_put_symbol_name
,
4349 _bfd_xcoff_put_ldsymbol_name
,
4350 &xcoff_dynamic_reloc
,
4351 xcoff_create_csect_from_smclas
,
4353 /* Lineno and reloc count overflow. */
4354 xcoff_is_lineno_count_overflow
,
4355 xcoff_is_reloc_count_overflow
,
4357 xcoff_loader_symbol_offset
,
4358 xcoff_loader_reloc_offset
,
4361 &xcoff_glink_code
[0],
4362 36, /* _xcoff_glink_size */
4365 0, /* _xcoff_rtinit_size */
4366 xcoff_generate_rtinit
,
4369 /* The transfer vector that leads the outside world to all of the above. */
4370 const bfd_target powerpc_xcoff_vec
=
4373 bfd_target_xcoff_flavour
,
4374 BFD_ENDIAN_BIG
, /* data byte order is big */
4375 BFD_ENDIAN_BIG
, /* header byte order is big */
4377 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
4378 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
4380 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
4381 0, /* leading char */
4382 '/', /* ar_pad_char */
4383 15, /* ar_max_namelen */
4384 0, /* match priority. */
4408 { /* bfd_check_format */
4411 _bfd_xcoff_archive_p
,
4415 { /* bfd_set_format */
4416 _bfd_bool_bfd_false_error
,
4418 _bfd_generic_mkarchive
,
4419 _bfd_bool_bfd_false_error
4422 {/* bfd_write_contents */
4423 _bfd_bool_bfd_false_error
,
4424 coff_write_object_contents
,
4425 _bfd_xcoff_write_archive_contents
,
4426 _bfd_bool_bfd_false_error
4429 BFD_JUMP_TABLE_GENERIC (_bfd_xcoff
),
4430 BFD_JUMP_TABLE_COPY (_bfd_xcoff
),
4431 BFD_JUMP_TABLE_CORE (coff
),
4432 BFD_JUMP_TABLE_ARCHIVE (_bfd_xcoff
),
4433 BFD_JUMP_TABLE_SYMBOLS (_bfd_xcoff
),
4434 BFD_JUMP_TABLE_RELOCS (_bfd_xcoff
),
4435 BFD_JUMP_TABLE_WRITE (coff
),
4436 BFD_JUMP_TABLE_LINK (_bfd_xcoff
),
4437 BFD_JUMP_TABLE_DYNAMIC (_bfd_xcoff
),
4439 /* Opposite endian version, none exists */
4442 & bfd_pmac_xcoff_backend_data
,