1*3d8817e4Smiod /* BFD back-end for IBM RS/6000 "XCOFF64" files.
2*3d8817e4Smiod Copyright 2000, 2001, 2002, 2003, 2004, 2005
3*3d8817e4Smiod Free Software Foundation, Inc.
4*3d8817e4Smiod Written Clinton Popetz.
5*3d8817e4Smiod Contributed by Cygnus Support.
6*3d8817e4Smiod
7*3d8817e4Smiod This file is part of BFD, the Binary File Descriptor library.
8*3d8817e4Smiod
9*3d8817e4Smiod This program is free software; you can redistribute it and/or modify
10*3d8817e4Smiod it under the terms of the GNU General Public License as published by
11*3d8817e4Smiod the Free Software Foundation; either version 2 of the License, or
12*3d8817e4Smiod (at your option) any later version.
13*3d8817e4Smiod
14*3d8817e4Smiod This program is distributed in the hope that it will be useful,
15*3d8817e4Smiod but WITHOUT ANY WARRANTY; without even the implied warranty of
16*3d8817e4Smiod MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17*3d8817e4Smiod GNU General Public License for more details.
18*3d8817e4Smiod
19*3d8817e4Smiod You should have received a copy of the GNU General Public License
20*3d8817e4Smiod along with this program; if not, write to the Free Software
21*3d8817e4Smiod Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
22*3d8817e4Smiod
23*3d8817e4Smiod #include "bfd.h"
24*3d8817e4Smiod #include "sysdep.h"
25*3d8817e4Smiod #include "bfdlink.h"
26*3d8817e4Smiod #include "libbfd.h"
27*3d8817e4Smiod #include "coff/internal.h"
28*3d8817e4Smiod #include "coff/xcoff.h"
29*3d8817e4Smiod #include "coff/rs6k64.h"
30*3d8817e4Smiod #include "libcoff.h"
31*3d8817e4Smiod #include "libxcoff.h"
32*3d8817e4Smiod
33*3d8817e4Smiod #define GET_FILEHDR_SYMPTR H_GET_64
34*3d8817e4Smiod #define PUT_FILEHDR_SYMPTR H_PUT_64
35*3d8817e4Smiod #define GET_AOUTHDR_DATA_START H_GET_64
36*3d8817e4Smiod #define PUT_AOUTHDR_DATA_START H_PUT_64
37*3d8817e4Smiod #define GET_AOUTHDR_TEXT_START H_GET_64
38*3d8817e4Smiod #define PUT_AOUTHDR_TEXT_START H_PUT_64
39*3d8817e4Smiod #define GET_AOUTHDR_TSIZE H_GET_64
40*3d8817e4Smiod #define PUT_AOUTHDR_TSIZE H_PUT_64
41*3d8817e4Smiod #define GET_AOUTHDR_DSIZE H_GET_64
42*3d8817e4Smiod #define PUT_AOUTHDR_DSIZE H_PUT_64
43*3d8817e4Smiod #define GET_AOUTHDR_BSIZE H_GET_64
44*3d8817e4Smiod #define PUT_AOUTHDR_BSIZE H_PUT_64
45*3d8817e4Smiod #define GET_AOUTHDR_ENTRY H_GET_64
46*3d8817e4Smiod #define PUT_AOUTHDR_ENTRY H_PUT_64
47*3d8817e4Smiod #define GET_SCNHDR_PADDR H_GET_64
48*3d8817e4Smiod #define PUT_SCNHDR_PADDR H_PUT_64
49*3d8817e4Smiod #define GET_SCNHDR_VADDR H_GET_64
50*3d8817e4Smiod #define PUT_SCNHDR_VADDR H_PUT_64
51*3d8817e4Smiod #define GET_SCNHDR_SIZE H_GET_64
52*3d8817e4Smiod #define PUT_SCNHDR_SIZE H_PUT_64
53*3d8817e4Smiod #define GET_SCNHDR_SCNPTR H_GET_64
54*3d8817e4Smiod #define PUT_SCNHDR_SCNPTR H_PUT_64
55*3d8817e4Smiod #define GET_SCNHDR_RELPTR H_GET_64
56*3d8817e4Smiod #define PUT_SCNHDR_RELPTR H_PUT_64
57*3d8817e4Smiod #define GET_SCNHDR_LNNOPTR H_GET_64
58*3d8817e4Smiod #define PUT_SCNHDR_LNNOPTR H_PUT_64
59*3d8817e4Smiod #define GET_SCNHDR_NRELOC H_GET_32
60*3d8817e4Smiod #define MAX_SCNHDR_NRELOC 0xffffffff
61*3d8817e4Smiod #define PUT_SCNHDR_NRELOC H_PUT_32
62*3d8817e4Smiod #define GET_SCNHDR_NLNNO H_GET_32
63*3d8817e4Smiod #define MAX_SCNHDR_NLNNO 0xffffffff
64*3d8817e4Smiod #define PUT_SCNHDR_NLNNO H_PUT_32
65*3d8817e4Smiod #define GET_RELOC_VADDR H_GET_64
66*3d8817e4Smiod #define PUT_RELOC_VADDR H_PUT_64
67*3d8817e4Smiod
68*3d8817e4Smiod #define COFF_FORCE_SYMBOLS_IN_STRINGS
69*3d8817e4Smiod #define COFF_DEBUG_STRING_WIDE_PREFIX
70*3d8817e4Smiod
71*3d8817e4Smiod
72*3d8817e4Smiod #define COFF_ADJUST_SCNHDR_OUT_POST(ABFD, INT, EXT) \
73*3d8817e4Smiod do \
74*3d8817e4Smiod { \
75*3d8817e4Smiod memset (((SCNHDR *) EXT)->s_pad, 0, \
76*3d8817e4Smiod sizeof (((SCNHDR *) EXT)->s_pad)); \
77*3d8817e4Smiod } \
78*3d8817e4Smiod while (0)
79*3d8817e4Smiod
80*3d8817e4Smiod #define NO_COFF_LINENOS
81*3d8817e4Smiod
82*3d8817e4Smiod #define coff_SWAP_lineno_in _bfd_xcoff64_swap_lineno_in
83*3d8817e4Smiod #define coff_SWAP_lineno_out _bfd_xcoff64_swap_lineno_out
84*3d8817e4Smiod
85*3d8817e4Smiod static void _bfd_xcoff64_swap_lineno_in
86*3d8817e4Smiod PARAMS ((bfd *, PTR, PTR));
87*3d8817e4Smiod static unsigned int _bfd_xcoff64_swap_lineno_out
88*3d8817e4Smiod PARAMS ((bfd *, PTR, PTR));
89*3d8817e4Smiod static bfd_boolean _bfd_xcoff64_put_symbol_name
90*3d8817e4Smiod PARAMS ((bfd *, struct bfd_strtab_hash *, struct internal_syment *,
91*3d8817e4Smiod const char *));
92*3d8817e4Smiod static bfd_boolean _bfd_xcoff64_put_ldsymbol_name
93*3d8817e4Smiod PARAMS ((bfd *, struct xcoff_loader_info *, struct internal_ldsym *,
94*3d8817e4Smiod const char *));
95*3d8817e4Smiod static void _bfd_xcoff64_swap_sym_in
96*3d8817e4Smiod PARAMS ((bfd *, PTR, PTR));
97*3d8817e4Smiod static unsigned int _bfd_xcoff64_swap_sym_out
98*3d8817e4Smiod PARAMS ((bfd *, PTR, PTR));
99*3d8817e4Smiod static void _bfd_xcoff64_swap_aux_in
100*3d8817e4Smiod PARAMS ((bfd *, PTR, int, int, int, int, PTR));
101*3d8817e4Smiod static unsigned int _bfd_xcoff64_swap_aux_out
102*3d8817e4Smiod PARAMS ((bfd *, PTR, int, int, int, int, PTR));
103*3d8817e4Smiod static void xcoff64_swap_reloc_in
104*3d8817e4Smiod PARAMS ((bfd *, PTR, PTR));
105*3d8817e4Smiod static unsigned int xcoff64_swap_reloc_out
106*3d8817e4Smiod PARAMS ((bfd *, PTR, PTR));
107*3d8817e4Smiod extern bfd_boolean _bfd_xcoff_mkobject
108*3d8817e4Smiod PARAMS ((bfd *));
109*3d8817e4Smiod extern bfd_boolean _bfd_xcoff_copy_private_bfd_data
110*3d8817e4Smiod PARAMS ((bfd *, bfd *));
111*3d8817e4Smiod extern bfd_boolean _bfd_xcoff_is_local_label_name
112*3d8817e4Smiod PARAMS ((bfd *, const char *));
113*3d8817e4Smiod extern void xcoff64_rtype2howto
114*3d8817e4Smiod PARAMS ((arelent *, struct internal_reloc *));
115*3d8817e4Smiod extern reloc_howto_type * xcoff64_reloc_type_lookup
116*3d8817e4Smiod PARAMS ((bfd *, bfd_reloc_code_real_type));
117*3d8817e4Smiod extern bfd_boolean _bfd_xcoff_slurp_armap
118*3d8817e4Smiod PARAMS ((bfd *));
119*3d8817e4Smiod extern PTR _bfd_xcoff_read_ar_hdr
120*3d8817e4Smiod PARAMS ((bfd *));
121*3d8817e4Smiod extern bfd *_bfd_xcoff_openr_next_archived_file
122*3d8817e4Smiod PARAMS ((bfd *, bfd *));
123*3d8817e4Smiod extern int _bfd_xcoff_stat_arch_elt
124*3d8817e4Smiod PARAMS ((bfd *, struct stat *));
125*3d8817e4Smiod extern bfd_boolean _bfd_xcoff_write_armap
126*3d8817e4Smiod PARAMS ((bfd *, unsigned int, struct orl *, unsigned int, int));
127*3d8817e4Smiod extern bfd_boolean _bfd_xcoff_write_archive_contents
128*3d8817e4Smiod PARAMS ((bfd *));
129*3d8817e4Smiod extern int _bfd_xcoff_sizeof_headers
130*3d8817e4Smiod PARAMS ((bfd *, bfd_boolean));
131*3d8817e4Smiod extern void _bfd_xcoff_swap_sym_in
132*3d8817e4Smiod PARAMS ((bfd *, PTR, PTR));
133*3d8817e4Smiod extern unsigned int _bfd_xcoff_swap_sym_out
134*3d8817e4Smiod PARAMS ((bfd *, PTR, PTR));
135*3d8817e4Smiod extern void _bfd_xcoff_swap_aux_in
136*3d8817e4Smiod PARAMS ((bfd *, PTR, int, int, int, int, PTR));
137*3d8817e4Smiod extern unsigned int _bfd_xcoff_swap_aux_out
138*3d8817e4Smiod PARAMS ((bfd *, PTR, int, int, int, int, PTR));
139*3d8817e4Smiod static void xcoff64_swap_ldhdr_in
140*3d8817e4Smiod PARAMS ((bfd *, const PTR, struct internal_ldhdr *));
141*3d8817e4Smiod static void xcoff64_swap_ldhdr_out
142*3d8817e4Smiod PARAMS ((bfd *, const struct internal_ldhdr *, PTR d));
143*3d8817e4Smiod static void xcoff64_swap_ldsym_in
144*3d8817e4Smiod PARAMS ((bfd *, const PTR, struct internal_ldsym *));
145*3d8817e4Smiod static void xcoff64_swap_ldsym_out
146*3d8817e4Smiod PARAMS ((bfd *, const struct internal_ldsym *, PTR d));
147*3d8817e4Smiod static void xcoff64_swap_ldrel_in
148*3d8817e4Smiod PARAMS ((bfd *, const PTR, struct internal_ldrel *));
149*3d8817e4Smiod static void xcoff64_swap_ldrel_out
150*3d8817e4Smiod PARAMS ((bfd *, const struct internal_ldrel *, PTR d));
151*3d8817e4Smiod static bfd_boolean xcoff64_write_object_contents
152*3d8817e4Smiod PARAMS ((bfd *));
153*3d8817e4Smiod static bfd_boolean xcoff64_ppc_relocate_section
154*3d8817e4Smiod PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
155*3d8817e4Smiod struct internal_reloc *, struct internal_syment *,
156*3d8817e4Smiod asection **));
157*3d8817e4Smiod static bfd_boolean xcoff64_slurp_armap
158*3d8817e4Smiod PARAMS ((bfd *));
159*3d8817e4Smiod static const bfd_target *xcoff64_archive_p
160*3d8817e4Smiod PARAMS ((bfd *));
161*3d8817e4Smiod static bfd *xcoff64_openr_next_archived_file
162*3d8817e4Smiod PARAMS ((bfd *, bfd *));
163*3d8817e4Smiod static int xcoff64_sizeof_headers
164*3d8817e4Smiod PARAMS ((bfd *, bfd_boolean));
165*3d8817e4Smiod static asection *xcoff64_create_csect_from_smclas
166*3d8817e4Smiod PARAMS ((bfd *, union internal_auxent *, const char *));
167*3d8817e4Smiod static bfd_boolean xcoff64_is_lineno_count_overflow
168*3d8817e4Smiod PARAMS ((bfd *, bfd_vma));
169*3d8817e4Smiod static bfd_boolean xcoff64_is_reloc_count_overflow
170*3d8817e4Smiod PARAMS ((bfd *, bfd_vma));
171*3d8817e4Smiod static bfd_vma xcoff64_loader_symbol_offset
172*3d8817e4Smiod PARAMS ((bfd *, struct internal_ldhdr *));
173*3d8817e4Smiod static bfd_vma xcoff64_loader_reloc_offset
174*3d8817e4Smiod PARAMS ((bfd *, struct internal_ldhdr *));
175*3d8817e4Smiod static bfd_boolean xcoff64_generate_rtinit
176*3d8817e4Smiod PARAMS ((bfd *, const char *, const char *, bfd_boolean));
177*3d8817e4Smiod static bfd_boolean xcoff64_bad_format_hook
178*3d8817e4Smiod PARAMS ((bfd *, PTR ));
179*3d8817e4Smiod
180*3d8817e4Smiod /* Relocation functions */
181*3d8817e4Smiod static bfd_boolean xcoff64_reloc_type_br
182*3d8817e4Smiod PARAMS ((XCOFF_RELOC_FUNCTION_ARGS));
183*3d8817e4Smiod
184*3d8817e4Smiod bfd_boolean (*xcoff64_calculate_relocation[XCOFF_MAX_CALCULATE_RELOCATION])
185*3d8817e4Smiod PARAMS ((XCOFF_RELOC_FUNCTION_ARGS)) =
186*3d8817e4Smiod {
187*3d8817e4Smiod xcoff_reloc_type_pos, /* R_POS (0x00) */
188*3d8817e4Smiod xcoff_reloc_type_neg, /* R_NEG (0x01) */
189*3d8817e4Smiod xcoff_reloc_type_rel, /* R_REL (0x02) */
190*3d8817e4Smiod xcoff_reloc_type_toc, /* R_TOC (0x03) */
191*3d8817e4Smiod xcoff_reloc_type_fail, /* R_RTB (0x04) */
192*3d8817e4Smiod xcoff_reloc_type_toc, /* R_GL (0x05) */
193*3d8817e4Smiod xcoff_reloc_type_toc, /* R_TCL (0x06) */
194*3d8817e4Smiod xcoff_reloc_type_fail, /* (0x07) */
195*3d8817e4Smiod xcoff_reloc_type_ba, /* R_BA (0x08) */
196*3d8817e4Smiod xcoff_reloc_type_fail, /* (0x09) */
197*3d8817e4Smiod xcoff64_reloc_type_br, /* R_BR (0x0a) */
198*3d8817e4Smiod xcoff_reloc_type_fail, /* (0x0b) */
199*3d8817e4Smiod xcoff_reloc_type_pos, /* R_RL (0x0c) */
200*3d8817e4Smiod xcoff_reloc_type_pos, /* R_RLA (0x0d) */
201*3d8817e4Smiod xcoff_reloc_type_fail, /* (0x0e) */
202*3d8817e4Smiod xcoff_reloc_type_noop, /* R_REF (0x0f) */
203*3d8817e4Smiod xcoff_reloc_type_fail, /* (0x10) */
204*3d8817e4Smiod xcoff_reloc_type_fail, /* (0x11) */
205*3d8817e4Smiod xcoff_reloc_type_toc, /* R_TRL (0x12) */
206*3d8817e4Smiod xcoff_reloc_type_toc, /* R_TRLA (0x13) */
207*3d8817e4Smiod xcoff_reloc_type_fail, /* R_RRTBI (0x14) */
208*3d8817e4Smiod xcoff_reloc_type_fail, /* R_RRTBA (0x15) */
209*3d8817e4Smiod xcoff_reloc_type_ba, /* R_CAI (0x16) */
210*3d8817e4Smiod xcoff_reloc_type_crel, /* R_CREL (0x17) */
211*3d8817e4Smiod xcoff_reloc_type_ba, /* R_RBA (0x18) */
212*3d8817e4Smiod xcoff_reloc_type_ba, /* R_RBAC (0x19) */
213*3d8817e4Smiod xcoff64_reloc_type_br, /* R_RBR (0x1a) */
214*3d8817e4Smiod xcoff_reloc_type_ba, /* R_RBRC (0x1b) */
215*3d8817e4Smiod };
216*3d8817e4Smiod
217*3d8817e4Smiod /* coffcode.h needs these to be defined. */
218*3d8817e4Smiod /* Internalcoff.h and coffcode.h modify themselves based on these flags. */
219*3d8817e4Smiod #define XCOFF64
220*3d8817e4Smiod #define RS6000COFF_C 1
221*3d8817e4Smiod
222*3d8817e4Smiod #define SELECT_RELOC(internal, howto) \
223*3d8817e4Smiod { \
224*3d8817e4Smiod internal.r_type = howto->type; \
225*3d8817e4Smiod internal.r_size = \
226*3d8817e4Smiod ((howto->complain_on_overflow == complain_overflow_signed \
227*3d8817e4Smiod ? 0x80 \
228*3d8817e4Smiod : 0) \
229*3d8817e4Smiod | (howto->bitsize - 1)); \
230*3d8817e4Smiod }
231*3d8817e4Smiod
232*3d8817e4Smiod #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
233*3d8817e4Smiod #define COFF_LONG_FILENAMES
234*3d8817e4Smiod #define NO_COFF_SYMBOLS
235*3d8817e4Smiod #define RTYPE2HOWTO(cache_ptr, dst) xcoff64_rtype2howto (cache_ptr, dst)
236*3d8817e4Smiod #define coff_mkobject _bfd_xcoff_mkobject
237*3d8817e4Smiod #define coff_bfd_copy_private_bfd_data _bfd_xcoff_copy_private_bfd_data
238*3d8817e4Smiod #define coff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
239*3d8817e4Smiod #define coff_bfd_reloc_type_lookup xcoff64_reloc_type_lookup
240*3d8817e4Smiod #ifdef AIX_CORE
241*3d8817e4Smiod extern const bfd_target * rs6000coff_core_p
242*3d8817e4Smiod PARAMS ((bfd *abfd));
243*3d8817e4Smiod extern bfd_boolean rs6000coff_core_file_matches_executable_p
244*3d8817e4Smiod PARAMS ((bfd *cbfd, bfd *ebfd));
245*3d8817e4Smiod extern char *rs6000coff_core_file_failing_command
246*3d8817e4Smiod PARAMS ((bfd *abfd));
247*3d8817e4Smiod extern int rs6000coff_core_file_failing_signal
248*3d8817e4Smiod PARAMS ((bfd *abfd));
249*3d8817e4Smiod #define CORE_FILE_P rs6000coff_core_p
250*3d8817e4Smiod #define coff_core_file_failing_command \
251*3d8817e4Smiod rs6000coff_core_file_failing_command
252*3d8817e4Smiod #define coff_core_file_failing_signal \
253*3d8817e4Smiod rs6000coff_core_file_failing_signal
254*3d8817e4Smiod #define coff_core_file_matches_executable_p \
255*3d8817e4Smiod rs6000coff_core_file_matches_executable_p
256*3d8817e4Smiod #else
257*3d8817e4Smiod #define CORE_FILE_P _bfd_dummy_target
258*3d8817e4Smiod #define coff_core_file_failing_command \
259*3d8817e4Smiod _bfd_nocore_core_file_failing_command
260*3d8817e4Smiod #define coff_core_file_failing_signal \
261*3d8817e4Smiod _bfd_nocore_core_file_failing_signal
262*3d8817e4Smiod #define coff_core_file_matches_executable_p \
263*3d8817e4Smiod _bfd_nocore_core_file_matches_executable_p
264*3d8817e4Smiod #endif
265*3d8817e4Smiod #define coff_SWAP_sym_in _bfd_xcoff64_swap_sym_in
266*3d8817e4Smiod #define coff_SWAP_sym_out _bfd_xcoff64_swap_sym_out
267*3d8817e4Smiod #define coff_SWAP_aux_in _bfd_xcoff64_swap_aux_in
268*3d8817e4Smiod #define coff_SWAP_aux_out _bfd_xcoff64_swap_aux_out
269*3d8817e4Smiod #define coff_swap_reloc_in xcoff64_swap_reloc_in
270*3d8817e4Smiod #define coff_swap_reloc_out xcoff64_swap_reloc_out
271*3d8817e4Smiod #define NO_COFF_RELOCS
272*3d8817e4Smiod
273*3d8817e4Smiod #include "coffcode.h"
274*3d8817e4Smiod
275*3d8817e4Smiod /* For XCOFF64, the effective width of symndx changes depending on
276*3d8817e4Smiod whether we are the first entry. Sigh. */
277*3d8817e4Smiod static void
_bfd_xcoff64_swap_lineno_in(abfd,ext1,in1)278*3d8817e4Smiod _bfd_xcoff64_swap_lineno_in (abfd, ext1, in1)
279*3d8817e4Smiod bfd *abfd;
280*3d8817e4Smiod PTR ext1;
281*3d8817e4Smiod PTR in1;
282*3d8817e4Smiod {
283*3d8817e4Smiod LINENO *ext = (LINENO *) ext1;
284*3d8817e4Smiod struct internal_lineno *in = (struct internal_lineno *) in1;
285*3d8817e4Smiod
286*3d8817e4Smiod in->l_lnno = H_GET_32 (abfd, (ext->l_lnno));
287*3d8817e4Smiod if (in->l_lnno == 0)
288*3d8817e4Smiod in->l_addr.l_symndx = H_GET_32 (abfd, ext->l_addr.l_symndx);
289*3d8817e4Smiod else
290*3d8817e4Smiod in->l_addr.l_paddr = H_GET_64 (abfd, ext->l_addr.l_paddr);
291*3d8817e4Smiod }
292*3d8817e4Smiod
293*3d8817e4Smiod static unsigned int
_bfd_xcoff64_swap_lineno_out(abfd,inp,outp)294*3d8817e4Smiod _bfd_xcoff64_swap_lineno_out (abfd, inp, outp)
295*3d8817e4Smiod bfd *abfd;
296*3d8817e4Smiod PTR inp;
297*3d8817e4Smiod PTR outp;
298*3d8817e4Smiod {
299*3d8817e4Smiod struct internal_lineno *in = (struct internal_lineno *) inp;
300*3d8817e4Smiod struct external_lineno *ext = (struct external_lineno *) outp;
301*3d8817e4Smiod
302*3d8817e4Smiod H_PUT_32 (abfd, in->l_addr.l_symndx, ext->l_addr.l_symndx);
303*3d8817e4Smiod H_PUT_32 (abfd, in->l_lnno, (ext->l_lnno));
304*3d8817e4Smiod
305*3d8817e4Smiod if (in->l_lnno == 0)
306*3d8817e4Smiod H_PUT_32 (abfd, in->l_addr.l_symndx, ext->l_addr.l_symndx);
307*3d8817e4Smiod else
308*3d8817e4Smiod H_PUT_64 (abfd, in->l_addr.l_paddr, ext->l_addr.l_paddr);
309*3d8817e4Smiod
310*3d8817e4Smiod return bfd_coff_linesz (abfd);
311*3d8817e4Smiod }
312*3d8817e4Smiod
313*3d8817e4Smiod static void
_bfd_xcoff64_swap_sym_in(abfd,ext1,in1)314*3d8817e4Smiod _bfd_xcoff64_swap_sym_in (abfd, ext1, in1)
315*3d8817e4Smiod bfd *abfd;
316*3d8817e4Smiod PTR ext1;
317*3d8817e4Smiod PTR in1;
318*3d8817e4Smiod {
319*3d8817e4Smiod struct external_syment *ext = (struct external_syment *) ext1;
320*3d8817e4Smiod struct internal_syment *in = (struct internal_syment *) in1;
321*3d8817e4Smiod
322*3d8817e4Smiod in->_n._n_n._n_zeroes = 0;
323*3d8817e4Smiod in->_n._n_n._n_offset = H_GET_32 (abfd, ext->e_offset);
324*3d8817e4Smiod in->n_value = H_GET_64 (abfd, ext->e_value);
325*3d8817e4Smiod in->n_scnum = H_GET_16 (abfd, ext->e_scnum);
326*3d8817e4Smiod in->n_type = H_GET_16 (abfd, ext->e_type);
327*3d8817e4Smiod in->n_sclass = H_GET_8 (abfd, ext->e_sclass);
328*3d8817e4Smiod in->n_numaux = H_GET_8 (abfd, ext->e_numaux);
329*3d8817e4Smiod }
330*3d8817e4Smiod
331*3d8817e4Smiod static unsigned int
_bfd_xcoff64_swap_sym_out(abfd,inp,extp)332*3d8817e4Smiod _bfd_xcoff64_swap_sym_out (abfd, inp, extp)
333*3d8817e4Smiod bfd *abfd;
334*3d8817e4Smiod PTR inp;
335*3d8817e4Smiod PTR extp;
336*3d8817e4Smiod {
337*3d8817e4Smiod struct internal_syment *in = (struct internal_syment *) inp;
338*3d8817e4Smiod struct external_syment *ext = (struct external_syment *) extp;
339*3d8817e4Smiod
340*3d8817e4Smiod H_PUT_32 (abfd, in->_n._n_n._n_offset, ext->e_offset);
341*3d8817e4Smiod H_PUT_64 (abfd, in->n_value, ext->e_value);
342*3d8817e4Smiod H_PUT_16 (abfd, in->n_scnum, ext->e_scnum);
343*3d8817e4Smiod H_PUT_16 (abfd, in->n_type, ext->e_type);
344*3d8817e4Smiod H_PUT_8 (abfd, in->n_sclass, ext->e_sclass);
345*3d8817e4Smiod H_PUT_8 (abfd, in->n_numaux, ext->e_numaux);
346*3d8817e4Smiod return bfd_coff_symesz (abfd);
347*3d8817e4Smiod }
348*3d8817e4Smiod
349*3d8817e4Smiod static void
_bfd_xcoff64_swap_aux_in(abfd,ext1,type,class,indx,numaux,in1)350*3d8817e4Smiod _bfd_xcoff64_swap_aux_in (abfd, ext1, type, class, indx, numaux, in1)
351*3d8817e4Smiod bfd *abfd;
352*3d8817e4Smiod PTR ext1;
353*3d8817e4Smiod int type;
354*3d8817e4Smiod int class;
355*3d8817e4Smiod int indx;
356*3d8817e4Smiod int numaux;
357*3d8817e4Smiod PTR in1;
358*3d8817e4Smiod {
359*3d8817e4Smiod union external_auxent *ext = (union external_auxent *) ext1;
360*3d8817e4Smiod union internal_auxent *in = (union internal_auxent *) in1;
361*3d8817e4Smiod
362*3d8817e4Smiod switch (class)
363*3d8817e4Smiod {
364*3d8817e4Smiod case C_FILE:
365*3d8817e4Smiod if (ext->x_file.x_n.x_zeroes[0] == 0)
366*3d8817e4Smiod {
367*3d8817e4Smiod in->x_file.x_n.x_zeroes = 0;
368*3d8817e4Smiod in->x_file.x_n.x_offset = H_GET_32 (abfd, ext->x_file.x_n.x_offset);
369*3d8817e4Smiod }
370*3d8817e4Smiod else
371*3d8817e4Smiod {
372*3d8817e4Smiod memcpy (in->x_file.x_fname, ext->x_file.x_fname, FILNMLEN);
373*3d8817e4Smiod }
374*3d8817e4Smiod goto end;
375*3d8817e4Smiod
376*3d8817e4Smiod /* RS/6000 "csect" auxents */
377*3d8817e4Smiod case C_EXT:
378*3d8817e4Smiod case C_HIDEXT:
379*3d8817e4Smiod if (indx + 1 == numaux)
380*3d8817e4Smiod {
381*3d8817e4Smiod bfd_signed_vma h = 0;
382*3d8817e4Smiod bfd_vma l = 0;
383*3d8817e4Smiod
384*3d8817e4Smiod h = H_GET_S32 (abfd, ext->x_csect.x_scnlen_hi);
385*3d8817e4Smiod l = H_GET_32 (abfd, ext->x_csect.x_scnlen_lo);
386*3d8817e4Smiod
387*3d8817e4Smiod in->x_csect.x_scnlen.l = h << 32 | (l & 0xffffffff);
388*3d8817e4Smiod
389*3d8817e4Smiod in->x_csect.x_parmhash = H_GET_32 (abfd, ext->x_csect.x_parmhash);
390*3d8817e4Smiod in->x_csect.x_snhash = H_GET_16 (abfd, ext->x_csect.x_snhash);
391*3d8817e4Smiod /* We don't have to hack bitfields in x_smtyp because it's
392*3d8817e4Smiod defined by shifts-and-ands, which are equivalent on all
393*3d8817e4Smiod byte orders. */
394*3d8817e4Smiod in->x_csect.x_smtyp = H_GET_8 (abfd, ext->x_csect.x_smtyp);
395*3d8817e4Smiod in->x_csect.x_smclas = H_GET_8 (abfd, ext->x_csect.x_smclas);
396*3d8817e4Smiod goto end;
397*3d8817e4Smiod }
398*3d8817e4Smiod break;
399*3d8817e4Smiod
400*3d8817e4Smiod case C_STAT:
401*3d8817e4Smiod case C_LEAFSTAT:
402*3d8817e4Smiod case C_HIDDEN:
403*3d8817e4Smiod if (type == T_NULL)
404*3d8817e4Smiod {
405*3d8817e4Smiod /* PE defines some extra fields; we zero them out for
406*3d8817e4Smiod safety. */
407*3d8817e4Smiod in->x_scn.x_checksum = 0;
408*3d8817e4Smiod in->x_scn.x_associated = 0;
409*3d8817e4Smiod in->x_scn.x_comdat = 0;
410*3d8817e4Smiod
411*3d8817e4Smiod goto end;
412*3d8817e4Smiod }
413*3d8817e4Smiod break;
414*3d8817e4Smiod }
415*3d8817e4Smiod
416*3d8817e4Smiod if (class == C_BLOCK || class == C_FCN || ISFCN (type) || ISTAG (class))
417*3d8817e4Smiod {
418*3d8817e4Smiod in->x_sym.x_fcnary.x_fcn.x_lnnoptr
419*3d8817e4Smiod = H_GET_64 (abfd, ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
420*3d8817e4Smiod in->x_sym.x_fcnary.x_fcn.x_endndx.l
421*3d8817e4Smiod = H_GET_32 (abfd, ext->x_sym.x_fcnary.x_fcn.x_endndx);
422*3d8817e4Smiod }
423*3d8817e4Smiod if (ISFCN (type))
424*3d8817e4Smiod {
425*3d8817e4Smiod in->x_sym.x_misc.x_fsize
426*3d8817e4Smiod = H_GET_32 (abfd, ext->x_sym.x_fcnary.x_fcn.x_fsize);
427*3d8817e4Smiod }
428*3d8817e4Smiod else
429*3d8817e4Smiod {
430*3d8817e4Smiod in->x_sym.x_misc.x_lnsz.x_lnno
431*3d8817e4Smiod = H_GET_32 (abfd, ext->x_sym.x_fcnary.x_lnsz.x_lnno);
432*3d8817e4Smiod in->x_sym.x_misc.x_lnsz.x_size
433*3d8817e4Smiod = H_GET_16 (abfd, ext->x_sym.x_fcnary.x_lnsz.x_size);
434*3d8817e4Smiod }
435*3d8817e4Smiod
436*3d8817e4Smiod end: ;
437*3d8817e4Smiod }
438*3d8817e4Smiod
439*3d8817e4Smiod static unsigned int
_bfd_xcoff64_swap_aux_out(abfd,inp,type,class,indx,numaux,extp)440*3d8817e4Smiod _bfd_xcoff64_swap_aux_out (abfd, inp, type, class, indx, numaux, extp)
441*3d8817e4Smiod bfd *abfd;
442*3d8817e4Smiod PTR inp;
443*3d8817e4Smiod int type;
444*3d8817e4Smiod int class;
445*3d8817e4Smiod int indx ATTRIBUTE_UNUSED;
446*3d8817e4Smiod int numaux ATTRIBUTE_UNUSED;
447*3d8817e4Smiod PTR extp;
448*3d8817e4Smiod {
449*3d8817e4Smiod union internal_auxent *in = (union internal_auxent *) inp;
450*3d8817e4Smiod union external_auxent *ext = (union external_auxent *) extp;
451*3d8817e4Smiod
452*3d8817e4Smiod memset ((PTR) ext, 0, bfd_coff_auxesz (abfd));
453*3d8817e4Smiod switch (class)
454*3d8817e4Smiod {
455*3d8817e4Smiod case C_FILE:
456*3d8817e4Smiod if (in->x_file.x_n.x_zeroes == 0)
457*3d8817e4Smiod {
458*3d8817e4Smiod H_PUT_32 (abfd, 0, ext->x_file.x_n.x_zeroes);
459*3d8817e4Smiod H_PUT_32 (abfd, in->x_file.x_n.x_offset, ext->x_file.x_n.x_offset);
460*3d8817e4Smiod }
461*3d8817e4Smiod else
462*3d8817e4Smiod {
463*3d8817e4Smiod memcpy (ext->x_file.x_fname, in->x_file.x_fname, FILNMLEN);
464*3d8817e4Smiod }
465*3d8817e4Smiod H_PUT_8 (abfd, _AUX_FILE, ext->x_auxtype.x_auxtype);
466*3d8817e4Smiod goto end;
467*3d8817e4Smiod
468*3d8817e4Smiod /* RS/6000 "csect" auxents */
469*3d8817e4Smiod case C_EXT:
470*3d8817e4Smiod case C_HIDEXT:
471*3d8817e4Smiod if (indx + 1 == numaux)
472*3d8817e4Smiod {
473*3d8817e4Smiod bfd_vma temp;
474*3d8817e4Smiod
475*3d8817e4Smiod temp = in->x_csect.x_scnlen.l & 0xffffffff;
476*3d8817e4Smiod H_PUT_32 (abfd, temp, ext->x_csect.x_scnlen_lo);
477*3d8817e4Smiod temp = in->x_csect.x_scnlen.l >> 32;
478*3d8817e4Smiod H_PUT_32 (abfd, temp, ext->x_csect.x_scnlen_hi);
479*3d8817e4Smiod H_PUT_32 (abfd, in->x_csect.x_parmhash, ext->x_csect.x_parmhash);
480*3d8817e4Smiod H_PUT_16 (abfd, in->x_csect.x_snhash, ext->x_csect.x_snhash);
481*3d8817e4Smiod /* We don't have to hack bitfields in x_smtyp because it's
482*3d8817e4Smiod defined by shifts-and-ands, which are equivalent on all
483*3d8817e4Smiod byte orders. */
484*3d8817e4Smiod H_PUT_8 (abfd, in->x_csect.x_smtyp, ext->x_csect.x_smtyp);
485*3d8817e4Smiod H_PUT_8 (abfd, in->x_csect.x_smclas, ext->x_csect.x_smclas);
486*3d8817e4Smiod H_PUT_8 (abfd, _AUX_CSECT, ext->x_auxtype.x_auxtype);
487*3d8817e4Smiod goto end;
488*3d8817e4Smiod }
489*3d8817e4Smiod break;
490*3d8817e4Smiod
491*3d8817e4Smiod case C_STAT:
492*3d8817e4Smiod case C_LEAFSTAT:
493*3d8817e4Smiod case C_HIDDEN:
494*3d8817e4Smiod if (type == T_NULL)
495*3d8817e4Smiod {
496*3d8817e4Smiod goto end;
497*3d8817e4Smiod }
498*3d8817e4Smiod break;
499*3d8817e4Smiod }
500*3d8817e4Smiod
501*3d8817e4Smiod if (class == C_BLOCK || class == C_FCN || ISFCN (type) || ISTAG (class))
502*3d8817e4Smiod {
503*3d8817e4Smiod H_PUT_64 (abfd, in->x_sym.x_fcnary.x_fcn.x_lnnoptr,
504*3d8817e4Smiod ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
505*3d8817e4Smiod H_PUT_8 (abfd, _AUX_FCN,
506*3d8817e4Smiod ext->x_auxtype.x_auxtype);
507*3d8817e4Smiod H_PUT_32 (abfd, in->x_sym.x_fcnary.x_fcn.x_endndx.l,
508*3d8817e4Smiod ext->x_sym.x_fcnary.x_fcn.x_endndx);
509*3d8817e4Smiod }
510*3d8817e4Smiod if (ISFCN (type))
511*3d8817e4Smiod {
512*3d8817e4Smiod H_PUT_32 (abfd, in->x_sym.x_misc.x_fsize,
513*3d8817e4Smiod ext->x_sym.x_fcnary.x_fcn.x_fsize);
514*3d8817e4Smiod }
515*3d8817e4Smiod else
516*3d8817e4Smiod {
517*3d8817e4Smiod H_PUT_32 (abfd, in->x_sym.x_misc.x_lnsz.x_lnno,
518*3d8817e4Smiod ext->x_sym.x_fcnary.x_lnsz.x_lnno);
519*3d8817e4Smiod H_PUT_16 (abfd, in->x_sym.x_misc.x_lnsz.x_size,
520*3d8817e4Smiod ext->x_sym.x_fcnary.x_lnsz.x_size);
521*3d8817e4Smiod }
522*3d8817e4Smiod
523*3d8817e4Smiod end:
524*3d8817e4Smiod
525*3d8817e4Smiod return bfd_coff_auxesz (abfd);
526*3d8817e4Smiod }
527*3d8817e4Smiod
528*3d8817e4Smiod static bfd_boolean
_bfd_xcoff64_put_symbol_name(abfd,strtab,sym,name)529*3d8817e4Smiod _bfd_xcoff64_put_symbol_name (abfd, strtab, sym, name)
530*3d8817e4Smiod bfd *abfd;
531*3d8817e4Smiod struct bfd_strtab_hash *strtab;
532*3d8817e4Smiod struct internal_syment *sym;
533*3d8817e4Smiod const char *name;
534*3d8817e4Smiod {
535*3d8817e4Smiod bfd_boolean hash;
536*3d8817e4Smiod bfd_size_type indx;
537*3d8817e4Smiod
538*3d8817e4Smiod hash = TRUE;
539*3d8817e4Smiod
540*3d8817e4Smiod if ((abfd->flags & BFD_TRADITIONAL_FORMAT) != 0)
541*3d8817e4Smiod hash = FALSE;
542*3d8817e4Smiod
543*3d8817e4Smiod indx = _bfd_stringtab_add (strtab, name, hash, FALSE);
544*3d8817e4Smiod
545*3d8817e4Smiod if (indx == (bfd_size_type) -1)
546*3d8817e4Smiod return FALSE;
547*3d8817e4Smiod
548*3d8817e4Smiod sym->_n._n_n._n_zeroes = 0;
549*3d8817e4Smiod sym->_n._n_n._n_offset = STRING_SIZE_SIZE + indx;
550*3d8817e4Smiod
551*3d8817e4Smiod return TRUE;
552*3d8817e4Smiod }
553*3d8817e4Smiod
554*3d8817e4Smiod static bfd_boolean
_bfd_xcoff64_put_ldsymbol_name(abfd,ldinfo,ldsym,name)555*3d8817e4Smiod _bfd_xcoff64_put_ldsymbol_name (abfd, ldinfo, ldsym, name)
556*3d8817e4Smiod bfd *abfd ATTRIBUTE_UNUSED;
557*3d8817e4Smiod struct xcoff_loader_info *ldinfo;
558*3d8817e4Smiod struct internal_ldsym *ldsym;
559*3d8817e4Smiod const char *name;
560*3d8817e4Smiod {
561*3d8817e4Smiod size_t len;
562*3d8817e4Smiod len = strlen (name);
563*3d8817e4Smiod
564*3d8817e4Smiod if (ldinfo->string_size + len + 3 > ldinfo->string_alc)
565*3d8817e4Smiod {
566*3d8817e4Smiod bfd_size_type newalc;
567*3d8817e4Smiod char *newstrings;
568*3d8817e4Smiod
569*3d8817e4Smiod newalc = ldinfo->string_alc * 2;
570*3d8817e4Smiod if (newalc == 0)
571*3d8817e4Smiod newalc = 32;
572*3d8817e4Smiod while (ldinfo->string_size + len + 3 > newalc)
573*3d8817e4Smiod newalc *= 2;
574*3d8817e4Smiod
575*3d8817e4Smiod newstrings = bfd_realloc (ldinfo->strings, newalc);
576*3d8817e4Smiod if (newstrings == NULL)
577*3d8817e4Smiod {
578*3d8817e4Smiod ldinfo->failed = TRUE;
579*3d8817e4Smiod return FALSE;
580*3d8817e4Smiod }
581*3d8817e4Smiod ldinfo->string_alc = newalc;
582*3d8817e4Smiod ldinfo->strings = newstrings;
583*3d8817e4Smiod }
584*3d8817e4Smiod
585*3d8817e4Smiod bfd_put_16 (ldinfo->output_bfd, (bfd_vma) (len + 1),
586*3d8817e4Smiod ldinfo->strings + ldinfo->string_size);
587*3d8817e4Smiod strcpy (ldinfo->strings + ldinfo->string_size + 2, name);
588*3d8817e4Smiod ldsym->_l._l_l._l_zeroes = 0;
589*3d8817e4Smiod ldsym->_l._l_l._l_offset = ldinfo->string_size + 2;
590*3d8817e4Smiod ldinfo->string_size += len + 3;
591*3d8817e4Smiod
592*3d8817e4Smiod return TRUE;
593*3d8817e4Smiod }
594*3d8817e4Smiod
595*3d8817e4Smiod /* Routines to swap information in the XCOFF .loader section. If we
596*3d8817e4Smiod ever need to write an XCOFF loader, this stuff will need to be
597*3d8817e4Smiod moved to another file shared by the linker (which XCOFF calls the
598*3d8817e4Smiod ``binder'') and the loader. */
599*3d8817e4Smiod
600*3d8817e4Smiod /* Swap in the ldhdr structure. */
601*3d8817e4Smiod
602*3d8817e4Smiod static void
xcoff64_swap_ldhdr_in(abfd,s,dst)603*3d8817e4Smiod xcoff64_swap_ldhdr_in (abfd, s, dst)
604*3d8817e4Smiod bfd *abfd;
605*3d8817e4Smiod const PTR s;
606*3d8817e4Smiod struct internal_ldhdr *dst;
607*3d8817e4Smiod {
608*3d8817e4Smiod const struct external_ldhdr *src = (const struct external_ldhdr *) s;
609*3d8817e4Smiod
610*3d8817e4Smiod dst->l_version = bfd_get_32 (abfd, src->l_version);
611*3d8817e4Smiod dst->l_nsyms = bfd_get_32 (abfd, src->l_nsyms);
612*3d8817e4Smiod dst->l_nreloc = bfd_get_32 (abfd, src->l_nreloc);
613*3d8817e4Smiod dst->l_istlen = bfd_get_32 (abfd, src->l_istlen);
614*3d8817e4Smiod dst->l_nimpid = bfd_get_32 (abfd, src->l_nimpid);
615*3d8817e4Smiod dst->l_stlen = bfd_get_32 (abfd, src->l_stlen);
616*3d8817e4Smiod dst->l_impoff = bfd_get_64 (abfd, src->l_impoff);
617*3d8817e4Smiod dst->l_stoff = bfd_get_64 (abfd, src->l_stoff);
618*3d8817e4Smiod dst->l_symoff = bfd_get_64 (abfd, src->l_symoff);
619*3d8817e4Smiod dst->l_rldoff = bfd_get_64 (abfd, src->l_rldoff);
620*3d8817e4Smiod }
621*3d8817e4Smiod
622*3d8817e4Smiod /* Swap out the ldhdr structure. */
623*3d8817e4Smiod
624*3d8817e4Smiod static void
xcoff64_swap_ldhdr_out(abfd,src,d)625*3d8817e4Smiod xcoff64_swap_ldhdr_out (abfd, src, d)
626*3d8817e4Smiod bfd *abfd;
627*3d8817e4Smiod const struct internal_ldhdr *src;
628*3d8817e4Smiod PTR d;
629*3d8817e4Smiod {
630*3d8817e4Smiod struct external_ldhdr *dst = (struct external_ldhdr *) d;
631*3d8817e4Smiod
632*3d8817e4Smiod bfd_put_32 (abfd, (bfd_vma) src->l_version, dst->l_version);
633*3d8817e4Smiod bfd_put_32 (abfd, src->l_nsyms, dst->l_nsyms);
634*3d8817e4Smiod bfd_put_32 (abfd, src->l_nreloc, dst->l_nreloc);
635*3d8817e4Smiod bfd_put_32 (abfd, src->l_istlen, dst->l_istlen);
636*3d8817e4Smiod bfd_put_32 (abfd, src->l_nimpid, dst->l_nimpid);
637*3d8817e4Smiod bfd_put_32 (abfd, src->l_stlen, dst->l_stlen);
638*3d8817e4Smiod bfd_put_64 (abfd, src->l_impoff, dst->l_impoff);
639*3d8817e4Smiod bfd_put_64 (abfd, src->l_stoff, dst->l_stoff);
640*3d8817e4Smiod bfd_put_64 (abfd, src->l_symoff, dst->l_symoff);
641*3d8817e4Smiod bfd_put_64 (abfd, src->l_rldoff, dst->l_rldoff);
642*3d8817e4Smiod }
643*3d8817e4Smiod
644*3d8817e4Smiod /* Swap in the ldsym structure. */
645*3d8817e4Smiod
646*3d8817e4Smiod static void
xcoff64_swap_ldsym_in(abfd,s,dst)647*3d8817e4Smiod xcoff64_swap_ldsym_in (abfd, s, dst)
648*3d8817e4Smiod bfd *abfd;
649*3d8817e4Smiod const PTR s;
650*3d8817e4Smiod struct internal_ldsym *dst;
651*3d8817e4Smiod {
652*3d8817e4Smiod const struct external_ldsym *src = (const struct external_ldsym *) s;
653*3d8817e4Smiod /* XCOFF64 does not use l_zeroes like XCOFF32
654*3d8817e4Smiod Set the internal l_zeroes to 0 so the common 32/64 code uses l_value
655*3d8817e4Smiod as an offset into the loader symbol table. */
656*3d8817e4Smiod dst->_l._l_l._l_zeroes = 0;
657*3d8817e4Smiod dst->_l._l_l._l_offset = bfd_get_32 (abfd, src->l_offset);
658*3d8817e4Smiod dst->l_value = bfd_get_64 (abfd, src->l_value);
659*3d8817e4Smiod dst->l_scnum = bfd_get_16 (abfd, src->l_scnum);
660*3d8817e4Smiod dst->l_smtype = bfd_get_8 (abfd, src->l_smtype);
661*3d8817e4Smiod dst->l_smclas = bfd_get_8 (abfd, src->l_smclas);
662*3d8817e4Smiod dst->l_ifile = bfd_get_32 (abfd, src->l_ifile);
663*3d8817e4Smiod dst->l_parm = bfd_get_32 (abfd, src->l_parm);
664*3d8817e4Smiod }
665*3d8817e4Smiod
666*3d8817e4Smiod /* Swap out the ldsym structure. */
667*3d8817e4Smiod
668*3d8817e4Smiod static void
xcoff64_swap_ldsym_out(abfd,src,d)669*3d8817e4Smiod xcoff64_swap_ldsym_out (abfd, src, d)
670*3d8817e4Smiod bfd *abfd;
671*3d8817e4Smiod const struct internal_ldsym *src;
672*3d8817e4Smiod PTR d;
673*3d8817e4Smiod {
674*3d8817e4Smiod struct external_ldsym *dst = (struct external_ldsym *) d;
675*3d8817e4Smiod
676*3d8817e4Smiod bfd_put_64 (abfd, src->l_value, dst->l_value);
677*3d8817e4Smiod bfd_put_32 (abfd, (bfd_vma) src->_l._l_l._l_offset, dst->l_offset);
678*3d8817e4Smiod bfd_put_16 (abfd, (bfd_vma) src->l_scnum, dst->l_scnum);
679*3d8817e4Smiod bfd_put_8 (abfd, src->l_smtype, dst->l_smtype);
680*3d8817e4Smiod bfd_put_8 (abfd, src->l_smclas, dst->l_smclas);
681*3d8817e4Smiod bfd_put_32 (abfd, src->l_ifile, dst->l_ifile);
682*3d8817e4Smiod bfd_put_32 (abfd, src->l_parm, dst->l_parm);
683*3d8817e4Smiod }
684*3d8817e4Smiod
685*3d8817e4Smiod static void
xcoff64_swap_reloc_in(abfd,s,d)686*3d8817e4Smiod xcoff64_swap_reloc_in (abfd, s, d)
687*3d8817e4Smiod bfd *abfd;
688*3d8817e4Smiod PTR s;
689*3d8817e4Smiod PTR d;
690*3d8817e4Smiod {
691*3d8817e4Smiod struct external_reloc *src = (struct external_reloc *) s;
692*3d8817e4Smiod struct internal_reloc *dst = (struct internal_reloc *) d;
693*3d8817e4Smiod
694*3d8817e4Smiod memset (dst, 0, sizeof (struct internal_reloc));
695*3d8817e4Smiod
696*3d8817e4Smiod dst->r_vaddr = bfd_get_64 (abfd, src->r_vaddr);
697*3d8817e4Smiod dst->r_symndx = bfd_get_32 (abfd, src->r_symndx);
698*3d8817e4Smiod dst->r_size = bfd_get_8 (abfd, src->r_size);
699*3d8817e4Smiod dst->r_type = bfd_get_8 (abfd, src->r_type);
700*3d8817e4Smiod }
701*3d8817e4Smiod
702*3d8817e4Smiod static unsigned int
xcoff64_swap_reloc_out(abfd,s,d)703*3d8817e4Smiod xcoff64_swap_reloc_out (abfd, s, d)
704*3d8817e4Smiod bfd *abfd;
705*3d8817e4Smiod PTR s;
706*3d8817e4Smiod PTR d;
707*3d8817e4Smiod {
708*3d8817e4Smiod struct internal_reloc *src = (struct internal_reloc *) s;
709*3d8817e4Smiod struct external_reloc *dst = (struct external_reloc *) d;
710*3d8817e4Smiod
711*3d8817e4Smiod bfd_put_64 (abfd, src->r_vaddr, dst->r_vaddr);
712*3d8817e4Smiod bfd_put_32 (abfd, src->r_symndx, dst->r_symndx);
713*3d8817e4Smiod bfd_put_8 (abfd, src->r_type, dst->r_type);
714*3d8817e4Smiod bfd_put_8 (abfd, src->r_size, dst->r_size);
715*3d8817e4Smiod
716*3d8817e4Smiod return bfd_coff_relsz (abfd);
717*3d8817e4Smiod }
718*3d8817e4Smiod
719*3d8817e4Smiod /* Swap in the ldrel structure. */
720*3d8817e4Smiod
721*3d8817e4Smiod static void
xcoff64_swap_ldrel_in(abfd,s,dst)722*3d8817e4Smiod xcoff64_swap_ldrel_in (abfd, s, dst)
723*3d8817e4Smiod bfd *abfd;
724*3d8817e4Smiod const PTR s;
725*3d8817e4Smiod struct internal_ldrel *dst;
726*3d8817e4Smiod {
727*3d8817e4Smiod const struct external_ldrel *src = (const struct external_ldrel *) s;
728*3d8817e4Smiod
729*3d8817e4Smiod dst->l_vaddr = bfd_get_64 (abfd, src->l_vaddr);
730*3d8817e4Smiod dst->l_symndx = bfd_get_32 (abfd, src->l_symndx);
731*3d8817e4Smiod dst->l_rtype = bfd_get_16 (abfd, src->l_rtype);
732*3d8817e4Smiod dst->l_rsecnm = bfd_get_16 (abfd, src->l_rsecnm);
733*3d8817e4Smiod }
734*3d8817e4Smiod
735*3d8817e4Smiod /* Swap out the ldrel structure. */
736*3d8817e4Smiod
737*3d8817e4Smiod static void
xcoff64_swap_ldrel_out(abfd,src,d)738*3d8817e4Smiod xcoff64_swap_ldrel_out (abfd, src, d)
739*3d8817e4Smiod bfd *abfd;
740*3d8817e4Smiod const struct internal_ldrel *src;
741*3d8817e4Smiod PTR d;
742*3d8817e4Smiod {
743*3d8817e4Smiod struct external_ldrel *dst = (struct external_ldrel *) d;
744*3d8817e4Smiod
745*3d8817e4Smiod bfd_put_64 (abfd, src->l_vaddr, dst->l_vaddr);
746*3d8817e4Smiod bfd_put_16 (abfd, (bfd_vma) src->l_rtype, dst->l_rtype);
747*3d8817e4Smiod bfd_put_16 (abfd, (bfd_vma) src->l_rsecnm, dst->l_rsecnm);
748*3d8817e4Smiod bfd_put_32 (abfd, src->l_symndx, dst->l_symndx);
749*3d8817e4Smiod }
750*3d8817e4Smiod
751*3d8817e4Smiod static bfd_boolean
xcoff64_write_object_contents(abfd)752*3d8817e4Smiod xcoff64_write_object_contents (abfd)
753*3d8817e4Smiod bfd *abfd;
754*3d8817e4Smiod {
755*3d8817e4Smiod asection *current;
756*3d8817e4Smiod bfd_boolean hasrelocs = FALSE;
757*3d8817e4Smiod bfd_boolean haslinno = FALSE;
758*3d8817e4Smiod file_ptr scn_base;
759*3d8817e4Smiod file_ptr reloc_base;
760*3d8817e4Smiod file_ptr lineno_base;
761*3d8817e4Smiod file_ptr sym_base;
762*3d8817e4Smiod unsigned long reloc_size = 0;
763*3d8817e4Smiod unsigned long lnno_size = 0;
764*3d8817e4Smiod bfd_boolean long_section_names;
765*3d8817e4Smiod asection *text_sec = ((void *) 0);
766*3d8817e4Smiod asection *data_sec = ((void *) 0);
767*3d8817e4Smiod asection *bss_sec = ((void *) 0);
768*3d8817e4Smiod struct internal_filehdr internal_f;
769*3d8817e4Smiod struct internal_aouthdr internal_a;
770*3d8817e4Smiod
771*3d8817e4Smiod bfd_set_error (bfd_error_system_call);
772*3d8817e4Smiod
773*3d8817e4Smiod if (! abfd->output_has_begun)
774*3d8817e4Smiod {
775*3d8817e4Smiod if (! bfd_coff_compute_section_file_positions (abfd))
776*3d8817e4Smiod return FALSE;
777*3d8817e4Smiod }
778*3d8817e4Smiod
779*3d8817e4Smiod /* Work out the size of the reloc and linno areas. */
780*3d8817e4Smiod reloc_base = obj_relocbase (abfd);
781*3d8817e4Smiod
782*3d8817e4Smiod for (current = abfd->sections; current != NULL; current = current->next)
783*3d8817e4Smiod reloc_size += current->reloc_count * bfd_coff_relsz (abfd);
784*3d8817e4Smiod
785*3d8817e4Smiod lineno_base = reloc_base + reloc_size;
786*3d8817e4Smiod
787*3d8817e4Smiod /* Make a pass through the symbol table to count line number entries and
788*3d8817e4Smiod put them into the correct asections. */
789*3d8817e4Smiod lnno_size = coff_count_linenumbers (abfd) * bfd_coff_linesz (abfd);
790*3d8817e4Smiod
791*3d8817e4Smiod sym_base = lineno_base + lnno_size;
792*3d8817e4Smiod
793*3d8817e4Smiod /* Indicate in each section->line_filepos its actual file address. */
794*3d8817e4Smiod for (current = abfd->sections; current != NULL; current = current->next)
795*3d8817e4Smiod {
796*3d8817e4Smiod if (current->lineno_count)
797*3d8817e4Smiod {
798*3d8817e4Smiod current->line_filepos = lineno_base;
799*3d8817e4Smiod current->moving_line_filepos = lineno_base;
800*3d8817e4Smiod lineno_base += current->lineno_count * bfd_coff_linesz (abfd);
801*3d8817e4Smiod }
802*3d8817e4Smiod else
803*3d8817e4Smiod {
804*3d8817e4Smiod current->line_filepos = 0;
805*3d8817e4Smiod }
806*3d8817e4Smiod
807*3d8817e4Smiod if (current->reloc_count)
808*3d8817e4Smiod {
809*3d8817e4Smiod current->rel_filepos = reloc_base;
810*3d8817e4Smiod reloc_base += current->reloc_count * bfd_coff_relsz (abfd);
811*3d8817e4Smiod }
812*3d8817e4Smiod else
813*3d8817e4Smiod {
814*3d8817e4Smiod current->rel_filepos = 0;
815*3d8817e4Smiod }
816*3d8817e4Smiod }
817*3d8817e4Smiod
818*3d8817e4Smiod if ((abfd->flags & EXEC_P) != 0)
819*3d8817e4Smiod {
820*3d8817e4Smiod scn_base = bfd_coff_filhsz (abfd) + bfd_coff_aoutsz (abfd);
821*3d8817e4Smiod internal_f.f_opthdr = bfd_coff_aoutsz (abfd);
822*3d8817e4Smiod }
823*3d8817e4Smiod else
824*3d8817e4Smiod {
825*3d8817e4Smiod scn_base = bfd_coff_filhsz (abfd);
826*3d8817e4Smiod internal_f.f_opthdr = 0;
827*3d8817e4Smiod }
828*3d8817e4Smiod
829*3d8817e4Smiod internal_f.f_nscns = 0;
830*3d8817e4Smiod
831*3d8817e4Smiod if (bfd_seek (abfd, scn_base, SEEK_SET) != 0)
832*3d8817e4Smiod return FALSE;
833*3d8817e4Smiod
834*3d8817e4Smiod long_section_names = FALSE;
835*3d8817e4Smiod for (current = abfd->sections; current != NULL; current = current->next)
836*3d8817e4Smiod {
837*3d8817e4Smiod struct internal_scnhdr section;
838*3d8817e4Smiod struct external_scnhdr buff;
839*3d8817e4Smiod bfd_size_type amount;
840*3d8817e4Smiod
841*3d8817e4Smiod internal_f.f_nscns++;
842*3d8817e4Smiod
843*3d8817e4Smiod strncpy (section.s_name, current->name, SCNNMLEN);
844*3d8817e4Smiod
845*3d8817e4Smiod section.s_vaddr = current->vma;
846*3d8817e4Smiod section.s_paddr = current->lma;
847*3d8817e4Smiod section.s_size = current->size;
848*3d8817e4Smiod
849*3d8817e4Smiod /* If this section has no size or is unloadable then the scnptr
850*3d8817e4Smiod will be 0 too. */
851*3d8817e4Smiod if (current->size == 0
852*3d8817e4Smiod || (current->flags & (SEC_LOAD | SEC_HAS_CONTENTS)) == 0)
853*3d8817e4Smiod {
854*3d8817e4Smiod section.s_scnptr = 0;
855*3d8817e4Smiod }
856*3d8817e4Smiod else
857*3d8817e4Smiod {
858*3d8817e4Smiod section.s_scnptr = current->filepos;
859*3d8817e4Smiod }
860*3d8817e4Smiod
861*3d8817e4Smiod section.s_relptr = current->rel_filepos;
862*3d8817e4Smiod section.s_lnnoptr = current->line_filepos;
863*3d8817e4Smiod section.s_nreloc = current->reloc_count;
864*3d8817e4Smiod
865*3d8817e4Smiod section.s_nlnno = current->lineno_count;
866*3d8817e4Smiod if (current->reloc_count != 0)
867*3d8817e4Smiod hasrelocs = TRUE;
868*3d8817e4Smiod if (current->lineno_count != 0)
869*3d8817e4Smiod haslinno = TRUE;
870*3d8817e4Smiod
871*3d8817e4Smiod section.s_flags = sec_to_styp_flags (current->name, current->flags);
872*3d8817e4Smiod
873*3d8817e4Smiod if (!strcmp (current->name, _TEXT))
874*3d8817e4Smiod {
875*3d8817e4Smiod text_sec = current;
876*3d8817e4Smiod }
877*3d8817e4Smiod else if (!strcmp (current->name, _DATA))
878*3d8817e4Smiod {
879*3d8817e4Smiod data_sec = current;
880*3d8817e4Smiod }
881*3d8817e4Smiod else if (!strcmp (current->name, _BSS))
882*3d8817e4Smiod {
883*3d8817e4Smiod bss_sec = current;
884*3d8817e4Smiod }
885*3d8817e4Smiod
886*3d8817e4Smiod amount = bfd_coff_scnhsz (abfd);
887*3d8817e4Smiod if (bfd_coff_swap_scnhdr_out (abfd, §ion, &buff) == 0
888*3d8817e4Smiod || bfd_bwrite ((PTR) (&buff), amount, abfd) != amount)
889*3d8817e4Smiod return FALSE;
890*3d8817e4Smiod }
891*3d8817e4Smiod
892*3d8817e4Smiod internal_f.f_timdat = 0;
893*3d8817e4Smiod
894*3d8817e4Smiod internal_f.f_flags = 0;
895*3d8817e4Smiod
896*3d8817e4Smiod if (!hasrelocs)
897*3d8817e4Smiod internal_f.f_flags |= F_RELFLG;
898*3d8817e4Smiod if (!haslinno)
899*3d8817e4Smiod internal_f.f_flags |= F_LNNO;
900*3d8817e4Smiod if (abfd->flags & EXEC_P)
901*3d8817e4Smiod internal_f.f_flags |= F_EXEC;
902*3d8817e4Smiod
903*3d8817e4Smiod /* FIXME: this is wrong for PPC_PE! */
904*3d8817e4Smiod if (bfd_little_endian (abfd))
905*3d8817e4Smiod internal_f.f_flags |= F_AR32WR;
906*3d8817e4Smiod else
907*3d8817e4Smiod internal_f.f_flags |= F_AR32W;
908*3d8817e4Smiod
909*3d8817e4Smiod if ((abfd->flags & DYNAMIC) != 0)
910*3d8817e4Smiod internal_f.f_flags |= F_SHROBJ;
911*3d8817e4Smiod if (bfd_get_section_by_name (abfd, _LOADER) != NULL)
912*3d8817e4Smiod internal_f.f_flags |= F_DYNLOAD;
913*3d8817e4Smiod
914*3d8817e4Smiod memset (&internal_a, 0, sizeof internal_a);
915*3d8817e4Smiod
916*3d8817e4Smiod internal_f.f_magic = bfd_xcoff_magic_number (abfd);
917*3d8817e4Smiod internal_a.magic = (abfd->flags & D_PAGED
918*3d8817e4Smiod ? RS6K_AOUTHDR_ZMAGIC
919*3d8817e4Smiod : (abfd->flags & WP_TEXT
920*3d8817e4Smiod ? RS6K_AOUTHDR_NMAGIC
921*3d8817e4Smiod : RS6K_AOUTHDR_OMAGIC));
922*3d8817e4Smiod
923*3d8817e4Smiod /* FIXME: Does anybody ever set this to another value? */
924*3d8817e4Smiod internal_a.vstamp = 0;
925*3d8817e4Smiod
926*3d8817e4Smiod /* Now should write relocs, strings, syms. */
927*3d8817e4Smiod obj_sym_filepos (abfd) = sym_base;
928*3d8817e4Smiod
929*3d8817e4Smiod internal_f.f_symptr = 0;
930*3d8817e4Smiod internal_f.f_nsyms = 0;
931*3d8817e4Smiod
932*3d8817e4Smiod /* If bfd_get_symcount (abfd) != 0, then we are not using the COFF
933*3d8817e4Smiod backend linker, and obj_raw_syment_count is not valid until after
934*3d8817e4Smiod coff_write_symbols is called. */
935*3d8817e4Smiod if (bfd_get_symcount (abfd) != 0)
936*3d8817e4Smiod {
937*3d8817e4Smiod int firstundef;
938*3d8817e4Smiod
939*3d8817e4Smiod if (!coff_renumber_symbols (abfd, &firstundef))
940*3d8817e4Smiod return FALSE;
941*3d8817e4Smiod coff_mangle_symbols (abfd);
942*3d8817e4Smiod if (! coff_write_symbols (abfd))
943*3d8817e4Smiod return FALSE;
944*3d8817e4Smiod if (! coff_write_linenumbers (abfd))
945*3d8817e4Smiod return FALSE;
946*3d8817e4Smiod if (! coff_write_relocs (abfd, firstundef))
947*3d8817e4Smiod return FALSE;
948*3d8817e4Smiod
949*3d8817e4Smiod internal_f.f_symptr = sym_base;
950*3d8817e4Smiod internal_f.f_nsyms = bfd_get_symcount (abfd);
951*3d8817e4Smiod }
952*3d8817e4Smiod else if (obj_raw_syment_count (abfd) != 0)
953*3d8817e4Smiod {
954*3d8817e4Smiod internal_f.f_symptr = sym_base;
955*3d8817e4Smiod
956*3d8817e4Smiod /* AIX appears to require that F_RELFLG not be set if there are
957*3d8817e4Smiod local symbols but no relocations. */
958*3d8817e4Smiod internal_f.f_flags &=~ F_RELFLG;
959*3d8817e4Smiod }
960*3d8817e4Smiod else
961*3d8817e4Smiod {
962*3d8817e4Smiod internal_f.f_flags |= F_LSYMS;
963*3d8817e4Smiod }
964*3d8817e4Smiod
965*3d8817e4Smiod if (text_sec)
966*3d8817e4Smiod {
967*3d8817e4Smiod internal_a.tsize = text_sec->size;
968*3d8817e4Smiod internal_a.text_start = internal_a.tsize ? text_sec->vma : 0;
969*3d8817e4Smiod }
970*3d8817e4Smiod
971*3d8817e4Smiod if (data_sec)
972*3d8817e4Smiod {
973*3d8817e4Smiod internal_a.dsize = data_sec->size;
974*3d8817e4Smiod internal_a.data_start = internal_a.dsize ? data_sec->vma : 0;
975*3d8817e4Smiod }
976*3d8817e4Smiod
977*3d8817e4Smiod if (bss_sec)
978*3d8817e4Smiod {
979*3d8817e4Smiod internal_a.bsize = bss_sec->size;
980*3d8817e4Smiod if (internal_a.bsize && bss_sec->vma < internal_a.data_start)
981*3d8817e4Smiod internal_a.data_start = bss_sec->vma;
982*3d8817e4Smiod }
983*3d8817e4Smiod
984*3d8817e4Smiod internal_a.entry = bfd_get_start_address (abfd);
985*3d8817e4Smiod internal_f.f_nsyms = obj_raw_syment_count (abfd);
986*3d8817e4Smiod
987*3d8817e4Smiod if (xcoff_data (abfd)->full_aouthdr)
988*3d8817e4Smiod {
989*3d8817e4Smiod bfd_vma toc;
990*3d8817e4Smiod asection *loader_sec;
991*3d8817e4Smiod
992*3d8817e4Smiod internal_a.vstamp = 1;
993*3d8817e4Smiod
994*3d8817e4Smiod internal_a.o_snentry = xcoff_data (abfd)->snentry;
995*3d8817e4Smiod if (internal_a.o_snentry == 0)
996*3d8817e4Smiod internal_a.entry = (bfd_vma) -1;
997*3d8817e4Smiod
998*3d8817e4Smiod if (text_sec != NULL)
999*3d8817e4Smiod {
1000*3d8817e4Smiod internal_a.o_sntext = text_sec->target_index;
1001*3d8817e4Smiod internal_a.o_algntext = bfd_get_section_alignment (abfd, text_sec);
1002*3d8817e4Smiod }
1003*3d8817e4Smiod else
1004*3d8817e4Smiod {
1005*3d8817e4Smiod internal_a.o_sntext = 0;
1006*3d8817e4Smiod internal_a.o_algntext = 0;
1007*3d8817e4Smiod }
1008*3d8817e4Smiod
1009*3d8817e4Smiod if (data_sec != NULL)
1010*3d8817e4Smiod {
1011*3d8817e4Smiod internal_a.o_sndata = data_sec->target_index;
1012*3d8817e4Smiod internal_a.o_algndata = bfd_get_section_alignment (abfd, data_sec);
1013*3d8817e4Smiod }
1014*3d8817e4Smiod else
1015*3d8817e4Smiod {
1016*3d8817e4Smiod internal_a.o_sndata = 0;
1017*3d8817e4Smiod internal_a.o_algndata = 0;
1018*3d8817e4Smiod }
1019*3d8817e4Smiod
1020*3d8817e4Smiod loader_sec = bfd_get_section_by_name (abfd, ".loader");
1021*3d8817e4Smiod if (loader_sec != NULL)
1022*3d8817e4Smiod internal_a.o_snloader = loader_sec->target_index;
1023*3d8817e4Smiod else
1024*3d8817e4Smiod internal_a.o_snloader = 0;
1025*3d8817e4Smiod if (bss_sec != NULL)
1026*3d8817e4Smiod internal_a.o_snbss = bss_sec->target_index;
1027*3d8817e4Smiod else
1028*3d8817e4Smiod internal_a.o_snbss = 0;
1029*3d8817e4Smiod
1030*3d8817e4Smiod toc = xcoff_data (abfd)->toc;
1031*3d8817e4Smiod internal_a.o_toc = toc;
1032*3d8817e4Smiod internal_a.o_sntoc = xcoff_data (abfd)->sntoc;
1033*3d8817e4Smiod
1034*3d8817e4Smiod internal_a.o_modtype = xcoff_data (abfd)->modtype;
1035*3d8817e4Smiod if (xcoff_data (abfd)->cputype != -1)
1036*3d8817e4Smiod internal_a.o_cputype = xcoff_data (abfd)->cputype;
1037*3d8817e4Smiod else
1038*3d8817e4Smiod {
1039*3d8817e4Smiod switch (bfd_get_arch (abfd))
1040*3d8817e4Smiod {
1041*3d8817e4Smiod case bfd_arch_rs6000:
1042*3d8817e4Smiod internal_a.o_cputype = 4;
1043*3d8817e4Smiod break;
1044*3d8817e4Smiod case bfd_arch_powerpc:
1045*3d8817e4Smiod if (bfd_get_mach (abfd) == bfd_mach_ppc)
1046*3d8817e4Smiod internal_a.o_cputype = 3;
1047*3d8817e4Smiod else
1048*3d8817e4Smiod internal_a.o_cputype = 1;
1049*3d8817e4Smiod break;
1050*3d8817e4Smiod default:
1051*3d8817e4Smiod abort ();
1052*3d8817e4Smiod }
1053*3d8817e4Smiod }
1054*3d8817e4Smiod internal_a.o_maxstack = xcoff_data (abfd)->maxstack;
1055*3d8817e4Smiod internal_a.o_maxdata = xcoff_data (abfd)->maxdata;
1056*3d8817e4Smiod }
1057*3d8817e4Smiod
1058*3d8817e4Smiod if (bfd_seek (abfd, (file_ptr) 0, 0) != 0)
1059*3d8817e4Smiod return FALSE;
1060*3d8817e4Smiod
1061*3d8817e4Smiod {
1062*3d8817e4Smiod char * buff;
1063*3d8817e4Smiod bfd_size_type amount = bfd_coff_filhsz (abfd);
1064*3d8817e4Smiod
1065*3d8817e4Smiod buff = bfd_malloc (amount);
1066*3d8817e4Smiod if (buff == NULL)
1067*3d8817e4Smiod return FALSE;
1068*3d8817e4Smiod
1069*3d8817e4Smiod bfd_coff_swap_filehdr_out (abfd, (PTR) &internal_f, (PTR) buff);
1070*3d8817e4Smiod amount = bfd_bwrite ((PTR) buff, amount, abfd);
1071*3d8817e4Smiod
1072*3d8817e4Smiod free (buff);
1073*3d8817e4Smiod
1074*3d8817e4Smiod if (amount != bfd_coff_filhsz (abfd))
1075*3d8817e4Smiod return FALSE;
1076*3d8817e4Smiod }
1077*3d8817e4Smiod
1078*3d8817e4Smiod if (abfd->flags & EXEC_P)
1079*3d8817e4Smiod {
1080*3d8817e4Smiod char * buff;
1081*3d8817e4Smiod bfd_size_type amount = bfd_coff_aoutsz (abfd);
1082*3d8817e4Smiod
1083*3d8817e4Smiod buff = bfd_malloc (amount);
1084*3d8817e4Smiod if (buff == NULL)
1085*3d8817e4Smiod return FALSE;
1086*3d8817e4Smiod
1087*3d8817e4Smiod bfd_coff_swap_aouthdr_out (abfd, (PTR) &internal_a, (PTR) buff);
1088*3d8817e4Smiod amount = bfd_bwrite ((PTR) buff, amount, abfd);
1089*3d8817e4Smiod
1090*3d8817e4Smiod free (buff);
1091*3d8817e4Smiod
1092*3d8817e4Smiod if (amount != bfd_coff_aoutsz (abfd))
1093*3d8817e4Smiod return FALSE;
1094*3d8817e4Smiod }
1095*3d8817e4Smiod
1096*3d8817e4Smiod return TRUE;
1097*3d8817e4Smiod }
1098*3d8817e4Smiod
1099*3d8817e4Smiod static bfd_boolean
xcoff64_reloc_type_br(input_bfd,input_section,output_bfd,rel,sym,howto,val,addend,relocation,contents)1100*3d8817e4Smiod xcoff64_reloc_type_br (input_bfd, input_section, output_bfd, rel, sym, howto,
1101*3d8817e4Smiod val, addend, relocation, contents)
1102*3d8817e4Smiod bfd *input_bfd;
1103*3d8817e4Smiod asection *input_section;
1104*3d8817e4Smiod bfd *output_bfd ATTRIBUTE_UNUSED;
1105*3d8817e4Smiod struct internal_reloc *rel;
1106*3d8817e4Smiod struct internal_syment *sym ATTRIBUTE_UNUSED;
1107*3d8817e4Smiod struct reloc_howto_struct *howto;
1108*3d8817e4Smiod bfd_vma val;
1109*3d8817e4Smiod bfd_vma addend;
1110*3d8817e4Smiod bfd_vma *relocation;
1111*3d8817e4Smiod bfd_byte *contents;
1112*3d8817e4Smiod {
1113*3d8817e4Smiod struct xcoff_link_hash_entry *h;
1114*3d8817e4Smiod
1115*3d8817e4Smiod if (0 > rel->r_symndx)
1116*3d8817e4Smiod return FALSE;
1117*3d8817e4Smiod
1118*3d8817e4Smiod h = obj_xcoff_sym_hashes (input_bfd)[rel->r_symndx];
1119*3d8817e4Smiod
1120*3d8817e4Smiod /* If we see an R_BR or R_RBR reloc which is jumping to global
1121*3d8817e4Smiod linkage code, and it is followed by an appropriate cror nop
1122*3d8817e4Smiod instruction, we replace the cror with ld r2,40(r1). This
1123*3d8817e4Smiod restores the TOC after the glink code. Contrariwise, if the
1124*3d8817e4Smiod call is followed by a ld r2,40(r1), but the call is not
1125*3d8817e4Smiod going to global linkage code, we can replace the load with a
1126*3d8817e4Smiod cror. */
1127*3d8817e4Smiod if (NULL != h
1128*3d8817e4Smiod && bfd_link_hash_defined == h->root.type
1129*3d8817e4Smiod && rel->r_vaddr - input_section->vma + 8 <= input_section->size)
1130*3d8817e4Smiod {
1131*3d8817e4Smiod bfd_byte *pnext;
1132*3d8817e4Smiod unsigned long next;
1133*3d8817e4Smiod
1134*3d8817e4Smiod pnext = contents + (rel->r_vaddr - input_section->vma) + 4;
1135*3d8817e4Smiod next = bfd_get_32 (input_bfd, pnext);
1136*3d8817e4Smiod
1137*3d8817e4Smiod /* The _ptrgl function is magic. It is used by the AIX compiler to call
1138*3d8817e4Smiod a function through a pointer. */
1139*3d8817e4Smiod if (h->smclas == XMC_GL || strcmp (h->root.root.string, "._ptrgl") == 0)
1140*3d8817e4Smiod {
1141*3d8817e4Smiod if (next == 0x4def7b82 /* cror 15,15,15 */
1142*3d8817e4Smiod || next == 0x4ffffb82 /* cror 31,31,31 */
1143*3d8817e4Smiod || next == 0x60000000) /* ori r0,r0,0 */
1144*3d8817e4Smiod bfd_put_32 (input_bfd, 0xe8410028, pnext); /* ld r2,40(r1) */
1145*3d8817e4Smiod }
1146*3d8817e4Smiod else
1147*3d8817e4Smiod {
1148*3d8817e4Smiod if (next == 0xe8410028) /* ld r2,40(r1) */
1149*3d8817e4Smiod bfd_put_32 (input_bfd, 0x60000000, pnext); /* ori r0,r0,0 */
1150*3d8817e4Smiod }
1151*3d8817e4Smiod }
1152*3d8817e4Smiod else if (NULL != h && bfd_link_hash_undefined == h->root.type)
1153*3d8817e4Smiod {
1154*3d8817e4Smiod /* Normally, this relocation is against a defined symbol. In the
1155*3d8817e4Smiod case where this is a partial link and the output section offset
1156*3d8817e4Smiod is greater than 2^25, the linker will return an invalid error
1157*3d8817e4Smiod message that the relocation has been truncated. Yes it has been
1158*3d8817e4Smiod truncated but no it not important. For this case, disable the
1159*3d8817e4Smiod overflow checking. */
1160*3d8817e4Smiod howto->complain_on_overflow = complain_overflow_dont;
1161*3d8817e4Smiod }
1162*3d8817e4Smiod
1163*3d8817e4Smiod howto->pc_relative = TRUE;
1164*3d8817e4Smiod howto->src_mask &= ~3;
1165*3d8817e4Smiod howto->dst_mask = howto->src_mask;
1166*3d8817e4Smiod
1167*3d8817e4Smiod /* A PC relative reloc includes the section address. */
1168*3d8817e4Smiod addend += input_section->vma;
1169*3d8817e4Smiod
1170*3d8817e4Smiod *relocation = val + addend;
1171*3d8817e4Smiod *relocation -= (input_section->output_section->vma
1172*3d8817e4Smiod + input_section->output_offset);
1173*3d8817e4Smiod return TRUE;
1174*3d8817e4Smiod }
1175*3d8817e4Smiod
1176*3d8817e4Smiod /* This is the relocation function for the PowerPC64.
1177*3d8817e4Smiod See xcoff_ppc_relocation_section for more information. */
1178*3d8817e4Smiod
1179*3d8817e4Smiod bfd_boolean
xcoff64_ppc_relocate_section(output_bfd,info,input_bfd,input_section,contents,relocs,syms,sections)1180*3d8817e4Smiod xcoff64_ppc_relocate_section (output_bfd, info, input_bfd,
1181*3d8817e4Smiod input_section, contents, relocs, syms,
1182*3d8817e4Smiod sections)
1183*3d8817e4Smiod bfd *output_bfd;
1184*3d8817e4Smiod struct bfd_link_info *info;
1185*3d8817e4Smiod bfd *input_bfd;
1186*3d8817e4Smiod asection *input_section;
1187*3d8817e4Smiod bfd_byte *contents;
1188*3d8817e4Smiod struct internal_reloc *relocs;
1189*3d8817e4Smiod struct internal_syment *syms;
1190*3d8817e4Smiod asection **sections;
1191*3d8817e4Smiod {
1192*3d8817e4Smiod struct internal_reloc *rel;
1193*3d8817e4Smiod struct internal_reloc *relend;
1194*3d8817e4Smiod
1195*3d8817e4Smiod rel = relocs;
1196*3d8817e4Smiod relend = rel + input_section->reloc_count;
1197*3d8817e4Smiod for (; rel < relend; rel++)
1198*3d8817e4Smiod {
1199*3d8817e4Smiod long symndx;
1200*3d8817e4Smiod struct xcoff_link_hash_entry *h;
1201*3d8817e4Smiod struct internal_syment *sym;
1202*3d8817e4Smiod bfd_vma addend;
1203*3d8817e4Smiod bfd_vma val;
1204*3d8817e4Smiod struct reloc_howto_struct howto;
1205*3d8817e4Smiod bfd_vma relocation;
1206*3d8817e4Smiod bfd_vma value_to_relocate;
1207*3d8817e4Smiod bfd_vma address;
1208*3d8817e4Smiod bfd_byte *location;
1209*3d8817e4Smiod
1210*3d8817e4Smiod /* Relocation type R_REF is a special relocation type which is
1211*3d8817e4Smiod merely used to prevent garbage collection from occurring for
1212*3d8817e4Smiod the csect including the symbol which it references. */
1213*3d8817e4Smiod if (rel->r_type == R_REF)
1214*3d8817e4Smiod continue;
1215*3d8817e4Smiod
1216*3d8817e4Smiod /* howto */
1217*3d8817e4Smiod howto.type = rel->r_type;
1218*3d8817e4Smiod howto.rightshift = 0;
1219*3d8817e4Smiod howto.bitsize = (rel->r_size & 0x3f) + 1;
1220*3d8817e4Smiod howto.size = howto.bitsize > 16 ? (howto.bitsize > 32 ? 4 : 2) : 1;
1221*3d8817e4Smiod howto.pc_relative = FALSE;
1222*3d8817e4Smiod howto.bitpos = 0;
1223*3d8817e4Smiod howto.complain_on_overflow = (rel->r_size & 0x80
1224*3d8817e4Smiod ? complain_overflow_signed
1225*3d8817e4Smiod : complain_overflow_bitfield);
1226*3d8817e4Smiod howto.special_function = NULL;
1227*3d8817e4Smiod howto.name = "internal";
1228*3d8817e4Smiod howto.partial_inplace = TRUE;
1229*3d8817e4Smiod howto.src_mask = howto.dst_mask = N_ONES (howto.bitsize);
1230*3d8817e4Smiod howto.pcrel_offset = FALSE;
1231*3d8817e4Smiod
1232*3d8817e4Smiod /* symbol */
1233*3d8817e4Smiod val = 0;
1234*3d8817e4Smiod addend = 0;
1235*3d8817e4Smiod h = NULL;
1236*3d8817e4Smiod sym = NULL;
1237*3d8817e4Smiod symndx = rel->r_symndx;
1238*3d8817e4Smiod
1239*3d8817e4Smiod if (-1 != symndx)
1240*3d8817e4Smiod {
1241*3d8817e4Smiod asection *sec;
1242*3d8817e4Smiod
1243*3d8817e4Smiod h = obj_xcoff_sym_hashes (input_bfd)[symndx];
1244*3d8817e4Smiod sym = syms + symndx;
1245*3d8817e4Smiod addend = - sym->n_value;
1246*3d8817e4Smiod
1247*3d8817e4Smiod if (NULL == h)
1248*3d8817e4Smiod {
1249*3d8817e4Smiod sec = sections[symndx];
1250*3d8817e4Smiod /* Hack to make sure we use the right TOC anchor value
1251*3d8817e4Smiod if this reloc is against the TOC anchor. */
1252*3d8817e4Smiod if (sec->name[3] == '0'
1253*3d8817e4Smiod && strcmp (sec->name, ".tc0") == 0)
1254*3d8817e4Smiod val = xcoff_data (output_bfd)->toc;
1255*3d8817e4Smiod else
1256*3d8817e4Smiod val = (sec->output_section->vma
1257*3d8817e4Smiod + sec->output_offset
1258*3d8817e4Smiod + sym->n_value
1259*3d8817e4Smiod - sec->vma);
1260*3d8817e4Smiod }
1261*3d8817e4Smiod else
1262*3d8817e4Smiod {
1263*3d8817e4Smiod if (h->root.type == bfd_link_hash_defined
1264*3d8817e4Smiod || h->root.type == bfd_link_hash_defweak)
1265*3d8817e4Smiod {
1266*3d8817e4Smiod sec = h->root.u.def.section;
1267*3d8817e4Smiod val = (h->root.u.def.value
1268*3d8817e4Smiod + sec->output_section->vma
1269*3d8817e4Smiod + sec->output_offset);
1270*3d8817e4Smiod }
1271*3d8817e4Smiod else if (h->root.type == bfd_link_hash_common)
1272*3d8817e4Smiod {
1273*3d8817e4Smiod sec = h->root.u.c.p->section;
1274*3d8817e4Smiod val = (sec->output_section->vma
1275*3d8817e4Smiod + sec->output_offset);
1276*3d8817e4Smiod }
1277*3d8817e4Smiod else if ((0 == (h->flags & (XCOFF_DEF_DYNAMIC | XCOFF_IMPORT)))
1278*3d8817e4Smiod && ! info->relocatable)
1279*3d8817e4Smiod {
1280*3d8817e4Smiod if (! ((*info->callbacks->undefined_symbol)
1281*3d8817e4Smiod (info, h->root.root.string, input_bfd, input_section,
1282*3d8817e4Smiod rel->r_vaddr - input_section->vma, TRUE)))
1283*3d8817e4Smiod return FALSE;
1284*3d8817e4Smiod
1285*3d8817e4Smiod /* Don't try to process the reloc. It can't help, and
1286*3d8817e4Smiod it may generate another error. */
1287*3d8817e4Smiod continue;
1288*3d8817e4Smiod }
1289*3d8817e4Smiod }
1290*3d8817e4Smiod }
1291*3d8817e4Smiod
1292*3d8817e4Smiod if (rel->r_type >= XCOFF_MAX_CALCULATE_RELOCATION
1293*3d8817e4Smiod || !((*xcoff64_calculate_relocation[rel->r_type])
1294*3d8817e4Smiod (input_bfd, input_section, output_bfd, rel, sym, &howto, val,
1295*3d8817e4Smiod addend, &relocation, contents)))
1296*3d8817e4Smiod return FALSE;
1297*3d8817e4Smiod
1298*3d8817e4Smiod /* address */
1299*3d8817e4Smiod address = rel->r_vaddr - input_section->vma;
1300*3d8817e4Smiod location = contents + address;
1301*3d8817e4Smiod
1302*3d8817e4Smiod if (address > input_section->size)
1303*3d8817e4Smiod abort ();
1304*3d8817e4Smiod
1305*3d8817e4Smiod /* Get the value we are going to relocate. */
1306*3d8817e4Smiod if (1 == howto.size)
1307*3d8817e4Smiod value_to_relocate = bfd_get_16 (input_bfd, location);
1308*3d8817e4Smiod else if (2 == howto.size)
1309*3d8817e4Smiod value_to_relocate = bfd_get_32 (input_bfd, location);
1310*3d8817e4Smiod else
1311*3d8817e4Smiod value_to_relocate = bfd_get_64 (input_bfd, location);
1312*3d8817e4Smiod
1313*3d8817e4Smiod /* overflow.
1314*3d8817e4Smiod
1315*3d8817e4Smiod FIXME: We may drop bits during the addition
1316*3d8817e4Smiod which we don't check for. We must either check at every single
1317*3d8817e4Smiod operation, which would be tedious, or we must do the computations
1318*3d8817e4Smiod in a type larger than bfd_vma, which would be inefficient. */
1319*3d8817e4Smiod
1320*3d8817e4Smiod if ((unsigned int) howto.complain_on_overflow
1321*3d8817e4Smiod >= XCOFF_MAX_COMPLAIN_OVERFLOW)
1322*3d8817e4Smiod abort ();
1323*3d8817e4Smiod
1324*3d8817e4Smiod if (((*xcoff_complain_overflow[howto.complain_on_overflow])
1325*3d8817e4Smiod (input_bfd, value_to_relocate, relocation, &howto)))
1326*3d8817e4Smiod {
1327*3d8817e4Smiod const char *name;
1328*3d8817e4Smiod char buf[SYMNMLEN + 1];
1329*3d8817e4Smiod char reloc_type_name[10];
1330*3d8817e4Smiod
1331*3d8817e4Smiod if (symndx == -1)
1332*3d8817e4Smiod {
1333*3d8817e4Smiod name = "*ABS*";
1334*3d8817e4Smiod }
1335*3d8817e4Smiod else if (h != NULL)
1336*3d8817e4Smiod {
1337*3d8817e4Smiod name = NULL;
1338*3d8817e4Smiod }
1339*3d8817e4Smiod else
1340*3d8817e4Smiod {
1341*3d8817e4Smiod name = _bfd_coff_internal_syment_name (input_bfd, sym, buf);
1342*3d8817e4Smiod if (name == NULL)
1343*3d8817e4Smiod name = "UNKNOWN";
1344*3d8817e4Smiod }
1345*3d8817e4Smiod sprintf (reloc_type_name, "0x%02x", rel->r_type);
1346*3d8817e4Smiod
1347*3d8817e4Smiod if (! ((*info->callbacks->reloc_overflow)
1348*3d8817e4Smiod (info, (h ? &h->root : NULL), name, reloc_type_name,
1349*3d8817e4Smiod (bfd_vma) 0, input_bfd, input_section,
1350*3d8817e4Smiod rel->r_vaddr - input_section->vma)))
1351*3d8817e4Smiod return FALSE;
1352*3d8817e4Smiod }
1353*3d8817e4Smiod
1354*3d8817e4Smiod /* Add RELOCATION to the right bits of VALUE_TO_RELOCATE. */
1355*3d8817e4Smiod value_to_relocate = ((value_to_relocate & ~howto.dst_mask)
1356*3d8817e4Smiod | (((value_to_relocate & howto.src_mask)
1357*3d8817e4Smiod + relocation) & howto.dst_mask));
1358*3d8817e4Smiod
1359*3d8817e4Smiod /* Put the value back in the object file. */
1360*3d8817e4Smiod if (1 == howto.size)
1361*3d8817e4Smiod bfd_put_16 (input_bfd, value_to_relocate, location);
1362*3d8817e4Smiod else if (2 == howto.size)
1363*3d8817e4Smiod bfd_put_32 (input_bfd, value_to_relocate, location);
1364*3d8817e4Smiod else
1365*3d8817e4Smiod bfd_put_64 (input_bfd, value_to_relocate, location);
1366*3d8817e4Smiod
1367*3d8817e4Smiod }
1368*3d8817e4Smiod return TRUE;
1369*3d8817e4Smiod }
1370*3d8817e4Smiod
1371*3d8817e4Smiod
1372*3d8817e4Smiod /* The XCOFF reloc table. Actually, XCOFF relocations specify the
1373*3d8817e4Smiod bitsize and whether they are signed or not, along with a
1374*3d8817e4Smiod conventional type. This table is for the types, which are used for
1375*3d8817e4Smiod different algorithms for putting in the reloc. Many of these
1376*3d8817e4Smiod relocs need special_function entries, which I have not written. */
1377*3d8817e4Smiod
1378*3d8817e4Smiod reloc_howto_type xcoff64_howto_table[] =
1379*3d8817e4Smiod {
1380*3d8817e4Smiod /* Standard 64 bit relocation. */
1381*3d8817e4Smiod HOWTO (R_POS, /* type */
1382*3d8817e4Smiod 0, /* rightshift */
1383*3d8817e4Smiod 4, /* size (0 = byte, 1 = short, 2 = long) */
1384*3d8817e4Smiod 64, /* bitsize */
1385*3d8817e4Smiod FALSE, /* pc_relative */
1386*3d8817e4Smiod 0, /* bitpos */
1387*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1388*3d8817e4Smiod 0, /* special_function */
1389*3d8817e4Smiod "R_POS_64", /* name */
1390*3d8817e4Smiod TRUE, /* partial_inplace */
1391*3d8817e4Smiod MINUS_ONE, /* src_mask */
1392*3d8817e4Smiod MINUS_ONE, /* dst_mask */
1393*3d8817e4Smiod FALSE), /* pcrel_offset */
1394*3d8817e4Smiod
1395*3d8817e4Smiod /* 64 bit relocation, but store negative value. */
1396*3d8817e4Smiod HOWTO (R_NEG, /* type */
1397*3d8817e4Smiod 0, /* rightshift */
1398*3d8817e4Smiod -4, /* size (0 = byte, 1 = short, 2 = long) */
1399*3d8817e4Smiod 64, /* bitsize */
1400*3d8817e4Smiod FALSE, /* pc_relative */
1401*3d8817e4Smiod 0, /* bitpos */
1402*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1403*3d8817e4Smiod 0, /* special_function */
1404*3d8817e4Smiod "R_NEG", /* name */
1405*3d8817e4Smiod TRUE, /* partial_inplace */
1406*3d8817e4Smiod MINUS_ONE, /* src_mask */
1407*3d8817e4Smiod MINUS_ONE, /* dst_mask */
1408*3d8817e4Smiod FALSE), /* pcrel_offset */
1409*3d8817e4Smiod
1410*3d8817e4Smiod /* 32 bit PC relative relocation. */
1411*3d8817e4Smiod HOWTO (R_REL, /* type */
1412*3d8817e4Smiod 0, /* rightshift */
1413*3d8817e4Smiod 2, /* size (0 = byte, 1 = short, 2 = long) */
1414*3d8817e4Smiod 32, /* bitsize */
1415*3d8817e4Smiod TRUE, /* pc_relative */
1416*3d8817e4Smiod 0, /* bitpos */
1417*3d8817e4Smiod complain_overflow_signed, /* complain_on_overflow */
1418*3d8817e4Smiod 0, /* special_function */
1419*3d8817e4Smiod "R_REL", /* name */
1420*3d8817e4Smiod TRUE, /* partial_inplace */
1421*3d8817e4Smiod 0xffffffff, /* src_mask */
1422*3d8817e4Smiod 0xffffffff, /* dst_mask */
1423*3d8817e4Smiod FALSE), /* pcrel_offset */
1424*3d8817e4Smiod
1425*3d8817e4Smiod /* 16 bit TOC relative relocation. */
1426*3d8817e4Smiod HOWTO (R_TOC, /* type */
1427*3d8817e4Smiod 0, /* rightshift */
1428*3d8817e4Smiod 1, /* size (0 = byte, 1 = short, 2 = long) */
1429*3d8817e4Smiod 16, /* bitsize */
1430*3d8817e4Smiod FALSE, /* pc_relative */
1431*3d8817e4Smiod 0, /* bitpos */
1432*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1433*3d8817e4Smiod 0, /* special_function */
1434*3d8817e4Smiod "R_TOC", /* name */
1435*3d8817e4Smiod TRUE, /* partial_inplace */
1436*3d8817e4Smiod 0xffff, /* src_mask */
1437*3d8817e4Smiod 0xffff, /* dst_mask */
1438*3d8817e4Smiod FALSE), /* pcrel_offset */
1439*3d8817e4Smiod
1440*3d8817e4Smiod /* I don't really know what this is. */
1441*3d8817e4Smiod HOWTO (R_RTB, /* type */
1442*3d8817e4Smiod 1, /* rightshift */
1443*3d8817e4Smiod 2, /* size (0 = byte, 1 = short, 2 = long) */
1444*3d8817e4Smiod 32, /* bitsize */
1445*3d8817e4Smiod FALSE, /* pc_relative */
1446*3d8817e4Smiod 0, /* bitpos */
1447*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1448*3d8817e4Smiod 0, /* special_function */
1449*3d8817e4Smiod "R_RTB", /* name */
1450*3d8817e4Smiod TRUE, /* partial_inplace */
1451*3d8817e4Smiod 0xffffffff, /* src_mask */
1452*3d8817e4Smiod 0xffffffff, /* dst_mask */
1453*3d8817e4Smiod FALSE), /* pcrel_offset */
1454*3d8817e4Smiod
1455*3d8817e4Smiod /* External TOC relative symbol. */
1456*3d8817e4Smiod HOWTO (R_GL, /* type */
1457*3d8817e4Smiod 0, /* rightshift */
1458*3d8817e4Smiod 1, /* size (0 = byte, 1 = short, 2 = long) */
1459*3d8817e4Smiod 16, /* bitsize */
1460*3d8817e4Smiod FALSE, /* pc_relative */
1461*3d8817e4Smiod 0, /* bitpos */
1462*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1463*3d8817e4Smiod 0, /* special_function */
1464*3d8817e4Smiod "R_GL", /* name */
1465*3d8817e4Smiod TRUE, /* partial_inplace */
1466*3d8817e4Smiod 0xffff, /* src_mask */
1467*3d8817e4Smiod 0xffff, /* dst_mask */
1468*3d8817e4Smiod FALSE), /* pcrel_offset */
1469*3d8817e4Smiod
1470*3d8817e4Smiod /* Local TOC relative symbol. */
1471*3d8817e4Smiod HOWTO (R_TCL, /* type */
1472*3d8817e4Smiod 0, /* rightshift */
1473*3d8817e4Smiod 1, /* size (0 = byte, 1 = short, 2 = long) */
1474*3d8817e4Smiod 16, /* bitsize */
1475*3d8817e4Smiod FALSE, /* pc_relative */
1476*3d8817e4Smiod 0, /* bitpos */
1477*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1478*3d8817e4Smiod 0, /* special_function */
1479*3d8817e4Smiod "R_TCL", /* name */
1480*3d8817e4Smiod TRUE, /* partial_inplace */
1481*3d8817e4Smiod 0xffff, /* src_mask */
1482*3d8817e4Smiod 0xffff, /* dst_mask */
1483*3d8817e4Smiod FALSE), /* pcrel_offset */
1484*3d8817e4Smiod
1485*3d8817e4Smiod EMPTY_HOWTO (7),
1486*3d8817e4Smiod
1487*3d8817e4Smiod /* Non modifiable absolute branch. */
1488*3d8817e4Smiod HOWTO (R_BA, /* type */
1489*3d8817e4Smiod 0, /* rightshift */
1490*3d8817e4Smiod 2, /* size (0 = byte, 1 = short, 2 = long) */
1491*3d8817e4Smiod 26, /* bitsize */
1492*3d8817e4Smiod FALSE, /* pc_relative */
1493*3d8817e4Smiod 0, /* bitpos */
1494*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1495*3d8817e4Smiod 0, /* special_function */
1496*3d8817e4Smiod "R_BA_26", /* name */
1497*3d8817e4Smiod TRUE, /* partial_inplace */
1498*3d8817e4Smiod 0x03fffffc, /* src_mask */
1499*3d8817e4Smiod 0x03fffffc, /* dst_mask */
1500*3d8817e4Smiod FALSE), /* pcrel_offset */
1501*3d8817e4Smiod
1502*3d8817e4Smiod EMPTY_HOWTO (9),
1503*3d8817e4Smiod
1504*3d8817e4Smiod /* Non modifiable relative branch. */
1505*3d8817e4Smiod HOWTO (R_BR, /* type */
1506*3d8817e4Smiod 0, /* rightshift */
1507*3d8817e4Smiod 2, /* size (0 = byte, 1 = short, 2 = long) */
1508*3d8817e4Smiod 26, /* bitsize */
1509*3d8817e4Smiod TRUE, /* pc_relative */
1510*3d8817e4Smiod 0, /* bitpos */
1511*3d8817e4Smiod complain_overflow_signed, /* complain_on_overflow */
1512*3d8817e4Smiod 0, /* special_function */
1513*3d8817e4Smiod "R_BR", /* name */
1514*3d8817e4Smiod TRUE, /* partial_inplace */
1515*3d8817e4Smiod 0x03fffffc, /* src_mask */
1516*3d8817e4Smiod 0x03fffffc, /* dst_mask */
1517*3d8817e4Smiod FALSE), /* pcrel_offset */
1518*3d8817e4Smiod
1519*3d8817e4Smiod EMPTY_HOWTO (0xb),
1520*3d8817e4Smiod
1521*3d8817e4Smiod /* Indirect load. */
1522*3d8817e4Smiod HOWTO (R_RL, /* type */
1523*3d8817e4Smiod 0, /* rightshift */
1524*3d8817e4Smiod 1, /* size (0 = byte, 1 = short, 2 = long) */
1525*3d8817e4Smiod 16, /* bitsize */
1526*3d8817e4Smiod FALSE, /* pc_relative */
1527*3d8817e4Smiod 0, /* bitpos */
1528*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1529*3d8817e4Smiod 0, /* special_function */
1530*3d8817e4Smiod "R_RL", /* name */
1531*3d8817e4Smiod TRUE, /* partial_inplace */
1532*3d8817e4Smiod 0xffff, /* src_mask */
1533*3d8817e4Smiod 0xffff, /* dst_mask */
1534*3d8817e4Smiod FALSE), /* pcrel_offset */
1535*3d8817e4Smiod
1536*3d8817e4Smiod /* Load address. */
1537*3d8817e4Smiod HOWTO (R_RLA, /* type */
1538*3d8817e4Smiod 0, /* rightshift */
1539*3d8817e4Smiod 1, /* size (0 = byte, 1 = short, 2 = long) */
1540*3d8817e4Smiod 16, /* bitsize */
1541*3d8817e4Smiod FALSE, /* pc_relative */
1542*3d8817e4Smiod 0, /* bitpos */
1543*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1544*3d8817e4Smiod 0, /* special_function */
1545*3d8817e4Smiod "R_RLA", /* name */
1546*3d8817e4Smiod TRUE, /* partial_inplace */
1547*3d8817e4Smiod 0xffff, /* src_mask */
1548*3d8817e4Smiod 0xffff, /* dst_mask */
1549*3d8817e4Smiod FALSE), /* pcrel_offset */
1550*3d8817e4Smiod
1551*3d8817e4Smiod EMPTY_HOWTO (0xe),
1552*3d8817e4Smiod
1553*3d8817e4Smiod /* Non-relocating reference. */
1554*3d8817e4Smiod HOWTO (R_REF, /* type */
1555*3d8817e4Smiod 0, /* rightshift */
1556*3d8817e4Smiod 2, /* size (0 = byte, 1 = short, 2 = long) */
1557*3d8817e4Smiod 32, /* bitsize */
1558*3d8817e4Smiod FALSE, /* pc_relative */
1559*3d8817e4Smiod 0, /* bitpos */
1560*3d8817e4Smiod complain_overflow_dont, /* complain_on_overflow */
1561*3d8817e4Smiod 0, /* special_function */
1562*3d8817e4Smiod "R_REF", /* name */
1563*3d8817e4Smiod FALSE, /* partial_inplace */
1564*3d8817e4Smiod 0, /* src_mask */
1565*3d8817e4Smiod 0, /* dst_mask */
1566*3d8817e4Smiod FALSE), /* pcrel_offset */
1567*3d8817e4Smiod
1568*3d8817e4Smiod EMPTY_HOWTO (0x10),
1569*3d8817e4Smiod EMPTY_HOWTO (0x11),
1570*3d8817e4Smiod
1571*3d8817e4Smiod /* TOC relative indirect load. */
1572*3d8817e4Smiod HOWTO (R_TRL, /* type */
1573*3d8817e4Smiod 0, /* rightshift */
1574*3d8817e4Smiod 1, /* size (0 = byte, 1 = short, 2 = long) */
1575*3d8817e4Smiod 16, /* bitsize */
1576*3d8817e4Smiod FALSE, /* pc_relative */
1577*3d8817e4Smiod 0, /* bitpos */
1578*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1579*3d8817e4Smiod 0, /* special_function */
1580*3d8817e4Smiod "R_TRL", /* name */
1581*3d8817e4Smiod TRUE, /* partial_inplace */
1582*3d8817e4Smiod 0xffff, /* src_mask */
1583*3d8817e4Smiod 0xffff, /* dst_mask */
1584*3d8817e4Smiod FALSE), /* pcrel_offset */
1585*3d8817e4Smiod
1586*3d8817e4Smiod /* TOC relative load address. */
1587*3d8817e4Smiod HOWTO (R_TRLA, /* type */
1588*3d8817e4Smiod 0, /* rightshift */
1589*3d8817e4Smiod 1, /* size (0 = byte, 1 = short, 2 = long) */
1590*3d8817e4Smiod 16, /* bitsize */
1591*3d8817e4Smiod FALSE, /* pc_relative */
1592*3d8817e4Smiod 0, /* bitpos */
1593*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1594*3d8817e4Smiod 0, /* special_function */
1595*3d8817e4Smiod "R_TRLA", /* name */
1596*3d8817e4Smiod TRUE, /* partial_inplace */
1597*3d8817e4Smiod 0xffff, /* src_mask */
1598*3d8817e4Smiod 0xffff, /* dst_mask */
1599*3d8817e4Smiod FALSE), /* pcrel_offset */
1600*3d8817e4Smiod
1601*3d8817e4Smiod /* Modifiable relative branch. */
1602*3d8817e4Smiod HOWTO (R_RRTBI, /* type */
1603*3d8817e4Smiod 1, /* rightshift */
1604*3d8817e4Smiod 2, /* size (0 = byte, 1 = short, 2 = long) */
1605*3d8817e4Smiod 32, /* bitsize */
1606*3d8817e4Smiod FALSE, /* pc_relative */
1607*3d8817e4Smiod 0, /* bitpos */
1608*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1609*3d8817e4Smiod 0, /* special_function */
1610*3d8817e4Smiod "R_RRTBI", /* name */
1611*3d8817e4Smiod TRUE, /* partial_inplace */
1612*3d8817e4Smiod 0xffffffff, /* src_mask */
1613*3d8817e4Smiod 0xffffffff, /* dst_mask */
1614*3d8817e4Smiod FALSE), /* pcrel_offset */
1615*3d8817e4Smiod
1616*3d8817e4Smiod /* Modifiable absolute branch. */
1617*3d8817e4Smiod HOWTO (R_RRTBA, /* type */
1618*3d8817e4Smiod 1, /* rightshift */
1619*3d8817e4Smiod 2, /* size (0 = byte, 1 = short, 2 = long) */
1620*3d8817e4Smiod 32, /* bitsize */
1621*3d8817e4Smiod FALSE, /* pc_relative */
1622*3d8817e4Smiod 0, /* bitpos */
1623*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1624*3d8817e4Smiod 0, /* special_function */
1625*3d8817e4Smiod "R_RRTBA", /* name */
1626*3d8817e4Smiod TRUE, /* partial_inplace */
1627*3d8817e4Smiod 0xffffffff, /* src_mask */
1628*3d8817e4Smiod 0xffffffff, /* dst_mask */
1629*3d8817e4Smiod FALSE), /* pcrel_offset */
1630*3d8817e4Smiod
1631*3d8817e4Smiod /* Modifiable call absolute indirect. */
1632*3d8817e4Smiod HOWTO (R_CAI, /* type */
1633*3d8817e4Smiod 0, /* rightshift */
1634*3d8817e4Smiod 1, /* size (0 = byte, 1 = short, 2 = long) */
1635*3d8817e4Smiod 16, /* bitsize */
1636*3d8817e4Smiod FALSE, /* pc_relative */
1637*3d8817e4Smiod 0, /* bitpos */
1638*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1639*3d8817e4Smiod 0, /* special_function */
1640*3d8817e4Smiod "R_CAI", /* name */
1641*3d8817e4Smiod TRUE, /* partial_inplace */
1642*3d8817e4Smiod 0xffff, /* src_mask */
1643*3d8817e4Smiod 0xffff, /* dst_mask */
1644*3d8817e4Smiod FALSE), /* pcrel_offset */
1645*3d8817e4Smiod
1646*3d8817e4Smiod /* Modifiable call relative. */
1647*3d8817e4Smiod HOWTO (R_CREL, /* type */
1648*3d8817e4Smiod 0, /* rightshift */
1649*3d8817e4Smiod 1, /* size (0 = byte, 1 = short, 2 = long) */
1650*3d8817e4Smiod 16, /* bitsize */
1651*3d8817e4Smiod FALSE, /* pc_relative */
1652*3d8817e4Smiod 0, /* bitpos */
1653*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1654*3d8817e4Smiod 0, /* special_function */
1655*3d8817e4Smiod "R_CREL", /* name */
1656*3d8817e4Smiod TRUE, /* partial_inplace */
1657*3d8817e4Smiod 0xffff, /* src_mask */
1658*3d8817e4Smiod 0xffff, /* dst_mask */
1659*3d8817e4Smiod FALSE), /* pcrel_offset */
1660*3d8817e4Smiod
1661*3d8817e4Smiod /* Modifiable branch absolute. */
1662*3d8817e4Smiod HOWTO (R_RBA, /* type */
1663*3d8817e4Smiod 0, /* rightshift */
1664*3d8817e4Smiod 2, /* size (0 = byte, 1 = short, 2 = long) */
1665*3d8817e4Smiod 26, /* bitsize */
1666*3d8817e4Smiod FALSE, /* pc_relative */
1667*3d8817e4Smiod 0, /* bitpos */
1668*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1669*3d8817e4Smiod 0, /* special_function */
1670*3d8817e4Smiod "R_RBA", /* name */
1671*3d8817e4Smiod TRUE, /* partial_inplace */
1672*3d8817e4Smiod 0x03fffffc, /* src_mask */
1673*3d8817e4Smiod 0x03fffffc, /* dst_mask */
1674*3d8817e4Smiod FALSE), /* pcrel_offset */
1675*3d8817e4Smiod
1676*3d8817e4Smiod /* Modifiable branch absolute. */
1677*3d8817e4Smiod HOWTO (R_RBAC, /* type */
1678*3d8817e4Smiod 0, /* rightshift */
1679*3d8817e4Smiod 2, /* size (0 = byte, 1 = short, 2 = long) */
1680*3d8817e4Smiod 32, /* bitsize */
1681*3d8817e4Smiod FALSE, /* pc_relative */
1682*3d8817e4Smiod 0, /* bitpos */
1683*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1684*3d8817e4Smiod 0, /* special_function */
1685*3d8817e4Smiod "R_RBAC", /* name */
1686*3d8817e4Smiod TRUE, /* partial_inplace */
1687*3d8817e4Smiod 0xffffffff, /* src_mask */
1688*3d8817e4Smiod 0xffffffff, /* dst_mask */
1689*3d8817e4Smiod FALSE), /* pcrel_offset */
1690*3d8817e4Smiod
1691*3d8817e4Smiod /* Modifiable branch relative. */
1692*3d8817e4Smiod HOWTO (R_RBR, /* type */
1693*3d8817e4Smiod 0, /* rightshift */
1694*3d8817e4Smiod 2, /* size (0 = byte, 1 = short, 2 = long) */
1695*3d8817e4Smiod 26, /* bitsize */
1696*3d8817e4Smiod FALSE, /* pc_relative */
1697*3d8817e4Smiod 0, /* bitpos */
1698*3d8817e4Smiod complain_overflow_signed, /* complain_on_overflow */
1699*3d8817e4Smiod 0, /* special_function */
1700*3d8817e4Smiod "R_RBR_26", /* name */
1701*3d8817e4Smiod TRUE, /* partial_inplace */
1702*3d8817e4Smiod 0x03fffffc, /* src_mask */
1703*3d8817e4Smiod 0x03fffffc, /* dst_mask */
1704*3d8817e4Smiod FALSE), /* pcrel_offset */
1705*3d8817e4Smiod
1706*3d8817e4Smiod /* Modifiable branch absolute. */
1707*3d8817e4Smiod HOWTO (R_RBRC, /* type */
1708*3d8817e4Smiod 0, /* rightshift */
1709*3d8817e4Smiod 1, /* size (0 = byte, 1 = short, 2 = long) */
1710*3d8817e4Smiod 16, /* bitsize */
1711*3d8817e4Smiod FALSE, /* pc_relative */
1712*3d8817e4Smiod 0, /* bitpos */
1713*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1714*3d8817e4Smiod 0, /* special_function */
1715*3d8817e4Smiod "R_RBRC", /* name */
1716*3d8817e4Smiod TRUE, /* partial_inplace */
1717*3d8817e4Smiod 0xffff, /* src_mask */
1718*3d8817e4Smiod 0xffff, /* dst_mask */
1719*3d8817e4Smiod FALSE), /* pcrel_offset */
1720*3d8817e4Smiod
1721*3d8817e4Smiod HOWTO (R_POS, /* type */
1722*3d8817e4Smiod 0, /* rightshift */
1723*3d8817e4Smiod 2, /* size (0 = byte, 1 = short, 2 = long) */
1724*3d8817e4Smiod 32, /* bitsize */
1725*3d8817e4Smiod FALSE, /* pc_relative */
1726*3d8817e4Smiod 0, /* bitpos */
1727*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1728*3d8817e4Smiod 0, /* special_function */
1729*3d8817e4Smiod "R_POS_32", /* name */
1730*3d8817e4Smiod TRUE, /* partial_inplace */
1731*3d8817e4Smiod 0xffffffff, /* src_mask */
1732*3d8817e4Smiod 0xffffffff, /* dst_mask */
1733*3d8817e4Smiod FALSE), /* pcrel_offset */
1734*3d8817e4Smiod
1735*3d8817e4Smiod /* 16 bit Non modifiable absolute branch. */
1736*3d8817e4Smiod HOWTO (R_BA, /* type */
1737*3d8817e4Smiod 0, /* rightshift */
1738*3d8817e4Smiod 1, /* size (0 = byte, 1 = short, 2 = long) */
1739*3d8817e4Smiod 16, /* bitsize */
1740*3d8817e4Smiod FALSE, /* pc_relative */
1741*3d8817e4Smiod 0, /* bitpos */
1742*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1743*3d8817e4Smiod 0, /* special_function */
1744*3d8817e4Smiod "R_BA_16", /* name */
1745*3d8817e4Smiod TRUE, /* partial_inplace */
1746*3d8817e4Smiod 0xfffc, /* src_mask */
1747*3d8817e4Smiod 0xfffc, /* dst_mask */
1748*3d8817e4Smiod FALSE), /* pcrel_offset */
1749*3d8817e4Smiod
1750*3d8817e4Smiod /* Modifiable branch relative. */
1751*3d8817e4Smiod HOWTO (R_RBR, /* type */
1752*3d8817e4Smiod 0, /* rightshift */
1753*3d8817e4Smiod 1, /* size (0 = byte, 1 = short, 2 = long) */
1754*3d8817e4Smiod 16, /* bitsize */
1755*3d8817e4Smiod FALSE, /* pc_relative */
1756*3d8817e4Smiod 0, /* bitpos */
1757*3d8817e4Smiod complain_overflow_signed, /* complain_on_overflow */
1758*3d8817e4Smiod 0, /* special_function */
1759*3d8817e4Smiod "R_RBR_16", /* name */
1760*3d8817e4Smiod TRUE, /* partial_inplace */
1761*3d8817e4Smiod 0xffff, /* src_mask */
1762*3d8817e4Smiod 0xffff, /* dst_mask */
1763*3d8817e4Smiod FALSE), /* pcrel_offset */
1764*3d8817e4Smiod
1765*3d8817e4Smiod /* Modifiable branch absolute. */
1766*3d8817e4Smiod HOWTO (R_RBA, /* type */
1767*3d8817e4Smiod 0, /* rightshift */
1768*3d8817e4Smiod 1, /* size (0 = byte, 1 = short, 2 = long) */
1769*3d8817e4Smiod 16, /* bitsize */
1770*3d8817e4Smiod FALSE, /* pc_relative */
1771*3d8817e4Smiod 0, /* bitpos */
1772*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
1773*3d8817e4Smiod 0, /* special_function */
1774*3d8817e4Smiod "R_RBA_16", /* name */
1775*3d8817e4Smiod TRUE, /* partial_inplace */
1776*3d8817e4Smiod 0xffff, /* src_mask */
1777*3d8817e4Smiod 0xffff, /* dst_mask */
1778*3d8817e4Smiod FALSE), /* pcrel_offset */
1779*3d8817e4Smiod
1780*3d8817e4Smiod };
1781*3d8817e4Smiod
1782*3d8817e4Smiod void
xcoff64_rtype2howto(relent,internal)1783*3d8817e4Smiod xcoff64_rtype2howto (relent, internal)
1784*3d8817e4Smiod arelent *relent;
1785*3d8817e4Smiod struct internal_reloc *internal;
1786*3d8817e4Smiod {
1787*3d8817e4Smiod if (internal->r_type > R_RBRC)
1788*3d8817e4Smiod abort ();
1789*3d8817e4Smiod
1790*3d8817e4Smiod /* Default howto layout works most of the time */
1791*3d8817e4Smiod relent->howto = &xcoff64_howto_table[internal->r_type];
1792*3d8817e4Smiod
1793*3d8817e4Smiod /* Special case some 16 bit reloc */
1794*3d8817e4Smiod if (15 == (internal->r_size & 0x3f))
1795*3d8817e4Smiod {
1796*3d8817e4Smiod if (R_BA == internal->r_type)
1797*3d8817e4Smiod relent->howto = &xcoff64_howto_table[0x1d];
1798*3d8817e4Smiod else if (R_RBR == internal->r_type)
1799*3d8817e4Smiod relent->howto = &xcoff64_howto_table[0x1e];
1800*3d8817e4Smiod else if (R_RBA == internal->r_type)
1801*3d8817e4Smiod relent->howto = &xcoff64_howto_table[0x1f];
1802*3d8817e4Smiod }
1803*3d8817e4Smiod /* Special case 32 bit */
1804*3d8817e4Smiod else if (31 == (internal->r_size & 0x3f))
1805*3d8817e4Smiod {
1806*3d8817e4Smiod if (R_POS == internal->r_type)
1807*3d8817e4Smiod relent->howto = &xcoff64_howto_table[0x1c];
1808*3d8817e4Smiod }
1809*3d8817e4Smiod
1810*3d8817e4Smiod /* The r_size field of an XCOFF reloc encodes the bitsize of the
1811*3d8817e4Smiod relocation, as well as indicating whether it is signed or not.
1812*3d8817e4Smiod Doublecheck that the relocation information gathered from the
1813*3d8817e4Smiod type matches this information. The bitsize is not significant
1814*3d8817e4Smiod for R_REF relocs. */
1815*3d8817e4Smiod if (relent->howto->dst_mask != 0
1816*3d8817e4Smiod && (relent->howto->bitsize
1817*3d8817e4Smiod != ((unsigned int) internal->r_size & 0x3f) + 1))
1818*3d8817e4Smiod abort ();
1819*3d8817e4Smiod }
1820*3d8817e4Smiod
1821*3d8817e4Smiod reloc_howto_type *
xcoff64_reloc_type_lookup(abfd,code)1822*3d8817e4Smiod xcoff64_reloc_type_lookup (abfd, code)
1823*3d8817e4Smiod bfd *abfd ATTRIBUTE_UNUSED;
1824*3d8817e4Smiod bfd_reloc_code_real_type code;
1825*3d8817e4Smiod {
1826*3d8817e4Smiod switch (code)
1827*3d8817e4Smiod {
1828*3d8817e4Smiod case BFD_RELOC_PPC_B26:
1829*3d8817e4Smiod return &xcoff64_howto_table[0xa];
1830*3d8817e4Smiod case BFD_RELOC_PPC_BA16:
1831*3d8817e4Smiod return &xcoff64_howto_table[0x1d];
1832*3d8817e4Smiod case BFD_RELOC_PPC_BA26:
1833*3d8817e4Smiod return &xcoff64_howto_table[8];
1834*3d8817e4Smiod case BFD_RELOC_PPC_TOC16:
1835*3d8817e4Smiod return &xcoff64_howto_table[3];
1836*3d8817e4Smiod case BFD_RELOC_32:
1837*3d8817e4Smiod case BFD_RELOC_CTOR:
1838*3d8817e4Smiod return &xcoff64_howto_table[0x1c];
1839*3d8817e4Smiod case BFD_RELOC_64:
1840*3d8817e4Smiod return &xcoff64_howto_table[0];
1841*3d8817e4Smiod default:
1842*3d8817e4Smiod return NULL;
1843*3d8817e4Smiod }
1844*3d8817e4Smiod }
1845*3d8817e4Smiod
1846*3d8817e4Smiod /* Read in the armap of an XCOFF archive. */
1847*3d8817e4Smiod
1848*3d8817e4Smiod static bfd_boolean
xcoff64_slurp_armap(abfd)1849*3d8817e4Smiod xcoff64_slurp_armap (abfd)
1850*3d8817e4Smiod bfd *abfd;
1851*3d8817e4Smiod {
1852*3d8817e4Smiod file_ptr off;
1853*3d8817e4Smiod size_t namlen;
1854*3d8817e4Smiod bfd_size_type sz, amt;
1855*3d8817e4Smiod bfd_byte *contents, *cend;
1856*3d8817e4Smiod bfd_vma c, i;
1857*3d8817e4Smiod carsym *arsym;
1858*3d8817e4Smiod bfd_byte *p;
1859*3d8817e4Smiod file_ptr pos;
1860*3d8817e4Smiod
1861*3d8817e4Smiod /* This is for the new format. */
1862*3d8817e4Smiod struct xcoff_ar_hdr_big hdr;
1863*3d8817e4Smiod
1864*3d8817e4Smiod if (xcoff_ardata (abfd) == NULL)
1865*3d8817e4Smiod {
1866*3d8817e4Smiod bfd_has_map (abfd) = FALSE;
1867*3d8817e4Smiod return TRUE;
1868*3d8817e4Smiod }
1869*3d8817e4Smiod
1870*3d8817e4Smiod off = bfd_scan_vma (xcoff_ardata_big (abfd)->symoff64,
1871*3d8817e4Smiod (const char **) NULL, 10);
1872*3d8817e4Smiod if (off == 0)
1873*3d8817e4Smiod {
1874*3d8817e4Smiod bfd_has_map (abfd) = FALSE;
1875*3d8817e4Smiod return TRUE;
1876*3d8817e4Smiod }
1877*3d8817e4Smiod
1878*3d8817e4Smiod if (bfd_seek (abfd, off, SEEK_SET) != 0)
1879*3d8817e4Smiod return FALSE;
1880*3d8817e4Smiod
1881*3d8817e4Smiod /* The symbol table starts with a normal archive header. */
1882*3d8817e4Smiod if (bfd_bread ((PTR) &hdr, (bfd_size_type) SIZEOF_AR_HDR_BIG, abfd)
1883*3d8817e4Smiod != SIZEOF_AR_HDR_BIG)
1884*3d8817e4Smiod return FALSE;
1885*3d8817e4Smiod
1886*3d8817e4Smiod /* Skip the name (normally empty). */
1887*3d8817e4Smiod namlen = strtol (hdr.namlen, (char **) NULL, 10);
1888*3d8817e4Smiod pos = ((namlen + 1) & ~(size_t) 1) + SXCOFFARFMAG;
1889*3d8817e4Smiod if (bfd_seek (abfd, pos, SEEK_CUR) != 0)
1890*3d8817e4Smiod return FALSE;
1891*3d8817e4Smiod
1892*3d8817e4Smiod sz = bfd_scan_vma (hdr.size, (const char **) NULL, 10);
1893*3d8817e4Smiod
1894*3d8817e4Smiod /* Read in the entire symbol table. */
1895*3d8817e4Smiod contents = (bfd_byte *) bfd_alloc (abfd, sz);
1896*3d8817e4Smiod if (contents == NULL)
1897*3d8817e4Smiod return FALSE;
1898*3d8817e4Smiod if (bfd_bread ((PTR) contents, sz, abfd) != sz)
1899*3d8817e4Smiod return FALSE;
1900*3d8817e4Smiod
1901*3d8817e4Smiod /* The symbol table starts with an eight byte count. */
1902*3d8817e4Smiod c = H_GET_64 (abfd, contents);
1903*3d8817e4Smiod
1904*3d8817e4Smiod if (c * 8 >= sz)
1905*3d8817e4Smiod {
1906*3d8817e4Smiod bfd_set_error (bfd_error_bad_value);
1907*3d8817e4Smiod return FALSE;
1908*3d8817e4Smiod }
1909*3d8817e4Smiod amt = c;
1910*3d8817e4Smiod amt *= sizeof (carsym);
1911*3d8817e4Smiod bfd_ardata (abfd)->symdefs = (carsym *) bfd_alloc (abfd, amt);
1912*3d8817e4Smiod if (bfd_ardata (abfd)->symdefs == NULL)
1913*3d8817e4Smiod return FALSE;
1914*3d8817e4Smiod
1915*3d8817e4Smiod /* After the count comes a list of eight byte file offsets. */
1916*3d8817e4Smiod for (i = 0, arsym = bfd_ardata (abfd)->symdefs, p = contents + 8;
1917*3d8817e4Smiod i < c;
1918*3d8817e4Smiod ++i, ++arsym, p += 8)
1919*3d8817e4Smiod arsym->file_offset = H_GET_64 (abfd, p);
1920*3d8817e4Smiod
1921*3d8817e4Smiod /* After the file offsets come null terminated symbol names. */
1922*3d8817e4Smiod cend = contents + sz;
1923*3d8817e4Smiod for (i = 0, arsym = bfd_ardata (abfd)->symdefs;
1924*3d8817e4Smiod i < c;
1925*3d8817e4Smiod ++i, ++arsym, p += strlen ((char *) p) + 1)
1926*3d8817e4Smiod {
1927*3d8817e4Smiod if (p >= cend)
1928*3d8817e4Smiod {
1929*3d8817e4Smiod bfd_set_error (bfd_error_bad_value);
1930*3d8817e4Smiod return FALSE;
1931*3d8817e4Smiod }
1932*3d8817e4Smiod arsym->name = (char *) p;
1933*3d8817e4Smiod }
1934*3d8817e4Smiod
1935*3d8817e4Smiod bfd_ardata (abfd)->symdef_count = c;
1936*3d8817e4Smiod bfd_has_map (abfd) = TRUE;
1937*3d8817e4Smiod
1938*3d8817e4Smiod return TRUE;
1939*3d8817e4Smiod }
1940*3d8817e4Smiod
1941*3d8817e4Smiod
1942*3d8817e4Smiod /* See if this is an NEW XCOFF archive. */
1943*3d8817e4Smiod
1944*3d8817e4Smiod static const bfd_target *
xcoff64_archive_p(abfd)1945*3d8817e4Smiod xcoff64_archive_p (abfd)
1946*3d8817e4Smiod bfd *abfd;
1947*3d8817e4Smiod {
1948*3d8817e4Smiod struct artdata *tdata_hold;
1949*3d8817e4Smiod char magic[SXCOFFARMAG];
1950*3d8817e4Smiod /* This is the new format. */
1951*3d8817e4Smiod struct xcoff_ar_file_hdr_big hdr;
1952*3d8817e4Smiod bfd_size_type amt = SXCOFFARMAG;
1953*3d8817e4Smiod
1954*3d8817e4Smiod if (bfd_bread ((PTR) magic, amt, abfd) != amt)
1955*3d8817e4Smiod {
1956*3d8817e4Smiod if (bfd_get_error () != bfd_error_system_call)
1957*3d8817e4Smiod bfd_set_error (bfd_error_wrong_format);
1958*3d8817e4Smiod return NULL;
1959*3d8817e4Smiod }
1960*3d8817e4Smiod
1961*3d8817e4Smiod if (strncmp (magic, XCOFFARMAGBIG, SXCOFFARMAG) != 0)
1962*3d8817e4Smiod {
1963*3d8817e4Smiod bfd_set_error (bfd_error_wrong_format);
1964*3d8817e4Smiod return NULL;
1965*3d8817e4Smiod }
1966*3d8817e4Smiod
1967*3d8817e4Smiod /* Copy over the magic string. */
1968*3d8817e4Smiod memcpy (hdr.magic, magic, SXCOFFARMAG);
1969*3d8817e4Smiod
1970*3d8817e4Smiod /* Now read the rest of the file header. */
1971*3d8817e4Smiod amt = SIZEOF_AR_FILE_HDR_BIG - SXCOFFARMAG;
1972*3d8817e4Smiod if (bfd_bread ((PTR) &hdr.memoff, amt, abfd) != amt)
1973*3d8817e4Smiod {
1974*3d8817e4Smiod if (bfd_get_error () != bfd_error_system_call)
1975*3d8817e4Smiod bfd_set_error (bfd_error_wrong_format);
1976*3d8817e4Smiod return NULL;
1977*3d8817e4Smiod }
1978*3d8817e4Smiod
1979*3d8817e4Smiod tdata_hold = bfd_ardata (abfd);
1980*3d8817e4Smiod
1981*3d8817e4Smiod amt = sizeof (struct artdata);
1982*3d8817e4Smiod bfd_ardata (abfd) = (struct artdata *) bfd_zalloc (abfd, amt);
1983*3d8817e4Smiod if (bfd_ardata (abfd) == (struct artdata *) NULL)
1984*3d8817e4Smiod goto error_ret_restore;
1985*3d8817e4Smiod
1986*3d8817e4Smiod /* Already cleared by bfd_zalloc above.
1987*3d8817e4Smiod bfd_ardata (abfd)->cache = NULL;
1988*3d8817e4Smiod bfd_ardata (abfd)->archive_head = NULL;
1989*3d8817e4Smiod bfd_ardata (abfd)->symdefs = NULL;
1990*3d8817e4Smiod bfd_ardata (abfd)->extended_names = NULL;
1991*3d8817e4Smiod bfd_ardata (abfd)->extended_names_size = 0; */
1992*3d8817e4Smiod bfd_ardata (abfd)->first_file_filepos = bfd_scan_vma (hdr.firstmemoff,
1993*3d8817e4Smiod (const char **) NULL,
1994*3d8817e4Smiod 10);
1995*3d8817e4Smiod
1996*3d8817e4Smiod amt = SIZEOF_AR_FILE_HDR_BIG;
1997*3d8817e4Smiod bfd_ardata (abfd)->tdata = bfd_zalloc (abfd, amt);
1998*3d8817e4Smiod if (bfd_ardata (abfd)->tdata == NULL)
1999*3d8817e4Smiod goto error_ret;
2000*3d8817e4Smiod
2001*3d8817e4Smiod memcpy (bfd_ardata (abfd)->tdata, &hdr, SIZEOF_AR_FILE_HDR_BIG);
2002*3d8817e4Smiod
2003*3d8817e4Smiod if (! xcoff64_slurp_armap (abfd))
2004*3d8817e4Smiod {
2005*3d8817e4Smiod error_ret:
2006*3d8817e4Smiod bfd_release (abfd, bfd_ardata (abfd));
2007*3d8817e4Smiod error_ret_restore:
2008*3d8817e4Smiod bfd_ardata (abfd) = tdata_hold;
2009*3d8817e4Smiod return NULL;
2010*3d8817e4Smiod }
2011*3d8817e4Smiod
2012*3d8817e4Smiod return abfd->xvec;
2013*3d8817e4Smiod }
2014*3d8817e4Smiod
2015*3d8817e4Smiod
2016*3d8817e4Smiod /* Open the next element in an XCOFF archive. */
2017*3d8817e4Smiod
2018*3d8817e4Smiod static bfd *
xcoff64_openr_next_archived_file(archive,last_file)2019*3d8817e4Smiod xcoff64_openr_next_archived_file (archive, last_file)
2020*3d8817e4Smiod bfd *archive;
2021*3d8817e4Smiod bfd *last_file;
2022*3d8817e4Smiod {
2023*3d8817e4Smiod bfd_vma filestart;
2024*3d8817e4Smiod
2025*3d8817e4Smiod if ((xcoff_ardata (archive) == NULL)
2026*3d8817e4Smiod || ! xcoff_big_format_p (archive))
2027*3d8817e4Smiod {
2028*3d8817e4Smiod bfd_set_error (bfd_error_invalid_operation);
2029*3d8817e4Smiod return NULL;
2030*3d8817e4Smiod }
2031*3d8817e4Smiod
2032*3d8817e4Smiod if (last_file == NULL)
2033*3d8817e4Smiod {
2034*3d8817e4Smiod filestart = bfd_ardata (archive)->first_file_filepos;
2035*3d8817e4Smiod }
2036*3d8817e4Smiod else
2037*3d8817e4Smiod {
2038*3d8817e4Smiod filestart = bfd_scan_vma (arch_xhdr_big (last_file)->nextoff,
2039*3d8817e4Smiod (const char **) NULL, 10);
2040*3d8817e4Smiod }
2041*3d8817e4Smiod
2042*3d8817e4Smiod if (filestart == 0
2043*3d8817e4Smiod || filestart == bfd_scan_vma (xcoff_ardata_big (archive)->memoff,
2044*3d8817e4Smiod (const char **) NULL, 10)
2045*3d8817e4Smiod || filestart == bfd_scan_vma (xcoff_ardata_big (archive)->symoff,
2046*3d8817e4Smiod (const char **) NULL, 10))
2047*3d8817e4Smiod {
2048*3d8817e4Smiod bfd_set_error (bfd_error_no_more_archived_files);
2049*3d8817e4Smiod return NULL;
2050*3d8817e4Smiod }
2051*3d8817e4Smiod
2052*3d8817e4Smiod return _bfd_get_elt_at_filepos (archive, (file_ptr) filestart);
2053*3d8817e4Smiod }
2054*3d8817e4Smiod
2055*3d8817e4Smiod /* We can't use the usual coff_sizeof_headers routine, because AIX
2056*3d8817e4Smiod always uses an a.out header. */
2057*3d8817e4Smiod
2058*3d8817e4Smiod static int
xcoff64_sizeof_headers(abfd,reloc)2059*3d8817e4Smiod xcoff64_sizeof_headers (abfd, reloc)
2060*3d8817e4Smiod bfd *abfd;
2061*3d8817e4Smiod bfd_boolean reloc ATTRIBUTE_UNUSED;
2062*3d8817e4Smiod {
2063*3d8817e4Smiod int size;
2064*3d8817e4Smiod
2065*3d8817e4Smiod size = bfd_coff_filhsz (abfd);
2066*3d8817e4Smiod
2067*3d8817e4Smiod /* Don't think the small aout header can be used since some of the
2068*3d8817e4Smiod old elements have been reordered past the end of the old coff
2069*3d8817e4Smiod small aout size. */
2070*3d8817e4Smiod
2071*3d8817e4Smiod if (xcoff_data (abfd)->full_aouthdr)
2072*3d8817e4Smiod size += bfd_coff_aoutsz (abfd);
2073*3d8817e4Smiod
2074*3d8817e4Smiod size += abfd->section_count * bfd_coff_scnhsz (abfd);
2075*3d8817e4Smiod return size;
2076*3d8817e4Smiod }
2077*3d8817e4Smiod
2078*3d8817e4Smiod
2079*3d8817e4Smiod
2080*3d8817e4Smiod static asection *
xcoff64_create_csect_from_smclas(abfd,aux,symbol_name)2081*3d8817e4Smiod xcoff64_create_csect_from_smclas (abfd, aux, symbol_name)
2082*3d8817e4Smiod bfd *abfd;
2083*3d8817e4Smiod union internal_auxent *aux;
2084*3d8817e4Smiod const char *symbol_name;
2085*3d8817e4Smiod {
2086*3d8817e4Smiod asection *return_value = NULL;
2087*3d8817e4Smiod
2088*3d8817e4Smiod /* Changes from 32 :
2089*3d8817e4Smiod .sv == 8, is only for 32 bit programs
2090*3d8817e4Smiod .ti == 12 and .tb == 13 are now reserved. */
2091*3d8817e4Smiod static const char *names[19] =
2092*3d8817e4Smiod {
2093*3d8817e4Smiod ".pr", ".ro", ".db", ".tc", ".ua", ".rw", ".gl", ".xo",
2094*3d8817e4Smiod NULL, ".bs", ".ds", ".uc", NULL, NULL, NULL, ".tc0",
2095*3d8817e4Smiod ".td", ".sv64", ".sv3264"
2096*3d8817e4Smiod };
2097*3d8817e4Smiod
2098*3d8817e4Smiod if ((19 >= aux->x_csect.x_smclas)
2099*3d8817e4Smiod && (NULL != names[aux->x_csect.x_smclas]))
2100*3d8817e4Smiod {
2101*3d8817e4Smiod
2102*3d8817e4Smiod return_value = bfd_make_section_anyway
2103*3d8817e4Smiod (abfd, names[aux->x_csect.x_smclas]);
2104*3d8817e4Smiod
2105*3d8817e4Smiod }
2106*3d8817e4Smiod else
2107*3d8817e4Smiod {
2108*3d8817e4Smiod (*_bfd_error_handler)
2109*3d8817e4Smiod (_("%B: symbol `%s' has unrecognized smclas %d"),
2110*3d8817e4Smiod abfd, symbol_name, aux->x_csect.x_smclas);
2111*3d8817e4Smiod bfd_set_error (bfd_error_bad_value);
2112*3d8817e4Smiod }
2113*3d8817e4Smiod
2114*3d8817e4Smiod return return_value;
2115*3d8817e4Smiod }
2116*3d8817e4Smiod
2117*3d8817e4Smiod static bfd_boolean
xcoff64_is_lineno_count_overflow(abfd,value)2118*3d8817e4Smiod xcoff64_is_lineno_count_overflow (abfd, value)
2119*3d8817e4Smiod bfd *abfd ATTRIBUTE_UNUSED;
2120*3d8817e4Smiod bfd_vma value ATTRIBUTE_UNUSED;
2121*3d8817e4Smiod {
2122*3d8817e4Smiod return FALSE;
2123*3d8817e4Smiod }
2124*3d8817e4Smiod
2125*3d8817e4Smiod static bfd_boolean
xcoff64_is_reloc_count_overflow(abfd,value)2126*3d8817e4Smiod xcoff64_is_reloc_count_overflow (abfd, value)
2127*3d8817e4Smiod bfd *abfd ATTRIBUTE_UNUSED;
2128*3d8817e4Smiod bfd_vma value ATTRIBUTE_UNUSED;
2129*3d8817e4Smiod {
2130*3d8817e4Smiod return FALSE;
2131*3d8817e4Smiod }
2132*3d8817e4Smiod
2133*3d8817e4Smiod static bfd_vma
xcoff64_loader_symbol_offset(abfd,ldhdr)2134*3d8817e4Smiod xcoff64_loader_symbol_offset (abfd, ldhdr)
2135*3d8817e4Smiod bfd *abfd ATTRIBUTE_UNUSED;
2136*3d8817e4Smiod struct internal_ldhdr *ldhdr;
2137*3d8817e4Smiod {
2138*3d8817e4Smiod return (ldhdr->l_symoff);
2139*3d8817e4Smiod }
2140*3d8817e4Smiod
2141*3d8817e4Smiod static bfd_vma
xcoff64_loader_reloc_offset(abfd,ldhdr)2142*3d8817e4Smiod xcoff64_loader_reloc_offset (abfd, ldhdr)
2143*3d8817e4Smiod bfd *abfd ATTRIBUTE_UNUSED;
2144*3d8817e4Smiod struct internal_ldhdr *ldhdr;
2145*3d8817e4Smiod {
2146*3d8817e4Smiod return (ldhdr->l_rldoff);
2147*3d8817e4Smiod }
2148*3d8817e4Smiod
2149*3d8817e4Smiod static bfd_boolean
xcoff64_bad_format_hook(abfd,filehdr)2150*3d8817e4Smiod xcoff64_bad_format_hook (abfd, filehdr)
2151*3d8817e4Smiod bfd * abfd;
2152*3d8817e4Smiod PTR filehdr;
2153*3d8817e4Smiod {
2154*3d8817e4Smiod struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr;
2155*3d8817e4Smiod
2156*3d8817e4Smiod /* Check flavor first. */
2157*3d8817e4Smiod if (bfd_get_flavour (abfd) != bfd_target_xcoff_flavour)
2158*3d8817e4Smiod return FALSE;
2159*3d8817e4Smiod
2160*3d8817e4Smiod if (bfd_xcoff_magic_number (abfd) != internal_f->f_magic)
2161*3d8817e4Smiod return FALSE;
2162*3d8817e4Smiod
2163*3d8817e4Smiod return TRUE;
2164*3d8817e4Smiod }
2165*3d8817e4Smiod
2166*3d8817e4Smiod static bfd_boolean
xcoff64_generate_rtinit(abfd,init,fini,rtld)2167*3d8817e4Smiod xcoff64_generate_rtinit (abfd, init, fini, rtld)
2168*3d8817e4Smiod bfd *abfd;
2169*3d8817e4Smiod const char *init;
2170*3d8817e4Smiod const char *fini;
2171*3d8817e4Smiod bfd_boolean rtld;
2172*3d8817e4Smiod {
2173*3d8817e4Smiod bfd_byte filehdr_ext[FILHSZ];
2174*3d8817e4Smiod bfd_byte scnhdr_ext[SCNHSZ * 3];
2175*3d8817e4Smiod bfd_byte syment_ext[SYMESZ * 10];
2176*3d8817e4Smiod bfd_byte reloc_ext[RELSZ * 3];
2177*3d8817e4Smiod bfd_byte *data_buffer;
2178*3d8817e4Smiod bfd_size_type data_buffer_size;
2179*3d8817e4Smiod bfd_byte *string_table, *st_tmp;
2180*3d8817e4Smiod bfd_size_type string_table_size;
2181*3d8817e4Smiod bfd_vma val;
2182*3d8817e4Smiod size_t initsz, finisz;
2183*3d8817e4Smiod struct internal_filehdr filehdr;
2184*3d8817e4Smiod struct internal_scnhdr text_scnhdr;
2185*3d8817e4Smiod struct internal_scnhdr data_scnhdr;
2186*3d8817e4Smiod struct internal_scnhdr bss_scnhdr;
2187*3d8817e4Smiod struct internal_syment syment;
2188*3d8817e4Smiod union internal_auxent auxent;
2189*3d8817e4Smiod struct internal_reloc reloc;
2190*3d8817e4Smiod
2191*3d8817e4Smiod char *text_name = ".text";
2192*3d8817e4Smiod char *data_name = ".data";
2193*3d8817e4Smiod char *bss_name = ".bss";
2194*3d8817e4Smiod char *rtinit_name = "__rtinit";
2195*3d8817e4Smiod char *rtld_name = "__rtld";
2196*3d8817e4Smiod
2197*3d8817e4Smiod if (! bfd_xcoff_rtinit_size (abfd))
2198*3d8817e4Smiod return FALSE;
2199*3d8817e4Smiod
2200*3d8817e4Smiod initsz = (init == NULL ? 0 : 1 + strlen (init));
2201*3d8817e4Smiod finisz = (fini == NULL ? 0 : 1 + strlen (fini));
2202*3d8817e4Smiod
2203*3d8817e4Smiod /* File header. */
2204*3d8817e4Smiod memset (filehdr_ext, 0, FILHSZ);
2205*3d8817e4Smiod memset (&filehdr, 0, sizeof (struct internal_filehdr));
2206*3d8817e4Smiod filehdr.f_magic = bfd_xcoff_magic_number (abfd);
2207*3d8817e4Smiod filehdr.f_nscns = 3;
2208*3d8817e4Smiod filehdr.f_timdat = 0;
2209*3d8817e4Smiod filehdr.f_nsyms = 0; /* at least 6, no more than 8 */
2210*3d8817e4Smiod filehdr.f_symptr = 0; /* set below */
2211*3d8817e4Smiod filehdr.f_opthdr = 0;
2212*3d8817e4Smiod filehdr.f_flags = 0;
2213*3d8817e4Smiod
2214*3d8817e4Smiod /* Section headers. */
2215*3d8817e4Smiod memset (scnhdr_ext, 0, 3 * SCNHSZ);
2216*3d8817e4Smiod
2217*3d8817e4Smiod /* Text. */
2218*3d8817e4Smiod memset (&text_scnhdr, 0, sizeof (struct internal_scnhdr));
2219*3d8817e4Smiod memcpy (text_scnhdr.s_name, text_name, strlen (text_name));
2220*3d8817e4Smiod text_scnhdr.s_paddr = 0;
2221*3d8817e4Smiod text_scnhdr.s_vaddr = 0;
2222*3d8817e4Smiod text_scnhdr.s_size = 0;
2223*3d8817e4Smiod text_scnhdr.s_scnptr = 0;
2224*3d8817e4Smiod text_scnhdr.s_relptr = 0;
2225*3d8817e4Smiod text_scnhdr.s_lnnoptr = 0;
2226*3d8817e4Smiod text_scnhdr.s_nreloc = 0;
2227*3d8817e4Smiod text_scnhdr.s_nlnno = 0;
2228*3d8817e4Smiod text_scnhdr.s_flags = STYP_TEXT;
2229*3d8817e4Smiod
2230*3d8817e4Smiod /* Data. */
2231*3d8817e4Smiod memset (&data_scnhdr, 0, sizeof (struct internal_scnhdr));
2232*3d8817e4Smiod memcpy (data_scnhdr.s_name, data_name, strlen (data_name));
2233*3d8817e4Smiod data_scnhdr.s_paddr = 0;
2234*3d8817e4Smiod data_scnhdr.s_vaddr = 0;
2235*3d8817e4Smiod data_scnhdr.s_size = 0; /* set below */
2236*3d8817e4Smiod data_scnhdr.s_scnptr = FILHSZ + 3 * SCNHSZ;
2237*3d8817e4Smiod data_scnhdr.s_relptr = 0; /* set below */
2238*3d8817e4Smiod data_scnhdr.s_lnnoptr = 0;
2239*3d8817e4Smiod data_scnhdr.s_nreloc = 0; /* either 1 or 2 */
2240*3d8817e4Smiod data_scnhdr.s_nlnno = 0;
2241*3d8817e4Smiod data_scnhdr.s_flags = STYP_DATA;
2242*3d8817e4Smiod
2243*3d8817e4Smiod /* Bss. */
2244*3d8817e4Smiod memset (&bss_scnhdr, 0, sizeof (struct internal_scnhdr));
2245*3d8817e4Smiod memcpy (bss_scnhdr.s_name, bss_name, strlen (bss_name));
2246*3d8817e4Smiod bss_scnhdr.s_paddr = 0; /* set below */
2247*3d8817e4Smiod bss_scnhdr.s_vaddr = 0; /* set below */
2248*3d8817e4Smiod bss_scnhdr.s_size = 0; /* set below */
2249*3d8817e4Smiod bss_scnhdr.s_scnptr = 0;
2250*3d8817e4Smiod bss_scnhdr.s_relptr = 0;
2251*3d8817e4Smiod bss_scnhdr.s_lnnoptr = 0;
2252*3d8817e4Smiod bss_scnhdr.s_nreloc = 0;
2253*3d8817e4Smiod bss_scnhdr.s_nlnno = 0;
2254*3d8817e4Smiod bss_scnhdr.s_flags = STYP_BSS;
2255*3d8817e4Smiod
2256*3d8817e4Smiod /* .data
2257*3d8817e4Smiod 0x0000 0x00000000 : rtl
2258*3d8817e4Smiod 0x0004 0x00000000 :
2259*3d8817e4Smiod 0x0008 0x00000018 : offset to init, or 0
2260*3d8817e4Smiod 0x000C 0x00000038 : offset to fini, or 0
2261*3d8817e4Smiod 0x0010 0x00000010 : size of descriptor
2262*3d8817e4Smiod 0x0014 0x00000000 : pad
2263*3d8817e4Smiod 0x0018 0x00000000 : init, needs a reloc
2264*3d8817e4Smiod 0x001C 0x00000000 :
2265*3d8817e4Smiod 0x0020 0x00000058 : offset to init name
2266*3d8817e4Smiod 0x0024 0x00000000 : flags, padded to a word
2267*3d8817e4Smiod 0x0028 0x00000000 : empty init
2268*3d8817e4Smiod 0x002C 0x00000000 :
2269*3d8817e4Smiod 0x0030 0x00000000 :
2270*3d8817e4Smiod 0x0034 0x00000000 :
2271*3d8817e4Smiod 0x0038 0x00000000 : fini, needs a reloc
2272*3d8817e4Smiod 0x003C 0x00000000 :
2273*3d8817e4Smiod 0x0040 0x00000??? : offset to fini name
2274*3d8817e4Smiod 0x0044 0x00000000 : flags, padded to a word
2275*3d8817e4Smiod 0x0048 0x00000000 : empty fini
2276*3d8817e4Smiod 0x004C 0x00000000 :
2277*3d8817e4Smiod 0x0050 0x00000000 :
2278*3d8817e4Smiod 0x0054 0x00000000 :
2279*3d8817e4Smiod 0x0058 init name
2280*3d8817e4Smiod 0x0058 + initsz fini name */
2281*3d8817e4Smiod
2282*3d8817e4Smiod data_buffer_size = 0x0058 + initsz + finisz;
2283*3d8817e4Smiod data_buffer_size = (data_buffer_size + 7) &~ (bfd_size_type) 7;
2284*3d8817e4Smiod data_buffer = NULL;
2285*3d8817e4Smiod data_buffer = (bfd_byte *) bfd_zmalloc (data_buffer_size);
2286*3d8817e4Smiod if (data_buffer == NULL)
2287*3d8817e4Smiod return FALSE;
2288*3d8817e4Smiod
2289*3d8817e4Smiod if (initsz)
2290*3d8817e4Smiod {
2291*3d8817e4Smiod val = 0x18;
2292*3d8817e4Smiod bfd_put_32 (abfd, val, &data_buffer[0x08]);
2293*3d8817e4Smiod val = 0x58;
2294*3d8817e4Smiod bfd_put_32 (abfd, val, &data_buffer[0x20]);
2295*3d8817e4Smiod memcpy (&data_buffer[val], init, initsz);
2296*3d8817e4Smiod }
2297*3d8817e4Smiod
2298*3d8817e4Smiod if (finisz)
2299*3d8817e4Smiod {
2300*3d8817e4Smiod val = 0x38;
2301*3d8817e4Smiod bfd_put_32 (abfd, val, &data_buffer[0x0C]);
2302*3d8817e4Smiod val = 0x58 + initsz;
2303*3d8817e4Smiod bfd_put_32 (abfd, val, &data_buffer[0x40]);
2304*3d8817e4Smiod memcpy (&data_buffer[val], fini, finisz);
2305*3d8817e4Smiod }
2306*3d8817e4Smiod
2307*3d8817e4Smiod val = 0x10;
2308*3d8817e4Smiod bfd_put_32 (abfd, val, &data_buffer[0x10]);
2309*3d8817e4Smiod data_scnhdr.s_size = data_buffer_size;
2310*3d8817e4Smiod bss_scnhdr.s_paddr = bss_scnhdr.s_vaddr = data_scnhdr.s_size;
2311*3d8817e4Smiod
2312*3d8817e4Smiod /* String table. */
2313*3d8817e4Smiod string_table_size = 4;
2314*3d8817e4Smiod string_table_size += strlen (data_name) + 1;
2315*3d8817e4Smiod string_table_size += strlen (rtinit_name) + 1;
2316*3d8817e4Smiod string_table_size += initsz;
2317*3d8817e4Smiod string_table_size += finisz;
2318*3d8817e4Smiod if (rtld)
2319*3d8817e4Smiod string_table_size += strlen (rtld_name) + 1;
2320*3d8817e4Smiod
2321*3d8817e4Smiod string_table = (bfd_byte *) bfd_zmalloc (string_table_size);
2322*3d8817e4Smiod if (string_table == NULL)
2323*3d8817e4Smiod return FALSE;
2324*3d8817e4Smiod
2325*3d8817e4Smiod val = string_table_size;
2326*3d8817e4Smiod bfd_put_32 (abfd, val, &string_table[0]);
2327*3d8817e4Smiod st_tmp = string_table + 4;
2328*3d8817e4Smiod
2329*3d8817e4Smiod /* symbols
2330*3d8817e4Smiod 0. .data csect
2331*3d8817e4Smiod 2. __rtinit
2332*3d8817e4Smiod 4. init function
2333*3d8817e4Smiod 6. fini function
2334*3d8817e4Smiod 8. __rtld */
2335*3d8817e4Smiod memset (syment_ext, 0, 10 * SYMESZ);
2336*3d8817e4Smiod memset (reloc_ext, 0, 3 * RELSZ);
2337*3d8817e4Smiod
2338*3d8817e4Smiod /* .data csect */
2339*3d8817e4Smiod memset (&syment, 0, sizeof (struct internal_syment));
2340*3d8817e4Smiod memset (&auxent, 0, sizeof (union internal_auxent));
2341*3d8817e4Smiod
2342*3d8817e4Smiod syment._n._n_n._n_offset = st_tmp - string_table;
2343*3d8817e4Smiod memcpy (st_tmp, data_name, strlen (data_name));
2344*3d8817e4Smiod st_tmp += strlen (data_name) + 1;
2345*3d8817e4Smiod
2346*3d8817e4Smiod syment.n_scnum = 2;
2347*3d8817e4Smiod syment.n_sclass = C_HIDEXT;
2348*3d8817e4Smiod syment.n_numaux = 1;
2349*3d8817e4Smiod auxent.x_csect.x_scnlen.l = data_buffer_size;
2350*3d8817e4Smiod auxent.x_csect.x_smtyp = 3 << 3 | XTY_SD;
2351*3d8817e4Smiod auxent.x_csect.x_smclas = XMC_RW;
2352*3d8817e4Smiod bfd_coff_swap_sym_out (abfd, &syment,
2353*3d8817e4Smiod &syment_ext[filehdr.f_nsyms * SYMESZ]);
2354*3d8817e4Smiod bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2355*3d8817e4Smiod syment.n_numaux,
2356*3d8817e4Smiod &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2357*3d8817e4Smiod filehdr.f_nsyms += 2;
2358*3d8817e4Smiod
2359*3d8817e4Smiod /* __rtinit */
2360*3d8817e4Smiod memset (&syment, 0, sizeof (struct internal_syment));
2361*3d8817e4Smiod memset (&auxent, 0, sizeof (union internal_auxent));
2362*3d8817e4Smiod syment._n._n_n._n_offset = st_tmp - string_table;
2363*3d8817e4Smiod memcpy (st_tmp, rtinit_name, strlen (rtinit_name));
2364*3d8817e4Smiod st_tmp += strlen (rtinit_name) + 1;
2365*3d8817e4Smiod
2366*3d8817e4Smiod syment.n_scnum = 2;
2367*3d8817e4Smiod syment.n_sclass = C_EXT;
2368*3d8817e4Smiod syment.n_numaux = 1;
2369*3d8817e4Smiod auxent.x_csect.x_smtyp = XTY_LD;
2370*3d8817e4Smiod auxent.x_csect.x_smclas = XMC_RW;
2371*3d8817e4Smiod bfd_coff_swap_sym_out (abfd, &syment,
2372*3d8817e4Smiod &syment_ext[filehdr.f_nsyms * SYMESZ]);
2373*3d8817e4Smiod bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2374*3d8817e4Smiod syment.n_numaux,
2375*3d8817e4Smiod &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2376*3d8817e4Smiod filehdr.f_nsyms += 2;
2377*3d8817e4Smiod
2378*3d8817e4Smiod /* Init. */
2379*3d8817e4Smiod if (initsz)
2380*3d8817e4Smiod {
2381*3d8817e4Smiod memset (&syment, 0, sizeof (struct internal_syment));
2382*3d8817e4Smiod memset (&auxent, 0, sizeof (union internal_auxent));
2383*3d8817e4Smiod
2384*3d8817e4Smiod syment._n._n_n._n_offset = st_tmp - string_table;
2385*3d8817e4Smiod memcpy (st_tmp, init, initsz);
2386*3d8817e4Smiod st_tmp += initsz;
2387*3d8817e4Smiod
2388*3d8817e4Smiod syment.n_sclass = C_EXT;
2389*3d8817e4Smiod syment.n_numaux = 1;
2390*3d8817e4Smiod bfd_coff_swap_sym_out (abfd, &syment,
2391*3d8817e4Smiod &syment_ext[filehdr.f_nsyms * SYMESZ]);
2392*3d8817e4Smiod bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2393*3d8817e4Smiod syment.n_numaux,
2394*3d8817e4Smiod &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2395*3d8817e4Smiod /* Reloc. */
2396*3d8817e4Smiod memset (&reloc, 0, sizeof (struct internal_reloc));
2397*3d8817e4Smiod reloc.r_vaddr = 0x0018;
2398*3d8817e4Smiod reloc.r_symndx = filehdr.f_nsyms;
2399*3d8817e4Smiod reloc.r_type = R_POS;
2400*3d8817e4Smiod reloc.r_size = 63;
2401*3d8817e4Smiod bfd_coff_swap_reloc_out (abfd, &reloc, &reloc_ext[0]);
2402*3d8817e4Smiod
2403*3d8817e4Smiod filehdr.f_nsyms += 2;
2404*3d8817e4Smiod data_scnhdr.s_nreloc += 1;
2405*3d8817e4Smiod }
2406*3d8817e4Smiod
2407*3d8817e4Smiod /* Finit. */
2408*3d8817e4Smiod if (finisz)
2409*3d8817e4Smiod {
2410*3d8817e4Smiod memset (&syment, 0, sizeof (struct internal_syment));
2411*3d8817e4Smiod memset (&auxent, 0, sizeof (union internal_auxent));
2412*3d8817e4Smiod
2413*3d8817e4Smiod syment._n._n_n._n_offset = st_tmp - string_table;
2414*3d8817e4Smiod memcpy (st_tmp, fini, finisz);
2415*3d8817e4Smiod st_tmp += finisz;
2416*3d8817e4Smiod
2417*3d8817e4Smiod syment.n_sclass = C_EXT;
2418*3d8817e4Smiod syment.n_numaux = 1;
2419*3d8817e4Smiod bfd_coff_swap_sym_out (abfd, &syment,
2420*3d8817e4Smiod &syment_ext[filehdr.f_nsyms * SYMESZ]);
2421*3d8817e4Smiod bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2422*3d8817e4Smiod syment.n_numaux,
2423*3d8817e4Smiod &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2424*3d8817e4Smiod
2425*3d8817e4Smiod /* Reloc. */
2426*3d8817e4Smiod memset (&reloc, 0, sizeof (struct internal_reloc));
2427*3d8817e4Smiod reloc.r_vaddr = 0x0038;
2428*3d8817e4Smiod reloc.r_symndx = filehdr.f_nsyms;
2429*3d8817e4Smiod reloc.r_type = R_POS;
2430*3d8817e4Smiod reloc.r_size = 63;
2431*3d8817e4Smiod bfd_coff_swap_reloc_out (abfd, &reloc,
2432*3d8817e4Smiod &reloc_ext[data_scnhdr.s_nreloc * RELSZ]);
2433*3d8817e4Smiod
2434*3d8817e4Smiod filehdr.f_nsyms += 2;
2435*3d8817e4Smiod data_scnhdr.s_nreloc += 1;
2436*3d8817e4Smiod }
2437*3d8817e4Smiod
2438*3d8817e4Smiod if (rtld)
2439*3d8817e4Smiod {
2440*3d8817e4Smiod memset (&syment, 0, sizeof (struct internal_syment));
2441*3d8817e4Smiod memset (&auxent, 0, sizeof (union internal_auxent));
2442*3d8817e4Smiod
2443*3d8817e4Smiod syment._n._n_n._n_offset = st_tmp - string_table;
2444*3d8817e4Smiod memcpy (st_tmp, rtld_name, strlen (rtld_name));
2445*3d8817e4Smiod st_tmp += strlen (rtld_name) + 1;
2446*3d8817e4Smiod
2447*3d8817e4Smiod syment.n_sclass = C_EXT;
2448*3d8817e4Smiod syment.n_numaux = 1;
2449*3d8817e4Smiod bfd_coff_swap_sym_out (abfd, &syment,
2450*3d8817e4Smiod &syment_ext[filehdr.f_nsyms * SYMESZ]);
2451*3d8817e4Smiod bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
2452*3d8817e4Smiod syment.n_numaux,
2453*3d8817e4Smiod &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
2454*3d8817e4Smiod
2455*3d8817e4Smiod /* Reloc. */
2456*3d8817e4Smiod memset (&reloc, 0, sizeof (struct internal_reloc));
2457*3d8817e4Smiod reloc.r_vaddr = 0x0000;
2458*3d8817e4Smiod reloc.r_symndx = filehdr.f_nsyms;
2459*3d8817e4Smiod reloc.r_type = R_POS;
2460*3d8817e4Smiod reloc.r_size = 63;
2461*3d8817e4Smiod bfd_coff_swap_reloc_out (abfd, &reloc,
2462*3d8817e4Smiod &reloc_ext[data_scnhdr.s_nreloc * RELSZ]);
2463*3d8817e4Smiod
2464*3d8817e4Smiod filehdr.f_nsyms += 2;
2465*3d8817e4Smiod data_scnhdr.s_nreloc += 1;
2466*3d8817e4Smiod
2467*3d8817e4Smiod bss_scnhdr.s_size = 0;
2468*3d8817e4Smiod }
2469*3d8817e4Smiod
2470*3d8817e4Smiod data_scnhdr.s_relptr = data_scnhdr.s_scnptr + data_buffer_size;
2471*3d8817e4Smiod filehdr.f_symptr = data_scnhdr.s_relptr + data_scnhdr.s_nreloc * RELSZ;
2472*3d8817e4Smiod
2473*3d8817e4Smiod bfd_coff_swap_filehdr_out (abfd, &filehdr, filehdr_ext);
2474*3d8817e4Smiod bfd_bwrite (filehdr_ext, FILHSZ, abfd);
2475*3d8817e4Smiod bfd_coff_swap_scnhdr_out (abfd, &text_scnhdr, &scnhdr_ext[SCNHSZ * 0]);
2476*3d8817e4Smiod bfd_coff_swap_scnhdr_out (abfd, &data_scnhdr, &scnhdr_ext[SCNHSZ * 1]);
2477*3d8817e4Smiod bfd_coff_swap_scnhdr_out (abfd, &bss_scnhdr, &scnhdr_ext[SCNHSZ * 2]);
2478*3d8817e4Smiod bfd_bwrite (scnhdr_ext, 3 * SCNHSZ, abfd);
2479*3d8817e4Smiod bfd_bwrite (data_buffer, data_buffer_size, abfd);
2480*3d8817e4Smiod bfd_bwrite (reloc_ext, data_scnhdr.s_nreloc * RELSZ, abfd);
2481*3d8817e4Smiod bfd_bwrite (syment_ext, filehdr.f_nsyms * SYMESZ, abfd);
2482*3d8817e4Smiod bfd_bwrite (string_table, string_table_size, abfd);
2483*3d8817e4Smiod
2484*3d8817e4Smiod free (data_buffer);
2485*3d8817e4Smiod data_buffer = NULL;
2486*3d8817e4Smiod
2487*3d8817e4Smiod return TRUE;
2488*3d8817e4Smiod }
2489*3d8817e4Smiod
2490*3d8817e4Smiod /* The typical dynamic reloc. */
2491*3d8817e4Smiod
2492*3d8817e4Smiod static reloc_howto_type xcoff64_dynamic_reloc =
2493*3d8817e4Smiod HOWTO (0, /* type */
2494*3d8817e4Smiod 0, /* rightshift */
2495*3d8817e4Smiod 4, /* size (0 = byte, 1 = short, 2 = long) */
2496*3d8817e4Smiod 64, /* bitsize */
2497*3d8817e4Smiod FALSE, /* pc_relative */
2498*3d8817e4Smiod 0, /* bitpos */
2499*3d8817e4Smiod complain_overflow_bitfield, /* complain_on_overflow */
2500*3d8817e4Smiod 0, /* special_function */
2501*3d8817e4Smiod "R_POS", /* name */
2502*3d8817e4Smiod TRUE, /* partial_inplace */
2503*3d8817e4Smiod MINUS_ONE, /* src_mask */
2504*3d8817e4Smiod MINUS_ONE, /* dst_mask */
2505*3d8817e4Smiod FALSE); /* pcrel_offset */
2506*3d8817e4Smiod
2507*3d8817e4Smiod static unsigned long xcoff64_glink_code[10] =
2508*3d8817e4Smiod {
2509*3d8817e4Smiod 0xe9820000, /* ld r12,0(r2) */
2510*3d8817e4Smiod 0xf8410028, /* std r2,40(r1) */
2511*3d8817e4Smiod 0xe80c0000, /* ld r0,0(r12) */
2512*3d8817e4Smiod 0xe84c0008, /* ld r0,8(r12) */
2513*3d8817e4Smiod 0x7c0903a6, /* mtctr r0 */
2514*3d8817e4Smiod 0x4e800420, /* bctr */
2515*3d8817e4Smiod 0x00000000, /* start of traceback table */
2516*3d8817e4Smiod 0x000ca000, /* traceback table */
2517*3d8817e4Smiod 0x00000000, /* traceback table */
2518*3d8817e4Smiod 0x00000018, /* ??? */
2519*3d8817e4Smiod };
2520*3d8817e4Smiod
2521*3d8817e4Smiod static const struct xcoff_backend_data_rec bfd_xcoff_backend_data =
2522*3d8817e4Smiod {
2523*3d8817e4Smiod { /* COFF backend, defined in libcoff.h. */
2524*3d8817e4Smiod _bfd_xcoff64_swap_aux_in,
2525*3d8817e4Smiod _bfd_xcoff64_swap_sym_in,
2526*3d8817e4Smiod _bfd_xcoff64_swap_lineno_in,
2527*3d8817e4Smiod _bfd_xcoff64_swap_aux_out,
2528*3d8817e4Smiod _bfd_xcoff64_swap_sym_out,
2529*3d8817e4Smiod _bfd_xcoff64_swap_lineno_out,
2530*3d8817e4Smiod xcoff64_swap_reloc_out,
2531*3d8817e4Smiod coff_swap_filehdr_out,
2532*3d8817e4Smiod coff_swap_aouthdr_out,
2533*3d8817e4Smiod coff_swap_scnhdr_out,
2534*3d8817e4Smiod FILHSZ,
2535*3d8817e4Smiod AOUTSZ,
2536*3d8817e4Smiod SCNHSZ,
2537*3d8817e4Smiod SYMESZ,
2538*3d8817e4Smiod AUXESZ,
2539*3d8817e4Smiod RELSZ,
2540*3d8817e4Smiod LINESZ,
2541*3d8817e4Smiod FILNMLEN,
2542*3d8817e4Smiod TRUE, /* _bfd_coff_long_filenames */
2543*3d8817e4Smiod FALSE, /* _bfd_coff_long_section_names */
2544*3d8817e4Smiod 3, /* _bfd_coff_default_section_alignment_power */
2545*3d8817e4Smiod TRUE, /* _bfd_coff_force_symnames_in_strings */
2546*3d8817e4Smiod 4, /* _bfd_coff_debug_string_prefix_length */
2547*3d8817e4Smiod coff_swap_filehdr_in,
2548*3d8817e4Smiod coff_swap_aouthdr_in,
2549*3d8817e4Smiod coff_swap_scnhdr_in,
2550*3d8817e4Smiod xcoff64_swap_reloc_in,
2551*3d8817e4Smiod xcoff64_bad_format_hook,
2552*3d8817e4Smiod coff_set_arch_mach_hook,
2553*3d8817e4Smiod coff_mkobject_hook,
2554*3d8817e4Smiod styp_to_sec_flags,
2555*3d8817e4Smiod coff_set_alignment_hook,
2556*3d8817e4Smiod coff_slurp_symbol_table,
2557*3d8817e4Smiod symname_in_debug_hook,
2558*3d8817e4Smiod coff_pointerize_aux_hook,
2559*3d8817e4Smiod coff_print_aux,
2560*3d8817e4Smiod dummy_reloc16_extra_cases,
2561*3d8817e4Smiod dummy_reloc16_estimate,
2562*3d8817e4Smiod NULL, /* bfd_coff_sym_is_global */
2563*3d8817e4Smiod coff_compute_section_file_positions,
2564*3d8817e4Smiod NULL, /* _bfd_coff_start_final_link */
2565*3d8817e4Smiod xcoff64_ppc_relocate_section,
2566*3d8817e4Smiod coff_rtype_to_howto,
2567*3d8817e4Smiod NULL, /* _bfd_coff_adjust_symndx */
2568*3d8817e4Smiod _bfd_generic_link_add_one_symbol,
2569*3d8817e4Smiod coff_link_output_has_begun,
2570*3d8817e4Smiod coff_final_link_postscript
2571*3d8817e4Smiod },
2572*3d8817e4Smiod
2573*3d8817e4Smiod 0x01EF, /* magic number */
2574*3d8817e4Smiod bfd_arch_powerpc,
2575*3d8817e4Smiod bfd_mach_ppc_620,
2576*3d8817e4Smiod
2577*3d8817e4Smiod /* Function pointers to xcoff specific swap routines. */
2578*3d8817e4Smiod xcoff64_swap_ldhdr_in,
2579*3d8817e4Smiod xcoff64_swap_ldhdr_out,
2580*3d8817e4Smiod xcoff64_swap_ldsym_in,
2581*3d8817e4Smiod xcoff64_swap_ldsym_out,
2582*3d8817e4Smiod xcoff64_swap_ldrel_in,
2583*3d8817e4Smiod xcoff64_swap_ldrel_out,
2584*3d8817e4Smiod
2585*3d8817e4Smiod /* Sizes. */
2586*3d8817e4Smiod LDHDRSZ,
2587*3d8817e4Smiod LDSYMSZ,
2588*3d8817e4Smiod LDRELSZ,
2589*3d8817e4Smiod 24, /* _xcoff_function_descriptor_size */
2590*3d8817e4Smiod 0, /* _xcoff_small_aout_header_size */
2591*3d8817e4Smiod
2592*3d8817e4Smiod /* Versions. */
2593*3d8817e4Smiod 2, /* _xcoff_ldhdr_version */
2594*3d8817e4Smiod
2595*3d8817e4Smiod _bfd_xcoff64_put_symbol_name,
2596*3d8817e4Smiod _bfd_xcoff64_put_ldsymbol_name,
2597*3d8817e4Smiod &xcoff64_dynamic_reloc,
2598*3d8817e4Smiod xcoff64_create_csect_from_smclas,
2599*3d8817e4Smiod
2600*3d8817e4Smiod /* Lineno and reloc count overflow. */
2601*3d8817e4Smiod xcoff64_is_lineno_count_overflow,
2602*3d8817e4Smiod xcoff64_is_reloc_count_overflow,
2603*3d8817e4Smiod
2604*3d8817e4Smiod xcoff64_loader_symbol_offset,
2605*3d8817e4Smiod xcoff64_loader_reloc_offset,
2606*3d8817e4Smiod
2607*3d8817e4Smiod /* glink. */
2608*3d8817e4Smiod &xcoff64_glink_code[0],
2609*3d8817e4Smiod 40, /* _xcoff_glink_size */
2610*3d8817e4Smiod
2611*3d8817e4Smiod /* rtinit. */
2612*3d8817e4Smiod 88, /* _xcoff_rtinit_size */
2613*3d8817e4Smiod xcoff64_generate_rtinit,
2614*3d8817e4Smiod };
2615*3d8817e4Smiod
2616*3d8817e4Smiod /* The transfer vector that leads the outside world to all of the above. */
2617*3d8817e4Smiod const bfd_target rs6000coff64_vec =
2618*3d8817e4Smiod {
2619*3d8817e4Smiod "aixcoff64-rs6000",
2620*3d8817e4Smiod bfd_target_xcoff_flavour,
2621*3d8817e4Smiod BFD_ENDIAN_BIG, /* data byte order is big */
2622*3d8817e4Smiod BFD_ENDIAN_BIG, /* header byte order is big */
2623*3d8817e4Smiod
2624*3d8817e4Smiod (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | DYNAMIC
2625*3d8817e4Smiod | HAS_SYMS | HAS_LOCALS | WP_TEXT),
2626*3d8817e4Smiod
2627*3d8817e4Smiod SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA,
2628*3d8817e4Smiod 0, /* leading char */
2629*3d8817e4Smiod '/', /* ar_pad_char */
2630*3d8817e4Smiod 15, /* ar_max_namelen */
2631*3d8817e4Smiod
2632*3d8817e4Smiod /* data */
2633*3d8817e4Smiod bfd_getb64,
2634*3d8817e4Smiod bfd_getb_signed_64,
2635*3d8817e4Smiod bfd_putb64,
2636*3d8817e4Smiod bfd_getb32,
2637*3d8817e4Smiod bfd_getb_signed_32,
2638*3d8817e4Smiod bfd_putb32,
2639*3d8817e4Smiod bfd_getb16,
2640*3d8817e4Smiod bfd_getb_signed_16,
2641*3d8817e4Smiod bfd_putb16,
2642*3d8817e4Smiod
2643*3d8817e4Smiod /* hdrs */
2644*3d8817e4Smiod bfd_getb64,
2645*3d8817e4Smiod bfd_getb_signed_64,
2646*3d8817e4Smiod bfd_putb64,
2647*3d8817e4Smiod bfd_getb32,
2648*3d8817e4Smiod bfd_getb_signed_32,
2649*3d8817e4Smiod bfd_putb32,
2650*3d8817e4Smiod bfd_getb16,
2651*3d8817e4Smiod bfd_getb_signed_16,
2652*3d8817e4Smiod bfd_putb16,
2653*3d8817e4Smiod
2654*3d8817e4Smiod { /* bfd_check_format */
2655*3d8817e4Smiod _bfd_dummy_target,
2656*3d8817e4Smiod coff_object_p,
2657*3d8817e4Smiod xcoff64_archive_p,
2658*3d8817e4Smiod CORE_FILE_P
2659*3d8817e4Smiod },
2660*3d8817e4Smiod
2661*3d8817e4Smiod { /* bfd_set_format */
2662*3d8817e4Smiod bfd_false,
2663*3d8817e4Smiod coff_mkobject,
2664*3d8817e4Smiod _bfd_generic_mkarchive,
2665*3d8817e4Smiod bfd_false
2666*3d8817e4Smiod },
2667*3d8817e4Smiod
2668*3d8817e4Smiod {/* bfd_write_contents */
2669*3d8817e4Smiod bfd_false,
2670*3d8817e4Smiod xcoff64_write_object_contents,
2671*3d8817e4Smiod _bfd_xcoff_write_archive_contents,
2672*3d8817e4Smiod bfd_false
2673*3d8817e4Smiod },
2674*3d8817e4Smiod
2675*3d8817e4Smiod /* Generic */
2676*3d8817e4Smiod bfd_true,
2677*3d8817e4Smiod bfd_true,
2678*3d8817e4Smiod coff_new_section_hook,
2679*3d8817e4Smiod _bfd_generic_get_section_contents,
2680*3d8817e4Smiod _bfd_generic_get_section_contents_in_window,
2681*3d8817e4Smiod
2682*3d8817e4Smiod /* Copy */
2683*3d8817e4Smiod _bfd_xcoff_copy_private_bfd_data,
2684*3d8817e4Smiod ((bfd_boolean (*) (bfd *, bfd *)) bfd_true),
2685*3d8817e4Smiod _bfd_generic_init_private_section_data,
2686*3d8817e4Smiod ((bfd_boolean (*) (bfd *, asection *, bfd *, asection *)) bfd_true),
2687*3d8817e4Smiod ((bfd_boolean (*) (bfd *, asymbol *, bfd *, asymbol *)) bfd_true),
2688*3d8817e4Smiod ((bfd_boolean (*) (bfd *, bfd *)) bfd_true),
2689*3d8817e4Smiod ((bfd_boolean (*) (bfd *, flagword)) bfd_true),
2690*3d8817e4Smiod ((bfd_boolean (*) (bfd *, void * )) bfd_true),
2691*3d8817e4Smiod
2692*3d8817e4Smiod /* Core */
2693*3d8817e4Smiod coff_core_file_failing_command,
2694*3d8817e4Smiod coff_core_file_failing_signal,
2695*3d8817e4Smiod coff_core_file_matches_executable_p,
2696*3d8817e4Smiod
2697*3d8817e4Smiod /* Archive */
2698*3d8817e4Smiod xcoff64_slurp_armap,
2699*3d8817e4Smiod bfd_false,
2700*3d8817e4Smiod ((bfd_boolean (*) (bfd *, char **, bfd_size_type *, const char **)) bfd_false),
2701*3d8817e4Smiod bfd_dont_truncate_arname,
2702*3d8817e4Smiod _bfd_xcoff_write_armap,
2703*3d8817e4Smiod _bfd_xcoff_read_ar_hdr,
2704*3d8817e4Smiod xcoff64_openr_next_archived_file,
2705*3d8817e4Smiod _bfd_generic_get_elt_at_index,
2706*3d8817e4Smiod _bfd_xcoff_stat_arch_elt,
2707*3d8817e4Smiod bfd_true,
2708*3d8817e4Smiod
2709*3d8817e4Smiod /* Symbols */
2710*3d8817e4Smiod coff_get_symtab_upper_bound,
2711*3d8817e4Smiod coff_canonicalize_symtab,
2712*3d8817e4Smiod coff_make_empty_symbol,
2713*3d8817e4Smiod coff_print_symbol,
2714*3d8817e4Smiod coff_get_symbol_info,
2715*3d8817e4Smiod _bfd_xcoff_is_local_label_name,
2716*3d8817e4Smiod coff_bfd_is_target_special_symbol,
2717*3d8817e4Smiod coff_get_lineno,
2718*3d8817e4Smiod coff_find_nearest_line,
2719*3d8817e4Smiod _bfd_generic_find_line,
2720*3d8817e4Smiod coff_find_inliner_info,
2721*3d8817e4Smiod coff_bfd_make_debug_symbol,
2722*3d8817e4Smiod _bfd_generic_read_minisymbols,
2723*3d8817e4Smiod _bfd_generic_minisymbol_to_symbol,
2724*3d8817e4Smiod
2725*3d8817e4Smiod /* Reloc */
2726*3d8817e4Smiod coff_get_reloc_upper_bound,
2727*3d8817e4Smiod coff_canonicalize_reloc,
2728*3d8817e4Smiod xcoff64_reloc_type_lookup,
2729*3d8817e4Smiod
2730*3d8817e4Smiod /* Write */
2731*3d8817e4Smiod coff_set_arch_mach,
2732*3d8817e4Smiod coff_set_section_contents,
2733*3d8817e4Smiod
2734*3d8817e4Smiod /* Link */
2735*3d8817e4Smiod xcoff64_sizeof_headers,
2736*3d8817e4Smiod bfd_generic_get_relocated_section_contents,
2737*3d8817e4Smiod bfd_generic_relax_section,
2738*3d8817e4Smiod _bfd_xcoff_bfd_link_hash_table_create,
2739*3d8817e4Smiod _bfd_generic_link_hash_table_free,
2740*3d8817e4Smiod _bfd_xcoff_bfd_link_add_symbols,
2741*3d8817e4Smiod _bfd_generic_link_just_syms,
2742*3d8817e4Smiod _bfd_xcoff_bfd_final_link,
2743*3d8817e4Smiod _bfd_generic_link_split_section,
2744*3d8817e4Smiod bfd_generic_gc_sections,
2745*3d8817e4Smiod bfd_generic_merge_sections,
2746*3d8817e4Smiod bfd_generic_is_group_section,
2747*3d8817e4Smiod bfd_generic_discard_group,
2748*3d8817e4Smiod _bfd_generic_section_already_linked,
2749*3d8817e4Smiod
2750*3d8817e4Smiod /* Dynamic */
2751*3d8817e4Smiod _bfd_xcoff_get_dynamic_symtab_upper_bound,
2752*3d8817e4Smiod _bfd_xcoff_canonicalize_dynamic_symtab,
2753*3d8817e4Smiod _bfd_nodynamic_get_synthetic_symtab,
2754*3d8817e4Smiod _bfd_xcoff_get_dynamic_reloc_upper_bound,
2755*3d8817e4Smiod _bfd_xcoff_canonicalize_dynamic_reloc,
2756*3d8817e4Smiod
2757*3d8817e4Smiod /* Opposite endian version, none exists */
2758*3d8817e4Smiod NULL,
2759*3d8817e4Smiod
2760*3d8817e4Smiod (void *) &bfd_xcoff_backend_data,
2761*3d8817e4Smiod };
2762*3d8817e4Smiod
2763*3d8817e4Smiod extern const bfd_target *xcoff64_core_p
2764*3d8817e4Smiod PARAMS ((bfd *));
2765*3d8817e4Smiod extern bfd_boolean xcoff64_core_file_matches_executable_p
2766*3d8817e4Smiod PARAMS ((bfd *, bfd *));
2767*3d8817e4Smiod extern char *xcoff64_core_file_failing_command
2768*3d8817e4Smiod PARAMS ((bfd *));
2769*3d8817e4Smiod extern int xcoff64_core_file_failing_signal
2770*3d8817e4Smiod PARAMS ((bfd *));
2771*3d8817e4Smiod
2772*3d8817e4Smiod /* AIX 5 */
2773*3d8817e4Smiod static const struct xcoff_backend_data_rec bfd_xcoff_aix5_backend_data =
2774*3d8817e4Smiod {
2775*3d8817e4Smiod { /* COFF backend, defined in libcoff.h. */
2776*3d8817e4Smiod _bfd_xcoff64_swap_aux_in,
2777*3d8817e4Smiod _bfd_xcoff64_swap_sym_in,
2778*3d8817e4Smiod _bfd_xcoff64_swap_lineno_in,
2779*3d8817e4Smiod _bfd_xcoff64_swap_aux_out,
2780*3d8817e4Smiod _bfd_xcoff64_swap_sym_out,
2781*3d8817e4Smiod _bfd_xcoff64_swap_lineno_out,
2782*3d8817e4Smiod xcoff64_swap_reloc_out,
2783*3d8817e4Smiod coff_swap_filehdr_out,
2784*3d8817e4Smiod coff_swap_aouthdr_out,
2785*3d8817e4Smiod coff_swap_scnhdr_out,
2786*3d8817e4Smiod FILHSZ,
2787*3d8817e4Smiod AOUTSZ,
2788*3d8817e4Smiod SCNHSZ,
2789*3d8817e4Smiod SYMESZ,
2790*3d8817e4Smiod AUXESZ,
2791*3d8817e4Smiod RELSZ,
2792*3d8817e4Smiod LINESZ,
2793*3d8817e4Smiod FILNMLEN,
2794*3d8817e4Smiod TRUE, /* _bfd_coff_long_filenames */
2795*3d8817e4Smiod FALSE, /* _bfd_coff_long_section_names */
2796*3d8817e4Smiod 3, /* _bfd_coff_default_section_alignment_power */
2797*3d8817e4Smiod TRUE, /* _bfd_coff_force_symnames_in_strings */
2798*3d8817e4Smiod 4, /* _bfd_coff_debug_string_prefix_length */
2799*3d8817e4Smiod coff_swap_filehdr_in,
2800*3d8817e4Smiod coff_swap_aouthdr_in,
2801*3d8817e4Smiod coff_swap_scnhdr_in,
2802*3d8817e4Smiod xcoff64_swap_reloc_in,
2803*3d8817e4Smiod xcoff64_bad_format_hook,
2804*3d8817e4Smiod coff_set_arch_mach_hook,
2805*3d8817e4Smiod coff_mkobject_hook,
2806*3d8817e4Smiod styp_to_sec_flags,
2807*3d8817e4Smiod coff_set_alignment_hook,
2808*3d8817e4Smiod coff_slurp_symbol_table,
2809*3d8817e4Smiod symname_in_debug_hook,
2810*3d8817e4Smiod coff_pointerize_aux_hook,
2811*3d8817e4Smiod coff_print_aux,
2812*3d8817e4Smiod dummy_reloc16_extra_cases,
2813*3d8817e4Smiod dummy_reloc16_estimate,
2814*3d8817e4Smiod NULL, /* bfd_coff_sym_is_global */
2815*3d8817e4Smiod coff_compute_section_file_positions,
2816*3d8817e4Smiod NULL, /* _bfd_coff_start_final_link */
2817*3d8817e4Smiod xcoff64_ppc_relocate_section,
2818*3d8817e4Smiod coff_rtype_to_howto,
2819*3d8817e4Smiod NULL, /* _bfd_coff_adjust_symndx */
2820*3d8817e4Smiod _bfd_generic_link_add_one_symbol,
2821*3d8817e4Smiod coff_link_output_has_begun,
2822*3d8817e4Smiod coff_final_link_postscript
2823*3d8817e4Smiod },
2824*3d8817e4Smiod
2825*3d8817e4Smiod U64_TOCMAGIC, /* magic number */
2826*3d8817e4Smiod bfd_arch_powerpc,
2827*3d8817e4Smiod bfd_mach_ppc_620,
2828*3d8817e4Smiod
2829*3d8817e4Smiod /* Function pointers to xcoff specific swap routines. */
2830*3d8817e4Smiod xcoff64_swap_ldhdr_in,
2831*3d8817e4Smiod xcoff64_swap_ldhdr_out,
2832*3d8817e4Smiod xcoff64_swap_ldsym_in,
2833*3d8817e4Smiod xcoff64_swap_ldsym_out,
2834*3d8817e4Smiod xcoff64_swap_ldrel_in,
2835*3d8817e4Smiod xcoff64_swap_ldrel_out,
2836*3d8817e4Smiod
2837*3d8817e4Smiod /* Sizes. */
2838*3d8817e4Smiod LDHDRSZ,
2839*3d8817e4Smiod LDSYMSZ,
2840*3d8817e4Smiod LDRELSZ,
2841*3d8817e4Smiod 24, /* _xcoff_function_descriptor_size */
2842*3d8817e4Smiod 0, /* _xcoff_small_aout_header_size */
2843*3d8817e4Smiod /* Versions. */
2844*3d8817e4Smiod 2, /* _xcoff_ldhdr_version */
2845*3d8817e4Smiod
2846*3d8817e4Smiod _bfd_xcoff64_put_symbol_name,
2847*3d8817e4Smiod _bfd_xcoff64_put_ldsymbol_name,
2848*3d8817e4Smiod &xcoff64_dynamic_reloc,
2849*3d8817e4Smiod xcoff64_create_csect_from_smclas,
2850*3d8817e4Smiod
2851*3d8817e4Smiod /* Lineno and reloc count overflow. */
2852*3d8817e4Smiod xcoff64_is_lineno_count_overflow,
2853*3d8817e4Smiod xcoff64_is_reloc_count_overflow,
2854*3d8817e4Smiod
2855*3d8817e4Smiod xcoff64_loader_symbol_offset,
2856*3d8817e4Smiod xcoff64_loader_reloc_offset,
2857*3d8817e4Smiod
2858*3d8817e4Smiod /* glink. */
2859*3d8817e4Smiod &xcoff64_glink_code[0],
2860*3d8817e4Smiod 40, /* _xcoff_glink_size */
2861*3d8817e4Smiod
2862*3d8817e4Smiod /* rtinit. */
2863*3d8817e4Smiod 88, /* _xcoff_rtinit_size */
2864*3d8817e4Smiod xcoff64_generate_rtinit,
2865*3d8817e4Smiod };
2866*3d8817e4Smiod
2867*3d8817e4Smiod /* The transfer vector that leads the outside world to all of the above. */
2868*3d8817e4Smiod const bfd_target aix5coff64_vec =
2869*3d8817e4Smiod {
2870*3d8817e4Smiod "aix5coff64-rs6000",
2871*3d8817e4Smiod bfd_target_xcoff_flavour,
2872*3d8817e4Smiod BFD_ENDIAN_BIG, /* data byte order is big */
2873*3d8817e4Smiod BFD_ENDIAN_BIG, /* header byte order is big */
2874*3d8817e4Smiod
2875*3d8817e4Smiod (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | DYNAMIC
2876*3d8817e4Smiod | HAS_SYMS | HAS_LOCALS | WP_TEXT),
2877*3d8817e4Smiod
2878*3d8817e4Smiod SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA,
2879*3d8817e4Smiod 0, /* leading char */
2880*3d8817e4Smiod '/', /* ar_pad_char */
2881*3d8817e4Smiod 15, /* ar_max_namelen */
2882*3d8817e4Smiod
2883*3d8817e4Smiod /* data */
2884*3d8817e4Smiod bfd_getb64,
2885*3d8817e4Smiod bfd_getb_signed_64,
2886*3d8817e4Smiod bfd_putb64,
2887*3d8817e4Smiod bfd_getb32,
2888*3d8817e4Smiod bfd_getb_signed_32,
2889*3d8817e4Smiod bfd_putb32,
2890*3d8817e4Smiod bfd_getb16,
2891*3d8817e4Smiod bfd_getb_signed_16,
2892*3d8817e4Smiod bfd_putb16,
2893*3d8817e4Smiod
2894*3d8817e4Smiod /* hdrs */
2895*3d8817e4Smiod bfd_getb64,
2896*3d8817e4Smiod bfd_getb_signed_64,
2897*3d8817e4Smiod bfd_putb64,
2898*3d8817e4Smiod bfd_getb32,
2899*3d8817e4Smiod bfd_getb_signed_32,
2900*3d8817e4Smiod bfd_putb32,
2901*3d8817e4Smiod bfd_getb16,
2902*3d8817e4Smiod bfd_getb_signed_16,
2903*3d8817e4Smiod bfd_putb16,
2904*3d8817e4Smiod
2905*3d8817e4Smiod { /* bfd_check_format */
2906*3d8817e4Smiod _bfd_dummy_target,
2907*3d8817e4Smiod coff_object_p,
2908*3d8817e4Smiod xcoff64_archive_p,
2909*3d8817e4Smiod xcoff64_core_p
2910*3d8817e4Smiod },
2911*3d8817e4Smiod
2912*3d8817e4Smiod { /* bfd_set_format */
2913*3d8817e4Smiod bfd_false,
2914*3d8817e4Smiod coff_mkobject,
2915*3d8817e4Smiod _bfd_generic_mkarchive,
2916*3d8817e4Smiod bfd_false
2917*3d8817e4Smiod },
2918*3d8817e4Smiod
2919*3d8817e4Smiod {/* bfd_write_contents */
2920*3d8817e4Smiod bfd_false,
2921*3d8817e4Smiod xcoff64_write_object_contents,
2922*3d8817e4Smiod _bfd_xcoff_write_archive_contents,
2923*3d8817e4Smiod bfd_false
2924*3d8817e4Smiod },
2925*3d8817e4Smiod
2926*3d8817e4Smiod /* Generic */
2927*3d8817e4Smiod bfd_true,
2928*3d8817e4Smiod bfd_true,
2929*3d8817e4Smiod coff_new_section_hook,
2930*3d8817e4Smiod _bfd_generic_get_section_contents,
2931*3d8817e4Smiod _bfd_generic_get_section_contents_in_window,
2932*3d8817e4Smiod
2933*3d8817e4Smiod /* Copy */
2934*3d8817e4Smiod _bfd_xcoff_copy_private_bfd_data,
2935*3d8817e4Smiod ((bfd_boolean (*) (bfd *, bfd *)) bfd_true),
2936*3d8817e4Smiod _bfd_generic_init_private_section_data,
2937*3d8817e4Smiod ((bfd_boolean (*) (bfd *, asection *, bfd *, asection *)) bfd_true),
2938*3d8817e4Smiod ((bfd_boolean (*) (bfd *, asymbol *, bfd *, asymbol *)) bfd_true),
2939*3d8817e4Smiod ((bfd_boolean (*) (bfd *, bfd *)) bfd_true),
2940*3d8817e4Smiod ((bfd_boolean (*) (bfd *, flagword)) bfd_true),
2941*3d8817e4Smiod ((bfd_boolean (*) (bfd *, void * )) bfd_true),
2942*3d8817e4Smiod
2943*3d8817e4Smiod /* Core */
2944*3d8817e4Smiod xcoff64_core_file_failing_command,
2945*3d8817e4Smiod xcoff64_core_file_failing_signal,
2946*3d8817e4Smiod xcoff64_core_file_matches_executable_p,
2947*3d8817e4Smiod
2948*3d8817e4Smiod /* Archive */
2949*3d8817e4Smiod xcoff64_slurp_armap,
2950*3d8817e4Smiod bfd_false,
2951*3d8817e4Smiod ((bfd_boolean (*) (bfd *, char **, bfd_size_type *, const char **)) bfd_false),
2952*3d8817e4Smiod bfd_dont_truncate_arname,
2953*3d8817e4Smiod _bfd_xcoff_write_armap,
2954*3d8817e4Smiod _bfd_xcoff_read_ar_hdr,
2955*3d8817e4Smiod xcoff64_openr_next_archived_file,
2956*3d8817e4Smiod _bfd_generic_get_elt_at_index,
2957*3d8817e4Smiod _bfd_xcoff_stat_arch_elt,
2958*3d8817e4Smiod bfd_true,
2959*3d8817e4Smiod
2960*3d8817e4Smiod /* Symbols */
2961*3d8817e4Smiod coff_get_symtab_upper_bound,
2962*3d8817e4Smiod coff_canonicalize_symtab,
2963*3d8817e4Smiod coff_make_empty_symbol,
2964*3d8817e4Smiod coff_print_symbol,
2965*3d8817e4Smiod coff_get_symbol_info,
2966*3d8817e4Smiod _bfd_xcoff_is_local_label_name,
2967*3d8817e4Smiod coff_bfd_is_target_special_symbol,
2968*3d8817e4Smiod coff_get_lineno,
2969*3d8817e4Smiod coff_find_nearest_line,
2970*3d8817e4Smiod _bfd_generic_find_line,
2971*3d8817e4Smiod coff_find_inliner_info,
2972*3d8817e4Smiod coff_bfd_make_debug_symbol,
2973*3d8817e4Smiod _bfd_generic_read_minisymbols,
2974*3d8817e4Smiod _bfd_generic_minisymbol_to_symbol,
2975*3d8817e4Smiod
2976*3d8817e4Smiod /* Reloc */
2977*3d8817e4Smiod coff_get_reloc_upper_bound,
2978*3d8817e4Smiod coff_canonicalize_reloc,
2979*3d8817e4Smiod xcoff64_reloc_type_lookup,
2980*3d8817e4Smiod
2981*3d8817e4Smiod /* Write */
2982*3d8817e4Smiod coff_set_arch_mach,
2983*3d8817e4Smiod coff_set_section_contents,
2984*3d8817e4Smiod
2985*3d8817e4Smiod /* Link */
2986*3d8817e4Smiod xcoff64_sizeof_headers,
2987*3d8817e4Smiod bfd_generic_get_relocated_section_contents,
2988*3d8817e4Smiod bfd_generic_relax_section,
2989*3d8817e4Smiod _bfd_xcoff_bfd_link_hash_table_create,
2990*3d8817e4Smiod _bfd_generic_link_hash_table_free,
2991*3d8817e4Smiod _bfd_xcoff_bfd_link_add_symbols,
2992*3d8817e4Smiod _bfd_generic_link_just_syms,
2993*3d8817e4Smiod _bfd_xcoff_bfd_final_link,
2994*3d8817e4Smiod _bfd_generic_link_split_section,
2995*3d8817e4Smiod bfd_generic_gc_sections,
2996*3d8817e4Smiod bfd_generic_merge_sections,
2997*3d8817e4Smiod bfd_generic_is_group_section,
2998*3d8817e4Smiod bfd_generic_discard_group,
2999*3d8817e4Smiod _bfd_generic_section_already_linked,
3000*3d8817e4Smiod
3001*3d8817e4Smiod /* Dynamic */
3002*3d8817e4Smiod _bfd_xcoff_get_dynamic_symtab_upper_bound,
3003*3d8817e4Smiod _bfd_xcoff_canonicalize_dynamic_symtab,
3004*3d8817e4Smiod _bfd_nodynamic_get_synthetic_symtab,
3005*3d8817e4Smiod _bfd_xcoff_get_dynamic_reloc_upper_bound,
3006*3d8817e4Smiod _bfd_xcoff_canonicalize_dynamic_reloc,
3007*3d8817e4Smiod
3008*3d8817e4Smiod /* Opposite endian version, none exists. */
3009*3d8817e4Smiod NULL,
3010*3d8817e4Smiod
3011*3d8817e4Smiod (void *) & bfd_xcoff_aix5_backend_data,
3012*3d8817e4Smiod };
3013