1 /* BFD back-end for IBM RS/6000 "XCOFF" files.
2 Copyright (C) 1990-2021 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];
1095 case BFD_RELOC_PPC_B16
:
1096 return &xcoff_howto_table
[0x1d];
1098 case BFD_RELOC_CTOR
:
1099 return &xcoff_howto_table
[0];
1100 case BFD_RELOC_NONE
:
1101 return &xcoff_howto_table
[0xf];
1107 static reloc_howto_type
*
1108 _bfd_xcoff_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1114 i
< sizeof (xcoff_howto_table
) / sizeof (xcoff_howto_table
[0]);
1116 if (xcoff_howto_table
[i
].name
!= NULL
1117 && strcasecmp (xcoff_howto_table
[i
].name
, r_name
) == 0)
1118 return &xcoff_howto_table
[i
];
1123 /* XCOFF archive support. The original version of this code was by
1124 Damon A. Permezel. It was enhanced to permit cross support, and
1125 writing archive files, by Ian Lance Taylor, Cygnus Support.
1127 XCOFF uses its own archive format. Everything is hooked together
1128 with file offset links, so it is possible to rapidly update an
1129 archive in place. Of course, we don't do that. An XCOFF archive
1130 has a real file header, not just an ARMAG string. The structure of
1131 the file header and of each archive header appear below.
1133 An XCOFF archive also has a member table, which is a list of
1134 elements in the archive (you can get that by looking through the
1135 linked list, but you have to read a lot more of the file). The
1136 member table has a normal archive header with an empty name. It is
1137 normally (and perhaps must be) the second to last entry in the
1138 archive. The member table data is almost printable ASCII. It
1139 starts with a 12 character decimal string which is the number of
1140 entries in the table. For each entry it has a 12 character decimal
1141 string which is the offset in the archive of that member. These
1142 entries are followed by a series of null terminated strings which
1143 are the member names for each entry.
1145 Finally, an XCOFF archive has a global symbol table, which is what
1146 we call the armap. The global symbol table has a normal archive
1147 header with an empty name. It is normally (and perhaps must be)
1148 the last entry in the archive. The contents start with a four byte
1149 binary number which is the number of entries. This is followed by
1150 a that many four byte binary numbers; each is the file offset of an
1151 entry in the archive. These numbers are followed by a series of
1152 null terminated strings, which are symbol names.
1154 AIX 4.3 introduced a new archive format which can handle larger
1155 files and also 32- and 64-bit objects in the same archive. The
1156 things said above remain true except that there is now more than
1157 one global symbol table. The one is used to index 32-bit objects,
1158 the other for 64-bit objects.
1160 The new archives (recognizable by the new ARMAG string) has larger
1161 field lengths so that we cannot really share any code. Also we have
1162 to take care that we are not generating the new form of archives
1163 on AIX 4.2 or earlier systems. */
1165 /* PR 21786: The PE/COFF standard does not require NUL termination for any of
1166 the ASCII fields in the archive headers. So in order to be able to extract
1167 numerical values we provide our own versions of strtol and strtoll which
1168 take a maximum length as an additional parameter. Also - just to save space,
1169 we omit the endptr return parameter, since we know that it is never used. */
1172 _bfd_strntol (const char * nptr
, int base
, unsigned int maxlen
)
1174 char buf
[24]; /* Should be enough. */
1176 BFD_ASSERT (maxlen
< (sizeof (buf
) - 1));
1178 memcpy (buf
, nptr
, maxlen
);
1180 return strtol (buf
, NULL
, base
);
1184 _bfd_strntoll (const char * nptr
, int base
, unsigned int maxlen
)
1186 char buf
[32]; /* Should be enough. */
1188 BFD_ASSERT (maxlen
< (sizeof (buf
) - 1));
1190 memcpy (buf
, nptr
, maxlen
);
1192 return strtoll (buf
, NULL
, base
);
1195 /* Macro to read an ASCII value stored in an archive header field. */
1196 #define GET_VALUE_IN_FIELD(VAR, FIELD, BASE) \
1199 (VAR) = (sizeof (VAR) > sizeof (long) \
1200 ? _bfd_strntoll (FIELD, BASE, sizeof FIELD) \
1201 : _bfd_strntol (FIELD, BASE, sizeof FIELD)); \
1205 #define EQ_VALUE_IN_FIELD(VAR, FIELD, BASE) \
1206 (sizeof (VAR) > sizeof (long) \
1207 ? (VAR) == _bfd_strntoll (FIELD, BASE, sizeof FIELD) \
1208 : (VAR) == _bfd_strntol (FIELD, BASE, sizeof FIELD))
1210 /* Read in the armap of an XCOFF archive. */
1213 _bfd_xcoff_slurp_armap (bfd
*abfd
)
1218 bfd_byte
*contents
, *cend
;
1223 if (xcoff_ardata (abfd
) == NULL
)
1225 abfd
->has_armap
= FALSE
;
1229 if (! xcoff_big_format_p (abfd
))
1231 /* This is for the old format. */
1232 struct xcoff_ar_hdr hdr
;
1234 GET_VALUE_IN_FIELD (off
, xcoff_ardata (abfd
)->symoff
, 10);
1237 abfd
->has_armap
= FALSE
;
1241 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1244 /* The symbol table starts with a normal archive header. */
1245 if (bfd_bread (&hdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
1249 /* Skip the name (normally empty). */
1250 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1251 off
= ((namlen
+ 1) & ~ (size_t) 1) + SXCOFFARFMAG
;
1252 if (bfd_seek (abfd
, off
, SEEK_CUR
) != 0)
1255 GET_VALUE_IN_FIELD (sz
, hdr
.size
, 10);
1258 bfd_set_error (bfd_error_bad_value
);
1262 /* Read in the entire symbol table. */
1263 contents
= (bfd_byte
*) _bfd_alloc_and_read (abfd
, sz
+ 1, sz
);
1264 if (contents
== NULL
)
1267 /* Ensure strings are NULL terminated so we don't wander off the
1268 end of the buffer. */
1271 /* The symbol table starts with a four byte count. */
1272 c
= H_GET_32 (abfd
, contents
);
1276 bfd_set_error (bfd_error_bad_value
);
1280 bfd_ardata (abfd
)->symdefs
=
1281 ((carsym
*) bfd_alloc (abfd
, c
* sizeof (carsym
)));
1282 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1285 /* After the count comes a list of four byte file offsets. */
1286 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 4;
1288 ++i
, ++arsym
, p
+= 4)
1289 arsym
->file_offset
= H_GET_32 (abfd
, p
);
1293 /* This is for the new format. */
1294 struct xcoff_ar_hdr_big hdr
;
1296 GET_VALUE_IN_FIELD (off
, xcoff_ardata_big (abfd
)->symoff
, 10);
1299 abfd
->has_armap
= FALSE
;
1303 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1306 /* The symbol table starts with a normal archive header. */
1307 if (bfd_bread (&hdr
, (bfd_size_type
) SIZEOF_AR_HDR_BIG
, abfd
)
1308 != SIZEOF_AR_HDR_BIG
)
1311 /* Skip the name (normally empty). */
1312 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1313 off
= ((namlen
+ 1) & ~ (size_t) 1) + SXCOFFARFMAG
;
1314 if (bfd_seek (abfd
, off
, SEEK_CUR
) != 0)
1317 GET_VALUE_IN_FIELD (sz
, hdr
.size
, 10);
1320 bfd_set_error (bfd_error_bad_value
);
1324 /* Read in the entire symbol table. */
1325 contents
= (bfd_byte
*) _bfd_alloc_and_read (abfd
, sz
+ 1, sz
);
1326 if (contents
== NULL
)
1329 /* Ensure strings are NULL terminated so we don't wander off the
1330 end of the buffer. */
1333 /* The symbol table starts with an eight byte count. */
1334 c
= H_GET_64 (abfd
, contents
);
1338 bfd_set_error (bfd_error_bad_value
);
1342 bfd_ardata (abfd
)->symdefs
=
1343 ((carsym
*) bfd_alloc (abfd
, c
* sizeof (carsym
)));
1344 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1347 /* After the count comes a list of eight byte file offsets. */
1348 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 8;
1350 ++i
, ++arsym
, p
+= 8)
1351 arsym
->file_offset
= H_GET_64 (abfd
, p
);
1354 /* After the file offsets come null terminated symbol names. */
1355 cend
= contents
+ sz
;
1356 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
;
1358 ++i
, ++arsym
, p
+= strlen ((char *) p
) + 1)
1362 bfd_set_error (bfd_error_bad_value
);
1365 arsym
->name
= (char *) p
;
1368 bfd_ardata (abfd
)->symdef_count
= c
;
1369 abfd
->has_armap
= TRUE
;
1374 /* See if this is an XCOFF archive. */
1377 _bfd_xcoff_archive_p (bfd
*abfd
)
1379 struct artdata
*tdata_hold
;
1380 char magic
[SXCOFFARMAG
];
1381 size_t amt
= SXCOFFARMAG
;
1383 if (bfd_bread (magic
, amt
, abfd
) != amt
)
1385 if (bfd_get_error () != bfd_error_system_call
)
1386 bfd_set_error (bfd_error_wrong_format
);
1390 if (strncmp (magic
, XCOFFARMAG
, SXCOFFARMAG
) != 0
1391 && strncmp (magic
, XCOFFARMAGBIG
, SXCOFFARMAG
) != 0)
1393 bfd_set_error (bfd_error_wrong_format
);
1397 tdata_hold
= bfd_ardata (abfd
);
1399 amt
= sizeof (struct artdata
);
1400 bfd_ardata (abfd
) = (struct artdata
*) bfd_zalloc (abfd
, amt
);
1401 if (bfd_ardata (abfd
) == (struct artdata
*) NULL
)
1402 goto error_ret_restore
;
1404 /* Cleared by bfd_zalloc above.
1405 bfd_ardata (abfd)->cache = NULL;
1406 bfd_ardata (abfd)->archive_head = NULL;
1407 bfd_ardata (abfd)->symdefs = NULL;
1408 bfd_ardata (abfd)->extended_names = NULL;
1409 bfd_ardata (abfd)->extended_names_size = 0; */
1411 /* Now handle the two formats. */
1412 if (magic
[1] != 'b')
1414 /* This is the old format. */
1415 struct xcoff_ar_file_hdr hdr
;
1417 /* Copy over the magic string. */
1418 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1420 /* Now read the rest of the file header. */
1421 amt
= SIZEOF_AR_FILE_HDR
- SXCOFFARMAG
;
1422 if (bfd_bread (&hdr
.memoff
, amt
, abfd
) != amt
)
1424 if (bfd_get_error () != bfd_error_system_call
)
1425 bfd_set_error (bfd_error_wrong_format
);
1429 GET_VALUE_IN_FIELD (bfd_ardata (abfd
)->first_file_filepos
,
1430 hdr
.firstmemoff
, 10);
1432 amt
= SIZEOF_AR_FILE_HDR
;
1433 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, amt
);
1434 if (bfd_ardata (abfd
)->tdata
== NULL
)
1437 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR
);
1441 /* This is the new format. */
1442 struct xcoff_ar_file_hdr_big hdr
;
1444 /* Copy over the magic string. */
1445 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1447 /* Now read the rest of the file header. */
1448 amt
= SIZEOF_AR_FILE_HDR_BIG
- SXCOFFARMAG
;
1449 if (bfd_bread (&hdr
.memoff
, amt
, abfd
) != amt
)
1451 if (bfd_get_error () != bfd_error_system_call
)
1452 bfd_set_error (bfd_error_wrong_format
);
1456 bfd_ardata (abfd
)->first_file_filepos
= bfd_scan_vma (hdr
.firstmemoff
,
1460 amt
= SIZEOF_AR_FILE_HDR_BIG
;
1461 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, amt
);
1462 if (bfd_ardata (abfd
)->tdata
== NULL
)
1465 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR_BIG
);
1468 if (! _bfd_xcoff_slurp_armap (abfd
))
1471 bfd_release (abfd
, bfd_ardata (abfd
));
1473 bfd_ardata (abfd
) = tdata_hold
;
1477 return _bfd_no_cleanup
;
1480 /* Read the archive header in an XCOFF archive. */
1483 _bfd_xcoff_read_ar_hdr (bfd
*abfd
)
1485 bfd_size_type namlen
;
1486 struct areltdata
*ret
;
1489 if (! xcoff_big_format_p (abfd
))
1491 struct xcoff_ar_hdr hdr
;
1492 struct xcoff_ar_hdr
*hdrp
;
1494 if (bfd_bread (&hdr
, SIZEOF_AR_HDR
, abfd
) != SIZEOF_AR_HDR
)
1497 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1498 amt
= sizeof (struct areltdata
) + SIZEOF_AR_HDR
+ namlen
+ 1;
1499 ret
= (struct areltdata
*) bfd_malloc (amt
);
1503 hdrp
= (struct xcoff_ar_hdr
*) (ret
+ 1);
1504 memcpy (hdrp
, &hdr
, SIZEOF_AR_HDR
);
1505 if (bfd_bread ((char *) hdrp
+ SIZEOF_AR_HDR
, namlen
, abfd
) != namlen
)
1510 ((char *) hdrp
)[SIZEOF_AR_HDR
+ namlen
] = '\0';
1512 ret
->arch_header
= (char *) hdrp
;
1513 GET_VALUE_IN_FIELD (ret
->parsed_size
, hdr
.size
, 10);
1514 ret
->filename
= (char *) hdrp
+ SIZEOF_AR_HDR
;
1518 struct xcoff_ar_hdr_big hdr
;
1519 struct xcoff_ar_hdr_big
*hdrp
;
1521 if (bfd_bread (&hdr
, SIZEOF_AR_HDR_BIG
, abfd
) != SIZEOF_AR_HDR_BIG
)
1524 GET_VALUE_IN_FIELD (namlen
, hdr
.namlen
, 10);
1525 amt
= sizeof (struct areltdata
) + SIZEOF_AR_HDR_BIG
+ namlen
+ 1;
1526 ret
= (struct areltdata
*) bfd_malloc (amt
);
1530 hdrp
= (struct xcoff_ar_hdr_big
*) (ret
+ 1);
1531 memcpy (hdrp
, &hdr
, SIZEOF_AR_HDR_BIG
);
1532 if (bfd_bread ((char *) hdrp
+ SIZEOF_AR_HDR_BIG
, namlen
, abfd
) != namlen
)
1537 ((char *) hdrp
)[SIZEOF_AR_HDR_BIG
+ namlen
] = '\0';
1539 ret
->arch_header
= (char *) hdrp
;
1540 GET_VALUE_IN_FIELD (ret
->parsed_size
, hdr
.size
, 10);
1541 ret
->filename
= (char *) hdrp
+ SIZEOF_AR_HDR_BIG
;
1544 /* Skip over the XCOFFARFMAG at the end of the file name. */
1545 if (bfd_seek (abfd
, (file_ptr
) ((namlen
& 1) + SXCOFFARFMAG
), SEEK_CUR
) != 0)
1551 /* Open the next element in an XCOFF archive. */
1554 _bfd_xcoff_openr_next_archived_file (bfd
*archive
, bfd
*last_file
)
1558 if (xcoff_ardata (archive
) == NULL
)
1560 bfd_set_error (bfd_error_invalid_operation
);
1564 if (! xcoff_big_format_p (archive
))
1566 if (last_file
== NULL
)
1567 filestart
= bfd_ardata (archive
)->first_file_filepos
;
1569 GET_VALUE_IN_FIELD (filestart
, arch_xhdr (last_file
)->nextoff
, 10);
1572 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata (archive
)->memoff
, 10)
1573 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata (archive
)->symoff
, 10))
1575 bfd_set_error (bfd_error_no_more_archived_files
);
1581 if (last_file
== NULL
)
1582 filestart
= bfd_ardata (archive
)->first_file_filepos
;
1584 GET_VALUE_IN_FIELD (filestart
, arch_xhdr_big (last_file
)->nextoff
, 10);
1587 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata_big (archive
)->memoff
, 10)
1588 || EQ_VALUE_IN_FIELD (filestart
, xcoff_ardata_big (archive
)->symoff
, 10))
1590 bfd_set_error (bfd_error_no_more_archived_files
);
1595 return _bfd_get_elt_at_filepos (archive
, filestart
);
1598 /* Stat an element in an XCOFF archive. */
1601 _bfd_xcoff_stat_arch_elt (bfd
*abfd
, struct stat
*s
)
1603 if (abfd
->arelt_data
== NULL
)
1605 bfd_set_error (bfd_error_invalid_operation
);
1609 if (! xcoff_big_format_p (abfd
->my_archive
))
1611 struct xcoff_ar_hdr
*hdrp
= arch_xhdr (abfd
);
1613 GET_VALUE_IN_FIELD (s
->st_mtime
, hdrp
->date
, 10);
1614 GET_VALUE_IN_FIELD (s
->st_uid
, hdrp
->uid
, 10);
1615 GET_VALUE_IN_FIELD (s
->st_gid
, hdrp
->gid
, 10);
1616 GET_VALUE_IN_FIELD (s
->st_mode
, hdrp
->mode
, 8);
1617 s
->st_size
= arch_eltdata (abfd
)->parsed_size
;
1621 struct xcoff_ar_hdr_big
*hdrp
= arch_xhdr_big (abfd
);
1623 GET_VALUE_IN_FIELD (s
->st_mtime
, hdrp
->date
, 10);
1624 GET_VALUE_IN_FIELD (s
->st_uid
, hdrp
->uid
, 10);
1625 GET_VALUE_IN_FIELD (s
->st_gid
, hdrp
->gid
, 10);
1626 GET_VALUE_IN_FIELD (s
->st_mode
, hdrp
->mode
, 8);
1627 s
->st_size
= arch_eltdata (abfd
)->parsed_size
;
1633 /* Normalize a file name for inclusion in an archive. */
1636 normalize_filename (bfd
*abfd
)
1639 const char *filename
;
1641 file
= bfd_get_filename (abfd
);
1642 filename
= strrchr (file
, '/');
1643 if (filename
!= NULL
)
1650 /* Write out an XCOFF armap. */
1653 xcoff_write_armap_old (bfd
*abfd
, unsigned int elength ATTRIBUTE_UNUSED
,
1654 struct orl
*map
, unsigned int orl_count
, int stridx
)
1656 struct archive_iterator iterator
;
1657 struct xcoff_ar_hdr hdr
;
1659 unsigned char buf
[4];
1662 memset (&hdr
, 0, sizeof hdr
);
1663 sprintf (hdr
.size
, "%ld", (long) (4 + orl_count
* 4 + stridx
));
1664 sprintf (hdr
.nextoff
, "%d", 0);
1665 memcpy (hdr
.prevoff
, xcoff_ardata (abfd
)->memoff
, XCOFFARMAG_ELEMENT_SIZE
);
1666 sprintf (hdr
.date
, "%d", 0);
1667 sprintf (hdr
.uid
, "%d", 0);
1668 sprintf (hdr
.gid
, "%d", 0);
1669 sprintf (hdr
.mode
, "%d", 0);
1670 sprintf (hdr
.namlen
, "%d", 0);
1672 /* We need spaces, not null bytes, in the header. */
1673 for (p
= (char *) &hdr
; p
< (char *) &hdr
+ SIZEOF_AR_HDR
; p
++)
1677 if (bfd_bwrite (&hdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
1679 || (bfd_bwrite (XCOFFARFMAG
, (bfd_size_type
) SXCOFFARFMAG
, abfd
)
1683 H_PUT_32 (abfd
, orl_count
, buf
);
1684 if (bfd_bwrite (buf
, (bfd_size_type
) 4, abfd
) != 4)
1688 archive_iterator_begin (&iterator
, abfd
);
1689 while (i
< orl_count
&& archive_iterator_next (&iterator
))
1690 while (map
[i
].u
.abfd
== iterator
.current
.member
)
1692 H_PUT_32 (abfd
, iterator
.current
.offset
, buf
);
1693 if (bfd_bwrite (buf
, (bfd_size_type
) 4, abfd
) != 4)
1698 for (i
= 0; i
< orl_count
; i
++)
1703 name
= *map
[i
].name
;
1704 namlen
= strlen (name
);
1705 if (bfd_bwrite (name
, (bfd_size_type
) (namlen
+ 1), abfd
) != namlen
+ 1)
1709 if ((stridx
& 1) != 0)
1714 if (bfd_bwrite (&b
, (bfd_size_type
) 1, abfd
) != 1)
1721 static char buff20
[XCOFFARMAGBIG_ELEMENT_SIZE
+ 1];
1722 #if BFD_HOST_64BIT_LONG
1723 #define FMT20 "%-20ld"
1724 #elif defined (__MSVCRT__)
1725 #define FMT20 "%-20I64d"
1727 #define FMT20 "%-20lld"
1729 #define FMT12 "%-12d"
1730 #define FMT12_OCTAL "%-12o"
1732 #define PRINT20(d, v) \
1733 sprintf (buff20, FMT20, (bfd_uint64_t)(v)), \
1734 memcpy ((void *) (d), buff20, 20)
1736 #define PRINT12(d, v) \
1737 sprintf (buff20, FMT12, (int)(v)), \
1738 memcpy ((void *) (d), buff20, 12)
1740 #define PRINT12_OCTAL(d, v) \
1741 sprintf (buff20, FMT12_OCTAL, (unsigned int)(v)), \
1742 memcpy ((void *) (d), buff20, 12)
1744 #define PRINT4(d, v) \
1745 sprintf (buff20, FMT4, (int)(v)), \
1746 memcpy ((void *) (d), buff20, 4)
1748 #define READ20(d, v) \
1750 memcpy (buff20, (d), 20), \
1751 (v) = bfd_scan_vma (buff20, (const char **) NULL, 10)
1754 do_pad (bfd
*abfd
, unsigned int number
)
1758 /* Limit pad to <= 4096. */
1763 if (bfd_bwrite (&b
, (bfd_size_type
) 1, abfd
) != 1)
1770 do_copy (bfd
*out_bfd
, bfd
*in_bfd
)
1772 bfd_size_type remaining
;
1773 bfd_byte buffer
[DEFAULT_BUFFERSIZE
];
1775 if (bfd_seek (in_bfd
, (file_ptr
) 0, SEEK_SET
) != 0)
1778 remaining
= arelt_size (in_bfd
);
1780 while (remaining
>= DEFAULT_BUFFERSIZE
)
1782 if (bfd_bread (buffer
, DEFAULT_BUFFERSIZE
, in_bfd
) != DEFAULT_BUFFERSIZE
1783 || bfd_bwrite (buffer
, DEFAULT_BUFFERSIZE
, out_bfd
) != DEFAULT_BUFFERSIZE
)
1786 remaining
-= DEFAULT_BUFFERSIZE
;
1791 if (bfd_bread (buffer
, remaining
, in_bfd
) != remaining
1792 || bfd_bwrite (buffer
, remaining
, out_bfd
) != remaining
)
1800 xcoff_write_armap_big (bfd
*abfd
, unsigned int elength ATTRIBUTE_UNUSED
,
1801 struct orl
*map
, unsigned int orl_count
, int stridx
)
1803 struct archive_iterator iterator
;
1804 struct xcoff_ar_file_hdr_big
*fhdr
;
1805 bfd_vma i
, sym_32
, sym_64
, str_32
, str_64
;
1806 const bfd_arch_info_type
*arch_info
;
1808 size_t string_length
;
1809 file_ptr nextoff
, prevoff
;
1811 /* First, we look through the symbols and work out which are
1812 from 32-bit objects and which from 64-bit ones. */
1813 sym_32
= sym_64
= str_32
= str_64
= 0;
1816 for (current_bfd
= abfd
->archive_head
;
1817 current_bfd
!= NULL
&& i
< orl_count
;
1818 current_bfd
= current_bfd
->archive_next
)
1820 arch_info
= bfd_get_arch_info (current_bfd
);
1821 while (map
[i
].u
.abfd
== current_bfd
)
1823 string_length
= strlen (*map
[i
].name
) + 1;
1824 if (arch_info
->bits_per_address
== 64)
1827 str_64
+= string_length
;
1832 str_32
+= string_length
;
1838 /* A quick sanity check... */
1839 BFD_ASSERT (sym_64
+ sym_32
== orl_count
);
1840 /* Explicit cast to int for compiler. */
1841 BFD_ASSERT ((int)(str_64
+ str_32
) == stridx
);
1843 fhdr
= xcoff_ardata_big (abfd
);
1845 /* xcoff_write_archive_contents_big passes nextoff in symoff. */
1846 READ20 (fhdr
->memoff
, prevoff
);
1847 READ20 (fhdr
->symoff
, nextoff
);
1849 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
1851 /* Write out the symbol table.
1854 standard big archive header
1855 0x0000 ar_size [0x14]
1856 0x0014 ar_nxtmem [0x14]
1857 0x0028 ar_prvmem [0x14]
1858 0x003C ar_date [0x0C]
1859 0x0048 ar_uid [0x0C]
1860 0x0054 ar_gid [0x0C]
1861 0x0060 ar_mod [0x0C]
1862 0x006C ar_namelen[0x04]
1863 0x0070 ar_fmag [SXCOFFARFMAG]
1866 0x0072 num_syms [0x08], binary
1867 0x0078 offsets [0x08 * num_syms], binary
1868 0x0086 + 0x08 * num_syms names [??]
1869 ?? pad to even bytes.
1874 struct xcoff_ar_hdr_big
*hdr
;
1878 bfd_vma symbol_table_size
=
1883 + str_32
+ (str_32
& 1);
1885 symbol_table
= bfd_zmalloc (symbol_table_size
);
1886 if (symbol_table
== NULL
)
1889 hdr
= (struct xcoff_ar_hdr_big
*) symbol_table
;
1891 PRINT20 (hdr
->size
, 8 + 8 * sym_32
+ str_32
+ (str_32
& 1));
1894 PRINT20 (hdr
->nextoff
, nextoff
+ symbol_table_size
);
1896 PRINT20 (hdr
->nextoff
, 0);
1898 PRINT20 (hdr
->prevoff
, prevoff
);
1899 PRINT12 (hdr
->date
, 0);
1900 PRINT12 (hdr
->uid
, 0);
1901 PRINT12 (hdr
->gid
, 0);
1902 PRINT12 (hdr
->mode
, 0);
1903 PRINT4 (hdr
->namlen
, 0) ;
1905 st
= symbol_table
+ SIZEOF_AR_HDR_BIG
;
1906 memcpy (st
, XCOFFARFMAG
, SXCOFFARFMAG
);
1909 bfd_h_put_64 (abfd
, sym_32
, st
);
1912 /* loop over the 32 bit offsets */
1914 archive_iterator_begin (&iterator
, abfd
);
1915 while (i
< orl_count
&& archive_iterator_next (&iterator
))
1917 arch_info
= bfd_get_arch_info (iterator
.current
.member
);
1918 while (map
[i
].u
.abfd
== iterator
.current
.member
)
1920 if (arch_info
->bits_per_address
== 32)
1922 bfd_h_put_64 (abfd
, iterator
.current
.offset
, st
);
1929 /* loop over the 32 bit symbol names */
1931 for (current_bfd
= abfd
->archive_head
;
1932 current_bfd
!= NULL
&& i
< orl_count
;
1933 current_bfd
= current_bfd
->archive_next
)
1935 arch_info
= bfd_get_arch_info (current_bfd
);
1936 while (map
[i
].u
.abfd
== current_bfd
)
1938 if (arch_info
->bits_per_address
== 32)
1940 string_length
= sprintf (st
, "%s", *map
[i
].name
);
1941 st
+= string_length
+ 1;
1947 bfd_bwrite (symbol_table
, symbol_table_size
, abfd
);
1949 free (symbol_table
);
1952 nextoff
= nextoff
+ symbol_table_size
;
1955 PRINT20 (fhdr
->symoff
, 0);
1959 struct xcoff_ar_hdr_big
*hdr
;
1963 bfd_vma symbol_table_size
=
1968 + str_64
+ (str_64
& 1);
1970 symbol_table
= bfd_zmalloc (symbol_table_size
);
1971 if (symbol_table
== NULL
)
1974 hdr
= (struct xcoff_ar_hdr_big
*) symbol_table
;
1976 PRINT20 (hdr
->size
, 8 + 8 * sym_64
+ str_64
+ (str_64
& 1));
1977 PRINT20 (hdr
->nextoff
, 0);
1978 PRINT20 (hdr
->prevoff
, prevoff
);
1979 PRINT12 (hdr
->date
, 0);
1980 PRINT12 (hdr
->uid
, 0);
1981 PRINT12 (hdr
->gid
, 0);
1982 PRINT12 (hdr
->mode
, 0);
1983 PRINT4 (hdr
->namlen
, 0);
1985 st
= symbol_table
+ SIZEOF_AR_HDR_BIG
;
1986 memcpy (st
, XCOFFARFMAG
, SXCOFFARFMAG
);
1989 bfd_h_put_64 (abfd
, sym_64
, st
);
1992 /* loop over the 64 bit offsets */
1994 archive_iterator_begin (&iterator
, abfd
);
1995 while (i
< orl_count
&& archive_iterator_next (&iterator
))
1997 arch_info
= bfd_get_arch_info (iterator
.current
.member
);
1998 while (map
[i
].u
.abfd
== iterator
.current
.member
)
2000 if (arch_info
->bits_per_address
== 64)
2002 bfd_h_put_64 (abfd
, iterator
.current
.offset
, st
);
2009 /* loop over the 64 bit symbol names */
2011 for (current_bfd
= abfd
->archive_head
;
2012 current_bfd
!= NULL
&& i
< orl_count
;
2013 current_bfd
= current_bfd
->archive_next
)
2015 arch_info
= bfd_get_arch_info (current_bfd
);
2016 while (map
[i
].u
.abfd
== current_bfd
)
2018 if (arch_info
->bits_per_address
== 64)
2020 string_length
= sprintf (st
, "%s", *map
[i
].name
);
2021 st
+= string_length
+ 1;
2027 bfd_bwrite (symbol_table
, symbol_table_size
, abfd
);
2029 free (symbol_table
);
2031 PRINT20 (fhdr
->symoff64
, nextoff
);
2034 PRINT20 (fhdr
->symoff64
, 0);
2040 _bfd_xcoff_write_armap (bfd
*abfd
, unsigned int elength ATTRIBUTE_UNUSED
,
2041 struct orl
*map
, unsigned int orl_count
, int stridx
)
2043 if (! xcoff_big_format_p (abfd
))
2044 return xcoff_write_armap_old (abfd
, elength
, map
, orl_count
, stridx
);
2046 return xcoff_write_armap_big (abfd
, elength
, map
, orl_count
, stridx
);
2049 /* Write out an XCOFF archive. We always write an entire archive,
2050 rather than fussing with the freelist and so forth. */
2053 xcoff_write_archive_contents_old (bfd
*abfd
)
2055 struct archive_iterator iterator
;
2056 struct xcoff_ar_file_hdr fhdr
;
2057 bfd_size_type count
;
2058 bfd_size_type total_namlen
;
2060 bfd_boolean makemap
;
2061 bfd_boolean hasobjects
;
2062 file_ptr prevoff
, nextoff
;
2065 struct xcoff_ar_hdr ahdr
;
2068 char decbuf
[XCOFFARMAG_ELEMENT_SIZE
+ 1];
2070 memset (&fhdr
, 0, sizeof fhdr
);
2071 (void) memcpy (fhdr
.magic
, XCOFFARMAG
, SXCOFFARMAG
);
2072 sprintf (fhdr
.firstmemoff
, "%d", SIZEOF_AR_FILE_HDR
);
2073 sprintf (fhdr
.freeoff
, "%d", 0);
2077 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->archive_next
)
2080 total_namlen
+= strlen (normalize_filename (sub
)) + 1;
2081 if (sub
->arelt_data
== NULL
)
2083 sub
->arelt_data
= bfd_zmalloc (sizeof (struct areltdata
));
2084 if (sub
->arelt_data
== NULL
)
2087 if (arch_xhdr (sub
) == NULL
)
2089 struct xcoff_ar_hdr
*ahdrp
;
2092 if ((sub
->flags
& BFD_IN_MEMORY
) != 0)
2094 /* Assume we just "made" the member, and fake it. */
2095 struct bfd_in_memory
*bim
2096 = (struct bfd_in_memory
*) sub
->iostream
;
2098 s
.st_uid
= getuid ();
2099 s
.st_gid
= getgid ();
2101 s
.st_size
= bim
->size
;
2103 else if (stat (bfd_get_filename (sub
), &s
) != 0)
2105 bfd_set_input_error (sub
, bfd_error_system_call
);
2109 if ((abfd
->flags
& BFD_DETERMINISTIC_OUTPUT
) != 0)
2117 ahdrp
= bfd_zalloc (sub
, sizeof (*ahdrp
));
2121 sprintf (ahdrp
->size
, "%ld", (long) s
.st_size
);
2122 sprintf (ahdrp
->date
, "%ld", (long) s
.st_mtime
);
2123 sprintf (ahdrp
->uid
, "%ld", (long) s
.st_uid
);
2124 sprintf (ahdrp
->gid
, "%ld", (long) s
.st_gid
);
2125 sprintf (ahdrp
->mode
, "%o", (unsigned int) s
.st_mode
);
2127 arch_eltdata (sub
)->arch_header
= (char *) ahdrp
;
2128 arch_eltdata (sub
)->parsed_size
= s
.st_size
;
2131 offsets
= (file_ptr
*) bfd_alloc (abfd
, count
* sizeof (file_ptr
));
2132 if (offsets
== NULL
)
2135 if (bfd_seek (abfd
, (file_ptr
) SIZEOF_AR_FILE_HDR
, SEEK_SET
) != 0)
2138 makemap
= bfd_has_map (abfd
);
2141 for (archive_iterator_begin (&iterator
, abfd
), i
= 0;
2142 archive_iterator_next (&iterator
);
2145 bfd_size_type namlen
;
2146 struct xcoff_ar_hdr
*ahdrp
;
2148 if (makemap
&& ! hasobjects
)
2150 if (bfd_check_format (iterator
.current
.member
, bfd_object
))
2154 ahdrp
= arch_xhdr (iterator
.current
.member
);
2155 sprintf (ahdrp
->prevoff
, "%ld", (long) prevoff
);
2156 sprintf (ahdrp
->namlen
, "%ld", (long) iterator
.current
.namlen
);
2157 sprintf (ahdrp
->nextoff
, "%ld", (long) iterator
.next
.offset
);
2159 /* We need spaces, not null bytes, in the header. */
2160 for (p
= (char *) ahdrp
; p
< (char *) ahdrp
+ SIZEOF_AR_HDR
; p
++)
2164 if (!do_pad (abfd
, iterator
.current
.leading_padding
))
2167 BFD_ASSERT (iterator
.current
.offset
== bfd_tell (abfd
));
2168 namlen
= iterator
.current
.padded_namlen
;
2169 if (bfd_bwrite (ahdrp
, SIZEOF_AR_HDR
, abfd
) != SIZEOF_AR_HDR
2170 || bfd_bwrite (iterator
.current
.name
, namlen
, abfd
) != namlen
2171 || bfd_bwrite (XCOFFARFMAG
, SXCOFFARFMAG
, abfd
) != SXCOFFARFMAG
2172 || bfd_seek (iterator
.current
.member
, 0, SEEK_SET
) != 0
2173 || !do_copy (abfd
, iterator
.current
.member
)
2174 || !do_pad (abfd
, iterator
.current
.trailing_padding
))
2177 offsets
[i
] = iterator
.current
.offset
;
2178 prevoff
= iterator
.current
.offset
;
2181 sprintf (fhdr
.lastmemoff
, "%ld", (long) prevoff
);
2183 /* Write out the member table. */
2185 nextoff
= iterator
.next
.offset
;
2186 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2187 sprintf (fhdr
.memoff
, "%ld", (long) nextoff
);
2189 memset (&ahdr
, 0, sizeof ahdr
);
2190 sprintf (ahdr
.size
, "%ld", (long) (XCOFFARMAG_ELEMENT_SIZE
2191 + count
* XCOFFARMAG_ELEMENT_SIZE
2193 sprintf (ahdr
.prevoff
, "%ld", (long) prevoff
);
2194 sprintf (ahdr
.date
, "%d", 0);
2195 sprintf (ahdr
.uid
, "%d", 0);
2196 sprintf (ahdr
.gid
, "%d", 0);
2197 sprintf (ahdr
.mode
, "%d", 0);
2198 sprintf (ahdr
.namlen
, "%d", 0);
2200 size
= (SIZEOF_AR_HDR
2201 + XCOFFARMAG_ELEMENT_SIZE
2202 + count
* XCOFFARMAG_ELEMENT_SIZE
2207 nextoff
+= size
+ (size
& 1);
2209 if (makemap
&& hasobjects
)
2210 sprintf (ahdr
.nextoff
, "%ld", (long) nextoff
);
2212 sprintf (ahdr
.nextoff
, "%d", 0);
2214 /* We need spaces, not null bytes, in the header. */
2215 for (p
= (char *) &ahdr
; p
< (char *) &ahdr
+ SIZEOF_AR_HDR
; p
++)
2219 if ((bfd_bwrite (&ahdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
2221 || (bfd_bwrite (XCOFFARFMAG
, (bfd_size_type
) SXCOFFARFMAG
, abfd
)
2225 sprintf (decbuf
, "%-12ld", (long) count
);
2226 if (bfd_bwrite (decbuf
, (bfd_size_type
) XCOFFARMAG_ELEMENT_SIZE
, abfd
)
2227 != XCOFFARMAG_ELEMENT_SIZE
)
2229 for (i
= 0; i
< (size_t) count
; i
++)
2231 sprintf (decbuf
, "%-12ld", (long) offsets
[i
]);
2232 if (bfd_bwrite (decbuf
, (bfd_size_type
) XCOFFARMAG_ELEMENT_SIZE
,
2233 abfd
) != XCOFFARMAG_ELEMENT_SIZE
)
2236 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->archive_next
)
2239 bfd_size_type namlen
;
2241 name
= normalize_filename (sub
);
2242 namlen
= strlen (name
);
2243 if (bfd_bwrite (name
, namlen
+ 1, abfd
) != namlen
+ 1)
2247 if (! do_pad (abfd
, size
& 1))
2250 /* Write out the armap, if appropriate. */
2251 if (! makemap
|| ! hasobjects
)
2252 sprintf (fhdr
.symoff
, "%d", 0);
2255 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2256 sprintf (fhdr
.symoff
, "%ld", (long) nextoff
);
2257 bfd_ardata (abfd
)->tdata
= &fhdr
;
2258 if (! _bfd_compute_and_write_armap (abfd
, 0))
2262 /* Write out the archive file header. */
2264 /* We need spaces, not null bytes, in the header. */
2265 for (p
= (char *) &fhdr
; p
< (char *) &fhdr
+ SIZEOF_AR_FILE_HDR
; p
++)
2269 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) != 0
2270 || (bfd_bwrite (&fhdr
, (bfd_size_type
) SIZEOF_AR_FILE_HDR
, abfd
)
2271 != SIZEOF_AR_FILE_HDR
))
2278 xcoff_write_archive_contents_big (bfd
*abfd
)
2280 struct xcoff_ar_file_hdr_big fhdr
;
2281 bfd_size_type count
;
2282 bfd_size_type total_namlen
;
2284 bfd_boolean makemap
;
2285 bfd_boolean hasobjects
;
2286 file_ptr prevoff
, nextoff
;
2289 struct xcoff_ar_hdr_big
*hdr
;
2291 char *member_table
, *mt
;
2292 bfd_vma member_table_size
;
2293 struct archive_iterator iterator
;
2295 memset (&fhdr
, 0, SIZEOF_AR_FILE_HDR_BIG
);
2296 memcpy (fhdr
.magic
, XCOFFARMAGBIG
, SXCOFFARMAG
);
2298 if (bfd_seek (abfd
, (file_ptr
) SIZEOF_AR_FILE_HDR_BIG
, SEEK_SET
) != 0)
2301 /* Calculate count and total_namlen. */
2302 makemap
= bfd_has_map (abfd
);
2304 for (current_bfd
= abfd
->archive_head
, count
= 0, total_namlen
= 0;
2305 current_bfd
!= NULL
;
2306 current_bfd
= current_bfd
->archive_next
, count
++)
2308 total_namlen
+= strlen (normalize_filename (current_bfd
)) + 1;
2312 && bfd_check_format (current_bfd
, bfd_object
))
2315 if (current_bfd
->arelt_data
== NULL
)
2317 size
= sizeof (struct areltdata
);
2318 current_bfd
->arelt_data
= bfd_zmalloc (size
);
2319 if (current_bfd
->arelt_data
== NULL
)
2323 if (arch_xhdr_big (current_bfd
) == NULL
)
2325 struct xcoff_ar_hdr_big
*ahdrp
;
2328 if ((current_bfd
->flags
& BFD_IN_MEMORY
) != 0)
2330 /* Assume we just "made" the member, and fake it. */
2331 struct bfd_in_memory
*bim
2332 = (struct bfd_in_memory
*) current_bfd
->iostream
;
2334 s
.st_uid
= getuid ();
2335 s
.st_gid
= getgid ();
2337 s
.st_size
= bim
->size
;
2339 else if (stat (bfd_get_filename (current_bfd
), &s
) != 0)
2341 bfd_set_input_error (current_bfd
, bfd_error_system_call
);
2345 if ((abfd
->flags
& BFD_DETERMINISTIC_OUTPUT
) != 0)
2353 ahdrp
= bfd_zalloc (current_bfd
, sizeof (*ahdrp
));
2357 PRINT20 (ahdrp
->size
, s
.st_size
);
2358 PRINT12 (ahdrp
->date
, s
.st_mtime
);
2359 PRINT12 (ahdrp
->uid
, s
.st_uid
);
2360 PRINT12 (ahdrp
->gid
, s
.st_gid
);
2361 PRINT12_OCTAL (ahdrp
->mode
, s
.st_mode
);
2363 arch_eltdata (current_bfd
)->arch_header
= (char *) ahdrp
;
2364 arch_eltdata (current_bfd
)->parsed_size
= s
.st_size
;
2371 offsets
= (file_ptr
*) bfd_malloc (count
* sizeof (file_ptr
));
2372 if (offsets
== NULL
)
2377 for (archive_iterator_begin (&iterator
, abfd
), i
= 0;
2378 archive_iterator_next (&iterator
);
2381 bfd_size_type namlen
;
2382 struct xcoff_ar_hdr_big
*ahdrp
;
2384 ahdrp
= arch_xhdr_big (iterator
.current
.member
);
2385 PRINT20 (ahdrp
->prevoff
, prevoff
);
2386 PRINT4 (ahdrp
->namlen
, iterator
.current
.namlen
);
2387 PRINT20 (ahdrp
->nextoff
, iterator
.next
.offset
);
2389 if (!do_pad (abfd
, iterator
.current
.leading_padding
))
2395 BFD_ASSERT (iterator
.current
.offset
== bfd_tell (abfd
));
2396 namlen
= iterator
.current
.padded_namlen
;
2397 if (bfd_bwrite (ahdrp
, SIZEOF_AR_HDR_BIG
, abfd
) != SIZEOF_AR_HDR_BIG
2398 || bfd_bwrite (iterator
.current
.name
, namlen
, abfd
) != namlen
2399 || bfd_bwrite (XCOFFARFMAG
, SXCOFFARFMAG
, abfd
) != SXCOFFARFMAG
2400 || bfd_seek (iterator
.current
.member
, 0, SEEK_SET
) != 0
2401 || !do_copy (abfd
, iterator
.current
.member
)
2402 || !do_pad (abfd
, iterator
.current
.trailing_padding
))
2408 offsets
[i
] = iterator
.current
.offset
;
2409 prevoff
= iterator
.current
.offset
;
2414 PRINT20 (fhdr
.firstmemoff
, offsets
[0]);
2415 PRINT20 (fhdr
.lastmemoff
, prevoff
);
2418 /* Write out the member table.
2421 standard big archive header
2422 0x0000 ar_size [0x14]
2423 0x0014 ar_nxtmem [0x14]
2424 0x0028 ar_prvmem [0x14]
2425 0x003C ar_date [0x0C]
2426 0x0048 ar_uid [0x0C]
2427 0x0054 ar_gid [0x0C]
2428 0x0060 ar_mod [0x0C]
2429 0x006C ar_namelen[0x04]
2430 0x0070 ar_fmag [0x02]
2434 0x0086 offsets [0x14 * counts]
2435 0x0086 + 0x14 * counts names [??]
2436 ?? pad to even bytes.
2439 nextoff
= iterator
.next
.offset
;
2440 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2442 member_table_size
= (SIZEOF_AR_HDR_BIG
2444 + XCOFFARMAGBIG_ELEMENT_SIZE
2445 + count
* XCOFFARMAGBIG_ELEMENT_SIZE
2448 member_table_size
+= member_table_size
& 1;
2449 member_table
= bfd_zmalloc (member_table_size
);
2450 if (member_table
== NULL
)
2456 hdr
= (struct xcoff_ar_hdr_big
*) member_table
;
2458 PRINT20 (hdr
->size
, (XCOFFARMAGBIG_ELEMENT_SIZE
2459 + count
* XCOFFARMAGBIG_ELEMENT_SIZE
2460 + total_namlen
+ (total_namlen
& 1)));
2461 if (makemap
&& hasobjects
)
2462 PRINT20 (hdr
->nextoff
, nextoff
+ member_table_size
);
2464 PRINT20 (hdr
->nextoff
, 0);
2465 PRINT20 (hdr
->prevoff
, prevoff
);
2466 PRINT12 (hdr
->date
, 0);
2467 PRINT12 (hdr
->uid
, 0);
2468 PRINT12 (hdr
->gid
, 0);
2469 PRINT12 (hdr
->mode
, 0);
2470 PRINT4 (hdr
->namlen
, 0);
2472 mt
= member_table
+ SIZEOF_AR_HDR_BIG
;
2473 memcpy (mt
, XCOFFARFMAG
, SXCOFFARFMAG
);
2476 PRINT20 (mt
, count
);
2477 mt
+= XCOFFARMAGBIG_ELEMENT_SIZE
;
2478 for (i
= 0; i
< (size_t) count
; i
++)
2480 PRINT20 (mt
, offsets
[i
]);
2481 mt
+= XCOFFARMAGBIG_ELEMENT_SIZE
;
2490 for (current_bfd
= abfd
->archive_head
;
2491 current_bfd
!= NULL
;
2492 current_bfd
= current_bfd
->archive_next
)
2497 name
= normalize_filename (current_bfd
);
2498 namlen
= sprintf (mt
, "%s", name
);
2502 if (bfd_bwrite (member_table
, member_table_size
, abfd
) != member_table_size
)
2505 free (member_table
);
2507 PRINT20 (fhdr
.memoff
, nextoff
);
2510 nextoff
+= member_table_size
;
2512 /* Write out the armap, if appropriate. */
2514 if (! makemap
|| ! hasobjects
)
2515 PRINT20 (fhdr
.symoff
, 0);
2518 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2520 /* Save nextoff in fhdr.symoff so the armap routine can use it. */
2521 PRINT20 (fhdr
.symoff
, nextoff
);
2523 bfd_ardata (abfd
)->tdata
= &fhdr
;
2524 if (! _bfd_compute_and_write_armap (abfd
, 0))
2528 /* Write out the archive file header. */
2530 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) != 0
2531 || (bfd_bwrite (&fhdr
, (bfd_size_type
) SIZEOF_AR_FILE_HDR_BIG
,
2532 abfd
) != SIZEOF_AR_FILE_HDR_BIG
))
2539 _bfd_xcoff_write_archive_contents (bfd
*abfd
)
2541 if (! xcoff_big_format_p (abfd
))
2542 return xcoff_write_archive_contents_old (abfd
);
2544 return xcoff_write_archive_contents_big (abfd
);
2547 /* We can't use the usual coff_sizeof_headers routine, because AIX
2548 always uses an a.out header. */
2551 _bfd_xcoff_sizeof_headers (bfd
*abfd
,
2552 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
2557 if (xcoff_data (abfd
)->full_aouthdr
)
2560 size
+= SMALL_AOUTSZ
;
2561 size
+= abfd
->section_count
* SCNHSZ
;
2563 if (info
->strip
!= strip_all
)
2565 /* There can be additional sections just for dealing with overflow in
2566 reloc and lineno counts. But the numbers of relocs and lineno aren't
2567 known when bfd_sizeof_headers is called, so we compute them by
2568 summing the numbers from input sections. */
2569 struct nbr_reloc_lineno
2571 unsigned int reloc_count
;
2572 unsigned int lineno_count
;
2574 struct nbr_reloc_lineno
*n_rl
;
2576 unsigned int max_index
;
2579 /* Although the number of sections is known, the maximum value of
2580 section->index isn't (because some sections may have been removed).
2581 Don't try to renumber sections, just compute the upper bound. */
2583 for (s
= abfd
->sections
; s
!= NULL
; s
= s
->next
)
2584 if (s
->index
> max_index
)
2585 max_index
= s
->index
;
2587 /* Allocate the per section counters. It could be possible to use a
2588 preallocated array as the number of sections is limited on XCOFF,
2589 but this creates a maintainance issue. */
2590 n_rl
= bfd_zmalloc ((max_index
+ 1) * sizeof (*n_rl
));
2595 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link
.next
)
2596 for (s
= sub
->sections
; s
!= NULL
; s
= s
->next
)
2597 if (s
->output_section
->owner
== abfd
2598 && !bfd_section_removed_from_list (abfd
, s
->output_section
))
2600 struct nbr_reloc_lineno
*e
= &n_rl
[s
->output_section
->index
];
2601 e
->reloc_count
+= s
->reloc_count
;
2602 e
->lineno_count
+= s
->lineno_count
;
2605 /* Add the size of a section for each section with an overflow. */
2606 for (s
= abfd
->sections
; s
!= NULL
; s
= s
->next
)
2608 struct nbr_reloc_lineno
*e
= &n_rl
[s
->index
];
2610 if (e
->reloc_count
>= 0xffff
2611 || (e
->lineno_count
>= 0xffff && info
->strip
!= strip_debugger
))
2621 /* Routines to swap information in the XCOFF .loader section. If we
2622 ever need to write an XCOFF loader, this stuff will need to be
2623 moved to another file shared by the linker (which XCOFF calls the
2624 ``binder'') and the loader. */
2626 /* Swap in the ldhdr structure. */
2629 xcoff_swap_ldhdr_in (bfd
*abfd
, const void * s
, struct internal_ldhdr
*dst
)
2631 const struct external_ldhdr
*src
= (const struct external_ldhdr
*) s
;
2633 dst
->l_version
= bfd_get_32 (abfd
, src
->l_version
);
2634 dst
->l_nsyms
= bfd_get_32 (abfd
, src
->l_nsyms
);
2635 dst
->l_nreloc
= bfd_get_32 (abfd
, src
->l_nreloc
);
2636 dst
->l_istlen
= bfd_get_32 (abfd
, src
->l_istlen
);
2637 dst
->l_nimpid
= bfd_get_32 (abfd
, src
->l_nimpid
);
2638 dst
->l_impoff
= bfd_get_32 (abfd
, src
->l_impoff
);
2639 dst
->l_stlen
= bfd_get_32 (abfd
, src
->l_stlen
);
2640 dst
->l_stoff
= bfd_get_32 (abfd
, src
->l_stoff
);
2643 /* Swap out the ldhdr structure. */
2646 xcoff_swap_ldhdr_out (bfd
*abfd
, const struct internal_ldhdr
*src
, void * d
)
2648 struct external_ldhdr
*dst
= (struct external_ldhdr
*) d
;
2650 bfd_put_32 (abfd
, (bfd_vma
) src
->l_version
, dst
->l_version
);
2651 bfd_put_32 (abfd
, src
->l_nsyms
, dst
->l_nsyms
);
2652 bfd_put_32 (abfd
, src
->l_nreloc
, dst
->l_nreloc
);
2653 bfd_put_32 (abfd
, src
->l_istlen
, dst
->l_istlen
);
2654 bfd_put_32 (abfd
, src
->l_nimpid
, dst
->l_nimpid
);
2655 bfd_put_32 (abfd
, src
->l_impoff
, dst
->l_impoff
);
2656 bfd_put_32 (abfd
, src
->l_stlen
, dst
->l_stlen
);
2657 bfd_put_32 (abfd
, src
->l_stoff
, dst
->l_stoff
);
2660 /* Swap in the ldsym structure. */
2663 xcoff_swap_ldsym_in (bfd
*abfd
, const void * s
, struct internal_ldsym
*dst
)
2665 const struct external_ldsym
*src
= (const struct external_ldsym
*) s
;
2667 if (bfd_get_32 (abfd
, src
->_l
._l_l
._l_zeroes
) != 0) {
2668 memcpy (dst
->_l
._l_name
, src
->_l
._l_name
, SYMNMLEN
);
2670 dst
->_l
._l_l
._l_zeroes
= 0;
2671 dst
->_l
._l_l
._l_offset
= bfd_get_32 (abfd
, src
->_l
._l_l
._l_offset
);
2673 dst
->l_value
= bfd_get_32 (abfd
, src
->l_value
);
2674 dst
->l_scnum
= bfd_get_16 (abfd
, src
->l_scnum
);
2675 dst
->l_smtype
= bfd_get_8 (abfd
, src
->l_smtype
);
2676 dst
->l_smclas
= bfd_get_8 (abfd
, src
->l_smclas
);
2677 dst
->l_ifile
= bfd_get_32 (abfd
, src
->l_ifile
);
2678 dst
->l_parm
= bfd_get_32 (abfd
, src
->l_parm
);
2681 /* Swap out the ldsym structure. */
2684 xcoff_swap_ldsym_out (bfd
*abfd
, const struct internal_ldsym
*src
, void * d
)
2686 struct external_ldsym
*dst
= (struct external_ldsym
*) d
;
2688 if (src
->_l
._l_l
._l_zeroes
!= 0)
2689 memcpy (dst
->_l
._l_name
, src
->_l
._l_name
, SYMNMLEN
);
2692 bfd_put_32 (abfd
, (bfd_vma
) 0, dst
->_l
._l_l
._l_zeroes
);
2693 bfd_put_32 (abfd
, (bfd_vma
) src
->_l
._l_l
._l_offset
,
2694 dst
->_l
._l_l
._l_offset
);
2696 bfd_put_32 (abfd
, src
->l_value
, dst
->l_value
);
2697 bfd_put_16 (abfd
, (bfd_vma
) src
->l_scnum
, dst
->l_scnum
);
2698 bfd_put_8 (abfd
, src
->l_smtype
, dst
->l_smtype
);
2699 bfd_put_8 (abfd
, src
->l_smclas
, dst
->l_smclas
);
2700 bfd_put_32 (abfd
, src
->l_ifile
, dst
->l_ifile
);
2701 bfd_put_32 (abfd
, src
->l_parm
, dst
->l_parm
);
2705 xcoff_swap_reloc_in (bfd
*abfd
, void * s
, void * d
)
2707 struct external_reloc
*src
= (struct external_reloc
*) s
;
2708 struct internal_reloc
*dst
= (struct internal_reloc
*) d
;
2710 memset (dst
, 0, sizeof (struct internal_reloc
));
2712 dst
->r_vaddr
= bfd_get_32 (abfd
, src
->r_vaddr
);
2713 dst
->r_symndx
= bfd_get_32 (abfd
, src
->r_symndx
);
2714 dst
->r_size
= bfd_get_8 (abfd
, src
->r_size
);
2715 dst
->r_type
= bfd_get_8 (abfd
, src
->r_type
);
2719 xcoff_swap_reloc_out (bfd
*abfd
, void * s
, void * d
)
2721 struct internal_reloc
*src
= (struct internal_reloc
*) s
;
2722 struct external_reloc
*dst
= (struct external_reloc
*) d
;
2724 bfd_put_32 (abfd
, src
->r_vaddr
, dst
->r_vaddr
);
2725 bfd_put_32 (abfd
, src
->r_symndx
, dst
->r_symndx
);
2726 bfd_put_8 (abfd
, src
->r_type
, dst
->r_type
);
2727 bfd_put_8 (abfd
, src
->r_size
, dst
->r_size
);
2729 return bfd_coff_relsz (abfd
);
2732 /* Swap in the ldrel structure. */
2735 xcoff_swap_ldrel_in (bfd
*abfd
, const void * s
, struct internal_ldrel
*dst
)
2737 const struct external_ldrel
*src
= (const struct external_ldrel
*) s
;
2739 dst
->l_vaddr
= bfd_get_32 (abfd
, src
->l_vaddr
);
2740 dst
->l_symndx
= bfd_get_32 (abfd
, src
->l_symndx
);
2741 dst
->l_rtype
= bfd_get_16 (abfd
, src
->l_rtype
);
2742 dst
->l_rsecnm
= bfd_get_16 (abfd
, src
->l_rsecnm
);
2745 /* Swap out the ldrel structure. */
2748 xcoff_swap_ldrel_out (bfd
*abfd
, const struct internal_ldrel
*src
, void * d
)
2750 struct external_ldrel
*dst
= (struct external_ldrel
*) d
;
2752 bfd_put_32 (abfd
, src
->l_vaddr
, dst
->l_vaddr
);
2753 bfd_put_32 (abfd
, src
->l_symndx
, dst
->l_symndx
);
2754 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rtype
, dst
->l_rtype
);
2755 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rsecnm
, dst
->l_rsecnm
);
2760 xcoff_reloc_type_noop (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2761 asection
*input_section ATTRIBUTE_UNUSED
,
2762 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2763 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2764 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2765 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2766 bfd_vma val ATTRIBUTE_UNUSED
,
2767 bfd_vma addend ATTRIBUTE_UNUSED
,
2768 bfd_vma
*relocation ATTRIBUTE_UNUSED
,
2769 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2775 xcoff_reloc_type_fail (bfd
*input_bfd
,
2776 asection
*input_section ATTRIBUTE_UNUSED
,
2777 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2778 struct internal_reloc
*rel
,
2779 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2780 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2781 bfd_vma val ATTRIBUTE_UNUSED
,
2782 bfd_vma addend ATTRIBUTE_UNUSED
,
2783 bfd_vma
*relocation ATTRIBUTE_UNUSED
,
2784 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2787 /* xgettext: c-format */
2788 (_("%pB: unsupported relocation type %#x"),
2789 input_bfd
, (unsigned int) rel
->r_type
);
2790 bfd_set_error (bfd_error_bad_value
);
2795 xcoff_reloc_type_pos (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2796 asection
*input_section ATTRIBUTE_UNUSED
,
2797 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2798 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2799 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2800 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2803 bfd_vma
*relocation
,
2804 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2806 *relocation
= val
+ addend
;
2811 xcoff_reloc_type_neg (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2812 asection
*input_section ATTRIBUTE_UNUSED
,
2813 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2814 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2815 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2816 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2819 bfd_vma
*relocation
,
2820 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2822 *relocation
= addend
- val
;
2827 xcoff_reloc_type_rel (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2828 asection
*input_section
,
2829 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2830 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2831 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2832 struct reloc_howto_struct
*howto
,
2835 bfd_vma
*relocation
,
2836 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2838 howto
->pc_relative
= TRUE
;
2840 /* A PC relative reloc includes the section address. */
2841 addend
+= input_section
->vma
;
2843 *relocation
= val
+ addend
;
2844 *relocation
-= (input_section
->output_section
->vma
2845 + input_section
->output_offset
);
2850 xcoff_reloc_type_toc (bfd
*input_bfd
,
2851 asection
*input_section ATTRIBUTE_UNUSED
,
2853 struct internal_reloc
*rel
,
2854 struct internal_syment
*sym
,
2855 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
,
2857 bfd_vma addend ATTRIBUTE_UNUSED
,
2858 bfd_vma
*relocation
,
2859 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2861 struct xcoff_link_hash_entry
*h
;
2863 if (0 > rel
->r_symndx
)
2866 h
= obj_xcoff_sym_hashes (input_bfd
)[rel
->r_symndx
];
2868 if (h
!= NULL
&& h
->smclas
!= XMC_TD
)
2870 if (h
->toc_section
== NULL
)
2873 /* xgettext: c-format */
2874 (_("%pB: TOC reloc at %#" PRIx64
" to symbol `%s' with no TOC entry"),
2875 input_bfd
, (uint64_t) rel
->r_vaddr
, h
->root
.root
.string
);
2876 bfd_set_error (bfd_error_bad_value
);
2880 BFD_ASSERT ((h
->flags
& XCOFF_SET_TOC
) == 0);
2881 val
= (h
->toc_section
->output_section
->vma
2882 + h
->toc_section
->output_offset
);
2885 *relocation
= ((val
- xcoff_data (output_bfd
)->toc
)
2886 - (sym
->n_value
- xcoff_data (input_bfd
)->toc
));
2891 xcoff_reloc_type_ba (bfd
*input_bfd ATTRIBUTE_UNUSED
,
2892 asection
*input_section ATTRIBUTE_UNUSED
,
2893 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2894 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
2895 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2896 struct reloc_howto_struct
*howto
,
2899 bfd_vma
*relocation
,
2900 bfd_byte
*contents ATTRIBUTE_UNUSED
)
2902 howto
->src_mask
&= ~3;
2903 howto
->dst_mask
= howto
->src_mask
;
2905 *relocation
= val
+ addend
;
2911 xcoff_reloc_type_br (bfd
*input_bfd
,
2912 asection
*input_section
,
2913 bfd
*output_bfd ATTRIBUTE_UNUSED
,
2914 struct internal_reloc
*rel
,
2915 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
2916 struct reloc_howto_struct
*howto
,
2919 bfd_vma
*relocation
,
2922 struct xcoff_link_hash_entry
*h
;
2923 bfd_vma section_offset
;
2925 if (0 > rel
->r_symndx
)
2928 h
= obj_xcoff_sym_hashes (input_bfd
)[rel
->r_symndx
];
2929 section_offset
= rel
->r_vaddr
- input_section
->vma
;
2931 /* If we see an R_BR or R_RBR reloc which is jumping to global
2932 linkage code, and it is followed by an appropriate cror nop
2933 instruction, we replace the cror with lwz r2,20(r1). This
2934 restores the TOC after the glink code. Contrariwise, if the
2935 call is followed by a lwz r2,20(r1), but the call is not
2936 going to global linkage code, we can replace the load with a
2939 && (bfd_link_hash_defined
== h
->root
.type
2940 || bfd_link_hash_defweak
== h
->root
.type
)
2941 && section_offset
+ 8 <= input_section
->size
)
2946 pnext
= contents
+ section_offset
+ 4;
2947 next
= bfd_get_32 (input_bfd
, pnext
);
2949 /* The _ptrgl function is magic. It is used by the AIX
2950 compiler to call a function through a pointer. */
2951 if (h
->smclas
== XMC_GL
|| strcmp (h
->root
.root
.string
, "._ptrgl") == 0)
2953 if (next
== 0x4def7b82 /* cror 15,15,15 */
2954 || next
== 0x4ffffb82 /* cror 31,31,31 */
2955 || next
== 0x60000000) /* ori r0,r0,0 */
2956 bfd_put_32 (input_bfd
, 0x80410014, pnext
); /* lwz r2,20(r1) */
2961 if (next
== 0x80410014) /* lwz r2,20(r1) */
2962 bfd_put_32 (input_bfd
, 0x60000000, pnext
); /* ori r0,r0,0 */
2965 else if (NULL
!= h
&& bfd_link_hash_undefined
== h
->root
.type
)
2967 /* Normally, this relocation is against a defined symbol. In the
2968 case where this is a partial link and the output section offset
2969 is greater than 2^25, the linker will return an invalid error
2970 message that the relocation has been truncated. Yes it has been
2971 truncated but no it not important. For this case, disable the
2972 overflow checking. */
2974 howto
->complain_on_overflow
= complain_overflow_dont
;
2977 /* The original PC-relative relocation is biased by -r_vaddr, so adding
2978 the value below will give the absolute target address. */
2979 *relocation
= val
+ addend
+ rel
->r_vaddr
;
2981 howto
->src_mask
&= ~3;
2982 howto
->dst_mask
= howto
->src_mask
;
2985 && (h
->root
.type
== bfd_link_hash_defined
2986 || h
->root
.type
== bfd_link_hash_defweak
)
2987 && bfd_is_abs_section (h
->root
.u
.def
.section
)
2988 && section_offset
+ 4 <= input_section
->size
)
2993 /* Turn the relative branch into an absolute one by setting the
2995 ptr
= contents
+ section_offset
;
2996 insn
= bfd_get_32 (input_bfd
, ptr
);
2998 bfd_put_32 (input_bfd
, insn
, ptr
);
3000 /* Make the howto absolute too. */
3001 howto
->pc_relative
= FALSE
;
3002 howto
->complain_on_overflow
= complain_overflow_bitfield
;
3006 /* Use a PC-relative howto and subtract the instruction's address
3007 from the target address we calculated above. */
3008 howto
->pc_relative
= TRUE
;
3009 *relocation
-= (input_section
->output_section
->vma
3010 + input_section
->output_offset
3017 xcoff_reloc_type_crel (bfd
*input_bfd ATTRIBUTE_UNUSED
,
3018 asection
*input_section
,
3019 bfd
*output_bfd ATTRIBUTE_UNUSED
,
3020 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
3021 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
3022 struct reloc_howto_struct
*howto
,
3023 bfd_vma val ATTRIBUTE_UNUSED
,
3025 bfd_vma
*relocation
,
3026 bfd_byte
*contents ATTRIBUTE_UNUSED
)
3028 howto
->pc_relative
= TRUE
;
3029 howto
->src_mask
&= ~3;
3030 howto
->dst_mask
= howto
->src_mask
;
3032 /* A PC relative reloc includes the section address. */
3033 addend
+= input_section
->vma
;
3035 *relocation
= val
+ addend
;
3036 *relocation
-= (input_section
->output_section
->vma
3037 + input_section
->output_offset
);
3042 xcoff_complain_overflow_dont_func (bfd
*input_bfd ATTRIBUTE_UNUSED
,
3043 bfd_vma val ATTRIBUTE_UNUSED
,
3044 bfd_vma relocation ATTRIBUTE_UNUSED
,
3045 struct reloc_howto_struct
*
3046 howto ATTRIBUTE_UNUSED
)
3052 xcoff_complain_overflow_bitfield_func (bfd
*input_bfd
,
3055 struct reloc_howto_struct
*howto
)
3057 bfd_vma fieldmask
, signmask
, ss
;
3060 /* Get the values to be added together. For signed and unsigned
3061 relocations, we assume that all values should be truncated to
3062 the size of an address. For bitfields, all the bits matter.
3063 See also bfd_check_overflow. */
3064 fieldmask
= N_ONES (howto
->bitsize
);
3066 b
= val
& howto
->src_mask
;
3068 /* Much like unsigned, except no trimming with addrmask. In
3069 addition, the sum overflows if there is a carry out of
3070 the bfd_vma, i.e., the sum is less than either input
3072 a
>>= howto
->rightshift
;
3073 b
>>= howto
->bitpos
;
3075 /* Bitfields are sometimes used for signed numbers; for
3076 example, a 13-bit field sometimes represents values in
3077 0..8191 and sometimes represents values in -4096..4095.
3078 If the field is signed and a is -4095 (0x1001) and b is
3079 -1 (0x1fff), the sum is -4096 (0x1000), but (0x1001 +
3080 0x1fff is 0x3000). It's not clear how to handle this
3081 everywhere, since there is not way to know how many bits
3082 are significant in the relocation, but the original code
3083 assumed that it was fully sign extended, and we will keep
3085 signmask
= (fieldmask
>> 1) + 1;
3087 if ((a
& ~ fieldmask
) != 0)
3089 /* Some bits out of the field are set. This might not
3090 be a problem: if this is a signed bitfield, it is OK
3091 iff all the high bits are set, including the sign
3092 bit. We'll try setting all but the most significant
3093 bit in the original relocation value: if this is all
3094 ones, we are OK, assuming a signed bitfield. */
3095 ss
= (signmask
<< howto
->rightshift
) - 1;
3096 if ((ss
| relocation
) != ~ (bfd_vma
) 0)
3101 /* We just assume (b & ~ fieldmask) == 0. */
3103 /* We explicitly permit wrap around if this relocation
3104 covers the high bit of an address. The Linux kernel
3105 relies on it, and it is the only way to write assembler
3106 code which can run when loaded at a location 0x80000000
3107 away from the location at which it is linked. */
3108 if ((unsigned) howto
->bitsize
+ howto
->rightshift
3109 == bfd_arch_bits_per_address (input_bfd
))
3113 if (sum
< a
|| (sum
& ~ fieldmask
) != 0)
3115 /* There was a carry out, or the field overflow. Test
3116 for signed operands again. Here is the overflow test
3117 is as for complain_overflow_signed. */
3118 if (((~ (a
^ b
)) & (a
^ sum
)) & signmask
)
3126 xcoff_complain_overflow_signed_func (bfd
*input_bfd
,
3129 struct reloc_howto_struct
*howto
)
3131 bfd_vma addrmask
, fieldmask
, signmask
, ss
;
3134 /* Get the values to be added together. For signed and unsigned
3135 relocations, we assume that all values should be truncated to
3136 the size of an address. For bitfields, all the bits matter.
3137 See also bfd_check_overflow. */
3138 fieldmask
= N_ONES (howto
->bitsize
);
3139 addrmask
= N_ONES (bfd_arch_bits_per_address (input_bfd
)) | fieldmask
;
3141 b
= val
& howto
->src_mask
;
3143 a
= (a
& addrmask
) >> howto
->rightshift
;
3145 /* If any sign bits are set, all sign bits must be set.
3146 That is, A must be a valid negative address after
3148 signmask
= ~ (fieldmask
>> 1);
3150 if (ss
!= 0 && ss
!= ((addrmask
>> howto
->rightshift
) & signmask
))
3153 /* We only need this next bit of code if the sign bit of B
3154 is below the sign bit of A. This would only happen if
3155 SRC_MASK had fewer bits than BITSIZE. Note that if
3156 SRC_MASK has more bits than BITSIZE, we can get into
3157 trouble; we would need to verify that B is in range, as
3158 we do for A above. */
3159 signmask
= ((~ howto
->src_mask
) >> 1) & howto
->src_mask
;
3160 if ((b
& signmask
) != 0)
3162 /* Set all the bits above the sign bit. */
3163 b
-= signmask
<<= 1;
3166 b
= (b
& addrmask
) >> howto
->bitpos
;
3168 /* Now we can do the addition. */
3171 /* See if the result has the correct sign. Bits above the
3172 sign bit are junk now; ignore them. If the sum is
3173 positive, make sure we did not have all negative inputs;
3174 if the sum is negative, make sure we did not have all
3175 positive inputs. The test below looks only at the sign
3176 bits, and it really just
3177 SIGN (A) == SIGN (B) && SIGN (A) != SIGN (SUM)
3179 signmask
= (fieldmask
>> 1) + 1;
3180 if (((~ (a
^ b
)) & (a
^ sum
)) & signmask
)
3187 xcoff_complain_overflow_unsigned_func (bfd
*input_bfd
,
3190 struct reloc_howto_struct
*howto
)
3192 bfd_vma addrmask
, fieldmask
;
3195 /* Get the values to be added together. For signed and unsigned
3196 relocations, we assume that all values should be truncated to
3197 the size of an address. For bitfields, all the bits matter.
3198 See also bfd_check_overflow. */
3199 fieldmask
= N_ONES (howto
->bitsize
);
3200 addrmask
= N_ONES (bfd_arch_bits_per_address (input_bfd
)) | fieldmask
;
3202 b
= val
& howto
->src_mask
;
3204 /* Checking for an unsigned overflow is relatively easy:
3205 trim the addresses and add, and trim the result as well.
3206 Overflow is normally indicated when the result does not
3207 fit in the field. However, we also need to consider the
3208 case when, e.g., fieldmask is 0x7fffffff or smaller, an
3209 input is 0x80000000, and bfd_vma is only 32 bits; then we
3210 will get sum == 0, but there is an overflow, since the
3211 inputs did not fit in the field. Instead of doing a
3212 separate test, we can check for this by or-ing in the
3213 operands when testing for the sum overflowing its final
3215 a
= (a
& addrmask
) >> howto
->rightshift
;
3216 b
= (b
& addrmask
) >> howto
->bitpos
;
3217 sum
= (a
+ b
) & addrmask
;
3218 if ((a
| b
| sum
) & ~ fieldmask
)
3224 /* This is the relocation function for the RS/6000/POWER/PowerPC.
3225 This is currently the only processor which uses XCOFF; I hope that
3228 I took the relocation type definitions from two documents:
3229 the PowerPC AIX Version 4 Application Binary Interface, First
3230 Edition (April 1992), and the PowerOpen ABI, Big-Endian
3231 32-Bit Hardware Implementation (June 30, 1994). Differences
3232 between the documents are noted below.
3234 Unsupported r_type's
3240 These relocs are defined by the PowerPC ABI to be
3241 relative branches which use half of the difference
3242 between the symbol and the program counter. I can't
3243 quite figure out when this is useful. These relocs are
3244 not defined by the PowerOpen ABI.
3249 Simple positive relocation.
3252 Simple negative relocation.
3255 Simple PC relative relocation.
3258 TOC relative relocation. The value in the instruction in
3259 the input file is the offset from the input file TOC to
3260 the desired location. We want the offset from the final
3261 TOC to the desired location. We have:
3266 so we must change insn by on - in.
3269 GL linkage relocation. The value of this relocation
3270 is the address of the entry in the TOC section.
3273 Local object TOC address. I can't figure out the
3274 difference between this and case R_GL.
3277 TOC relative relocation. A TOC relative load instruction
3278 which may be changed to a load address instruction.
3279 FIXME: We don't currently implement this optimization.
3282 TOC relative relocation. This is a TOC relative load
3283 address instruction which may be changed to a load
3284 instruction. FIXME: I don't know if this is the correct
3288 Absolute branch. We don't want to mess with the lower
3289 two bits of the instruction.
3292 The PowerPC ABI defines this as an absolute call which
3293 may be modified to become a relative call. The PowerOpen
3294 ABI does not define this relocation type.
3297 Absolute branch which may be modified to become a
3301 The PowerPC ABI defines this as an absolute branch to a
3302 fixed address which may be modified to an absolute branch
3303 to a symbol. The PowerOpen ABI does not define this
3307 The PowerPC ABI defines this as an absolute branch to a
3308 fixed address which may be modified to a relative branch.
3309 The PowerOpen ABI does not define this relocation type.
3312 Relative branch. We don't want to mess with the lower
3313 two bits of the instruction.
3316 The PowerPC ABI defines this as a relative call which may
3317 be modified to become an absolute call. The PowerOpen
3318 ABI does not define this relocation type.
3321 A relative branch which may be modified to become an
3325 The PowerPC AIX ABI describes this as a load which may be
3326 changed to a load address. The PowerOpen ABI says this
3327 is the same as case R_POS.
3330 The PowerPC AIX ABI describes this as a load address
3331 which may be changed to a load. The PowerOpen ABI says
3332 this is the same as R_POS.
3336 xcoff_ppc_relocate_section (bfd
*output_bfd
,
3337 struct bfd_link_info
*info
,
3339 asection
*input_section
,
3341 struct internal_reloc
*relocs
,
3342 struct internal_syment
*syms
,
3343 asection
**sections
)
3345 struct internal_reloc
*rel
;
3346 struct internal_reloc
*relend
;
3349 relend
= rel
+ input_section
->reloc_count
;
3350 for (; rel
< relend
; rel
++)
3353 struct xcoff_link_hash_entry
*h
;
3354 struct internal_syment
*sym
;
3357 struct reloc_howto_struct howto
;
3359 bfd_vma value_to_relocate
;
3363 /* Relocation type R_REF is a special relocation type which is
3364 merely used to prevent garbage collection from occurring for
3365 the csect including the symbol which it references. */
3366 if (rel
->r_type
== R_REF
)
3370 howto
.type
= rel
->r_type
;
3371 howto
.rightshift
= 0;
3372 howto
.bitsize
= (rel
->r_size
& 0x1f) + 1;
3373 howto
.size
= howto
.bitsize
> 16 ? 2 : 1;
3374 howto
.pc_relative
= FALSE
;
3376 howto
.complain_on_overflow
= (rel
->r_size
& 0x80
3377 ? complain_overflow_signed
3378 : complain_overflow_bitfield
);
3379 howto
.special_function
= NULL
;
3380 howto
.name
= "internal";
3381 howto
.partial_inplace
= TRUE
;
3382 howto
.src_mask
= howto
.dst_mask
= N_ONES (howto
.bitsize
);
3383 howto
.pcrel_offset
= FALSE
;
3390 symndx
= rel
->r_symndx
;
3396 h
= obj_xcoff_sym_hashes (input_bfd
)[symndx
];
3397 sym
= syms
+ symndx
;
3398 addend
= - sym
->n_value
;
3402 sec
= sections
[symndx
];
3403 /* Hack to make sure we use the right TOC anchor value
3404 if this reloc is against the TOC anchor. */
3405 if (sec
->name
[3] == '0'
3406 && strcmp (sec
->name
, ".tc0") == 0)
3407 val
= xcoff_data (output_bfd
)->toc
;
3409 val
= (sec
->output_section
->vma
3410 + sec
->output_offset
3416 if (info
->unresolved_syms_in_objects
!= RM_IGNORE
3417 && (h
->flags
& XCOFF_WAS_UNDEFINED
) != 0)
3418 (*info
->callbacks
->undefined_symbol
)
3419 (info
, h
->root
.root
.string
,
3420 input_bfd
, input_section
,
3421 rel
->r_vaddr
- input_section
->vma
,
3422 info
->unresolved_syms_in_objects
== RM_DIAGNOSE
&&
3423 !info
->warn_unresolved_syms
);
3425 if (h
->root
.type
== bfd_link_hash_defined
3426 || h
->root
.type
== bfd_link_hash_defweak
)
3428 sec
= h
->root
.u
.def
.section
;
3429 val
= (h
->root
.u
.def
.value
3430 + sec
->output_section
->vma
3431 + sec
->output_offset
);
3433 else if (h
->root
.type
== bfd_link_hash_common
)
3435 sec
= h
->root
.u
.c
.p
->section
;
3436 val
= (sec
->output_section
->vma
3437 + sec
->output_offset
);
3442 BFD_ASSERT (bfd_link_relocatable (info
)
3443 || (info
->static_link
3444 && (h
->flags
& XCOFF_WAS_UNDEFINED
) != 0)
3445 || (h
->flags
& XCOFF_DEF_DYNAMIC
) != 0
3446 || (h
->flags
& XCOFF_IMPORT
) != 0);
3451 if (rel
->r_type
>= XCOFF_MAX_CALCULATE_RELOCATION
3452 || !((*xcoff_calculate_relocation
[rel
->r_type
])
3453 (input_bfd
, input_section
, output_bfd
, rel
, sym
, &howto
, val
,
3454 addend
, &relocation
, contents
)))
3458 address
= rel
->r_vaddr
- input_section
->vma
;
3459 location
= contents
+ address
;
3461 if (address
> input_section
->size
)
3464 /* Get the value we are going to relocate. */
3465 if (1 == howto
.size
)
3466 value_to_relocate
= bfd_get_16 (input_bfd
, location
);
3468 value_to_relocate
= bfd_get_32 (input_bfd
, location
);
3472 FIXME: We may drop bits during the addition
3473 which we don't check for. We must either check at every single
3474 operation, which would be tedious, or we must do the computations
3475 in a type larger than bfd_vma, which would be inefficient. */
3477 if (((*xcoff_complain_overflow
[howto
.complain_on_overflow
])
3478 (input_bfd
, value_to_relocate
, relocation
, &howto
)))
3481 char buf
[SYMNMLEN
+ 1];
3482 char reloc_type_name
[10];
3494 name
= _bfd_coff_internal_syment_name (input_bfd
, sym
, buf
);
3498 sprintf (reloc_type_name
, "0x%02x", rel
->r_type
);
3500 (*info
->callbacks
->reloc_overflow
)
3501 (info
, (h
? &h
->root
: NULL
), name
, reloc_type_name
,
3502 (bfd_vma
) 0, input_bfd
, input_section
,
3503 rel
->r_vaddr
- input_section
->vma
);
3506 /* Add RELOCATION to the right bits of VALUE_TO_RELOCATE. */
3507 value_to_relocate
= ((value_to_relocate
& ~howto
.dst_mask
)
3508 | (((value_to_relocate
& howto
.src_mask
)
3509 + relocation
) & howto
.dst_mask
));
3511 /* Put the value back in the object file. */
3512 if (1 == howto
.size
)
3513 bfd_put_16 (input_bfd
, value_to_relocate
, location
);
3515 bfd_put_32 (input_bfd
, value_to_relocate
, location
);
3521 /* gcc-8 warns (*) on all the strncpy calls in this function about
3522 possible string truncation. The "truncation" is not a bug. We
3523 have an external representation of structs with fields that are not
3524 necessarily NULL terminated and corresponding internal
3525 representation fields that are one larger so that they can always
3527 gcc versions between 4.2 and 4.6 do not allow pragma control of
3528 diagnostics inside functions, giving a hard error if you try to use
3529 the finer control available with later versions.
3530 gcc prior to 4.2 warns about diagnostic push and pop.
3531 gcc-5, gcc-6 and gcc-7 warn that -Wstringop-truncation is unknown,
3532 unless you also add #pragma GCC diagnostic ignored "-Wpragma".
3533 (*) Depending on your system header files! */
3534 #if GCC_VERSION >= 8000
3535 # pragma GCC diagnostic push
3536 # pragma GCC diagnostic ignored "-Wstringop-truncation"
3539 _bfd_xcoff_put_ldsymbol_name (bfd
*abfd ATTRIBUTE_UNUSED
,
3540 struct xcoff_loader_info
*ldinfo
,
3541 struct internal_ldsym
*ldsym
,
3545 len
= strlen (name
);
3547 if (len
<= SYMNMLEN
)
3548 strncpy (ldsym
->_l
._l_name
, name
, SYMNMLEN
);
3551 if (ldinfo
->string_size
+ len
+ 3 > ldinfo
->string_alc
)
3553 bfd_size_type newalc
;
3556 newalc
= ldinfo
->string_alc
* 2;
3559 while (ldinfo
->string_size
+ len
+ 3 > newalc
)
3562 newstrings
= bfd_realloc (ldinfo
->strings
, newalc
);
3563 if (newstrings
== NULL
)
3565 ldinfo
->failed
= TRUE
;
3568 ldinfo
->string_alc
= newalc
;
3569 ldinfo
->strings
= newstrings
;
3572 bfd_put_16 (ldinfo
->output_bfd
, (bfd_vma
) (len
+ 1),
3573 ldinfo
->strings
+ ldinfo
->string_size
);
3574 strcpy (ldinfo
->strings
+ ldinfo
->string_size
+ 2, name
);
3575 ldsym
->_l
._l_l
._l_zeroes
= 0;
3576 ldsym
->_l
._l_l
._l_offset
= ldinfo
->string_size
+ 2;
3577 ldinfo
->string_size
+= len
+ 3;
3584 _bfd_xcoff_put_symbol_name (struct bfd_link_info
*info
,
3585 struct bfd_strtab_hash
*strtab
,
3586 struct internal_syment
*sym
,
3589 if (strlen (name
) <= SYMNMLEN
)
3591 strncpy (sym
->_n
._n_name
, name
, SYMNMLEN
);
3598 hash
= !info
->traditional_format
;
3599 indx
= _bfd_stringtab_add (strtab
, name
, hash
, FALSE
);
3600 if (indx
== (bfd_size_type
) -1)
3602 sym
->_n
._n_n
._n_zeroes
= 0;
3603 sym
->_n
._n_n
._n_offset
= STRING_SIZE_SIZE
+ indx
;
3607 #if GCC_VERSION >= 8000
3608 # pragma GCC diagnostic pop
3612 xcoff_create_csect_from_smclas (bfd
*abfd
,
3613 union internal_auxent
*aux
,
3614 const char *symbol_name
)
3616 asection
*return_value
= NULL
;
3618 /* .sv64 = x_smclas == 17
3619 This is an invalid csect for 32 bit apps. */
3620 static const char * const names
[] =
3622 ".pr", ".ro", ".db", ".tc", ".ua", ".rw", ".gl", ".xo", /* 0 - 7 */
3623 ".sv", ".bs", ".ds", ".uc", ".ti", ".tb", NULL
, ".tc0", /* 8 - 15 */
3624 ".td", NULL
, ".sv3264", NULL
, ".tl", ".ul", ".te"
3627 if ((aux
->x_csect
.x_smclas
< ARRAY_SIZE (names
))
3628 && (NULL
!= names
[aux
->x_csect
.x_smclas
]))
3630 return_value
= bfd_make_section_anyway
3631 (abfd
, names
[aux
->x_csect
.x_smclas
]);
3636 /* xgettext: c-format */
3637 (_("%pB: symbol `%s' has unrecognized smclas %d"),
3638 abfd
, symbol_name
, aux
->x_csect
.x_smclas
);
3639 bfd_set_error (bfd_error_bad_value
);
3642 return return_value
;
3646 xcoff_is_lineno_count_overflow (bfd
*abfd ATTRIBUTE_UNUSED
, bfd_vma value
)
3648 if (0xffff <= value
)
3655 xcoff_is_reloc_count_overflow (bfd
*abfd ATTRIBUTE_UNUSED
, bfd_vma value
)
3657 if (0xffff <= value
)
3664 xcoff_loader_symbol_offset (bfd
*abfd
,
3665 struct internal_ldhdr
*ldhdr ATTRIBUTE_UNUSED
)
3667 return bfd_xcoff_ldhdrsz (abfd
);
3671 xcoff_loader_reloc_offset (bfd
*abfd
, struct internal_ldhdr
*ldhdr
)
3673 return bfd_xcoff_ldhdrsz (abfd
) + ldhdr
->l_nsyms
* bfd_xcoff_ldsymsz (abfd
);
3677 xcoff_generate_rtinit (bfd
*abfd
, const char *init
, const char *fini
,
3680 bfd_byte filehdr_ext
[FILHSZ
];
3681 bfd_byte scnhdr_ext
[SCNHSZ
];
3682 bfd_byte syment_ext
[SYMESZ
* 10];
3683 bfd_byte reloc_ext
[RELSZ
* 3];
3684 bfd_byte
*data_buffer
;
3685 bfd_size_type data_buffer_size
;
3686 bfd_byte
*string_table
= NULL
, *st_tmp
= NULL
;
3687 bfd_size_type string_table_size
;
3689 size_t initsz
, finisz
;
3690 struct internal_filehdr filehdr
;
3691 struct internal_scnhdr scnhdr
;
3692 struct internal_syment syment
;
3693 union internal_auxent auxent
;
3694 struct internal_reloc reloc
;
3696 char *data_name
= ".data";
3697 char *rtinit_name
= "__rtinit";
3698 char *rtld_name
= "__rtld";
3700 if (! bfd_xcoff_rtinit_size (abfd
))
3703 initsz
= (init
== NULL
? 0 : 1 + strlen (init
));
3704 finisz
= (fini
== NULL
? 0 : 1 + strlen (fini
));
3707 memset (filehdr_ext
, 0, FILHSZ
);
3708 memset (&filehdr
, 0, sizeof (struct internal_filehdr
));
3709 filehdr
.f_magic
= bfd_xcoff_magic_number (abfd
);
3710 filehdr
.f_nscns
= 1;
3711 filehdr
.f_timdat
= 0;
3712 filehdr
.f_nsyms
= 0; /* at least 6, no more than 10 */
3713 filehdr
.f_symptr
= 0; /* set below */
3714 filehdr
.f_opthdr
= 0;
3715 filehdr
.f_flags
= 0;
3717 /* section header */
3718 memset (scnhdr_ext
, 0, SCNHSZ
);
3719 memset (&scnhdr
, 0, sizeof (struct internal_scnhdr
));
3720 memcpy (scnhdr
.s_name
, data_name
, strlen (data_name
));
3723 scnhdr
.s_size
= 0; /* set below */
3724 scnhdr
.s_scnptr
= FILHSZ
+ SCNHSZ
;
3725 scnhdr
.s_relptr
= 0; /* set below */
3726 scnhdr
.s_lnnoptr
= 0;
3727 scnhdr
.s_nreloc
= 0; /* either 1 or 2 */
3729 scnhdr
.s_flags
= STYP_DATA
;
3732 0x0000 0x00000000 : rtl
3733 0x0004 0x00000010 : offset to init, or 0
3734 0x0008 0x00000028 : offset to fini, or 0
3735 0x000C 0x0000000C : size of descriptor
3736 0x0010 0x00000000 : init, needs a reloc
3737 0x0014 0x00000040 : offset to init name
3738 0x0018 0x00000000 : flags, padded to a word
3739 0x001C 0x00000000 : empty init
3742 0x0028 0x00000000 : fini, needs a reloc
3743 0x002C 0x00000??? : offset to fini name
3744 0x0030 0x00000000 : flags, padded to a word
3745 0x0034 0x00000000 : empty fini
3749 0x0040 + initsz fini name */
3751 data_buffer_size
= 0x0040 + initsz
+ finisz
;
3752 data_buffer_size
= (data_buffer_size
+ 7) &~ (bfd_size_type
) 7;
3754 data_buffer
= (bfd_byte
*) bfd_zmalloc (data_buffer_size
);
3755 if (data_buffer
== NULL
)
3761 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x04]);
3763 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x14]);
3764 memcpy (&data_buffer
[val
], init
, initsz
);
3770 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x08]);
3771 val
= 0x40 + initsz
;
3772 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x2C]);
3773 memcpy (&data_buffer
[val
], fini
, finisz
);
3777 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x0C]);
3779 scnhdr
.s_size
= data_buffer_size
;
3782 string_table_size
= 0;
3784 string_table_size
+= initsz
;
3786 string_table_size
+= finisz
;
3787 if (string_table_size
)
3789 string_table_size
+= 4;
3790 string_table
= (bfd_byte
*) bfd_zmalloc (string_table_size
);
3791 if (string_table
== NULL
)
3794 val
= string_table_size
;
3795 bfd_h_put_32 (abfd
, val
, &string_table
[0]);
3796 st_tmp
= string_table
+ 4;
3805 memset (syment_ext
, 0, 10 * SYMESZ
);
3806 memset (reloc_ext
, 0, 3 * RELSZ
);
3809 memset (&syment
, 0, sizeof (struct internal_syment
));
3810 memset (&auxent
, 0, sizeof (union internal_auxent
));
3811 memcpy (syment
._n
._n_name
, data_name
, strlen (data_name
));
3813 syment
.n_sclass
= C_HIDEXT
;
3814 syment
.n_numaux
= 1;
3815 auxent
.x_csect
.x_scnlen
.l
= data_buffer_size
;
3816 auxent
.x_csect
.x_smtyp
= 3 << 3 | XTY_SD
;
3817 auxent
.x_csect
.x_smclas
= XMC_RW
;
3818 bfd_coff_swap_sym_out (abfd
, &syment
,
3819 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3820 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3822 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3823 filehdr
.f_nsyms
+= 2;
3826 memset (&syment
, 0, sizeof (struct internal_syment
));
3827 memset (&auxent
, 0, sizeof (union internal_auxent
));
3828 memcpy (syment
._n
._n_name
, rtinit_name
, strlen (rtinit_name
));
3830 syment
.n_sclass
= C_EXT
;
3831 syment
.n_numaux
= 1;
3832 auxent
.x_csect
.x_smtyp
= XTY_LD
;
3833 auxent
.x_csect
.x_smclas
= XMC_RW
;
3834 bfd_coff_swap_sym_out (abfd
, &syment
,
3835 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3836 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3838 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3839 filehdr
.f_nsyms
+= 2;
3844 memset (&syment
, 0, sizeof (struct internal_syment
));
3845 memset (&auxent
, 0, sizeof (union internal_auxent
));
3849 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
3850 memcpy (st_tmp
, init
, initsz
);
3854 memcpy (syment
._n
._n_name
, init
, initsz
- 1);
3856 syment
.n_sclass
= C_EXT
;
3857 syment
.n_numaux
= 1;
3858 bfd_coff_swap_sym_out (abfd
, &syment
,
3859 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3860 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3862 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3865 memset (&reloc
, 0, sizeof (struct internal_reloc
));
3866 reloc
.r_vaddr
= 0x0010;
3867 reloc
.r_symndx
= filehdr
.f_nsyms
;
3868 reloc
.r_type
= R_POS
;
3870 bfd_coff_swap_reloc_out (abfd
, &reloc
, &reloc_ext
[0]);
3872 filehdr
.f_nsyms
+= 2;
3873 scnhdr
.s_nreloc
+= 1;
3879 memset (&syment
, 0, sizeof (struct internal_syment
));
3880 memset (&auxent
, 0, sizeof (union internal_auxent
));
3884 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
3885 memcpy (st_tmp
, fini
, finisz
);
3889 memcpy (syment
._n
._n_name
, fini
, finisz
- 1);
3891 syment
.n_sclass
= C_EXT
;
3892 syment
.n_numaux
= 1;
3893 bfd_coff_swap_sym_out (abfd
, &syment
,
3894 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3895 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3897 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3900 memset (&reloc
, 0, sizeof (struct internal_reloc
));
3901 reloc
.r_vaddr
= 0x0028;
3902 reloc
.r_symndx
= filehdr
.f_nsyms
;
3903 reloc
.r_type
= R_POS
;
3905 bfd_coff_swap_reloc_out (abfd
, &reloc
,
3906 &reloc_ext
[scnhdr
.s_nreloc
* RELSZ
]);
3908 filehdr
.f_nsyms
+= 2;
3909 scnhdr
.s_nreloc
+= 1;
3914 memset (&syment
, 0, sizeof (struct internal_syment
));
3915 memset (&auxent
, 0, sizeof (union internal_auxent
));
3916 memcpy (syment
._n
._n_name
, rtld_name
, strlen (rtld_name
));
3917 syment
.n_sclass
= C_EXT
;
3918 syment
.n_numaux
= 1;
3919 bfd_coff_swap_sym_out (abfd
, &syment
,
3920 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3921 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3923 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3926 memset (&reloc
, 0, sizeof (struct internal_reloc
));
3927 reloc
.r_vaddr
= 0x0000;
3928 reloc
.r_symndx
= filehdr
.f_nsyms
;
3929 reloc
.r_type
= R_POS
;
3931 bfd_coff_swap_reloc_out (abfd
, &reloc
,
3932 &reloc_ext
[scnhdr
.s_nreloc
* RELSZ
]);
3934 filehdr
.f_nsyms
+= 2;
3935 scnhdr
.s_nreloc
+= 1;
3938 scnhdr
.s_relptr
= scnhdr
.s_scnptr
+ data_buffer_size
;
3939 filehdr
.f_symptr
= scnhdr
.s_relptr
+ scnhdr
.s_nreloc
* RELSZ
;
3941 bfd_coff_swap_filehdr_out (abfd
, &filehdr
, filehdr_ext
);
3942 bfd_bwrite (filehdr_ext
, FILHSZ
, abfd
);
3943 bfd_coff_swap_scnhdr_out (abfd
, &scnhdr
, scnhdr_ext
);
3944 bfd_bwrite (scnhdr_ext
, SCNHSZ
, abfd
);
3945 bfd_bwrite (data_buffer
, data_buffer_size
, abfd
);
3946 bfd_bwrite (reloc_ext
, scnhdr
.s_nreloc
* RELSZ
, abfd
);
3947 bfd_bwrite (syment_ext
, filehdr
.f_nsyms
* SYMESZ
, abfd
);
3948 bfd_bwrite (string_table
, string_table_size
, abfd
);
3957 static reloc_howto_type xcoff_dynamic_reloc
=
3958 HOWTO (0, /* type */
3960 2, /* size (0 = byte, 1 = short, 2 = long) */
3962 FALSE
, /* pc_relative */
3964 complain_overflow_bitfield
, /* complain_on_overflow */
3965 0, /* special_function */
3967 TRUE
, /* partial_inplace */
3968 0xffffffff, /* src_mask */
3969 0xffffffff, /* dst_mask */
3970 FALSE
); /* pcrel_offset */
3974 The first word of global linkage code must be modified by filling in
3975 the correct TOC offset. */
3977 static const unsigned long xcoff_glink_code
[9] =
3979 0x81820000, /* lwz r12,0(r2) */
3980 0x90410014, /* stw r2,20(r1) */
3981 0x800c0000, /* lwz r0,0(r12) */
3982 0x804c0004, /* lwz r2,4(r12) */
3983 0x7c0903a6, /* mtctr r0 */
3984 0x4e800420, /* bctr */
3985 0x00000000, /* start of traceback table */
3986 0x000c8000, /* traceback table */
3987 0x00000000, /* traceback table */
3990 /* Table to convert DWARF flags to section names. */
3992 const struct xcoff_dwsect_name xcoff_dwsect_names
[] = {
3993 { SSUBTYP_DWINFO
, ".dwinfo", TRUE
},
3994 { SSUBTYP_DWLINE
, ".dwline", TRUE
},
3995 { SSUBTYP_DWPBNMS
, ".dwpbnms", TRUE
},
3996 { SSUBTYP_DWPBTYP
, ".dwpbtyp", TRUE
},
3997 { SSUBTYP_DWARNGE
, ".dwarnge", TRUE
},
3998 { SSUBTYP_DWABREV
, ".dwabrev", FALSE
},
3999 { SSUBTYP_DWSTR
, ".dwstr", TRUE
},
4000 { SSUBTYP_DWRNGES
, ".dwrnges", TRUE
}
4003 /* For generic entry points. */
4004 #define _bfd_xcoff_close_and_cleanup _bfd_archive_close_and_cleanup
4005 #define _bfd_xcoff_bfd_free_cached_info _bfd_bool_bfd_true
4006 #define _bfd_xcoff_new_section_hook coff_new_section_hook
4007 #define _bfd_xcoff_get_section_contents _bfd_generic_get_section_contents
4008 #define _bfd_xcoff_get_section_contents_in_window \
4009 _bfd_generic_get_section_contents_in_window
4011 /* For copy private data entry points. */
4012 #define _bfd_xcoff_bfd_copy_private_bfd_data \
4013 _bfd_xcoff_copy_private_bfd_data
4014 #define _bfd_xcoff_bfd_merge_private_bfd_data \
4015 _bfd_generic_bfd_merge_private_bfd_data
4016 #define _bfd_xcoff_bfd_copy_private_section_data \
4017 _bfd_generic_bfd_copy_private_section_data
4018 #define _bfd_xcoff_bfd_copy_private_symbol_data \
4019 _bfd_generic_bfd_copy_private_symbol_data
4020 #define _bfd_xcoff_bfd_copy_private_header_data \
4021 _bfd_generic_bfd_copy_private_header_data
4022 #define _bfd_xcoff_bfd_set_private_flags \
4023 _bfd_generic_bfd_set_private_flags
4024 #define _bfd_xcoff_bfd_print_private_bfd_data \
4025 _bfd_generic_bfd_print_private_bfd_data
4027 /* For archive entry points. */
4028 #define _bfd_xcoff_slurp_extended_name_table \
4029 _bfd_noarchive_slurp_extended_name_table
4030 #define _bfd_xcoff_construct_extended_name_table \
4031 _bfd_noarchive_construct_extended_name_table
4032 #define _bfd_xcoff_truncate_arname bfd_dont_truncate_arname
4033 #define _bfd_xcoff_write_ar_hdr _bfd_generic_write_ar_hdr
4034 #define _bfd_xcoff_get_elt_at_index _bfd_generic_get_elt_at_index
4035 #define _bfd_xcoff_generic_stat_arch_elt _bfd_xcoff_stat_arch_elt
4036 #define _bfd_xcoff_update_armap_timestamp _bfd_bool_bfd_true
4038 /* For symbols entry points. */
4039 #define _bfd_xcoff_get_symtab_upper_bound coff_get_symtab_upper_bound
4040 #define _bfd_xcoff_canonicalize_symtab coff_canonicalize_symtab
4041 #define _bfd_xcoff_make_empty_symbol coff_make_empty_symbol
4042 #define _bfd_xcoff_print_symbol coff_print_symbol
4043 #define _bfd_xcoff_get_symbol_info coff_get_symbol_info
4044 #define _bfd_xcoff_get_symbol_version_string \
4045 _bfd_nosymbols_get_symbol_version_string
4046 #define _bfd_xcoff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
4047 #define _bfd_xcoff_bfd_is_target_special_symbol \
4048 coff_bfd_is_target_special_symbol
4049 #define _bfd_xcoff_get_lineno coff_get_lineno
4050 #define _bfd_xcoff_find_nearest_line coff_find_nearest_line
4051 #define _bfd_xcoff_find_line coff_find_line
4052 #define _bfd_xcoff_find_inliner_info coff_find_inliner_info
4053 #define _bfd_xcoff_bfd_make_debug_symbol coff_bfd_make_debug_symbol
4054 #define _bfd_xcoff_read_minisymbols _bfd_generic_read_minisymbols
4055 #define _bfd_xcoff_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
4057 /* For reloc entry points. */
4058 #define _bfd_xcoff_get_reloc_upper_bound coff_get_reloc_upper_bound
4059 #define _bfd_xcoff_canonicalize_reloc coff_canonicalize_reloc
4060 #define _bfd_xcoff_set_reloc _bfd_generic_set_reloc
4061 #define _bfd_xcoff_bfd_reloc_type_lookup _bfd_xcoff_reloc_type_lookup
4062 #define _bfd_xcoff_bfd_reloc_name_lookup _bfd_xcoff_reloc_name_lookup
4064 /* For link entry points. */
4065 #define _bfd_xcoff_bfd_get_relocated_section_contents \
4066 bfd_generic_get_relocated_section_contents
4067 #define _bfd_xcoff_bfd_relax_section bfd_generic_relax_section
4068 #define _bfd_xcoff_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
4069 #define _bfd_xcoff_bfd_link_just_syms _bfd_generic_link_just_syms
4070 #define _bfd_xcoff_bfd_copy_link_hash_symbol_type \
4071 _bfd_generic_copy_link_hash_symbol_type
4072 #define _bfd_xcoff_bfd_link_split_section _bfd_generic_link_split_section
4073 #define _bfd_xcoff_bfd_gc_sections bfd_generic_gc_sections
4074 #define _bfd_xcoff_bfd_lookup_section_flags bfd_generic_lookup_section_flags
4075 #define _bfd_xcoff_bfd_merge_sections bfd_generic_merge_sections
4076 #define _bfd_xcoff_bfd_is_group_section bfd_generic_is_group_section
4077 #define _bfd_xcoff_bfd_group_name bfd_generic_group_name
4078 #define _bfd_xcoff_bfd_discard_group bfd_generic_discard_group
4079 #define _bfd_xcoff_section_already_linked _bfd_generic_section_already_linked
4080 #define _bfd_xcoff_bfd_define_common_symbol _bfd_xcoff_define_common_symbol
4081 #define _bfd_xcoff_bfd_link_hide_symbol _bfd_generic_link_hide_symbol
4082 #define _bfd_xcoff_bfd_define_start_stop bfd_generic_define_start_stop
4083 #define _bfd_xcoff_bfd_link_check_relocs _bfd_generic_link_check_relocs
4085 /* For dynamic symbols and relocs entry points. */
4086 #define _bfd_xcoff_get_synthetic_symtab _bfd_nodynamic_get_synthetic_symtab
4088 static const struct xcoff_backend_data_rec bfd_xcoff_backend_data
=
4090 { /* COFF backend, defined in libcoff.h. */
4091 _bfd_xcoff_swap_aux_in
,
4092 _bfd_xcoff_swap_sym_in
,
4093 coff_swap_lineno_in
,
4094 _bfd_xcoff_swap_aux_out
,
4095 _bfd_xcoff_swap_sym_out
,
4096 coff_swap_lineno_out
,
4097 xcoff_swap_reloc_out
,
4098 coff_swap_filehdr_out
,
4099 coff_swap_aouthdr_out
,
4100 coff_swap_scnhdr_out
,
4109 TRUE
, /* _bfd_coff_long_filenames */
4110 XCOFF_NO_LONG_SECTION_NAMES
, /* _bfd_coff_long_section_names */
4111 3, /* _bfd_coff_default_section_alignment_power */
4112 FALSE
, /* _bfd_coff_force_symnames_in_strings */
4113 2, /* _bfd_coff_debug_string_prefix_length */
4114 32768, /* _bfd_coff_max_nscns */
4115 coff_swap_filehdr_in
,
4116 coff_swap_aouthdr_in
,
4117 coff_swap_scnhdr_in
,
4118 xcoff_swap_reloc_in
,
4119 coff_bad_format_hook
,
4120 coff_set_arch_mach_hook
,
4123 coff_set_alignment_hook
,
4124 coff_slurp_symbol_table
,
4125 symname_in_debug_hook
,
4126 coff_pointerize_aux_hook
,
4128 dummy_reloc16_extra_cases
,
4129 dummy_reloc16_estimate
,
4130 NULL
, /* bfd_coff_sym_is_global */
4131 coff_compute_section_file_positions
,
4132 NULL
, /* _bfd_coff_start_final_link */
4133 xcoff_ppc_relocate_section
,
4134 coff_rtype_to_howto
,
4135 NULL
, /* _bfd_coff_adjust_symndx */
4136 _bfd_generic_link_add_one_symbol
,
4137 coff_link_output_has_begun
,
4138 coff_final_link_postscript
,
4139 NULL
/* print_pdata. */
4142 0x01DF, /* magic number */
4146 /* Function pointers to xcoff specific swap routines. */
4147 xcoff_swap_ldhdr_in
,
4148 xcoff_swap_ldhdr_out
,
4149 xcoff_swap_ldsym_in
,
4150 xcoff_swap_ldsym_out
,
4151 xcoff_swap_ldrel_in
,
4152 xcoff_swap_ldrel_out
,
4158 12, /* _xcoff_function_descriptor_size */
4162 1, /* _xcoff_ldhdr_version */
4164 _bfd_xcoff_put_symbol_name
,
4165 _bfd_xcoff_put_ldsymbol_name
,
4166 &xcoff_dynamic_reloc
,
4167 xcoff_create_csect_from_smclas
,
4169 /* Lineno and reloc count overflow. */
4170 xcoff_is_lineno_count_overflow
,
4171 xcoff_is_reloc_count_overflow
,
4173 xcoff_loader_symbol_offset
,
4174 xcoff_loader_reloc_offset
,
4177 &xcoff_glink_code
[0],
4178 36, /* _xcoff_glink_size */
4181 64, /* _xcoff_rtinit_size */
4182 xcoff_generate_rtinit
,
4185 /* The transfer vector that leads the outside world to all of the above. */
4186 const bfd_target rs6000_xcoff_vec
=
4189 bfd_target_xcoff_flavour
,
4190 BFD_ENDIAN_BIG
, /* data byte order is big */
4191 BFD_ENDIAN_BIG
, /* header byte order is big */
4193 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
4194 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
4196 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
4197 0, /* leading char */
4198 '/', /* ar_pad_char */
4199 15, /* ar_max_namelen */
4200 0, /* match priority. */
4201 TARGET_KEEP_UNUSED_SECTION_SYMBOLS
, /* keep unused section symbols. */
4225 { /* bfd_check_format */
4228 _bfd_xcoff_archive_p
,
4232 { /* bfd_set_format */
4233 _bfd_bool_bfd_false_error
,
4235 _bfd_generic_mkarchive
,
4236 _bfd_bool_bfd_false_error
4239 {/* bfd_write_contents */
4240 _bfd_bool_bfd_false_error
,
4241 coff_write_object_contents
,
4242 _bfd_xcoff_write_archive_contents
,
4243 _bfd_bool_bfd_false_error
4246 BFD_JUMP_TABLE_GENERIC (_bfd_xcoff
),
4247 BFD_JUMP_TABLE_COPY (_bfd_xcoff
),
4248 BFD_JUMP_TABLE_CORE (coff
),
4249 BFD_JUMP_TABLE_ARCHIVE (_bfd_xcoff
),
4250 BFD_JUMP_TABLE_SYMBOLS (_bfd_xcoff
),
4251 BFD_JUMP_TABLE_RELOCS (_bfd_xcoff
),
4252 BFD_JUMP_TABLE_WRITE (coff
),
4253 BFD_JUMP_TABLE_LINK (_bfd_xcoff
),
4254 BFD_JUMP_TABLE_DYNAMIC (_bfd_xcoff
),
4256 /* Opposite endian version, none exists */
4259 & bfd_xcoff_backend_data
,
4262 /* xcoff-powermac target
4264 Only difference between this target and the rs6000 target is the
4265 the default architecture and machine type used in coffcode.h
4267 PowerPC Macs use the same magic numbers as RS/6000
4268 (because that's how they were bootstrapped originally),
4269 but they are always PowerPC architecture. */
4270 static const struct xcoff_backend_data_rec bfd_pmac_xcoff_backend_data
=
4272 { /* COFF backend, defined in libcoff.h. */
4273 _bfd_xcoff_swap_aux_in
,
4274 _bfd_xcoff_swap_sym_in
,
4275 coff_swap_lineno_in
,
4276 _bfd_xcoff_swap_aux_out
,
4277 _bfd_xcoff_swap_sym_out
,
4278 coff_swap_lineno_out
,
4279 xcoff_swap_reloc_out
,
4280 coff_swap_filehdr_out
,
4281 coff_swap_aouthdr_out
,
4282 coff_swap_scnhdr_out
,
4291 TRUE
, /* _bfd_coff_long_filenames */
4292 XCOFF_NO_LONG_SECTION_NAMES
, /* _bfd_coff_long_section_names */
4293 3, /* _bfd_coff_default_section_alignment_power */
4294 FALSE
, /* _bfd_coff_force_symnames_in_strings */
4295 2, /* _bfd_coff_debug_string_prefix_length */
4296 32768, /* _bfd_coff_max_nscns */
4297 coff_swap_filehdr_in
,
4298 coff_swap_aouthdr_in
,
4299 coff_swap_scnhdr_in
,
4300 xcoff_swap_reloc_in
,
4301 coff_bad_format_hook
,
4302 coff_set_arch_mach_hook
,
4305 coff_set_alignment_hook
,
4306 coff_slurp_symbol_table
,
4307 symname_in_debug_hook
,
4308 coff_pointerize_aux_hook
,
4310 dummy_reloc16_extra_cases
,
4311 dummy_reloc16_estimate
,
4312 NULL
, /* bfd_coff_sym_is_global */
4313 coff_compute_section_file_positions
,
4314 NULL
, /* _bfd_coff_start_final_link */
4315 xcoff_ppc_relocate_section
,
4316 coff_rtype_to_howto
,
4317 NULL
, /* _bfd_coff_adjust_symndx */
4318 _bfd_generic_link_add_one_symbol
,
4319 coff_link_output_has_begun
,
4320 coff_final_link_postscript
,
4321 NULL
/* print_pdata. */
4324 0x01DF, /* magic number */
4328 /* Function pointers to xcoff specific swap routines. */
4329 xcoff_swap_ldhdr_in
,
4330 xcoff_swap_ldhdr_out
,
4331 xcoff_swap_ldsym_in
,
4332 xcoff_swap_ldsym_out
,
4333 xcoff_swap_ldrel_in
,
4334 xcoff_swap_ldrel_out
,
4340 12, /* _xcoff_function_descriptor_size */
4344 1, /* _xcoff_ldhdr_version */
4346 _bfd_xcoff_put_symbol_name
,
4347 _bfd_xcoff_put_ldsymbol_name
,
4348 &xcoff_dynamic_reloc
,
4349 xcoff_create_csect_from_smclas
,
4351 /* Lineno and reloc count overflow. */
4352 xcoff_is_lineno_count_overflow
,
4353 xcoff_is_reloc_count_overflow
,
4355 xcoff_loader_symbol_offset
,
4356 xcoff_loader_reloc_offset
,
4359 &xcoff_glink_code
[0],
4360 36, /* _xcoff_glink_size */
4363 0, /* _xcoff_rtinit_size */
4364 xcoff_generate_rtinit
,
4367 /* The transfer vector that leads the outside world to all of the above. */
4368 const bfd_target powerpc_xcoff_vec
=
4371 bfd_target_xcoff_flavour
,
4372 BFD_ENDIAN_BIG
, /* data byte order is big */
4373 BFD_ENDIAN_BIG
, /* header byte order is big */
4375 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
4376 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
4378 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
4379 0, /* leading char */
4380 '/', /* ar_pad_char */
4381 15, /* ar_max_namelen */
4382 0, /* match priority. */
4383 TARGET_KEEP_UNUSED_SECTION_SYMBOLS
, /* keep unused section symbols. */
4407 { /* bfd_check_format */
4410 _bfd_xcoff_archive_p
,
4414 { /* bfd_set_format */
4415 _bfd_bool_bfd_false_error
,
4417 _bfd_generic_mkarchive
,
4418 _bfd_bool_bfd_false_error
4421 {/* bfd_write_contents */
4422 _bfd_bool_bfd_false_error
,
4423 coff_write_object_contents
,
4424 _bfd_xcoff_write_archive_contents
,
4425 _bfd_bool_bfd_false_error
4428 BFD_JUMP_TABLE_GENERIC (_bfd_xcoff
),
4429 BFD_JUMP_TABLE_COPY (_bfd_xcoff
),
4430 BFD_JUMP_TABLE_CORE (coff
),
4431 BFD_JUMP_TABLE_ARCHIVE (_bfd_xcoff
),
4432 BFD_JUMP_TABLE_SYMBOLS (_bfd_xcoff
),
4433 BFD_JUMP_TABLE_RELOCS (_bfd_xcoff
),
4434 BFD_JUMP_TABLE_WRITE (coff
),
4435 BFD_JUMP_TABLE_LINK (_bfd_xcoff
),
4436 BFD_JUMP_TABLE_DYNAMIC (_bfd_xcoff
),
4438 /* Opposite endian version, none exists */
4441 & bfd_pmac_xcoff_backend_data
,