1 /* BFD back-end for IBM RS/6000 "XCOFF" files.
2 Copyright 1990-1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
3 Free Software Foundation, Inc.
4 Written by Metin G. Ozisik, Mimi Phuong-Thao Vo, and John Gilmore.
5 Archive support from Damon A. Permezel.
6 Contributed by IBM Corporation and Cygnus Support.
8 This file is part of BFD, the Binary File Descriptor library.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 2 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
28 #include "coff/internal.h"
29 #include "coff/xcoff.h"
30 #include "coff/rs6000.h"
34 extern bfd_boolean _bfd_xcoff_mkobject
36 extern bfd_boolean _bfd_xcoff_copy_private_bfd_data
37 PARAMS ((bfd
*, bfd
*));
38 extern bfd_boolean _bfd_xcoff_is_local_label_name
39 PARAMS ((bfd
*, const char *));
40 extern reloc_howto_type
*_bfd_xcoff_reloc_type_lookup
41 PARAMS ((bfd
*, bfd_reloc_code_real_type
));
42 extern bfd_boolean _bfd_xcoff_slurp_armap
44 extern const bfd_target
*_bfd_xcoff_archive_p
46 extern PTR _bfd_xcoff_read_ar_hdr
48 extern bfd
*_bfd_xcoff_openr_next_archived_file
49 PARAMS ((bfd
*, bfd
*));
50 extern int _bfd_xcoff_stat_arch_elt
51 PARAMS ((bfd
*, struct stat
*));
52 extern bfd_boolean _bfd_xcoff_write_armap
53 PARAMS ((bfd
*, unsigned int, struct orl
*, unsigned int, int));
54 extern bfd_boolean _bfd_xcoff_write_archive_contents
56 extern int _bfd_xcoff_sizeof_headers
57 PARAMS ((bfd
*, struct bfd_link_info
*));
58 extern void _bfd_xcoff_swap_sym_in
59 PARAMS ((bfd
*, PTR
, PTR
));
60 extern unsigned int _bfd_xcoff_swap_sym_out
61 PARAMS ((bfd
*, PTR
, PTR
));
62 extern void _bfd_xcoff_swap_aux_in
63 PARAMS ((bfd
*, PTR
, int, int, int, int, PTR
));
64 extern unsigned int _bfd_xcoff_swap_aux_out
65 PARAMS ((bfd
*, PTR
, int, int, int, int, PTR
));
66 static void xcoff_swap_reloc_in
67 PARAMS ((bfd
*, PTR
, PTR
));
68 static unsigned int xcoff_swap_reloc_out
69 PARAMS ((bfd
*, PTR
, PTR
));
71 /* Forward declare xcoff_rtype2howto for coffcode.h macro. */
72 void xcoff_rtype2howto
73 PARAMS ((arelent
*, struct internal_reloc
*));
75 /* coffcode.h needs these to be defined. */
76 #define RS6000COFF_C 1
78 #define SELECT_RELOC(internal, howto) \
80 internal.r_type = howto->type; \
82 ((howto->complain_on_overflow == complain_overflow_signed \
85 | (howto->bitsize - 1)); \
88 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
89 #define COFF_LONG_FILENAMES
90 #define NO_COFF_SYMBOLS
91 #define RTYPE2HOWTO(cache_ptr, dst) xcoff_rtype2howto (cache_ptr, dst)
92 #define coff_mkobject _bfd_xcoff_mkobject
93 #define coff_bfd_copy_private_bfd_data _bfd_xcoff_copy_private_bfd_data
94 #define coff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
95 #define coff_bfd_reloc_type_lookup _bfd_xcoff_reloc_type_lookup
96 #define coff_bfd_reloc_name_lookup _bfd_xcoff_reloc_name_lookup
98 extern const bfd_target
* rs6000coff_core_p
100 extern bfd_boolean rs6000coff_core_file_matches_executable_p
101 PARAMS ((bfd
*cbfd
, bfd
*ebfd
));
102 extern char *rs6000coff_core_file_failing_command
103 PARAMS ((bfd
*abfd
));
104 extern int rs6000coff_core_file_failing_signal
105 PARAMS ((bfd
*abfd
));
106 #define CORE_FILE_P rs6000coff_core_p
107 #define coff_core_file_failing_command \
108 rs6000coff_core_file_failing_command
109 #define coff_core_file_failing_signal \
110 rs6000coff_core_file_failing_signal
111 #define coff_core_file_matches_executable_p \
112 rs6000coff_core_file_matches_executable_p
114 #define CORE_FILE_P _bfd_dummy_target
115 #define coff_core_file_failing_command \
116 _bfd_nocore_core_file_failing_command
117 #define coff_core_file_failing_signal \
118 _bfd_nocore_core_file_failing_signal
119 #define coff_core_file_matches_executable_p \
120 _bfd_nocore_core_file_matches_executable_p
122 #define coff_SWAP_sym_in _bfd_xcoff_swap_sym_in
123 #define coff_SWAP_sym_out _bfd_xcoff_swap_sym_out
124 #define coff_SWAP_aux_in _bfd_xcoff_swap_aux_in
125 #define coff_SWAP_aux_out _bfd_xcoff_swap_aux_out
126 #define coff_swap_reloc_in xcoff_swap_reloc_in
127 #define coff_swap_reloc_out xcoff_swap_reloc_out
128 #define NO_COFF_RELOCS
130 #include "coffcode.h"
132 /* The main body of code is in coffcode.h. */
134 static const char *normalize_filename
136 static bfd_boolean xcoff_write_armap_old
137 PARAMS ((bfd
*, unsigned int, struct orl
*, unsigned int, int));
138 static bfd_boolean xcoff_write_armap_big
139 PARAMS ((bfd
*, unsigned int, struct orl
*, unsigned int, int));
140 static bfd_boolean xcoff_write_archive_contents_old
142 static bfd_boolean xcoff_write_archive_contents_big
144 static void xcoff_swap_ldhdr_in
145 PARAMS ((bfd
*, const PTR
, struct internal_ldhdr
*));
146 static void xcoff_swap_ldhdr_out
147 PARAMS ((bfd
*, const struct internal_ldhdr
*, PTR
));
148 static void xcoff_swap_ldsym_in
149 PARAMS ((bfd
*, const PTR
, struct internal_ldsym
*));
150 static void xcoff_swap_ldsym_out
151 PARAMS ((bfd
*, const struct internal_ldsym
*, PTR
));
152 static void xcoff_swap_ldrel_in
153 PARAMS ((bfd
*, const PTR
, struct internal_ldrel
*));
154 static void xcoff_swap_ldrel_out
155 PARAMS ((bfd
*, const struct internal_ldrel
*, PTR
));
156 static bfd_boolean xcoff_ppc_relocate_section
157 PARAMS ((bfd
*, struct bfd_link_info
*, bfd
*, asection
*, bfd_byte
*,
158 struct internal_reloc
*, struct internal_syment
*, asection
**));
159 static bfd_boolean _bfd_xcoff_put_ldsymbol_name
160 PARAMS ((bfd
*, struct xcoff_loader_info
*, struct internal_ldsym
*,
162 static asection
*xcoff_create_csect_from_smclas
163 PARAMS ((bfd
*, union internal_auxent
*, const char *));
164 static bfd_boolean xcoff_is_lineno_count_overflow
165 PARAMS ((bfd
*, bfd_vma
));
166 static bfd_boolean xcoff_is_reloc_count_overflow
167 PARAMS ((bfd
*, bfd_vma
));
168 static bfd_vma xcoff_loader_symbol_offset
169 PARAMS ((bfd
*, struct internal_ldhdr
*));
170 static bfd_vma xcoff_loader_reloc_offset
171 PARAMS ((bfd
*, struct internal_ldhdr
*));
172 static bfd_boolean xcoff_generate_rtinit
173 PARAMS ((bfd
*, const char *, const char *, bfd_boolean
));
174 static bfd_boolean do_pad
175 PARAMS ((bfd
*, unsigned int));
176 static bfd_boolean do_copy
177 PARAMS ((bfd
*, bfd
*));
178 static bfd_boolean do_shared_object_padding
179 PARAMS ((bfd
*, bfd
*, file_ptr
*, int));
181 /* Relocation functions */
182 static bfd_boolean xcoff_reloc_type_br
183 PARAMS ((XCOFF_RELOC_FUNCTION_ARGS
));
185 static bfd_boolean xcoff_complain_overflow_dont_func
186 PARAMS ((XCOFF_COMPLAIN_FUNCTION_ARGS
));
187 static bfd_boolean xcoff_complain_overflow_bitfield_func
188 PARAMS ((XCOFF_COMPLAIN_FUNCTION_ARGS
));
189 static bfd_boolean xcoff_complain_overflow_signed_func
190 PARAMS ((XCOFF_COMPLAIN_FUNCTION_ARGS
));
191 static bfd_boolean xcoff_complain_overflow_unsigned_func
192 PARAMS ((XCOFF_COMPLAIN_FUNCTION_ARGS
));
194 bfd_boolean (*xcoff_calculate_relocation
[XCOFF_MAX_CALCULATE_RELOCATION
])
195 PARAMS ((XCOFF_RELOC_FUNCTION_ARGS
)) =
197 xcoff_reloc_type_pos
, /* R_POS (0x00) */
198 xcoff_reloc_type_neg
, /* R_NEG (0x01) */
199 xcoff_reloc_type_rel
, /* R_REL (0x02) */
200 xcoff_reloc_type_toc
, /* R_TOC (0x03) */
201 xcoff_reloc_type_fail
, /* R_RTB (0x04) */
202 xcoff_reloc_type_toc
, /* R_GL (0x05) */
203 xcoff_reloc_type_toc
, /* R_TCL (0x06) */
204 xcoff_reloc_type_fail
, /* (0x07) */
205 xcoff_reloc_type_ba
, /* R_BA (0x08) */
206 xcoff_reloc_type_fail
, /* (0x09) */
207 xcoff_reloc_type_br
, /* R_BR (0x0a) */
208 xcoff_reloc_type_fail
, /* (0x0b) */
209 xcoff_reloc_type_pos
, /* R_RL (0x0c) */
210 xcoff_reloc_type_pos
, /* R_RLA (0x0d) */
211 xcoff_reloc_type_fail
, /* (0x0e) */
212 xcoff_reloc_type_noop
, /* R_REF (0x0f) */
213 xcoff_reloc_type_fail
, /* (0x10) */
214 xcoff_reloc_type_fail
, /* (0x11) */
215 xcoff_reloc_type_toc
, /* R_TRL (0x12) */
216 xcoff_reloc_type_toc
, /* R_TRLA (0x13) */
217 xcoff_reloc_type_fail
, /* R_RRTBI (0x14) */
218 xcoff_reloc_type_fail
, /* R_RRTBA (0x15) */
219 xcoff_reloc_type_ba
, /* R_CAI (0x16) */
220 xcoff_reloc_type_crel
, /* R_CREL (0x17) */
221 xcoff_reloc_type_ba
, /* R_RBA (0x18) */
222 xcoff_reloc_type_ba
, /* R_RBAC (0x19) */
223 xcoff_reloc_type_br
, /* R_RBR (0x1a) */
224 xcoff_reloc_type_ba
, /* R_RBRC (0x1b) */
227 bfd_boolean (*xcoff_complain_overflow
[XCOFF_MAX_COMPLAIN_OVERFLOW
])
228 PARAMS ((XCOFF_COMPLAIN_FUNCTION_ARGS
)) =
230 xcoff_complain_overflow_dont_func
,
231 xcoff_complain_overflow_bitfield_func
,
232 xcoff_complain_overflow_signed_func
,
233 xcoff_complain_overflow_unsigned_func
,
236 /* We use our own tdata type. Its first field is the COFF tdata type,
237 so the COFF routines are compatible. */
240 _bfd_xcoff_mkobject (abfd
)
243 coff_data_type
*coff
;
244 bfd_size_type amt
= sizeof (struct xcoff_tdata
);
246 abfd
->tdata
.xcoff_obj_data
= (struct xcoff_tdata
*) bfd_zalloc (abfd
, amt
);
247 if (abfd
->tdata
.xcoff_obj_data
== NULL
)
249 coff
= coff_data (abfd
);
250 coff
->symbols
= (coff_symbol_type
*) NULL
;
251 coff
->conversion_table
= (unsigned int *) NULL
;
252 coff
->raw_syments
= (struct coff_ptr_struct
*) NULL
;
255 xcoff_data (abfd
)->modtype
= ('1' << 8) | 'L';
257 /* We set cputype to -1 to indicate that it has not been
259 xcoff_data (abfd
)->cputype
= -1;
261 xcoff_data (abfd
)->csects
= NULL
;
262 xcoff_data (abfd
)->debug_indices
= NULL
;
264 /* text section alignment is different than the default */
265 bfd_xcoff_text_align_power (abfd
) = 2;
270 /* Copy XCOFF data from one BFD to another. */
273 _bfd_xcoff_copy_private_bfd_data (ibfd
, obfd
)
277 struct xcoff_tdata
*ix
, *ox
;
280 if (ibfd
->xvec
!= obfd
->xvec
)
282 ix
= xcoff_data (ibfd
);
283 ox
= xcoff_data (obfd
);
284 ox
->full_aouthdr
= ix
->full_aouthdr
;
290 sec
= coff_section_from_bfd_index (ibfd
, ix
->sntoc
);
294 ox
->sntoc
= sec
->output_section
->target_index
;
296 if (ix
->snentry
== 0)
300 sec
= coff_section_from_bfd_index (ibfd
, ix
->snentry
);
304 ox
->snentry
= sec
->output_section
->target_index
;
306 bfd_xcoff_text_align_power (obfd
) = bfd_xcoff_text_align_power (ibfd
);
307 bfd_xcoff_data_align_power (obfd
) = bfd_xcoff_data_align_power (ibfd
);
308 ox
->modtype
= ix
->modtype
;
309 ox
->cputype
= ix
->cputype
;
310 ox
->maxdata
= ix
->maxdata
;
311 ox
->maxstack
= ix
->maxstack
;
315 /* I don't think XCOFF really has a notion of local labels based on
316 name. This will mean that ld -X doesn't actually strip anything.
317 The AIX native linker does not have a -X option, and it ignores the
321 _bfd_xcoff_is_local_label_name (abfd
, name
)
322 bfd
*abfd ATTRIBUTE_UNUSED
;
323 const char *name ATTRIBUTE_UNUSED
;
329 _bfd_xcoff_swap_sym_in (abfd
, ext1
, in1
)
334 SYMENT
*ext
= (SYMENT
*)ext1
;
335 struct internal_syment
* in
= (struct internal_syment
*)in1
;
337 if (ext
->e
.e_name
[0] != 0)
339 memcpy (in
->_n
._n_name
, ext
->e
.e_name
, SYMNMLEN
);
343 in
->_n
._n_n
._n_zeroes
= 0;
344 in
->_n
._n_n
._n_offset
= H_GET_32 (abfd
, ext
->e
.e
.e_offset
);
347 in
->n_value
= H_GET_32 (abfd
, ext
->e_value
);
348 in
->n_scnum
= H_GET_16 (abfd
, ext
->e_scnum
);
349 in
->n_type
= H_GET_16 (abfd
, ext
->e_type
);
350 in
->n_sclass
= H_GET_8 (abfd
, ext
->e_sclass
);
351 in
->n_numaux
= H_GET_8 (abfd
, ext
->e_numaux
);
355 _bfd_xcoff_swap_sym_out (abfd
, inp
, extp
)
360 struct internal_syment
*in
= (struct internal_syment
*)inp
;
361 SYMENT
*ext
=(SYMENT
*)extp
;
363 if (in
->_n
._n_name
[0] != 0)
365 memcpy (ext
->e
.e_name
, in
->_n
._n_name
, SYMNMLEN
);
369 H_PUT_32 (abfd
, 0, ext
->e
.e
.e_zeroes
);
370 H_PUT_32 (abfd
, in
->_n
._n_n
._n_offset
, ext
->e
.e
.e_offset
);
373 H_PUT_32 (abfd
, in
->n_value
, ext
->e_value
);
374 H_PUT_16 (abfd
, in
->n_scnum
, ext
->e_scnum
);
375 H_PUT_16 (abfd
, in
->n_type
, ext
->e_type
);
376 H_PUT_8 (abfd
, in
->n_sclass
, ext
->e_sclass
);
377 H_PUT_8 (abfd
, in
->n_numaux
, ext
->e_numaux
);
378 return bfd_coff_symesz (abfd
);
382 _bfd_xcoff_swap_aux_in (abfd
, ext1
, type
, class, indx
, numaux
, in1
)
391 AUXENT
* ext
= (AUXENT
*)ext1
;
392 union internal_auxent
*in
= (union internal_auxent
*)in1
;
397 if (ext
->x_file
.x_fname
[0] == 0)
399 in
->x_file
.x_n
.x_zeroes
= 0;
400 in
->x_file
.x_n
.x_offset
=
401 H_GET_32 (abfd
, ext
->x_file
.x_n
.x_offset
);
408 memcpy (in
->x_file
.x_fname
, ext
->x_file
.x_fname
,
409 numaux
* sizeof (AUXENT
));
413 memcpy (in
->x_file
.x_fname
, ext
->x_file
.x_fname
, FILNMLEN
);
418 /* RS/6000 "csect" auxents */
421 if (indx
+ 1 == numaux
)
423 in
->x_csect
.x_scnlen
.l
= H_GET_32 (abfd
, ext
->x_csect
.x_scnlen
);
424 in
->x_csect
.x_parmhash
= H_GET_32 (abfd
, ext
->x_csect
.x_parmhash
);
425 in
->x_csect
.x_snhash
= H_GET_16 (abfd
, ext
->x_csect
.x_snhash
);
426 /* We don't have to hack bitfields in x_smtyp because it's
427 defined by shifts-and-ands, which are equivalent on all
429 in
->x_csect
.x_smtyp
= H_GET_8 (abfd
, ext
->x_csect
.x_smtyp
);
430 in
->x_csect
.x_smclas
= H_GET_8 (abfd
, ext
->x_csect
.x_smclas
);
431 in
->x_csect
.x_stab
= H_GET_32 (abfd
, ext
->x_csect
.x_stab
);
432 in
->x_csect
.x_snstab
= H_GET_16 (abfd
, ext
->x_csect
.x_snstab
);
442 in
->x_scn
.x_scnlen
= H_GET_32 (abfd
, ext
->x_scn
.x_scnlen
);
443 in
->x_scn
.x_nreloc
= H_GET_16 (abfd
, ext
->x_scn
.x_nreloc
);
444 in
->x_scn
.x_nlinno
= H_GET_16 (abfd
, ext
->x_scn
.x_nlinno
);
445 /* PE defines some extra fields; we zero them out for
447 in
->x_scn
.x_checksum
= 0;
448 in
->x_scn
.x_associated
= 0;
449 in
->x_scn
.x_comdat
= 0;
456 in
->x_sym
.x_tagndx
.l
= H_GET_32 (abfd
, ext
->x_sym
.x_tagndx
);
457 in
->x_sym
.x_tvndx
= H_GET_16 (abfd
, ext
->x_sym
.x_tvndx
);
459 if (class == C_BLOCK
|| class == C_FCN
|| ISFCN (type
) || ISTAG (class))
461 in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
=
462 H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
463 in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
=
464 H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
468 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0] =
469 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0]);
470 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1] =
471 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1]);
472 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2] =
473 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2]);
474 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3] =
475 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3]);
480 in
->x_sym
.x_misc
.x_fsize
= H_GET_32 (abfd
, ext
->x_sym
.x_misc
.x_fsize
);
484 in
->x_sym
.x_misc
.x_lnsz
.x_lnno
=
485 H_GET_16 (abfd
, ext
->x_sym
.x_misc
.x_lnsz
.x_lnno
);
486 in
->x_sym
.x_misc
.x_lnsz
.x_size
=
487 H_GET_16 (abfd
, ext
->x_sym
.x_misc
.x_lnsz
.x_size
);
491 /* The semicolon is because MSVC doesn't like labels at
496 unsigned int _bfd_xcoff_swap_aux_out
497 PARAMS ((bfd
*, PTR
, int, int, int, int, PTR
));
500 _bfd_xcoff_swap_aux_out (abfd
, inp
, type
, class, indx
, numaux
, extp
)
505 int indx ATTRIBUTE_UNUSED
;
506 int numaux ATTRIBUTE_UNUSED
;
509 union internal_auxent
*in
= (union internal_auxent
*)inp
;
510 AUXENT
*ext
= (AUXENT
*)extp
;
512 memset ((PTR
)ext
, 0, bfd_coff_auxesz (abfd
));
516 if (in
->x_file
.x_fname
[0] == 0)
518 H_PUT_32 (abfd
, 0, ext
->x_file
.x_n
.x_zeroes
);
519 H_PUT_32 (abfd
, in
->x_file
.x_n
.x_offset
, ext
->x_file
.x_n
.x_offset
);
523 memcpy (ext
->x_file
.x_fname
, in
->x_file
.x_fname
, FILNMLEN
);
527 /* RS/6000 "csect" auxents */
530 if (indx
+ 1 == numaux
)
532 H_PUT_32 (abfd
, in
->x_csect
.x_scnlen
.l
, ext
->x_csect
.x_scnlen
);
533 H_PUT_32 (abfd
, in
->x_csect
.x_parmhash
, ext
->x_csect
.x_parmhash
);
534 H_PUT_16 (abfd
, in
->x_csect
.x_snhash
, ext
->x_csect
.x_snhash
);
535 /* We don't have to hack bitfields in x_smtyp because it's
536 defined by shifts-and-ands, which are equivalent on all
538 H_PUT_8 (abfd
, in
->x_csect
.x_smtyp
, ext
->x_csect
.x_smtyp
);
539 H_PUT_8 (abfd
, in
->x_csect
.x_smclas
, ext
->x_csect
.x_smclas
);
540 H_PUT_32 (abfd
, in
->x_csect
.x_stab
, ext
->x_csect
.x_stab
);
541 H_PUT_16 (abfd
, in
->x_csect
.x_snstab
, ext
->x_csect
.x_snstab
);
551 H_PUT_32 (abfd
, in
->x_scn
.x_scnlen
, ext
->x_scn
.x_scnlen
);
552 H_PUT_16 (abfd
, in
->x_scn
.x_nreloc
, ext
->x_scn
.x_nreloc
);
553 H_PUT_16 (abfd
, in
->x_scn
.x_nlinno
, ext
->x_scn
.x_nlinno
);
559 H_PUT_32 (abfd
, in
->x_sym
.x_tagndx
.l
, ext
->x_sym
.x_tagndx
);
560 H_PUT_16 (abfd
, in
->x_sym
.x_tvndx
, ext
->x_sym
.x_tvndx
);
562 if (class == C_BLOCK
|| class == C_FCN
|| ISFCN (type
) || ISTAG (class))
564 H_PUT_32 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
,
565 ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
566 H_PUT_32 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
567 ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
571 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0],
572 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0]);
573 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1],
574 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1]);
575 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2],
576 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2]);
577 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3],
578 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3]);
582 H_PUT_32 (abfd
, in
->x_sym
.x_misc
.x_fsize
, ext
->x_sym
.x_misc
.x_fsize
);
585 H_PUT_16 (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_lnno
,
586 ext
->x_sym
.x_misc
.x_lnsz
.x_lnno
);
587 H_PUT_16 (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_size
,
588 ext
->x_sym
.x_misc
.x_lnsz
.x_size
);
592 return bfd_coff_auxesz (abfd
);
597 /* The XCOFF reloc table. Actually, XCOFF relocations specify the
598 bitsize and whether they are signed or not, along with a
599 conventional type. This table is for the types, which are used for
600 different algorithms for putting in the reloc. Many of these
601 relocs need special_function entries, which I have not written. */
604 reloc_howto_type xcoff_howto_table
[] =
606 /* Standard 32 bit relocation. */
607 HOWTO (R_POS
, /* type */
609 2, /* size (0 = byte, 1 = short, 2 = long) */
611 FALSE
, /* pc_relative */
613 complain_overflow_bitfield
, /* complain_on_overflow */
614 0, /* special_function */
616 TRUE
, /* partial_inplace */
617 0xffffffff, /* src_mask */
618 0xffffffff, /* dst_mask */
619 FALSE
), /* pcrel_offset */
621 /* 32 bit relocation, but store negative value. */
622 HOWTO (R_NEG
, /* type */
624 -2, /* size (0 = byte, 1 = short, 2 = long) */
626 FALSE
, /* pc_relative */
628 complain_overflow_bitfield
, /* complain_on_overflow */
629 0, /* special_function */
631 TRUE
, /* partial_inplace */
632 0xffffffff, /* src_mask */
633 0xffffffff, /* dst_mask */
634 FALSE
), /* pcrel_offset */
636 /* 32 bit PC relative relocation. */
637 HOWTO (R_REL
, /* type */
639 2, /* size (0 = byte, 1 = short, 2 = long) */
641 TRUE
, /* pc_relative */
643 complain_overflow_signed
, /* complain_on_overflow */
644 0, /* special_function */
646 TRUE
, /* partial_inplace */
647 0xffffffff, /* src_mask */
648 0xffffffff, /* dst_mask */
649 FALSE
), /* pcrel_offset */
651 /* 16 bit TOC relative relocation. */
652 HOWTO (R_TOC
, /* type */
654 1, /* size (0 = byte, 1 = short, 2 = long) */
656 FALSE
, /* pc_relative */
658 complain_overflow_bitfield
, /* complain_on_overflow */
659 0, /* special_function */
661 TRUE
, /* partial_inplace */
662 0xffff, /* src_mask */
663 0xffff, /* dst_mask */
664 FALSE
), /* pcrel_offset */
666 /* I don't really know what this is. */
667 HOWTO (R_RTB
, /* type */
669 2, /* size (0 = byte, 1 = short, 2 = long) */
671 FALSE
, /* pc_relative */
673 complain_overflow_bitfield
, /* complain_on_overflow */
674 0, /* special_function */
676 TRUE
, /* partial_inplace */
677 0xffffffff, /* src_mask */
678 0xffffffff, /* dst_mask */
679 FALSE
), /* pcrel_offset */
681 /* External TOC relative symbol. */
682 HOWTO (R_GL
, /* type */
684 1, /* size (0 = byte, 1 = short, 2 = long) */
686 FALSE
, /* pc_relative */
688 complain_overflow_bitfield
, /* complain_on_overflow */
689 0, /* special_function */
691 TRUE
, /* partial_inplace */
692 0xffff, /* src_mask */
693 0xffff, /* dst_mask */
694 FALSE
), /* pcrel_offset */
696 /* Local TOC relative symbol. */
697 HOWTO (R_TCL
, /* type */
699 1, /* size (0 = byte, 1 = short, 2 = long) */
701 FALSE
, /* pc_relative */
703 complain_overflow_bitfield
, /* complain_on_overflow */
704 0, /* special_function */
706 TRUE
, /* partial_inplace */
707 0xffff, /* src_mask */
708 0xffff, /* dst_mask */
709 FALSE
), /* pcrel_offset */
713 /* Non modifiable absolute branch. */
714 HOWTO (R_BA
, /* type */
716 2, /* size (0 = byte, 1 = short, 2 = long) */
718 FALSE
, /* pc_relative */
720 complain_overflow_bitfield
, /* complain_on_overflow */
721 0, /* special_function */
722 "R_BA_26", /* name */
723 TRUE
, /* partial_inplace */
724 0x03fffffc, /* src_mask */
725 0x03fffffc, /* dst_mask */
726 FALSE
), /* pcrel_offset */
730 /* Non modifiable relative branch. */
731 HOWTO (R_BR
, /* type */
733 2, /* size (0 = byte, 1 = short, 2 = long) */
735 TRUE
, /* pc_relative */
737 complain_overflow_signed
, /* complain_on_overflow */
738 0, /* special_function */
740 TRUE
, /* partial_inplace */
741 0x03fffffc, /* src_mask */
742 0x03fffffc, /* dst_mask */
743 FALSE
), /* pcrel_offset */
748 HOWTO (R_RL
, /* type */
750 1, /* size (0 = byte, 1 = short, 2 = long) */
752 FALSE
, /* pc_relative */
754 complain_overflow_bitfield
, /* complain_on_overflow */
755 0, /* special_function */
757 TRUE
, /* partial_inplace */
758 0xffff, /* src_mask */
759 0xffff, /* dst_mask */
760 FALSE
), /* pcrel_offset */
763 HOWTO (R_RLA
, /* type */
765 1, /* size (0 = byte, 1 = short, 2 = long) */
767 FALSE
, /* pc_relative */
769 complain_overflow_bitfield
, /* complain_on_overflow */
770 0, /* special_function */
772 TRUE
, /* partial_inplace */
773 0xffff, /* src_mask */
774 0xffff, /* dst_mask */
775 FALSE
), /* pcrel_offset */
779 /* Non-relocating reference. */
780 HOWTO (R_REF
, /* type */
782 2, /* size (0 = byte, 1 = short, 2 = long) */
784 FALSE
, /* pc_relative */
786 complain_overflow_dont
, /* complain_on_overflow */
787 0, /* special_function */
789 FALSE
, /* partial_inplace */
792 FALSE
), /* pcrel_offset */
797 /* TOC relative indirect load. */
798 HOWTO (R_TRL
, /* type */
800 1, /* size (0 = byte, 1 = short, 2 = long) */
802 FALSE
, /* pc_relative */
804 complain_overflow_bitfield
, /* complain_on_overflow */
805 0, /* special_function */
807 TRUE
, /* partial_inplace */
808 0xffff, /* src_mask */
809 0xffff, /* dst_mask */
810 FALSE
), /* pcrel_offset */
812 /* TOC relative load address. */
813 HOWTO (R_TRLA
, /* type */
815 1, /* size (0 = byte, 1 = short, 2 = long) */
817 FALSE
, /* pc_relative */
819 complain_overflow_bitfield
, /* complain_on_overflow */
820 0, /* special_function */
822 TRUE
, /* partial_inplace */
823 0xffff, /* src_mask */
824 0xffff, /* dst_mask */
825 FALSE
), /* pcrel_offset */
827 /* Modifiable relative branch. */
828 HOWTO (R_RRTBI
, /* type */
830 2, /* size (0 = byte, 1 = short, 2 = long) */
832 FALSE
, /* pc_relative */
834 complain_overflow_bitfield
, /* complain_on_overflow */
835 0, /* special_function */
836 "R_RRTBI", /* name */
837 TRUE
, /* partial_inplace */
838 0xffffffff, /* src_mask */
839 0xffffffff, /* dst_mask */
840 FALSE
), /* pcrel_offset */
842 /* Modifiable absolute branch. */
843 HOWTO (R_RRTBA
, /* type */
845 2, /* size (0 = byte, 1 = short, 2 = long) */
847 FALSE
, /* pc_relative */
849 complain_overflow_bitfield
, /* complain_on_overflow */
850 0, /* special_function */
851 "R_RRTBA", /* name */
852 TRUE
, /* partial_inplace */
853 0xffffffff, /* src_mask */
854 0xffffffff, /* dst_mask */
855 FALSE
), /* pcrel_offset */
857 /* Modifiable call absolute indirect. */
858 HOWTO (R_CAI
, /* type */
860 1, /* size (0 = byte, 1 = short, 2 = long) */
862 FALSE
, /* pc_relative */
864 complain_overflow_bitfield
, /* complain_on_overflow */
865 0, /* special_function */
867 TRUE
, /* partial_inplace */
868 0xffff, /* src_mask */
869 0xffff, /* dst_mask */
870 FALSE
), /* pcrel_offset */
872 /* Modifiable call relative. */
873 HOWTO (R_CREL
, /* type */
875 1, /* size (0 = byte, 1 = short, 2 = long) */
877 FALSE
, /* pc_relative */
879 complain_overflow_bitfield
, /* complain_on_overflow */
880 0, /* special_function */
882 TRUE
, /* partial_inplace */
883 0xffff, /* src_mask */
884 0xffff, /* dst_mask */
885 FALSE
), /* pcrel_offset */
887 /* Modifiable branch absolute. */
888 HOWTO (R_RBA
, /* type */
890 2, /* size (0 = byte, 1 = short, 2 = long) */
892 FALSE
, /* pc_relative */
894 complain_overflow_bitfield
, /* complain_on_overflow */
895 0, /* special_function */
897 TRUE
, /* partial_inplace */
898 0x03fffffc, /* src_mask */
899 0x03fffffc, /* dst_mask */
900 FALSE
), /* pcrel_offset */
902 /* Modifiable branch absolute. */
903 HOWTO (R_RBAC
, /* type */
905 2, /* size (0 = byte, 1 = short, 2 = long) */
907 FALSE
, /* pc_relative */
909 complain_overflow_bitfield
, /* complain_on_overflow */
910 0, /* special_function */
912 TRUE
, /* partial_inplace */
913 0xffffffff, /* src_mask */
914 0xffffffff, /* dst_mask */
915 FALSE
), /* pcrel_offset */
917 /* Modifiable branch relative. */
918 HOWTO (R_RBR
, /* type */
920 2, /* size (0 = byte, 1 = short, 2 = long) */
922 FALSE
, /* pc_relative */
924 complain_overflow_signed
, /* complain_on_overflow */
925 0, /* special_function */
926 "R_RBR_26", /* name */
927 TRUE
, /* partial_inplace */
928 0x03fffffc, /* src_mask */
929 0x03fffffc, /* dst_mask */
930 FALSE
), /* pcrel_offset */
932 /* Modifiable branch absolute. */
933 HOWTO (R_RBRC
, /* type */
935 1, /* size (0 = byte, 1 = short, 2 = long) */
937 FALSE
, /* pc_relative */
939 complain_overflow_bitfield
, /* complain_on_overflow */
940 0, /* special_function */
942 TRUE
, /* partial_inplace */
943 0xffff, /* src_mask */
944 0xffff, /* dst_mask */
945 FALSE
), /* pcrel_offset */
947 /* 16 bit Non modifiable absolute branch. */
948 HOWTO (R_BA
, /* type */
950 1, /* size (0 = byte, 1 = short, 2 = long) */
952 FALSE
, /* pc_relative */
954 complain_overflow_bitfield
, /* complain_on_overflow */
955 0, /* special_function */
956 "R_BA_16", /* name */
957 TRUE
, /* partial_inplace */
958 0xfffc, /* src_mask */
959 0xfffc, /* dst_mask */
960 FALSE
), /* pcrel_offset */
962 /* Modifiable branch relative. */
963 HOWTO (R_RBR
, /* type */
965 1, /* size (0 = byte, 1 = short, 2 = long) */
967 FALSE
, /* pc_relative */
969 complain_overflow_signed
, /* complain_on_overflow */
970 0, /* special_function */
971 "R_RBR_16", /* name */
972 TRUE
, /* partial_inplace */
973 0xffff, /* src_mask */
974 0xffff, /* dst_mask */
975 FALSE
), /* pcrel_offset */
977 /* Modifiable branch relative. */
978 HOWTO (R_RBA
, /* type */
980 1, /* size (0 = byte, 1 = short, 2 = long) */
982 FALSE
, /* pc_relative */
984 complain_overflow_signed
, /* complain_on_overflow */
985 0, /* special_function */
986 "R_RBA_16", /* name */
987 TRUE
, /* partial_inplace */
988 0xffff, /* src_mask */
989 0xffff, /* dst_mask */
990 FALSE
), /* pcrel_offset */
995 xcoff_rtype2howto (relent
, internal
)
997 struct internal_reloc
*internal
;
999 if (internal
->r_type
> R_RBRC
)
1002 /* Default howto layout works most of the time */
1003 relent
->howto
= &xcoff_howto_table
[internal
->r_type
];
1005 /* Special case some 16 bit reloc */
1006 if (15 == (internal
->r_size
& 0x1f))
1008 if (R_BA
== internal
->r_type
)
1009 relent
->howto
= &xcoff_howto_table
[0x1c];
1010 else if (R_RBR
== internal
->r_type
)
1011 relent
->howto
= &xcoff_howto_table
[0x1d];
1012 else if (R_RBA
== internal
->r_type
)
1013 relent
->howto
= &xcoff_howto_table
[0x1e];
1016 /* The r_size field of an XCOFF reloc encodes the bitsize of the
1017 relocation, as well as indicating whether it is signed or not.
1018 Doublecheck that the relocation information gathered from the
1019 type matches this information. The bitsize is not significant
1020 for R_REF relocs. */
1021 if (relent
->howto
->dst_mask
!= 0
1022 && (relent
->howto
->bitsize
1023 != ((unsigned int) internal
->r_size
& 0x1f) + 1))
1028 _bfd_xcoff_reloc_type_lookup (abfd
, code
)
1029 bfd
*abfd ATTRIBUTE_UNUSED
;
1030 bfd_reloc_code_real_type code
;
1034 case BFD_RELOC_PPC_B26
:
1035 return &xcoff_howto_table
[0xa];
1036 case BFD_RELOC_PPC_BA16
:
1037 return &xcoff_howto_table
[0x1c];
1038 case BFD_RELOC_PPC_BA26
:
1039 return &xcoff_howto_table
[8];
1040 case BFD_RELOC_PPC_TOC16
:
1041 return &xcoff_howto_table
[3];
1043 case BFD_RELOC_CTOR
:
1044 return &xcoff_howto_table
[0];
1050 static reloc_howto_type
*
1051 _bfd_xcoff_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1057 i
< sizeof (xcoff_howto_table
) / sizeof (xcoff_howto_table
[0]);
1059 if (xcoff_howto_table
[i
].name
!= NULL
1060 && strcasecmp (xcoff_howto_table
[i
].name
, r_name
) == 0)
1061 return &xcoff_howto_table
[i
];
1066 /* XCOFF archive support. The original version of this code was by
1067 Damon A. Permezel. It was enhanced to permit cross support, and
1068 writing archive files, by Ian Lance Taylor, Cygnus Support.
1070 XCOFF uses its own archive format. Everything is hooked together
1071 with file offset links, so it is possible to rapidly update an
1072 archive in place. Of course, we don't do that. An XCOFF archive
1073 has a real file header, not just an ARMAG string. The structure of
1074 the file header and of each archive header appear below.
1076 An XCOFF archive also has a member table, which is a list of
1077 elements in the archive (you can get that by looking through the
1078 linked list, but you have to read a lot more of the file). The
1079 member table has a normal archive header with an empty name. It is
1080 normally (and perhaps must be) the second to last entry in the
1081 archive. The member table data is almost printable ASCII. It
1082 starts with a 12 character decimal string which is the number of
1083 entries in the table. For each entry it has a 12 character decimal
1084 string which is the offset in the archive of that member. These
1085 entries are followed by a series of null terminated strings which
1086 are the member names for each entry.
1088 Finally, an XCOFF archive has a global symbol table, which is what
1089 we call the armap. The global symbol table has a normal archive
1090 header with an empty name. It is normally (and perhaps must be)
1091 the last entry in the archive. The contents start with a four byte
1092 binary number which is the number of entries. This is followed by
1093 a that many four byte binary numbers; each is the file offset of an
1094 entry in the archive. These numbers are followed by a series of
1095 null terminated strings, which are symbol names.
1097 AIX 4.3 introduced a new archive format which can handle larger
1098 files and also 32- and 64-bit objects in the same archive. The
1099 things said above remain true except that there is now more than
1100 one global symbol table. The one is used to index 32-bit objects,
1101 the other for 64-bit objects.
1103 The new archives (recognizable by the new ARMAG string) has larger
1104 field lengths so that we cannot really share any code. Also we have
1105 to take care that we are not generating the new form of archives
1106 on AIX 4.2 or earlier systems. */
1108 /* XCOFF archives use this as a magic string. Note that both strings
1109 have the same length. */
1111 /* Set the magic for archive. */
1114 bfd_xcoff_ar_archive_set_magic (abfd
, magic
)
1115 bfd
*abfd ATTRIBUTE_UNUSED
;
1116 char *magic ATTRIBUTE_UNUSED
;
1118 /* Not supported yet. */
1120 /* bfd_xcoff_archive_set_magic (abfd, magic); */
1123 /* Read in the armap of an XCOFF archive. */
1126 _bfd_xcoff_slurp_armap (abfd
)
1132 bfd_byte
*contents
, *cend
;
1137 if (xcoff_ardata (abfd
) == NULL
)
1139 bfd_has_map (abfd
) = FALSE
;
1143 if (! xcoff_big_format_p (abfd
))
1145 /* This is for the old format. */
1146 struct xcoff_ar_hdr hdr
;
1148 off
= strtol (xcoff_ardata (abfd
)->symoff
, (char **) NULL
, 10);
1151 bfd_has_map (abfd
) = FALSE
;
1155 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1158 /* The symbol table starts with a normal archive header. */
1159 if (bfd_bread ((PTR
) &hdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
1163 /* Skip the name (normally empty). */
1164 namlen
= strtol (hdr
.namlen
, (char **) NULL
, 10);
1165 off
= ((namlen
+ 1) & ~ (size_t) 1) + SXCOFFARFMAG
;
1166 if (bfd_seek (abfd
, off
, SEEK_CUR
) != 0)
1169 sz
= strtol (hdr
.size
, (char **) NULL
, 10);
1171 /* Read in the entire symbol table. */
1172 contents
= (bfd_byte
*) bfd_alloc (abfd
, sz
);
1173 if (contents
== NULL
)
1175 if (bfd_bread ((PTR
) contents
, sz
, abfd
) != sz
)
1178 /* The symbol table starts with a four byte count. */
1179 c
= H_GET_32 (abfd
, contents
);
1183 bfd_set_error (bfd_error_bad_value
);
1187 bfd_ardata (abfd
)->symdefs
=
1188 ((carsym
*) bfd_alloc (abfd
, c
* sizeof (carsym
)));
1189 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1192 /* After the count comes a list of four byte file offsets. */
1193 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 4;
1195 ++i
, ++arsym
, p
+= 4)
1196 arsym
->file_offset
= H_GET_32 (abfd
, p
);
1200 /* This is for the new format. */
1201 struct xcoff_ar_hdr_big hdr
;
1203 off
= strtol (xcoff_ardata_big (abfd
)->symoff
, (char **) NULL
, 10);
1206 bfd_has_map (abfd
) = FALSE
;
1210 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1213 /* The symbol table starts with a normal archive header. */
1214 if (bfd_bread ((PTR
) &hdr
, (bfd_size_type
) SIZEOF_AR_HDR_BIG
, abfd
)
1215 != SIZEOF_AR_HDR_BIG
)
1218 /* Skip the name (normally empty). */
1219 namlen
= strtol (hdr
.namlen
, (char **) NULL
, 10);
1220 off
= ((namlen
+ 1) & ~ (size_t) 1) + SXCOFFARFMAG
;
1221 if (bfd_seek (abfd
, off
, SEEK_CUR
) != 0)
1224 /* XXX This actually has to be a call to strtoll (at least on 32-bit
1225 machines) since the field width is 20 and there numbers with more
1226 than 32 bits can be represented. */
1227 sz
= strtol (hdr
.size
, (char **) NULL
, 10);
1229 /* Read in the entire symbol table. */
1230 contents
= (bfd_byte
*) bfd_alloc (abfd
, sz
);
1231 if (contents
== NULL
)
1233 if (bfd_bread ((PTR
) contents
, sz
, abfd
) != sz
)
1236 /* The symbol table starts with an eight byte count. */
1237 c
= H_GET_64 (abfd
, contents
);
1241 bfd_set_error (bfd_error_bad_value
);
1245 bfd_ardata (abfd
)->symdefs
=
1246 ((carsym
*) bfd_alloc (abfd
, c
* sizeof (carsym
)));
1247 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1250 /* After the count comes a list of eight byte file offsets. */
1251 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 8;
1253 ++i
, ++arsym
, p
+= 8)
1254 arsym
->file_offset
= H_GET_64 (abfd
, p
);
1257 /* After the file offsets come null terminated symbol names. */
1258 cend
= contents
+ sz
;
1259 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
;
1261 ++i
, ++arsym
, p
+= strlen ((char *) p
) + 1)
1265 bfd_set_error (bfd_error_bad_value
);
1268 arsym
->name
= (char *) p
;
1271 bfd_ardata (abfd
)->symdef_count
= c
;
1272 bfd_has_map (abfd
) = TRUE
;
1277 /* See if this is an XCOFF archive. */
1280 _bfd_xcoff_archive_p (abfd
)
1283 struct artdata
*tdata_hold
;
1284 char magic
[SXCOFFARMAG
];
1285 bfd_size_type amt
= SXCOFFARMAG
;
1287 if (bfd_bread ((PTR
) magic
, amt
, abfd
) != amt
)
1289 if (bfd_get_error () != bfd_error_system_call
)
1290 bfd_set_error (bfd_error_wrong_format
);
1294 if (strncmp (magic
, XCOFFARMAG
, SXCOFFARMAG
) != 0
1295 && strncmp (magic
, XCOFFARMAGBIG
, SXCOFFARMAG
) != 0)
1297 bfd_set_error (bfd_error_wrong_format
);
1301 tdata_hold
= bfd_ardata (abfd
);
1303 amt
= sizeof (struct artdata
);
1304 bfd_ardata (abfd
) = (struct artdata
*) bfd_zalloc (abfd
, amt
);
1305 if (bfd_ardata (abfd
) == (struct artdata
*) NULL
)
1306 goto error_ret_restore
;
1308 /* Cleared by bfd_zalloc above.
1309 bfd_ardata (abfd)->cache = NULL;
1310 bfd_ardata (abfd)->archive_head = NULL;
1311 bfd_ardata (abfd)->symdefs = NULL;
1312 bfd_ardata (abfd)->extended_names = NULL;
1313 bfd_ardata (abfd)->extended_names_size = 0; */
1315 /* Now handle the two formats. */
1316 if (magic
[1] != 'b')
1318 /* This is the old format. */
1319 struct xcoff_ar_file_hdr hdr
;
1321 /* Copy over the magic string. */
1322 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1324 /* Now read the rest of the file header. */
1325 amt
= SIZEOF_AR_FILE_HDR
- SXCOFFARMAG
;
1326 if (bfd_bread ((PTR
) &hdr
.memoff
, amt
, abfd
) != amt
)
1328 if (bfd_get_error () != bfd_error_system_call
)
1329 bfd_set_error (bfd_error_wrong_format
);
1333 bfd_ardata (abfd
)->first_file_filepos
= strtol (hdr
.firstmemoff
,
1334 (char **) NULL
, 10);
1336 amt
= SIZEOF_AR_FILE_HDR
;
1337 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, amt
);
1338 if (bfd_ardata (abfd
)->tdata
== NULL
)
1341 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR
);
1345 /* This is the new format. */
1346 struct xcoff_ar_file_hdr_big hdr
;
1348 /* Copy over the magic string. */
1349 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1351 /* Now read the rest of the file header. */
1352 amt
= SIZEOF_AR_FILE_HDR_BIG
- SXCOFFARMAG
;
1353 if (bfd_bread ((PTR
) &hdr
.memoff
, amt
, abfd
) != amt
)
1355 if (bfd_get_error () != bfd_error_system_call
)
1356 bfd_set_error (bfd_error_wrong_format
);
1360 bfd_ardata (abfd
)->first_file_filepos
= bfd_scan_vma (hdr
.firstmemoff
,
1364 amt
= SIZEOF_AR_FILE_HDR_BIG
;
1365 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, amt
);
1366 if (bfd_ardata (abfd
)->tdata
== NULL
)
1369 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR_BIG
);
1372 if (! _bfd_xcoff_slurp_armap (abfd
))
1375 bfd_release (abfd
, bfd_ardata (abfd
));
1377 bfd_ardata (abfd
) = tdata_hold
;
1384 /* Read the archive header in an XCOFF archive. */
1387 _bfd_xcoff_read_ar_hdr (abfd
)
1390 bfd_size_type namlen
;
1391 struct areltdata
*ret
;
1392 bfd_size_type amt
= sizeof (struct areltdata
);
1394 ret
= (struct areltdata
*) bfd_alloc (abfd
, amt
);
1398 if (! xcoff_big_format_p (abfd
))
1400 struct xcoff_ar_hdr hdr
;
1401 struct xcoff_ar_hdr
*hdrp
;
1403 if (bfd_bread ((PTR
) &hdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
1410 namlen
= strtol (hdr
.namlen
, (char **) NULL
, 10);
1411 amt
= SIZEOF_AR_HDR
+ namlen
+ 1;
1412 hdrp
= (struct xcoff_ar_hdr
*) bfd_alloc (abfd
, amt
);
1418 memcpy (hdrp
, &hdr
, SIZEOF_AR_HDR
);
1419 if (bfd_bread ((char *) hdrp
+ SIZEOF_AR_HDR
, namlen
, abfd
) != namlen
)
1424 ((char *) hdrp
)[SIZEOF_AR_HDR
+ namlen
] = '\0';
1426 ret
->arch_header
= (char *) hdrp
;
1427 ret
->parsed_size
= strtol (hdr
.size
, (char **) NULL
, 10);
1428 ret
->filename
= (char *) hdrp
+ SIZEOF_AR_HDR
;
1432 struct xcoff_ar_hdr_big hdr
;
1433 struct xcoff_ar_hdr_big
*hdrp
;
1435 if (bfd_bread ((PTR
) &hdr
, (bfd_size_type
) SIZEOF_AR_HDR_BIG
, abfd
)
1436 != SIZEOF_AR_HDR_BIG
)
1442 namlen
= strtol (hdr
.namlen
, (char **) NULL
, 10);
1443 amt
= SIZEOF_AR_HDR_BIG
+ namlen
+ 1;
1444 hdrp
= (struct xcoff_ar_hdr_big
*) bfd_alloc (abfd
, amt
);
1450 memcpy (hdrp
, &hdr
, SIZEOF_AR_HDR_BIG
);
1451 if (bfd_bread ((char *) hdrp
+ SIZEOF_AR_HDR_BIG
, namlen
, abfd
) != namlen
)
1456 ((char *) hdrp
)[SIZEOF_AR_HDR_BIG
+ namlen
] = '\0';
1458 ret
->arch_header
= (char *) hdrp
;
1459 /* XXX This actually has to be a call to strtoll (at least on 32-bit
1460 machines) since the field width is 20 and there numbers with more
1461 than 32 bits can be represented. */
1462 ret
->parsed_size
= strtol (hdr
.size
, (char **) NULL
, 10);
1463 ret
->filename
= (char *) hdrp
+ SIZEOF_AR_HDR_BIG
;
1466 /* Skip over the XCOFFARFMAG at the end of the file name. */
1467 if (bfd_seek (abfd
, (file_ptr
) ((namlen
& 1) + SXCOFFARFMAG
), SEEK_CUR
) != 0)
1473 /* Open the next element in an XCOFF archive. */
1476 _bfd_xcoff_openr_next_archived_file (archive
, last_file
)
1482 if (xcoff_ardata (archive
) == NULL
)
1484 bfd_set_error (bfd_error_invalid_operation
);
1488 if (! xcoff_big_format_p (archive
))
1490 if (last_file
== NULL
)
1491 filestart
= bfd_ardata (archive
)->first_file_filepos
;
1493 filestart
= strtol (arch_xhdr (last_file
)->nextoff
, (char **) NULL
,
1497 || filestart
== strtol (xcoff_ardata (archive
)->memoff
,
1499 || filestart
== strtol (xcoff_ardata (archive
)->symoff
,
1500 (char **) NULL
, 10))
1502 bfd_set_error (bfd_error_no_more_archived_files
);
1508 if (last_file
== NULL
)
1509 filestart
= bfd_ardata (archive
)->first_file_filepos
;
1511 /* XXX These actually have to be a calls to strtoll (at least
1512 on 32-bit machines) since the fields's width is 20 and
1513 there numbers with more than 32 bits can be represented. */
1514 filestart
= strtol (arch_xhdr_big (last_file
)->nextoff
, (char **) NULL
,
1517 /* XXX These actually have to be calls to strtoll (at least on 32-bit
1518 machines) since the fields's width is 20 and there numbers with more
1519 than 32 bits can be represented. */
1521 || filestart
== strtol (xcoff_ardata_big (archive
)->memoff
,
1523 || filestart
== strtol (xcoff_ardata_big (archive
)->symoff
,
1524 (char **) NULL
, 10))
1526 bfd_set_error (bfd_error_no_more_archived_files
);
1531 return _bfd_get_elt_at_filepos (archive
, filestart
);
1534 /* Stat an element in an XCOFF archive. */
1537 _bfd_xcoff_stat_arch_elt (abfd
, s
)
1541 if (abfd
->arelt_data
== NULL
)
1543 bfd_set_error (bfd_error_invalid_operation
);
1547 if (! xcoff_big_format_p (abfd
->my_archive
))
1549 struct xcoff_ar_hdr
*hdrp
= arch_xhdr (abfd
);
1551 s
->st_mtime
= strtol (hdrp
->date
, (char **) NULL
, 10);
1552 s
->st_uid
= strtol (hdrp
->uid
, (char **) NULL
, 10);
1553 s
->st_gid
= strtol (hdrp
->gid
, (char **) NULL
, 10);
1554 s
->st_mode
= strtol (hdrp
->mode
, (char **) NULL
, 8);
1555 s
->st_size
= arch_eltdata (abfd
)->parsed_size
;
1559 struct xcoff_ar_hdr_big
*hdrp
= arch_xhdr_big (abfd
);
1561 s
->st_mtime
= strtol (hdrp
->date
, (char **) NULL
, 10);
1562 s
->st_uid
= strtol (hdrp
->uid
, (char **) NULL
, 10);
1563 s
->st_gid
= strtol (hdrp
->gid
, (char **) NULL
, 10);
1564 s
->st_mode
= strtol (hdrp
->mode
, (char **) NULL
, 8);
1565 s
->st_size
= arch_eltdata (abfd
)->parsed_size
;
1571 /* Normalize a file name for inclusion in an archive. */
1574 normalize_filename (abfd
)
1578 const char *filename
;
1580 file
= bfd_get_filename (abfd
);
1581 filename
= strrchr (file
, '/');
1582 if (filename
!= NULL
)
1589 /* Write out an XCOFF armap. */
1592 xcoff_write_armap_old (abfd
, elength
, map
, orl_count
, stridx
)
1594 unsigned int elength ATTRIBUTE_UNUSED
;
1596 unsigned int orl_count
;
1599 struct xcoff_ar_hdr hdr
;
1601 unsigned char buf
[4];
1606 memset (&hdr
, 0, sizeof hdr
);
1607 sprintf (hdr
.size
, "%ld", (long) (4 + orl_count
* 4 + stridx
));
1608 sprintf (hdr
.nextoff
, "%d", 0);
1609 memcpy (hdr
.prevoff
, xcoff_ardata (abfd
)->memoff
, XCOFFARMAG_ELEMENT_SIZE
);
1610 sprintf (hdr
.date
, "%d", 0);
1611 sprintf (hdr
.uid
, "%d", 0);
1612 sprintf (hdr
.gid
, "%d", 0);
1613 sprintf (hdr
.mode
, "%d", 0);
1614 sprintf (hdr
.namlen
, "%d", 0);
1616 /* We need spaces, not null bytes, in the header. */
1617 for (p
= (char *) &hdr
; p
< (char *) &hdr
+ SIZEOF_AR_HDR
; p
++)
1621 if (bfd_bwrite ((PTR
) &hdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
1623 || (bfd_bwrite (XCOFFARFMAG
, (bfd_size_type
) SXCOFFARFMAG
, abfd
)
1627 H_PUT_32 (abfd
, orl_count
, buf
);
1628 if (bfd_bwrite (buf
, (bfd_size_type
) 4, abfd
) != 4)
1631 sub
= abfd
->archive_head
;
1632 fileoff
= SIZEOF_AR_FILE_HDR
;
1634 while (sub
!= NULL
&& i
< orl_count
)
1638 while (map
[i
].u
.abfd
== sub
)
1640 H_PUT_32 (abfd
, fileoff
, buf
);
1641 if (bfd_bwrite (buf
, (bfd_size_type
) 4, abfd
) != 4)
1645 namlen
= strlen (normalize_filename (sub
));
1646 namlen
= (namlen
+ 1) &~ (size_t) 1;
1647 fileoff
+= (SIZEOF_AR_HDR
1650 + arelt_size (sub
));
1651 fileoff
= (fileoff
+ 1) &~ 1;
1655 for (i
= 0; i
< orl_count
; i
++)
1660 name
= *map
[i
].name
;
1661 namlen
= strlen (name
);
1662 if (bfd_bwrite (name
, (bfd_size_type
) (namlen
+ 1), abfd
) != namlen
+ 1)
1666 if ((stridx
& 1) != 0)
1671 if (bfd_bwrite (&b
, (bfd_size_type
) 1, abfd
) != 1)
1678 static char buff20
[XCOFFARMAGBIG_ELEMENT_SIZE
+ 1];
1679 #define FMT20 "%-20lld"
1680 #define FMT12 "%-12d"
1681 #define FMT12_OCTAL "%-12o"
1683 #define PRINT20(d, v) \
1684 sprintf (buff20, FMT20, (long long)(v)), \
1685 memcpy ((void *) (d), buff20, 20)
1687 #define PRINT12(d, v) \
1688 sprintf (buff20, FMT12, (int)(v)), \
1689 memcpy ((void *) (d), buff20, 12)
1691 #define PRINT12_OCTAL(d, v) \
1692 sprintf (buff20, FMT12_OCTAL, (unsigned int)(v)), \
1693 memcpy ((void *) (d), buff20, 12)
1695 #define PRINT4(d, v) \
1696 sprintf (buff20, FMT4, (int)(v)), \
1697 memcpy ((void *) (d), buff20, 4)
1699 #define READ20(d, v) \
1701 memcpy (buff20, (d), 20), \
1702 (v) = bfd_scan_vma (buff20, (const char **) NULL, 10)
1705 do_pad (abfd
, number
)
1707 unsigned int number
;
1711 /* Limit pad to <= 4096. */
1716 if (bfd_bwrite (&b
, (bfd_size_type
) 1, abfd
) != 1)
1723 do_copy (out_bfd
, in_bfd
)
1727 bfd_size_type remaining
;
1728 bfd_byte buffer
[DEFAULT_BUFFERSIZE
];
1730 if (bfd_seek (in_bfd
, (file_ptr
) 0, SEEK_SET
) != 0)
1733 remaining
= arelt_size (in_bfd
);
1735 while (remaining
>= DEFAULT_BUFFERSIZE
)
1737 if (bfd_bread (buffer
, DEFAULT_BUFFERSIZE
, in_bfd
) != DEFAULT_BUFFERSIZE
1738 || bfd_bwrite (buffer
, DEFAULT_BUFFERSIZE
, out_bfd
) != DEFAULT_BUFFERSIZE
)
1741 remaining
-= DEFAULT_BUFFERSIZE
;
1746 if (bfd_bread (buffer
, remaining
, in_bfd
) != remaining
1747 || bfd_bwrite (buffer
, remaining
, out_bfd
) != remaining
)
1755 do_shared_object_padding (out_bfd
, in_bfd
, offset
, ar_header_size
)
1761 if (bfd_check_format (in_bfd
, bfd_object
)
1762 && bfd_get_flavour (in_bfd
) == bfd_target_xcoff_flavour
1763 && (in_bfd
->flags
& DYNAMIC
) != 0)
1765 bfd_size_type pad
= 0;
1766 int text_align_power
;
1768 text_align_power
= bfd_xcoff_text_align_power (in_bfd
);
1770 pad
= 1 << text_align_power
;
1771 pad
-= (*offset
+ ar_header_size
) & (pad
- 1);
1773 if (! do_pad (out_bfd
, pad
))
1783 xcoff_write_armap_big (abfd
, elength
, map
, orl_count
, stridx
)
1785 unsigned int elength ATTRIBUTE_UNUSED
;
1787 unsigned int orl_count
;
1790 struct xcoff_ar_file_hdr_big
*fhdr
;
1791 bfd_vma i
, sym_32
, sym_64
, str_32
, str_64
;
1792 const bfd_arch_info_type
*arch_info
= NULL
;
1794 size_t string_length
;
1795 file_ptr nextoff
, prevoff
;
1797 /* First, we look through the symbols and work out which are
1798 from 32-bit objects and which from 64-bit ones. */
1799 sym_32
= sym_64
= str_32
= str_64
= 0;
1801 current_bfd
= abfd
->archive_head
;
1802 if (current_bfd
!= NULL
)
1803 arch_info
= bfd_get_arch_info (current_bfd
);
1805 while (current_bfd
!= NULL
&& i
< orl_count
)
1807 while (map
[i
].u
.abfd
== current_bfd
)
1809 string_length
= strlen (*map
[i
].name
) + 1;
1811 if (arch_info
->bits_per_address
== 64)
1814 str_64
+= string_length
;
1819 str_32
+= string_length
;
1823 current_bfd
= current_bfd
->next
;
1824 if (current_bfd
!= NULL
)
1825 arch_info
= bfd_get_arch_info (current_bfd
);
1828 /* A quick sanity check... */
1829 BFD_ASSERT (sym_64
+ sym_32
== orl_count
);
1830 /* Explicit cast to int for compiler. */
1831 BFD_ASSERT ((int)(str_64
+ str_32
) == stridx
);
1833 fhdr
= xcoff_ardata_big (abfd
);
1835 /* xcoff_write_archive_contents_big passes nextoff in symoff. */
1836 READ20 (fhdr
->memoff
, prevoff
);
1837 READ20 (fhdr
->symoff
, nextoff
);
1839 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
1841 /* Write out the symbol table.
1844 standard big archive header
1845 0x0000 ar_size [0x14]
1846 0x0014 ar_nxtmem [0x14]
1847 0x0028 ar_prvmem [0x14]
1848 0x003C ar_date [0x0C]
1849 0x0048 ar_uid [0x0C]
1850 0x0054 ar_gid [0x0C]
1851 0x0060 ar_mod [0x0C]
1852 0x006C ar_namelen[0x04]
1853 0x0070 ar_fmag [SXCOFFARFMAG]
1856 0x0072 num_syms [0x08], binary
1857 0x0078 offsets [0x08 * num_syms], binary
1858 0x0086 + 0x08 * num_syms names [??]
1859 ?? pad to even bytes.
1864 struct xcoff_ar_hdr_big
*hdr
;
1869 bfd_vma symbol_table_size
=
1874 + str_32
+ (str_32
& 1);
1876 symbol_table
= bfd_zmalloc (symbol_table_size
);
1877 if (symbol_table
== NULL
)
1880 hdr
= (struct xcoff_ar_hdr_big
*) symbol_table
;
1882 PRINT20 (hdr
->size
, 8 + 8 * sym_32
+ str_32
+ (str_32
& 1));
1885 PRINT20 (hdr
->nextoff
, nextoff
+ symbol_table_size
);
1887 PRINT20 (hdr
->nextoff
, 0);
1889 PRINT20 (hdr
->prevoff
, prevoff
);
1890 PRINT12 (hdr
->date
, 0);
1891 PRINT12 (hdr
->uid
, 0);
1892 PRINT12 (hdr
->gid
, 0);
1893 PRINT12 (hdr
->mode
, 0);
1894 PRINT4 (hdr
->namlen
, 0) ;
1896 st
= symbol_table
+ SIZEOF_AR_HDR_BIG
;
1897 memcpy (st
, XCOFFARFMAG
, SXCOFFARFMAG
);
1900 bfd_h_put_64 (abfd
, sym_32
, st
);
1903 /* loop over the 32 bit offsets */
1904 current_bfd
= abfd
->archive_head
;
1905 if (current_bfd
!= NULL
)
1906 arch_info
= bfd_get_arch_info (current_bfd
);
1907 fileoff
= SIZEOF_AR_FILE_HDR_BIG
;
1909 while (current_bfd
!= NULL
&& i
< orl_count
)
1911 while (map
[i
].u
.abfd
== current_bfd
)
1913 if (arch_info
->bits_per_address
== 32)
1915 bfd_h_put_64 (abfd
, fileoff
, st
);
1920 string_length
= strlen (normalize_filename (current_bfd
));
1921 string_length
+= string_length
& 1;
1922 fileoff
+= (SIZEOF_AR_HDR_BIG
1925 + arelt_size (current_bfd
));
1926 fileoff
+= fileoff
& 1;
1927 current_bfd
= current_bfd
->next
;
1928 if (current_bfd
!= NULL
)
1929 arch_info
= bfd_get_arch_info (current_bfd
);
1932 /* loop over the 32 bit symbol names */
1933 current_bfd
= abfd
->archive_head
;
1934 if (current_bfd
!= NULL
)
1935 arch_info
= bfd_get_arch_info (current_bfd
);
1937 while (current_bfd
!= NULL
&& i
< orl_count
)
1939 while (map
[i
].u
.abfd
== current_bfd
)
1941 if (arch_info
->bits_per_address
== 32)
1943 string_length
= sprintf (st
, "%s", *map
[i
].name
);
1944 st
+= string_length
+ 1;
1948 current_bfd
= current_bfd
->next
;
1949 if (current_bfd
!= NULL
)
1950 arch_info
= bfd_get_arch_info (current_bfd
);
1953 bfd_bwrite (symbol_table
, symbol_table_size
, abfd
);
1955 free (symbol_table
);
1958 nextoff
= nextoff
+ symbol_table_size
;
1961 PRINT20 (fhdr
->symoff
, 0);
1965 struct xcoff_ar_hdr_big
*hdr
;
1970 bfd_vma symbol_table_size
=
1975 + str_64
+ (str_64
& 1);
1977 symbol_table
= bfd_zmalloc (symbol_table_size
);
1978 if (symbol_table
== NULL
)
1981 hdr
= (struct xcoff_ar_hdr_big
*) symbol_table
;
1983 PRINT20 (hdr
->size
, 8 + 8 * sym_64
+ str_64
+ (str_64
& 1));
1984 PRINT20 (hdr
->nextoff
, 0);
1985 PRINT20 (hdr
->prevoff
, prevoff
);
1986 PRINT12 (hdr
->date
, 0);
1987 PRINT12 (hdr
->uid
, 0);
1988 PRINT12 (hdr
->gid
, 0);
1989 PRINT12 (hdr
->mode
, 0);
1990 PRINT4 (hdr
->namlen
, 0);
1992 st
= symbol_table
+ SIZEOF_AR_HDR_BIG
;
1993 memcpy (st
, XCOFFARFMAG
, SXCOFFARFMAG
);
1996 bfd_h_put_64 (abfd
, sym_64
, st
);
1999 /* loop over the 64 bit offsets */
2000 current_bfd
= abfd
->archive_head
;
2001 if (current_bfd
!= NULL
)
2002 arch_info
= bfd_get_arch_info (current_bfd
);
2003 fileoff
= SIZEOF_AR_FILE_HDR_BIG
;
2005 while (current_bfd
!= NULL
&& i
< orl_count
)
2007 while (map
[i
].u
.abfd
== current_bfd
)
2009 if (arch_info
->bits_per_address
== 64)
2011 bfd_h_put_64 (abfd
, fileoff
, st
);
2016 string_length
= strlen (normalize_filename (current_bfd
));
2017 string_length
+= string_length
& 1;
2018 fileoff
+= (SIZEOF_AR_HDR_BIG
2021 + arelt_size (current_bfd
));
2022 fileoff
+= fileoff
& 1;
2023 current_bfd
= current_bfd
->next
;
2024 if (current_bfd
!= NULL
)
2025 arch_info
= bfd_get_arch_info (current_bfd
);
2028 /* loop over the 64 bit symbol names */
2029 current_bfd
= abfd
->archive_head
;
2030 if (current_bfd
!= NULL
)
2031 arch_info
= bfd_get_arch_info (current_bfd
);
2033 while (current_bfd
!= NULL
&& i
< orl_count
)
2035 while (map
[i
].u
.abfd
== current_bfd
)
2037 if (arch_info
->bits_per_address
== 64)
2039 string_length
= sprintf (st
, "%s", *map
[i
].name
);
2040 st
+= string_length
+ 1;
2044 current_bfd
= current_bfd
->next
;
2045 if (current_bfd
!= NULL
)
2046 arch_info
= bfd_get_arch_info (current_bfd
);
2049 bfd_bwrite (symbol_table
, symbol_table_size
, abfd
);
2051 free (symbol_table
);
2053 PRINT20 (fhdr
->symoff64
, nextoff
);
2056 PRINT20 (fhdr
->symoff64
, 0);
2062 _bfd_xcoff_write_armap (abfd
, elength
, map
, orl_count
, stridx
)
2064 unsigned int elength ATTRIBUTE_UNUSED
;
2066 unsigned int orl_count
;
2069 if (! xcoff_big_format_p (abfd
))
2070 return xcoff_write_armap_old (abfd
, elength
, map
, orl_count
, stridx
);
2072 return xcoff_write_armap_big (abfd
, elength
, map
, orl_count
, stridx
);
2075 /* Write out an XCOFF archive. We always write an entire archive,
2076 rather than fussing with the freelist and so forth. */
2079 xcoff_write_archive_contents_old (abfd
)
2082 struct xcoff_ar_file_hdr fhdr
;
2083 bfd_size_type count
;
2084 bfd_size_type total_namlen
;
2086 bfd_boolean makemap
;
2087 bfd_boolean hasobjects
;
2088 file_ptr prevoff
, nextoff
;
2091 struct xcoff_ar_hdr ahdr
;
2094 char decbuf
[XCOFFARMAG_ELEMENT_SIZE
+ 1];
2096 memset (&fhdr
, 0, sizeof fhdr
);
2097 (void) strncpy (fhdr
.magic
, XCOFFARMAG
, SXCOFFARMAG
);
2098 sprintf (fhdr
.firstmemoff
, "%d", SIZEOF_AR_FILE_HDR
);
2099 sprintf (fhdr
.freeoff
, "%d", 0);
2103 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->next
)
2106 total_namlen
+= strlen (normalize_filename (sub
)) + 1;
2108 offsets
= (file_ptr
*) bfd_alloc (abfd
, count
* sizeof (file_ptr
));
2109 if (offsets
== NULL
)
2112 if (bfd_seek (abfd
, (file_ptr
) SIZEOF_AR_FILE_HDR
, SEEK_SET
) != 0)
2115 makemap
= bfd_has_map (abfd
);
2118 nextoff
= SIZEOF_AR_FILE_HDR
;
2119 for (sub
= abfd
->archive_head
, i
= 0; sub
!= NULL
; sub
= sub
->next
, i
++)
2122 bfd_size_type namlen
;
2123 struct xcoff_ar_hdr
*ahdrp
;
2124 bfd_size_type remaining
;
2126 if (makemap
&& ! hasobjects
)
2128 if (bfd_check_format (sub
, bfd_object
))
2132 name
= normalize_filename (sub
);
2133 namlen
= strlen (name
);
2135 if (sub
->arelt_data
!= NULL
)
2136 ahdrp
= arch_xhdr (sub
);
2144 memset (&ahdr
, 0, sizeof ahdr
);
2146 if (stat (bfd_get_filename (sub
), &s
) != 0)
2148 bfd_set_error (bfd_error_system_call
);
2152 sprintf (ahdrp
->size
, "%ld", (long) s
.st_size
);
2153 sprintf (ahdrp
->date
, "%ld", (long) s
.st_mtime
);
2154 sprintf (ahdrp
->uid
, "%ld", (long) s
.st_uid
);
2155 sprintf (ahdrp
->gid
, "%ld", (long) s
.st_gid
);
2156 sprintf (ahdrp
->mode
, "%o", (unsigned int) s
.st_mode
);
2158 if (sub
->arelt_data
== NULL
)
2160 size
= sizeof (struct areltdata
);
2161 sub
->arelt_data
= bfd_alloc (sub
, size
);
2162 if (sub
->arelt_data
== NULL
)
2166 arch_eltdata (sub
)->parsed_size
= s
.st_size
;
2169 sprintf (ahdrp
->prevoff
, "%ld", (long) prevoff
);
2170 sprintf (ahdrp
->namlen
, "%ld", (long) namlen
);
2172 /* If the length of the name is odd, we write out the null byte
2173 after the name as well. */
2174 namlen
= (namlen
+ 1) &~ (bfd_size_type
) 1;
2176 remaining
= arelt_size (sub
);
2177 size
= (SIZEOF_AR_HDR
2182 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2184 offsets
[i
] = nextoff
;
2187 nextoff
+= size
+ (size
& 1);
2189 sprintf (ahdrp
->nextoff
, "%ld", (long) nextoff
);
2191 /* We need spaces, not null bytes, in the header. */
2192 for (p
= (char *) ahdrp
; p
< (char *) ahdrp
+ SIZEOF_AR_HDR
; p
++)
2196 if ((bfd_bwrite ((PTR
) ahdrp
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
2198 || bfd_bwrite ((PTR
) name
, namlen
, abfd
) != namlen
2199 || bfd_bwrite ((PTR
) XCOFFARFMAG
, (bfd_size_type
) SXCOFFARFMAG
,
2200 abfd
) != SXCOFFARFMAG
)
2203 if (bfd_seek (sub
, (file_ptr
) 0, SEEK_SET
) != 0)
2206 if (! do_copy (abfd
, sub
))
2209 if (! do_pad (abfd
, size
& 1))
2213 sprintf (fhdr
.lastmemoff
, "%ld", (long) prevoff
);
2215 /* Write out the member table. */
2217 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2218 sprintf (fhdr
.memoff
, "%ld", (long) nextoff
);
2220 memset (&ahdr
, 0, sizeof ahdr
);
2221 sprintf (ahdr
.size
, "%ld", (long) (XCOFFARMAG_ELEMENT_SIZE
2222 + count
* XCOFFARMAG_ELEMENT_SIZE
2224 sprintf (ahdr
.prevoff
, "%ld", (long) prevoff
);
2225 sprintf (ahdr
.date
, "%d", 0);
2226 sprintf (ahdr
.uid
, "%d", 0);
2227 sprintf (ahdr
.gid
, "%d", 0);
2228 sprintf (ahdr
.mode
, "%d", 0);
2229 sprintf (ahdr
.namlen
, "%d", 0);
2231 size
= (SIZEOF_AR_HDR
2232 + XCOFFARMAG_ELEMENT_SIZE
2233 + count
* XCOFFARMAG_ELEMENT_SIZE
2238 nextoff
+= size
+ (size
& 1);
2240 if (makemap
&& hasobjects
)
2241 sprintf (ahdr
.nextoff
, "%ld", (long) nextoff
);
2243 sprintf (ahdr
.nextoff
, "%d", 0);
2245 /* We need spaces, not null bytes, in the header. */
2246 for (p
= (char *) &ahdr
; p
< (char *) &ahdr
+ SIZEOF_AR_HDR
; p
++)
2250 if ((bfd_bwrite ((PTR
) &ahdr
, (bfd_size_type
) SIZEOF_AR_HDR
, abfd
)
2252 || (bfd_bwrite ((PTR
) XCOFFARFMAG
, (bfd_size_type
) SXCOFFARFMAG
, abfd
)
2256 sprintf (decbuf
, "%-12ld", (long) count
);
2257 if (bfd_bwrite ((PTR
) decbuf
, (bfd_size_type
) XCOFFARMAG_ELEMENT_SIZE
, abfd
)
2258 != XCOFFARMAG_ELEMENT_SIZE
)
2260 for (i
= 0; i
< (size_t) count
; i
++)
2262 sprintf (decbuf
, "%-12ld", (long) offsets
[i
]);
2263 if (bfd_bwrite ((PTR
) decbuf
, (bfd_size_type
) XCOFFARMAG_ELEMENT_SIZE
,
2264 abfd
) != XCOFFARMAG_ELEMENT_SIZE
)
2267 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->next
)
2270 bfd_size_type namlen
;
2272 name
= normalize_filename (sub
);
2273 namlen
= strlen (name
);
2274 if (bfd_bwrite ((PTR
) name
, namlen
+ 1, abfd
) != namlen
+ 1)
2278 if (! do_pad (abfd
, size
& 1))
2281 /* Write out the armap, if appropriate. */
2282 if (! makemap
|| ! hasobjects
)
2283 sprintf (fhdr
.symoff
, "%d", 0);
2286 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2287 sprintf (fhdr
.symoff
, "%ld", (long) nextoff
);
2288 bfd_ardata (abfd
)->tdata
= (PTR
) &fhdr
;
2289 if (! _bfd_compute_and_write_armap (abfd
, 0))
2293 /* Write out the archive file header. */
2295 /* We need spaces, not null bytes, in the header. */
2296 for (p
= (char *) &fhdr
; p
< (char *) &fhdr
+ SIZEOF_AR_FILE_HDR
; p
++)
2300 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) != 0
2301 || (bfd_bwrite ((PTR
) &fhdr
, (bfd_size_type
) SIZEOF_AR_FILE_HDR
, abfd
)
2302 != SIZEOF_AR_FILE_HDR
))
2309 xcoff_write_archive_contents_big (abfd
)
2312 struct xcoff_ar_file_hdr_big fhdr
;
2313 bfd_size_type count
;
2314 bfd_size_type total_namlen
;
2316 bfd_boolean makemap
;
2317 bfd_boolean hasobjects
;
2318 file_ptr prevoff
, nextoff
;
2321 struct xcoff_ar_hdr_big
*hdr
, ahdr
;
2323 char *member_table
, *mt
;
2324 bfd_vma member_table_size
;
2326 memset (&fhdr
, 0, SIZEOF_AR_FILE_HDR_BIG
);
2327 memcpy (fhdr
.magic
, XCOFFARMAGBIG
, SXCOFFARMAG
);
2329 if (bfd_seek (abfd
, (file_ptr
) SIZEOF_AR_FILE_HDR_BIG
, SEEK_SET
) != 0)
2332 /* Calculate count and total_namlen. */
2333 makemap
= bfd_has_map (abfd
);
2335 for (current_bfd
= abfd
->archive_head
, count
= 0, total_namlen
= 0;
2336 current_bfd
!= NULL
;
2337 current_bfd
= current_bfd
->next
, count
++)
2339 total_namlen
+= strlen (normalize_filename (current_bfd
)) + 1;
2343 && bfd_check_format (current_bfd
, bfd_object
))
2350 offsets
= (file_ptr
*) bfd_malloc (count
* sizeof (file_ptr
));
2351 if (offsets
== NULL
)
2356 nextoff
= SIZEOF_AR_FILE_HDR_BIG
;
2357 for (current_bfd
= abfd
->archive_head
, i
= 0;
2358 current_bfd
!= NULL
;
2359 current_bfd
= current_bfd
->next
, i
++)
2362 bfd_size_type namlen
;
2363 struct xcoff_ar_hdr_big
*ahdrp
;
2364 bfd_size_type remaining
;
2366 name
= normalize_filename (current_bfd
);
2367 namlen
= strlen (name
);
2369 if (current_bfd
->arelt_data
!= NULL
)
2370 ahdrp
= arch_xhdr_big (current_bfd
);
2379 /* XXX This should actually be a call to stat64 (at least on
2381 XXX This call will fail if the original object is not found. */
2382 if (stat (bfd_get_filename (current_bfd
), &s
) != 0)
2384 bfd_set_error (bfd_error_system_call
);
2388 PRINT20 (ahdrp
->size
, s
.st_size
);
2389 PRINT12 (ahdrp
->date
, s
.st_mtime
);
2390 PRINT12 (ahdrp
->uid
, s
.st_uid
);
2391 PRINT12 (ahdrp
->gid
, s
.st_gid
);
2392 PRINT12_OCTAL (ahdrp
->mode
, s
.st_mode
);
2394 if (current_bfd
->arelt_data
== NULL
)
2396 size
= sizeof (struct areltdata
);
2397 current_bfd
->arelt_data
= bfd_alloc (current_bfd
, size
);
2398 if (current_bfd
->arelt_data
== NULL
)
2402 arch_eltdata (current_bfd
)->parsed_size
= s
.st_size
;
2405 PRINT20 (ahdrp
->prevoff
, prevoff
);
2406 PRINT4 (ahdrp
->namlen
, namlen
);
2408 /* If the length of the name is odd, we write out the null byte
2409 after the name as well. */
2410 namlen
= (namlen
+ 1) &~ (bfd_size_type
) 1;
2412 remaining
= arelt_size (current_bfd
);
2413 size
= (SIZEOF_AR_HDR_BIG
2418 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2420 /* Check for xcoff shared objects.
2421 Their text section needs to be aligned wrt the archive file position.
2422 This requires extra padding before the archive header. */
2423 if (! do_shared_object_padding (abfd
, current_bfd
, & nextoff
,
2424 SIZEOF_AR_HDR_BIG
+ namlen
2428 offsets
[i
] = nextoff
;
2431 nextoff
+= size
+ (size
& 1);
2433 PRINT20 (ahdrp
->nextoff
, nextoff
);
2435 if ((bfd_bwrite ((PTR
) ahdrp
, (bfd_size_type
) SIZEOF_AR_HDR_BIG
, abfd
)
2436 != SIZEOF_AR_HDR_BIG
)
2437 || bfd_bwrite ((PTR
) name
, (bfd_size_type
) namlen
, abfd
) != namlen
2438 || (bfd_bwrite ((PTR
) XCOFFARFMAG
, (bfd_size_type
) SXCOFFARFMAG
,
2439 abfd
) != SXCOFFARFMAG
))
2442 if (bfd_seek (current_bfd
, (file_ptr
) 0, SEEK_SET
) != 0)
2445 if (! do_copy (abfd
, current_bfd
))
2448 if (! do_pad (abfd
, size
& 1))
2454 PRINT20 (fhdr
.firstmemoff
, offsets
[0]);
2455 PRINT20 (fhdr
.lastmemoff
, prevoff
);
2458 /* Write out the member table.
2461 standard big archive header
2462 0x0000 ar_size [0x14]
2463 0x0014 ar_nxtmem [0x14]
2464 0x0028 ar_prvmem [0x14]
2465 0x003C ar_date [0x0C]
2466 0x0048 ar_uid [0x0C]
2467 0x0054 ar_gid [0x0C]
2468 0x0060 ar_mod [0x0C]
2469 0x006C ar_namelen[0x04]
2470 0x0070 ar_fmag [0x02]
2474 0x0086 offsets [0x14 * counts]
2475 0x0086 + 0x14 * counts names [??]
2476 ?? pad to even bytes.
2479 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2481 member_table_size
= (SIZEOF_AR_HDR_BIG
2483 + XCOFFARMAGBIG_ELEMENT_SIZE
2484 + count
* XCOFFARMAGBIG_ELEMENT_SIZE
2487 member_table_size
+= member_table_size
& 1;
2488 member_table
= bfd_zmalloc (member_table_size
);
2489 if (member_table
== NULL
)
2492 hdr
= (struct xcoff_ar_hdr_big
*) member_table
;
2494 PRINT20 (hdr
->size
, (XCOFFARMAGBIG_ELEMENT_SIZE
2495 + count
* XCOFFARMAGBIG_ELEMENT_SIZE
2496 + total_namlen
+ (total_namlen
& 1)));
2497 if (makemap
&& hasobjects
)
2498 PRINT20 (hdr
->nextoff
, nextoff
+ member_table_size
);
2500 PRINT20 (hdr
->nextoff
, 0);
2501 PRINT20 (hdr
->prevoff
, prevoff
);
2502 PRINT12 (hdr
->date
, 0);
2503 PRINT12 (hdr
->uid
, 0);
2504 PRINT12 (hdr
->gid
, 0);
2505 PRINT12 (hdr
->mode
, 0);
2506 PRINT4 (hdr
->namlen
, 0);
2508 mt
= member_table
+ SIZEOF_AR_HDR_BIG
;
2509 memcpy (mt
, XCOFFARFMAG
, SXCOFFARFMAG
);
2512 PRINT20 (mt
, count
);
2513 mt
+= XCOFFARMAGBIG_ELEMENT_SIZE
;
2514 for (i
= 0; i
< (size_t) count
; i
++)
2516 PRINT20 (mt
, offsets
[i
]);
2517 mt
+= XCOFFARMAGBIG_ELEMENT_SIZE
;
2526 for (current_bfd
= abfd
->archive_head
; current_bfd
!= NULL
;
2527 current_bfd
= current_bfd
->next
)
2532 name
= normalize_filename (current_bfd
);
2533 namlen
= sprintf (mt
, "%s", name
);
2537 if (bfd_bwrite (member_table
, member_table_size
, abfd
) != member_table_size
)
2540 free (member_table
);
2542 PRINT20 (fhdr
.memoff
, nextoff
);
2545 nextoff
+= member_table_size
;
2547 /* Write out the armap, if appropriate. */
2549 if (! makemap
|| ! hasobjects
)
2550 PRINT20 (fhdr
.symoff
, 0);
2553 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2555 /* Save nextoff in fhdr.symoff so the armap routine can use it. */
2556 PRINT20 (fhdr
.symoff
, nextoff
);
2558 bfd_ardata (abfd
)->tdata
= (PTR
) &fhdr
;
2559 if (! _bfd_compute_and_write_armap (abfd
, 0))
2563 /* Write out the archive file header. */
2565 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) != 0
2566 || (bfd_bwrite ((PTR
) &fhdr
, (bfd_size_type
) SIZEOF_AR_FILE_HDR_BIG
,
2567 abfd
) != SIZEOF_AR_FILE_HDR_BIG
))
2574 _bfd_xcoff_write_archive_contents (abfd
)
2577 if (! xcoff_big_format_p (abfd
))
2578 return xcoff_write_archive_contents_old (abfd
);
2580 return xcoff_write_archive_contents_big (abfd
);
2583 /* We can't use the usual coff_sizeof_headers routine, because AIX
2584 always uses an a.out header. */
2587 _bfd_xcoff_sizeof_headers (bfd
*abfd
,
2588 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
2593 if (xcoff_data (abfd
)->full_aouthdr
)
2596 size
+= SMALL_AOUTSZ
;
2597 size
+= abfd
->section_count
* SCNHSZ
;
2601 /* Routines to swap information in the XCOFF .loader section. If we
2602 ever need to write an XCOFF loader, this stuff will need to be
2603 moved to another file shared by the linker (which XCOFF calls the
2604 ``binder'') and the loader. */
2606 /* Swap in the ldhdr structure. */
2609 xcoff_swap_ldhdr_in (abfd
, s
, dst
)
2612 struct internal_ldhdr
*dst
;
2614 const struct external_ldhdr
*src
= (const struct external_ldhdr
*) s
;
2616 dst
->l_version
= bfd_get_32 (abfd
, src
->l_version
);
2617 dst
->l_nsyms
= bfd_get_32 (abfd
, src
->l_nsyms
);
2618 dst
->l_nreloc
= bfd_get_32 (abfd
, src
->l_nreloc
);
2619 dst
->l_istlen
= bfd_get_32 (abfd
, src
->l_istlen
);
2620 dst
->l_nimpid
= bfd_get_32 (abfd
, src
->l_nimpid
);
2621 dst
->l_impoff
= bfd_get_32 (abfd
, src
->l_impoff
);
2622 dst
->l_stlen
= bfd_get_32 (abfd
, src
->l_stlen
);
2623 dst
->l_stoff
= bfd_get_32 (abfd
, src
->l_stoff
);
2626 /* Swap out the ldhdr structure. */
2629 xcoff_swap_ldhdr_out (abfd
, src
, d
)
2631 const struct internal_ldhdr
*src
;
2634 struct external_ldhdr
*dst
= (struct external_ldhdr
*) d
;
2636 bfd_put_32 (abfd
, (bfd_vma
) src
->l_version
, dst
->l_version
);
2637 bfd_put_32 (abfd
, src
->l_nsyms
, dst
->l_nsyms
);
2638 bfd_put_32 (abfd
, src
->l_nreloc
, dst
->l_nreloc
);
2639 bfd_put_32 (abfd
, src
->l_istlen
, dst
->l_istlen
);
2640 bfd_put_32 (abfd
, src
->l_nimpid
, dst
->l_nimpid
);
2641 bfd_put_32 (abfd
, src
->l_impoff
, dst
->l_impoff
);
2642 bfd_put_32 (abfd
, src
->l_stlen
, dst
->l_stlen
);
2643 bfd_put_32 (abfd
, src
->l_stoff
, dst
->l_stoff
);
2646 /* Swap in the ldsym structure. */
2649 xcoff_swap_ldsym_in (abfd
, s
, dst
)
2652 struct internal_ldsym
*dst
;
2654 const struct external_ldsym
*src
= (const struct external_ldsym
*) s
;
2656 if (bfd_get_32 (abfd
, src
->_l
._l_l
._l_zeroes
) != 0) {
2657 memcpy (dst
->_l
._l_name
, src
->_l
._l_name
, SYMNMLEN
);
2659 dst
->_l
._l_l
._l_zeroes
= 0;
2660 dst
->_l
._l_l
._l_offset
= bfd_get_32 (abfd
, src
->_l
._l_l
._l_offset
);
2662 dst
->l_value
= bfd_get_32 (abfd
, src
->l_value
);
2663 dst
->l_scnum
= bfd_get_16 (abfd
, src
->l_scnum
);
2664 dst
->l_smtype
= bfd_get_8 (abfd
, src
->l_smtype
);
2665 dst
->l_smclas
= bfd_get_8 (abfd
, src
->l_smclas
);
2666 dst
->l_ifile
= bfd_get_32 (abfd
, src
->l_ifile
);
2667 dst
->l_parm
= bfd_get_32 (abfd
, src
->l_parm
);
2670 /* Swap out the ldsym structure. */
2673 xcoff_swap_ldsym_out (abfd
, src
, d
)
2675 const struct internal_ldsym
*src
;
2678 struct external_ldsym
*dst
= (struct external_ldsym
*) d
;
2680 if (src
->_l
._l_l
._l_zeroes
!= 0)
2681 memcpy (dst
->_l
._l_name
, src
->_l
._l_name
, SYMNMLEN
);
2684 bfd_put_32 (abfd
, (bfd_vma
) 0, dst
->_l
._l_l
._l_zeroes
);
2685 bfd_put_32 (abfd
, (bfd_vma
) src
->_l
._l_l
._l_offset
,
2686 dst
->_l
._l_l
._l_offset
);
2688 bfd_put_32 (abfd
, src
->l_value
, dst
->l_value
);
2689 bfd_put_16 (abfd
, (bfd_vma
) src
->l_scnum
, dst
->l_scnum
);
2690 bfd_put_8 (abfd
, src
->l_smtype
, dst
->l_smtype
);
2691 bfd_put_8 (abfd
, src
->l_smclas
, dst
->l_smclas
);
2692 bfd_put_32 (abfd
, src
->l_ifile
, dst
->l_ifile
);
2693 bfd_put_32 (abfd
, src
->l_parm
, dst
->l_parm
);
2697 xcoff_swap_reloc_in (abfd
, s
, d
)
2702 struct external_reloc
*src
= (struct external_reloc
*) s
;
2703 struct internal_reloc
*dst
= (struct internal_reloc
*) d
;
2705 memset (dst
, 0, sizeof (struct internal_reloc
));
2707 dst
->r_vaddr
= bfd_get_32 (abfd
, src
->r_vaddr
);
2708 dst
->r_symndx
= bfd_get_32 (abfd
, src
->r_symndx
);
2709 dst
->r_size
= bfd_get_8 (abfd
, src
->r_size
);
2710 dst
->r_type
= bfd_get_8 (abfd
, src
->r_type
);
2714 xcoff_swap_reloc_out (abfd
, s
, d
)
2719 struct internal_reloc
*src
= (struct internal_reloc
*) s
;
2720 struct external_reloc
*dst
= (struct external_reloc
*) d
;
2722 bfd_put_32 (abfd
, src
->r_vaddr
, dst
->r_vaddr
);
2723 bfd_put_32 (abfd
, src
->r_symndx
, dst
->r_symndx
);
2724 bfd_put_8 (abfd
, src
->r_type
, dst
->r_type
);
2725 bfd_put_8 (abfd
, src
->r_size
, dst
->r_size
);
2727 return bfd_coff_relsz (abfd
);
2730 /* Swap in the ldrel structure. */
2733 xcoff_swap_ldrel_in (abfd
, s
, dst
)
2736 struct internal_ldrel
*dst
;
2738 const struct external_ldrel
*src
= (const struct external_ldrel
*) s
;
2740 dst
->l_vaddr
= bfd_get_32 (abfd
, src
->l_vaddr
);
2741 dst
->l_symndx
= bfd_get_32 (abfd
, src
->l_symndx
);
2742 dst
->l_rtype
= bfd_get_16 (abfd
, src
->l_rtype
);
2743 dst
->l_rsecnm
= bfd_get_16 (abfd
, src
->l_rsecnm
);
2746 /* Swap out the ldrel structure. */
2749 xcoff_swap_ldrel_out (abfd
, src
, d
)
2751 const struct internal_ldrel
*src
;
2754 struct external_ldrel
*dst
= (struct external_ldrel
*) d
;
2756 bfd_put_32 (abfd
, src
->l_vaddr
, dst
->l_vaddr
);
2757 bfd_put_32 (abfd
, src
->l_symndx
, dst
->l_symndx
);
2758 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rtype
, dst
->l_rtype
);
2759 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rsecnm
, dst
->l_rsecnm
);
2764 xcoff_reloc_type_noop (input_bfd
, input_section
, output_bfd
, rel
, sym
, howto
,
2765 val
, addend
, relocation
, contents
)
2766 bfd
*input_bfd ATTRIBUTE_UNUSED
;
2767 asection
*input_section ATTRIBUTE_UNUSED
;
2768 bfd
*output_bfd ATTRIBUTE_UNUSED
;
2769 struct internal_reloc
*rel ATTRIBUTE_UNUSED
;
2770 struct internal_syment
*sym ATTRIBUTE_UNUSED
;
2771 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
;
2772 bfd_vma val ATTRIBUTE_UNUSED
;
2773 bfd_vma addend ATTRIBUTE_UNUSED
;
2774 bfd_vma
*relocation ATTRIBUTE_UNUSED
;
2775 bfd_byte
*contents ATTRIBUTE_UNUSED
;
2781 xcoff_reloc_type_fail (input_bfd
, input_section
, output_bfd
, rel
, sym
, howto
,
2782 val
, addend
, relocation
, contents
)
2784 asection
*input_section ATTRIBUTE_UNUSED
;
2785 bfd
*output_bfd ATTRIBUTE_UNUSED
;
2786 struct internal_reloc
*rel
;
2787 struct internal_syment
*sym ATTRIBUTE_UNUSED
;
2788 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
;
2789 bfd_vma val ATTRIBUTE_UNUSED
;
2790 bfd_vma addend ATTRIBUTE_UNUSED
;
2791 bfd_vma
*relocation ATTRIBUTE_UNUSED
;
2792 bfd_byte
*contents ATTRIBUTE_UNUSED
;
2794 (*_bfd_error_handler
)
2795 (_("%s: unsupported relocation type 0x%02x"),
2796 bfd_get_filename (input_bfd
), (unsigned int) rel
->r_type
);
2797 bfd_set_error (bfd_error_bad_value
);
2802 xcoff_reloc_type_pos (input_bfd
, input_section
, output_bfd
, rel
, sym
, howto
,
2803 val
, addend
, relocation
, contents
)
2804 bfd
*input_bfd ATTRIBUTE_UNUSED
;
2805 asection
*input_section ATTRIBUTE_UNUSED
;
2806 bfd
*output_bfd ATTRIBUTE_UNUSED
;
2807 struct internal_reloc
*rel ATTRIBUTE_UNUSED
;
2808 struct internal_syment
*sym ATTRIBUTE_UNUSED
;
2809 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
;
2812 bfd_vma
*relocation
;
2813 bfd_byte
*contents ATTRIBUTE_UNUSED
;
2815 *relocation
= val
+ addend
;
2820 xcoff_reloc_type_neg (input_bfd
, input_section
, output_bfd
, rel
, sym
, howto
,
2821 val
, addend
, relocation
, contents
)
2822 bfd
*input_bfd ATTRIBUTE_UNUSED
;
2823 asection
*input_section ATTRIBUTE_UNUSED
;
2824 bfd
*output_bfd ATTRIBUTE_UNUSED
;
2825 struct internal_reloc
*rel ATTRIBUTE_UNUSED
;
2826 struct internal_syment
*sym ATTRIBUTE_UNUSED
;
2827 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
;
2830 bfd_vma
*relocation
;
2831 bfd_byte
*contents ATTRIBUTE_UNUSED
;
2833 *relocation
= addend
- val
;
2838 xcoff_reloc_type_rel (input_bfd
, input_section
, output_bfd
, rel
, sym
, howto
,
2839 val
, addend
, relocation
, contents
)
2840 bfd
*input_bfd ATTRIBUTE_UNUSED
;
2841 asection
*input_section
;
2842 bfd
*output_bfd ATTRIBUTE_UNUSED
;
2843 struct internal_reloc
*rel ATTRIBUTE_UNUSED
;
2844 struct internal_syment
*sym ATTRIBUTE_UNUSED
;
2845 struct reloc_howto_struct
*howto
;
2848 bfd_vma
*relocation
;
2849 bfd_byte
*contents ATTRIBUTE_UNUSED
;
2851 howto
->pc_relative
= TRUE
;
2853 /* A PC relative reloc includes the section address. */
2854 addend
+= input_section
->vma
;
2856 *relocation
= val
+ addend
;
2857 *relocation
-= (input_section
->output_section
->vma
2858 + input_section
->output_offset
);
2863 xcoff_reloc_type_toc (input_bfd
, input_section
, output_bfd
, rel
, sym
, howto
,
2864 val
, addend
, relocation
, contents
)
2866 asection
*input_section ATTRIBUTE_UNUSED
;
2868 struct internal_reloc
*rel
;
2869 struct internal_syment
*sym
;
2870 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
;
2872 bfd_vma addend ATTRIBUTE_UNUSED
;
2873 bfd_vma
*relocation
;
2874 bfd_byte
*contents ATTRIBUTE_UNUSED
;
2876 struct xcoff_link_hash_entry
*h
;
2878 if (0 > rel
->r_symndx
)
2881 h
= obj_xcoff_sym_hashes (input_bfd
)[rel
->r_symndx
];
2883 if (h
!= NULL
&& h
->smclas
!= XMC_TD
)
2885 if (h
->toc_section
== NULL
)
2887 (*_bfd_error_handler
)
2888 (_("%s: TOC reloc at 0x%x to symbol `%s' with no TOC entry"),
2889 bfd_get_filename (input_bfd
), rel
->r_vaddr
,
2890 h
->root
.root
.string
);
2891 bfd_set_error (bfd_error_bad_value
);
2895 BFD_ASSERT ((h
->flags
& XCOFF_SET_TOC
) == 0);
2896 val
= (h
->toc_section
->output_section
->vma
2897 + h
->toc_section
->output_offset
);
2900 *relocation
= ((val
- xcoff_data (output_bfd
)->toc
)
2901 - (sym
->n_value
- xcoff_data (input_bfd
)->toc
));
2906 xcoff_reloc_type_ba (input_bfd
, input_section
, output_bfd
, rel
, sym
, howto
,
2907 val
, addend
, relocation
, contents
)
2908 bfd
*input_bfd ATTRIBUTE_UNUSED
;
2909 asection
*input_section ATTRIBUTE_UNUSED
;
2910 bfd
*output_bfd ATTRIBUTE_UNUSED
;
2911 struct internal_reloc
*rel ATTRIBUTE_UNUSED
;
2912 struct internal_syment
*sym ATTRIBUTE_UNUSED
;
2913 struct reloc_howto_struct
*howto
;
2916 bfd_vma
*relocation
;
2917 bfd_byte
*contents ATTRIBUTE_UNUSED
;
2919 howto
->src_mask
&= ~3;
2920 howto
->dst_mask
= howto
->src_mask
;
2922 *relocation
= val
+ addend
;
2928 xcoff_reloc_type_br (input_bfd
, input_section
, output_bfd
, rel
, sym
, howto
,
2929 val
, addend
, relocation
, contents
)
2931 asection
*input_section
;
2932 bfd
*output_bfd ATTRIBUTE_UNUSED
;
2933 struct internal_reloc
*rel
;
2934 struct internal_syment
*sym ATTRIBUTE_UNUSED
;
2935 struct reloc_howto_struct
*howto
;
2938 bfd_vma
*relocation
;
2941 struct xcoff_link_hash_entry
*h
;
2943 if (0 > rel
->r_symndx
)
2946 h
= obj_xcoff_sym_hashes (input_bfd
)[rel
->r_symndx
];
2948 /* If we see an R_BR or R_RBR reloc which is jumping to global
2949 linkage code, and it is followed by an appropriate cror nop
2950 instruction, we replace the cror with lwz r2,20(r1). This
2951 restores the TOC after the glink code. Contrariwise, if the
2952 call is followed by a lwz r2,20(r1), but the call is not
2953 going to global linkage code, we can replace the load with a
2956 && bfd_link_hash_defined
== h
->root
.type
2957 && rel
->r_vaddr
- input_section
->vma
+ 8 <= input_section
->size
)
2962 pnext
= contents
+ (rel
->r_vaddr
- input_section
->vma
) + 4;
2963 next
= bfd_get_32 (input_bfd
, pnext
);
2965 /* The _ptrgl function is magic. It is used by the AIX
2966 compiler to call a function through a pointer. */
2967 if (h
->smclas
== XMC_GL
|| strcmp (h
->root
.root
.string
, "._ptrgl") == 0)
2969 if (next
== 0x4def7b82 /* cror 15,15,15 */
2970 || next
== 0x4ffffb82 /* cror 31,31,31 */
2971 || next
== 0x60000000) /* ori r0,r0,0 */
2972 bfd_put_32 (input_bfd
, 0x80410014, pnext
); /* lwz r1,20(r1) */
2977 if (next
== 0x80410014) /* lwz r1,20(r1) */
2978 bfd_put_32 (input_bfd
, 0x60000000, pnext
); /* ori r0,r0,0 */
2981 else if (NULL
!= h
&& bfd_link_hash_undefined
== h
->root
.type
)
2983 /* Normally, this relocation is against a defined symbol. In the
2984 case where this is a partial link and the output section offset
2985 is greater than 2^25, the linker will return an invalid error
2986 message that the relocation has been truncated. Yes it has been
2987 truncated but no it not important. For this case, disable the
2988 overflow checking. */
2990 howto
->complain_on_overflow
= complain_overflow_dont
;
2993 howto
->pc_relative
= TRUE
;
2994 howto
->src_mask
&= ~3;
2995 howto
->dst_mask
= howto
->src_mask
;
2997 /* A PC relative reloc includes the section address. */
2998 addend
+= input_section
->vma
;
3000 *relocation
= val
+ addend
;
3001 *relocation
-= (input_section
->output_section
->vma
3002 + input_section
->output_offset
);
3007 xcoff_reloc_type_crel (input_bfd
, input_section
, output_bfd
, rel
, sym
, howto
,
3008 val
, addend
, relocation
, contents
)
3009 bfd
*input_bfd ATTRIBUTE_UNUSED
;
3010 asection
*input_section
;
3011 bfd
*output_bfd ATTRIBUTE_UNUSED
;
3012 struct internal_reloc
*rel ATTRIBUTE_UNUSED
;
3013 struct internal_syment
*sym ATTRIBUTE_UNUSED
;
3014 struct reloc_howto_struct
*howto
;
3015 bfd_vma val ATTRIBUTE_UNUSED
;
3017 bfd_vma
*relocation
;
3018 bfd_byte
*contents ATTRIBUTE_UNUSED
;
3020 howto
->pc_relative
= TRUE
;
3021 howto
->src_mask
&= ~3;
3022 howto
->dst_mask
= howto
->src_mask
;
3024 /* A PC relative reloc includes the section address. */
3025 addend
+= input_section
->vma
;
3027 *relocation
= val
+ addend
;
3028 *relocation
-= (input_section
->output_section
->vma
3029 + input_section
->output_offset
);
3034 xcoff_complain_overflow_dont_func (input_bfd
, val
, relocation
, howto
)
3035 bfd
*input_bfd ATTRIBUTE_UNUSED
;
3036 bfd_vma val ATTRIBUTE_UNUSED
;
3037 bfd_vma relocation ATTRIBUTE_UNUSED
;
3038 struct reloc_howto_struct
*howto ATTRIBUTE_UNUSED
;
3044 xcoff_complain_overflow_bitfield_func (input_bfd
, val
, relocation
, howto
)
3048 struct reloc_howto_struct
*howto
;
3050 bfd_vma addrmask
, fieldmask
, signmask
, ss
;
3053 /* Get the values to be added together. For signed and unsigned
3054 relocations, we assume that all values should be truncated to
3055 the size of an address. For bitfields, all the bits matter.
3056 See also bfd_check_overflow. */
3057 fieldmask
= N_ONES (howto
->bitsize
);
3058 addrmask
= N_ONES (bfd_arch_bits_per_address (input_bfd
)) | fieldmask
;
3060 b
= val
& howto
->src_mask
;
3062 /* Much like unsigned, except no trimming with addrmask. In
3063 addition, the sum overflows if there is a carry out of
3064 the bfd_vma, i.e., the sum is less than either input
3066 a
>>= howto
->rightshift
;
3067 b
>>= howto
->bitpos
;
3069 /* Bitfields are sometimes used for signed numbers; for
3070 example, a 13-bit field sometimes represents values in
3071 0..8191 and sometimes represents values in -4096..4095.
3072 If the field is signed and a is -4095 (0x1001) and b is
3073 -1 (0x1fff), the sum is -4096 (0x1000), but (0x1001 +
3074 0x1fff is 0x3000). It's not clear how to handle this
3075 everywhere, since there is not way to know how many bits
3076 are significant in the relocation, but the original code
3077 assumed that it was fully sign extended, and we will keep
3079 signmask
= (fieldmask
>> 1) + 1;
3081 if ((a
& ~ fieldmask
) != 0)
3083 /* Some bits out of the field are set. This might not
3084 be a problem: if this is a signed bitfield, it is OK
3085 iff all the high bits are set, including the sign
3086 bit. We'll try setting all but the most significant
3087 bit in the original relocation value: if this is all
3088 ones, we are OK, assuming a signed bitfield. */
3089 ss
= (signmask
<< howto
->rightshift
) - 1;
3090 if ((ss
| relocation
) != ~ (bfd_vma
) 0)
3095 /* We just assume (b & ~ fieldmask) == 0. */
3097 /* We explicitly permit wrap around if this relocation
3098 covers the high bit of an address. The Linux kernel
3099 relies on it, and it is the only way to write assembler
3100 code which can run when loaded at a location 0x80000000
3101 away from the location at which it is linked. */
3102 if (howto
->bitsize
+ howto
->rightshift
3103 == bfd_arch_bits_per_address (input_bfd
))
3107 if (sum
< a
|| (sum
& ~ fieldmask
) != 0)
3109 /* There was a carry out, or the field overflow. Test
3110 for signed operands again. Here is the overflow test
3111 is as for complain_overflow_signed. */
3112 if (((~ (a
^ b
)) & (a
^ sum
)) & signmask
)
3120 xcoff_complain_overflow_signed_func (input_bfd
, val
, relocation
, howto
)
3124 struct reloc_howto_struct
*howto
;
3126 bfd_vma addrmask
, fieldmask
, signmask
, ss
;
3129 /* Get the values to be added together. For signed and unsigned
3130 relocations, we assume that all values should be truncated to
3131 the size of an address. For bitfields, all the bits matter.
3132 See also bfd_check_overflow. */
3133 fieldmask
= N_ONES (howto
->bitsize
);
3134 addrmask
= N_ONES (bfd_arch_bits_per_address (input_bfd
)) | fieldmask
;
3136 b
= val
& howto
->src_mask
;
3138 a
= (a
& addrmask
) >> howto
->rightshift
;
3140 /* If any sign bits are set, all sign bits must be set.
3141 That is, A must be a valid negative address after
3143 signmask
= ~ (fieldmask
>> 1);
3145 if (ss
!= 0 && ss
!= ((addrmask
>> howto
->rightshift
) & signmask
))
3148 /* We only need this next bit of code if the sign bit of B
3149 is below the sign bit of A. This would only happen if
3150 SRC_MASK had fewer bits than BITSIZE. Note that if
3151 SRC_MASK has more bits than BITSIZE, we can get into
3152 trouble; we would need to verify that B is in range, as
3153 we do for A above. */
3154 signmask
= ((~ howto
->src_mask
) >> 1) & howto
->src_mask
;
3155 if ((b
& signmask
) != 0)
3157 /* Set all the bits above the sign bit. */
3158 b
-= signmask
<<= 1;
3161 b
= (b
& addrmask
) >> howto
->bitpos
;
3163 /* Now we can do the addition. */
3166 /* See if the result has the correct sign. Bits above the
3167 sign bit are junk now; ignore them. If the sum is
3168 positive, make sure we did not have all negative inputs;
3169 if the sum is negative, make sure we did not have all
3170 positive inputs. The test below looks only at the sign
3171 bits, and it really just
3172 SIGN (A) == SIGN (B) && SIGN (A) != SIGN (SUM)
3174 signmask
= (fieldmask
>> 1) + 1;
3175 if (((~ (a
^ b
)) & (a
^ sum
)) & signmask
)
3182 xcoff_complain_overflow_unsigned_func (input_bfd
, val
, relocation
, howto
)
3186 struct reloc_howto_struct
*howto
;
3188 bfd_vma addrmask
, fieldmask
;
3191 /* Get the values to be added together. For signed and unsigned
3192 relocations, we assume that all values should be truncated to
3193 the size of an address. For bitfields, all the bits matter.
3194 See also bfd_check_overflow. */
3195 fieldmask
= N_ONES (howto
->bitsize
);
3196 addrmask
= N_ONES (bfd_arch_bits_per_address (input_bfd
)) | fieldmask
;
3198 b
= val
& howto
->src_mask
;
3200 /* Checking for an unsigned overflow is relatively easy:
3201 trim the addresses and add, and trim the result as well.
3202 Overflow is normally indicated when the result does not
3203 fit in the field. However, we also need to consider the
3204 case when, e.g., fieldmask is 0x7fffffff or smaller, an
3205 input is 0x80000000, and bfd_vma is only 32 bits; then we
3206 will get sum == 0, but there is an overflow, since the
3207 inputs did not fit in the field. Instead of doing a
3208 separate test, we can check for this by or-ing in the
3209 operands when testing for the sum overflowing its final
3211 a
= (a
& addrmask
) >> howto
->rightshift
;
3212 b
= (b
& addrmask
) >> howto
->bitpos
;
3213 sum
= (a
+ b
) & addrmask
;
3214 if ((a
| b
| sum
) & ~ fieldmask
)
3220 /* This is the relocation function for the RS/6000/POWER/PowerPC.
3221 This is currently the only processor which uses XCOFF; I hope that
3224 I took the relocation type definitions from two documents:
3225 the PowerPC AIX Version 4 Application Binary Interface, First
3226 Edition (April 1992), and the PowerOpen ABI, Big-Endian
3227 32-Bit Hardware Implementation (June 30, 1994). Differences
3228 between the documents are noted below.
3230 Unsupported r_type's
3236 These relocs are defined by the PowerPC ABI to be
3237 relative branches which use half of the difference
3238 between the symbol and the program counter. I can't
3239 quite figure out when this is useful. These relocs are
3240 not defined by the PowerOpen ABI.
3245 Simple positive relocation.
3248 Simple negative relocation.
3251 Simple PC relative relocation.
3254 TOC relative relocation. The value in the instruction in
3255 the input file is the offset from the input file TOC to
3256 the desired location. We want the offset from the final
3257 TOC to the desired location. We have:
3262 so we must change insn by on - in.
3265 GL linkage relocation. The value of this relocation
3266 is the address of the entry in the TOC section.
3269 Local object TOC address. I can't figure out the
3270 difference between this and case R_GL.
3273 TOC relative relocation. A TOC relative load instruction
3274 which may be changed to a load address instruction.
3275 FIXME: We don't currently implement this optimization.
3278 TOC relative relocation. This is a TOC relative load
3279 address instruction which may be changed to a load
3280 instruction. FIXME: I don't know if this is the correct
3284 Absolute branch. We don't want to mess with the lower
3285 two bits of the instruction.
3288 The PowerPC ABI defines this as an absolute call which
3289 may be modified to become a relative call. The PowerOpen
3290 ABI does not define this relocation type.
3293 Absolute branch which may be modified to become a
3297 The PowerPC ABI defines this as an absolute branch to a
3298 fixed address which may be modified to an absolute branch
3299 to a symbol. The PowerOpen ABI does not define this
3303 The PowerPC ABI defines this as an absolute branch to a
3304 fixed address which may be modified to a relative branch.
3305 The PowerOpen ABI does not define this relocation type.
3308 Relative branch. We don't want to mess with the lower
3309 two bits of the instruction.
3312 The PowerPC ABI defines this as a relative call which may
3313 be modified to become an absolute call. The PowerOpen
3314 ABI does not define this relocation type.
3317 A relative branch which may be modified to become an
3318 absolute branch. FIXME: We don't implement this,
3319 although we should for symbols of storage mapping class
3323 The PowerPC AIX ABI describes this as a load which may be
3324 changed to a load address. The PowerOpen ABI says this
3325 is the same as case R_POS.
3328 The PowerPC AIX ABI describes this as a load address
3329 which may be changed to a load. The PowerOpen ABI says
3330 this is the same as R_POS.
3334 xcoff_ppc_relocate_section (output_bfd
, info
, input_bfd
,
3335 input_section
, contents
, relocs
, syms
,
3338 struct bfd_link_info
*info
;
3340 asection
*input_section
;
3342 struct internal_reloc
*relocs
;
3343 struct internal_syment
*syms
;
3344 asection
**sections
;
3346 struct internal_reloc
*rel
;
3347 struct internal_reloc
*relend
;
3350 relend
= rel
+ input_section
->reloc_count
;
3351 for (; rel
< relend
; rel
++)
3354 struct xcoff_link_hash_entry
*h
;
3355 struct internal_syment
*sym
;
3358 struct reloc_howto_struct howto
;
3360 bfd_vma value_to_relocate
;
3364 /* Relocation type R_REF is a special relocation type which is
3365 merely used to prevent garbage collection from occurring for
3366 the csect including the symbol which it references. */
3367 if (rel
->r_type
== R_REF
)
3371 howto
.type
= rel
->r_type
;
3372 howto
.rightshift
= 0;
3373 howto
.bitsize
= (rel
->r_size
& 0x1f) + 1;
3374 howto
.size
= howto
.bitsize
> 16 ? 2 : 1;
3375 howto
.pc_relative
= FALSE
;
3377 howto
.complain_on_overflow
= (rel
->r_size
& 0x80
3378 ? complain_overflow_signed
3379 : complain_overflow_bitfield
);
3380 howto
.special_function
= NULL
;
3381 howto
.name
= "internal";
3382 howto
.partial_inplace
= TRUE
;
3383 howto
.src_mask
= howto
.dst_mask
= N_ONES (howto
.bitsize
);
3384 howto
.pcrel_offset
= FALSE
;
3391 symndx
= rel
->r_symndx
;
3397 h
= obj_xcoff_sym_hashes (input_bfd
)[symndx
];
3398 sym
= syms
+ symndx
;
3399 addend
= - sym
->n_value
;
3403 sec
= sections
[symndx
];
3404 /* Hack to make sure we use the right TOC anchor value
3405 if this reloc is against the TOC anchor. */
3406 if (sec
->name
[3] == '0'
3407 && strcmp (sec
->name
, ".tc0") == 0)
3408 val
= xcoff_data (output_bfd
)->toc
;
3410 val
= (sec
->output_section
->vma
3411 + sec
->output_offset
3417 if (h
->root
.type
== bfd_link_hash_defined
3418 || h
->root
.type
== bfd_link_hash_defweak
)
3420 sec
= h
->root
.u
.def
.section
;
3421 val
= (h
->root
.u
.def
.value
3422 + sec
->output_section
->vma
3423 + sec
->output_offset
);
3425 else if (h
->root
.type
== bfd_link_hash_common
)
3427 sec
= h
->root
.u
.c
.p
->section
;
3428 val
= (sec
->output_section
->vma
3429 + sec
->output_offset
);
3432 else if ((0 == (h
->flags
& (XCOFF_DEF_DYNAMIC
| XCOFF_IMPORT
)))
3433 && ! info
->relocatable
)
3435 if (! ((*info
->callbacks
->undefined_symbol
)
3436 (info
, h
->root
.root
.string
, input_bfd
, input_section
,
3437 rel
->r_vaddr
- input_section
->vma
, TRUE
)))
3440 /* Don't try to process the reloc. It can't help, and
3441 it may generate another error. */
3447 if (rel
->r_type
>= XCOFF_MAX_CALCULATE_RELOCATION
3448 || !((*xcoff_calculate_relocation
[rel
->r_type
])
3449 (input_bfd
, input_section
, output_bfd
, rel
, sym
, &howto
, val
,
3450 addend
, &relocation
, contents
)))
3454 address
= rel
->r_vaddr
- input_section
->vma
;
3455 location
= contents
+ address
;
3457 if (address
> input_section
->size
)
3460 /* Get the value we are going to relocate. */
3461 if (1 == howto
.size
)
3462 value_to_relocate
= bfd_get_16 (input_bfd
, location
);
3464 value_to_relocate
= bfd_get_32 (input_bfd
, location
);
3468 FIXME: We may drop bits during the addition
3469 which we don't check for. We must either check at every single
3470 operation, which would be tedious, or we must do the computations
3471 in a type larger than bfd_vma, which would be inefficient. */
3473 if ((unsigned int) howto
.complain_on_overflow
3474 >= XCOFF_MAX_COMPLAIN_OVERFLOW
)
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 if (! ((*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
)))
3507 /* Add RELOCATION to the right bits of VALUE_TO_RELOCATE. */
3508 value_to_relocate
= ((value_to_relocate
& ~howto
.dst_mask
)
3509 | (((value_to_relocate
& howto
.src_mask
)
3510 + relocation
) & howto
.dst_mask
));
3512 /* Put the value back in the object file. */
3513 if (1 == howto
.size
)
3514 bfd_put_16 (input_bfd
, value_to_relocate
, location
);
3516 bfd_put_32 (input_bfd
, value_to_relocate
, location
);
3523 _bfd_xcoff_put_ldsymbol_name (abfd
, ldinfo
, ldsym
, name
)
3524 bfd
*abfd ATTRIBUTE_UNUSED
;
3525 struct xcoff_loader_info
*ldinfo
;
3526 struct internal_ldsym
*ldsym
;
3530 len
= strlen (name
);
3532 if (len
<= SYMNMLEN
)
3533 strncpy (ldsym
->_l
._l_name
, name
, SYMNMLEN
);
3536 if (ldinfo
->string_size
+ len
+ 3 > ldinfo
->string_alc
)
3538 bfd_size_type newalc
;
3541 newalc
= ldinfo
->string_alc
* 2;
3544 while (ldinfo
->string_size
+ len
+ 3 > newalc
)
3547 newstrings
= bfd_realloc (ldinfo
->strings
, newalc
);
3548 if (newstrings
== NULL
)
3550 ldinfo
->failed
= TRUE
;
3553 ldinfo
->string_alc
= newalc
;
3554 ldinfo
->strings
= newstrings
;
3557 bfd_put_16 (ldinfo
->output_bfd
, (bfd_vma
) (len
+ 1),
3558 ldinfo
->strings
+ ldinfo
->string_size
);
3559 strcpy (ldinfo
->strings
+ ldinfo
->string_size
+ 2, name
);
3560 ldsym
->_l
._l_l
._l_zeroes
= 0;
3561 ldsym
->_l
._l_l
._l_offset
= ldinfo
->string_size
+ 2;
3562 ldinfo
->string_size
+= len
+ 3;
3569 _bfd_xcoff_put_symbol_name (bfd
*abfd
, struct bfd_strtab_hash
*strtab
,
3570 struct internal_syment
*sym
,
3573 if (strlen (name
) <= SYMNMLEN
)
3575 strncpy (sym
->_n
._n_name
, name
, SYMNMLEN
);
3583 if ((abfd
->flags
& BFD_TRADITIONAL_FORMAT
) != 0)
3585 indx
= _bfd_stringtab_add (strtab
, name
, hash
, FALSE
);
3586 if (indx
== (bfd_size_type
) -1)
3588 sym
->_n
._n_n
._n_zeroes
= 0;
3589 sym
->_n
._n_n
._n_offset
= STRING_SIZE_SIZE
+ indx
;
3595 xcoff_create_csect_from_smclas (abfd
, aux
, symbol_name
)
3597 union internal_auxent
*aux
;
3598 const char *symbol_name
;
3600 asection
*return_value
= NULL
;
3602 /* .sv64 = x_smclas == 17
3603 This is an invalid csect for 32 bit apps. */
3604 static const char *names
[19] =
3606 ".pr", ".ro", ".db", ".tc", ".ua", ".rw", ".gl", ".xo",
3607 ".sv", ".bs", ".ds", ".uc", ".ti", ".tb", NULL
, ".tc0",
3608 ".td", NULL
, ".sv3264"
3611 if ((19 >= aux
->x_csect
.x_smclas
)
3612 && (NULL
!= names
[aux
->x_csect
.x_smclas
]))
3614 return_value
= bfd_make_section_anyway
3615 (abfd
, names
[aux
->x_csect
.x_smclas
]);
3619 (*_bfd_error_handler
)
3620 (_("%B: symbol `%s' has unrecognized smclas %d"),
3621 abfd
, symbol_name
, aux
->x_csect
.x_smclas
);
3622 bfd_set_error (bfd_error_bad_value
);
3625 return return_value
;
3629 xcoff_is_lineno_count_overflow (abfd
, value
)
3630 bfd
*abfd ATTRIBUTE_UNUSED
;
3633 if (0xffff <= value
)
3640 xcoff_is_reloc_count_overflow (abfd
, value
)
3641 bfd
*abfd ATTRIBUTE_UNUSED
;
3644 if (0xffff <= value
)
3651 xcoff_loader_symbol_offset (abfd
, ldhdr
)
3653 struct internal_ldhdr
*ldhdr ATTRIBUTE_UNUSED
;
3655 return bfd_xcoff_ldhdrsz (abfd
);
3659 xcoff_loader_reloc_offset (abfd
, ldhdr
)
3661 struct internal_ldhdr
*ldhdr
;
3663 return bfd_xcoff_ldhdrsz (abfd
) + ldhdr
->l_nsyms
* bfd_xcoff_ldsymsz (abfd
);
3667 xcoff_generate_rtinit (abfd
, init
, fini
, rtld
)
3673 bfd_byte filehdr_ext
[FILHSZ
];
3674 bfd_byte scnhdr_ext
[SCNHSZ
];
3675 bfd_byte syment_ext
[SYMESZ
* 10];
3676 bfd_byte reloc_ext
[RELSZ
* 3];
3677 bfd_byte
*data_buffer
;
3678 bfd_size_type data_buffer_size
;
3679 bfd_byte
*string_table
= NULL
, *st_tmp
= NULL
;
3680 bfd_size_type string_table_size
;
3682 size_t initsz
, finisz
;
3683 struct internal_filehdr filehdr
;
3684 struct internal_scnhdr scnhdr
;
3685 struct internal_syment syment
;
3686 union internal_auxent auxent
;
3687 struct internal_reloc reloc
;
3689 char *data_name
= ".data";
3690 char *rtinit_name
= "__rtinit";
3691 char *rtld_name
= "__rtld";
3693 if (! bfd_xcoff_rtinit_size (abfd
))
3696 initsz
= (init
== NULL
? 0 : 1 + strlen (init
));
3697 finisz
= (fini
== NULL
? 0 : 1 + strlen (fini
));
3700 memset (filehdr_ext
, 0, FILHSZ
);
3701 memset (&filehdr
, 0, sizeof (struct internal_filehdr
));
3702 filehdr
.f_magic
= bfd_xcoff_magic_number (abfd
);
3703 filehdr
.f_nscns
= 1;
3704 filehdr
.f_timdat
= 0;
3705 filehdr
.f_nsyms
= 0; /* at least 6, no more than 10 */
3706 filehdr
.f_symptr
= 0; /* set below */
3707 filehdr
.f_opthdr
= 0;
3708 filehdr
.f_flags
= 0;
3710 /* section header */
3711 memset (scnhdr_ext
, 0, SCNHSZ
);
3712 memset (&scnhdr
, 0, sizeof (struct internal_scnhdr
));
3713 memcpy (scnhdr
.s_name
, data_name
, strlen (data_name
));
3716 scnhdr
.s_size
= 0; /* set below */
3717 scnhdr
.s_scnptr
= FILHSZ
+ SCNHSZ
;
3718 scnhdr
.s_relptr
= 0; /* set below */
3719 scnhdr
.s_lnnoptr
= 0;
3720 scnhdr
.s_nreloc
= 0; /* either 1 or 2 */
3722 scnhdr
.s_flags
= STYP_DATA
;
3725 0x0000 0x00000000 : rtl
3726 0x0004 0x00000010 : offset to init, or 0
3727 0x0008 0x00000028 : offset to fini, or 0
3728 0x000C 0x0000000C : size of descriptor
3729 0x0010 0x00000000 : init, needs a reloc
3730 0x0014 0x00000040 : offset to init name
3731 0x0018 0x00000000 : flags, padded to a word
3732 0x001C 0x00000000 : empty init
3735 0x0028 0x00000000 : fini, needs a reloc
3736 0x002C 0x00000??? : offset to fini name
3737 0x0030 0x00000000 : flags, padded to a word
3738 0x0034 0x00000000 : empty fini
3742 0x0040 + initsz fini name */
3744 data_buffer_size
= 0x0040 + initsz
+ finisz
;
3745 data_buffer_size
= (data_buffer_size
+ 7) &~ (bfd_size_type
) 7;
3747 data_buffer
= (bfd_byte
*) bfd_zmalloc (data_buffer_size
);
3748 if (data_buffer
== NULL
)
3754 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x04]);
3756 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x14]);
3757 memcpy (&data_buffer
[val
], init
, initsz
);
3763 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x08]);
3764 val
= 0x40 + initsz
;
3765 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x2C]);
3766 memcpy (&data_buffer
[val
], fini
, finisz
);
3770 bfd_h_put_32 (abfd
, val
, &data_buffer
[0x0C]);
3772 scnhdr
.s_size
= data_buffer_size
;
3775 string_table_size
= 0;
3777 string_table_size
+= initsz
;
3779 string_table_size
+= finisz
;
3780 if (string_table_size
)
3782 string_table_size
+= 4;
3783 string_table
= (bfd_byte
*) bfd_zmalloc (string_table_size
);
3784 if (string_table
== NULL
)
3787 val
= string_table_size
;
3788 bfd_h_put_32 (abfd
, val
, &string_table
[0]);
3789 st_tmp
= string_table
+ 4;
3798 memset (syment_ext
, 0, 10 * SYMESZ
);
3799 memset (reloc_ext
, 0, 3 * RELSZ
);
3802 memset (&syment
, 0, sizeof (struct internal_syment
));
3803 memset (&auxent
, 0, sizeof (union internal_auxent
));
3804 memcpy (syment
._n
._n_name
, data_name
, strlen (data_name
));
3806 syment
.n_sclass
= C_HIDEXT
;
3807 syment
.n_numaux
= 1;
3808 auxent
.x_csect
.x_scnlen
.l
= data_buffer_size
;
3809 auxent
.x_csect
.x_smtyp
= 3 << 3 | XTY_SD
;
3810 auxent
.x_csect
.x_smclas
= XMC_RW
;
3811 bfd_coff_swap_sym_out (abfd
, &syment
,
3812 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3813 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3815 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3816 filehdr
.f_nsyms
+= 2;
3819 memset (&syment
, 0, sizeof (struct internal_syment
));
3820 memset (&auxent
, 0, sizeof (union internal_auxent
));
3821 memcpy (syment
._n
._n_name
, rtinit_name
, strlen (rtinit_name
));
3823 syment
.n_sclass
= C_EXT
;
3824 syment
.n_numaux
= 1;
3825 auxent
.x_csect
.x_smtyp
= XTY_LD
;
3826 auxent
.x_csect
.x_smclas
= XMC_RW
;
3827 bfd_coff_swap_sym_out (abfd
, &syment
,
3828 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3829 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3831 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3832 filehdr
.f_nsyms
+= 2;
3837 memset (&syment
, 0, sizeof (struct internal_syment
));
3838 memset (&auxent
, 0, sizeof (union internal_auxent
));
3842 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
3843 memcpy (st_tmp
, init
, initsz
);
3847 memcpy (syment
._n
._n_name
, init
, initsz
- 1);
3849 syment
.n_sclass
= C_EXT
;
3850 syment
.n_numaux
= 1;
3851 bfd_coff_swap_sym_out (abfd
, &syment
,
3852 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3853 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3855 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3858 memset (&reloc
, 0, sizeof (struct internal_reloc
));
3859 reloc
.r_vaddr
= 0x0010;
3860 reloc
.r_symndx
= filehdr
.f_nsyms
;
3861 reloc
.r_type
= R_POS
;
3863 bfd_coff_swap_reloc_out (abfd
, &reloc
, &reloc_ext
[0]);
3865 filehdr
.f_nsyms
+= 2;
3866 scnhdr
.s_nreloc
+= 1;
3872 memset (&syment
, 0, sizeof (struct internal_syment
));
3873 memset (&auxent
, 0, sizeof (union internal_auxent
));
3877 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
3878 memcpy (st_tmp
, fini
, finisz
);
3882 memcpy (syment
._n
._n_name
, fini
, finisz
- 1);
3884 syment
.n_sclass
= C_EXT
;
3885 syment
.n_numaux
= 1;
3886 bfd_coff_swap_sym_out (abfd
, &syment
,
3887 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3888 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3890 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3893 memset (&reloc
, 0, sizeof (struct internal_reloc
));
3894 reloc
.r_vaddr
= 0x0028;
3895 reloc
.r_symndx
= filehdr
.f_nsyms
;
3896 reloc
.r_type
= R_POS
;
3898 bfd_coff_swap_reloc_out (abfd
, &reloc
,
3899 &reloc_ext
[scnhdr
.s_nreloc
* RELSZ
]);
3901 filehdr
.f_nsyms
+= 2;
3902 scnhdr
.s_nreloc
+= 1;
3907 memset (&syment
, 0, sizeof (struct internal_syment
));
3908 memset (&auxent
, 0, sizeof (union internal_auxent
));
3909 memcpy (syment
._n
._n_name
, rtld_name
, strlen (rtld_name
));
3910 syment
.n_sclass
= C_EXT
;
3911 syment
.n_numaux
= 1;
3912 bfd_coff_swap_sym_out (abfd
, &syment
,
3913 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
3914 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
3916 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
3919 memset (&reloc
, 0, sizeof (struct internal_reloc
));
3920 reloc
.r_vaddr
= 0x0000;
3921 reloc
.r_symndx
= filehdr
.f_nsyms
;
3922 reloc
.r_type
= R_POS
;
3924 bfd_coff_swap_reloc_out (abfd
, &reloc
,
3925 &reloc_ext
[scnhdr
.s_nreloc
* RELSZ
]);
3927 filehdr
.f_nsyms
+= 2;
3928 scnhdr
.s_nreloc
+= 1;
3931 scnhdr
.s_relptr
= scnhdr
.s_scnptr
+ data_buffer_size
;
3932 filehdr
.f_symptr
= scnhdr
.s_relptr
+ scnhdr
.s_nreloc
* RELSZ
;
3934 bfd_coff_swap_filehdr_out (abfd
, &filehdr
, filehdr_ext
);
3935 bfd_bwrite (filehdr_ext
, FILHSZ
, abfd
);
3936 bfd_coff_swap_scnhdr_out (abfd
, &scnhdr
, scnhdr_ext
);
3937 bfd_bwrite (scnhdr_ext
, SCNHSZ
, abfd
);
3938 bfd_bwrite (data_buffer
, data_buffer_size
, abfd
);
3939 bfd_bwrite (reloc_ext
, scnhdr
.s_nreloc
* RELSZ
, abfd
);
3940 bfd_bwrite (syment_ext
, filehdr
.f_nsyms
* SYMESZ
, abfd
);
3941 bfd_bwrite (string_table
, string_table_size
, abfd
);
3950 static reloc_howto_type xcoff_dynamic_reloc
=
3951 HOWTO (0, /* type */
3953 2, /* size (0 = byte, 1 = short, 2 = long) */
3955 FALSE
, /* pc_relative */
3957 complain_overflow_bitfield
, /* complain_on_overflow */
3958 0, /* special_function */
3960 TRUE
, /* partial_inplace */
3961 0xffffffff, /* src_mask */
3962 0xffffffff, /* dst_mask */
3963 FALSE
); /* pcrel_offset */
3967 The first word of global linkage code must be modified by filling in
3968 the correct TOC offset. */
3970 static unsigned long xcoff_glink_code
[9] =
3972 0x81820000, /* lwz r12,0(r2) */
3973 0x90410014, /* stw r2,20(r1) */
3974 0x800c0000, /* lwz r0,0(r12) */
3975 0x804c0004, /* lwz r2,4(r12) */
3976 0x7c0903a6, /* mtctr r0 */
3977 0x4e800420, /* bctr */
3978 0x00000000, /* start of traceback table */
3979 0x000c8000, /* traceback table */
3980 0x00000000, /* traceback table */
3984 static const struct xcoff_backend_data_rec bfd_xcoff_backend_data
=
3986 { /* COFF backend, defined in libcoff.h. */
3987 _bfd_xcoff_swap_aux_in
,
3988 _bfd_xcoff_swap_sym_in
,
3989 coff_swap_lineno_in
,
3990 _bfd_xcoff_swap_aux_out
,
3991 _bfd_xcoff_swap_sym_out
,
3992 coff_swap_lineno_out
,
3993 xcoff_swap_reloc_out
,
3994 coff_swap_filehdr_out
,
3995 coff_swap_aouthdr_out
,
3996 coff_swap_scnhdr_out
,
4005 TRUE
, /* _bfd_coff_long_filenames */
4006 FALSE
, /* _bfd_coff_long_section_names */
4007 3, /* _bfd_coff_default_section_alignment_power */
4008 FALSE
, /* _bfd_coff_force_symnames_in_strings */
4009 2, /* _bfd_coff_debug_string_prefix_length */
4010 coff_swap_filehdr_in
,
4011 coff_swap_aouthdr_in
,
4012 coff_swap_scnhdr_in
,
4013 xcoff_swap_reloc_in
,
4014 coff_bad_format_hook
,
4015 coff_set_arch_mach_hook
,
4018 coff_set_alignment_hook
,
4019 coff_slurp_symbol_table
,
4020 symname_in_debug_hook
,
4021 coff_pointerize_aux_hook
,
4023 dummy_reloc16_extra_cases
,
4024 dummy_reloc16_estimate
,
4025 NULL
, /* bfd_coff_sym_is_global */
4026 coff_compute_section_file_positions
,
4027 NULL
, /* _bfd_coff_start_final_link */
4028 xcoff_ppc_relocate_section
,
4029 coff_rtype_to_howto
,
4030 NULL
, /* _bfd_coff_adjust_symndx */
4031 _bfd_generic_link_add_one_symbol
,
4032 coff_link_output_has_begun
,
4033 coff_final_link_postscript
4036 0x01DF, /* magic number */
4040 /* Function pointers to xcoff specific swap routines. */
4041 xcoff_swap_ldhdr_in
,
4042 xcoff_swap_ldhdr_out
,
4043 xcoff_swap_ldsym_in
,
4044 xcoff_swap_ldsym_out
,
4045 xcoff_swap_ldrel_in
,
4046 xcoff_swap_ldrel_out
,
4052 12, /* _xcoff_function_descriptor_size */
4056 1, /* _xcoff_ldhdr_version */
4058 _bfd_xcoff_put_symbol_name
,
4059 _bfd_xcoff_put_ldsymbol_name
,
4060 &xcoff_dynamic_reloc
,
4061 xcoff_create_csect_from_smclas
,
4063 /* Lineno and reloc count overflow. */
4064 xcoff_is_lineno_count_overflow
,
4065 xcoff_is_reloc_count_overflow
,
4067 xcoff_loader_symbol_offset
,
4068 xcoff_loader_reloc_offset
,
4071 &xcoff_glink_code
[0],
4072 36, /* _xcoff_glink_size */
4075 64, /* _xcoff_rtinit_size */
4076 xcoff_generate_rtinit
,
4079 /* The transfer vector that leads the outside world to all of the above. */
4080 const bfd_target rs6000coff_vec
=
4083 bfd_target_xcoff_flavour
,
4084 BFD_ENDIAN_BIG
, /* data byte order is big */
4085 BFD_ENDIAN_BIG
, /* header byte order is big */
4087 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
4088 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
4090 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
4091 0, /* leading char */
4092 '/', /* ar_pad_char */
4093 15, /* ar_max_namelen */
4117 { /* bfd_check_format */
4120 _bfd_xcoff_archive_p
,
4124 { /* bfd_set_format */
4127 _bfd_generic_mkarchive
,
4131 {/* bfd_write_contents */
4133 coff_write_object_contents
,
4134 _bfd_xcoff_write_archive_contents
,
4141 coff_new_section_hook
,
4142 _bfd_generic_get_section_contents
,
4143 _bfd_generic_get_section_contents_in_window
,
4146 _bfd_xcoff_copy_private_bfd_data
,
4147 ((bfd_boolean (*) (bfd
*, bfd
*)) bfd_true
),
4148 _bfd_generic_init_private_section_data
,
4149 ((bfd_boolean (*) (bfd
*, asection
*, bfd
*, asection
*)) bfd_true
),
4150 ((bfd_boolean (*) (bfd
*, asymbol
*, bfd
*, asymbol
*)) bfd_true
),
4151 ((bfd_boolean (*) (bfd
*, bfd
*)) bfd_true
),
4152 ((bfd_boolean (*) (bfd
*, flagword
)) bfd_true
),
4153 ((bfd_boolean (*) (bfd
*, void * )) bfd_true
),
4156 coff_core_file_failing_command
,
4157 coff_core_file_failing_signal
,
4158 coff_core_file_matches_executable_p
,
4161 _bfd_xcoff_slurp_armap
,
4163 ((bfd_boolean (*) (bfd
*, char **, bfd_size_type
*, const char **)) bfd_false
),
4164 bfd_dont_truncate_arname
,
4165 _bfd_xcoff_write_armap
,
4166 _bfd_xcoff_read_ar_hdr
,
4167 _bfd_xcoff_openr_next_archived_file
,
4168 _bfd_generic_get_elt_at_index
,
4169 _bfd_xcoff_stat_arch_elt
,
4173 coff_get_symtab_upper_bound
,
4174 coff_canonicalize_symtab
,
4175 coff_make_empty_symbol
,
4177 coff_get_symbol_info
,
4178 _bfd_xcoff_is_local_label_name
,
4179 coff_bfd_is_target_special_symbol
,
4181 coff_find_nearest_line
,
4182 _bfd_generic_find_line
,
4183 coff_find_inliner_info
,
4184 coff_bfd_make_debug_symbol
,
4185 _bfd_generic_read_minisymbols
,
4186 _bfd_generic_minisymbol_to_symbol
,
4189 coff_get_reloc_upper_bound
,
4190 coff_canonicalize_reloc
,
4191 _bfd_xcoff_reloc_type_lookup
,
4192 _bfd_xcoff_reloc_name_lookup
,
4196 coff_set_section_contents
,
4199 _bfd_xcoff_sizeof_headers
,
4200 bfd_generic_get_relocated_section_contents
,
4201 bfd_generic_relax_section
,
4202 _bfd_xcoff_bfd_link_hash_table_create
,
4203 _bfd_generic_link_hash_table_free
,
4204 _bfd_xcoff_bfd_link_add_symbols
,
4205 _bfd_generic_link_just_syms
,
4206 _bfd_xcoff_bfd_final_link
,
4207 _bfd_generic_link_split_section
,
4208 bfd_generic_gc_sections
,
4209 bfd_generic_merge_sections
,
4210 bfd_generic_is_group_section
,
4211 bfd_generic_discard_group
,
4212 _bfd_generic_section_already_linked
,
4215 _bfd_xcoff_get_dynamic_symtab_upper_bound
,
4216 _bfd_xcoff_canonicalize_dynamic_symtab
,
4217 _bfd_nodynamic_get_synthetic_symtab
,
4218 _bfd_xcoff_get_dynamic_reloc_upper_bound
,
4219 _bfd_xcoff_canonicalize_dynamic_reloc
,
4221 /* Opposite endian version, none exists */
4224 (void *) &bfd_xcoff_backend_data
,
4227 /* xcoff-powermac target
4229 Only difference between this target and the rs6000 target is the
4230 the default architecture and machine type used in coffcode.h
4232 PowerPC Macs use the same magic numbers as RS/6000
4233 (because that's how they were bootstrapped originally),
4234 but they are always PowerPC architecture. */
4235 static const struct xcoff_backend_data_rec bfd_pmac_xcoff_backend_data
=
4237 { /* COFF backend, defined in libcoff.h. */
4238 _bfd_xcoff_swap_aux_in
,
4239 _bfd_xcoff_swap_sym_in
,
4240 coff_swap_lineno_in
,
4241 _bfd_xcoff_swap_aux_out
,
4242 _bfd_xcoff_swap_sym_out
,
4243 coff_swap_lineno_out
,
4244 xcoff_swap_reloc_out
,
4245 coff_swap_filehdr_out
,
4246 coff_swap_aouthdr_out
,
4247 coff_swap_scnhdr_out
,
4256 TRUE
, /* _bfd_coff_long_filenames */
4257 FALSE
, /* _bfd_coff_long_section_names */
4258 3, /* _bfd_coff_default_section_alignment_power */
4259 FALSE
, /* _bfd_coff_force_symnames_in_strings */
4260 2, /* _bfd_coff_debug_string_prefix_length */
4261 coff_swap_filehdr_in
,
4262 coff_swap_aouthdr_in
,
4263 coff_swap_scnhdr_in
,
4264 xcoff_swap_reloc_in
,
4265 coff_bad_format_hook
,
4266 coff_set_arch_mach_hook
,
4269 coff_set_alignment_hook
,
4270 coff_slurp_symbol_table
,
4271 symname_in_debug_hook
,
4272 coff_pointerize_aux_hook
,
4274 dummy_reloc16_extra_cases
,
4275 dummy_reloc16_estimate
,
4276 NULL
, /* bfd_coff_sym_is_global */
4277 coff_compute_section_file_positions
,
4278 NULL
, /* _bfd_coff_start_final_link */
4279 xcoff_ppc_relocate_section
,
4280 coff_rtype_to_howto
,
4281 NULL
, /* _bfd_coff_adjust_symndx */
4282 _bfd_generic_link_add_one_symbol
,
4283 coff_link_output_has_begun
,
4284 coff_final_link_postscript
4287 0x01DF, /* magic number */
4291 /* Function pointers to xcoff specific swap routines. */
4292 xcoff_swap_ldhdr_in
,
4293 xcoff_swap_ldhdr_out
,
4294 xcoff_swap_ldsym_in
,
4295 xcoff_swap_ldsym_out
,
4296 xcoff_swap_ldrel_in
,
4297 xcoff_swap_ldrel_out
,
4303 12, /* _xcoff_function_descriptor_size */
4307 1, /* _xcoff_ldhdr_version */
4309 _bfd_xcoff_put_symbol_name
,
4310 _bfd_xcoff_put_ldsymbol_name
,
4311 &xcoff_dynamic_reloc
,
4312 xcoff_create_csect_from_smclas
,
4314 /* Lineno and reloc count overflow. */
4315 xcoff_is_lineno_count_overflow
,
4316 xcoff_is_reloc_count_overflow
,
4318 xcoff_loader_symbol_offset
,
4319 xcoff_loader_reloc_offset
,
4322 &xcoff_glink_code
[0],
4323 36, /* _xcoff_glink_size */
4326 0, /* _xcoff_rtinit_size */
4327 xcoff_generate_rtinit
,
4330 /* The transfer vector that leads the outside world to all of the above. */
4331 const bfd_target pmac_xcoff_vec
=
4334 bfd_target_xcoff_flavour
,
4335 BFD_ENDIAN_BIG
, /* data byte order is big */
4336 BFD_ENDIAN_BIG
, /* header byte order is big */
4338 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| DYNAMIC
4339 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
4341 SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
,
4342 0, /* leading char */
4343 '/', /* ar_pad_char */
4344 15, /* ar_max_namelen */
4368 { /* bfd_check_format */
4371 _bfd_xcoff_archive_p
,
4375 { /* bfd_set_format */
4378 _bfd_generic_mkarchive
,
4382 {/* bfd_write_contents */
4384 coff_write_object_contents
,
4385 _bfd_xcoff_write_archive_contents
,
4392 coff_new_section_hook
,
4393 _bfd_generic_get_section_contents
,
4394 _bfd_generic_get_section_contents_in_window
,
4397 _bfd_xcoff_copy_private_bfd_data
,
4398 ((bfd_boolean (*) (bfd
*, bfd
*)) bfd_true
),
4399 _bfd_generic_init_private_section_data
,
4400 ((bfd_boolean (*) (bfd
*, asection
*, bfd
*, asection
*)) bfd_true
),
4401 ((bfd_boolean (*) (bfd
*, asymbol
*, bfd
*, asymbol
*)) bfd_true
),
4402 ((bfd_boolean (*) (bfd
*, bfd
*)) bfd_true
),
4403 ((bfd_boolean (*) (bfd
*, flagword
)) bfd_true
),
4404 ((bfd_boolean (*) (bfd
*, void * )) bfd_true
),
4407 coff_core_file_failing_command
,
4408 coff_core_file_failing_signal
,
4409 coff_core_file_matches_executable_p
,
4412 _bfd_xcoff_slurp_armap
,
4414 ((bfd_boolean (*) (bfd
*, char **, bfd_size_type
*, const char **)) bfd_false
),
4415 bfd_dont_truncate_arname
,
4416 _bfd_xcoff_write_armap
,
4417 _bfd_xcoff_read_ar_hdr
,
4418 _bfd_xcoff_openr_next_archived_file
,
4419 _bfd_generic_get_elt_at_index
,
4420 _bfd_xcoff_stat_arch_elt
,
4424 coff_get_symtab_upper_bound
,
4425 coff_canonicalize_symtab
,
4426 coff_make_empty_symbol
,
4428 coff_get_symbol_info
,
4429 _bfd_xcoff_is_local_label_name
,
4430 coff_bfd_is_target_special_symbol
,
4432 coff_find_nearest_line
,
4433 _bfd_generic_find_line
,
4434 coff_find_inliner_info
,
4435 coff_bfd_make_debug_symbol
,
4436 _bfd_generic_read_minisymbols
,
4437 _bfd_generic_minisymbol_to_symbol
,
4440 coff_get_reloc_upper_bound
,
4441 coff_canonicalize_reloc
,
4442 _bfd_xcoff_reloc_type_lookup
,
4443 _bfd_xcoff_reloc_name_lookup
,
4447 coff_set_section_contents
,
4450 _bfd_xcoff_sizeof_headers
,
4451 bfd_generic_get_relocated_section_contents
,
4452 bfd_generic_relax_section
,
4453 _bfd_xcoff_bfd_link_hash_table_create
,
4454 _bfd_generic_link_hash_table_free
,
4455 _bfd_xcoff_bfd_link_add_symbols
,
4456 _bfd_generic_link_just_syms
,
4457 _bfd_xcoff_bfd_final_link
,
4458 _bfd_generic_link_split_section
,
4459 bfd_generic_gc_sections
,
4460 bfd_generic_merge_sections
,
4461 bfd_generic_is_group_section
,
4462 bfd_generic_discard_group
,
4463 _bfd_generic_section_already_linked
,
4466 _bfd_xcoff_get_dynamic_symtab_upper_bound
,
4467 _bfd_xcoff_canonicalize_dynamic_symtab
,
4468 _bfd_nodynamic_get_synthetic_symtab
,
4469 _bfd_xcoff_get_dynamic_reloc_upper_bound
,
4470 _bfd_xcoff_canonicalize_dynamic_reloc
,
4472 /* Opposite endian version, none exists */
4475 (void *) &bfd_pmac_xcoff_backend_data
,