1 /* BFD back-end for IBM RS/6000 "XCOFF64" files.
2 Copyright 2000, 2001, 2002
3 Free Software Foundation, Inc.
4 Written Clinton Popetz.
5 Contributed by Cygnus Support.
7 This file is part of BFD, the Binary File Descriptor library.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
27 #include "coff/internal.h"
28 #include "coff/xcoff.h"
29 #include "coff/rs6k64.h"
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
60 #define MAX_SCNHDR_NRELOC 0xffffffff
61 #define PUT_SCNHDR_NRELOC H_PUT_32
62 #define GET_SCNHDR_NLNNO H_GET_32
63 #define MAX_SCNHDR_NLNNO 0xffffffff
64 #define PUT_SCNHDR_NLNNO H_PUT_32
65 #define GET_RELOC_VADDR H_GET_64
66 #define PUT_RELOC_VADDR H_PUT_64
68 #define COFF_FORCE_SYMBOLS_IN_STRINGS
69 #define COFF_DEBUG_STRING_WIDE_PREFIX
72 #define COFF_ADJUST_SCNHDR_OUT_POST(ABFD, INT, EXT) \
75 memset (((SCNHDR *) EXT)->s_pad, 0, \
76 sizeof (((SCNHDR *) EXT)->s_pad)); \
80 #define NO_COFF_LINENOS
82 #define coff_SWAP_lineno_in _bfd_xcoff64_swap_lineno_in
83 #define coff_SWAP_lineno_out _bfd_xcoff64_swap_lineno_out
85 static void _bfd_xcoff64_swap_lineno_in
PARAMS ((bfd
*, PTR
, PTR
));
86 static unsigned int _bfd_xcoff64_swap_lineno_out
PARAMS ((bfd
*, PTR
, PTR
));
87 static boolean _bfd_xcoff64_put_ldsymbol_name
88 PARAMS ((bfd
*, struct xcoff_loader_info
*, struct internal_ldsym
*,
90 static void _bfd_xcoff64_swap_sym_in
PARAMS ((bfd
*, PTR
, PTR
));
91 static unsigned int _bfd_xcoff64_swap_sym_out
PARAMS ((bfd
*, PTR
, PTR
));
92 static void _bfd_xcoff64_swap_aux_in
93 PARAMS ((bfd
*, PTR
, int, int, int, int, PTR
));
94 static unsigned int _bfd_xcoff64_swap_aux_out
95 PARAMS ((bfd
*, PTR
, int, int, int, int, PTR
));
96 extern boolean _bfd_xcoff_mkobject
PARAMS ((bfd
*));
97 extern boolean _bfd_xcoff_copy_private_bfd_data
PARAMS ((bfd
*, bfd
*));
98 extern boolean _bfd_xcoff_is_local_label_name
PARAMS ((bfd
*, const char *));
99 extern void xcoff64_rtype2howto
100 PARAMS ((arelent
*, struct internal_reloc
*));
101 extern reloc_howto_type
* xcoff64_reloc_type_lookup
102 PARAMS ((bfd
*, bfd_reloc_code_real_type
));
103 extern boolean _bfd_xcoff_slurp_armap
PARAMS ((bfd
*));
104 extern PTR _bfd_xcoff_read_ar_hdr
PARAMS ((bfd
*));
105 extern bfd
*_bfd_xcoff_openr_next_archived_file
PARAMS ((bfd
*, bfd
*));
106 extern int _bfd_xcoff_stat_arch_elt
PARAMS ((bfd
*, struct stat
*));
107 extern boolean _bfd_xcoff_write_armap
108 PARAMS ((bfd
*, unsigned int, struct orl
*, unsigned int, int));
109 extern boolean _bfd_xcoff_write_archive_contents
PARAMS ((bfd
*));
110 extern int _bfd_xcoff_sizeof_headers
PARAMS ((bfd
*, boolean
));
111 extern void _bfd_xcoff_swap_sym_in
PARAMS ((bfd
*, PTR
, PTR
));
112 extern unsigned int _bfd_xcoff_swap_sym_out
PARAMS ((bfd
*, PTR
, PTR
));
113 extern void _bfd_xcoff_swap_aux_in
114 PARAMS ((bfd
*, PTR
, int, int, int, int, PTR
));
115 extern unsigned int _bfd_xcoff_swap_aux_out
116 PARAMS ((bfd
*, PTR
, int, int, int, int, PTR
));
117 static void xcoff64_swap_ldhdr_in
118 PARAMS ((bfd
*, const PTR
, struct internal_ldhdr
*));
119 static void xcoff64_swap_ldhdr_out
120 PARAMS ((bfd
*, const struct internal_ldhdr
*, PTR d
));
121 static void xcoff64_swap_ldsym_in
122 PARAMS ((bfd
*, const PTR
, struct internal_ldsym
*));
123 static void xcoff64_swap_ldsym_out
124 PARAMS ((bfd
*, const struct internal_ldsym
*, PTR d
));
125 static void xcoff64_swap_ldrel_in
126 PARAMS ((bfd
*, const PTR
, struct internal_ldrel
*));
127 static void xcoff64_swap_ldrel_out
128 PARAMS ((bfd
*, const struct internal_ldrel
*, PTR d
));
129 static boolean xcoff64_write_object_contents
PARAMS ((bfd
*));
130 static boolean xcoff64_ppc_relocate_section
131 PARAMS ((bfd
*, struct bfd_link_info
*, bfd
*, asection
*, bfd_byte
*,
132 struct internal_reloc
*, struct internal_syment
*,
134 static boolean xcoff64_slurp_armap
PARAMS ((bfd
*));
135 static const bfd_target
*xcoff64_archive_p
PARAMS ((bfd
*));
136 static bfd
*xcoff64_openr_next_archived_file
PARAMS ((bfd
*, bfd
*));
137 static int xcoff64_sizeof_headers
PARAMS ((bfd
*, boolean
));
138 static asection
*xcoff64_create_csect_from_smclas
139 PARAMS ((bfd
*, union internal_auxent
*, const char *));
140 static boolean xcoff64_is_lineno_count_overflow
PARAMS ((bfd
*, bfd_vma
));
141 static boolean xcoff64_is_reloc_count_overflow
PARAMS ((bfd
*, bfd_vma
));
142 static bfd_vma xcoff64_loader_symbol_offset
143 PARAMS ((bfd
*, struct internal_ldhdr
*));
144 static bfd_vma xcoff64_loader_reloc_offset
145 PARAMS ((bfd
*, struct internal_ldhdr
*));
146 static boolean xcoff64_generate_rtinit
147 PARAMS ((bfd
*, const char *, const char *, boolean
));
148 static boolean xcoff64_bad_format_hook
PARAMS ((bfd
*, PTR
));
150 /* coffcode.h needs these to be defined. */
151 /* Internalcoff.h and coffcode.h modify themselves based on these flags. */
153 #define RS6000COFF_C 1
155 #define SELECT_RELOC(internal, howto) \
157 internal.r_type = howto->type; \
159 ((howto->complain_on_overflow == complain_overflow_signed \
162 | (howto->bitsize - 1)); \
165 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
166 #define COFF_LONG_FILENAMES
167 #define NO_COFF_SYMBOLS
168 #define RTYPE2HOWTO(cache_ptr, dst) xcoff64_rtype2howto (cache_ptr, dst)
169 #define coff_mkobject _bfd_xcoff_mkobject
170 #define coff_bfd_copy_private_bfd_data _bfd_xcoff_copy_private_bfd_data
171 #define coff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
172 #define coff_bfd_reloc_type_lookup xcoff64_reloc_type_lookup
174 extern const bfd_target
* rs6000coff_core_p
PARAMS ((bfd
*abfd
));
175 extern boolean rs6000coff_core_file_matches_executable_p
176 PARAMS((bfd
*cbfd
, bfd
*ebfd
));
177 extern char *rs6000coff_core_file_failing_command
PARAMS ((bfd
*abfd
));
178 extern int rs6000coff_core_file_failing_signal
PARAMS ((bfd
*abfd
));
179 #define CORE_FILE_P rs6000coff_core_p
180 #define coff_core_file_failing_command \
181 rs6000coff_core_file_failing_command
182 #define coff_core_file_failing_signal \
183 rs6000coff_core_file_failing_signal
184 #define coff_core_file_matches_executable_p \
185 rs6000coff_core_file_matches_executable_p
187 #define CORE_FILE_P _bfd_dummy_target
188 #define coff_core_file_failing_command \
189 _bfd_nocore_core_file_failing_command
190 #define coff_core_file_failing_signal \
191 _bfd_nocore_core_file_failing_signal
192 #define coff_core_file_matches_executable_p \
193 _bfd_nocore_core_file_matches_executable_p
195 #define coff_SWAP_sym_in _bfd_xcoff64_swap_sym_in
196 #define coff_SWAP_sym_out _bfd_xcoff64_swap_sym_out
197 #define coff_SWAP_aux_in _bfd_xcoff64_swap_aux_in
198 #define coff_SWAP_aux_out _bfd_xcoff64_swap_aux_out
201 #include "coffcode.h"
203 /* For XCOFF64, the effective width of symndx changes depending on
204 whether we are the first entry. Sigh. */
206 _bfd_xcoff64_swap_lineno_in (abfd
, ext1
, in1
)
211 LINENO
*ext
= (LINENO
*) ext1
;
212 struct internal_lineno
*in
= (struct internal_lineno
*) in1
;
214 in
->l_lnno
= H_GET_32 (abfd
, (ext
->l_lnno
));
216 in
->l_addr
.l_symndx
= H_GET_32 (abfd
, ext
->l_addr
.l_symndx
);
218 in
->l_addr
.l_paddr
= H_GET_64 (abfd
, ext
->l_addr
.l_paddr
);
222 _bfd_xcoff64_swap_lineno_out (abfd
, inp
, outp
)
227 struct internal_lineno
*in
= (struct internal_lineno
*) inp
;
228 struct external_lineno
*ext
= (struct external_lineno
*) outp
;
230 H_PUT_32 (abfd
, in
->l_addr
.l_symndx
, ext
->l_addr
.l_symndx
);
231 H_PUT_32 (abfd
, in
->l_lnno
, (ext
->l_lnno
));
234 H_PUT_32 (abfd
, in
->l_addr
.l_symndx
, ext
->l_addr
.l_symndx
);
236 H_PUT_64 (abfd
, in
->l_addr
.l_paddr
, ext
->l_addr
.l_paddr
);
238 return bfd_coff_linesz (abfd
);
242 _bfd_xcoff64_swap_sym_in (abfd
, ext1
, in1
)
247 struct external_syment
*ext
= (struct external_syment
*) ext1
;
248 struct internal_syment
*in
= (struct internal_syment
*) in1
;
250 in
->_n
._n_n
._n_zeroes
= 0;
251 in
->_n
._n_n
._n_offset
= H_GET_32 (abfd
, ext
->e_offset
);
252 in
->n_value
= H_GET_64 (abfd
, ext
->e_value
);
253 in
->n_scnum
= H_GET_16 (abfd
, ext
->e_scnum
);
254 in
->n_type
= H_GET_16 (abfd
, ext
->e_type
);
255 in
->n_sclass
= H_GET_8 (abfd
, ext
->e_sclass
);
256 in
->n_numaux
= H_GET_8 (abfd
, ext
->e_numaux
);
260 _bfd_xcoff64_swap_sym_out (abfd
, inp
, extp
)
265 struct internal_syment
*in
= (struct internal_syment
*) inp
;
266 struct external_syment
*ext
= (struct external_syment
*) extp
;
268 H_PUT_32 (abfd
, in
->_n
._n_n
._n_offset
, ext
->e_offset
);
269 H_PUT_64 (abfd
, in
->n_value
, ext
->e_value
);
270 H_PUT_16 (abfd
, in
->n_scnum
, ext
->e_scnum
);
271 H_PUT_16 (abfd
, in
->n_type
, ext
->e_type
);
272 H_PUT_8 (abfd
, in
->n_sclass
, ext
->e_sclass
);
273 H_PUT_8 (abfd
, in
->n_numaux
, ext
->e_numaux
);
274 return bfd_coff_symesz (abfd
);
278 _bfd_xcoff64_swap_aux_in (abfd
, ext1
, type
, class, indx
, numaux
, in1
)
287 union external_auxent
*ext
= (union external_auxent
*) ext1
;
288 union internal_auxent
*in
= (union internal_auxent
*) in1
;
293 if (ext
->x_file
.x_n
.x_zeroes
== 0)
295 in
->x_file
.x_n
.x_zeroes
= 0;
296 in
->x_file
.x_n
.x_offset
= H_GET_32 (abfd
, ext
->x_file
.x_n
.x_offset
);
300 memcpy (in
->x_file
.x_fname
, ext
->x_file
.x_fname
, FILNMLEN
);
304 /* RS/6000 "csect" auxents */
307 if (indx
+ 1 == numaux
)
309 bfd_signed_vma h
= 0;
312 h
= H_GET_S32 (abfd
, ext
->x_csect
.x_scnlen_hi
);
313 l
= H_GET_32 (abfd
, ext
->x_csect
.x_scnlen_lo
);
315 in
->x_csect
.x_scnlen
.l
= h
<< 32 | (l
& 0xffffffff);
317 in
->x_csect
.x_parmhash
= H_GET_32 (abfd
, ext
->x_csect
.x_parmhash
);
318 in
->x_csect
.x_snhash
= H_GET_16 (abfd
, ext
->x_csect
.x_snhash
);
319 /* We don't have to hack bitfields in x_smtyp because it's
320 defined by shifts-and-ands, which are equivalent on all
322 in
->x_csect
.x_smtyp
= H_GET_8 (abfd
, ext
->x_csect
.x_smtyp
);
323 in
->x_csect
.x_smclas
= H_GET_8 (abfd
, ext
->x_csect
.x_smclas
);
333 /* PE defines some extra fields; we zero them out for
335 in
->x_scn
.x_checksum
= 0;
336 in
->x_scn
.x_associated
= 0;
337 in
->x_scn
.x_comdat
= 0;
344 if (class == C_BLOCK
|| class == C_FCN
|| ISFCN (type
) || ISTAG (class))
346 in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
347 = H_GET_64 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
348 in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
349 = H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
353 in
->x_sym
.x_misc
.x_fsize
354 = H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_fcn
.x_fsize
);
358 in
->x_sym
.x_misc
.x_lnsz
.x_lnno
359 = H_GET_32 (abfd
, ext
->x_sym
.x_fcnary
.x_lnsz
.x_lnno
);
360 in
->x_sym
.x_misc
.x_lnsz
.x_size
361 = H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_lnsz
.x_size
);
368 _bfd_xcoff64_swap_aux_out (abfd
, inp
, type
, class, indx
, numaux
, extp
)
373 int indx ATTRIBUTE_UNUSED
;
374 int numaux ATTRIBUTE_UNUSED
;
377 union internal_auxent
*in
= (union internal_auxent
*) inp
;
378 union external_auxent
*ext
= (union external_auxent
*) extp
;
380 memset ((PTR
) ext
, 0, bfd_coff_auxesz (abfd
));
384 if (ext
->x_file
.x_n
.x_zeroes
== 0)
386 H_PUT_32 (abfd
, 0, ext
->x_file
.x_n
.x_zeroes
);
387 H_PUT_32 (abfd
, in
->x_file
.x_n
.x_offset
, ext
->x_file
.x_n
.x_offset
);
391 memcpy (ext
->x_file
.x_fname
, in
->x_file
.x_fname
, FILNMLEN
);
393 H_PUT_8 (abfd
, _AUX_FILE
, ext
->x_auxtype
.x_auxtype
);
396 /* RS/6000 "csect" auxents */
399 if (indx
+ 1 == numaux
)
403 temp
= in
->x_csect
.x_scnlen
.l
& 0xffffffff;
404 H_PUT_32 (abfd
, temp
, ext
->x_csect
.x_scnlen_lo
);
405 temp
= in
->x_csect
.x_scnlen
.l
>> 32;
406 H_PUT_32 (abfd
, temp
, ext
->x_csect
.x_scnlen_hi
);
407 H_PUT_32 (abfd
, in
->x_csect
.x_parmhash
, ext
->x_csect
.x_parmhash
);
408 H_PUT_16 (abfd
, in
->x_csect
.x_snhash
, ext
->x_csect
.x_snhash
);
409 /* We don't have to hack bitfields in x_smtyp because it's
410 defined by shifts-and-ands, which are equivalent on all
412 H_PUT_8 (abfd
, in
->x_csect
.x_smtyp
, ext
->x_csect
.x_smtyp
);
413 H_PUT_8 (abfd
, in
->x_csect
.x_smclas
, ext
->x_csect
.x_smclas
);
414 H_PUT_8 (abfd
, _AUX_CSECT
, ext
->x_auxtype
.x_auxtype
);
429 if (class == C_BLOCK
|| class == C_FCN
|| ISFCN (type
) || ISTAG (class))
431 H_PUT_64 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
,
432 ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
433 H_PUT_8 (abfd
, _AUX_FCN
,
434 ext
->x_auxtype
.x_auxtype
);
435 H_PUT_32 (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
436 ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
440 H_PUT_32 (abfd
, in
->x_sym
.x_misc
.x_fsize
,
441 ext
->x_sym
.x_fcnary
.x_fcn
.x_fsize
);
445 H_PUT_32 (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_lnno
,
446 ext
->x_sym
.x_fcnary
.x_lnsz
.x_lnno
);
447 H_PUT_16 (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_size
,
448 ext
->x_sym
.x_fcnary
.x_lnsz
.x_size
);
453 return bfd_coff_auxesz (abfd
);
457 _bfd_xcoff64_put_symbol_name (abfd
, strtab
, sym
, name
)
459 struct bfd_strtab_hash
*strtab
;
460 struct internal_syment
*sym
;
468 if ((abfd
->flags
& BFD_TRADITIONAL_FORMAT
) != 0)
471 indx
= _bfd_stringtab_add (strtab
, name
, hash
, false);
473 if (indx
== (bfd_size_type
) -1)
476 sym
->_n
._n_n
._n_zeroes
= 0;
477 sym
->_n
._n_n
._n_offset
= STRING_SIZE_SIZE
+ indx
;
483 _bfd_xcoff64_put_ldsymbol_name (abfd
, ldinfo
, ldsym
, name
)
484 bfd
*abfd ATTRIBUTE_UNUSED
;
485 struct xcoff_loader_info
*ldinfo
;
486 struct internal_ldsym
*ldsym
;
492 if (ldinfo
->string_size
+ len
+ 3 > ldinfo
->string_alc
)
494 bfd_size_type newalc
;
495 bfd_byte
*newstrings
;
497 newalc
= ldinfo
->string_alc
* 2;
500 while (ldinfo
->string_size
+ len
+ 3 > newalc
)
503 newstrings
= ((bfd_byte
*)
504 bfd_realloc ((PTR
) ldinfo
->strings
, newalc
));
505 if (newstrings
== NULL
)
507 ldinfo
->failed
= true;
510 ldinfo
->string_alc
= newalc
;
511 ldinfo
->strings
= newstrings
;
514 bfd_put_16 (ldinfo
->output_bfd
, (bfd_vma
) (len
+ 1),
515 ldinfo
->strings
+ ldinfo
->string_size
);
516 strcpy (ldinfo
->strings
+ ldinfo
->string_size
+ 2, name
);
517 ldsym
->_l
._l_l
._l_zeroes
= 0;
518 ldsym
->_l
._l_l
._l_offset
= ldinfo
->string_size
+ 2;
519 ldinfo
->string_size
+= len
+ 3;
524 /* Routines to swap information in the XCOFF .loader section. If we
525 ever need to write an XCOFF loader, this stuff will need to be
526 moved to another file shared by the linker (which XCOFF calls the
527 ``binder'') and the loader. */
529 /* Swap in the ldhdr structure. */
532 xcoff64_swap_ldhdr_in (abfd
, s
, dst
)
535 struct internal_ldhdr
*dst
;
537 const struct external_ldhdr
*src
= (const struct external_ldhdr
*) s
;
539 dst
->l_version
= bfd_get_32 (abfd
, src
->l_version
);
540 dst
->l_nsyms
= bfd_get_32 (abfd
, src
->l_nsyms
);
541 dst
->l_nreloc
= bfd_get_32 (abfd
, src
->l_nreloc
);
542 dst
->l_istlen
= bfd_get_32 (abfd
, src
->l_istlen
);
543 dst
->l_nimpid
= bfd_get_32 (abfd
, src
->l_nimpid
);
544 dst
->l_stlen
= bfd_get_32 (abfd
, src
->l_stlen
);
545 dst
->l_impoff
= bfd_get_64 (abfd
, src
->l_impoff
);
546 dst
->l_stoff
= bfd_get_64 (abfd
, src
->l_stoff
);
547 dst
->l_symoff
= bfd_get_64 (abfd
, src
->l_symoff
);
548 dst
->l_rldoff
= bfd_get_64 (abfd
, src
->l_rldoff
);
551 /* Swap out the ldhdr structure. */
554 xcoff64_swap_ldhdr_out (abfd
, src
, d
)
556 const struct internal_ldhdr
*src
;
559 struct external_ldhdr
*dst
= (struct external_ldhdr
*) d
;
561 bfd_put_32 (abfd
, (bfd_vma
) src
->l_version
, dst
->l_version
);
562 bfd_put_32 (abfd
, src
->l_nsyms
, dst
->l_nsyms
);
563 bfd_put_32 (abfd
, src
->l_nreloc
, dst
->l_nreloc
);
564 bfd_put_32 (abfd
, src
->l_istlen
, dst
->l_istlen
);
565 bfd_put_32 (abfd
, src
->l_nimpid
, dst
->l_nimpid
);
566 bfd_put_32 (abfd
, src
->l_stlen
, dst
->l_stlen
);
567 bfd_put_64 (abfd
, src
->l_impoff
, dst
->l_impoff
);
568 bfd_put_64 (abfd
, src
->l_stoff
, dst
->l_stoff
);
569 bfd_put_64 (abfd
, src
->l_symoff
, dst
->l_symoff
);
570 bfd_put_64 (abfd
, src
->l_rldoff
, dst
->l_rldoff
);
573 /* Swap in the ldsym structure. */
576 xcoff64_swap_ldsym_in (abfd
, s
, dst
)
579 struct internal_ldsym
*dst
;
581 const struct external_ldsym
*src
= (const struct external_ldsym
*) s
;
582 /* XCOFF64 does not use l_zeroes like XCOFF32
583 Set the internal l_zeroes to 0 so the common 32/64 code uses l_value
584 as an offset into the loader symbol table. */
585 dst
->_l
._l_l
._l_zeroes
= 0;
586 dst
->_l
._l_l
._l_offset
= bfd_get_32 (abfd
, src
->l_offset
);
587 dst
->l_value
= bfd_get_64 (abfd
, src
->l_value
);
588 dst
->l_scnum
= bfd_get_16 (abfd
, src
->l_scnum
);
589 dst
->l_smtype
= bfd_get_8 (abfd
, src
->l_smtype
);
590 dst
->l_smclas
= bfd_get_8 (abfd
, src
->l_smclas
);
591 dst
->l_ifile
= bfd_get_32 (abfd
, src
->l_ifile
);
592 dst
->l_parm
= bfd_get_32 (abfd
, src
->l_parm
);
595 /* Swap out the ldsym structure. */
598 xcoff64_swap_ldsym_out (abfd
, src
, d
)
600 const struct internal_ldsym
*src
;
603 struct external_ldsym
*dst
= (struct external_ldsym
*) d
;
605 bfd_put_64 (abfd
, src
->l_value
, dst
->l_value
);
606 bfd_put_32 (abfd
, (bfd_vma
) src
->_l
._l_l
._l_offset
, dst
->l_offset
);
607 bfd_put_16 (abfd
, (bfd_vma
) src
->l_scnum
, dst
->l_scnum
);
608 bfd_put_8 (abfd
, src
->l_smtype
, dst
->l_smtype
);
609 bfd_put_8 (abfd
, src
->l_smclas
, dst
->l_smclas
);
610 bfd_put_32 (abfd
, src
->l_ifile
, dst
->l_ifile
);
611 bfd_put_32 (abfd
, src
->l_parm
, dst
->l_parm
);
614 /* Swap in the ldrel structure. */
617 xcoff64_swap_ldrel_in (abfd
, s
, dst
)
620 struct internal_ldrel
*dst
;
622 const struct external_ldrel
*src
= (const struct external_ldrel
*) s
;
624 dst
->l_vaddr
= bfd_get_64 (abfd
, src
->l_vaddr
);
625 dst
->l_symndx
= bfd_get_32 (abfd
, src
->l_symndx
);
626 dst
->l_rtype
= bfd_get_16 (abfd
, src
->l_rtype
);
627 dst
->l_rsecnm
= bfd_get_16 (abfd
, src
->l_rsecnm
);
630 /* Swap out the ldrel structure. */
633 xcoff64_swap_ldrel_out (abfd
, src
, d
)
635 const struct internal_ldrel
*src
;
638 struct external_ldrel
*dst
= (struct external_ldrel
*) d
;
640 bfd_put_64 (abfd
, src
->l_vaddr
, dst
->l_vaddr
);
641 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rtype
, dst
->l_rtype
);
642 bfd_put_16 (abfd
, (bfd_vma
) src
->l_rsecnm
, dst
->l_rsecnm
);
643 bfd_put_32 (abfd
, src
->l_symndx
, dst
->l_symndx
);
647 xcoff64_write_object_contents (abfd
)
651 boolean hasrelocs
= false;
652 boolean haslinno
= false;
655 file_ptr lineno_base
;
657 unsigned long reloc_size
= 0;
658 unsigned long lnno_size
= 0;
659 boolean long_section_names
;
660 asection
*text_sec
= ((void *) 0);
661 asection
*data_sec
= ((void *) 0);
662 asection
*bss_sec
= ((void *) 0);
663 struct internal_filehdr internal_f
;
664 struct internal_aouthdr internal_a
;
666 bfd_set_error (bfd_error_system_call
);
668 if (abfd
->output_has_begun
== false)
670 if (! bfd_coff_compute_section_file_positions (abfd
))
674 /* Work out the size of the reloc and linno areas. */
675 reloc_base
= obj_relocbase (abfd
);
677 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
678 reloc_size
+= current
->reloc_count
* bfd_coff_relsz (abfd
);
680 lineno_base
= reloc_base
+ reloc_size
;
682 /* Make a pass through the symbol table to count line number entries and
683 put them into the correct asections. */
684 lnno_size
= coff_count_linenumbers (abfd
) * bfd_coff_linesz (abfd
);
686 sym_base
= lineno_base
+ lnno_size
;
688 /* Indicate in each section->line_filepos its actual file address. */
689 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
691 if (current
->lineno_count
)
693 current
->line_filepos
= lineno_base
;
694 current
->moving_line_filepos
= lineno_base
;
695 lineno_base
+= current
->lineno_count
* bfd_coff_linesz (abfd
);
699 current
->line_filepos
= 0;
702 if (current
->reloc_count
)
704 current
->rel_filepos
= reloc_base
;
705 reloc_base
+= current
->reloc_count
* bfd_coff_relsz (abfd
);
709 current
->rel_filepos
= 0;
713 if ((abfd
->flags
& EXEC_P
) != 0)
715 scn_base
= bfd_coff_filhsz (abfd
) + bfd_coff_aoutsz (abfd
);
716 internal_f
.f_opthdr
= bfd_coff_aoutsz (abfd
);
720 scn_base
= bfd_coff_filhsz (abfd
);
721 internal_f
.f_opthdr
= 0;
724 internal_f
.f_nscns
= 0;
726 if (bfd_seek (abfd
, scn_base
, SEEK_SET
) != 0)
729 long_section_names
= false;
730 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
732 struct internal_scnhdr section
;
733 struct external_scnhdr buff
;
734 bfd_size_type amount
;
736 internal_f
.f_nscns
++;
738 strncpy (section
.s_name
, current
->name
, SCNNMLEN
);
740 section
.s_vaddr
= current
->vma
;
741 section
.s_paddr
= current
->lma
;
742 section
.s_size
= current
->_raw_size
;
744 /* If this section has no size or is unloadable then the scnptr
746 if (current
->_raw_size
== 0
747 || (current
->flags
& (SEC_LOAD
| SEC_HAS_CONTENTS
)) == 0)
749 section
.s_scnptr
= 0;
753 section
.s_scnptr
= current
->filepos
;
756 section
.s_relptr
= current
->rel_filepos
;
757 section
.s_lnnoptr
= current
->line_filepos
;
758 section
.s_nreloc
= current
->reloc_count
;
760 section
.s_nlnno
= current
->lineno_count
;
761 if (current
->reloc_count
!= 0)
763 if (current
->lineno_count
!= 0)
766 section
.s_flags
= sec_to_styp_flags (current
->name
, current
->flags
);
768 if (!strcmp (current
->name
, _TEXT
))
772 else if (!strcmp (current
->name
, _DATA
))
776 else if (!strcmp (current
->name
, _BSS
))
781 amount
= bfd_coff_scnhsz (abfd
);
782 if (bfd_coff_swap_scnhdr_out (abfd
, §ion
, &buff
) == 0
783 || bfd_bwrite ((PTR
) (&buff
), amount
, abfd
) != amount
)
787 internal_f
.f_timdat
= 0;
789 internal_f
.f_flags
= 0;
792 internal_f
.f_flags
|= F_RELFLG
;
794 internal_f
.f_flags
|= F_LNNO
;
795 if (abfd
->flags
& EXEC_P
)
796 internal_f
.f_flags
|= F_EXEC
;
798 /* FIXME: this is wrong for PPC_PE! */
799 if (bfd_little_endian (abfd
))
800 internal_f
.f_flags
|= F_AR32WR
;
802 internal_f
.f_flags
|= F_AR32W
;
804 if ((abfd
->flags
& DYNAMIC
) != 0)
805 internal_f
.f_flags
|= F_SHROBJ
;
806 if (bfd_get_section_by_name (abfd
, _LOADER
) != NULL
)
807 internal_f
.f_flags
|= F_DYNLOAD
;
809 memset (&internal_a
, 0, sizeof internal_a
);
811 internal_f
.f_magic
= bfd_xcoff_magic_number (abfd
);
812 internal_a
.magic
= (abfd
->flags
& D_PAGED
) ? RS6K_AOUTHDR_ZMAGIC
:
813 (abfd
->flags
& WP_TEXT
) ? RS6K_AOUTHDR_NMAGIC
:
816 /* FIXME: Does anybody ever set this to another value? */
817 internal_a
.vstamp
= 0;
819 /* Now should write relocs, strings, syms. */
820 obj_sym_filepos (abfd
) = sym_base
;
822 internal_f
.f_symptr
= 0;
823 internal_f
.f_nsyms
= 0;
825 /* If bfd_get_symcount (abfd) != 0, then we are not using the COFF
826 backend linker, and obj_raw_syment_count is not valid until after
827 coff_write_symbols is called. */
828 if (bfd_get_symcount (abfd
) != 0)
832 if (!coff_renumber_symbols (abfd
, &firstundef
))
834 coff_mangle_symbols (abfd
);
835 if (! coff_write_symbols (abfd
))
837 if (! coff_write_linenumbers (abfd
))
839 if (! coff_write_relocs (abfd
, firstundef
))
842 internal_f
.f_symptr
= sym_base
;
843 internal_f
.f_nsyms
= bfd_get_symcount (abfd
);
845 else if (obj_raw_syment_count (abfd
) != 0)
847 internal_f
.f_symptr
= sym_base
;
849 /* AIX appears to require that F_RELFLG not be set if there are
850 local symbols but no relocations. */
851 internal_f
.f_flags
&=~ F_RELFLG
;
855 internal_f
.f_flags
|= F_LSYMS
;
860 internal_a
.tsize
= bfd_get_section_size_before_reloc (text_sec
);
861 internal_a
.text_start
= internal_a
.tsize
? text_sec
->vma
: 0;
866 internal_a
.dsize
= bfd_get_section_size_before_reloc (data_sec
);
867 internal_a
.data_start
= internal_a
.dsize
? data_sec
->vma
: 0;
872 internal_a
.bsize
= bfd_get_section_size_before_reloc (bss_sec
);
873 if (internal_a
.bsize
&& bss_sec
->vma
< internal_a
.data_start
)
874 internal_a
.data_start
= bss_sec
->vma
;
877 internal_a
.entry
= bfd_get_start_address (abfd
);
878 internal_f
.f_nsyms
= obj_raw_syment_count (abfd
);
880 if (xcoff_data (abfd
)->full_aouthdr
)
883 asection
*loader_sec
;
885 internal_a
.vstamp
= 1;
887 internal_a
.o_snentry
= xcoff_data (abfd
)->snentry
;
888 if (internal_a
.o_snentry
== 0)
889 internal_a
.entry
= (bfd_vma
) -1;
891 if (text_sec
!= NULL
)
893 internal_a
.o_sntext
= text_sec
->target_index
;
894 internal_a
.o_algntext
= bfd_get_section_alignment (abfd
, text_sec
);
898 internal_a
.o_sntext
= 0;
899 internal_a
.o_algntext
= 0;
902 if (data_sec
!= NULL
)
904 internal_a
.o_sndata
= data_sec
->target_index
;
905 internal_a
.o_algndata
= bfd_get_section_alignment (abfd
, data_sec
);
909 internal_a
.o_sndata
= 0;
910 internal_a
.o_algndata
= 0;
913 loader_sec
= bfd_get_section_by_name (abfd
, ".loader");
914 if (loader_sec
!= NULL
)
915 internal_a
.o_snloader
= loader_sec
->target_index
;
917 internal_a
.o_snloader
= 0;
919 internal_a
.o_snbss
= bss_sec
->target_index
;
921 internal_a
.o_snbss
= 0;
923 toc
= xcoff_data (abfd
)->toc
;
924 internal_a
.o_toc
= toc
;
925 internal_a
.o_sntoc
= xcoff_data (abfd
)->sntoc
;
927 internal_a
.o_modtype
= xcoff_data (abfd
)->modtype
;
928 if (xcoff_data (abfd
)->cputype
!= -1)
929 internal_a
.o_cputype
= xcoff_data (abfd
)->cputype
;
932 switch (bfd_get_arch (abfd
))
934 case bfd_arch_rs6000
:
935 internal_a
.o_cputype
= 4;
937 case bfd_arch_powerpc
:
938 if (bfd_get_mach (abfd
) == 0)
939 internal_a
.o_cputype
= 3;
941 internal_a
.o_cputype
= 1;
947 internal_a
.o_maxstack
= xcoff_data (abfd
)->maxstack
;
948 internal_a
.o_maxdata
= xcoff_data (abfd
)->maxdata
;
951 if (bfd_seek (abfd
, (file_ptr
) 0, 0) != 0)
956 bfd_size_type amount
= bfd_coff_filhsz (abfd
);
958 buff
= bfd_malloc (amount
);
962 bfd_coff_swap_filehdr_out (abfd
, (PTR
) &internal_f
, (PTR
) buff
);
963 amount
= bfd_bwrite ((PTR
) buff
, amount
, abfd
);
967 if (amount
!= bfd_coff_filhsz (abfd
))
971 if (abfd
->flags
& EXEC_P
)
974 bfd_size_type amount
= bfd_coff_aoutsz (abfd
);
976 buff
= bfd_malloc (amount
);
980 bfd_coff_swap_aouthdr_out (abfd
, (PTR
) & internal_a
, (PTR
) buff
);
981 amount
= bfd_bwrite ((PTR
) buff
, amount
, abfd
);
985 if (amount
!= bfd_coff_aoutsz (abfd
))
992 /* This is the relocation function for the RS/6000/POWER/PowerPC.
993 This is currently the only processor which uses XCOFF; I hope that
994 will never change. */
997 xcoff64_ppc_relocate_section (output_bfd
, info
, input_bfd
,
998 input_section
, contents
, relocs
, syms
,
1001 struct bfd_link_info
*info
;
1003 asection
*input_section
;
1005 struct internal_reloc
*relocs
;
1006 struct internal_syment
*syms
;
1007 asection
**sections
;
1009 struct internal_reloc
*rel
;
1010 struct internal_reloc
*relend
;
1013 relend
= rel
+ input_section
->reloc_count
;
1014 for (; rel
< relend
; rel
++)
1017 struct xcoff_link_hash_entry
*h
;
1018 struct internal_syment
*sym
;
1021 struct reloc_howto_struct howto
;
1022 bfd_reloc_status_type rstat
;
1024 /* Relocation type R_REF is a special relocation type which is
1025 merely used to prevent garbage collection from occurring for
1026 the csect including the symbol which it references. */
1027 if (rel
->r_type
== R_REF
)
1030 symndx
= rel
->r_symndx
;
1040 h
= obj_xcoff_sym_hashes (input_bfd
)[symndx
];
1041 sym
= syms
+ symndx
;
1042 addend
= - sym
->n_value
;
1045 /* We build the howto information on the fly. */
1047 howto
.type
= rel
->r_type
;
1048 howto
.rightshift
= 0;
1050 howto
.bitsize
= (rel
->r_size
& 0x3f) + 1;
1051 howto
.pc_relative
= false;
1053 if ((rel
->r_size
& 0x80) != 0)
1054 howto
.complain_on_overflow
= complain_overflow_signed
;
1056 howto
.complain_on_overflow
= complain_overflow_bitfield
;
1057 howto
.special_function
= NULL
;
1058 howto
.name
= "internal";
1059 howto
.partial_inplace
= true;
1061 if (howto
.bitsize
== 64)
1063 howto
.src_mask
= howto
.dst_mask
= MINUS_ONE
;
1065 else if (howto
.bitsize
== 32)
1067 howto
.src_mask
= howto
.dst_mask
= 0xffffffff;
1071 howto
.src_mask
= howto
.dst_mask
= (1 << howto
.bitsize
) - 1;
1072 if (howto
.bitsize
== 16)
1075 howto
.pcrel_offset
= false;
1085 sec
= bfd_abs_section_ptr
;
1090 sec
= sections
[symndx
];
1091 /* Hack to make sure we use the right TOC anchor value
1092 if this reloc is against the TOC anchor. */
1093 if (sec
->name
[3] == '0'
1094 && strcmp (sec
->name
, ".tc0") == 0)
1095 val
= xcoff_data (output_bfd
)->toc
;
1097 val
= (sec
->output_section
->vma
1098 + sec
->output_offset
1107 if (h
->root
.type
== bfd_link_hash_defined
1108 || h
->root
.type
== bfd_link_hash_defweak
)
1112 sec
= h
->root
.u
.def
.section
;
1113 val
= (h
->root
.u
.def
.value
1114 + sec
->output_section
->vma
1115 + sec
->output_offset
);
1118 else if (h
->root
.type
== bfd_link_hash_common
)
1122 sec
= h
->root
.u
.c
.p
->section
;
1123 val
= (sec
->output_section
->vma
1124 + sec
->output_offset
);
1126 else if ((h
->flags
& XCOFF_DEF_DYNAMIC
) != 0
1127 || (h
->flags
& XCOFF_IMPORT
) != 0)
1129 /* Every symbol in a shared object is defined somewhere. */
1132 else if (! info
->relocateable
)
1134 if (! ((*info
->callbacks
->undefined_symbol
)
1135 (info
, h
->root
.root
.string
, input_bfd
, input_section
,
1136 rel
->r_vaddr
- input_section
->vma
, true)))
1139 /* Don't try to process the reloc. It can't help, and
1140 it may generate another error. */
1145 /* I took the relocation type definitions from two documents:
1146 the PowerPC AIX Version 4 Application Binary Interface, First
1147 Edition (April 1992), and the PowerOpen ABI, Big-Endian
1148 32-Bit Hardware Implementation (June 30, 1994). Differences
1149 between the documents are noted below. */
1151 switch (rel
->r_type
)
1156 /* These relocs are defined by the PowerPC ABI to be
1157 relative branches which use half of the difference
1158 between the symbol and the program counter. I can't
1159 quite figure out when this is useful. These relocs are
1160 not defined by the PowerOpen ABI. */
1162 (*_bfd_error_handler
)
1163 (_("%s: unsupported relocation type 0x%02x"),
1164 bfd_archive_filename (input_bfd
), (unsigned int) rel
->r_type
);
1165 bfd_set_error (bfd_error_bad_value
);
1168 /* Simple positive relocation. */
1171 /* Simple negative relocation. */
1175 /* Simple PC relative relocation. */
1176 howto
.pc_relative
= true;
1179 /* TOC relative relocation. The value in the instruction in
1180 the input file is the offset from the input file TOC to
1181 the desired location. We want the offset from the final
1182 TOC to the desired location. We have:
1187 so we must change insn by on - in.
1190 /* Global linkage relocation. The value of this relocation
1191 is the address of the entry in the TOC section. */
1193 /* Local object TOC address. I can't figure out the
1194 difference between this and case R_GL. */
1196 /* TOC relative relocation. A TOC relative load instruction
1197 which may be changed to a load address instruction.
1198 FIXME: We don't currently implement this optimization. */
1200 /* TOC relative relocation. This is a TOC relative load
1201 address instruction which may be changed to a load
1202 instruction. FIXME: I don't know if this is the correct
1204 if (h
!= NULL
&& h
->smclas
!= XMC_TD
)
1206 if (h
->toc_section
== NULL
)
1208 (*_bfd_error_handler
)
1209 (_("%s: TOC reloc at 0x%x to symbol `%s' with no TOC entry"),
1210 bfd_archive_filename (input_bfd
), rel
->r_vaddr
,
1211 h
->root
.root
.string
);
1212 bfd_set_error (bfd_error_bad_value
);
1216 BFD_ASSERT ((h
->flags
& XCOFF_SET_TOC
) == 0);
1217 val
= (h
->toc_section
->output_section
->vma
1218 + h
->toc_section
->output_offset
);
1221 val
= ((val
- xcoff_data (output_bfd
)->toc
)
1222 - (sym
->n_value
- xcoff_data (input_bfd
)->toc
));
1227 /* Absolute branch. We don't want to mess with the lower
1228 two bits of the instruction. */
1230 /* The PowerPC ABI defines this as an absolute call which
1231 may be modified to become a relative call. The PowerOpen
1232 ABI does not define this relocation type. */
1234 /* Absolute branch which may be modified to become a
1237 /* The PowerPC ABI defines this as an absolute branch to a
1238 fixed address which may be modified to an absolute branch
1239 to a symbol. The PowerOpen ABI does not define this
1242 /* The PowerPC ABI defines this as an absolute branch to a
1243 fixed address which may be modified to a relative branch.
1244 The PowerOpen ABI does not define this relocation type. */
1245 howto
.src_mask
&= ~3;
1246 howto
.dst_mask
= howto
.src_mask
;
1249 /* Relative branch. We don't want to mess with the lower
1250 two bits of the instruction. */
1252 /* The PowerPC ABI defines this as a relative call which may
1253 be modified to become an absolute call. The PowerOpen
1254 ABI does not define this relocation type. */
1256 /* A relative branch which may be modified to become an
1257 absolute branch. FIXME: We don't implement this,
1258 although we should for symbols of storage mapping class
1260 howto
.pc_relative
= true;
1261 howto
.src_mask
&= ~3;
1262 howto
.dst_mask
= howto
.src_mask
;
1264 howto
.complain_on_overflow
= complain_overflow_bitfield
;
1267 /* The PowerPC AIX ABI describes this as a load which may be
1268 changed to a load address. The PowerOpen ABI says this
1269 is the same as case R_POS. */
1272 /* The PowerPC AIX ABI describes this as a load address
1273 which may be changed to a load. The PowerOpen ABI says
1274 this is the same as R_POS. */
1278 /* If we see an R_BR or R_RBR reloc which is jumping to global
1279 linkage code, and it is followed by an appropriate cror nop
1280 instruction, we replace the cror with ld r2,40(r1). This
1281 restores the TOC after the glink code. Contrariwise, if the
1282 call is followed by a ld r2,40(r1), but the call is not
1283 going to global linkage code, we can replace the load with a
1285 if ((rel
->r_type
== R_BR
|| rel
->r_type
== R_RBR
)
1287 && h
->root
.type
== bfd_link_hash_defined
1288 && (rel
->r_vaddr
- input_section
->vma
+ 8
1289 <= input_section
->_cooked_size
))
1294 pnext
= contents
+ (rel
->r_vaddr
- input_section
->vma
) + 4;
1295 next
= bfd_get_32 (input_bfd
, pnext
);
1298 /* The _ptrgl function is magic. It is used by the AIX
1299 * compiler to call a function through a pointer.
1301 * special case XMC_GL, global linkage
1303 if (h
->smclas
== XMC_GL
1304 || strcmp (h
->root
.root
.string
, "._ptrgl") == 0)
1306 if (next
== 0x4def7b82 /* cror 15,15,15 */
1307 || next
== 0x4ffffb82 /* cror 31,31,31 */
1308 || next
== 0x60000000 /* ori r0,r0,0 */)
1309 bfd_put_32 (input_bfd
, (bfd_vma
) 0xe8410028 /* ld r2,40(r1) */,
1314 if (next
== 0xe8410028 /* ld r2,40(r1) */)
1315 bfd_put_32 (input_bfd
, (bfd_vma
) 0x60000000 /* ori r0,r0,0 */,
1320 /* A PC relative reloc includes the section address. */
1321 if (howto
.pc_relative
)
1322 addend
+= input_section
->vma
;
1324 rstat
= _bfd_final_link_relocate (&howto
, input_bfd
, input_section
,
1326 rel
->r_vaddr
- input_section
->vma
,
1335 case bfd_reloc_overflow
:
1338 char buf
[SYMNMLEN
+ 1];
1339 char howto_name
[10];
1344 name
= h
->root
.root
.string
;
1347 name
= _bfd_coff_internal_syment_name (input_bfd
, sym
, buf
);
1351 sprintf (howto_name
, "0x%02x", rel
->r_type
);
1353 if (! ((*info
->callbacks
->reloc_overflow
)
1354 (info
, name
, howto_name
, (bfd_vma
) 0, input_bfd
,
1355 input_section
, rel
->r_vaddr
- input_section
->vma
)))
1365 /* The XCOFF reloc table. Actually, XCOFF relocations specify the
1366 bitsize and whether they are signed or not, along with a
1367 conventional type. This table is for the types, which are used for
1368 different algorithms for putting in the reloc. Many of these
1369 relocs need special_function entries, which I have not written. */
1371 reloc_howto_type xcoff64_howto_table
[] =
1373 /* Standard 64 bit relocation. */
1374 HOWTO (R_POS
, /* type */
1376 4, /* size (0 = byte, 1 = short, 2 = long) */
1378 false, /* pc_relative */
1380 complain_overflow_bitfield
, /* complain_on_overflow */
1381 0, /* special_function */
1383 true, /* partial_inplace */
1384 MINUS_ONE
, /* src_mask */
1385 MINUS_ONE
, /* dst_mask */
1386 false), /* pcrel_offset */
1388 /* 64 bit relocation, but store negative value. */
1389 HOWTO (R_NEG
, /* type */
1391 -4, /* size (0 = byte, 1 = short, 2 = long) */
1393 false, /* pc_relative */
1395 complain_overflow_bitfield
, /* complain_on_overflow */
1396 0, /* special_function */
1398 true, /* partial_inplace */
1399 MINUS_ONE
, /* src_mask */
1400 MINUS_ONE
, /* dst_mask */
1401 false), /* pcrel_offset */
1403 /* 32 bit PC relative relocation. */
1404 HOWTO (R_REL
, /* type */
1406 2, /* size (0 = byte, 1 = short, 2 = long) */
1408 true, /* pc_relative */
1410 complain_overflow_signed
, /* complain_on_overflow */
1411 0, /* special_function */
1413 true, /* partial_inplace */
1414 0xffffffff, /* src_mask */
1415 0xffffffff, /* dst_mask */
1416 false), /* pcrel_offset */
1418 /* 16 bit TOC relative relocation. */
1419 HOWTO (R_TOC
, /* type */
1421 1, /* size (0 = byte, 1 = short, 2 = long) */
1423 false, /* pc_relative */
1425 complain_overflow_bitfield
, /* complain_on_overflow */
1426 0, /* special_function */
1428 true, /* partial_inplace */
1429 0xffff, /* src_mask */
1430 0xffff, /* dst_mask */
1431 false), /* pcrel_offset */
1433 /* I don't really know what this is. */
1434 HOWTO (R_RTB
, /* type */
1436 2, /* size (0 = byte, 1 = short, 2 = long) */
1438 false, /* pc_relative */
1440 complain_overflow_bitfield
, /* complain_on_overflow */
1441 0, /* special_function */
1443 true, /* partial_inplace */
1444 0xffffffff, /* src_mask */
1445 0xffffffff, /* dst_mask */
1446 false), /* pcrel_offset */
1448 /* External TOC relative symbol. */
1449 HOWTO (R_GL
, /* type */
1451 2, /* size (0 = byte, 1 = short, 2 = long) */
1453 false, /* pc_relative */
1455 complain_overflow_bitfield
, /* complain_on_overflow */
1456 0, /* special_function */
1458 true, /* partial_inplace */
1459 0xffff, /* src_mask */
1460 0xffff, /* dst_mask */
1461 false), /* pcrel_offset */
1463 /* Local TOC relative symbol. */
1464 HOWTO (R_TCL
, /* type */
1466 2, /* size (0 = byte, 1 = short, 2 = long) */
1468 false, /* pc_relative */
1470 complain_overflow_bitfield
, /* complain_on_overflow */
1471 0, /* special_function */
1473 true, /* partial_inplace */
1474 0xffff, /* src_mask */
1475 0xffff, /* dst_mask */
1476 false), /* pcrel_offset */
1480 /* Non modifiable absolute branch. */
1481 HOWTO (R_BA
, /* type */
1483 2, /* size (0 = byte, 1 = short, 2 = long) */
1485 false, /* pc_relative */
1487 complain_overflow_bitfield
, /* complain_on_overflow */
1488 0, /* special_function */
1490 true, /* partial_inplace */
1491 0x3fffffc, /* src_mask */
1492 0x3fffffc, /* dst_mask */
1493 false), /* pcrel_offset */
1497 /* Non modifiable relative branch. */
1498 HOWTO (R_BR
, /* type */
1500 2, /* size (0 = byte, 1 = short, 2 = long) */
1502 true, /* pc_relative */
1504 complain_overflow_signed
, /* complain_on_overflow */
1505 0, /* special_function */
1507 true, /* partial_inplace */
1508 0x3fffffc, /* src_mask */
1509 0x3fffffc, /* dst_mask */
1510 false), /* pcrel_offset */
1514 /* Indirect load. */
1515 HOWTO (R_RL
, /* type */
1517 2, /* size (0 = byte, 1 = short, 2 = long) */
1519 false, /* pc_relative */
1521 complain_overflow_bitfield
, /* complain_on_overflow */
1522 0, /* special_function */
1524 true, /* partial_inplace */
1525 0xffff, /* src_mask */
1526 0xffff, /* dst_mask */
1527 false), /* pcrel_offset */
1530 HOWTO (R_RLA
, /* type */
1532 2, /* size (0 = byte, 1 = short, 2 = long) */
1534 false, /* pc_relative */
1536 complain_overflow_bitfield
, /* complain_on_overflow */
1537 0, /* special_function */
1539 true, /* partial_inplace */
1540 0xffff, /* src_mask */
1541 0xffff, /* dst_mask */
1542 false), /* pcrel_offset */
1546 /* Non-relocating reference. */
1547 HOWTO (R_REF
, /* type */
1549 2, /* size (0 = byte, 1 = short, 2 = long) */
1551 false, /* pc_relative */
1553 complain_overflow_bitfield
, /* complain_on_overflow */
1554 0, /* special_function */
1556 false, /* partial_inplace */
1559 false), /* pcrel_offset */
1564 /* TOC relative indirect load. */
1565 HOWTO (R_TRL
, /* type */
1567 2, /* size (0 = byte, 1 = short, 2 = long) */
1569 false, /* pc_relative */
1571 complain_overflow_bitfield
, /* complain_on_overflow */
1572 0, /* special_function */
1574 true, /* partial_inplace */
1575 0xffff, /* src_mask */
1576 0xffff, /* dst_mask */
1577 false), /* pcrel_offset */
1579 /* TOC relative load address. */
1580 HOWTO (R_TRLA
, /* type */
1582 2, /* size (0 = byte, 1 = short, 2 = long) */
1584 false, /* pc_relative */
1586 complain_overflow_bitfield
, /* complain_on_overflow */
1587 0, /* special_function */
1588 "R_TRLA", /* name */
1589 true, /* partial_inplace */
1590 0xffff, /* src_mask */
1591 0xffff, /* dst_mask */
1592 false), /* pcrel_offset */
1594 /* Modifiable relative branch. */
1595 HOWTO (R_RRTBI
, /* type */
1597 2, /* size (0 = byte, 1 = short, 2 = long) */
1599 false, /* pc_relative */
1601 complain_overflow_bitfield
, /* complain_on_overflow */
1602 0, /* special_function */
1603 "R_RRTBI", /* name */
1604 true, /* partial_inplace */
1605 0xffffffff, /* src_mask */
1606 0xffffffff, /* dst_mask */
1607 false), /* pcrel_offset */
1609 /* Modifiable absolute branch. */
1610 HOWTO (R_RRTBA
, /* type */
1612 2, /* size (0 = byte, 1 = short, 2 = long) */
1614 false, /* pc_relative */
1616 complain_overflow_bitfield
, /* complain_on_overflow */
1617 0, /* special_function */
1618 "R_RRTBA", /* name */
1619 true, /* partial_inplace */
1620 0xffffffff, /* src_mask */
1621 0xffffffff, /* dst_mask */
1622 false), /* pcrel_offset */
1624 /* Modifiable call absolute indirect. */
1625 HOWTO (R_CAI
, /* type */
1627 2, /* size (0 = byte, 1 = short, 2 = long) */
1629 false, /* pc_relative */
1631 complain_overflow_bitfield
, /* complain_on_overflow */
1632 0, /* special_function */
1634 true, /* partial_inplace */
1635 0xffff, /* src_mask */
1636 0xffff, /* dst_mask */
1637 false), /* pcrel_offset */
1639 /* Modifiable call relative. */
1640 HOWTO (R_CREL
, /* type */
1642 2, /* size (0 = byte, 1 = short, 2 = long) */
1644 false, /* pc_relative */
1646 complain_overflow_bitfield
, /* complain_on_overflow */
1647 0, /* special_function */
1648 "R_CREL", /* name */
1649 true, /* partial_inplace */
1650 0xffff, /* src_mask */
1651 0xffff, /* dst_mask */
1652 false), /* pcrel_offset */
1654 /* Modifiable branch absolute. */
1655 HOWTO (R_RBA
, /* type */
1657 2, /* size (0 = byte, 1 = short, 2 = long) */
1659 false, /* pc_relative */
1661 complain_overflow_bitfield
, /* complain_on_overflow */
1662 0, /* special_function */
1664 true, /* partial_inplace */
1665 0xffff, /* src_mask */
1666 0xffff, /* dst_mask */
1667 false), /* pcrel_offset */
1669 /* Modifiable branch absolute. */
1670 HOWTO (R_RBAC
, /* type */
1672 2, /* size (0 = byte, 1 = short, 2 = long) */
1674 false, /* pc_relative */
1676 complain_overflow_bitfield
, /* complain_on_overflow */
1677 0, /* special_function */
1678 "R_RBAC", /* name */
1679 true, /* partial_inplace */
1680 0xffff, /* src_mask */
1681 0xffff, /* dst_mask */
1682 false), /* pcrel_offset */
1684 /* Modifiable branch relative. */
1685 HOWTO (R_RBR
, /* type */
1687 2, /* size (0 = byte, 1 = short, 2 = long) */
1689 false, /* pc_relative */
1691 complain_overflow_signed
, /* complain_on_overflow */
1692 0, /* special_function */
1694 true, /* partial_inplace */
1695 0xffff, /* src_mask */
1696 0xffff, /* dst_mask */
1697 false), /* pcrel_offset */
1699 /* Modifiable branch absolute. */
1700 HOWTO (R_RBRC
, /* type */
1702 2, /* size (0 = byte, 1 = short, 2 = long) */
1704 false, /* pc_relative */
1706 complain_overflow_bitfield
, /* complain_on_overflow */
1707 0, /* special_function */
1708 "R_RBRC", /* name */
1709 true, /* partial_inplace */
1710 0xffff, /* src_mask */
1711 0xffff, /* dst_mask */
1712 false), /* pcrel_offset */
1714 HOWTO (R_POS
, /* type */
1716 4, /* size (0 = byte, 1 = short, 2 = long) */
1718 false, /* pc_relative */
1720 complain_overflow_bitfield
, /* complain_on_overflow */
1721 0, /* special_function */
1723 true, /* partial_inplace */
1724 MINUS_ONE
, /* src_mask */
1725 MINUS_ONE
, /* dst_mask */
1726 false), /* pcrel_offset */
1728 /* 16 bit Non modifiable absolute branch. */
1729 HOWTO (R_BA
, /* type */
1731 2, /* size (0 = byte, 1 = short, 2 = long) */
1733 false, /* pc_relative */
1735 complain_overflow_bitfield
, /* complain_on_overflow */
1736 0, /* special_function */
1738 true, /* partial_inplace */
1739 0xfffc, /* src_mask */
1740 0xfffc, /* dst_mask */
1741 false), /* pcrel_offset */
1745 xcoff64_rtype2howto (relent
, internal
)
1747 struct internal_reloc
*internal
;
1749 relent
->howto
= xcoff64_howto_table
+ internal
->r_type
;
1751 /* Check for relocs we don't know of. */
1752 if (internal
->r_type
1753 >= sizeof (xcoff64_howto_table
) / sizeof (xcoff64_howto_table
[0]))
1755 if (internal
->r_type
!= relent
->howto
->type
)
1758 /* The r_size field of an XCOFF reloc encodes the bitsize of the
1759 relocation, as well as indicating whether it is signed or not.
1760 Doublecheck that the relocation information gathered from the
1761 type matches this information. The bitsize is not significant
1762 for R_REF relocs. */
1763 if (relent
->howto
->dst_mask
!= 0
1764 && (relent
->howto
->bitsize
1765 != ((unsigned int) internal
->r_size
& 0x3f) + 1))
1768 if ((internal
->r_size
& 0x80) != 0
1769 ? (relent
->howto
->complain_on_overflow
!= complain_overflow_signed
)
1770 : (relent
->howto
->complain_on_overflow
!= complain_overflow_bitfield
))
1776 xcoff64_reloc_type_lookup (abfd
, code
)
1777 bfd
*abfd ATTRIBUTE_UNUSED
;
1778 bfd_reloc_code_real_type code
;
1782 case BFD_RELOC_PPC_B26
:
1783 return &xcoff64_howto_table
[0xa];
1784 case BFD_RELOC_PPC_BA16
:
1785 return &xcoff64_howto_table
[0x1d];
1786 case BFD_RELOC_PPC_BA26
:
1787 return &xcoff64_howto_table
[8];
1788 case BFD_RELOC_PPC_TOC16
:
1789 return &xcoff64_howto_table
[3];
1791 case BFD_RELOC_CTOR
:
1792 return &xcoff64_howto_table
[0];
1794 return &xcoff64_howto_table
[0x1c];
1800 /* Read in the armap of an XCOFF archive. */
1803 xcoff64_slurp_armap (abfd
)
1808 bfd_size_type sz
, amt
;
1809 bfd_byte
*contents
, *cend
;
1815 /* This is for the new format. */
1816 struct xcoff_ar_hdr_big hdr
;
1818 if (xcoff_ardata (abfd
) == NULL
)
1820 bfd_has_map (abfd
) = false;
1824 off
= strtol (xcoff_ardata_big (abfd
)->symoff64
, (char **) NULL
, 10);
1827 bfd_has_map (abfd
) = false;
1831 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1834 /* The symbol table starts with a normal archive header. */
1835 if (bfd_bread ((PTR
) &hdr
, (bfd_size_type
) SIZEOF_AR_HDR_BIG
, abfd
)
1836 != SIZEOF_AR_HDR_BIG
)
1839 /* Skip the name (normally empty). */
1840 namlen
= strtol (hdr
.namlen
, (char **) NULL
, 10);
1841 pos
= ((namlen
+ 1) & ~(size_t) 1) + SXCOFFARFMAG
;
1842 if (bfd_seek (abfd
, pos
, SEEK_CUR
) != 0)
1845 /* XXX This actually has to be a call to strtoll (at least on 32-bit
1846 machines) since the field width is 20 and there numbers with more
1847 than 32 bits can be represented. */
1848 sz
= strtol (hdr
.size
, (char **) NULL
, 10);
1850 /* Read in the entire symbol table. */
1851 contents
= (bfd_byte
*) bfd_alloc (abfd
, sz
);
1852 if (contents
== NULL
)
1854 if (bfd_bread ((PTR
) contents
, sz
, abfd
) != sz
)
1857 /* The symbol table starts with an eight byte count. */
1858 c
= H_GET_64 (abfd
, contents
);
1862 bfd_set_error (bfd_error_bad_value
);
1866 amt
*= sizeof (carsym
);
1867 bfd_ardata (abfd
)->symdefs
= (carsym
*) bfd_alloc (abfd
, amt
);
1868 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1871 /* After the count comes a list of eight byte file offsets. */
1872 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 8;
1874 ++i
, ++arsym
, p
+= 8)
1875 arsym
->file_offset
= H_GET_64 (abfd
, p
);
1877 /* After the file offsets come null terminated symbol names. */
1878 cend
= contents
+ sz
;
1879 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
;
1881 ++i
, ++arsym
, p
+= strlen ((char *) p
) + 1)
1885 bfd_set_error (bfd_error_bad_value
);
1888 arsym
->name
= (char *) p
;
1891 bfd_ardata (abfd
)->symdef_count
= c
;
1892 bfd_has_map (abfd
) = true;
1898 /* See if this is an NEW XCOFF archive. */
1900 static const bfd_target
*
1901 xcoff64_archive_p (abfd
)
1904 char magic
[SXCOFFARMAG
];
1905 /* This is the new format. */
1906 struct xcoff_ar_file_hdr_big hdr
;
1907 bfd_size_type amt
= SXCOFFARMAG
;
1909 if (bfd_bread ((PTR
) magic
, amt
, abfd
) != amt
)
1911 if (bfd_get_error () != bfd_error_system_call
)
1912 bfd_set_error (bfd_error_wrong_format
);
1916 if (strncmp (magic
, XCOFFARMAGBIG
, SXCOFFARMAG
) != 0)
1918 bfd_set_error (bfd_error_wrong_format
);
1922 /* We are setting bfd_ardata(abfd) here, but since bfd_ardata
1923 involves a cast, we can't do it as the left operand of
1925 amt
= sizeof (struct artdata
);
1926 abfd
->tdata
.aout_ar_data
= (struct artdata
*) bfd_zalloc (abfd
, amt
);
1928 if (bfd_ardata (abfd
) == (struct artdata
*) NULL
)
1931 bfd_ardata (abfd
)->cache
= NULL
;
1932 bfd_ardata (abfd
)->archive_head
= NULL
;
1933 bfd_ardata (abfd
)->symdefs
= NULL
;
1934 bfd_ardata (abfd
)->extended_names
= NULL
;
1936 /* Copy over the magic string. */
1937 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1939 /* Now read the rest of the file header. */
1940 if (bfd_bread ((PTR
) &hdr
.memoff
,
1941 (bfd_size_type
) (SIZEOF_AR_FILE_HDR_BIG
- SXCOFFARMAG
),
1942 abfd
) != SIZEOF_AR_FILE_HDR_BIG
- SXCOFFARMAG
)
1944 if (bfd_get_error () != bfd_error_system_call
)
1945 bfd_set_error (bfd_error_wrong_format
);
1949 /* XXX This actually has to be a call to strtoll (at least on 32-bit
1950 machines) since the field width is 20 and there numbers with more
1951 than 32 bits can be represented. */
1952 bfd_ardata (abfd
)->first_file_filepos
= strtol (hdr
.firstmemoff
,
1953 (char **) NULL
, 10);
1955 amt
= SIZEOF_AR_FILE_HDR_BIG
;
1956 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, amt
);
1957 if (bfd_ardata (abfd
)->tdata
== NULL
)
1960 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR_BIG
);
1962 if (! xcoff64_slurp_armap (abfd
))
1964 bfd_release (abfd
, bfd_ardata (abfd
));
1965 abfd
->tdata
.aout_ar_data
= (struct artdata
*) NULL
;
1973 /* Open the next element in an XCOFF archive. */
1976 xcoff64_openr_next_archived_file (archive
, last_file
)
1982 if ((xcoff_ardata (archive
) == NULL
)
1983 || ! xcoff_big_format_p (archive
))
1985 bfd_set_error (bfd_error_invalid_operation
);
1989 if (last_file
== NULL
)
1991 filestart
= bfd_ardata (archive
)->first_file_filepos
;
1995 /* XXX These actually have to be a calls to strtoll (at least
1996 on 32-bit machines) since the fields's width is 20 and
1997 there numbers with more than 32 bits can be represented. */
1998 filestart
= strtol (arch_xhdr_big (last_file
)->nextoff
, (char **) NULL
,
2001 /* XXX These actually have to be calls to strtoll (at least on 32-bit
2002 machines) since the fields's width is 20 and there numbers with more
2003 than 32 bits can be represented. */
2005 || filestart
== strtol (xcoff_ardata_big (archive
)->memoff
,
2007 || filestart
== strtol (xcoff_ardata_big (archive
)->symoff
,
2008 (char **) NULL
, 10))
2010 bfd_set_error (bfd_error_no_more_archived_files
);
2014 return _bfd_get_elt_at_filepos (archive
, filestart
);
2017 /* We can't use the usual coff_sizeof_headers routine, because AIX
2018 always uses an a.out header. */
2022 xcoff64_sizeof_headers (abfd
, reloc
)
2024 boolean reloc ATTRIBUTE_UNUSED
;
2028 size
= bfd_coff_filhsz (abfd
);
2030 /* Don't think the small aout header can be used since some of the
2031 old elements have been reordered past the end of the old coff
2034 if (xcoff_data (abfd
)->full_aouthdr
)
2035 size
+= bfd_coff_aoutsz (abfd
);
2037 size
+= abfd
->section_count
* bfd_coff_scnhsz (abfd
);
2044 xcoff64_create_csect_from_smclas (abfd
, aux
, symbol_name
)
2046 union internal_auxent
*aux
;
2047 const char *symbol_name
;
2049 asection
*return_value
= NULL
;
2051 /* Changes from 32 :
2052 .sv == 8, is only for 32 bit programs
2053 .ti == 12 and .tb == 13 are now reserved. */
2054 static const char *names
[19] =
2056 ".pr", ".ro", ".db", ".tc", ".ua", ".rw", ".gl", ".xo",
2057 NULL
, ".bs", ".ds", ".uc", NULL
, NULL
, NULL
, ".tc0",
2058 ".td", ".sv64", ".sv3264"
2061 if ((19 >= aux
->x_csect
.x_smclas
)
2062 && (NULL
!= names
[aux
->x_csect
.x_smclas
]))
2065 return_value
= bfd_make_section_anyway
2066 (abfd
, names
[aux
->x_csect
.x_smclas
]);
2071 (*_bfd_error_handler
)
2072 (_("%s: symbol `%s' has unrecognized smclas %d"),
2073 bfd_archive_filename (abfd
), symbol_name
, aux
->x_csect
.x_smclas
);
2074 bfd_set_error (bfd_error_bad_value
);
2077 return return_value
;
2081 xcoff64_is_lineno_count_overflow (abfd
, value
)
2082 bfd
*abfd ATTRIBUTE_UNUSED
;
2083 bfd_vma value ATTRIBUTE_UNUSED
;
2089 xcoff64_is_reloc_count_overflow (abfd
, value
)
2090 bfd
*abfd ATTRIBUTE_UNUSED
;
2091 bfd_vma value ATTRIBUTE_UNUSED
;
2097 xcoff64_loader_symbol_offset (abfd
, ldhdr
)
2098 bfd
*abfd ATTRIBUTE_UNUSED
;
2099 struct internal_ldhdr
*ldhdr
;
2101 return (ldhdr
->l_symoff
);
2105 xcoff64_loader_reloc_offset (abfd
, ldhdr
)
2106 bfd
*abfd ATTRIBUTE_UNUSED
;
2107 struct internal_ldhdr
*ldhdr
;
2109 return (ldhdr
->l_rldoff
);
2113 xcoff64_bad_format_hook (abfd
, filehdr
)
2117 struct internal_filehdr
*internal_f
= (struct internal_filehdr
*) filehdr
;
2119 /* Check flavor first. */
2120 if (bfd_get_flavour (abfd
) != bfd_target_xcoff_flavour
)
2123 if (bfd_xcoff_magic_number (abfd
) != internal_f
->f_magic
)
2130 xcoff64_generate_rtinit (abfd
, init
, fini
, rtld
)
2136 bfd_byte filehdr_ext
[FILHSZ
];
2137 bfd_byte scnhdr_ext
[SCNHSZ
* 3];
2138 bfd_byte syment_ext
[SYMESZ
* 10];
2139 bfd_byte reloc_ext
[RELSZ
* 3];
2140 bfd_byte
*data_buffer
;
2141 bfd_size_type data_buffer_size
;
2142 bfd_byte
*string_table
, *st_tmp
;
2143 bfd_size_type string_table_size
;
2145 size_t initsz
, finisz
;
2146 struct internal_filehdr filehdr
;
2147 struct internal_scnhdr text_scnhdr
;
2148 struct internal_scnhdr data_scnhdr
;
2149 struct internal_scnhdr bss_scnhdr
;
2150 struct internal_syment syment
;
2151 union internal_auxent auxent
;
2152 struct internal_reloc reloc
;
2154 char *text_name
= ".text";
2155 char *data_name
= ".data";
2156 char *bss_name
= ".bss";
2157 char *rtinit_name
= "__rtinit";
2158 char *rtld_name
= "__rtld";
2160 if (! bfd_xcoff_rtinit_size (abfd
))
2163 initsz
= (init
== NULL
? 0 : 1 + strlen (init
));
2164 finisz
= (fini
== NULL
? 0 : 1 + strlen (fini
));
2167 memset (filehdr_ext
, 0, FILHSZ
);
2168 memset (&filehdr
, 0, sizeof (struct internal_filehdr
));
2169 filehdr
.f_magic
= bfd_xcoff_magic_number (abfd
);
2170 filehdr
.f_nscns
= 3;
2171 filehdr
.f_timdat
= 0;
2172 filehdr
.f_nsyms
= 0; /* at least 6, no more than 8 */
2173 filehdr
.f_symptr
= 0; /* set below */
2174 filehdr
.f_opthdr
= 0;
2175 filehdr
.f_flags
= 0;
2177 /* Section headers. */
2178 memset (scnhdr_ext
, 0, 3 * SCNHSZ
);
2181 memset (&text_scnhdr
, 0, sizeof (struct internal_scnhdr
));
2182 memcpy (text_scnhdr
.s_name
, text_name
, strlen (text_name
));
2183 text_scnhdr
.s_paddr
= 0;
2184 text_scnhdr
.s_vaddr
= 0;
2185 text_scnhdr
.s_size
= 0;
2186 text_scnhdr
.s_scnptr
= 0;
2187 text_scnhdr
.s_relptr
= 0;
2188 text_scnhdr
.s_lnnoptr
= 0;
2189 text_scnhdr
.s_nreloc
= 0;
2190 text_scnhdr
.s_nlnno
= 0;
2191 text_scnhdr
.s_flags
= STYP_TEXT
;
2194 memset (&data_scnhdr
, 0, sizeof (struct internal_scnhdr
));
2195 memcpy (data_scnhdr
.s_name
, data_name
, strlen (data_name
));
2196 data_scnhdr
.s_paddr
= 0;
2197 data_scnhdr
.s_vaddr
= 0;
2198 data_scnhdr
.s_size
= 0; /* set below */
2199 data_scnhdr
.s_scnptr
= FILHSZ
+ 3 * SCNHSZ
;
2200 data_scnhdr
.s_relptr
= 0; /* set below */
2201 data_scnhdr
.s_lnnoptr
= 0;
2202 data_scnhdr
.s_nreloc
= 0; /* either 1 or 2 */
2203 data_scnhdr
.s_nlnno
= 0;
2204 data_scnhdr
.s_flags
= STYP_DATA
;
2207 memset (&bss_scnhdr
, 0, sizeof (struct internal_scnhdr
));
2208 memcpy (bss_scnhdr
.s_name
, bss_name
, strlen (bss_name
));
2209 bss_scnhdr
.s_paddr
= 0; /* set below */
2210 bss_scnhdr
.s_vaddr
= 0; /* set below */
2211 bss_scnhdr
.s_size
= 0; /* set below */
2212 bss_scnhdr
.s_scnptr
= 0;
2213 bss_scnhdr
.s_relptr
= 0;
2214 bss_scnhdr
.s_lnnoptr
= 0;
2215 bss_scnhdr
.s_nreloc
= 0;
2216 bss_scnhdr
.s_nlnno
= 0;
2217 bss_scnhdr
.s_flags
= STYP_BSS
;
2220 0x0000 0x00000000 : rtl
2222 0x0008 0x00000018 : offset to init, or 0
2223 0x000C 0x00000038 : offset to fini, or 0
2224 0x0010 0x00000010 : size of descriptor
2225 0x0014 0x00000000 : pad
2226 0x0018 0x00000000 : init, needs a reloc
2228 0x0020 0x00000058 : offset to init name
2229 0x0024 0x00000000 : flags, padded to a word
2230 0x0028 0x00000000 : empty init
2234 0x0038 0x00000000 : fini, needs a reloc
2236 0x0040 0x00000??? : offset to fini name
2237 0x0044 0x00000000 : flags, padded to a word
2238 0x0048 0x00000000 : empty fini
2243 0x0058 + initsz fini name */
2245 data_buffer_size
= 0x0058 + initsz
+ finisz
;
2246 data_buffer_size
+= (data_buffer_size
& 7) ? 8 - (data_buffer_size
& 7) : 0;
2248 data_buffer
= (bfd_byte
*)bfd_malloc (data_buffer_size
);
2249 if (data_buffer
== NULL
)
2252 memset (data_buffer
, 0, data_buffer_size
);
2257 bfd_put_32 (abfd
, val
, &data_buffer
[0x08]);
2259 bfd_put_32 (abfd
, val
, &data_buffer
[0x20]);
2260 memcpy (&data_buffer
[val
], init
, initsz
);
2266 bfd_put_32 (abfd
, val
, &data_buffer
[0x0C]);
2267 val
= 0x58 + initsz
;
2268 bfd_put_32 (abfd
, val
, &data_buffer
[0x40]);
2269 memcpy (&data_buffer
[val
], fini
, finisz
);
2273 bfd_put_32 (abfd
, val
, &data_buffer
[0x10]);
2274 data_scnhdr
.s_size
= data_buffer_size
;
2275 bss_scnhdr
.s_paddr
= bss_scnhdr
.s_vaddr
= data_scnhdr
.s_size
;
2278 string_table_size
= 4;
2279 string_table_size
+= strlen (data_name
) + 1;
2280 string_table_size
+= strlen (rtinit_name
) + 1;
2281 string_table_size
+= initsz
;
2282 string_table_size
+= finisz
;
2284 string_table_size
+= strlen (rtld_name
) + 1;
2286 string_table
= (bfd_byte
*)bfd_malloc (string_table_size
);
2287 memset (string_table
, 0, string_table_size
);
2288 val
= string_table_size
;
2289 bfd_put_32 (abfd
, val
, &string_table
[0]);
2290 st_tmp
= string_table
+ 4;
2298 memset (syment_ext
, 0, 10 * SYMESZ
);
2299 memset (reloc_ext
, 0, 3 * RELSZ
);
2302 memset (&syment
, 0, sizeof (struct internal_syment
));
2303 memset (&auxent
, 0, sizeof (union internal_auxent
));
2305 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2306 memcpy (st_tmp
, data_name
, strlen (data_name
));
2307 st_tmp
+= strlen (data_name
) + 1;
2310 syment
.n_sclass
= C_HIDEXT
;
2311 syment
.n_numaux
= 1;
2312 auxent
.x_csect
.x_scnlen
.l
= data_buffer_size
;
2313 auxent
.x_csect
.x_smtyp
= 3 << 3 | XTY_SD
;
2314 auxent
.x_csect
.x_smclas
= XMC_RW
;
2315 bfd_coff_swap_sym_out (abfd
, &syment
,
2316 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2317 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2319 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2320 filehdr
.f_nsyms
+= 2;
2323 memset (&syment
, 0, sizeof (struct internal_syment
));
2324 memset (&auxent
, 0, sizeof (union internal_auxent
));
2325 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2326 memcpy (st_tmp
, rtinit_name
, strlen (rtinit_name
));
2327 st_tmp
+= strlen (rtinit_name
) + 1;
2330 syment
.n_sclass
= C_EXT
;
2331 syment
.n_numaux
= 1;
2332 auxent
.x_csect
.x_smtyp
= XTY_LD
;
2333 auxent
.x_csect
.x_smclas
= XMC_RW
;
2334 bfd_coff_swap_sym_out (abfd
, &syment
,
2335 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2336 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2338 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2339 filehdr
.f_nsyms
+= 2;
2344 memset (&syment
, 0, sizeof (struct internal_syment
));
2345 memset (&auxent
, 0, sizeof (union internal_auxent
));
2347 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2348 memcpy (st_tmp
, init
, initsz
);
2351 syment
.n_sclass
= C_EXT
;
2352 syment
.n_numaux
= 1;
2353 bfd_coff_swap_sym_out (abfd
, &syment
,
2354 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2355 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2357 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2359 memset (&reloc
, 0, sizeof (struct internal_reloc
));
2360 reloc
.r_vaddr
= 0x0018;
2361 reloc
.r_symndx
= filehdr
.f_nsyms
;
2362 reloc
.r_type
= R_POS
;
2364 bfd_coff_swap_reloc_out (abfd
, &reloc
, &reloc_ext
[0]);
2366 filehdr
.f_nsyms
+= 2;
2367 data_scnhdr
.s_nreloc
+= 1;
2373 memset (&syment
, 0, sizeof (struct internal_syment
));
2374 memset (&auxent
, 0, sizeof (union internal_auxent
));
2376 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2377 memcpy (st_tmp
, fini
, finisz
);
2380 syment
.n_sclass
= C_EXT
;
2381 syment
.n_numaux
= 1;
2382 bfd_coff_swap_sym_out (abfd
, &syment
,
2383 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2384 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2386 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2389 memset (&reloc
, 0, sizeof (struct internal_reloc
));
2390 reloc
.r_vaddr
= 0x0038;
2391 reloc
.r_symndx
= filehdr
.f_nsyms
;
2392 reloc
.r_type
= R_POS
;
2394 bfd_coff_swap_reloc_out (abfd
, &reloc
,
2395 &reloc_ext
[data_scnhdr
.s_nreloc
* RELSZ
]);
2397 filehdr
.f_nsyms
+= 2;
2398 data_scnhdr
.s_nreloc
+= 1;
2403 memset (&syment
, 0, sizeof (struct internal_syment
));
2404 memset (&auxent
, 0, sizeof (union internal_auxent
));
2406 syment
._n
._n_n
._n_offset
= st_tmp
- string_table
;
2407 memcpy (st_tmp
, rtld_name
, strlen (rtld_name
));
2408 st_tmp
+= strlen (rtld_name
) + 1;
2410 syment
.n_sclass
= C_EXT
;
2411 syment
.n_numaux
= 1;
2412 bfd_coff_swap_sym_out (abfd
, &syment
,
2413 &syment_ext
[filehdr
.f_nsyms
* SYMESZ
]);
2414 bfd_coff_swap_aux_out (abfd
, &auxent
, syment
.n_type
, syment
.n_sclass
, 0,
2416 &syment_ext
[(filehdr
.f_nsyms
+ 1) * SYMESZ
]);
2419 memset (&reloc
, 0, sizeof (struct internal_reloc
));
2420 reloc
.r_vaddr
= 0x0000;
2421 reloc
.r_symndx
= filehdr
.f_nsyms
;
2422 reloc
.r_type
= R_POS
;
2424 bfd_coff_swap_reloc_out (abfd
, &reloc
,
2425 &reloc_ext
[data_scnhdr
.s_nreloc
* RELSZ
]);
2427 filehdr
.f_nsyms
+= 2;
2428 data_scnhdr
.s_nreloc
+= 1;
2430 bss_scnhdr
.s_size
= 0;
2433 data_scnhdr
.s_relptr
= data_scnhdr
.s_scnptr
+ data_buffer_size
;
2434 filehdr
.f_symptr
= data_scnhdr
.s_relptr
+ data_scnhdr
.s_nreloc
* RELSZ
;
2436 bfd_coff_swap_filehdr_out (abfd
, &filehdr
, filehdr_ext
);
2437 bfd_bwrite (filehdr_ext
, FILHSZ
, abfd
);
2438 bfd_coff_swap_scnhdr_out (abfd
, &text_scnhdr
, &scnhdr_ext
[SCNHSZ
* 0]);
2439 bfd_coff_swap_scnhdr_out (abfd
, &data_scnhdr
, &scnhdr_ext
[SCNHSZ
* 1]);
2440 bfd_coff_swap_scnhdr_out (abfd
, &bss_scnhdr
, &scnhdr_ext
[SCNHSZ
* 2]);
2441 bfd_bwrite (scnhdr_ext
, 3 * SCNHSZ
, abfd
);
2442 bfd_bwrite (data_buffer
, data_buffer_size
, abfd
);
2443 bfd_bwrite (reloc_ext
, data_scnhdr
.s_nreloc
* RELSZ
, abfd
);
2444 bfd_bwrite (syment_ext
, filehdr
.f_nsyms
* SYMESZ
, abfd
);
2445 bfd_bwrite (string_table
, string_table_size
, abfd
);
2453 /* The typical dynamic reloc. */
2455 static reloc_howto_type xcoff64_dynamic_reloc
=
2456 HOWTO (0, /* type */
2458 4, /* size (0 = byte, 1 = short, 2 = long) */
2460 false, /* pc_relative */
2462 complain_overflow_bitfield
, /* complain_on_overflow */
2463 0, /* special_function */
2465 true, /* partial_inplace */
2466 MINUS_ONE
, /* src_mask */
2467 MINUS_ONE
, /* dst_mask */
2468 false); /* pcrel_offset */
2470 static unsigned long xcoff64_glink_code
[10] =
2472 0xe9820000, /* ld r12,0(r2) */
2473 0xf8410028, /* std r2,40(r1) */
2474 0xe80c0000, /* ld r0,0(r12) */
2475 0xe84c0008, /* ld r0,8(r12) */
2476 0x7c0903a6, /* mtctr r0 */
2477 0x4e800420, /* bctr */
2478 0x00000000, /* start of traceback table */
2479 0x000ca000, /* traceback table */
2480 0x00000000, /* traceback table */
2481 0x00000018, /* ??? */
2484 static const struct xcoff_backend_data_rec bfd_xcoff_backend_data
=
2486 { /* COFF backend, defined in libcoff.h. */
2487 _bfd_xcoff64_swap_aux_in
, /* _bfd_coff_swap_aux_in */
2488 _bfd_xcoff64_swap_sym_in
, /* _bfd_coff_swap_sym_in */
2489 _bfd_xcoff64_swap_lineno_in
, /* _bfd_coff_swap_lineno_in */
2490 _bfd_xcoff64_swap_aux_out
, /* _bfd_swap_aux_out */
2491 _bfd_xcoff64_swap_sym_out
, /* _bfd_swap_sym_out */
2492 _bfd_xcoff64_swap_lineno_out
, /* _bfd_swap_lineno_out */
2493 coff_swap_reloc_out
, /* _bfd_swap_reloc_out */
2494 coff_swap_filehdr_out
, /* _bfd_swap_filehdr_out */
2495 coff_swap_aouthdr_out
, /* _bfd_swap_aouthdr_out */
2496 coff_swap_scnhdr_out
, /* _bfd_swap_scnhdr_out */
2497 FILHSZ
, /* _bfd_filhsz */
2498 AOUTSZ
, /* _bfd_aoutsz */
2499 SCNHSZ
, /* _bfd_scnhsz */
2500 SYMESZ
, /* _bfd_symesz */
2501 AUXESZ
, /* _bfd_auxesz */
2502 RELSZ
, /* _bfd_relsz */
2503 LINESZ
, /* _bfd_linesz */
2504 FILNMLEN
, /* _bfd_filnmlen */
2505 true, /* _bfd_coff_long_filenames */
2506 false, /* _bfd_coff_long_section_names */
2507 (3), /* _bfd_coff_default_section_alignment_power */
2508 true, /* _bfd_coff_force_symnames_in_strings */
2509 4, /* _bfd_coff_debug_string_prefix_length */
2510 coff_swap_filehdr_in
, /* _bfd_coff_swap_filehdr_in */
2511 coff_swap_aouthdr_in
, /* _bfd_swap_aouthdr_in */
2512 coff_swap_scnhdr_in
, /* _bfd_swap_scnhdr_in */
2513 coff_swap_reloc_in
, /* _bfd_reloc_in */
2514 xcoff64_bad_format_hook
, /* _bfd_bad_format_hook */
2515 coff_set_arch_mach_hook
, /* _bfd_set_arch_mach_hook */
2516 coff_mkobject_hook
, /* _bfd_mkobject_hook */
2517 styp_to_sec_flags
, /* _bfd_syp_to_sec_flags */
2518 coff_set_alignment_hook
, /* _bfd_set_alignment_hook */
2519 coff_slurp_symbol_table
, /* _bfd_coff_slurp_symbol_table */
2520 symname_in_debug_hook
, /* _coff_symname_in_debug_hook */
2521 coff_pointerize_aux_hook
, /* _bfd_coff_pointerize_aux_hook */
2522 coff_print_aux
, /* bfd_coff_print_aux */
2523 dummy_reloc16_extra_cases
, /* _bfd_coff_reloc16_extra_cases */
2524 dummy_reloc16_estimate
, /* _bfd_coff_reloc16_estimate */
2525 NULL
, /* bfd_coff_sym_is_global */
2526 /* _bfd_coff_compute_section_file_positions */
2527 coff_compute_section_file_positions
,
2528 NULL
, /* _bfd_coff_start_final_link */
2529 xcoff64_ppc_relocate_section
, /* _bfd_coff_relocate_section */
2530 coff_rtype_to_howto
, /* _bfd_coff_rtype_to_howto */
2531 NULL
, /* _bfd_coff_addust_symndx */
2532 _bfd_generic_link_add_one_symbol
, /* _bfd_coff_add_one_symbol */
2533 coff_link_output_has_begun
, /* _bfd_coff_link_output_has_begun */
2534 coff_final_link_postscript
/* _bfd_coff_final_link_postscript */
2537 0x01EF, /* magic number */
2538 bfd_arch_powerpc
, /* architecture */
2539 bfd_mach_ppc_620
, /* machine */
2541 /* Function pointers to xcoff specific swap routines. */
2542 xcoff64_swap_ldhdr_in
, /* _xcoff_swap_ldhdr_in */
2543 xcoff64_swap_ldhdr_out
, /* _xcoff_swap_ldhdr_out */
2544 xcoff64_swap_ldsym_in
, /* _xcoff_swap_ldsym_in */
2545 xcoff64_swap_ldsym_out
, /* _xcoff_swap_ldsym_out */
2546 xcoff64_swap_ldrel_in
, /* _xcoff_swap_ldrel_in */
2547 xcoff64_swap_ldrel_out
, /* _xcoff_swap_ldrel_out */
2550 LDHDRSZ
, /* _xcoff_ldhdrsz */
2551 LDSYMSZ
, /* _xcoff_ldsymsz */
2552 LDRELSZ
, /* _xcoff_ldrelsz */
2553 24, /* _xcoff_function_descriptor_size */
2554 0, /* _xcoff_small_aout_header_size */
2557 2, /* _xcoff_ldhdr_version */
2559 /* xcoff vs xcoff64 putting symbol names. */
2560 _bfd_xcoff64_put_symbol_name
, /* _xcoff_put_symbol_name */
2561 _bfd_xcoff64_put_ldsymbol_name
, /* _xcoff_put_ldsymbol_name */
2563 /* Dynamic reloc howto. */
2564 &xcoff64_dynamic_reloc
,
2566 xcoff64_create_csect_from_smclas
,
2568 /* Lineno and reloc count overflow. */
2569 xcoff64_is_lineno_count_overflow
,
2570 xcoff64_is_reloc_count_overflow
,
2572 xcoff64_loader_symbol_offset
,
2573 xcoff64_loader_reloc_offset
,
2576 &xcoff64_glink_code
[0],
2577 40, /* _xcoff_glink_size */
2580 88, /* _xcoff_rtinit_size */
2581 xcoff64_generate_rtinit
, /* _xcoff_generate_rtinit */
2584 /* The transfer vector that leads the outside world to all of the above. */
2585 const bfd_target rs6000coff64_vec
=
2588 bfd_target_xcoff_flavour
,
2589 BFD_ENDIAN_BIG
, /* data byte order is big */
2590 BFD_ENDIAN_BIG
, /* header byte order is big */
2592 (HAS_RELOC
| EXEC_P
| /* object flags */
2593 HAS_LINENO
| HAS_DEBUG
| DYNAMIC
|
2594 HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
2596 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
), /* section flags */
2597 0, /* leading char */
2598 '/', /* ar_pad_char */
2599 15, /* ar_max_namelen??? FIXMEmgo */
2602 bfd_getb64
, /* bfd_getx64 */
2603 bfd_getb_signed_64
, /* bfd_getx_signed_64 */
2604 bfd_putb64
, /* bfd_putx64 */
2605 bfd_getb32
, /* bfd_getx32 */
2606 bfd_getb_signed_32
, /* bfd_getx_signed_32 */
2607 bfd_putb32
, /* bfd_putx32 */
2608 bfd_getb16
, /* bfd_getx16 */
2609 bfd_getb_signed_16
, /* bfd_getx_signed_16 */
2610 bfd_putb16
, /* bfd_putx16 */
2613 bfd_getb64
, /* bfd_h_getx64 */
2614 bfd_getb_signed_64
, /* bfd_h_getx_signed_64 */
2615 bfd_putb64
, /* bfd_h_putx64 */
2616 bfd_getb32
, /* bfd_h_getx32 */
2617 bfd_getb_signed_32
, /* bfd_h_getx_signed_32 */
2618 bfd_putb32
, /* bfd_h_putx32 */
2619 bfd_getb16
, /* bfd_h_getx16 */
2620 bfd_getb_signed_16
, /* bfd_h_getx_signed_16 */
2621 bfd_putb16
, /* bfd_h_putx16 */
2623 { /* bfd_check_format */
2630 { /* bfd_set_format */
2633 _bfd_generic_mkarchive
,
2637 {/* bfd_write_contents */
2639 xcoff64_write_object_contents
,
2640 _bfd_xcoff_write_archive_contents
,
2645 bfd_true
, /* _close_and_cleanup */
2646 bfd_true
, /* _bfd_free_cached_info */
2647 coff_new_section_hook
, /* _new_section_hook */
2648 _bfd_generic_get_section_contents
, /* _bfd_get_section_contents */
2649 /* _bfd_get_section_contents_in_window */
2650 _bfd_generic_get_section_contents_in_window
,
2653 _bfd_xcoff_copy_private_bfd_data
, /* _bfd_copy_private_bfd */
2654 /* _bfd_merge_private_bfd_data */
2655 ((boolean (*) (bfd
*, bfd
*)) bfd_true
),
2656 /* _bfd_copy_pivate_section_data */
2657 ((boolean (*) (bfd
*, asection
*, bfd
*, asection
*)) bfd_true
),
2658 /* _bfd_copy_private_symbol_data */
2659 ((boolean (*) (bfd
*, asymbol
*, bfd
*, asymbol
*)) bfd_true
),
2660 ((boolean (*) (bfd
*, flagword
)) bfd_true
), /* _bfd_set_private_flags */
2661 ((boolean (*) (bfd
*, void * )) bfd_true
), /* _bfd_print_private_bfd_data */
2664 coff_core_file_failing_command
, /* _core_file_failing_command */
2665 coff_core_file_failing_signal
, /* _core_file_failing_signal */
2666 /* _core_file_matches_executable_p */
2667 coff_core_file_matches_executable_p
,
2670 xcoff64_slurp_armap
, /* _slurp_armap */
2671 /* XCOFF archives do not have
2672 anything which corresponds to
2673 an extended name table. */
2674 bfd_false
, /* _slurp_extended_name_table */
2675 /* _construct_extended_name_table */
2676 ((boolean (*) (bfd
*, char **, bfd_size_type
*, const char **)) bfd_false
),
2677 bfd_dont_truncate_arname
, /* _truncate_arname */
2678 _bfd_xcoff_write_armap
, /* _write_armap */
2679 _bfd_xcoff_read_ar_hdr
, /* _read_ar_hdr */
2680 xcoff64_openr_next_archived_file
, /* _openr_next_archived_file */
2681 _bfd_generic_get_elt_at_index
, /* _get_elt_at_index */
2682 _bfd_xcoff_stat_arch_elt
, /* _generic_stat_arch_elt */
2683 /* XCOFF archives do not have
2685 bfd_true
, /* _update_armap_timestamp */
2688 coff_get_symtab_upper_bound
, /* _get_symtab_upper_bound */
2689 coff_get_symtab
, /* _get_symtab */
2690 coff_make_empty_symbol
, /* _make_empty_symbol */
2691 coff_print_symbol
, /* _print_symbol */
2692 coff_get_symbol_info
, /* _get_symbol_info */
2693 _bfd_xcoff_is_local_label_name
, /* _bfd_is_local_label_name */
2694 coff_get_lineno
, /* _get_lineno */
2695 coff_find_nearest_line
, /* _find_nearest_line */
2696 coff_bfd_make_debug_symbol
, /* _bfd_make_debug_symbol */
2697 _bfd_generic_read_minisymbols
, /* _read_minisymbols */
2698 _bfd_generic_minisymbol_to_symbol
, /* _minsymbol_to_symbol */
2701 coff_get_reloc_upper_bound
, /* _get_reloc_upper_bound */
2702 coff_canonicalize_reloc
, /* _cononicalize_reloc */
2703 xcoff64_reloc_type_lookup
, /* _bfd_reloc_type_lookup */
2706 coff_set_arch_mach
, /* _set_arch_mach */
2707 coff_set_section_contents
, /* _set_section_contents */
2710 xcoff64_sizeof_headers
, /* _sizeof_headers */
2711 /* _bfd_get_relocated_section_contents */
2712 bfd_generic_get_relocated_section_contents
,
2713 bfd_generic_relax_section
, /* _bfd_relax_section */
2714 _bfd_xcoff_bfd_link_hash_table_create
, /* _bfd_link_hash_table_create */
2715 _bfd_xcoff_bfd_link_add_symbols
, /* _bfd_link_add_symbols */
2716 _bfd_xcoff_bfd_final_link
, /* _bfd_filnal_link */
2717 _bfd_generic_link_split_section
, /* _bfd_link_split_section */
2718 bfd_generic_gc_sections
, /* _bfd_gc_sections */
2719 bfd_generic_merge_sections
, /* _bfd_merge_sections */
2722 /* _get_dynamic_symtab_upper_bound */
2723 _bfd_xcoff_get_dynamic_symtab_upper_bound
,
2724 _bfd_xcoff_canonicalize_dynamic_symtab
, /* _cononicalize_dynamic_symtab */
2725 _bfd_xcoff_get_dynamic_reloc_upper_bound
,/* _get_dynamic_reloc_upper_bound */
2726 _bfd_xcoff_canonicalize_dynamic_reloc
, /* _cononicalize_dynamic_reloc */
2728 /* Opposite endian version, none exists */
2732 (void *) &bfd_xcoff_backend_data
,
2735 extern const bfd_target
* xcoff64_core_p
PARAMS ((bfd
*));
2736 extern boolean xcoff64_core_file_matches_executable_p
PARAMS((bfd
*, bfd
*));
2737 extern char * xcoff64_core_file_failing_command
PARAMS ((bfd
*));
2738 extern int xcoff64_core_file_failing_signal
PARAMS ((bfd
*));
2741 static const struct xcoff_backend_data_rec bfd_xcoff_aix5_backend_data
=
2743 { /* COFF backend, defined in libcoff.h. */
2744 _bfd_xcoff64_swap_aux_in
, /* _bfd_coff_swap_aux_in */
2745 _bfd_xcoff64_swap_sym_in
, /* _bfd_coff_swap_sym_in */
2746 _bfd_xcoff64_swap_lineno_in
, /* _bfd_coff_swap_lineno_in */
2747 _bfd_xcoff64_swap_aux_out
, /* _bfd_swap_aux_out */
2748 _bfd_xcoff64_swap_sym_out
, /* _bfd_swap_sym_out */
2749 _bfd_xcoff64_swap_lineno_out
, /* _bfd_swap_lineno_out */
2750 coff_swap_reloc_out
, /* _bfd_swap_reloc_out */
2751 coff_swap_filehdr_out
, /* _bfd_swap_filehdr_out */
2752 coff_swap_aouthdr_out
, /* _bfd_swap_aouthdr_out */
2753 coff_swap_scnhdr_out
, /* _bfd_swap_scnhdr_out */
2754 FILHSZ
, /* _bfd_filhsz */
2755 AOUTSZ
, /* _bfd_aoutsz */
2756 SCNHSZ
, /* _bfd_scnhsz */
2757 SYMESZ
, /* _bfd_symesz */
2758 AUXESZ
, /* _bfd_auxesz */
2759 RELSZ
, /* _bfd_relsz */
2760 LINESZ
, /* _bfd_linesz */
2761 FILNMLEN
, /* _bfd_filnmlen */
2762 true, /* _bfd_coff_long_filenames */
2763 false, /* _bfd_coff_long_section_names */
2764 (3), /* _bfd_coff_default_section_alignment_power */
2765 true, /* _bfd_coff_force_symnames_in_strings */
2766 4, /* _bfd_coff_debug_string_prefix_length */
2767 coff_swap_filehdr_in
, /* _bfd_coff_swap_filehdr_in */
2768 coff_swap_aouthdr_in
, /* _bfd_swap_aouthdr_in */
2769 coff_swap_scnhdr_in
, /* _bfd_swap_scnhdr_in */
2770 coff_swap_reloc_in
, /* _bfd_reloc_in */
2771 xcoff64_bad_format_hook
, /* _bfd_bad_format_hook */
2772 coff_set_arch_mach_hook
, /* _bfd_set_arch_mach_hook */
2773 coff_mkobject_hook
, /* _bfd_mkobject_hook */
2774 styp_to_sec_flags
, /* _bfd_syp_to_sec_flags */
2775 coff_set_alignment_hook
, /* _bfd_set_alignment_hook */
2776 coff_slurp_symbol_table
, /* _bfd_coff_slurp_symbol_table */
2777 symname_in_debug_hook
, /* _coff_symname_in_debug_hook */
2778 coff_pointerize_aux_hook
, /* _bfd_coff_pointerize_aux_hook */
2779 coff_print_aux
, /* bfd_coff_print_aux */
2780 dummy_reloc16_extra_cases
, /* _bfd_coff_reloc16_extra_cases */
2781 dummy_reloc16_estimate
, /* _bfd_coff_reloc16_estimate */
2782 NULL
, /* bfd_coff_sym_is_global */
2783 /* _bfd_coff_compute_section_file_positions */
2784 coff_compute_section_file_positions
,
2785 NULL
, /* _bfd_coff_start_final_link */
2786 xcoff64_ppc_relocate_section
, /* _bfd_coff_relocate_section */
2787 coff_rtype_to_howto
, /* _bfd_coff_rtype_to_howto */
2788 NULL
, /* _bfd_coff_addust_symndx */
2789 _bfd_generic_link_add_one_symbol
, /* _bfd_coff_add_one_symbol */
2790 coff_link_output_has_begun
, /* _bfd_coff_link_output_has_begun */
2791 coff_final_link_postscript
/* _bfd_coff_final_link_postscript */
2794 U64_TOCMAGIC
, /* magic number */
2795 bfd_arch_powerpc
, /* architecture */
2796 bfd_mach_ppc_620
, /* machine */
2798 /* Function pointers to xcoff specific swap routines. */
2799 xcoff64_swap_ldhdr_in
, /* _xcoff_swap_ldhdr_in */
2800 xcoff64_swap_ldhdr_out
, /* _xcoff_swap_ldhdr_out */
2801 xcoff64_swap_ldsym_in
, /* _xcoff_swap_ldsym_in */
2802 xcoff64_swap_ldsym_out
, /* _xcoff_swap_ldsym_out */
2803 xcoff64_swap_ldrel_in
, /* _xcoff_swap_ldrel_in */
2804 xcoff64_swap_ldrel_out
, /* _xcoff_swap_ldrel_out */
2807 LDHDRSZ
, /* _xcoff_ldhdrsz */
2808 LDSYMSZ
, /* _xcoff_ldsymsz */
2809 LDRELSZ
, /* _xcoff_ldrelsz */
2810 24, /* _xcoff_function_descriptor_size */
2811 0, /* _xcoff_small_aout_header_size */
2813 2, /* _xcoff_ldhdr_version */
2815 _bfd_xcoff64_put_symbol_name
, /* _xcoff_put_symbol_name */
2816 _bfd_xcoff64_put_ldsymbol_name
, /* _xcoff_put_ldsymbol_name */
2818 /* Dynamic reloc howto. */
2819 &xcoff64_dynamic_reloc
,
2820 xcoff64_create_csect_from_smclas
,
2822 /* Lineno and reloc count overflow. */
2823 xcoff64_is_lineno_count_overflow
,
2824 xcoff64_is_reloc_count_overflow
,
2826 xcoff64_loader_symbol_offset
,
2827 xcoff64_loader_reloc_offset
,
2830 &xcoff64_glink_code
[0],
2831 40, /* _xcoff_glink_size */
2834 88, /* _xcoff_rtinit_size */
2835 xcoff64_generate_rtinit
, /* _xcoff_generate_rtinit */
2838 /* The transfer vector that leads the outside world to all of the above. */
2839 const bfd_target aix5coff64_vec
=
2841 "aix5coff64-rs6000",
2842 bfd_target_xcoff_flavour
,
2843 BFD_ENDIAN_BIG
, /* data byte order is big */
2844 BFD_ENDIAN_BIG
, /* header byte order is big */
2846 (HAS_RELOC
| EXEC_P
| /* object flags */
2847 HAS_LINENO
| HAS_DEBUG
| DYNAMIC
|
2848 HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
2850 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
), /* section flags */
2851 0, /* leading char */
2852 '/', /* ar_pad_char */
2853 15, /* ar_max_namelen??? FIXMEmgo */
2856 bfd_getb64
, /* bfd_getx64 */
2857 bfd_getb_signed_64
, /* bfd_getx_signed_64 */
2858 bfd_putb64
, /* bfd_putx64 */
2859 bfd_getb32
, /* bfd_getx32 */
2860 bfd_getb_signed_32
, /* bfd_getx_signed_32 */
2861 bfd_putb32
, /* bfd_putx32 */
2862 bfd_getb16
, /* bfd_getx16 */
2863 bfd_getb_signed_16
, /* bfd_getx_signed_16 */
2864 bfd_putb16
, /* bfd_putx16 */
2867 bfd_getb64
, /* bfd_h_getx64 */
2868 bfd_getb_signed_64
, /* bfd_h_getx_signed_64 */
2869 bfd_putb64
, /* bfd_h_putx64 */
2870 bfd_getb32
, /* bfd_h_getx32 */
2871 bfd_getb_signed_32
, /* bfd_h_getx_signed_32 */
2872 bfd_putb32
, /* bfd_h_putx32 */
2873 bfd_getb16
, /* bfd_h_getx16 */
2874 bfd_getb_signed_16
, /* bfd_h_getx_signed_16 */
2875 bfd_putb16
, /* bfd_h_putx16 */
2877 { /* bfd_check_format */
2884 { /* bfd_set_format */
2887 _bfd_generic_mkarchive
,
2891 {/* bfd_write_contents */
2893 xcoff64_write_object_contents
,
2894 _bfd_xcoff_write_archive_contents
,
2899 bfd_true
, /* _close_and_cleanup */
2900 bfd_true
, /* _bfd_free_cached_info */
2901 coff_new_section_hook
, /* _new_section_hook */
2902 _bfd_generic_get_section_contents
, /* _bfd_get_section_contents */
2903 /* _bfd_get_section_contents_in_window */
2904 _bfd_generic_get_section_contents_in_window
,
2907 _bfd_xcoff_copy_private_bfd_data
, /* _bfd_copy_private_bfd */
2908 /* _bfd_merge_private_bfd_data */
2909 ((boolean (*) (bfd
*, bfd
*)) bfd_true
),
2910 /* _bfd_copy_pivate_section_data */
2911 ((boolean (*) (bfd
*, asection
*, bfd
*, asection
*)) bfd_true
),
2912 /* _bfd_copy_private_symbol_data */
2913 ((boolean (*) (bfd
*, asymbol
*, bfd
*, asymbol
*)) bfd_true
),
2914 ((boolean (*) (bfd
*, flagword
)) bfd_true
), /* _bfd_set_private_flags */
2915 ((boolean (*) (bfd
*, void * )) bfd_true
), /* _bfd_print_private_bfd_data */
2918 xcoff64_core_file_failing_command
, /* _core_file_failing_command */
2919 xcoff64_core_file_failing_signal
, /* _core_file_failing_signal */
2920 xcoff64_core_file_matches_executable_p
, /* _core_file_matches_executable_p */
2923 xcoff64_slurp_armap
, /* _slurp_armap */
2924 /* XCOFF archives do not have
2925 anything which corresponds to
2926 an extended name table. */
2927 bfd_false
, /* _slurp_extended_name_table */
2928 /* _construct_extended_name_table */
2929 ((boolean (*) (bfd
*, char **, bfd_size_type
*, const char **)) bfd_false
),
2930 bfd_dont_truncate_arname
, /* _truncate_arname */
2931 _bfd_xcoff_write_armap
, /* _write_armap */
2932 _bfd_xcoff_read_ar_hdr
, /* _read_ar_hdr */
2933 xcoff64_openr_next_archived_file
, /* _openr_next_archived_file */
2934 _bfd_generic_get_elt_at_index
, /* _get_elt_at_index */
2935 _bfd_xcoff_stat_arch_elt
, /* _generic_stat_arch_elt */
2936 /* XCOFF archives do not have
2938 bfd_true
, /* _update_armap_timestamp */
2941 coff_get_symtab_upper_bound
, /* _get_symtab_upper_bound */
2942 coff_get_symtab
, /* _get_symtab */
2943 coff_make_empty_symbol
, /* _make_empty_symbol */
2944 coff_print_symbol
, /* _print_symbol */
2945 coff_get_symbol_info
, /* _get_symbol_info */
2946 _bfd_xcoff_is_local_label_name
, /* _bfd_is_local_label_name */
2947 coff_get_lineno
, /* _get_lineno */
2948 coff_find_nearest_line
, /* _find_nearest_line */
2949 coff_bfd_make_debug_symbol
, /* _bfd_make_debug_symbol */
2950 _bfd_generic_read_minisymbols
, /* _read_minisymbols */
2951 _bfd_generic_minisymbol_to_symbol
, /* _minsymbol_to_symbol */
2954 coff_get_reloc_upper_bound
, /* _get_reloc_upper_bound */
2955 coff_canonicalize_reloc
, /* _cononicalize_reloc */
2956 xcoff64_reloc_type_lookup
, /* _bfd_reloc_type_lookup */
2959 coff_set_arch_mach
, /* _set_arch_mach */
2960 coff_set_section_contents
, /* _set_section_contents */
2963 xcoff64_sizeof_headers
, /* _sizeof_headers */
2964 /* _bfd_get_relocated_section_contents */
2965 bfd_generic_get_relocated_section_contents
,
2966 bfd_generic_relax_section
, /* _bfd_relax_section */
2967 _bfd_xcoff_bfd_link_hash_table_create
, /* _bfd_link_hash_table_create */
2968 _bfd_xcoff_bfd_link_add_symbols
, /* _bfd_link_add_symbols */
2969 _bfd_xcoff_bfd_final_link
, /* _bfd_filnal_link */
2970 _bfd_generic_link_split_section
, /* _bfd_link_split_section */
2971 bfd_generic_gc_sections
, /* _bfd_gc_sections */
2972 bfd_generic_merge_sections
, /* _bfd_merge_sections */
2975 /* _get_dynamic_symtab_upper_bound */
2976 _bfd_xcoff_get_dynamic_symtab_upper_bound
,
2977 _bfd_xcoff_canonicalize_dynamic_symtab
, /* _cononicalize_dynamic_symtab */
2978 _bfd_xcoff_get_dynamic_reloc_upper_bound
,/* _get_dynamic_reloc_upper_bound */
2979 _bfd_xcoff_canonicalize_dynamic_reloc
, /* _cononicalize_dynamic_reloc */
2981 /* Opposite endian version, none exists. */
2985 (void *) & bfd_xcoff_aix5_backend_data
,