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