projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Switch sources over to use the GPL version 3
[deliverable/binutils-gdb.git] / bfd / coff-rs6000.c
CommitLineData
252b5132 1/* BFD back-end for IBM RS/6000 "XCOFF" files.
157090f7 2 Copyright 1990-1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
5f771d47 3 Free Software Foundation, Inc.
2ce18a16 4 Written by Metin G. Ozisik, Mimi Phuong-Thao Vo, and John Gilmore.
252b5132
RH		 5 Archive support from Damon A. Permezel.
6 Contributed by IBM Corporation and Cygnus Support.
7
cd123cb7 8 This file is part of BFD, the Binary File Descriptor library.
252b5132 9
cd123cb7
NC		 10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3 of the License, or
13 (at your option) any later version.
252b5132 14
cd123cb7
NC		 15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
252b5132 19
cd123cb7
NC		 20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
23 MA 02110-1301, USA. */
252b5132 24
252b5132 25#include "sysdep.h"
3db64b00 26#include "bfd.h"
beb1bf64 27#include "bfdlink.h"
252b5132
RH		 28#include "libbfd.h"
29#include "coff/internal.h"
beb1bf64 30#include "coff/xcoff.h"
252b5132
RH		 31#include "coff/rs6000.h"
32#include "libcoff.h"
beb1bf64
TR		 33#include "libxcoff.h"
34
b34976b6
AM		 35extern bfd_boolean _bfd_xcoff_mkobject
36 PARAMS ((bfd *));
37extern bfd_boolean _bfd_xcoff_copy_private_bfd_data
38 PARAMS ((bfd *, bfd *));
39extern bfd_boolean _bfd_xcoff_is_local_label_name
40 PARAMS ((bfd *, const char *));
beb1bf64
TR		 41extern reloc_howto_type *_bfd_xcoff_reloc_type_lookup
42 PARAMS ((bfd *, bfd_reloc_code_real_type));
b34976b6
AM		 43extern bfd_boolean _bfd_xcoff_slurp_armap
44 PARAMS ((bfd *));
45extern const bfd_target *_bfd_xcoff_archive_p
46 PARAMS ((bfd *));
47extern PTR _bfd_xcoff_read_ar_hdr
48 PARAMS ((bfd *));
49extern bfd *_bfd_xcoff_openr_next_archived_file
50 PARAMS ((bfd *, bfd *));
51extern int _bfd_xcoff_stat_arch_elt
52 PARAMS ((bfd *, struct stat *));
53extern bfd_boolean _bfd_xcoff_write_armap
beb1bf64 54 PARAMS ((bfd *, unsigned int, struct orl *, unsigned int, int));
b34976b6
AM		 55extern bfd_boolean _bfd_xcoff_write_archive_contents
56 PARAMS ((bfd *));
57extern int _bfd_xcoff_sizeof_headers
a6b96beb 58 PARAMS ((bfd *, struct bfd_link_info *));
b34976b6
AM		 59extern void _bfd_xcoff_swap_sym_in
60 PARAMS ((bfd *, PTR, PTR));
61extern unsigned int _bfd_xcoff_swap_sym_out
62 PARAMS ((bfd *, PTR, PTR));
63extern void _bfd_xcoff_swap_aux_in
64 PARAMS ((bfd *, PTR, int, int, int, int, PTR));
65extern unsigned int _bfd_xcoff_swap_aux_out
66 PARAMS ((bfd *, PTR, int, int, int, int, PTR));
67static void xcoff_swap_reloc_in
68 PARAMS ((bfd *, PTR, PTR));
69static unsigned int xcoff_swap_reloc_out
70 PARAMS ((bfd *, PTR, PTR));
beb1bf64 71
59862849 72/* Forward declare xcoff_rtype2howto for coffcode.h macro. */
b34976b6
AM		 73void xcoff_rtype2howto
74 PARAMS ((arelent *, struct internal_reloc *));
beb1bf64 75
f4ffd778 76/* coffcode.h needs these to be defined. */
beb1bf64
TR		 77#define RS6000COFF_C 1
78
79#define SELECT_RELOC(internal, howto) \
80 { \
81 internal.r_type = howto->type; \
82 internal.r_size = \
83 ((howto->complain_on_overflow == complain_overflow_signed \
84 ? 0x80 \
85 : 0) \
86 | (howto->bitsize - 1)); \
87 }
88
89#define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
90#define COFF_LONG_FILENAMES
91#define NO_COFF_SYMBOLS
59862849 92#define RTYPE2HOWTO(cache_ptr, dst) xcoff_rtype2howto (cache_ptr, dst)
dc810e39
AM		 93#define coff_mkobject _bfd_xcoff_mkobject
94#define coff_bfd_copy_private_bfd_data _bfd_xcoff_copy_private_bfd_data
95#define coff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
96#define coff_bfd_reloc_type_lookup _bfd_xcoff_reloc_type_lookup
157090f7 97#define coff_bfd_reloc_name_lookup _bfd_xcoff_reloc_name_lookup
b55039f4 98#ifdef AIX_CORE
b34976b6
AM		 99extern const bfd_target * rs6000coff_core_p
100 PARAMS ((bfd *abfd));
101extern bfd_boolean rs6000coff_core_file_matches_executable_p
69f284c7 102 PARAMS ((bfd *cbfd, bfd *ebfd));
b34976b6
AM		 103extern char *rs6000coff_core_file_failing_command
104 PARAMS ((bfd *abfd));
105extern int rs6000coff_core_file_failing_signal
106 PARAMS ((bfd *abfd));
beb1bf64 107#define CORE_FILE_P rs6000coff_core_p
b55039f4
L		 108#define coff_core_file_failing_command \
109 rs6000coff_core_file_failing_command
110#define coff_core_file_failing_signal \
111 rs6000coff_core_file_failing_signal
112#define coff_core_file_matches_executable_p \
113 rs6000coff_core_file_matches_executable_p
114#else
115#define CORE_FILE_P _bfd_dummy_target
116#define coff_core_file_failing_command \
117 _bfd_nocore_core_file_failing_command
118#define coff_core_file_failing_signal \
119 _bfd_nocore_core_file_failing_signal
120#define coff_core_file_matches_executable_p \
121 _bfd_nocore_core_file_matches_executable_p
122#endif
beb1bf64
TR		 123#define coff_SWAP_sym_in _bfd_xcoff_swap_sym_in
124#define coff_SWAP_sym_out _bfd_xcoff_swap_sym_out
125#define coff_SWAP_aux_in _bfd_xcoff_swap_aux_in
126#define coff_SWAP_aux_out _bfd_xcoff_swap_aux_out
59862849
TR		 127#define coff_swap_reloc_in xcoff_swap_reloc_in
128#define coff_swap_reloc_out xcoff_swap_reloc_out
129#define NO_COFF_RELOCS
beb1bf64
TR		 130
131#include "coffcode.h"
14958a43 132
252b5132
RH		 133/* The main body of code is in coffcode.h. */
134
b34976b6
AM		 135static const char *normalize_filename
136 PARAMS ((bfd *));
137static bfd_boolean xcoff_write_armap_old
a7b97311 138 PARAMS ((bfd *, unsigned int, struct orl *, unsigned int, int));
b34976b6 139static bfd_boolean xcoff_write_armap_big
a7b97311 140 PARAMS ((bfd *, unsigned int, struct orl *, unsigned int, int));
b34976b6
AM		 141static bfd_boolean xcoff_write_archive_contents_old
142 PARAMS ((bfd *));
143static bfd_boolean xcoff_write_archive_contents_big
144 PARAMS ((bfd *));
a7b97311 145static void xcoff_swap_ldhdr_in
814fa6ab 146 PARAMS ((bfd *, const PTR, struct internal_ldhdr *));
a7b97311 147static void xcoff_swap_ldhdr_out
814fa6ab 148 PARAMS ((bfd *, const struct internal_ldhdr *, PTR));
a7b97311 149static void xcoff_swap_ldsym_in
814fa6ab 150 PARAMS ((bfd *, const PTR, struct internal_ldsym *));
a7b97311 151static void xcoff_swap_ldsym_out
814fa6ab 152 PARAMS ((bfd *, const struct internal_ldsym *, PTR));
a7b97311 153static void xcoff_swap_ldrel_in
814fa6ab 154 PARAMS ((bfd *, const PTR, struct internal_ldrel *));
a7b97311 155static void xcoff_swap_ldrel_out
814fa6ab 156 PARAMS ((bfd *, const struct internal_ldrel *, PTR));
b34976b6 157static bfd_boolean xcoff_ppc_relocate_section
a7b97311
AM		 158 PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
159 struct internal_reloc *, struct internal_syment *, asection **));
b34976b6 160static bfd_boolean _bfd_xcoff_put_ldsymbol_name
a7b97311
AM		 161 PARAMS ((bfd *, struct xcoff_loader_info *, struct internal_ldsym *,
162 const char *));
163static asection *xcoff_create_csect_from_smclas
814fa6ab 164 PARAMS ((bfd *, union internal_auxent *, const char *));
b34976b6
AM		 165static bfd_boolean xcoff_is_lineno_count_overflow
166 PARAMS ((bfd *, bfd_vma));
167static bfd_boolean xcoff_is_reloc_count_overflow
168 PARAMS ((bfd *, bfd_vma));
a7b97311
AM		 169static bfd_vma xcoff_loader_symbol_offset
170 PARAMS ((bfd *, struct internal_ldhdr *));
171static bfd_vma xcoff_loader_reloc_offset
172 PARAMS ((bfd *, struct internal_ldhdr *));
b34976b6
AM		 173static bfd_boolean xcoff_generate_rtinit
174 PARAMS ((bfd *, const char *, const char *, bfd_boolean));
175static bfd_boolean do_pad
176 PARAMS ((bfd *, unsigned int));
177static bfd_boolean do_copy
178 PARAMS ((bfd *, bfd *));
179static bfd_boolean do_shared_object_padding
9dadfa79 180 PARAMS ((bfd *, bfd *, file_ptr *, int));
14958a43 181
dbe341c6 182/* Relocation functions */
b34976b6
AM		 183static bfd_boolean xcoff_reloc_type_br
184 PARAMS ((XCOFF_RELOC_FUNCTION_ARGS));
dbe341c6 185
b34976b6 186static bfd_boolean xcoff_complain_overflow_dont_func
dbe341c6 187 PARAMS ((XCOFF_COMPLAIN_FUNCTION_ARGS));
b34976b6 188static bfd_boolean xcoff_complain_overflow_bitfield_func
dbe341c6 189 PARAMS ((XCOFF_COMPLAIN_FUNCTION_ARGS));
b34976b6 190static bfd_boolean xcoff_complain_overflow_signed_func
dbe341c6 191 PARAMS ((XCOFF_COMPLAIN_FUNCTION_ARGS));
b34976b6 192static bfd_boolean xcoff_complain_overflow_unsigned_func
dbe341c6
TR		 193 PARAMS ((XCOFF_COMPLAIN_FUNCTION_ARGS));
194
b34976b6 195bfd_boolean (*xcoff_calculate_relocation[XCOFF_MAX_CALCULATE_RELOCATION])
cf9ab45b 196 PARAMS ((XCOFF_RELOC_FUNCTION_ARGS)) =
dbe341c6 197{
cf9ab45b
AM		 198 xcoff_reloc_type_pos, /* R_POS (0x00) */
199 xcoff_reloc_type_neg, /* R_NEG (0x01) */
200 xcoff_reloc_type_rel, /* R_REL (0x02) */
201 xcoff_reloc_type_toc, /* R_TOC (0x03) */
dbe341c6 202 xcoff_reloc_type_fail, /* R_RTB (0x04) */
cf9ab45b
AM		 203 xcoff_reloc_type_toc, /* R_GL (0x05) */
204 xcoff_reloc_type_toc, /* R_TCL (0x06) */
205 xcoff_reloc_type_fail, /* (0x07) */
206 xcoff_reloc_type_ba, /* R_BA (0x08) */
207 xcoff_reloc_type_fail, /* (0x09) */
208 xcoff_reloc_type_br, /* R_BR (0x0a) */
209 xcoff_reloc_type_fail, /* (0x0b) */
210 xcoff_reloc_type_pos, /* R_RL (0x0c) */
211 xcoff_reloc_type_pos, /* R_RLA (0x0d) */
212 xcoff_reloc_type_fail, /* (0x0e) */
dbe341c6 213 xcoff_reloc_type_noop, /* R_REF (0x0f) */
cf9ab45b
AM		 214 xcoff_reloc_type_fail, /* (0x10) */
215 xcoff_reloc_type_fail, /* (0x11) */
216 xcoff_reloc_type_toc, /* R_TRL (0x12) */
217 xcoff_reloc_type_toc, /* R_TRLA (0x13) */
dbe341c6
TR		 218 xcoff_reloc_type_fail, /* R_RRTBI (0x14) */
219 xcoff_reloc_type_fail, /* R_RRTBA (0x15) */
cf9ab45b 220 xcoff_reloc_type_ba, /* R_CAI (0x16) */
dbe341c6 221 xcoff_reloc_type_crel, /* R_CREL (0x17) */
cf9ab45b
AM		 222 xcoff_reloc_type_ba, /* R_RBA (0x18) */
223 xcoff_reloc_type_ba, /* R_RBAC (0x19) */
224 xcoff_reloc_type_br, /* R_RBR (0x1a) */
225 xcoff_reloc_type_ba, /* R_RBRC (0x1b) */
dbe341c6
TR		 226};
227
b34976b6 228bfd_boolean (*xcoff_complain_overflow[XCOFF_MAX_COMPLAIN_OVERFLOW])
cf9ab45b 229 PARAMS ((XCOFF_COMPLAIN_FUNCTION_ARGS)) =
dbe341c6
TR		 230{
231 xcoff_complain_overflow_dont_func,
232 xcoff_complain_overflow_bitfield_func,
233 xcoff_complain_overflow_signed_func,
234 xcoff_complain_overflow_unsigned_func,
235};
236
252b5132
RH		 237/* We use our own tdata type. Its first field is the COFF tdata type,
238 so the COFF routines are compatible. */
239
b34976b6 240bfd_boolean
7f6d05e8 241_bfd_xcoff_mkobject (abfd)
252b5132
RH		 242 bfd *abfd;
243{
244 coff_data_type *coff;
dc810e39 245 bfd_size_type amt = sizeof (struct xcoff_tdata);
252b5132 246
dc810e39 247 abfd->tdata.xcoff_obj_data = (struct xcoff_tdata *) bfd_zalloc (abfd, amt);
252b5132 248 if (abfd->tdata.xcoff_obj_data == NULL)
b34976b6 249 return FALSE;
252b5132
RH		 250 coff = coff_data (abfd);
251 coff->symbols = (coff_symbol_type *) NULL;
252 coff->conversion_table = (unsigned int *) NULL;
253 coff->raw_syments = (struct coff_ptr_struct *) NULL;
254 coff->relocbase = 0;
255
256 xcoff_data (abfd)->modtype = ('1' << 8) | 'L';
257
258 /* We set cputype to -1 to indicate that it has not been
259 initialized. */
260 xcoff_data (abfd)->cputype = -1;
261
262 xcoff_data (abfd)->csects = NULL;
263 xcoff_data (abfd)->debug_indices = NULL;
264
beb1bf64 265 /* text section alignment is different than the default */
f3813499 266 bfd_xcoff_text_align_power (abfd) = 2;
beb1bf64 267
b34976b6 268 return TRUE;
252b5132
RH		 269}
270
271/* Copy XCOFF data from one BFD to another. */
272
b34976b6 273bfd_boolean
7f6d05e8 274_bfd_xcoff_copy_private_bfd_data (ibfd, obfd)
252b5132
RH		 275 bfd *ibfd;
276 bfd *obfd;
277{
278 struct xcoff_tdata *ix, *ox;
279 asection *sec;
280
281 if (ibfd->xvec != obfd->xvec)
b34976b6 282 return TRUE;
252b5132
RH		 283 ix = xcoff_data (ibfd);
284 ox = xcoff_data (obfd);
285 ox->full_aouthdr = ix->full_aouthdr;
286 ox->toc = ix->toc;
287 if (ix->sntoc == 0)
288 ox->sntoc = 0;
289 else
290 {
291 sec = coff_section_from_bfd_index (ibfd, ix->sntoc);
292 if (sec == NULL)
293 ox->sntoc = 0;
294 else
295 ox->sntoc = sec->output_section->target_index;
296 }
297 if (ix->snentry == 0)
298 ox->snentry = 0;
299 else
300 {
301 sec = coff_section_from_bfd_index (ibfd, ix->snentry);
302 if (sec == NULL)
303 ox->snentry = 0;
304 else
305 ox->snentry = sec->output_section->target_index;
306 }
f3813499
TR		 307 bfd_xcoff_text_align_power (obfd) = bfd_xcoff_text_align_power (ibfd);
308 bfd_xcoff_data_align_power (obfd) = bfd_xcoff_data_align_power (ibfd);
252b5132
RH		 309 ox->modtype = ix->modtype;
310 ox->cputype = ix->cputype;
311 ox->maxdata = ix->maxdata;
312 ox->maxstack = ix->maxstack;
b34976b6 313 return TRUE;
252b5132
RH		 314}
315
316/* I don't think XCOFF really has a notion of local labels based on
317 name. This will mean that ld -X doesn't actually strip anything.
318 The AIX native linker does not have a -X option, and it ignores the
319 -x option. */
320
b34976b6 321bfd_boolean
7f6d05e8 322_bfd_xcoff_is_local_label_name (abfd, name)
5f771d47
ILT		 323 bfd *abfd ATTRIBUTE_UNUSED;
324 const char *name ATTRIBUTE_UNUSED;
252b5132 325{
b34976b6 326 return FALSE;
252b5132 327}
7f6d05e8 328\f
14958a43
CP		 329void
330_bfd_xcoff_swap_sym_in (abfd, ext1, in1)
cf9ab45b 331 bfd *abfd;
7f6d05e8
CP		 332 PTR ext1;
333 PTR in1;
334{
335 SYMENT *ext = (SYMENT *)ext1;
f4ffd778 336 struct internal_syment * in = (struct internal_syment *)in1;
7f6d05e8 337
f4ffd778
NC		 338 if (ext->e.e_name[0] != 0)
339 {
cf9ab45b 340 memcpy (in->_n._n_name, ext->e.e_name, SYMNMLEN);
f4ffd778
NC		 341 }
342 else
343 {
344 in->_n._n_n._n_zeroes = 0;
dc810e39 345 in->_n._n_n._n_offset = H_GET_32 (abfd, ext->e.e.e_offset);
f4ffd778 346 }
7f6d05e8 347
dc810e39
AM		 348 in->n_value = H_GET_32 (abfd, ext->e_value);
349 in->n_scnum = H_GET_16 (abfd, ext->e_scnum);
350 in->n_type = H_GET_16 (abfd, ext->e_type);
351 in->n_sclass = H_GET_8 (abfd, ext->e_sclass);
352 in->n_numaux = H_GET_8 (abfd, ext->e_numaux);
7f6d05e8
CP		 353}
354
14958a43
CP		 355unsigned int
356_bfd_xcoff_swap_sym_out (abfd, inp, extp)
cf9ab45b
AM		 357 bfd *abfd;
358 PTR inp;
359 PTR extp;
7f6d05e8
CP		 360{
361 struct internal_syment *in = (struct internal_syment *)inp;
362 SYMENT *ext =(SYMENT *)extp;
363
f4ffd778
NC		 364 if (in->_n._n_name[0] != 0)
365 {
cf9ab45b 366 memcpy (ext->e.e_name, in->_n._n_name, SYMNMLEN);
f4ffd778
NC		 367 }
368 else
369 {
dc810e39
AM		 370 H_PUT_32 (abfd, 0, ext->e.e.e_zeroes);
371 H_PUT_32 (abfd, in->_n._n_n._n_offset, ext->e.e.e_offset);
f4ffd778 372 }
7f6d05e8 373
dc810e39
AM		 374 H_PUT_32 (abfd, in->n_value, ext->e_value);
375 H_PUT_16 (abfd, in->n_scnum, ext->e_scnum);
376 H_PUT_16 (abfd, in->n_type, ext->e_type);
377 H_PUT_8 (abfd, in->n_sclass, ext->e_sclass);
378 H_PUT_8 (abfd, in->n_numaux, ext->e_numaux);
7f6d05e8
CP		 379 return bfd_coff_symesz (abfd);
380}
381
14958a43
CP		 382void
383_bfd_xcoff_swap_aux_in (abfd, ext1, type, class, indx, numaux, in1)
cf9ab45b
AM		 384 bfd *abfd;
385 PTR ext1;
386 int type;
387 int class;
388 int indx;
389 int numaux;
390 PTR in1;
7f6d05e8 391{
f4ffd778 392 AUXENT * ext = (AUXENT *)ext1;
7f6d05e8
CP		 393 union internal_auxent *in = (union internal_auxent *)in1;
394
f4ffd778
NC		 395 switch (class)
396 {
7f6d05e8 397 case C_FILE:
f4ffd778
NC		 398 if (ext->x_file.x_fname[0] == 0)
399 {
7f6d05e8 400 in->x_file.x_n.x_zeroes = 0;
dc810e39
AM		 401 in->x_file.x_n.x_offset =
402 H_GET_32 (abfd, ext->x_file.x_n.x_offset);
f4ffd778
NC		 403 }
404 else
405 {
406 if (numaux > 1)
407 {
408 if (indx == 0)
409 memcpy (in->x_file.x_fname, ext->x_file.x_fname,
410 numaux * sizeof (AUXENT));
411 }
412 else
413 {
414 memcpy (in->x_file.x_fname, ext->x_file.x_fname, FILNMLEN);
415 }
416 }
7f6d05e8
CP		 417 goto end;
418
419 /* RS/6000 "csect" auxents */
420 case C_EXT:
421 case C_HIDEXT:
422 if (indx + 1 == numaux)
423 {
dc810e39
AM		 424 in->x_csect.x_scnlen.l = H_GET_32 (abfd, ext->x_csect.x_scnlen);
425 in->x_csect.x_parmhash = H_GET_32 (abfd, ext->x_csect.x_parmhash);
426 in->x_csect.x_snhash = H_GET_16 (abfd, ext->x_csect.x_snhash);
7f6d05e8
CP		 427 /* We don't have to hack bitfields in x_smtyp because it's
428 defined by shifts-and-ands, which are equivalent on all
429 byte orders. */
dc810e39
AM		 430 in->x_csect.x_smtyp = H_GET_8 (abfd, ext->x_csect.x_smtyp);
431 in->x_csect.x_smclas = H_GET_8 (abfd, ext->x_csect.x_smclas);
432 in->x_csect.x_stab = H_GET_32 (abfd, ext->x_csect.x_stab);
433 in->x_csect.x_snstab = H_GET_16 (abfd, ext->x_csect.x_snstab);
7f6d05e8
CP		 434 goto end;
435 }
436 break;
437
438 case C_STAT:
439 case C_LEAFSTAT:
440 case C_HIDDEN:
f4ffd778
NC		 441 if (type == T_NULL)
442 {
dc810e39
AM		 443 in->x_scn.x_scnlen = H_GET_32 (abfd, ext->x_scn.x_scnlen);
444 in->x_scn.x_nreloc = H_GET_16 (abfd, ext->x_scn.x_nreloc);
445 in->x_scn.x_nlinno = H_GET_16 (abfd, ext->x_scn.x_nlinno);
7f6d05e8 446 /* PE defines some extra fields; we zero them out for
cf9ab45b 447 safety. */
7f6d05e8
CP		 448 in->x_scn.x_checksum = 0;
449 in->x_scn.x_associated = 0;
450 in->x_scn.x_comdat = 0;
451
452 goto end;
453 }
454 break;
455 }
456
dc810e39
AM		 457 in->x_sym.x_tagndx.l = H_GET_32 (abfd, ext->x_sym.x_tagndx);
458 in->x_sym.x_tvndx = H_GET_16 (abfd, ext->x_sym.x_tvndx);
7f6d05e8
CP		 459
460 if (class == C_BLOCK || class == C_FCN || ISFCN (type) || ISTAG (class))
461 {
dc810e39
AM		 462 in->x_sym.x_fcnary.x_fcn.x_lnnoptr =
463 H_GET_32 (abfd, ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
464 in->x_sym.x_fcnary.x_fcn.x_endndx.l =
465 H_GET_32 (abfd, ext->x_sym.x_fcnary.x_fcn.x_endndx);
7f6d05e8
CP		 466 }
467 else
468 {
469 in->x_sym.x_fcnary.x_ary.x_dimen[0] =
dc810e39 470 H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[0]);
7f6d05e8 471 in->x_sym.x_fcnary.x_ary.x_dimen[1] =
dc810e39 472 H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[1]);
7f6d05e8 473 in->x_sym.x_fcnary.x_ary.x_dimen[2] =
dc810e39 474 H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[2]);
7f6d05e8 475 in->x_sym.x_fcnary.x_ary.x_dimen[3] =
dc810e39 476 H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[3]);
7f6d05e8 477 }
7f6d05e8 478
f4ffd778
NC		 479 if (ISFCN (type))
480 {
dc810e39 481 in->x_sym.x_misc.x_fsize = H_GET_32 (abfd, ext->x_sym.x_misc.x_fsize);
f4ffd778
NC		 482 }
483 else
484 {
dc810e39
AM		 485 in->x_sym.x_misc.x_lnsz.x_lnno =
486 H_GET_16 (abfd, ext->x_sym.x_misc.x_lnsz.x_lnno);
487 in->x_sym.x_misc.x_lnsz.x_size =
488 H_GET_16 (abfd, ext->x_sym.x_misc.x_lnsz.x_size);
f4ffd778 489 }
7f6d05e8 490
f4ffd778
NC		 491 end: ;
492 /* The semicolon is because MSVC doesn't like labels at
493 end of block. */
7f6d05e8
CP		 494}
495
beb1bf64 496
b34976b6
AM		 497unsigned int _bfd_xcoff_swap_aux_out
498 PARAMS ((bfd *, PTR, int, int, int, int, PTR));
beb1bf64 499
14958a43
CP		 500unsigned int
501_bfd_xcoff_swap_aux_out (abfd, inp, type, class, indx, numaux, extp)
917583ad
NC		 502 bfd * abfd;
503 PTR inp;
7f6d05e8
CP		 504 int type;
505 int class;
506 int indx ATTRIBUTE_UNUSED;
507 int numaux ATTRIBUTE_UNUSED;
917583ad 508 PTR extp;
7f6d05e8
CP		 509{
510 union internal_auxent *in = (union internal_auxent *)inp;
511 AUXENT *ext = (AUXENT *)extp;
512
cf9ab45b 513 memset ((PTR)ext, 0, bfd_coff_auxesz (abfd));
7f6d05e8
CP		 514 switch (class)
515 {
f4ffd778
NC		 516 case C_FILE:
517 if (in->x_file.x_fname[0] == 0)
518 {
dc810e39
AM		 519 H_PUT_32 (abfd, 0, ext->x_file.x_n.x_zeroes);
520 H_PUT_32 (abfd, in->x_file.x_n.x_offset, ext->x_file.x_n.x_offset);
f4ffd778
NC		 521 }
522 else
523 {
524 memcpy (ext->x_file.x_fname, in->x_file.x_fname, FILNMLEN);
525 }
7f6d05e8 526 goto end;
f4ffd778
NC		 527
528 /* RS/6000 "csect" auxents */
529 case C_EXT:
530 case C_HIDEXT:
531 if (indx + 1 == numaux)
532 {
dc810e39
AM		 533 H_PUT_32 (abfd, in->x_csect.x_scnlen.l, ext->x_csect.x_scnlen);
534 H_PUT_32 (abfd, in->x_csect.x_parmhash, ext->x_csect.x_parmhash);
535 H_PUT_16 (abfd, in->x_csect.x_snhash, ext->x_csect.x_snhash);
f4ffd778
NC		 536 /* We don't have to hack bitfields in x_smtyp because it's
537 defined by shifts-and-ands, which are equivalent on all
538 byte orders. */
dc810e39
AM		 539 H_PUT_8 (abfd, in->x_csect.x_smtyp, ext->x_csect.x_smtyp);
540 H_PUT_8 (abfd, in->x_csect.x_smclas, ext->x_csect.x_smclas);
541 H_PUT_32 (abfd, in->x_csect.x_stab, ext->x_csect.x_stab);
542 H_PUT_16 (abfd, in->x_csect.x_snstab, ext->x_csect.x_snstab);
f4ffd778
NC		 543 goto end;
544 }
545 break;
546
547 case C_STAT:
548 case C_LEAFSTAT:
549 case C_HIDDEN:
550 if (type == T_NULL)
551 {
dc810e39
AM		 552 H_PUT_32 (abfd, in->x_scn.x_scnlen, ext->x_scn.x_scnlen);
553 H_PUT_16 (abfd, in->x_scn.x_nreloc, ext->x_scn.x_nreloc);
554 H_PUT_16 (abfd, in->x_scn.x_nlinno, ext->x_scn.x_nlinno);
f4ffd778
NC		 555 goto end;
556 }
557 break;
7f6d05e8 558 }
7f6d05e8 559
dc810e39
AM		 560 H_PUT_32 (abfd, in->x_sym.x_tagndx.l, ext->x_sym.x_tagndx);
561 H_PUT_16 (abfd, in->x_sym.x_tvndx, ext->x_sym.x_tvndx);
7f6d05e8
CP		 562
563 if (class == C_BLOCK || class == C_FCN || ISFCN (type) || ISTAG (class))
564 {
dc810e39
AM		 565 H_PUT_32 (abfd, in->x_sym.x_fcnary.x_fcn.x_lnnoptr,
566 ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
567 H_PUT_32 (abfd, in->x_sym.x_fcnary.x_fcn.x_endndx.l,
568 ext->x_sym.x_fcnary.x_fcn.x_endndx);
7f6d05e8
CP		 569 }
570 else
571 {
dc810e39
AM		 572 H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[0],
573 ext->x_sym.x_fcnary.x_ary.x_dimen[0]);
574 H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[1],
575 ext->x_sym.x_fcnary.x_ary.x_dimen[1]);
576 H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[2],
577 ext->x_sym.x_fcnary.x_ary.x_dimen[2]);
578 H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[3],
579 ext->x_sym.x_fcnary.x_ary.x_dimen[3]);
7f6d05e8
CP		 580 }
581
582 if (ISFCN (type))
dc810e39 583 H_PUT_32 (abfd, in->x_sym.x_misc.x_fsize, ext->x_sym.x_misc.x_fsize);
7f6d05e8
CP		 584 else
585 {
dc810e39
AM		 586 H_PUT_16 (abfd, in->x_sym.x_misc.x_lnsz.x_lnno,
587 ext->x_sym.x_misc.x_lnsz.x_lnno);
588 H_PUT_16 (abfd, in->x_sym.x_misc.x_lnsz.x_size,
589 ext->x_sym.x_misc.x_lnsz.x_size);
7f6d05e8
CP		 590 }
591
592end:
593 return bfd_coff_auxesz (abfd);
594}
beb1bf64
TR		 595
596
252b5132
RH		 597\f
598/* The XCOFF reloc table. Actually, XCOFF relocations specify the
599 bitsize and whether they are signed or not, along with a
600 conventional type. This table is for the types, which are used for
601 different algorithms for putting in the reloc. Many of these
602 relocs need special_function entries, which I have not written. */
603
7f6d05e8
CP		 604
605reloc_howto_type xcoff_howto_table[] =
252b5132
RH		 606{
607 /* Standard 32 bit relocation. */
cf9ab45b
AM		 608 HOWTO (R_POS, /* type */
609 0, /* rightshift */
610 2, /* size (0 = byte, 1 = short, 2 = long) */
611 32, /* bitsize */
b34976b6 612 FALSE, /* pc_relative */
cf9ab45b 613 0, /* bitpos */
252b5132 614 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 615 0, /* special_function */
616 "R_POS", /* name */
b34976b6 617 TRUE, /* partial_inplace */
cf9ab45b
AM		 618 0xffffffff, /* src_mask */
619 0xffffffff, /* dst_mask */
b34976b6 620 FALSE), /* pcrel_offset */
252b5132
RH		 621
622 /* 32 bit relocation, but store negative value. */
cf9ab45b
AM		 623 HOWTO (R_NEG, /* type */
624 0, /* rightshift */
625 -2, /* size (0 = byte, 1 = short, 2 = long) */
626 32, /* bitsize */
b34976b6 627 FALSE, /* pc_relative */
cf9ab45b 628 0, /* bitpos */
252b5132 629 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 630 0, /* special_function */
631 "R_NEG", /* name */
b34976b6 632 TRUE, /* partial_inplace */
cf9ab45b
AM		 633 0xffffffff, /* src_mask */
634 0xffffffff, /* dst_mask */
b34976b6 635 FALSE), /* pcrel_offset */
252b5132
RH		 636
637 /* 32 bit PC relative relocation. */
cf9ab45b
AM		 638 HOWTO (R_REL, /* type */
639 0, /* rightshift */
640 2, /* size (0 = byte, 1 = short, 2 = long) */
641 32, /* bitsize */
b34976b6 642 TRUE, /* pc_relative */
cf9ab45b 643 0, /* bitpos */
252b5132 644 complain_overflow_signed, /* complain_on_overflow */
cf9ab45b
AM		 645 0, /* special_function */
646 "R_REL", /* name */
b34976b6 647 TRUE, /* partial_inplace */
cf9ab45b
AM		 648 0xffffffff, /* src_mask */
649 0xffffffff, /* dst_mask */
b34976b6 650 FALSE), /* pcrel_offset */
c5930ee6 651
252b5132 652 /* 16 bit TOC relative relocation. */
cf9ab45b
AM		 653 HOWTO (R_TOC, /* type */
654 0, /* rightshift */
655 1, /* size (0 = byte, 1 = short, 2 = long) */
656 16, /* bitsize */
b34976b6 657 FALSE, /* pc_relative */
cf9ab45b 658 0, /* bitpos */
252b5132 659 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 660 0, /* special_function */
661 "R_TOC", /* name */
b34976b6 662 TRUE, /* partial_inplace */
cf9ab45b
AM		 663 0xffff, /* src_mask */
664 0xffff, /* dst_mask */
b34976b6 665 FALSE), /* pcrel_offset */
c5930ee6 666
252b5132 667 /* I don't really know what this is. */
cf9ab45b
AM		 668 HOWTO (R_RTB, /* type */
669 1, /* rightshift */
670 2, /* size (0 = byte, 1 = short, 2 = long) */
671 32, /* bitsize */
b34976b6 672 FALSE, /* pc_relative */
cf9ab45b 673 0, /* bitpos */
252b5132 674 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 675 0, /* special_function */
676 "R_RTB", /* name */
b34976b6 677 TRUE, /* partial_inplace */
cf9ab45b
AM		 678 0xffffffff, /* src_mask */
679 0xffffffff, /* dst_mask */
b34976b6 680 FALSE), /* pcrel_offset */
c5930ee6 681
252b5132 682 /* External TOC relative symbol. */
cf9ab45b
AM		 683 HOWTO (R_GL, /* type */
684 0, /* rightshift */
48bfecdd 685 1, /* size (0 = byte, 1 = short, 2 = long) */
cf9ab45b 686 16, /* bitsize */
b34976b6 687 FALSE, /* pc_relative */
cf9ab45b 688 0, /* bitpos */
252b5132 689 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 690 0, /* special_function */
691 "R_GL", /* name */
b34976b6 692 TRUE, /* partial_inplace */
cf9ab45b
AM		 693 0xffff, /* src_mask */
694 0xffff, /* dst_mask */
b34976b6 695 FALSE), /* pcrel_offset */
cf9ab45b
AM		 696
697 /* Local TOC relative symbol. */
698 HOWTO (R_TCL, /* type */
699 0, /* rightshift */
48bfecdd 700 1, /* size (0 = byte, 1 = short, 2 = long) */
cf9ab45b 701 16, /* bitsize */
b34976b6 702 FALSE, /* pc_relative */
cf9ab45b 703 0, /* bitpos */
252b5132 704 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 705 0, /* special_function */
706 "R_TCL", /* name */
b34976b6 707 TRUE, /* partial_inplace */
cf9ab45b
AM		 708 0xffff, /* src_mask */
709 0xffff, /* dst_mask */
b34976b6 710 FALSE), /* pcrel_offset */
c5930ee6 711
5f771d47 712 EMPTY_HOWTO (7),
c5930ee6 713
252b5132 714 /* Non modifiable absolute branch. */
cf9ab45b
AM		 715 HOWTO (R_BA, /* type */
716 0, /* rightshift */
717 2, /* size (0 = byte, 1 = short, 2 = long) */
718 26, /* bitsize */
b34976b6 719 FALSE, /* pc_relative */
cf9ab45b 720 0, /* bitpos */
252b5132 721 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 722 0, /* special_function */
723 "R_BA_26", /* name */
b34976b6 724 TRUE, /* partial_inplace */
a78eab4e 725 0x03fffffc, /* src_mask */
48bfecdd 726 0x03fffffc, /* dst_mask */
b34976b6 727 FALSE), /* pcrel_offset */
c5930ee6 728
5f771d47 729 EMPTY_HOWTO (9),
252b5132
RH		 730
731 /* Non modifiable relative branch. */
cf9ab45b
AM		 732 HOWTO (R_BR, /* type */
733 0, /* rightshift */
734 2, /* size (0 = byte, 1 = short, 2 = long) */
735 26, /* bitsize */
b34976b6 736 TRUE, /* pc_relative */
cf9ab45b 737 0, /* bitpos */
252b5132 738 complain_overflow_signed, /* complain_on_overflow */
cf9ab45b
AM		 739 0, /* special_function */
740 "R_BR", /* name */
b34976b6 741 TRUE, /* partial_inplace */
a78eab4e 742 0x03fffffc, /* src_mask */
48bfecdd 743 0x03fffffc, /* dst_mask */
b34976b6 744 FALSE), /* pcrel_offset */
c5930ee6 745
5f771d47 746 EMPTY_HOWTO (0xb),
252b5132
RH		 747
748 /* Indirect load. */
cf9ab45b
AM		 749 HOWTO (R_RL, /* type */
750 0, /* rightshift */
48bfecdd 751 1, /* size (0 = byte, 1 = short, 2 = long) */
cf9ab45b 752 16, /* bitsize */
b34976b6 753 FALSE, /* pc_relative */
cf9ab45b 754 0, /* bitpos */
252b5132 755 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 756 0, /* special_function */
757 "R_RL", /* name */
b34976b6 758 TRUE, /* partial_inplace */
cf9ab45b
AM		 759 0xffff, /* src_mask */
760 0xffff, /* dst_mask */
b34976b6 761 FALSE), /* pcrel_offset */
c5930ee6 762
252b5132 763 /* Load address. */
cf9ab45b
AM		 764 HOWTO (R_RLA, /* type */
765 0, /* rightshift */
48bfecdd 766 1, /* size (0 = byte, 1 = short, 2 = long) */
cf9ab45b 767 16, /* bitsize */
b34976b6 768 FALSE, /* pc_relative */
cf9ab45b 769 0, /* bitpos */
252b5132 770 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 771 0, /* special_function */
772 "R_RLA", /* name */
b34976b6 773 TRUE, /* partial_inplace */
cf9ab45b
AM		 774 0xffff, /* src_mask */
775 0xffff, /* dst_mask */
b34976b6 776 FALSE), /* pcrel_offset */
c5930ee6 777
5f771d47 778 EMPTY_HOWTO (0xe),
c5930ee6 779
252b5132 780 /* Non-relocating reference. */
cf9ab45b
AM		 781 HOWTO (R_REF, /* type */
782 0, /* rightshift */
783 2, /* size (0 = byte, 1 = short, 2 = long) */
784 32, /* bitsize */
b34976b6 785 FALSE, /* pc_relative */
cf9ab45b 786 0, /* bitpos */
48bfecdd 787 complain_overflow_dont, /* complain_on_overflow */
cf9ab45b
AM		 788 0, /* special_function */
789 "R_REF", /* name */
b34976b6 790 FALSE, /* partial_inplace */
cf9ab45b
AM		 791 0, /* src_mask */
792 0, /* dst_mask */
b34976b6 793 FALSE), /* pcrel_offset */
c5930ee6 794
5f771d47
ILT		 795 EMPTY_HOWTO (0x10),
796 EMPTY_HOWTO (0x11),
c5930ee6 797
252b5132 798 /* TOC relative indirect load. */
cf9ab45b
AM		 799 HOWTO (R_TRL, /* type */
800 0, /* rightshift */
48bfecdd 801 1, /* size (0 = byte, 1 = short, 2 = long) */
cf9ab45b 802 16, /* bitsize */
b34976b6 803 FALSE, /* pc_relative */
cf9ab45b 804 0, /* bitpos */
252b5132 805 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 806 0, /* special_function */
807 "R_TRL", /* name */
b34976b6 808 TRUE, /* partial_inplace */
cf9ab45b
AM		 809 0xffff, /* src_mask */
810 0xffff, /* dst_mask */
b34976b6 811 FALSE), /* pcrel_offset */
c5930ee6 812
252b5132 813 /* TOC relative load address. */
cf9ab45b
AM		 814 HOWTO (R_TRLA, /* type */
815 0, /* rightshift */
48bfecdd 816 1, /* size (0 = byte, 1 = short, 2 = long) */
cf9ab45b 817 16, /* bitsize */
b34976b6 818 FALSE, /* pc_relative */
cf9ab45b 819 0, /* bitpos */
252b5132 820 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 821 0, /* special_function */
822 "R_TRLA", /* name */
b34976b6 823 TRUE, /* partial_inplace */
cf9ab45b
AM		 824 0xffff, /* src_mask */
825 0xffff, /* dst_mask */
b34976b6 826 FALSE), /* pcrel_offset */
c5930ee6 827
252b5132 828 /* Modifiable relative branch. */
cf9ab45b
AM		 829 HOWTO (R_RRTBI, /* type */
830 1, /* rightshift */
831 2, /* size (0 = byte, 1 = short, 2 = long) */
832 32, /* bitsize */
b34976b6 833 FALSE, /* pc_relative */
cf9ab45b 834 0, /* bitpos */
252b5132 835 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 836 0, /* special_function */
837 "R_RRTBI", /* name */
b34976b6 838 TRUE, /* partial_inplace */
cf9ab45b
AM		 839 0xffffffff, /* src_mask */
840 0xffffffff, /* dst_mask */
b34976b6 841 FALSE), /* pcrel_offset */
c5930ee6 842
252b5132 843 /* Modifiable absolute branch. */
cf9ab45b
AM		 844 HOWTO (R_RRTBA, /* type */
845 1, /* rightshift */
846 2, /* size (0 = byte, 1 = short, 2 = long) */
847 32, /* bitsize */
b34976b6 848 FALSE, /* pc_relative */
cf9ab45b 849 0, /* bitpos */
252b5132 850 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 851 0, /* special_function */
852 "R_RRTBA", /* name */
b34976b6 853 TRUE, /* partial_inplace */
cf9ab45b
AM		 854 0xffffffff, /* src_mask */
855 0xffffffff, /* dst_mask */
b34976b6 856 FALSE), /* pcrel_offset */
c5930ee6 857
252b5132 858 /* Modifiable call absolute indirect. */
cf9ab45b
AM		 859 HOWTO (R_CAI, /* type */
860 0, /* rightshift */
48bfecdd 861 1, /* size (0 = byte, 1 = short, 2 = long) */
cf9ab45b 862 16, /* bitsize */
b34976b6 863 FALSE, /* pc_relative */
cf9ab45b 864 0, /* bitpos */
252b5132 865 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 866 0, /* special_function */
867 "R_CAI", /* name */
b34976b6 868 TRUE, /* partial_inplace */
cf9ab45b
AM		 869 0xffff, /* src_mask */
870 0xffff, /* dst_mask */
b34976b6 871 FALSE), /* pcrel_offset */
c5930ee6 872
252b5132 873 /* Modifiable call relative. */
cf9ab45b
AM		 874 HOWTO (R_CREL, /* type */
875 0, /* rightshift */
48bfecdd 876 1, /* size (0 = byte, 1 = short, 2 = long) */
cf9ab45b 877 16, /* bitsize */
b34976b6 878 FALSE, /* pc_relative */
cf9ab45b 879 0, /* bitpos */
252b5132 880 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 881 0, /* special_function */
882 "R_CREL", /* name */
b34976b6 883 TRUE, /* partial_inplace */
cf9ab45b
AM		 884 0xffff, /* src_mask */
885 0xffff, /* dst_mask */
b34976b6 886 FALSE), /* pcrel_offset */
c5930ee6 887
252b5132 888 /* Modifiable branch absolute. */
cf9ab45b
AM		 889 HOWTO (R_RBA, /* type */
890 0, /* rightshift */
891 2, /* size (0 = byte, 1 = short, 2 = long) */
892 26, /* bitsize */
b34976b6 893 FALSE, /* pc_relative */
cf9ab45b 894 0, /* bitpos */
252b5132 895 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 896 0, /* special_function */
897 "R_RBA", /* name */
b34976b6 898 TRUE, /* partial_inplace */
a78eab4e 899 0x03fffffc, /* src_mask */
48bfecdd 900 0x03fffffc, /* dst_mask */
b34976b6 901 FALSE), /* pcrel_offset */
c5930ee6 902
252b5132 903 /* Modifiable branch absolute. */
cf9ab45b
AM		 904 HOWTO (R_RBAC, /* type */
905 0, /* rightshift */
906 2, /* size (0 = byte, 1 = short, 2 = long) */
907 32, /* bitsize */
b34976b6 908 FALSE, /* pc_relative */
cf9ab45b 909 0, /* bitpos */
252b5132 910 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 911 0, /* special_function */
912 "R_RBAC", /* name */
b34976b6 913 TRUE, /* partial_inplace */
a78eab4e 914 0xffffffff, /* src_mask */
48bfecdd 915 0xffffffff, /* dst_mask */
b34976b6 916 FALSE), /* pcrel_offset */
c5930ee6 917
252b5132 918 /* Modifiable branch relative. */
cf9ab45b
AM		 919 HOWTO (R_RBR, /* type */
920 0, /* rightshift */
921 2, /* size (0 = byte, 1 = short, 2 = long) */
922 26, /* bitsize */
b34976b6 923 FALSE, /* pc_relative */
cf9ab45b 924 0, /* bitpos */
252b5132 925 complain_overflow_signed, /* complain_on_overflow */
cf9ab45b
AM		 926 0, /* special_function */
927 "R_RBR_26", /* name */
b34976b6 928 TRUE, /* partial_inplace */
a78eab4e 929 0x03fffffc, /* src_mask */
48bfecdd 930 0x03fffffc, /* dst_mask */
b34976b6 931 FALSE), /* pcrel_offset */
c5930ee6 932
252b5132 933 /* Modifiable branch absolute. */
cf9ab45b
AM		 934 HOWTO (R_RBRC, /* type */
935 0, /* rightshift */
48bfecdd 936 1, /* size (0 = byte, 1 = short, 2 = long) */
cf9ab45b 937 16, /* bitsize */
b34976b6 938 FALSE, /* pc_relative */
cf9ab45b 939 0, /* bitpos */
252b5132 940 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 941 0, /* special_function */
942 "R_RBRC", /* name */
b34976b6 943 TRUE, /* partial_inplace */
cf9ab45b
AM		 944 0xffff, /* src_mask */
945 0xffff, /* dst_mask */
b34976b6 946 FALSE), /* pcrel_offset */
beb1bf64 947
ff3a6ee3 948 /* 16 bit Non modifiable absolute branch. */
cf9ab45b
AM		 949 HOWTO (R_BA, /* type */
950 0, /* rightshift */
951 1, /* size (0 = byte, 1 = short, 2 = long) */
952 16, /* bitsize */
b34976b6 953 FALSE, /* pc_relative */
cf9ab45b 954 0, /* bitpos */
ff3a6ee3 955 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 956 0, /* special_function */
957 "R_BA_16", /* name */
b34976b6 958 TRUE, /* partial_inplace */
cf9ab45b
AM		 959 0xfffc, /* src_mask */
960 0xfffc, /* dst_mask */
b34976b6 961 FALSE), /* pcrel_offset */
59862849
TR		 962
963 /* Modifiable branch relative. */
cf9ab45b
AM		 964 HOWTO (R_RBR, /* type */
965 0, /* rightshift */
966 1, /* size (0 = byte, 1 = short, 2 = long) */
967 16, /* bitsize */
b34976b6 968 FALSE, /* pc_relative */
cf9ab45b 969 0, /* bitpos */
59862849 970 complain_overflow_signed, /* complain_on_overflow */
cf9ab45b
AM		 971 0, /* special_function */
972 "R_RBR_16", /* name */
b34976b6 973 TRUE, /* partial_inplace */
cf9ab45b
AM		 974 0xffff, /* src_mask */
975 0xffff, /* dst_mask */
b34976b6 976 FALSE), /* pcrel_offset */
59862849 977
1b164155 978 /* Modifiable branch relative. */
cf9ab45b
AM		 979 HOWTO (R_RBA, /* type */
980 0, /* rightshift */
981 1, /* size (0 = byte, 1 = short, 2 = long) */
982 16, /* bitsize */
b34976b6 983 FALSE, /* pc_relative */
cf9ab45b 984 0, /* bitpos */
1b164155 985 complain_overflow_signed, /* complain_on_overflow */
cf9ab45b
AM		 986 0, /* special_function */
987 "R_RBA_16", /* name */
b34976b6 988 TRUE, /* partial_inplace */
cf9ab45b
AM		 989 0xffff, /* src_mask */
990 0xffff, /* dst_mask */
b34976b6 991 FALSE), /* pcrel_offset */
1b164155 992
252b5132
RH		 993};
994
7f6d05e8 995void
59862849 996xcoff_rtype2howto (relent, internal)
252b5132
RH		 997 arelent *relent;
998 struct internal_reloc *internal;
999{
59862849 1000 if (internal->r_type > R_RBRC)
beb1bf64 1001 abort ();
5ea1af0d 1002
59862849
TR		 1003 /* Default howto layout works most of the time */
1004 relent->howto = &xcoff_howto_table[internal->r_type];
cf9ab45b 1005
5c4491d3 1006 /* Special case some 16 bit reloc */
59862849
TR		 1007 if (15 == (internal->r_size & 0x1f))
1008 {
cf9ab45b 1009 if (R_BA == internal->r_type)
59862849 1010 relent->howto = &xcoff_howto_table[0x1c];
cf9ab45b 1011 else if (R_RBR == internal->r_type)
59862849 1012 relent->howto = &xcoff_howto_table[0x1d];
cf9ab45b 1013 else if (R_RBA == internal->r_type)
1b164155 1014 relent->howto = &xcoff_howto_table[0x1e];
59862849 1015 }
cf9ab45b 1016
252b5132
RH		 1017 /* The r_size field of an XCOFF reloc encodes the bitsize of the
1018 relocation, as well as indicating whether it is signed or not.
1019 Doublecheck that the relocation information gathered from the
c5930ee6
KH		 1020 type matches this information. The bitsize is not significant
1021 for R_REF relocs. */
1022 if (relent->howto->dst_mask != 0
dc810e39 1023 && (relent->howto->bitsize
59862849 1024 != ((unsigned int) internal->r_size & 0x1f) + 1))
252b5132 1025 abort ();
252b5132
RH		 1026}
1027
7f6d05e8
CP		 1028reloc_howto_type *
1029_bfd_xcoff_reloc_type_lookup (abfd, code)
5f771d47 1030 bfd *abfd ATTRIBUTE_UNUSED;
252b5132
RH		 1031 bfd_reloc_code_real_type code;
1032{
1033 switch (code)
1034 {
1035 case BFD_RELOC_PPC_B26:
1036 return &xcoff_howto_table[0xa];
ff3a6ee3 1037 case BFD_RELOC_PPC_BA16:
59862849 1038 return &xcoff_howto_table[0x1c];
252b5132
RH		 1039 case BFD_RELOC_PPC_BA26:
1040 return &xcoff_howto_table[8];
1041 case BFD_RELOC_PPC_TOC16:
1042 return &xcoff_howto_table[3];
1043 case BFD_RELOC_32:
1044 case BFD_RELOC_CTOR:
1045 return &xcoff_howto_table[0];
1046 default:
1047 return NULL;
1048 }
1049}
beb1bf64 1050
157090f7
AM		 1051static reloc_howto_type *
1052_bfd_xcoff_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1053 const char *r_name)
1054{
1055 unsigned int i;
1056
1057 for (i = 0;
1058 i < sizeof (xcoff_howto_table) / sizeof (xcoff_howto_table[0]);
1059 i++)
1060 if (xcoff_howto_table[i].name != NULL
1061 && strcasecmp (xcoff_howto_table[i].name, r_name) == 0)
1062 return &xcoff_howto_table[i];
1063
1064 return NULL;
1065}
252b5132
RH		 1066\f
1067/* XCOFF archive support. The original version of this code was by
1068 Damon A. Permezel. It was enhanced to permit cross support, and
1069 writing archive files, by Ian Lance Taylor, Cygnus Support.
1070
1071 XCOFF uses its own archive format. Everything is hooked together
1072 with file offset links, so it is possible to rapidly update an
1073 archive in place. Of course, we don't do that. An XCOFF archive
1074 has a real file header, not just an ARMAG string. The structure of
1075 the file header and of each archive header appear below.
1076
1077 An XCOFF archive also has a member table, which is a list of
1078 elements in the archive (you can get that by looking through the
1079 linked list, but you have to read a lot more of the file). The
1080 member table has a normal archive header with an empty name. It is
1081 normally (and perhaps must be) the second to last entry in the
1082 archive. The member table data is almost printable ASCII. It
1083 starts with a 12 character decimal string which is the number of
1084 entries in the table. For each entry it has a 12 character decimal
1085 string which is the offset in the archive of that member. These
1086 entries are followed by a series of null terminated strings which
1087 are the member names for each entry.
1088
1089 Finally, an XCOFF archive has a global symbol table, which is what
1090 we call the armap. The global symbol table has a normal archive
1091 header with an empty name. It is normally (and perhaps must be)
1092 the last entry in the archive. The contents start with a four byte
1093 binary number which is the number of entries. This is followed by
1094 a that many four byte binary numbers; each is the file offset of an
1095 entry in the archive. These numbers are followed by a series of
5ea1af0d
GK		 1096 null terminated strings, which are symbol names.
1097
1098 AIX 4.3 introduced a new archive format which can handle larger
1099 files and also 32- and 64-bit objects in the same archive. The
1100 things said above remain true except that there is now more than
1101 one global symbol table. The one is used to index 32-bit objects,
1102 the other for 64-bit objects.
1103
1104 The new archives (recognizable by the new ARMAG string) has larger
1105 field lengths so that we cannot really share any code. Also we have
1106 to take care that we are not generating the new form of archives
1107 on AIX 4.2 or earlier systems. */
252b5132 1108
5ea1af0d
GK		 1109/* XCOFF archives use this as a magic string. Note that both strings
1110 have the same length. */
252b5132 1111
eb1e0e80 1112/* Set the magic for archive. */
252b5132 1113
b34976b6 1114bfd_boolean
eb1e0e80
NC		 1115bfd_xcoff_ar_archive_set_magic (abfd, magic)
1116 bfd *abfd ATTRIBUTE_UNUSED;
1117 char *magic ATTRIBUTE_UNUSED;
1118{
1119 /* Not supported yet. */
b34976b6 1120 return FALSE;
eb1e0e80
NC		 1121 /* bfd_xcoff_archive_set_magic (abfd, magic); */
1122}
252b5132 1123
252b5132
RH		 1124/* Read in the armap of an XCOFF archive. */
1125
b34976b6 1126bfd_boolean
7f6d05e8 1127_bfd_xcoff_slurp_armap (abfd)
252b5132
RH		 1128 bfd *abfd;
1129{
1130 file_ptr off;
252b5132
RH		 1131 size_t namlen;
1132 bfd_size_type sz;
1133 bfd_byte *contents, *cend;
31612ca6 1134 bfd_vma c, i;
252b5132
RH		 1135 carsym *arsym;
1136 bfd_byte *p;
1137
1138 if (xcoff_ardata (abfd) == NULL)
1139 {
b34976b6
AM		 1140 bfd_has_map (abfd) = FALSE;
1141 return TRUE;
252b5132
RH		 1142 }
1143
5ea1af0d 1144 if (! xcoff_big_format_p (abfd))
252b5132 1145 {
5ea1af0d
GK		 1146 /* This is for the old format. */
1147 struct xcoff_ar_hdr hdr;
1148
1149 off = strtol (xcoff_ardata (abfd)->symoff, (char **) NULL, 10);
1150 if (off == 0)
1151 {
b34976b6
AM		 1152 bfd_has_map (abfd) = FALSE;
1153 return TRUE;
5ea1af0d
GK		 1154 }
1155
1156 if (bfd_seek (abfd, off, SEEK_SET) != 0)
b34976b6 1157 return FALSE;
5ea1af0d
GK		 1158
1159 /* The symbol table starts with a normal archive header. */
dc810e39
AM		 1160 if (bfd_bread ((PTR) &hdr, (bfd_size_type) SIZEOF_AR_HDR, abfd)
1161 != SIZEOF_AR_HDR)
b34976b6 1162 return FALSE;
5ea1af0d
GK		 1163
1164 /* Skip the name (normally empty). */
1165 namlen = strtol (hdr.namlen, (char **) NULL, 10);
dc810e39
AM		 1166 off = ((namlen + 1) & ~ (size_t) 1) + SXCOFFARFMAG;
1167 if (bfd_seek (abfd, off, SEEK_CUR) != 0)
b34976b6 1168 return FALSE;
5ea1af0d
GK		 1169
1170 sz = strtol (hdr.size, (char **) NULL, 10);
31612ca6
GK		 1171
1172 /* Read in the entire symbol table. */
1173 contents = (bfd_byte *) bfd_alloc (abfd, sz);
1174 if (contents == NULL)
b34976b6 1175 return FALSE;
dc810e39 1176 if (bfd_bread ((PTR) contents, sz, abfd) != sz)
b34976b6 1177 return FALSE;
31612ca6
GK		 1178
1179 /* The symbol table starts with a four byte count. */
dc810e39
AM		 1180 c = H_GET_32 (abfd, contents);
1181
31612ca6
GK		 1182 if (c * 4 >= sz)
1183 {
1184 bfd_set_error (bfd_error_bad_value);
b34976b6 1185 return FALSE;
31612ca6 1186 }
dc810e39
AM		 1187
1188 bfd_ardata (abfd)->symdefs =
1189 ((carsym *) bfd_alloc (abfd, c * sizeof (carsym)));
31612ca6 1190 if (bfd_ardata (abfd)->symdefs == NULL)
b34976b6 1191 return FALSE;
dc810e39 1192
31612ca6
GK		 1193 /* After the count comes a list of four byte file offsets. */
1194 for (i = 0, arsym = bfd_ardata (abfd)->symdefs, p = contents + 4;
1195 i < c;
1196 ++i, ++arsym, p += 4)
dc810e39 1197 arsym->file_offset = H_GET_32 (abfd, p);
252b5132 1198 }
5ea1af0d
GK		 1199 else
1200 {
1201 /* This is for the new format. */
1202 struct xcoff_ar_hdr_big hdr;
252b5132 1203
5ea1af0d
GK		 1204 off = strtol (xcoff_ardata_big (abfd)->symoff, (char **) NULL, 10);
1205 if (off == 0)
1206 {
b34976b6
AM		 1207 bfd_has_map (abfd) = FALSE;
1208 return TRUE;
5ea1af0d 1209 }
252b5132 1210
5ea1af0d 1211 if (bfd_seek (abfd, off, SEEK_SET) != 0)
b34976b6 1212 return FALSE;
252b5132 1213
5ea1af0d 1214 /* The symbol table starts with a normal archive header. */
dc810e39 1215 if (bfd_bread ((PTR) &hdr, (bfd_size_type) SIZEOF_AR_HDR_BIG, abfd)
5ea1af0d 1216 != SIZEOF_AR_HDR_BIG)
b34976b6 1217 return FALSE;
5ea1af0d
GK		 1218
1219 /* Skip the name (normally empty). */
1220 namlen = strtol (hdr.namlen, (char **) NULL, 10);
dc810e39
AM		 1221 off = ((namlen + 1) & ~ (size_t) 1) + SXCOFFARFMAG;
1222 if (bfd_seek (abfd, off, SEEK_CUR) != 0)
b34976b6 1223 return FALSE;
5ea1af0d
GK		 1224
1225 /* XXX This actually has to be a call to strtoll (at least on 32-bit
1226 machines) since the field width is 20 and there numbers with more
1227 than 32 bits can be represented. */
1228 sz = strtol (hdr.size, (char **) NULL, 10);
252b5132 1229
31612ca6
GK		 1230 /* Read in the entire symbol table. */
1231 contents = (bfd_byte *) bfd_alloc (abfd, sz);
1232 if (contents == NULL)
b34976b6 1233 return FALSE;
dc810e39 1234 if (bfd_bread ((PTR) contents, sz, abfd) != sz)
b34976b6 1235 return FALSE;
252b5132 1236
31612ca6 1237 /* The symbol table starts with an eight byte count. */
dc810e39 1238 c = H_GET_64 (abfd, contents);
252b5132 1239
31612ca6
GK		 1240 if (c * 8 >= sz)
1241 {
1242 bfd_set_error (bfd_error_bad_value);
b34976b6 1243 return FALSE;
31612ca6 1244 }
dc810e39
AM		 1245
1246 bfd_ardata (abfd)->symdefs =
1247 ((carsym *) bfd_alloc (abfd, c * sizeof (carsym)));
31612ca6 1248 if (bfd_ardata (abfd)->symdefs == NULL)
b34976b6 1249 return FALSE;
dc810e39 1250
31612ca6
GK		 1251 /* After the count comes a list of eight byte file offsets. */
1252 for (i = 0, arsym = bfd_ardata (abfd)->symdefs, p = contents + 8;
1253 i < c;
1254 ++i, ++arsym, p += 8)
dc810e39 1255 arsym->file_offset = H_GET_64 (abfd, p);
252b5132
RH		 1256 }
1257
252b5132
RH		 1258 /* After the file offsets come null terminated symbol names. */
1259 cend = contents + sz;
1260 for (i = 0, arsym = bfd_ardata (abfd)->symdefs;
1261 i < c;
1262 ++i, ++arsym, p += strlen ((char *) p) + 1)
1263 {
1264 if (p >= cend)
1265 {
1266 bfd_set_error (bfd_error_bad_value);
b34976b6 1267 return FALSE;
252b5132
RH		 1268 }
1269 arsym->name = (char *) p;
1270 }
1271
1272 bfd_ardata (abfd)->symdef_count = c;
b34976b6 1273 bfd_has_map (abfd) = TRUE;
252b5132 1274
b34976b6 1275 return TRUE;
252b5132
RH		 1276}
1277
1278/* See if this is an XCOFF archive. */
1279
7f6d05e8
CP		 1280const bfd_target *
1281_bfd_xcoff_archive_p (abfd)
252b5132
RH		 1282 bfd *abfd;
1283{
487e54f2 1284 struct artdata *tdata_hold;
5ea1af0d 1285 char magic[SXCOFFARMAG];
487e54f2 1286 bfd_size_type amt = SXCOFFARMAG;
252b5132 1287
487e54f2 1288 if (bfd_bread ((PTR) magic, amt, abfd) != amt)
252b5132
RH		 1289 {
1290 if (bfd_get_error () != bfd_error_system_call)
1291 bfd_set_error (bfd_error_wrong_format);
1292 return NULL;
1293 }
1294
5ea1af0d
GK		 1295 if (strncmp (magic, XCOFFARMAG, SXCOFFARMAG) != 0
1296 && strncmp (magic, XCOFFARMAGBIG, SXCOFFARMAG) != 0)
252b5132
RH		 1297 {
1298 bfd_set_error (bfd_error_wrong_format);
1299 return NULL;
1300 }
1301
487e54f2
AM		 1302 tdata_hold = bfd_ardata (abfd);
1303
dc810e39 1304 amt = sizeof (struct artdata);
487e54f2 1305 bfd_ardata (abfd) = (struct artdata *) bfd_zalloc (abfd, amt);
252b5132 1306 if (bfd_ardata (abfd) == (struct artdata *) NULL)
487e54f2 1307 goto error_ret_restore;
252b5132 1308
9e492e05
JJ		 1309 /* Cleared by bfd_zalloc above.
1310 bfd_ardata (abfd)->cache = NULL;
1311 bfd_ardata (abfd)->archive_head = NULL;
1312 bfd_ardata (abfd)->symdefs = NULL;
1313 bfd_ardata (abfd)->extended_names = NULL;
1314 bfd_ardata (abfd)->extended_names_size = 0; */
252b5132 1315
5ea1af0d
GK		 1316 /* Now handle the two formats. */
1317 if (magic[1] != 'b')
1318 {
1319 /* This is the old format. */
1320 struct xcoff_ar_file_hdr hdr;
252b5132 1321
5ea1af0d
GK		 1322 /* Copy over the magic string. */
1323 memcpy (hdr.magic, magic, SXCOFFARMAG);
1324
1325 /* Now read the rest of the file header. */
487e54f2
AM		 1326 amt = SIZEOF_AR_FILE_HDR - SXCOFFARMAG;
1327 if (bfd_bread ((PTR) &hdr.memoff, amt, abfd) != amt)
5ea1af0d
GK		 1328 {
1329 if (bfd_get_error () != bfd_error_system_call)
1330 bfd_set_error (bfd_error_wrong_format);
487e54f2 1331 goto error_ret;
5ea1af0d
GK		 1332 }
1333
1334 bfd_ardata (abfd)->first_file_filepos = strtol (hdr.firstmemoff,
1335 (char **) NULL, 10);
1336
dc810e39
AM		 1337 amt = SIZEOF_AR_FILE_HDR;
1338 bfd_ardata (abfd)->tdata = bfd_zalloc (abfd, amt);
5ea1af0d 1339 if (bfd_ardata (abfd)->tdata == NULL)
487e54f2 1340 goto error_ret;
5ea1af0d
GK		 1341
1342 memcpy (bfd_ardata (abfd)->tdata, &hdr, SIZEOF_AR_FILE_HDR);
1343 }
1344 else
1345 {
1346 /* This is the new format. */
1347 struct xcoff_ar_file_hdr_big hdr;
1348
1349 /* Copy over the magic string. */
1350 memcpy (hdr.magic, magic, SXCOFFARMAG);
1351
1352 /* Now read the rest of the file header. */
487e54f2
AM		 1353 amt = SIZEOF_AR_FILE_HDR_BIG - SXCOFFARMAG;
1354 if (bfd_bread ((PTR) &hdr.memoff, amt, abfd) != amt)
5ea1af0d
GK		 1355 {
1356 if (bfd_get_error () != bfd_error_system_call)
1357 bfd_set_error (bfd_error_wrong_format);
487e54f2 1358 goto error_ret;
5ea1af0d
GK		 1359 }
1360
487e54f2
AM		 1361 bfd_ardata (abfd)->first_file_filepos = bfd_scan_vma (hdr.firstmemoff,
1362 (const char **) 0,
1363 10);
5ea1af0d 1364
dc810e39
AM		 1365 amt = SIZEOF_AR_FILE_HDR_BIG;
1366 bfd_ardata (abfd)->tdata = bfd_zalloc (abfd, amt);
5ea1af0d 1367 if (bfd_ardata (abfd)->tdata == NULL)
487e54f2 1368 goto error_ret;
5ea1af0d
GK		 1369
1370 memcpy (bfd_ardata (abfd)->tdata, &hdr, SIZEOF_AR_FILE_HDR_BIG);
1371 }
252b5132 1372
7f6d05e8 1373 if (! _bfd_xcoff_slurp_armap (abfd))
252b5132 1374 {
487e54f2 1375 error_ret:
252b5132 1376 bfd_release (abfd, bfd_ardata (abfd));
487e54f2
AM		 1377 error_ret_restore:
1378 bfd_ardata (abfd) = tdata_hold;
252b5132
RH		 1379 return NULL;
1380 }
1381
1382 return abfd->xvec;
1383}
1384
1385/* Read the archive header in an XCOFF archive. */
1386
7f6d05e8
CP		 1387PTR
1388_bfd_xcoff_read_ar_hdr (abfd)
252b5132
RH		 1389 bfd *abfd;
1390{
dc810e39 1391 bfd_size_type namlen;
252b5132 1392 struct areltdata *ret;
dc810e39 1393 bfd_size_type amt = sizeof (struct areltdata);
252b5132 1394
dc810e39 1395 ret = (struct areltdata *) bfd_alloc (abfd, amt);
252b5132
RH		 1396 if (ret == NULL)
1397 return NULL;
5ea1af0d
GK		 1398
1399 if (! xcoff_big_format_p (abfd))
1400 {
1401 struct xcoff_ar_hdr hdr;
1402 struct xcoff_ar_hdr *hdrp;
1403
dc810e39
AM		 1404 if (bfd_bread ((PTR) &hdr, (bfd_size_type) SIZEOF_AR_HDR, abfd)
1405 != SIZEOF_AR_HDR)
5ea1af0d
GK		 1406 {
1407 free (ret);
1408 return NULL;
1409 }
1410
1411 namlen = strtol (hdr.namlen, (char **) NULL, 10);
dc810e39
AM		 1412 amt = SIZEOF_AR_HDR + namlen + 1;
1413 hdrp = (struct xcoff_ar_hdr *) bfd_alloc (abfd, amt);
5ea1af0d
GK		 1414 if (hdrp == NULL)
1415 {
1416 free (ret);
1417 return NULL;
1418 }
1419 memcpy (hdrp, &hdr, SIZEOF_AR_HDR);
dc810e39 1420 if (bfd_bread ((char *) hdrp + SIZEOF_AR_HDR, namlen, abfd) != namlen)
5ea1af0d
GK		 1421 {
1422 free (ret);
1423 return NULL;
1424 }
1425 ((char *) hdrp)[SIZEOF_AR_HDR + namlen] = '\0';
1426
1427 ret->arch_header = (char *) hdrp;
1428 ret->parsed_size = strtol (hdr.size, (char **) NULL, 10);
1429 ret->filename = (char *) hdrp + SIZEOF_AR_HDR;
1430 }
1431 else
1432 {
1433 struct xcoff_ar_hdr_big hdr;
1434 struct xcoff_ar_hdr_big *hdrp;
1435
dc810e39 1436 if (bfd_bread ((PTR) &hdr, (bfd_size_type) SIZEOF_AR_HDR_BIG, abfd)
5ea1af0d
GK		 1437 != SIZEOF_AR_HDR_BIG)
1438 {
1439 free (ret);
1440 return NULL;
1441 }
1442
1443 namlen = strtol (hdr.namlen, (char **) NULL, 10);
dc810e39
AM		 1444 amt = SIZEOF_AR_HDR_BIG + namlen + 1;
1445 hdrp = (struct xcoff_ar_hdr_big *) bfd_alloc (abfd, amt);
5ea1af0d
GK		 1446 if (hdrp == NULL)
1447 {
1448 free (ret);
1449 return NULL;
1450 }
1451 memcpy (hdrp, &hdr, SIZEOF_AR_HDR_BIG);
dc810e39 1452 if (bfd_bread ((char *) hdrp + SIZEOF_AR_HDR_BIG, namlen, abfd) != namlen)
5ea1af0d
GK		 1453 {
1454 free (ret);
1455 return NULL;
1456 }
1457 ((char *) hdrp)[SIZEOF_AR_HDR_BIG + namlen] = '\0';
1458
1459 ret->arch_header = (char *) hdrp;
1460 /* XXX This actually has to be a call to strtoll (at least on 32-bit
1461 machines) since the field width is 20 and there numbers with more
1462 than 32 bits can be represented. */
1463 ret->parsed_size = strtol (hdr.size, (char **) NULL, 10);
1464 ret->filename = (char *) hdrp + SIZEOF_AR_HDR_BIG;
1465 }
252b5132
RH		 1466
1467 /* Skip over the XCOFFARFMAG at the end of the file name. */
dc810e39 1468 if (bfd_seek (abfd, (file_ptr) ((namlen & 1) + SXCOFFARFMAG), SEEK_CUR) != 0)
252b5132
RH		 1469 return NULL;
1470
1471 return (PTR) ret;
1472}
1473
1474/* Open the next element in an XCOFF archive. */
1475
7f6d05e8
CP		 1476bfd *
1477_bfd_xcoff_openr_next_archived_file (archive, last_file)
252b5132
RH		 1478 bfd *archive;
1479 bfd *last_file;
1480{
1481 file_ptr filestart;
1482
1483 if (xcoff_ardata (archive) == NULL)
1484 {
1485 bfd_set_error (bfd_error_invalid_operation);
1486 return NULL;
1487 }
1488
5ea1af0d
GK		 1489 if (! xcoff_big_format_p (archive))
1490 {
1491 if (last_file == NULL)
1492 filestart = bfd_ardata (archive)->first_file_filepos;
1493 else
1494 filestart = strtol (arch_xhdr (last_file)->nextoff, (char **) NULL,
1495 10);
1496
1497 if (filestart == 0
1498 || filestart == strtol (xcoff_ardata (archive)->memoff,
1499 (char **) NULL, 10)
1500 || filestart == strtol (xcoff_ardata (archive)->symoff,
1501 (char **) NULL, 10))
1502 {
1503 bfd_set_error (bfd_error_no_more_archived_files);
1504 return NULL;
1505 }
1506 }
252b5132 1507 else
252b5132 1508 {
5ea1af0d
GK		 1509 if (last_file == NULL)
1510 filestart = bfd_ardata (archive)->first_file_filepos;
1511 else
1512 /* XXX These actually have to be a calls to strtoll (at least
1513 on 32-bit machines) since the fields's width is 20 and
1514 there numbers with more than 32 bits can be represented. */
1515 filestart = strtol (arch_xhdr_big (last_file)->nextoff, (char **) NULL,
1516 10);
1517
1518 /* XXX These actually have to be calls to strtoll (at least on 32-bit
1519 machines) since the fields's width is 20 and there numbers with more
1520 than 32 bits can be represented. */
1521 if (filestart == 0
1522 || filestart == strtol (xcoff_ardata_big (archive)->memoff,
1523 (char **) NULL, 10)
1524 || filestart == strtol (xcoff_ardata_big (archive)->symoff,
1525 (char **) NULL, 10))
1526 {
1527 bfd_set_error (bfd_error_no_more_archived_files);
1528 return NULL;
1529 }
252b5132
RH		 1530 }
1531
1532 return _bfd_get_elt_at_filepos (archive, filestart);
1533}
1534
1535/* Stat an element in an XCOFF archive. */
1536
7f6d05e8 1537int
51b9608c 1538_bfd_xcoff_stat_arch_elt (abfd, s)
252b5132
RH		 1539 bfd *abfd;
1540 struct stat *s;
1541{
252b5132
RH		 1542 if (abfd->arelt_data == NULL)
1543 {
1544 bfd_set_error (bfd_error_invalid_operation);
1545 return -1;
1546 }
1547
51b9608c 1548 if (! xcoff_big_format_p (abfd->my_archive))
5ea1af0d
GK		 1549 {
1550 struct xcoff_ar_hdr *hdrp = arch_xhdr (abfd);
1551
1552 s->st_mtime = strtol (hdrp->date, (char **) NULL, 10);
1553 s->st_uid = strtol (hdrp->uid, (char **) NULL, 10);
1554 s->st_gid = strtol (hdrp->gid, (char **) NULL, 10);
1555 s->st_mode = strtol (hdrp->mode, (char **) NULL, 8);
1556 s->st_size = arch_eltdata (abfd)->parsed_size;
1557 }
1558 else
1559 {
1560 struct xcoff_ar_hdr_big *hdrp = arch_xhdr_big (abfd);
252b5132 1561
5ea1af0d
GK		 1562 s->st_mtime = strtol (hdrp->date, (char **) NULL, 10);
1563 s->st_uid = strtol (hdrp->uid, (char **) NULL, 10);
1564 s->st_gid = strtol (hdrp->gid, (char **) NULL, 10);
1565 s->st_mode = strtol (hdrp->mode, (char **) NULL, 8);
1566 s->st_size = arch_eltdata (abfd)->parsed_size;
1567 }
252b5132
RH		 1568
1569 return 0;
1570}
1571
1572/* Normalize a file name for inclusion in an archive. */
1573
1574static const char *
1575normalize_filename (abfd)
1576 bfd *abfd;
1577{
1578 const char *file;
1579 const char *filename;
1580
1581 file = bfd_get_filename (abfd);
1582 filename = strrchr (file, '/');
1583 if (filename != NULL)
1584 filename++;
1585 else
1586 filename = file;
1587 return filename;
1588}
1589
1590/* Write out an XCOFF armap. */
1591
b34976b6 1592static bfd_boolean
5ea1af0d 1593xcoff_write_armap_old (abfd, elength, map, orl_count, stridx)
252b5132 1594 bfd *abfd;
5f771d47 1595 unsigned int elength ATTRIBUTE_UNUSED;
252b5132
RH		 1596 struct orl *map;
1597 unsigned int orl_count;
1598 int stridx;
1599{
1600 struct xcoff_ar_hdr hdr;
1601 char *p;
1602 unsigned char buf[4];
1603 bfd *sub;
1604 file_ptr fileoff;
1605 unsigned int i;
1606
1607 memset (&hdr, 0, sizeof hdr);
1608 sprintf (hdr.size, "%ld", (long) (4 + orl_count * 4 + stridx));
1609 sprintf (hdr.nextoff, "%d", 0);
330693f5 1610 memcpy (hdr.prevoff, xcoff_ardata (abfd)->memoff, XCOFFARMAG_ELEMENT_SIZE);
252b5132
RH		 1611 sprintf (hdr.date, "%d", 0);
1612 sprintf (hdr.uid, "%d", 0);
1613 sprintf (hdr.gid, "%d", 0);
1614 sprintf (hdr.mode, "%d", 0);
1615 sprintf (hdr.namlen, "%d", 0);
1616
1617 /* We need spaces, not null bytes, in the header. */
1618 for (p = (char *) &hdr; p < (char *) &hdr + SIZEOF_AR_HDR; p++)
1619 if (*p == '\0')
1620 *p = ' ';
1621
dc810e39
AM		 1622 if (bfd_bwrite ((PTR) &hdr, (bfd_size_type) SIZEOF_AR_HDR, abfd)
1623 != SIZEOF_AR_HDR
1624 || (bfd_bwrite (XCOFFARFMAG, (bfd_size_type) SXCOFFARFMAG, abfd)
1625 != SXCOFFARFMAG))
b34976b6 1626 return FALSE;
5ea1af0d 1627
dc810e39
AM		 1628 H_PUT_32 (abfd, orl_count, buf);
1629 if (bfd_bwrite (buf, (bfd_size_type) 4, abfd) != 4)
b34976b6 1630 return FALSE;
252b5132
RH		 1631
1632 sub = abfd->archive_head;
1633 fileoff = SIZEOF_AR_FILE_HDR;
1634 i = 0;
1635 while (sub != NULL && i < orl_count)
1636 {
1637 size_t namlen;
1638
dc810e39 1639 while (map[i].u.abfd == sub)
252b5132 1640 {
dc810e39
AM		 1641 H_PUT_32 (abfd, fileoff, buf);
1642 if (bfd_bwrite (buf, (bfd_size_type) 4, abfd) != 4)
b34976b6 1643 return FALSE;
252b5132
RH		 1644 ++i;
1645 }
1646 namlen = strlen (normalize_filename (sub));
dc810e39 1647 namlen = (namlen + 1) &~ (size_t) 1;
252b5132
RH		 1648 fileoff += (SIZEOF_AR_HDR
1649 + namlen
1650 + SXCOFFARFMAG
1651 + arelt_size (sub));
1652 fileoff = (fileoff + 1) &~ 1;
cc481421 1653 sub = sub->archive_next;
252b5132
RH		 1654 }
1655
1656 for (i = 0; i < orl_count; i++)
1657 {
1658 const char *name;
1659 size_t namlen;
1660
1661 name = *map[i].name;
1662 namlen = strlen (name);
dc810e39 1663 if (bfd_bwrite (name, (bfd_size_type) (namlen + 1), abfd) != namlen + 1)
b34976b6 1664 return FALSE;
252b5132
RH		 1665 }
1666
1667 if ((stridx & 1) != 0)
1668 {
1669 char b;
1670
1671 b = '\0';
dc810e39 1672 if (bfd_bwrite (&b, (bfd_size_type) 1, abfd) != 1)
b34976b6 1673 return FALSE;
252b5132
RH		 1674 }
1675
b34976b6 1676 return TRUE;
252b5132
RH		 1677}
1678
330693f5
TR		 1679static char buff20[XCOFFARMAGBIG_ELEMENT_SIZE + 1];
1680#define FMT20 "%-20lld"
1681#define FMT12 "%-12d"
1682#define FMT12_OCTAL "%-12o"
1683#define FMT4 "%-4d"
1684#define PRINT20(d, v) \
1685 sprintf (buff20, FMT20, (long long)(v)), \
1686 memcpy ((void *) (d), buff20, 20)
1687
1688#define PRINT12(d, v) \
1689 sprintf (buff20, FMT12, (int)(v)), \
cf9ab45b 1690 memcpy ((void *) (d), buff20, 12)
330693f5
TR		 1691
1692#define PRINT12_OCTAL(d, v) \
1693 sprintf (buff20, FMT12_OCTAL, (unsigned int)(v)), \
1694 memcpy ((void *) (d), buff20, 12)
1695
1696#define PRINT4(d, v) \
1697 sprintf (buff20, FMT4, (int)(v)), \
cf9ab45b 1698 memcpy ((void *) (d), buff20, 4)
330693f5
TR		 1699
1700#define READ20(d, v) \
1701 buff20[20] = 0, \
1702 memcpy (buff20, (d), 20), \
1dba4cb4 1703 (v) = bfd_scan_vma (buff20, (const char **) NULL, 10)
f4ffd778 1704
b34976b6 1705static bfd_boolean
eb1e0e80
NC		 1706do_pad (abfd, number)
1707 bfd *abfd;
1708 unsigned int number;
1709{
1710 bfd_byte b = 0;
1711
1712 /* Limit pad to <= 4096. */
1713 if (number > 4096)
b34976b6 1714 return FALSE;
eb1e0e80
NC		 1715
1716 while (number--)
1717 if (bfd_bwrite (&b, (bfd_size_type) 1, abfd) != 1)
b34976b6 1718 return FALSE;
eb1e0e80 1719
b34976b6 1720 return TRUE;
eb1e0e80
NC		 1721}
1722
b34976b6 1723static bfd_boolean
eb1e0e80
NC		 1724do_copy (out_bfd, in_bfd)
1725 bfd *out_bfd;
1726 bfd *in_bfd;
1727{
1728 bfd_size_type remaining;
1729 bfd_byte buffer[DEFAULT_BUFFERSIZE];
1730
1731 if (bfd_seek (in_bfd, (file_ptr) 0, SEEK_SET) != 0)
b34976b6 1732 return FALSE;
eb1e0e80
NC		 1733
1734 remaining = arelt_size (in_bfd);
1735
1736 while (remaining >= DEFAULT_BUFFERSIZE)
1737 {
1738 if (bfd_bread (buffer, DEFAULT_BUFFERSIZE, in_bfd) != DEFAULT_BUFFERSIZE
1739 || bfd_bwrite (buffer, DEFAULT_BUFFERSIZE, out_bfd) != DEFAULT_BUFFERSIZE)
b34976b6 1740 return FALSE;
eb1e0e80
NC		 1741
1742 remaining -= DEFAULT_BUFFERSIZE;
1743 }
1744
1745 if (remaining)
1746 {
cf9ab45b 1747 if (bfd_bread (buffer, remaining, in_bfd) != remaining
eb1e0e80 1748 || bfd_bwrite (buffer, remaining, out_bfd) != remaining)
b34976b6 1749 return FALSE;
eb1e0e80
NC		 1750 }
1751
b34976b6 1752 return TRUE;
eb1e0e80
NC		 1753}
1754
b34976b6 1755static bfd_boolean
eb1e0e80
NC		 1756do_shared_object_padding (out_bfd, in_bfd, offset, ar_header_size)
1757 bfd *out_bfd;
1758 bfd *in_bfd;
9dadfa79 1759 file_ptr *offset;
eb1e0e80
NC		 1760 int ar_header_size;
1761{
1762 if (bfd_check_format (in_bfd, bfd_object)
1763 && bfd_get_flavour (in_bfd) == bfd_target_xcoff_flavour
1764 && (in_bfd->flags & DYNAMIC) != 0)
1765 {
1766 bfd_size_type pad = 0;
1767 int text_align_power;
1768
1769 text_align_power = bfd_xcoff_text_align_power (in_bfd);
eb1e0e80
NC		 1770
1771 pad = 1 << text_align_power;
1772 pad -= (*offset + ar_header_size) & (pad - 1);
1773
1774 if (! do_pad (out_bfd, pad))
b34976b6 1775 return FALSE;
eb1e0e80
NC		 1776
1777 *offset += pad;
1778 }
1779
b34976b6 1780 return TRUE;
eb1e0e80
NC		 1781}
1782
b34976b6 1783static bfd_boolean
330693f5 1784xcoff_write_armap_big (abfd, elength, map, orl_count, stridx)
252b5132 1785 bfd *abfd;
330693f5 1786 unsigned int elength ATTRIBUTE_UNUSED;
5ea1af0d
GK		 1787 struct orl *map;
1788 unsigned int orl_count;
330693f5 1789 int stridx;
252b5132 1790{
330693f5
TR		 1791 struct xcoff_ar_file_hdr_big *fhdr;
1792 bfd_vma i, sym_32, sym_64, str_32, str_64;
f4ffd778 1793 const bfd_arch_info_type *arch_info = NULL;
330693f5
TR		 1794 bfd *current_bfd;
1795 size_t string_length;
9dadfa79 1796 file_ptr nextoff, prevoff;
cf9ab45b 1797
330693f5
TR		 1798 /* First, we look through the symbols and work out which are
1799 from 32-bit objects and which from 64-bit ones. */
1800 sym_32 = sym_64 = str_32 = str_64 = 0;
252b5132 1801
330693f5
TR		 1802 current_bfd = abfd->archive_head;
1803 if (current_bfd != NULL)
1804 arch_info = bfd_get_arch_info (current_bfd);
1805 i = 0;
1806 while (current_bfd != NULL && i < orl_count)
f4ffd778 1807 {
330693f5
TR		 1808 while (map[i].u.abfd == current_bfd)
1809 {
1810 string_length = strlen (*map[i].name) + 1;
252b5132 1811
330693f5
TR		 1812 if (arch_info->bits_per_address == 64)
1813 {
1814 sym_64++;
1815 str_64 += string_length;
1816 }
1817 else
1818 {
1819 sym_32++;
1820 str_32 += string_length;
1821 }
1822 i++;
1823 }
cc481421 1824 current_bfd = current_bfd->archive_next;
330693f5
TR		 1825 if (current_bfd != NULL)
1826 arch_info = bfd_get_arch_info (current_bfd);
1827 }
5ea1af0d 1828
330693f5
TR		 1829 /* A quick sanity check... */
1830 BFD_ASSERT (sym_64 + sym_32 == orl_count);
1831 /* Explicit cast to int for compiler. */
1832 BFD_ASSERT ((int)(str_64 + str_32) == stridx);
1a6df346 1833
330693f5 1834 fhdr = xcoff_ardata_big (abfd);
252b5132 1835
330693f5
TR		 1836 /* xcoff_write_archive_contents_big passes nextoff in symoff. */
1837 READ20 (fhdr->memoff, prevoff);
1838 READ20 (fhdr->symoff, nextoff);
252b5132 1839
330693f5 1840 BFD_ASSERT (nextoff == bfd_tell (abfd));
5ea1af0d 1841
cf9ab45b
AM		 1842 /* Write out the symbol table.
1843 Layout :
1844
330693f5 1845 standard big archive header
cf9ab45b
AM		 1846 0x0000 ar_size [0x14]
1847 0x0014 ar_nxtmem [0x14]
1848 0x0028 ar_prvmem [0x14]
1849 0x003C ar_date [0x0C]
1850 0x0048 ar_uid [0x0C]
1851 0x0054 ar_gid [0x0C]
1852 0x0060 ar_mod [0x0C]
1853 0x006C ar_namelen[0x04]
1854 0x0070 ar_fmag [SXCOFFARFMAG]
1855
1856 Symbol table
1857 0x0072 num_syms [0x08], binary
1858 0x0078 offsets [0x08 * num_syms], binary
1859 0x0086 + 0x08 * num_syms names [??]
1860 ?? pad to even bytes.
330693f5
TR		 1861 */
1862
cf9ab45b 1863 if (sym_32)
330693f5
TR		 1864 {
1865 struct xcoff_ar_hdr_big *hdr;
f075ee0c
AM		 1866 char *symbol_table;
1867 char *st;
330693f5
TR		 1868 file_ptr fileoff;
1869
cf9ab45b 1870 bfd_vma symbol_table_size =
330693f5
TR		 1871 SIZEOF_AR_HDR_BIG
1872 + SXCOFFARFMAG
cf9ab45b
AM		 1873 + 8
1874 + 8 * sym_32
330693f5
TR		 1875 + str_32 + (str_32 & 1);
1876
f075ee0c 1877 symbol_table = bfd_zmalloc (symbol_table_size);
330693f5 1878 if (symbol_table == NULL)
b34976b6 1879 return FALSE;
330693f5
TR		 1880
1881 hdr = (struct xcoff_ar_hdr_big *) symbol_table;
cf9ab45b 1882
330693f5 1883 PRINT20 (hdr->size, 8 + 8 * sym_32 + str_32 + (str_32 & 1));
cf9ab45b 1884
330693f5
TR		 1885 if (sym_64)
1886 PRINT20 (hdr->nextoff, nextoff + symbol_table_size);
1a6df346 1887 else
330693f5
TR		 1888 PRINT20 (hdr->nextoff, 0);
1889
1890 PRINT20 (hdr->prevoff, prevoff);
1891 PRINT12 (hdr->date, 0);
1892 PRINT12 (hdr->uid, 0);
1893 PRINT12 (hdr->gid, 0);
1894 PRINT12 (hdr->mode, 0);
1895 PRINT4 (hdr->namlen, 0) ;
1896
1897 st = symbol_table + SIZEOF_AR_HDR_BIG;
1898 memcpy (st, XCOFFARFMAG, SXCOFFARFMAG);
1899 st += SXCOFFARFMAG;
1900
1901 bfd_h_put_64 (abfd, sym_32, st);
1902 st += 8;
cf9ab45b 1903
330693f5
TR		 1904 /* loop over the 32 bit offsets */
1905 current_bfd = abfd->archive_head;
1906 if (current_bfd != NULL)
1907 arch_info = bfd_get_arch_info (current_bfd);
1908 fileoff = SIZEOF_AR_FILE_HDR_BIG;
1909 i = 0;
1910 while (current_bfd != NULL && i < orl_count)
1911 {
1912 while (map[i].u.abfd == current_bfd)
1913 {
1914 if (arch_info->bits_per_address == 32)
1915 {
1916 bfd_h_put_64 (abfd, fileoff, st);
1917 st += 8;
1918 }
1919 i++;
1920 }
1921 string_length = strlen (normalize_filename (current_bfd));
1922 string_length += string_length & 1;
1923 fileoff += (SIZEOF_AR_HDR_BIG
1924 + string_length
1925 + SXCOFFARFMAG
1926 + arelt_size (current_bfd));
1927 fileoff += fileoff & 1;
cc481421 1928 current_bfd = current_bfd->archive_next;
330693f5
TR		 1929 if (current_bfd != NULL)
1930 arch_info = bfd_get_arch_info (current_bfd);
1931 }
1a6df346 1932
330693f5
TR		 1933 /* loop over the 32 bit symbol names */
1934 current_bfd = abfd->archive_head;
1935 if (current_bfd != NULL)
1936 arch_info = bfd_get_arch_info (current_bfd);
1937 i = 0;
1938 while (current_bfd != NULL && i < orl_count)
1939 {
1940 while (map[i].u.abfd == current_bfd)
1941 {
1942 if (arch_info->bits_per_address == 32)
1943 {
1944 string_length = sprintf (st, "%s", *map[i].name);
1945 st += string_length + 1;
1946 }
1947 i++;
1948 }
cc481421 1949 current_bfd = current_bfd->archive_next;
330693f5
TR		 1950 if (current_bfd != NULL)
1951 arch_info = bfd_get_arch_info (current_bfd);
1952 }
5ea1af0d 1953
330693f5 1954 bfd_bwrite (symbol_table, symbol_table_size, abfd);
1a6df346 1955
330693f5 1956 free (symbol_table);
5ea1af0d 1957
330693f5
TR		 1958 prevoff = nextoff;
1959 nextoff = nextoff + symbol_table_size;
5ea1af0d 1960 }
cf9ab45b 1961 else
330693f5 1962 PRINT20 (fhdr->symoff, 0);
cf9ab45b
AM		 1963
1964 if (sym_64)
330693f5
TR		 1965 {
1966 struct xcoff_ar_hdr_big *hdr;
f075ee0c
AM		 1967 char *symbol_table;
1968 char *st;
330693f5
TR		 1969 file_ptr fileoff;
1970
cf9ab45b 1971 bfd_vma symbol_table_size =
330693f5
TR		 1972 SIZEOF_AR_HDR_BIG
1973 + SXCOFFARFMAG
cf9ab45b
AM		 1974 + 8
1975 + 8 * sym_64
330693f5
TR		 1976 + str_64 + (str_64 & 1);
1977
f075ee0c 1978 symbol_table = bfd_zmalloc (symbol_table_size);
330693f5 1979 if (symbol_table == NULL)
b34976b6 1980 return FALSE;
330693f5
TR		 1981
1982 hdr = (struct xcoff_ar_hdr_big *) symbol_table;
1983
1984 PRINT20 (hdr->size, 8 + 8 * sym_64 + str_64 + (str_64 & 1));
1985 PRINT20 (hdr->nextoff, 0);
1986 PRINT20 (hdr->prevoff, prevoff);
1987 PRINT12 (hdr->date, 0);
1988 PRINT12 (hdr->uid, 0);
1989 PRINT12 (hdr->gid, 0);
1990 PRINT12 (hdr->mode, 0);
1991 PRINT4 (hdr->namlen, 0);
1992
1993 st = symbol_table + SIZEOF_AR_HDR_BIG;
1994 memcpy (st, XCOFFARFMAG, SXCOFFARFMAG);
1995 st += SXCOFFARFMAG;
1996
1997 bfd_h_put_64 (abfd, sym_64, st);
1998 st += 8;
cf9ab45b 1999
330693f5
TR		 2000 /* loop over the 64 bit offsets */
2001 current_bfd = abfd->archive_head;
2002 if (current_bfd != NULL)
2003 arch_info = bfd_get_arch_info (current_bfd);
2004 fileoff = SIZEOF_AR_FILE_HDR_BIG;
2005 i = 0;
2006 while (current_bfd != NULL && i < orl_count)
1a6df346 2007 {
330693f5
TR		 2008 while (map[i].u.abfd == current_bfd)
2009 {
2010 if (arch_info->bits_per_address == 64)
2011 {
2012 bfd_h_put_64 (abfd, fileoff, st);
2013 st += 8;
2014 }
2015 i++;
2016 }
2017 string_length = strlen (normalize_filename (current_bfd));
2018 string_length += string_length & 1;
2019 fileoff += (SIZEOF_AR_HDR_BIG
2020 + string_length
2021 + SXCOFFARFMAG
2022 + arelt_size (current_bfd));
2023 fileoff += fileoff & 1;
cc481421 2024 current_bfd = current_bfd->archive_next;
330693f5
TR		 2025 if (current_bfd != NULL)
2026 arch_info = bfd_get_arch_info (current_bfd);
1a6df346 2027 }
330693f5
TR		 2028
2029 /* loop over the 64 bit symbol names */
2030 current_bfd = abfd->archive_head;
2031 if (current_bfd != NULL)
2032 arch_info = bfd_get_arch_info (current_bfd);
2033 i = 0;
2034 while (current_bfd != NULL && i < orl_count)
1a6df346 2035 {
330693f5
TR		 2036 while (map[i].u.abfd == current_bfd)
2037 {
2038 if (arch_info->bits_per_address == 64)
2039 {
2040 string_length = sprintf (st, "%s", *map[i].name);
2041 st += string_length + 1;
2042 }
2043 i++;
2044 }
cc481421 2045 current_bfd = current_bfd->archive_next;
330693f5
TR		 2046 if (current_bfd != NULL)
2047 arch_info = bfd_get_arch_info (current_bfd);
1a6df346 2048 }
1a6df346 2049
330693f5
TR		 2050 bfd_bwrite (symbol_table, symbol_table_size, abfd);
2051
2052 free (symbol_table);
dc810e39 2053
330693f5
TR		 2054 PRINT20 (fhdr->symoff64, nextoff);
2055 }
cf9ab45b 2056 else
330693f5 2057 PRINT20 (fhdr->symoff64, 0);
cf9ab45b 2058
b34976b6 2059 return TRUE;
1a6df346
GK		 2060}
2061
b34976b6 2062bfd_boolean
7f6d05e8 2063_bfd_xcoff_write_armap (abfd, elength, map, orl_count, stridx)
5ea1af0d
GK		 2064 bfd *abfd;
2065 unsigned int elength ATTRIBUTE_UNUSED;
2066 struct orl *map;
2067 unsigned int orl_count;
2068 int stridx;
2069{
2070 if (! xcoff_big_format_p (abfd))
2071 return xcoff_write_armap_old (abfd, elength, map, orl_count, stridx);
2072 else
2073 return xcoff_write_armap_big (abfd, elength, map, orl_count, stridx);
2074}
2075
2076/* Write out an XCOFF archive. We always write an entire archive,
2077 rather than fussing with the freelist and so forth. */
2078
b34976b6 2079static bfd_boolean
5ea1af0d
GK		 2080xcoff_write_archive_contents_old (abfd)
2081 bfd *abfd;
2082{
2083 struct xcoff_ar_file_hdr fhdr;
dc810e39
AM		 2084 bfd_size_type count;
2085 bfd_size_type total_namlen;
5ea1af0d 2086 file_ptr *offsets;
b34976b6
AM		 2087 bfd_boolean makemap;
2088 bfd_boolean hasobjects;
9dadfa79 2089 file_ptr prevoff, nextoff;
5ea1af0d 2090 bfd *sub;
dc810e39 2091 size_t i;
5ea1af0d
GK		 2092 struct xcoff_ar_hdr ahdr;
2093 bfd_size_type size;
2094 char *p;
330693f5 2095 char decbuf[XCOFFARMAG_ELEMENT_SIZE + 1];
5ea1af0d
GK		 2096
2097 memset (&fhdr, 0, sizeof fhdr);
f05742e6 2098 (void) strncpy (fhdr.magic, XCOFFARMAG, SXCOFFARMAG);
5ea1af0d
GK		 2099 sprintf (fhdr.firstmemoff, "%d", SIZEOF_AR_FILE_HDR);
2100 sprintf (fhdr.freeoff, "%d", 0);
2101
2102 count = 0;
2103 total_namlen = 0;
cc481421 2104 for (sub = abfd->archive_head; sub != NULL; sub = sub->archive_next)
5ea1af0d
GK		 2105 {
2106 ++count;
2107 total_namlen += strlen (normalize_filename (sub)) + 1;
2108 }
2109 offsets = (file_ptr *) bfd_alloc (abfd, count * sizeof (file_ptr));
2110 if (offsets == NULL)
b34976b6 2111 return FALSE;
5ea1af0d 2112
dc810e39 2113 if (bfd_seek (abfd, (file_ptr) SIZEOF_AR_FILE_HDR, SEEK_SET) != 0)
b34976b6 2114 return FALSE;
5ea1af0d
GK		 2115
2116 makemap = bfd_has_map (abfd);
b34976b6 2117 hasobjects = FALSE;
5ea1af0d
GK		 2118 prevoff = 0;
2119 nextoff = SIZEOF_AR_FILE_HDR;
cc481421
AM		 2120 for (sub = abfd->archive_head, i = 0;
2121 sub != NULL;
2122 sub = sub->archive_next, i++)
5ea1af0d
GK		 2123 {
2124 const char *name;
dc810e39 2125 bfd_size_type namlen;
252b5132
RH		 2126 struct xcoff_ar_hdr *ahdrp;
2127 bfd_size_type remaining;
2128
2129 if (makemap && ! hasobjects)
2130 {
2131 if (bfd_check_format (sub, bfd_object))
b34976b6 2132 hasobjects = TRUE;
252b5132
RH		 2133 }
2134
2135 name = normalize_filename (sub);
2136 namlen = strlen (name);
2137
2138 if (sub->arelt_data != NULL)
2139 ahdrp = arch_xhdr (sub);
2140 else
2141 ahdrp = NULL;
2142
2143 if (ahdrp == NULL)
2144 {
2145 struct stat s;
2146
2147 memset (&ahdr, 0, sizeof ahdr);
2148 ahdrp = &ahdr;
2149 if (stat (bfd_get_filename (sub), &s) != 0)
2150 {
2151 bfd_set_error (bfd_error_system_call);
b34976b6 2152 return FALSE;
252b5132
RH		 2153 }
2154
2155 sprintf (ahdrp->size, "%ld", (long) s.st_size);
2156 sprintf (ahdrp->date, "%ld", (long) s.st_mtime);
2157 sprintf (ahdrp->uid, "%ld", (long) s.st_uid);
2158 sprintf (ahdrp->gid, "%ld", (long) s.st_gid);
2159 sprintf (ahdrp->mode, "%o", (unsigned int) s.st_mode);
2160
2161 if (sub->arelt_data == NULL)
2162 {
dc810e39
AM		 2163 size = sizeof (struct areltdata);
2164 sub->arelt_data = bfd_alloc (sub, size);
252b5132 2165 if (sub->arelt_data == NULL)
b34976b6 2166 return FALSE;
252b5132
RH		 2167 }
2168
2169 arch_eltdata (sub)->parsed_size = s.st_size;
2170 }
2171
2172 sprintf (ahdrp->prevoff, "%ld", (long) prevoff);
2173 sprintf (ahdrp->namlen, "%ld", (long) namlen);
2174
2175 /* If the length of the name is odd, we write out the null byte
cf9ab45b 2176 after the name as well. */
dc810e39 2177 namlen = (namlen + 1) &~ (bfd_size_type) 1;
252b5132
RH		 2178
2179 remaining = arelt_size (sub);
2180 size = (SIZEOF_AR_HDR
2181 + namlen
2182 + SXCOFFARFMAG
2183 + remaining);
2184
2185 BFD_ASSERT (nextoff == bfd_tell (abfd));
2186
2187 offsets[i] = nextoff;
2188
2189 prevoff = nextoff;
2190 nextoff += size + (size & 1);
2191
2192 sprintf (ahdrp->nextoff, "%ld", (long) nextoff);
2193
2194 /* We need spaces, not null bytes, in the header. */
2195 for (p = (char *) ahdrp; p < (char *) ahdrp + SIZEOF_AR_HDR; p++)
2196 if (*p == '\0')
2197 *p = ' ';
2198
dc810e39
AM		 2199 if ((bfd_bwrite ((PTR) ahdrp, (bfd_size_type) SIZEOF_AR_HDR, abfd)
2200 != SIZEOF_AR_HDR)
b34976b6
AM		 2201 || bfd_bwrite ((PTR) name, namlen, abfd) != namlen
2202 || bfd_bwrite ((PTR) XCOFFARFMAG, (bfd_size_type) SXCOFFARFMAG,
2203 abfd) != SXCOFFARFMAG)
2204 return FALSE;
252b5132
RH		 2205
2206 if (bfd_seek (sub, (file_ptr) 0, SEEK_SET) != 0)
b34976b6 2207 return FALSE;
252b5132 2208
eb1e0e80 2209 if (! do_copy (abfd, sub))
b34976b6 2210 return FALSE;
cf9ab45b 2211
eb1e0e80 2212 if (! do_pad (abfd, size & 1))
b34976b6 2213 return FALSE;
252b5132
RH		 2214 }
2215
2216 sprintf (fhdr.lastmemoff, "%ld", (long) prevoff);
2217
2218 /* Write out the member table. */
2219
2220 BFD_ASSERT (nextoff == bfd_tell (abfd));
2221 sprintf (fhdr.memoff, "%ld", (long) nextoff);
2222
2223 memset (&ahdr, 0, sizeof ahdr);
cf9ab45b
AM		 2224 sprintf (ahdr.size, "%ld", (long) (XCOFFARMAG_ELEMENT_SIZE
2225 + count * XCOFFARMAG_ELEMENT_SIZE
2226 + total_namlen));
252b5132
RH		 2227 sprintf (ahdr.prevoff, "%ld", (long) prevoff);
2228 sprintf (ahdr.date, "%d", 0);
2229 sprintf (ahdr.uid, "%d", 0);
2230 sprintf (ahdr.gid, "%d", 0);
2231 sprintf (ahdr.mode, "%d", 0);
2232 sprintf (ahdr.namlen, "%d", 0);
2233
2234 size = (SIZEOF_AR_HDR
330693f5
TR		 2235 + XCOFFARMAG_ELEMENT_SIZE
2236 + count * XCOFFARMAG_ELEMENT_SIZE
252b5132
RH		 2237 + total_namlen
2238 + SXCOFFARFMAG);
2239
2240 prevoff = nextoff;
2241 nextoff += size + (size & 1);
2242
2243 if (makemap && hasobjects)
2244 sprintf (ahdr.nextoff, "%ld", (long) nextoff);
2245 else
2246 sprintf (ahdr.nextoff, "%d", 0);
2247
2248 /* We need spaces, not null bytes, in the header. */
2249 for (p = (char *) &ahdr; p < (char *) &ahdr + SIZEOF_AR_HDR; p++)
2250 if (*p == '\0')
2251 *p = ' ';
2252
dc810e39
AM		 2253 if ((bfd_bwrite ((PTR) &ahdr, (bfd_size_type) SIZEOF_AR_HDR, abfd)
2254 != SIZEOF_AR_HDR)
2255 || (bfd_bwrite ((PTR) XCOFFARFMAG, (bfd_size_type) SXCOFFARFMAG, abfd)
252b5132 2256 != SXCOFFARFMAG))
b34976b6 2257 return FALSE;
252b5132
RH		 2258
2259 sprintf (decbuf, "%-12ld", (long) count);
330693f5
TR		 2260 if (bfd_bwrite ((PTR) decbuf, (bfd_size_type) XCOFFARMAG_ELEMENT_SIZE, abfd)
2261 != XCOFFARMAG_ELEMENT_SIZE)
b34976b6 2262 return FALSE;
dc810e39 2263 for (i = 0; i < (size_t) count; i++)
252b5132
RH		 2264 {
2265 sprintf (decbuf, "%-12ld", (long) offsets[i]);
cf9ab45b 2266 if (bfd_bwrite ((PTR) decbuf, (bfd_size_type) XCOFFARMAG_ELEMENT_SIZE,
330693f5 2267 abfd) != XCOFFARMAG_ELEMENT_SIZE)
b34976b6 2268 return FALSE;
252b5132 2269 }
cc481421 2270 for (sub = abfd->archive_head; sub != NULL; sub = sub->archive_next)
252b5132
RH		 2271 {
2272 const char *name;
dc810e39 2273 bfd_size_type namlen;
252b5132
RH		 2274
2275 name = normalize_filename (sub);
2276 namlen = strlen (name);
dc810e39 2277 if (bfd_bwrite ((PTR) name, namlen + 1, abfd) != namlen + 1)
b34976b6 2278 return FALSE;
252b5132 2279 }
252b5132 2280
eb1e0e80 2281 if (! do_pad (abfd, size & 1))
b34976b6 2282 return FALSE;
252b5132
RH		 2283
2284 /* Write out the armap, if appropriate. */
252b5132
RH		 2285 if (! makemap || ! hasobjects)
2286 sprintf (fhdr.symoff, "%d", 0);
2287 else
2288 {
2289 BFD_ASSERT (nextoff == bfd_tell (abfd));
2290 sprintf (fhdr.symoff, "%ld", (long) nextoff);
2291 bfd_ardata (abfd)->tdata = (PTR) &fhdr;
2292 if (! _bfd_compute_and_write_armap (abfd, 0))
b34976b6 2293 return FALSE;
252b5132
RH		 2294 }
2295
2296 /* Write out the archive file header. */
2297
2298 /* We need spaces, not null bytes, in the header. */
2299 for (p = (char *) &fhdr; p < (char *) &fhdr + SIZEOF_AR_FILE_HDR; p++)
2300 if (*p == '\0')
2301 *p = ' ';
2302
2303 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0
dc810e39
AM		 2304 || (bfd_bwrite ((PTR) &fhdr, (bfd_size_type) SIZEOF_AR_FILE_HDR, abfd)
2305 != SIZEOF_AR_FILE_HDR))
b34976b6 2306 return FALSE;
252b5132 2307
b34976b6 2308 return TRUE;
252b5132 2309}
5ea1af0d 2310
b34976b6 2311static bfd_boolean
5ea1af0d
GK		 2312xcoff_write_archive_contents_big (abfd)
2313 bfd *abfd;
2314{
2315 struct xcoff_ar_file_hdr_big fhdr;
dc810e39
AM		 2316 bfd_size_type count;
2317 bfd_size_type total_namlen;
5ea1af0d 2318 file_ptr *offsets;
b34976b6
AM		 2319 bfd_boolean makemap;
2320 bfd_boolean hasobjects;
9dadfa79 2321 file_ptr prevoff, nextoff;
330693f5 2322 bfd *current_bfd;
dc810e39 2323 size_t i;
330693f5 2324 struct xcoff_ar_hdr_big *hdr, ahdr;
5ea1af0d 2325 bfd_size_type size;
f075ee0c 2326 char *member_table, *mt;
330693f5 2327 bfd_vma member_table_size;
5ea1af0d 2328
eb1e0e80 2329 memset (&fhdr, 0, SIZEOF_AR_FILE_HDR_BIG);
330693f5 2330 memcpy (fhdr.magic, XCOFFARMAGBIG, SXCOFFARMAG);
5ea1af0d 2331
eb1e0e80 2332 if (bfd_seek (abfd, (file_ptr) SIZEOF_AR_FILE_HDR_BIG, SEEK_SET) != 0)
b34976b6 2333 return FALSE;
cf9ab45b 2334
eb1e0e80
NC		 2335 /* Calculate count and total_namlen. */
2336 makemap = bfd_has_map (abfd);
b34976b6 2337 hasobjects = FALSE;
cf9ab45b
AM		 2338 for (current_bfd = abfd->archive_head, count = 0, total_namlen = 0;
2339 current_bfd != NULL;
cc481421 2340 current_bfd = current_bfd->archive_next, count++)
eb1e0e80
NC		 2341 {
2342 total_namlen += strlen (normalize_filename (current_bfd)) + 1;
2343
2344 if (makemap
2345 && ! hasobjects
2346 && bfd_check_format (current_bfd, bfd_object))
b34976b6 2347 hasobjects = TRUE;
eb1e0e80 2348 }
330693f5
TR		 2349
2350 offsets = NULL;
2351 if (count)
5ea1af0d 2352 {
330693f5
TR		 2353 offsets = (file_ptr *) bfd_malloc (count * sizeof (file_ptr));
2354 if (offsets == NULL)
b34976b6 2355 return FALSE;
5ea1af0d 2356 }
5ea1af0d 2357
5ea1af0d
GK		 2358 prevoff = 0;
2359 nextoff = SIZEOF_AR_FILE_HDR_BIG;
cf9ab45b
AM		 2360 for (current_bfd = abfd->archive_head, i = 0;
2361 current_bfd != NULL;
cc481421 2362 current_bfd = current_bfd->archive_next, i++)
5ea1af0d
GK		 2363 {
2364 const char *name;
dc810e39 2365 bfd_size_type namlen;
5ea1af0d
GK		 2366 struct xcoff_ar_hdr_big *ahdrp;
2367 bfd_size_type remaining;
2368
330693f5 2369 name = normalize_filename (current_bfd);
5ea1af0d
GK		 2370 namlen = strlen (name);
2371
330693f5
TR		 2372 if (current_bfd->arelt_data != NULL)
2373 ahdrp = arch_xhdr_big (current_bfd);
5ea1af0d
GK		 2374 else
2375 ahdrp = NULL;
2376
2377 if (ahdrp == NULL)
2378 {
2379 struct stat s;
2380
5ea1af0d
GK		 2381 ahdrp = &ahdr;
2382 /* XXX This should actually be a call to stat64 (at least on
cf9ab45b 2383 32-bit machines).
330693f5
TR		 2384 XXX This call will fail if the original object is not found. */
2385 if (stat (bfd_get_filename (current_bfd), &s) != 0)
5ea1af0d
GK		 2386 {
2387 bfd_set_error (bfd_error_system_call);
b34976b6 2388 return FALSE;
5ea1af0d
GK		 2389 }
2390
330693f5
TR		 2391 PRINT20 (ahdrp->size, s.st_size);
2392 PRINT12 (ahdrp->date, s.st_mtime);
2393 PRINT12 (ahdrp->uid, s.st_uid);
2394 PRINT12 (ahdrp->gid, s.st_gid);
2395 PRINT12_OCTAL (ahdrp->mode, s.st_mode);
5ea1af0d 2396
330693f5 2397 if (current_bfd->arelt_data == NULL)
5ea1af0d 2398 {
dc810e39 2399 size = sizeof (struct areltdata);
330693f5
TR		 2400 current_bfd->arelt_data = bfd_alloc (current_bfd, size);
2401 if (current_bfd->arelt_data == NULL)
b34976b6 2402 return FALSE;
5ea1af0d
GK		 2403 }
2404
330693f5 2405 arch_eltdata (current_bfd)->parsed_size = s.st_size;
5ea1af0d
GK		 2406 }
2407
330693f5
TR		 2408 PRINT20 (ahdrp->prevoff, prevoff);
2409 PRINT4 (ahdrp->namlen, namlen);
5ea1af0d
GK		 2410
2411 /* If the length of the name is odd, we write out the null byte
cf9ab45b 2412 after the name as well. */
dc810e39 2413 namlen = (namlen + 1) &~ (bfd_size_type) 1;
5ea1af0d 2414
330693f5 2415 remaining = arelt_size (current_bfd);
5ea1af0d
GK		 2416 size = (SIZEOF_AR_HDR_BIG
2417 + namlen
2418 + SXCOFFARFMAG
2419 + remaining);
2420
2421 BFD_ASSERT (nextoff == bfd_tell (abfd));
2422
eb1e0e80
NC		 2423 /* Check for xcoff shared objects.
2424 Their text section needs to be aligned wrt the archive file position.
2425 This requires extra padding before the archive header. */
2426 if (! do_shared_object_padding (abfd, current_bfd, & nextoff,
cf9ab45b 2427 SIZEOF_AR_HDR_BIG + namlen
eb1e0e80 2428 + SXCOFFARFMAG))
b34976b6 2429 return FALSE;
eb1e0e80 2430
5ea1af0d
GK		 2431 offsets[i] = nextoff;
2432
2433 prevoff = nextoff;
2434 nextoff += size + (size & 1);
2435
330693f5 2436 PRINT20 (ahdrp->nextoff, nextoff);
5ea1af0d 2437
dc810e39
AM		 2438 if ((bfd_bwrite ((PTR) ahdrp, (bfd_size_type) SIZEOF_AR_HDR_BIG, abfd)
2439 != SIZEOF_AR_HDR_BIG)
2440 || bfd_bwrite ((PTR) name, (bfd_size_type) namlen, abfd) != namlen
cf9ab45b 2441 || (bfd_bwrite ((PTR) XCOFFARFMAG, (bfd_size_type) SXCOFFARFMAG,
330693f5 2442 abfd) != SXCOFFARFMAG))
b34976b6 2443 return FALSE;
5ea1af0d 2444
330693f5 2445 if (bfd_seek (current_bfd, (file_ptr) 0, SEEK_SET) != 0)
b34976b6 2446 return FALSE;
5ea1af0d 2447
eb1e0e80 2448 if (! do_copy (abfd, current_bfd))
b34976b6 2449 return FALSE;
cf9ab45b 2450
eb1e0e80 2451 if (! do_pad (abfd, size & 1))
b34976b6 2452 return FALSE;
5ea1af0d
GK		 2453 }
2454
eb1e0e80
NC		 2455 if (count)
2456 {
2457 PRINT20 (fhdr.firstmemoff, offsets[0]);
2458 PRINT20 (fhdr.lastmemoff, prevoff);
2459 }
5ea1af0d 2460
cf9ab45b
AM		 2461 /* Write out the member table.
2462 Layout :
5ea1af0d 2463
330693f5 2464 standard big archive header
cf9ab45b
AM		 2465 0x0000 ar_size [0x14]
2466 0x0014 ar_nxtmem [0x14]
2467 0x0028 ar_prvmem [0x14]
2468 0x003C ar_date [0x0C]
2469 0x0048 ar_uid [0x0C]
2470 0x0054 ar_gid [0x0C]
2471 0x0060 ar_mod [0x0C]
2472 0x006C ar_namelen[0x04]
2473 0x0070 ar_fmag [0x02]
2474
2475 Member table
2476 0x0072 count [0x14]
2477 0x0086 offsets [0x14 * counts]
2478 0x0086 + 0x14 * counts names [??]
2479 ?? pad to even bytes.
330693f5 2480 */
5ea1af0d 2481
330693f5 2482 BFD_ASSERT (nextoff == bfd_tell (abfd));
5ea1af0d 2483
330693f5
TR		 2484 member_table_size = (SIZEOF_AR_HDR_BIG
2485 + SXCOFFARFMAG
2486 + XCOFFARMAGBIG_ELEMENT_SIZE
2487 + count * XCOFFARMAGBIG_ELEMENT_SIZE
2488 + total_namlen);
5ea1af0d 2489
330693f5 2490 member_table_size += member_table_size & 1;
f075ee0c 2491 member_table = bfd_zmalloc (member_table_size);
330693f5 2492 if (member_table == NULL)
b34976b6 2493 return FALSE;
5ea1af0d 2494
330693f5 2495 hdr = (struct xcoff_ar_hdr_big *) member_table;
5ea1af0d 2496
cf9ab45b
AM		 2497 PRINT20 (hdr->size, (XCOFFARMAGBIG_ELEMENT_SIZE
2498 + count * XCOFFARMAGBIG_ELEMENT_SIZE
2499 + total_namlen + (total_namlen & 1)));
2500 if (makemap && hasobjects)
330693f5
TR		 2501 PRINT20 (hdr->nextoff, nextoff + member_table_size);
2502 else
2503 PRINT20 (hdr->nextoff, 0);
2504 PRINT20 (hdr->prevoff, prevoff);
2505 PRINT12 (hdr->date, 0);
2506 PRINT12 (hdr->uid, 0);
2507 PRINT12 (hdr->gid, 0);
2508 PRINT12 (hdr->mode, 0);
2509 PRINT4 (hdr->namlen, 0);
cf9ab45b 2510
330693f5
TR		 2511 mt = member_table + SIZEOF_AR_HDR_BIG;
2512 memcpy (mt, XCOFFARFMAG, SXCOFFARFMAG);
2513 mt += SXCOFFARFMAG;
5ea1af0d 2514
330693f5
TR		 2515 PRINT20 (mt, count);
2516 mt += XCOFFARMAGBIG_ELEMENT_SIZE;
dc810e39 2517 for (i = 0; i < (size_t) count; i++)
5ea1af0d 2518 {
330693f5
TR		 2519 PRINT20 (mt, offsets[i]);
2520 mt += XCOFFARMAGBIG_ELEMENT_SIZE;
5ea1af0d 2521 }
330693f5 2522
cf9ab45b 2523 if (count)
330693f5
TR		 2524 {
2525 free (offsets);
2526 offsets = NULL;
2527 }
2528
cc481421
AM		 2529 for (current_bfd = abfd->archive_head;
2530 current_bfd != NULL;
2531 current_bfd = current_bfd->archive_next)
5ea1af0d
GK		 2532 {
2533 const char *name;
2534 size_t namlen;
2535
330693f5 2536 name = normalize_filename (current_bfd);
cf9ab45b 2537 namlen = sprintf (mt, "%s", name);
330693f5 2538 mt += namlen + 1;
5ea1af0d 2539 }
cf9ab45b 2540
330693f5 2541 if (bfd_bwrite (member_table, member_table_size, abfd) != member_table_size)
b34976b6 2542 return FALSE;
5ea1af0d 2543
330693f5 2544 free (member_table);
330693f5
TR		 2545
2546 PRINT20 (fhdr.memoff, nextoff);
2547
2548 prevoff = nextoff;
2549 nextoff += member_table_size;
5ea1af0d
GK		 2550
2551 /* Write out the armap, if appropriate. */
2552
cf9ab45b 2553 if (! makemap || ! hasobjects)
330693f5 2554 PRINT20 (fhdr.symoff, 0);
5ea1af0d
GK		 2555 else
2556 {
2557 BFD_ASSERT (nextoff == bfd_tell (abfd));
330693f5
TR		 2558
2559 /* Save nextoff in fhdr.symoff so the armap routine can use it. */
2560 PRINT20 (fhdr.symoff, nextoff);
cf9ab45b 2561
5ea1af0d
GK		 2562 bfd_ardata (abfd)->tdata = (PTR) &fhdr;
2563 if (! _bfd_compute_and_write_armap (abfd, 0))
b34976b6 2564 return FALSE;
5ea1af0d
GK		 2565 }
2566
2567 /* Write out the archive file header. */
2568
5ea1af0d 2569 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0
cf9ab45b 2570 || (bfd_bwrite ((PTR) &fhdr, (bfd_size_type) SIZEOF_AR_FILE_HDR_BIG,
330693f5 2571 abfd) != SIZEOF_AR_FILE_HDR_BIG))
b34976b6 2572 return FALSE;
cf9ab45b 2573
b34976b6 2574 return TRUE;
5ea1af0d
GK		 2575}
2576
b34976b6 2577bfd_boolean
7f6d05e8 2578_bfd_xcoff_write_archive_contents (abfd)
5ea1af0d
GK		 2579 bfd *abfd;
2580{
2581 if (! xcoff_big_format_p (abfd))
2582 return xcoff_write_archive_contents_old (abfd);
2583 else
2584 return xcoff_write_archive_contents_big (abfd);
2585}
252b5132
RH		 2586\f
2587/* We can't use the usual coff_sizeof_headers routine, because AIX
2588 always uses an a.out header. */
2589
7f6d05e8 2590int
a6b96beb
AM		 2591_bfd_xcoff_sizeof_headers (bfd *abfd,
2592 struct bfd_link_info *info ATTRIBUTE_UNUSED)
252b5132
RH		 2593{
2594 int size;
2595
2596 size = FILHSZ;
2597 if (xcoff_data (abfd)->full_aouthdr)
2598 size += AOUTSZ;
2599 else
2600 size += SMALL_AOUTSZ;
2601 size += abfd->section_count * SCNHSZ;
2602 return size;
2603}
beb1bf64
TR		 2604\f
2605/* Routines to swap information in the XCOFF .loader section. If we
2606 ever need to write an XCOFF loader, this stuff will need to be
2607 moved to another file shared by the linker (which XCOFF calls the
2608 ``binder'') and the loader. */
2609
2610/* Swap in the ldhdr structure. */
2611
2612static void
814fa6ab 2613xcoff_swap_ldhdr_in (abfd, s, dst)
beb1bf64 2614 bfd *abfd;
814fa6ab 2615 const PTR s;
beb1bf64
TR		 2616 struct internal_ldhdr *dst;
2617{
814fa6ab
AM		 2618 const struct external_ldhdr *src = (const struct external_ldhdr *) s;
2619
beb1bf64
TR		 2620 dst->l_version = bfd_get_32 (abfd, src->l_version);
2621 dst->l_nsyms = bfd_get_32 (abfd, src->l_nsyms);
2622 dst->l_nreloc = bfd_get_32 (abfd, src->l_nreloc);
2623 dst->l_istlen = bfd_get_32 (abfd, src->l_istlen);
2624 dst->l_nimpid = bfd_get_32 (abfd, src->l_nimpid);
2625 dst->l_impoff = bfd_get_32 (abfd, src->l_impoff);
2626 dst->l_stlen = bfd_get_32 (abfd, src->l_stlen);
2627 dst->l_stoff = bfd_get_32 (abfd, src->l_stoff);
2628}
2629
2630/* Swap out the ldhdr structure. */
2631
2632static void
814fa6ab 2633xcoff_swap_ldhdr_out (abfd, src, d)
beb1bf64
TR		 2634 bfd *abfd;
2635 const struct internal_ldhdr *src;
814fa6ab 2636 PTR d;
beb1bf64 2637{
814fa6ab
AM		 2638 struct external_ldhdr *dst = (struct external_ldhdr *) d;
2639
dc810e39 2640 bfd_put_32 (abfd, (bfd_vma) src->l_version, dst->l_version);
beb1bf64
TR		 2641 bfd_put_32 (abfd, src->l_nsyms, dst->l_nsyms);
2642 bfd_put_32 (abfd, src->l_nreloc, dst->l_nreloc);
2643 bfd_put_32 (abfd, src->l_istlen, dst->l_istlen);
2644 bfd_put_32 (abfd, src->l_nimpid, dst->l_nimpid);
2645 bfd_put_32 (abfd, src->l_impoff, dst->l_impoff);
2646 bfd_put_32 (abfd, src->l_stlen, dst->l_stlen);
2647 bfd_put_32 (abfd, src->l_stoff, dst->l_stoff);
2648}
2649
2650/* Swap in the ldsym structure. */
2651
2652static void
814fa6ab 2653xcoff_swap_ldsym_in (abfd, s, dst)
beb1bf64 2654 bfd *abfd;
814fa6ab 2655 const PTR s;
beb1bf64
TR		 2656 struct internal_ldsym *dst;
2657{
814fa6ab
AM		 2658 const struct external_ldsym *src = (const struct external_ldsym *) s;
2659
beb1bf64
TR		 2660 if (bfd_get_32 (abfd, src->_l._l_l._l_zeroes) != 0) {
2661 memcpy (dst->_l._l_name, src->_l._l_name, SYMNMLEN);
2662 } else {
2663 dst->_l._l_l._l_zeroes = 0;
2664 dst->_l._l_l._l_offset = bfd_get_32 (abfd, src->_l._l_l._l_offset);
2665 }
2666 dst->l_value = bfd_get_32 (abfd, src->l_value);
2667 dst->l_scnum = bfd_get_16 (abfd, src->l_scnum);
2668 dst->l_smtype = bfd_get_8 (abfd, src->l_smtype);
2669 dst->l_smclas = bfd_get_8 (abfd, src->l_smclas);
2670 dst->l_ifile = bfd_get_32 (abfd, src->l_ifile);
2671 dst->l_parm = bfd_get_32 (abfd, src->l_parm);
2672}
2673
2674/* Swap out the ldsym structure. */
2675
2676static void
814fa6ab 2677xcoff_swap_ldsym_out (abfd, src, d)
beb1bf64
TR		 2678 bfd *abfd;
2679 const struct internal_ldsym *src;
814fa6ab 2680 PTR d;
beb1bf64 2681{
814fa6ab 2682 struct external_ldsym *dst = (struct external_ldsym *) d;
beb1bf64
TR		 2683
2684 if (src->_l._l_l._l_zeroes != 0)
2685 memcpy (dst->_l._l_name, src->_l._l_name, SYMNMLEN);
2686 else
2687 {
dc810e39
AM		 2688 bfd_put_32 (abfd, (bfd_vma) 0, dst->_l._l_l._l_zeroes);
2689 bfd_put_32 (abfd, (bfd_vma) src->_l._l_l._l_offset,
2690 dst->_l._l_l._l_offset);
beb1bf64
TR		 2691 }
2692 bfd_put_32 (abfd, src->l_value, dst->l_value);
dc810e39 2693 bfd_put_16 (abfd, (bfd_vma) src->l_scnum, dst->l_scnum);
beb1bf64
TR		 2694 bfd_put_8 (abfd, src->l_smtype, dst->l_smtype);
2695 bfd_put_8 (abfd, src->l_smclas, dst->l_smclas);
2696 bfd_put_32 (abfd, src->l_ifile, dst->l_ifile);
2697 bfd_put_32 (abfd, src->l_parm, dst->l_parm);
2698}
2699
59862849
TR		 2700static void
2701xcoff_swap_reloc_in (abfd, s, d)
2702 bfd *abfd;
2703 PTR s;
2704 PTR d;
2705{
2706 struct external_reloc *src = (struct external_reloc *) s;
2707 struct internal_reloc *dst = (struct internal_reloc *) d;
2708
2709 memset (dst, 0, sizeof (struct internal_reloc));
2710
2711 dst->r_vaddr = bfd_get_32 (abfd, src->r_vaddr);
2712 dst->r_symndx = bfd_get_32 (abfd, src->r_symndx);
2713 dst->r_size = bfd_get_8 (abfd, src->r_size);
2714 dst->r_type = bfd_get_8 (abfd, src->r_type);
2715}
2716
2717static unsigned int
2718xcoff_swap_reloc_out (abfd, s, d)
2719 bfd *abfd;
2720 PTR s;
2721 PTR d;
2722{
2723 struct internal_reloc *src = (struct internal_reloc *) s;
2724 struct external_reloc *dst = (struct external_reloc *) d;
2725
2726 bfd_put_32 (abfd, src->r_vaddr, dst->r_vaddr);
2727 bfd_put_32 (abfd, src->r_symndx, dst->r_symndx);
2728 bfd_put_8 (abfd, src->r_type, dst->r_type);
2729 bfd_put_8 (abfd, src->r_size, dst->r_size);
2730
2731 return bfd_coff_relsz (abfd);
2732}
2733
beb1bf64
TR		 2734/* Swap in the ldrel structure. */
2735
2736static void
814fa6ab 2737xcoff_swap_ldrel_in (abfd, s, dst)
beb1bf64 2738 bfd *abfd;
814fa6ab 2739 const PTR s;
beb1bf64
TR		 2740 struct internal_ldrel *dst;
2741{
814fa6ab
AM		 2742 const struct external_ldrel *src = (const struct external_ldrel *) s;
2743
beb1bf64
TR		 2744 dst->l_vaddr = bfd_get_32 (abfd, src->l_vaddr);
2745 dst->l_symndx = bfd_get_32 (abfd, src->l_symndx);
2746 dst->l_rtype = bfd_get_16 (abfd, src->l_rtype);
2747 dst->l_rsecnm = bfd_get_16 (abfd, src->l_rsecnm);
2748}
2749
2750/* Swap out the ldrel structure. */
2751
2752static void
814fa6ab 2753xcoff_swap_ldrel_out (abfd, src, d)
beb1bf64
TR		 2754 bfd *abfd;
2755 const struct internal_ldrel *src;
814fa6ab 2756 PTR d;
beb1bf64 2757{
814fa6ab
AM		 2758 struct external_ldrel *dst = (struct external_ldrel *) d;
2759
beb1bf64
TR		 2760 bfd_put_32 (abfd, src->l_vaddr, dst->l_vaddr);
2761 bfd_put_32 (abfd, src->l_symndx, dst->l_symndx);
dc810e39
AM		 2762 bfd_put_16 (abfd, (bfd_vma) src->l_rtype, dst->l_rtype);
2763 bfd_put_16 (abfd, (bfd_vma) src->l_rsecnm, dst->l_rsecnm);
beb1bf64
TR		 2764}
2765\f
2766
b34976b6 2767bfd_boolean
cf9ab45b 2768xcoff_reloc_type_noop (input_bfd, input_section, output_bfd, rel, sym, howto,
dbe341c6
TR		 2769 val, addend, relocation, contents)
2770 bfd *input_bfd ATTRIBUTE_UNUSED;
2771 asection *input_section ATTRIBUTE_UNUSED;
2772 bfd *output_bfd ATTRIBUTE_UNUSED;
2773 struct internal_reloc *rel ATTRIBUTE_UNUSED;
2774 struct internal_syment *sym ATTRIBUTE_UNUSED;
2775 struct reloc_howto_struct *howto ATTRIBUTE_UNUSED;
2776 bfd_vma val ATTRIBUTE_UNUSED;
2777 bfd_vma addend ATTRIBUTE_UNUSED;
2778 bfd_vma *relocation ATTRIBUTE_UNUSED;
2779 bfd_byte *contents ATTRIBUTE_UNUSED;
2780{
b34976b6 2781 return TRUE;
dbe341c6
TR		 2782}
2783
b34976b6 2784bfd_boolean
cf9ab45b 2785xcoff_reloc_type_fail (input_bfd, input_section, output_bfd, rel, sym, howto,
dbe341c6
TR		 2786 val, addend, relocation, contents)
2787 bfd *input_bfd;
2788 asection *input_section ATTRIBUTE_UNUSED;
2789 bfd *output_bfd ATTRIBUTE_UNUSED;
2790 struct internal_reloc *rel;
2791 struct internal_syment *sym ATTRIBUTE_UNUSED;
2792 struct reloc_howto_struct *howto ATTRIBUTE_UNUSED;
2793 bfd_vma val ATTRIBUTE_UNUSED;
2794 bfd_vma addend ATTRIBUTE_UNUSED;
2795 bfd_vma *relocation ATTRIBUTE_UNUSED;
2796 bfd_byte *contents ATTRIBUTE_UNUSED;
2797{
2798 (*_bfd_error_handler)
2799 (_("%s: unsupported relocation type 0x%02x"),
2800 bfd_get_filename (input_bfd), (unsigned int) rel->r_type);
2801 bfd_set_error (bfd_error_bad_value);
b34976b6 2802 return FALSE;
dbe341c6
TR		 2803}
2804
b34976b6 2805bfd_boolean
cf9ab45b 2806xcoff_reloc_type_pos (input_bfd, input_section, output_bfd, rel, sym, howto,
dbe341c6
TR		 2807 val, addend, relocation, contents)
2808 bfd *input_bfd ATTRIBUTE_UNUSED;
2809 asection *input_section ATTRIBUTE_UNUSED;
2810 bfd *output_bfd ATTRIBUTE_UNUSED;
2811 struct internal_reloc *rel ATTRIBUTE_UNUSED;
2812 struct internal_syment *sym ATTRIBUTE_UNUSED;
2813 struct reloc_howto_struct *howto ATTRIBUTE_UNUSED;
2814 bfd_vma val;
2815 bfd_vma addend;
2816 bfd_vma *relocation;
2817 bfd_byte *contents ATTRIBUTE_UNUSED;
2818{
2819 *relocation = val + addend;
b34976b6 2820 return TRUE;
dbe341c6
TR		 2821}
2822
b34976b6 2823bfd_boolean
cf9ab45b 2824xcoff_reloc_type_neg (input_bfd, input_section, output_bfd, rel, sym, howto,
dbe341c6
TR		 2825 val, addend, relocation, contents)
2826 bfd *input_bfd ATTRIBUTE_UNUSED;
2827 asection *input_section ATTRIBUTE_UNUSED;
2828 bfd *output_bfd ATTRIBUTE_UNUSED;
2829 struct internal_reloc *rel ATTRIBUTE_UNUSED;
2830 struct internal_syment *sym ATTRIBUTE_UNUSED;
2831 struct reloc_howto_struct *howto ATTRIBUTE_UNUSED;
2832 bfd_vma val;
2833 bfd_vma addend;
2834 bfd_vma *relocation;
2835 bfd_byte *contents ATTRIBUTE_UNUSED;
2836{
2837 *relocation = addend - val;
b34976b6 2838 return TRUE;
dbe341c6
TR		 2839}
2840
b34976b6 2841bfd_boolean
cf9ab45b 2842xcoff_reloc_type_rel (input_bfd, input_section, output_bfd, rel, sym, howto,
dbe341c6
TR		 2843 val, addend, relocation, contents)
2844 bfd *input_bfd ATTRIBUTE_UNUSED;
2845 asection *input_section;
2846 bfd *output_bfd ATTRIBUTE_UNUSED;
2847 struct internal_reloc *rel ATTRIBUTE_UNUSED;
2848 struct internal_syment *sym ATTRIBUTE_UNUSED;
2849 struct reloc_howto_struct *howto;
2850 bfd_vma val;
2851 bfd_vma addend;
2852 bfd_vma *relocation;
2853 bfd_byte *contents ATTRIBUTE_UNUSED;
2854{
b34976b6 2855 howto->pc_relative = TRUE;
dbe341c6
TR		 2856
2857 /* A PC relative reloc includes the section address. */
2858 addend += input_section->vma;
2859
2860 *relocation = val + addend;
cf9ab45b
AM		 2861 *relocation -= (input_section->output_section->vma
2862 + input_section->output_offset);
b34976b6 2863 return TRUE;
dbe341c6 2864}
f1f0d9ab 2865
b34976b6 2866bfd_boolean
cf9ab45b 2867xcoff_reloc_type_toc (input_bfd, input_section, output_bfd, rel, sym, howto,
dbe341c6
TR		 2868 val, addend, relocation, contents)
2869 bfd *input_bfd;
2870 asection *input_section ATTRIBUTE_UNUSED;
2871 bfd *output_bfd;
2872 struct internal_reloc *rel;
2873 struct internal_syment *sym;
2874 struct reloc_howto_struct *howto ATTRIBUTE_UNUSED;
2875 bfd_vma val;
2876 bfd_vma addend ATTRIBUTE_UNUSED;
2877 bfd_vma *relocation;
2878 bfd_byte *contents ATTRIBUTE_UNUSED;
2879{
2880 struct xcoff_link_hash_entry *h;
2881
cf9ab45b 2882 if (0 > rel->r_symndx)
b34976b6 2883 return FALSE;
dbe341c6
TR		 2884
2885 h = obj_xcoff_sym_hashes (input_bfd)[rel->r_symndx];
2886
2887 if (h != NULL && h->smclas != XMC_TD)
2888 {
2889 if (h->toc_section == NULL)
2890 {
2891 (*_bfd_error_handler)
2892 (_("%s: TOC reloc at 0x%x to symbol `%s' with no TOC entry"),
2893 bfd_get_filename (input_bfd), rel->r_vaddr,
2894 h->root.root.string);
2895 bfd_set_error (bfd_error_bad_value);
b34976b6 2896 return FALSE;
dbe341c6 2897 }
cf9ab45b 2898
dbe341c6
TR		 2899 BFD_ASSERT ((h->flags & XCOFF_SET_TOC) == 0);
2900 val = (h->toc_section->output_section->vma
2901 + h->toc_section->output_offset);
2902 }
cf9ab45b
AM		 2903
2904 *relocation = ((val - xcoff_data (output_bfd)->toc)
2905 - (sym->n_value - xcoff_data (input_bfd)->toc));
b34976b6 2906 return TRUE;
dbe341c6 2907}
f1f0d9ab 2908
b34976b6 2909bfd_boolean
cf9ab45b 2910xcoff_reloc_type_ba (input_bfd, input_section, output_bfd, rel, sym, howto,
dbe341c6
TR		 2911 val, addend, relocation, contents)
2912 bfd *input_bfd ATTRIBUTE_UNUSED;
2913 asection *input_section ATTRIBUTE_UNUSED;
2914 bfd *output_bfd ATTRIBUTE_UNUSED;
2915 struct internal_reloc *rel ATTRIBUTE_UNUSED;
2916 struct internal_syment *sym ATTRIBUTE_UNUSED;
2917 struct reloc_howto_struct *howto;
2918 bfd_vma val;
2919 bfd_vma addend;
2920 bfd_vma *relocation;
2921 bfd_byte *contents ATTRIBUTE_UNUSED;
2922{
a78eab4e
AM		 2923 howto->src_mask &= ~3;
2924 howto->dst_mask = howto->src_mask;
dbe341c6
TR		 2925
2926 *relocation = val + addend;
2927
b34976b6 2928 return TRUE;
dbe341c6
TR		 2929}
2930
b34976b6 2931static bfd_boolean
cf9ab45b 2932xcoff_reloc_type_br (input_bfd, input_section, output_bfd, rel, sym, howto,
dbe341c6
TR		 2933 val, addend, relocation, contents)
2934 bfd *input_bfd;
2935 asection *input_section;
2936 bfd *output_bfd ATTRIBUTE_UNUSED;
2937 struct internal_reloc *rel;
2938 struct internal_syment *sym ATTRIBUTE_UNUSED;
2939 struct reloc_howto_struct *howto;
2940 bfd_vma val;
2941 bfd_vma addend;
2942 bfd_vma *relocation;
2943 bfd_byte *contents;
2944{
2945 struct xcoff_link_hash_entry *h;
2946
cf9ab45b 2947 if (0 > rel->r_symndx)
b34976b6 2948 return FALSE;
dbe341c6
TR		 2949
2950 h = obj_xcoff_sym_hashes (input_bfd)[rel->r_symndx];
2951
2952 /* If we see an R_BR or R_RBR reloc which is jumping to global
2953 linkage code, and it is followed by an appropriate cror nop
2954 instruction, we replace the cror with lwz r2,20(r1). This
2955 restores the TOC after the glink code. Contrariwise, if the
2956 call is followed by a lwz r2,20(r1), but the call is not
2957 going to global linkage code, we can replace the load with a
2958 cror. */
cf9ab45b
AM		 2959 if (NULL != h
2960 && bfd_link_hash_defined == h->root.type
eea6121a 2961 && rel->r_vaddr - input_section->vma + 8 <= input_section->size)
dbe341c6
TR		 2962 {
2963 bfd_byte *pnext;
2964 unsigned long next;
cf9ab45b 2965
dbe341c6
TR		 2966 pnext = contents + (rel->r_vaddr - input_section->vma) + 4;
2967 next = bfd_get_32 (input_bfd, pnext);
cf9ab45b 2968
dbe341c6
TR		 2969 /* The _ptrgl function is magic. It is used by the AIX
2970 compiler to call a function through a pointer. */
2971 if (h->smclas == XMC_GL || strcmp (h->root.root.string, "._ptrgl") == 0)
2972 {
cf9ab45b
AM		 2973 if (next == 0x4def7b82 /* cror 15,15,15 */
2974 || next == 0x4ffffb82 /* cror 31,31,31 */
2975 || next == 0x60000000) /* ori r0,r0,0 */
2976 bfd_put_32 (input_bfd, 0x80410014, pnext); /* lwz r1,20(r1) */
2977
2978 }
2979 else
2980 {
2981 if (next == 0x80410014) /* lwz r1,20(r1) */
2982 bfd_put_32 (input_bfd, 0x60000000, pnext); /* ori r0,r0,0 */
2983 }
2984 }
2985 else if (NULL != h && bfd_link_hash_undefined == h->root.type)
dbe341c6
TR		 2986 {
2987 /* Normally, this relocation is against a defined symbol. In the
2988 case where this is a partial link and the output section offset
cf9ab45b 2989 is greater than 2^25, the linker will return an invalid error
dbe341c6 2990 message that the relocation has been truncated. Yes it has been
cf9ab45b 2991 truncated but no it not important. For this case, disable the
dbe341c6 2992 overflow checking. */
cf9ab45b 2993
dbe341c6
TR		 2994 howto->complain_on_overflow = complain_overflow_dont;
2995 }
cf9ab45b 2996
b34976b6 2997 howto->pc_relative = TRUE;
a78eab4e
AM		 2998 howto->src_mask &= ~3;
2999 howto->dst_mask = howto->src_mask;
dbe341c6
TR		 3000
3001 /* A PC relative reloc includes the section address. */
3002 addend += input_section->vma;
cf9ab45b 3003
dbe341c6 3004 *relocation = val + addend;
cf9ab45b
AM		 3005 *relocation -= (input_section->output_section->vma
3006 + input_section->output_offset);
b34976b6 3007 return TRUE;
dbe341c6
TR		 3008}
3009
b34976b6 3010bfd_boolean
cf9ab45b 3011xcoff_reloc_type_crel (input_bfd, input_section, output_bfd, rel, sym, howto,
dbe341c6
TR		 3012 val, addend, relocation, contents)
3013 bfd *input_bfd ATTRIBUTE_UNUSED;
3014 asection *input_section;
3015 bfd *output_bfd ATTRIBUTE_UNUSED;
3016 struct internal_reloc *rel ATTRIBUTE_UNUSED;
3017 struct internal_syment *sym ATTRIBUTE_UNUSED;
3018 struct reloc_howto_struct *howto;
3019 bfd_vma val ATTRIBUTE_UNUSED;
3020 bfd_vma addend;
3021 bfd_vma *relocation;
3022 bfd_byte *contents ATTRIBUTE_UNUSED;
3023{
b34976b6 3024 howto->pc_relative = TRUE;
a78eab4e
AM		 3025 howto->src_mask &= ~3;
3026 howto->dst_mask = howto->src_mask;
dbe341c6
TR		 3027
3028 /* A PC relative reloc includes the section address. */
3029 addend += input_section->vma;
3030
3031 *relocation = val + addend;
cf9ab45b
AM		 3032 *relocation -= (input_section->output_section->vma
3033 + input_section->output_offset);
b34976b6 3034 return TRUE;
dbe341c6
TR		 3035}
3036
b34976b6 3037static bfd_boolean
cf9ab45b 3038xcoff_complain_overflow_dont_func (input_bfd, val, relocation, howto)
dbe341c6
TR		 3039 bfd *input_bfd ATTRIBUTE_UNUSED;
3040 bfd_vma val ATTRIBUTE_UNUSED;
3041 bfd_vma relocation ATTRIBUTE_UNUSED;
3042 struct reloc_howto_struct *howto ATTRIBUTE_UNUSED;
3043{
b34976b6 3044 return FALSE;
dbe341c6
TR		 3045}
3046
b34976b6 3047static bfd_boolean
cf9ab45b 3048xcoff_complain_overflow_bitfield_func (input_bfd, val, relocation, howto)
dbe341c6
TR		 3049 bfd *input_bfd;
3050 bfd_vma val;
3051 bfd_vma relocation;
cf9ab45b 3052 struct reloc_howto_struct *howto;
dbe341c6
TR		 3053{
3054 bfd_vma addrmask, fieldmask, signmask, ss;
3055 bfd_vma a, b, sum;
cf9ab45b 3056
dbe341c6
TR		 3057 /* Get the values to be added together. For signed and unsigned
3058 relocations, we assume that all values should be truncated to
3059 the size of an address. For bitfields, all the bits matter.
3060 See also bfd_check_overflow. */
3061 fieldmask = N_ONES (howto->bitsize);
3062 addrmask = N_ONES (bfd_arch_bits_per_address (input_bfd)) | fieldmask;
3063 a = relocation;
3064 b = val & howto->src_mask;
3065
3066 /* Much like unsigned, except no trimming with addrmask. In
3067 addition, the sum overflows if there is a carry out of
3068 the bfd_vma, i.e., the sum is less than either input
3069 operand. */
3070 a >>= howto->rightshift;
3071 b >>= howto->bitpos;
cf9ab45b 3072
dbe341c6
TR		 3073 /* Bitfields are sometimes used for signed numbers; for
3074 example, a 13-bit field sometimes represents values in
3075 0..8191 and sometimes represents values in -4096..4095.
3076 If the field is signed and a is -4095 (0x1001) and b is
3077 -1 (0x1fff), the sum is -4096 (0x1000), but (0x1001 +
3078 0x1fff is 0x3000). It's not clear how to handle this
3079 everywhere, since there is not way to know how many bits
3080 are significant in the relocation, but the original code
3081 assumed that it was fully sign extended, and we will keep
3082 that assumption. */
3083 signmask = (fieldmask >> 1) + 1;
cf9ab45b 3084
dbe341c6
TR		 3085 if ((a & ~ fieldmask) != 0)
3086 {
3087 /* Some bits out of the field are set. This might not
3088 be a problem: if this is a signed bitfield, it is OK
3089 iff all the high bits are set, including the sign
3090 bit. We'll try setting all but the most significant
3091 bit in the original relocation value: if this is all
3092 ones, we are OK, assuming a signed bitfield. */
3093 ss = (signmask << howto->rightshift) - 1;
3094 if ((ss | relocation) != ~ (bfd_vma) 0)
b34976b6 3095 return TRUE;
dbe341c6
TR		 3096 a &= fieldmask;
3097 }
cf9ab45b 3098
dbe341c6 3099 /* We just assume (b & ~ fieldmask) == 0. */
cf9ab45b 3100
dbe341c6
TR		 3101 /* We explicitly permit wrap around if this relocation
3102 covers the high bit of an address. The Linux kernel
3103 relies on it, and it is the only way to write assembler
3104 code which can run when loaded at a location 0x80000000
3105 away from the location at which it is linked. */
3106 if (howto->bitsize + howto->rightshift
3107 == bfd_arch_bits_per_address (input_bfd))
b34976b6 3108 return FALSE;
cf9ab45b 3109
dbe341c6
TR		 3110 sum = a + b;
3111 if (sum < a || (sum & ~ fieldmask) != 0)
3112 {
3113 /* There was a carry out, or the field overflow. Test
3114 for signed operands again. Here is the overflow test
3115 is as for complain_overflow_signed. */
3116 if (((~ (a ^ b)) & (a ^ sum)) & signmask)
b34976b6 3117 return TRUE;
dbe341c6 3118 }
cf9ab45b 3119
b34976b6 3120 return FALSE;
dbe341c6
TR		 3121}
3122
b34976b6 3123static bfd_boolean
cf9ab45b 3124xcoff_complain_overflow_signed_func (input_bfd, val, relocation, howto)
dbe341c6
TR		 3125 bfd *input_bfd;
3126 bfd_vma val;
3127 bfd_vma relocation;
3128 struct reloc_howto_struct *howto;
3129{
3130 bfd_vma addrmask, fieldmask, signmask, ss;
3131 bfd_vma a, b, sum;
cf9ab45b 3132
dbe341c6
TR		 3133 /* Get the values to be added together. For signed and unsigned
3134 relocations, we assume that all values should be truncated to
3135 the size of an address. For bitfields, all the bits matter.
3136 See also bfd_check_overflow. */
3137 fieldmask = N_ONES (howto->bitsize);
3138 addrmask = N_ONES (bfd_arch_bits_per_address (input_bfd)) | fieldmask;
3139 a = relocation;
3140 b = val & howto->src_mask;
3141
3142 a = (a & addrmask) >> howto->rightshift;
cf9ab45b 3143
dbe341c6
TR		 3144 /* If any sign bits are set, all sign bits must be set.
3145 That is, A must be a valid negative address after
3146 shifting. */
3147 signmask = ~ (fieldmask >> 1);
3148 ss = a & signmask;
3149 if (ss != 0 && ss != ((addrmask >> howto->rightshift) & signmask))
b34976b6 3150 return TRUE;
cf9ab45b 3151
dbe341c6
TR		 3152 /* We only need this next bit of code if the sign bit of B
3153 is below the sign bit of A. This would only happen if
3154 SRC_MASK had fewer bits than BITSIZE. Note that if
3155 SRC_MASK has more bits than BITSIZE, we can get into
3156 trouble; we would need to verify that B is in range, as
3157 we do for A above. */
3158 signmask = ((~ howto->src_mask) >> 1) & howto->src_mask;
3159 if ((b & signmask) != 0)
3160 {
3161 /* Set all the bits above the sign bit. */
3162 b -= signmask <<= 1;
3163 }
cf9ab45b 3164
dbe341c6 3165 b = (b & addrmask) >> howto->bitpos;
cf9ab45b 3166
dbe341c6
TR		 3167 /* Now we can do the addition. */
3168 sum = a + b;
cf9ab45b 3169
dbe341c6
TR		 3170 /* See if the result has the correct sign. Bits above the
3171 sign bit are junk now; ignore them. If the sum is
3172 positive, make sure we did not have all negative inputs;
3173 if the sum is negative, make sure we did not have all
3174 positive inputs. The test below looks only at the sign
3175 bits, and it really just
3176 SIGN (A) == SIGN (B) && SIGN (A) != SIGN (SUM)
3177 */
3178 signmask = (fieldmask >> 1) + 1;
3179 if (((~ (a ^ b)) & (a ^ sum)) & signmask)
b34976b6 3180 return TRUE;
cf9ab45b 3181
b34976b6 3182 return FALSE;
dbe341c6
TR		 3183}
3184
b34976b6 3185static bfd_boolean
cf9ab45b 3186xcoff_complain_overflow_unsigned_func (input_bfd, val, relocation, howto)
dbe341c6
TR		 3187 bfd *input_bfd;
3188 bfd_vma val;
3189 bfd_vma relocation;
cf9ab45b 3190 struct reloc_howto_struct *howto;
dbe341c6
TR		 3191{
3192 bfd_vma addrmask, fieldmask;
3193 bfd_vma a, b, sum;
cf9ab45b 3194
dbe341c6
TR		 3195 /* Get the values to be added together. For signed and unsigned
3196 relocations, we assume that all values should be truncated to
3197 the size of an address. For bitfields, all the bits matter.
3198 See also bfd_check_overflow. */
3199 fieldmask = N_ONES (howto->bitsize);
3200 addrmask = N_ONES (bfd_arch_bits_per_address (input_bfd)) | fieldmask;
3201 a = relocation;
3202 b = val & howto->src_mask;
3203
3204 /* Checking for an unsigned overflow is relatively easy:
3205 trim the addresses and add, and trim the result as well.
3206 Overflow is normally indicated when the result does not
3207 fit in the field. However, we also need to consider the
3208 case when, e.g., fieldmask is 0x7fffffff or smaller, an
3209 input is 0x80000000, and bfd_vma is only 32 bits; then we
3210 will get sum == 0, but there is an overflow, since the
3211 inputs did not fit in the field. Instead of doing a
3212 separate test, we can check for this by or-ing in the
3213 operands when testing for the sum overflowing its final
3214 field. */
3215 a = (a & addrmask) >> howto->rightshift;
3216 b = (b & addrmask) >> howto->bitpos;
3217 sum = (a + b) & addrmask;
3218 if ((a | b | sum) & ~ fieldmask)
b34976b6 3219 return TRUE;
cf9ab45b 3220
b34976b6 3221 return FALSE;
dbe341c6 3222}
beb1bf64
TR		 3223
3224/* This is the relocation function for the RS/6000/POWER/PowerPC.
3225 This is currently the only processor which uses XCOFF; I hope that
cf9ab45b 3226 will never change.
beb1bf64 3227
dbe341c6
TR		 3228 I took the relocation type definitions from two documents:
3229 the PowerPC AIX Version 4 Application Binary Interface, First
3230 Edition (April 1992), and the PowerOpen ABI, Big-Endian
3231 32-Bit Hardware Implementation (June 30, 1994). Differences
cf9ab45b 3232 between the documents are noted below.
dbe341c6 3233
cf9ab45b 3234 Unsupported r_type's
dbe341c6
TR		 3235
3236 R_RTB:
3237 R_RRTBI:
3238 R_RRTBA:
cf9ab45b 3239
dbe341c6
TR		 3240 These relocs are defined by the PowerPC ABI to be
3241 relative branches which use half of the difference
3242 between the symbol and the program counter. I can't
3243 quite figure out when this is useful. These relocs are
cf9ab45b 3244 not defined by the PowerOpen ABI.
dbe341c6
TR		 3245
3246 Supported r_type's
3247
3248 R_POS:
3249 Simple positive relocation.
3250
3251 R_NEG:
cf9ab45b 3252 Simple negative relocation.
dbe341c6
TR		 3253
3254 R_REL:
3255 Simple PC relative relocation.
3256
3257 R_TOC:
3258 TOC relative relocation. The value in the instruction in
3259 the input file is the offset from the input file TOC to
3260 the desired location. We want the offset from the final
3261 TOC to the desired location. We have:
3262 isym = iTOC + in
3263 iinsn = in + o
3264 osym = oTOC + on
3265 oinsn = on + o
3266 so we must change insn by on - in.
3267
3268 R_GL:
3269 GL linkage relocation. The value of this relocation
cf9ab45b 3270 is the address of the entry in the TOC section.
dbe341c6
TR		 3271
3272 R_TCL:
3273 Local object TOC address. I can't figure out the
cf9ab45b 3274 difference between this and case R_GL.
dbe341c6
TR		 3275
3276 R_TRL:
3277 TOC relative relocation. A TOC relative load instruction
3278 which may be changed to a load address instruction.
cf9ab45b 3279 FIXME: We don't currently implement this optimization.
dbe341c6
TR		 3280
3281 R_TRLA:
3282 TOC relative relocation. This is a TOC relative load
3283 address instruction which may be changed to a load
3284 instruction. FIXME: I don't know if this is the correct
3285 implementation.
3286
3287 R_BA:
3288 Absolute branch. We don't want to mess with the lower
cf9ab45b 3289 two bits of the instruction.
dbe341c6
TR		 3290
3291 R_CAI:
3292 The PowerPC ABI defines this as an absolute call which
3293 may be modified to become a relative call. The PowerOpen
cf9ab45b
AM		 3294 ABI does not define this relocation type.
3295
dbe341c6
TR		 3296 R_RBA:
3297 Absolute branch which may be modified to become a
cf9ab45b 3298 relative branch.
dbe341c6
TR		 3299
3300 R_RBAC:
3301 The PowerPC ABI defines this as an absolute branch to a
3302 fixed address which may be modified to an absolute branch
3303 to a symbol. The PowerOpen ABI does not define this
cf9ab45b 3304 relocation type.
dbe341c6
TR		 3305
3306 R_RBRC:
3307 The PowerPC ABI defines this as an absolute branch to a
3308 fixed address which may be modified to a relative branch.
cf9ab45b 3309 The PowerOpen ABI does not define this relocation type.
dbe341c6
TR		 3310
3311 R_BR:
3312 Relative branch. We don't want to mess with the lower
cf9ab45b 3313 two bits of the instruction.
dbe341c6
TR		 3314
3315 R_CREL:
3316 The PowerPC ABI defines this as a relative call which may
3317 be modified to become an absolute call. The PowerOpen
cf9ab45b 3318 ABI does not define this relocation type.
dbe341c6
TR		 3319
3320 R_RBR:
3321 A relative branch which may be modified to become an
3322 absolute branch. FIXME: We don't implement this,
3323 although we should for symbols of storage mapping class
cf9ab45b 3324 XMC_XO.
dbe341c6
TR		 3325
3326 R_RL:
3327 The PowerPC AIX ABI describes this as a load which may be
3328 changed to a load address. The PowerOpen ABI says this
cf9ab45b 3329 is the same as case R_POS.
dbe341c6
TR		 3330
3331 R_RLA:
3332 The PowerPC AIX ABI describes this as a load address
3333 which may be changed to a load. The PowerOpen ABI says
cf9ab45b 3334 this is the same as R_POS.
dbe341c6
TR		 3335*/
3336
b34976b6 3337bfd_boolean
beb1bf64
TR		 3338xcoff_ppc_relocate_section (output_bfd, info, input_bfd,
3339 input_section, contents, relocs, syms,
3340 sections)
3341 bfd *output_bfd;
3342 struct bfd_link_info *info;
3343 bfd *input_bfd;
3344 asection *input_section;
3345 bfd_byte *contents;
3346 struct internal_reloc *relocs;
3347 struct internal_syment *syms;
3348 asection **sections;
3349{
3350 struct internal_reloc *rel;
3351 struct internal_reloc *relend;
3352
3353 rel = relocs;
3354 relend = rel + input_section->reloc_count;
beb1bf64
TR		 3355 for (; rel < relend; rel++)
3356 {
3357 long symndx;
3358 struct xcoff_link_hash_entry *h;
3359 struct internal_syment *sym;
3360 bfd_vma addend;
3361 bfd_vma val;
3362 struct reloc_howto_struct howto;
dbe341c6
TR		 3363 bfd_vma relocation;
3364 bfd_vma value_to_relocate;
3365 bfd_vma address;
3366 bfd_byte *location;
beb1bf64
TR		 3367
3368 /* Relocation type R_REF is a special relocation type which is
cf9ab45b
AM		 3369 merely used to prevent garbage collection from occurring for
3370 the csect including the symbol which it references. */
beb1bf64
TR		 3371 if (rel->r_type == R_REF)
3372 continue;
3373
dbe341c6 3374 /* howto */
beb1bf64
TR		 3375 howto.type = rel->r_type;
3376 howto.rightshift = 0;
beb1bf64 3377 howto.bitsize = (rel->r_size & 0x1f) + 1;
dbe341c6 3378 howto.size = howto.bitsize > 16 ? 2 : 1;
b34976b6 3379 howto.pc_relative = FALSE;
beb1bf64 3380 howto.bitpos = 0;
cf9ab45b
AM		 3381 howto.complain_on_overflow = (rel->r_size & 0x80
3382 ? complain_overflow_signed
3383 : complain_overflow_bitfield);
beb1bf64
TR		 3384 howto.special_function = NULL;
3385 howto.name = "internal";
b34976b6 3386 howto.partial_inplace = TRUE;
cf9ab45b 3387 howto.src_mask = howto.dst_mask = N_ONES (howto.bitsize);
b34976b6 3388 howto.pcrel_offset = FALSE;
beb1bf64 3389
dbe341c6 3390 /* symbol */
beb1bf64 3391 val = 0;
dbe341c6
TR		 3392 addend = 0;
3393 h = NULL;
3394 sym = NULL;
cf9ab45b 3395 symndx = rel->r_symndx;
beb1bf64 3396
cf9ab45b 3397 if (-1 != symndx)
beb1bf64
TR		 3398 {
3399 asection *sec;
cf9ab45b 3400
dbe341c6
TR		 3401 h = obj_xcoff_sym_hashes (input_bfd)[symndx];
3402 sym = syms + symndx;
3403 addend = - sym->n_value;
cf9ab45b
AM		 3404
3405 if (NULL == h)
beb1bf64
TR		 3406 {
3407 sec = sections[symndx];
3408 /* Hack to make sure we use the right TOC anchor value
dbe341c6 3409 if this reloc is against the TOC anchor. */
beb1bf64 3410 if (sec->name[3] == '0'
dbe341c6
TR		 3411 && strcmp (sec->name, ".tc0") == 0)
3412 val = xcoff_data (output_bfd)->toc;
f4ffd778 3413 else
dbe341c6
TR		 3414 val = (sec->output_section->vma
3415 + sec->output_offset
3416 + sym->n_value
3417 - sec->vma);
cf9ab45b
AM		 3418 }
3419 else
dbe341c6 3420 {
cf9ab45b
AM		 3421 if (h->root.type == bfd_link_hash_defined
3422 || h->root.type == bfd_link_hash_defweak)
dbe341c6
TR		 3423 {
3424 sec = h->root.u.def.section;
3425 val = (h->root.u.def.value
3426 + sec->output_section->vma
3427 + sec->output_offset);
cf9ab45b
AM		 3428 }
3429 else if (h->root.type == bfd_link_hash_common)
f4ffd778 3430 {
dbe341c6 3431 sec = h->root.u.c.p->section;
f4ffd778 3432 val = (sec->output_section->vma
dbe341c6 3433 + sec->output_offset);
cf9ab45b
AM		 3434
3435 }
3436 else if ((0 == (h->flags & (XCOFF_DEF_DYNAMIC | XCOFF_IMPORT)))
1049f94e 3437 && ! info->relocatable)
dbe341c6
TR		 3438 {
3439 if (! ((*info->callbacks->undefined_symbol)
3440 (info, h->root.root.string, input_bfd, input_section,
b34976b6
AM		 3441 rel->r_vaddr - input_section->vma, TRUE)))
3442 return FALSE;
cf9ab45b 3443
dbe341c6
TR		 3444 /* Don't try to process the reloc. It can't help, and
3445 it may generate another error. */
3446 continue;
f4ffd778 3447 }
beb1bf64
TR		 3448 }
3449 }
beb1bf64 3450
cf9ab45b
AM		 3451 if (rel->r_type >= XCOFF_MAX_CALCULATE_RELOCATION
3452 || !((*xcoff_calculate_relocation[rel->r_type])
3453 (input_bfd, input_section, output_bfd, rel, sym, &howto, val,
3454 addend, &relocation, contents)))
b34976b6 3455 return FALSE;
cf9ab45b 3456
dbe341c6
TR		 3457 /* address */
3458 address = rel->r_vaddr - input_section->vma;
3459 location = contents + address;
cf9ab45b 3460
eea6121a 3461 if (address > input_section->size)
cf9ab45b 3462 abort ();
dbe341c6
TR		 3463
3464 /* Get the value we are going to relocate. */
3465 if (1 == howto.size)
3466 value_to_relocate = bfd_get_16 (input_bfd, location);
cf9ab45b 3467 else
dbe341c6 3468 value_to_relocate = bfd_get_32 (input_bfd, location);
cf9ab45b
AM		 3469
3470 /* overflow.
3471
dbe341c6
TR		 3472 FIXME: We may drop bits during the addition
3473 which we don't check for. We must either check at every single
3474 operation, which would be tedious, or we must do the computations
3475 in a type larger than bfd_vma, which would be inefficient. */
beb1bf64 3476
cf9ab45b
AM		 3477 if ((unsigned int) howto.complain_on_overflow
3478 >= XCOFF_MAX_COMPLAIN_OVERFLOW)
3479 abort ();
3480
3481 if (((*xcoff_complain_overflow[howto.complain_on_overflow])
3482 (input_bfd, value_to_relocate, relocation, &howto)))
beb1bf64 3483 {
dbe341c6
TR		 3484 const char *name;
3485 char buf[SYMNMLEN + 1];
3486 char reloc_type_name[10];
cf9ab45b
AM		 3487
3488 if (symndx == -1)
beb1bf64 3489 {
dbe341c6 3490 name = "*ABS*";
cf9ab45b
AM		 3491 }
3492 else if (h != NULL)
beb1bf64 3493 {
dfeffb9f 3494 name = NULL;
cf9ab45b
AM		 3495 }
3496 else
beb1bf64 3497 {
dbe341c6
TR		 3498 name = _bfd_coff_internal_syment_name (input_bfd, sym, buf);
3499 if (name == NULL)
3500 name = "UNKNOWN";
beb1bf64 3501 }
dbe341c6 3502 sprintf (reloc_type_name, "0x%02x", rel->r_type);
cf9ab45b 3503
dbe341c6 3504 if (! ((*info->callbacks->reloc_overflow)
dfeffb9f
L		 3505 (info, (h ? &h->root : NULL), name, reloc_type_name,
3506 (bfd_vma) 0, input_bfd, input_section,
3507 rel->r_vaddr - input_section->vma)))
b34976b6 3508 return FALSE;
beb1bf64 3509 }
cf9ab45b 3510
dbe341c6 3511 /* Add RELOCATION to the right bits of VALUE_TO_RELOCATE. */
cf9ab45b
AM		 3512 value_to_relocate = ((value_to_relocate & ~howto.dst_mask)
3513 | (((value_to_relocate & howto.src_mask)
3514 + relocation) & howto.dst_mask));
3515
dbe341c6
TR		 3516 /* Put the value back in the object file. */
3517 if (1 == howto.size)
3518 bfd_put_16 (input_bfd, value_to_relocate, location);
cf9ab45b 3519 else
dbe341c6 3520 bfd_put_32 (input_bfd, value_to_relocate, location);
beb1bf64
TR		 3521 }
3522
b34976b6 3523 return TRUE;
beb1bf64
TR		 3524}
3525
b34976b6 3526static bfd_boolean
beb1bf64
TR		 3527_bfd_xcoff_put_ldsymbol_name (abfd, ldinfo, ldsym, name)
3528 bfd *abfd ATTRIBUTE_UNUSED;
3529 struct xcoff_loader_info *ldinfo;
3530 struct internal_ldsym *ldsym;
3531 const char *name;
3532{
3533 size_t len;
3534 len = strlen (name);
3535
3536 if (len <= SYMNMLEN)
3537 strncpy (ldsym->_l._l_name, name, SYMNMLEN);
3538 else
3539 {
3540 if (ldinfo->string_size + len + 3 > ldinfo->string_alc)
3541 {
dc810e39 3542 bfd_size_type newalc;
f075ee0c 3543 char *newstrings;
beb1bf64
TR		 3544
3545 newalc = ldinfo->string_alc * 2;
3546 if (newalc == 0)
3547 newalc = 32;
3548 while (ldinfo->string_size + len + 3 > newalc)
3549 newalc *= 2;
3550
f075ee0c 3551 newstrings = bfd_realloc (ldinfo->strings, newalc);
beb1bf64
TR		 3552 if (newstrings == NULL)
3553 {
b34976b6
AM		 3554 ldinfo->failed = TRUE;
3555 return FALSE;
beb1bf64
TR		 3556 }
3557 ldinfo->string_alc = newalc;
3558 ldinfo->strings = newstrings;
3559 }
3560
dc810e39
AM		 3561 bfd_put_16 (ldinfo->output_bfd, (bfd_vma) (len + 1),
3562 ldinfo->strings + ldinfo->string_size);
beb1bf64
TR		 3563 strcpy (ldinfo->strings + ldinfo->string_size + 2, name);
3564 ldsym->_l._l_l._l_zeroes = 0;
3565 ldsym->_l._l_l._l_offset = ldinfo->string_size + 2;
3566 ldinfo->string_size += len + 3;
3567 }
3568
b34976b6 3569 return TRUE;
beb1bf64
TR		 3570}
3571
b34976b6 3572static bfd_boolean
dc810e39 3573_bfd_xcoff_put_symbol_name (bfd *abfd, struct bfd_strtab_hash *strtab,
beb1bf64 3574 struct internal_syment *sym,
f4ffd778
NC		 3575 const char *name)
3576{
3577 if (strlen (name) <= SYMNMLEN)
3578 {
3579 strncpy (sym->_n._n_name, name, SYMNMLEN);
3580 }
3581 else
3582 {
b34976b6 3583 bfd_boolean hash;
f4ffd778
NC		 3584 bfd_size_type indx;
3585
b34976b6 3586 hash = TRUE;
f4ffd778 3587 if ((abfd->flags & BFD_TRADITIONAL_FORMAT) != 0)
b34976b6
AM		 3588 hash = FALSE;
3589 indx = _bfd_stringtab_add (strtab, name, hash, FALSE);
f4ffd778 3590 if (indx == (bfd_size_type) -1)
b34976b6 3591 return FALSE;
f4ffd778
NC		 3592 sym->_n._n_n._n_zeroes = 0;
3593 sym->_n._n_n._n_offset = STRING_SIZE_SIZE + indx;
3594 }
b34976b6 3595 return TRUE;
beb1bf64
TR		 3596}
3597
3598static asection *
dc810e39 3599xcoff_create_csect_from_smclas (abfd, aux, symbol_name)
beb1bf64
TR		 3600 bfd *abfd;
3601 union internal_auxent *aux;
814fa6ab 3602 const char *symbol_name;
beb1bf64 3603{
beb1bf64
TR		 3604 asection *return_value = NULL;
3605
f4ffd778
NC		 3606 /* .sv64 = x_smclas == 17
3607 This is an invalid csect for 32 bit apps. */
3608 static const char *names[19] =
3609 {
beb1bf64
TR		 3610 ".pr", ".ro", ".db", ".tc", ".ua", ".rw", ".gl", ".xo",
3611 ".sv", ".bs", ".ds", ".uc", ".ti", ".tb", NULL, ".tc0",
dc810e39 3612 ".td", NULL, ".sv3264"
beb1bf64
TR		 3613 };
3614
cf9ab45b
AM		 3615 if ((19 >= aux->x_csect.x_smclas)
3616 && (NULL != names[aux->x_csect.x_smclas]))
f4ffd778 3617 {
dc810e39 3618 return_value = bfd_make_section_anyway
f4ffd778
NC		 3619 (abfd, names[aux->x_csect.x_smclas]);
3620 }
3621 else
3622 {
3623 (*_bfd_error_handler)
d003868e
AM		 3624 (_("%B: symbol `%s' has unrecognized smclas %d"),
3625 abfd, symbol_name, aux->x_csect.x_smclas);
f4ffd778
NC		 3626 bfd_set_error (bfd_error_bad_value);
3627 }
beb1bf64
TR		 3628
3629 return return_value;
3630}
3631
b34976b6 3632static bfd_boolean
beb1bf64
TR		 3633xcoff_is_lineno_count_overflow (abfd, value)
3634 bfd *abfd ATTRIBUTE_UNUSED;
3635 bfd_vma value;
3636{
f4ffd778 3637 if (0xffff <= value)
b34976b6 3638 return TRUE;
f4ffd778 3639
b34976b6 3640 return FALSE;
beb1bf64
TR		 3641}
3642
b34976b6 3643static bfd_boolean
beb1bf64
TR		 3644xcoff_is_reloc_count_overflow (abfd, value)
3645 bfd *abfd ATTRIBUTE_UNUSED;
3646 bfd_vma value;
3647{
f4ffd778 3648 if (0xffff <= value)
b34976b6 3649 return TRUE;
f4ffd778 3650
b34976b6 3651 return FALSE;
beb1bf64
TR		 3652}
3653
a7b97311 3654static bfd_vma
beb1bf64
TR		 3655xcoff_loader_symbol_offset (abfd, ldhdr)
3656 bfd *abfd;
f4ffd778 3657 struct internal_ldhdr *ldhdr ATTRIBUTE_UNUSED;
beb1bf64 3658{
cf9ab45b 3659 return bfd_xcoff_ldhdrsz (abfd);
beb1bf64
TR		 3660}
3661
a7b97311 3662static bfd_vma
beb1bf64
TR		 3663xcoff_loader_reloc_offset (abfd, ldhdr)
3664 bfd *abfd;
f4ffd778 3665 struct internal_ldhdr *ldhdr;
beb1bf64 3666{
cf9ab45b 3667 return bfd_xcoff_ldhdrsz (abfd) + ldhdr->l_nsyms * bfd_xcoff_ldsymsz (abfd);
beb1bf64
TR		 3668}
3669
b34976b6 3670static bfd_boolean
69f284c7 3671xcoff_generate_rtinit (abfd, init, fini, rtld)
9a4c7f16
TR		 3672 bfd *abfd;
3673 const char *init;
3674 const char *fini;
b34976b6 3675 bfd_boolean rtld;
9a4c7f16
TR		 3676{
3677 bfd_byte filehdr_ext[FILHSZ];
3678 bfd_byte scnhdr_ext[SCNHSZ];
69f284c7
TR		 3679 bfd_byte syment_ext[SYMESZ * 10];
3680 bfd_byte reloc_ext[RELSZ * 3];
9a4c7f16
TR		 3681 bfd_byte *data_buffer;
3682 bfd_size_type data_buffer_size;
d426c6b0 3683 bfd_byte *string_table = NULL, *st_tmp = NULL;
9a4c7f16
TR		 3684 bfd_size_type string_table_size;
3685 bfd_vma val;
3686 size_t initsz, finisz;
3687 struct internal_filehdr filehdr;
3688 struct internal_scnhdr scnhdr;
3689 struct internal_syment syment;
3690 union internal_auxent auxent;
3691 struct internal_reloc reloc;
cf9ab45b 3692
9a4c7f16
TR		 3693 char *data_name = ".data";
3694 char *rtinit_name = "__rtinit";
69f284c7 3695 char *rtld_name = "__rtld";
cf9ab45b 3696
69f284c7 3697 if (! bfd_xcoff_rtinit_size (abfd))
b34976b6 3698 return FALSE;
9a4c7f16
TR		 3699
3700 initsz = (init == NULL ? 0 : 1 + strlen (init));
3701 finisz = (fini == NULL ? 0 : 1 + strlen (fini));
3702
3703 /* file header */
3704 memset (filehdr_ext, 0, FILHSZ);
3705 memset (&filehdr, 0, sizeof (struct internal_filehdr));
3706 filehdr.f_magic = bfd_xcoff_magic_number (abfd);
cf9ab45b 3707 filehdr.f_nscns = 1;
9a4c7f16 3708 filehdr.f_timdat = 0;
69f284c7 3709 filehdr.f_nsyms = 0; /* at least 6, no more than 10 */
9a4c7f16
TR		 3710 filehdr.f_symptr = 0; /* set below */
3711 filehdr.f_opthdr = 0;
3712 filehdr.f_flags = 0;
3713
3714 /* section header */
3715 memset (scnhdr_ext, 0, SCNHSZ);
3716 memset (&scnhdr, 0, sizeof (struct internal_scnhdr));
3717 memcpy (scnhdr.s_name, data_name, strlen (data_name));
3718 scnhdr.s_paddr = 0;
3719 scnhdr.s_vaddr = 0;
3720 scnhdr.s_size = 0; /* set below */
3721 scnhdr.s_scnptr = FILHSZ + SCNHSZ;
3722 scnhdr.s_relptr = 0; /* set below */
3723 scnhdr.s_lnnoptr = 0;
3724 scnhdr.s_nreloc = 0; /* either 1 or 2 */
3725 scnhdr.s_nlnno = 0;
3726 scnhdr.s_flags = STYP_DATA;
3727
cf9ab45b
AM		 3728 /* .data
3729 0x0000 0x00000000 : rtl
3730 0x0004 0x00000010 : offset to init, or 0
3731 0x0008 0x00000028 : offset to fini, or 0
3732 0x000C 0x0000000C : size of descriptor
3733 0x0010 0x00000000 : init, needs a reloc
3734 0x0014 0x00000040 : offset to init name
3735 0x0018 0x00000000 : flags, padded to a word
3736 0x001C 0x00000000 : empty init
3737 0x0020 0x00000000 :
3738 0x0024 0x00000000 :
3739 0x0028 0x00000000 : fini, needs a reloc
3740 0x002C 0x00000??? : offset to fini name
3741 0x0030 0x00000000 : flags, padded to a word
3742 0x0034 0x00000000 : empty fini
3743 0x0038 0x00000000 :
3744 0x003C 0x00000000 :
3745 0x0040 init name
9a4c7f16
TR		 3746 0x0040 + initsz fini name */
3747
3748 data_buffer_size = 0x0040 + initsz + finisz;
2a52da53 3749 data_buffer_size = (data_buffer_size + 7) &~ (bfd_size_type) 7;
330693f5 3750 data_buffer = NULL;
9bab7074 3751 data_buffer = (bfd_byte *) bfd_zmalloc (data_buffer_size);
330693f5 3752 if (data_buffer == NULL)
b34976b6 3753 return FALSE;
9a4c7f16 3754
cf9ab45b 3755 if (initsz)
9a4c7f16
TR		 3756 {
3757 val = 0x10;
3758 bfd_h_put_32 (abfd, val, &data_buffer[0x04]);
3759 val = 0x40;
3760 bfd_h_put_32 (abfd, val, &data_buffer[0x14]);
3761 memcpy (&data_buffer[val], init, initsz);
3762 }
3763
cf9ab45b 3764 if (finisz)
9a4c7f16
TR		 3765 {
3766 val = 0x28;
3767 bfd_h_put_32 (abfd, val, &data_buffer[0x08]);
3768 val = 0x40 + initsz;
3769 bfd_h_put_32 (abfd, val, &data_buffer[0x2C]);
3770 memcpy (&data_buffer[val], fini, finisz);
3771 }
3772
3773 val = 0x0C;
3774 bfd_h_put_32 (abfd, val, &data_buffer[0x0C]);
3775
3776 scnhdr.s_size = data_buffer_size;
3777
3778 /* string table */
3779 string_table_size = 0;
cf9ab45b 3780 if (initsz > 9)
9a4c7f16
TR		 3781 string_table_size += initsz;
3782 if (finisz > 9)
3783 string_table_size += finisz;
3784 if (string_table_size)
3785 {
3786 string_table_size += 4;
9bab7074 3787 string_table = (bfd_byte *) bfd_zmalloc (string_table_size);
021d6096 3788 if (string_table == NULL)
b34976b6 3789 return FALSE;
9bab7074 3790
9a4c7f16
TR		 3791 val = string_table_size;
3792 bfd_h_put_32 (abfd, val, &string_table[0]);
3793 st_tmp = string_table + 4;
3794 }
cf9ab45b
AM		 3795
3796 /* symbols
9a4c7f16
TR		 3797 0. .data csect
3798 2. __rtinit
cf9ab45b
AM		 3799 4. init function
3800 6. fini function
69f284c7
TR		 3801 8. __rtld */
3802 memset (syment_ext, 0, 10 * SYMESZ);
3803 memset (reloc_ext, 0, 3 * RELSZ);
9a4c7f16
TR		 3804
3805 /* .data csect */
3806 memset (&syment, 0, sizeof (struct internal_syment));
3807 memset (&auxent, 0, sizeof (union internal_auxent));
3808 memcpy (syment._n._n_name, data_name, strlen (data_name));
3809 syment.n_scnum = 1;
3810 syment.n_sclass = C_HIDEXT;
3811 syment.n_numaux = 1;
3812 auxent.x_csect.x_scnlen.l = data_buffer_size;
3813 auxent.x_csect.x_smtyp = 3 << 3 | XTY_SD;
3814 auxent.x_csect.x_smclas = XMC_RW;
cf9ab45b 3815 bfd_coff_swap_sym_out (abfd, &syment,
9a4c7f16 3816 &syment_ext[filehdr.f_nsyms * SYMESZ]);
cf9ab45b
AM		 3817 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
3818 syment.n_numaux,
9a4c7f16
TR		 3819 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
3820 filehdr.f_nsyms += 2;
3821
3822 /* __rtinit */
3823 memset (&syment, 0, sizeof (struct internal_syment));
3824 memset (&auxent, 0, sizeof (union internal_auxent));
3825 memcpy (syment._n._n_name, rtinit_name, strlen (rtinit_name));
3826 syment.n_scnum = 1;
3827 syment.n_sclass = C_EXT;
3828 syment.n_numaux = 1;
3829 auxent.x_csect.x_smtyp = XTY_LD;
3830 auxent.x_csect.x_smclas = XMC_RW;
cf9ab45b 3831 bfd_coff_swap_sym_out (abfd, &syment,
9a4c7f16 3832 &syment_ext[filehdr.f_nsyms * SYMESZ]);
cf9ab45b
AM		 3833 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
3834 syment.n_numaux,
9a4c7f16
TR		 3835 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
3836 filehdr.f_nsyms += 2;
3837
3838 /* init */
cf9ab45b 3839 if (initsz)
9a4c7f16
TR		 3840 {
3841 memset (&syment, 0, sizeof (struct internal_syment));
3842 memset (&auxent, 0, sizeof (union internal_auxent));
3843
cf9ab45b 3844 if (initsz > 9)
9a4c7f16
TR		 3845 {
3846 syment._n._n_n._n_offset = st_tmp - string_table;
3847 memcpy (st_tmp, init, initsz);
3848 st_tmp += initsz;
3849 }
3850 else
3851 memcpy (syment._n._n_name, init, initsz - 1);
3852
3853 syment.n_sclass = C_EXT;
3854 syment.n_numaux = 1;
cf9ab45b 3855 bfd_coff_swap_sym_out (abfd, &syment,
9a4c7f16 3856 &syment_ext[filehdr.f_nsyms * SYMESZ]);
cf9ab45b
AM		 3857 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
3858 syment.n_numaux,
9a4c7f16
TR		 3859 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
3860
3861 /* reloc */
3862 memset (&reloc, 0, sizeof (struct internal_reloc));
3863 reloc.r_vaddr = 0x0010;
3864 reloc.r_symndx = filehdr.f_nsyms;
3865 reloc.r_type = R_POS;
3866 reloc.r_size = 31;
3867 bfd_coff_swap_reloc_out (abfd, &reloc, &reloc_ext[0]);
3868
3869 filehdr.f_nsyms += 2;
3870 scnhdr.s_nreloc += 1;
3871 }
cf9ab45b 3872
9a4c7f16 3873 /* fini */
cf9ab45b 3874 if (finisz)
9a4c7f16
TR		 3875 {
3876 memset (&syment, 0, sizeof (struct internal_syment));
3877 memset (&auxent, 0, sizeof (union internal_auxent));
3878
cf9ab45b 3879 if (finisz > 9)
9a4c7f16
TR		 3880 {
3881 syment._n._n_n._n_offset = st_tmp - string_table;
3882 memcpy (st_tmp, fini, finisz);
3883 st_tmp += finisz;
3884 }
3885 else
3886 memcpy (syment._n._n_name, fini, finisz - 1);
3887
3888 syment.n_sclass = C_EXT;
3889 syment.n_numaux = 1;
cf9ab45b 3890 bfd_coff_swap_sym_out (abfd, &syment,
9a4c7f16 3891 &syment_ext[filehdr.f_nsyms * SYMESZ]);
cf9ab45b
AM		 3892 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
3893 syment.n_numaux,
9a4c7f16
TR		 3894 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
3895
3896 /* reloc */
3897 memset (&reloc, 0, sizeof (struct internal_reloc));
3898 reloc.r_vaddr = 0x0028;
3899 reloc.r_symndx = filehdr.f_nsyms;
3900 reloc.r_type = R_POS;
3901 reloc.r_size = 31;
cf9ab45b 3902 bfd_coff_swap_reloc_out (abfd, &reloc,
9a4c7f16
TR		 3903 &reloc_ext[scnhdr.s_nreloc * RELSZ]);
3904
3905 filehdr.f_nsyms += 2;
3906 scnhdr.s_nreloc += 1;
3907 }
3908
69f284c7
TR		 3909 if (rtld)
3910 {
3911 memset (&syment, 0, sizeof (struct internal_syment));
3912 memset (&auxent, 0, sizeof (union internal_auxent));
3913 memcpy (syment._n._n_name, rtld_name, strlen (rtld_name));
3914 syment.n_sclass = C_EXT;
3915 syment.n_numaux = 1;
cf9ab45b 3916 bfd_coff_swap_sym_out (abfd, &syment,
69f284c7 3917 &syment_ext[filehdr.f_nsyms * SYMESZ]);
cf9ab45b
AM		 3918 bfd_coff_swap_aux_out (abfd, &auxent, syment.n_type, syment.n_sclass, 0,
3919 syment.n_numaux,
69f284c7
TR		 3920 &syment_ext[(filehdr.f_nsyms + 1) * SYMESZ]);
3921
3922 /* reloc */
3923 memset (&reloc, 0, sizeof (struct internal_reloc));
3924 reloc.r_vaddr = 0x0000;
3925 reloc.r_symndx = filehdr.f_nsyms;
3926 reloc.r_type = R_POS;
3927 reloc.r_size = 31;
cf9ab45b 3928 bfd_coff_swap_reloc_out (abfd, &reloc,
69f284c7
TR		 3929 &reloc_ext[scnhdr.s_nreloc * RELSZ]);
3930
3931 filehdr.f_nsyms += 2;
3932 scnhdr.s_nreloc += 1;
3933 }
3934
9a4c7f16
TR		 3935 scnhdr.s_relptr = scnhdr.s_scnptr + data_buffer_size;
3936 filehdr.f_symptr = scnhdr.s_relptr + scnhdr.s_nreloc * RELSZ;
3937
3938 bfd_coff_swap_filehdr_out (abfd, &filehdr, filehdr_ext);
3939 bfd_bwrite (filehdr_ext, FILHSZ, abfd);
3940 bfd_coff_swap_scnhdr_out (abfd, &scnhdr, scnhdr_ext);
3941 bfd_bwrite (scnhdr_ext, SCNHSZ, abfd);
3942 bfd_bwrite (data_buffer, data_buffer_size, abfd);
3943 bfd_bwrite (reloc_ext, scnhdr.s_nreloc * RELSZ, abfd);
3944 bfd_bwrite (syment_ext, filehdr.f_nsyms * SYMESZ, abfd);
3945 bfd_bwrite (string_table, string_table_size, abfd);
3946
330693f5
TR		 3947 free (data_buffer);
3948 data_buffer = NULL;
3949
b34976b6 3950 return TRUE;
9a4c7f16
TR		 3951}
3952
beb1bf64
TR		 3953
3954static reloc_howto_type xcoff_dynamic_reloc =
cf9ab45b
AM		 3955HOWTO (0, /* type */
3956 0, /* rightshift */
3957 2, /* size (0 = byte, 1 = short, 2 = long) */
3958 32, /* bitsize */
b34976b6 3959 FALSE, /* pc_relative */
cf9ab45b 3960 0, /* bitpos */
beb1bf64 3961 complain_overflow_bitfield, /* complain_on_overflow */
cf9ab45b
AM		 3962 0, /* special_function */
3963 "R_POS", /* name */
b34976b6 3964 TRUE, /* partial_inplace */
cf9ab45b
AM		 3965 0xffffffff, /* src_mask */
3966 0xffffffff, /* dst_mask */
b34976b6 3967 FALSE); /* pcrel_offset */
beb1bf64 3968
dc810e39
AM		 3969/* glink
3970
3971 The first word of global linkage code must be modified by filling in
f4ffd778
NC		 3972 the correct TOC offset. */
3973
beb1bf64 3974static unsigned long xcoff_glink_code[9] =
f4ffd778
NC		 3975 {
3976 0x81820000, /* lwz r12,0(r2) */
3977 0x90410014, /* stw r2,20(r1) */
3978 0x800c0000, /* lwz r0,0(r12) */
3979 0x804c0004, /* lwz r2,4(r12) */
3980 0x7c0903a6, /* mtctr r0 */
3981 0x4e800420, /* bctr */
3982 0x00000000, /* start of traceback table */
3983 0x000c8000, /* traceback table */
3984 0x00000000, /* traceback table */
3985 };
beb1bf64
TR		 3986
3987
dc810e39 3988static const struct xcoff_backend_data_rec bfd_xcoff_backend_data =
f4ffd778
NC		 3989 {
3990 { /* COFF backend, defined in libcoff.h. */
cf9ab45b
AM		 3991 _bfd_xcoff_swap_aux_in,
3992 _bfd_xcoff_swap_sym_in,
3993 coff_swap_lineno_in,
3994 _bfd_xcoff_swap_aux_out,
3995 _bfd_xcoff_swap_sym_out,
3996 coff_swap_lineno_out,
3997 xcoff_swap_reloc_out,
3998 coff_swap_filehdr_out,
3999 coff_swap_aouthdr_out,
4000 coff_swap_scnhdr_out,
4001 FILHSZ,
4002 AOUTSZ,
4003 SCNHSZ,
4004 SYMESZ,
4005 AUXESZ,
4006 RELSZ,
4007 LINESZ,
4008 FILNMLEN,
b34976b6
AM		 4009 TRUE, /* _bfd_coff_long_filenames */
4010 FALSE, /* _bfd_coff_long_section_names */
cf9ab45b 4011 3, /* _bfd_coff_default_section_alignment_power */
b34976b6 4012 FALSE, /* _bfd_coff_force_symnames_in_strings */
cf9ab45b
AM		 4013 2, /* _bfd_coff_debug_string_prefix_length */
4014 coff_swap_filehdr_in,
4015 coff_swap_aouthdr_in,
4016 coff_swap_scnhdr_in,
4017 xcoff_swap_reloc_in,
4018 coff_bad_format_hook,
4019 coff_set_arch_mach_hook,
4020 coff_mkobject_hook,
4021 styp_to_sec_flags,
4022 coff_set_alignment_hook,
4023 coff_slurp_symbol_table,
4024 symname_in_debug_hook,
4025 coff_pointerize_aux_hook,
4026 coff_print_aux,
4027 dummy_reloc16_extra_cases,
4028 dummy_reloc16_estimate,
4029 NULL, /* bfd_coff_sym_is_global */
4030 coff_compute_section_file_positions,
4031 NULL, /* _bfd_coff_start_final_link */
4032 xcoff_ppc_relocate_section,
4033 coff_rtype_to_howto,
4034 NULL, /* _bfd_coff_adjust_symndx */
4035 _bfd_generic_link_add_one_symbol,
4036 coff_link_output_has_begun,
4037 coff_final_link_postscript
f4ffd778
NC		 4038 },
4039
cf9ab45b
AM		 4040 0x01DF, /* magic number */
4041 bfd_arch_rs6000,
4042 bfd_mach_rs6k,
dc810e39 4043
f4ffd778 4044 /* Function pointers to xcoff specific swap routines. */
cf9ab45b
AM		 4045 xcoff_swap_ldhdr_in,
4046 xcoff_swap_ldhdr_out,
4047 xcoff_swap_ldsym_in,
4048 xcoff_swap_ldsym_out,
4049 xcoff_swap_ldrel_in,
4050 xcoff_swap_ldrel_out,
f4ffd778
NC		 4051
4052 /* Sizes. */
cf9ab45b
AM		 4053 LDHDRSZ,
4054 LDSYMSZ,
4055 LDRELSZ,
4056 12, /* _xcoff_function_descriptor_size */
4057 SMALL_AOUTSZ,
f4ffd778 4058
cf9ab45b
AM		 4059 /* Versions. */
4060 1, /* _xcoff_ldhdr_version */
f4ffd778 4061
cf9ab45b
AM		 4062 _bfd_xcoff_put_symbol_name,
4063 _bfd_xcoff_put_ldsymbol_name,
4064 &xcoff_dynamic_reloc,
4065 xcoff_create_csect_from_smclas,
f4ffd778
NC		 4066
4067 /* Lineno and reloc count overflow. */
4068 xcoff_is_lineno_count_overflow,
4069 xcoff_is_reloc_count_overflow,
4070
4071 xcoff_loader_symbol_offset,
4072 xcoff_loader_reloc_offset,
4073
4074 /* glink. */
cf9ab45b
AM		 4075 &xcoff_glink_code[0],
4076 36, /* _xcoff_glink_size */
9a4c7f16
TR		 4077
4078 /* rtinit */
cf9ab45b
AM		 4079 64, /* _xcoff_rtinit_size */
4080 xcoff_generate_rtinit,
4081 };
beb1bf64 4082
eb1e0e80 4083/* The transfer vector that leads the outside world to all of the above. */
beb1bf64 4084const bfd_target rs6000coff_vec =
cf9ab45b
AM		 4085 {
4086 "aixcoff-rs6000",
4087 bfd_target_xcoff_flavour,
4088 BFD_ENDIAN_BIG, /* data byte order is big */
4089 BFD_ENDIAN_BIG, /* header byte order is big */
4090
4091 (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | DYNAMIC
4092 | HAS_SYMS | HAS_LOCALS | WP_TEXT),
4093
a7c71b0c 4094 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA,
cf9ab45b
AM		 4095 0, /* leading char */
4096 '/', /* ar_pad_char */
4097 15, /* ar_max_namelen */
4098
4099 /* data */
4100 bfd_getb64,
4101 bfd_getb_signed_64,
4102 bfd_putb64,
4103 bfd_getb32,
4104 bfd_getb_signed_32,
4105 bfd_putb32,
4106 bfd_getb16,
4107 bfd_getb_signed_16,
4108 bfd_putb16,
4109
4110 /* hdrs */
4111 bfd_getb64,
4112 bfd_getb_signed_64,
4113 bfd_putb64,
4114 bfd_getb32,
4115 bfd_getb_signed_32,
4116 bfd_putb32,
4117 bfd_getb16,
4118 bfd_getb_signed_16,
4119 bfd_putb16,
4120
4121 { /* bfd_check_format */
4122 _bfd_dummy_target,
4123 coff_object_p,
4124 _bfd_xcoff_archive_p,
4125 CORE_FILE_P
4126 },
dc810e39 4127
cf9ab45b
AM		 4128 { /* bfd_set_format */
4129 bfd_false,
4130 coff_mkobject,
4131 _bfd_generic_mkarchive,
4132 bfd_false
4133 },
4134
4135 {/* bfd_write_contents */
4136 bfd_false,
4137 coff_write_object_contents,
4138 _bfd_xcoff_write_archive_contents,
4139 bfd_false
4140 },
4141
4142 /* Generic */
4143 bfd_true,
4144 bfd_true,
4145 coff_new_section_hook,
4146 _bfd_generic_get_section_contents,
4147 _bfd_generic_get_section_contents_in_window,
4148
4149 /* Copy */
4150 _bfd_xcoff_copy_private_bfd_data,
b34976b6 4151 ((bfd_boolean (*) (bfd *, bfd *)) bfd_true),
60b48850 4152 _bfd_generic_init_private_section_data,
b34976b6
AM		 4153 ((bfd_boolean (*) (bfd *, asection *, bfd *, asection *)) bfd_true),
4154 ((bfd_boolean (*) (bfd *, asymbol *, bfd *, asymbol *)) bfd_true),
80fccad2 4155 ((bfd_boolean (*) (bfd *, bfd *)) bfd_true),
b34976b6
AM		 4156 ((bfd_boolean (*) (bfd *, flagword)) bfd_true),
4157 ((bfd_boolean (*) (bfd *, void * )) bfd_true),
cf9ab45b
AM		 4158
4159 /* Core */
4160 coff_core_file_failing_command,
4161 coff_core_file_failing_signal,
4162 coff_core_file_matches_executable_p,
4163
4164 /* Archive */
4165 _bfd_xcoff_slurp_armap,
dc810e39 4166 bfd_false,
b34976b6 4167 ((bfd_boolean (*) (bfd *, char **, bfd_size_type *, const char **)) bfd_false),
cf9ab45b
AM		 4168 bfd_dont_truncate_arname,
4169 _bfd_xcoff_write_armap,
4170 _bfd_xcoff_read_ar_hdr,
4171 _bfd_xcoff_openr_next_archived_file,
4172 _bfd_generic_get_elt_at_index,
4173 _bfd_xcoff_stat_arch_elt,
4174 bfd_true,
4175
4176 /* Symbols */
4177 coff_get_symtab_upper_bound,
6cee3f79 4178 coff_canonicalize_symtab,
cf9ab45b
AM		 4179 coff_make_empty_symbol,
4180 coff_print_symbol,
4181 coff_get_symbol_info,
4182 _bfd_xcoff_is_local_label_name,
7db6994f 4183 coff_bfd_is_target_special_symbol,
cf9ab45b
AM		 4184 coff_get_lineno,
4185 coff_find_nearest_line,
4575b1b5 4186 _bfd_generic_find_line,
4ab527b0 4187 coff_find_inliner_info,
cf9ab45b
AM		 4188 coff_bfd_make_debug_symbol,
4189 _bfd_generic_read_minisymbols,
4190 _bfd_generic_minisymbol_to_symbol,
4191
4192 /* Reloc */
4193 coff_get_reloc_upper_bound,
4194 coff_canonicalize_reloc,
4195 _bfd_xcoff_reloc_type_lookup,
157090f7 4196 _bfd_xcoff_reloc_name_lookup,
cf9ab45b
AM		 4197
4198 /* Write */
4199 coff_set_arch_mach,
4200 coff_set_section_contents,
4201
4202 /* Link */
4203 _bfd_xcoff_sizeof_headers,
4204 bfd_generic_get_relocated_section_contents,
4205 bfd_generic_relax_section,
4206 _bfd_xcoff_bfd_link_hash_table_create,
4207 _bfd_generic_link_hash_table_free,
4208 _bfd_xcoff_bfd_link_add_symbols,
4209 _bfd_generic_link_just_syms,
4210 _bfd_xcoff_bfd_final_link,
4211 _bfd_generic_link_split_section,
4212 bfd_generic_gc_sections,
4213 bfd_generic_merge_sections,
72adc230 4214 bfd_generic_is_group_section,
cf9ab45b 4215 bfd_generic_discard_group,
082b7297 4216 _bfd_generic_section_already_linked,
cf9ab45b
AM		 4217
4218 /* Dynamic */
4219 _bfd_xcoff_get_dynamic_symtab_upper_bound,
4220 _bfd_xcoff_canonicalize_dynamic_symtab,
4c45e5c9 4221 _bfd_nodynamic_get_synthetic_symtab,
cf9ab45b
AM		 4222 _bfd_xcoff_get_dynamic_reloc_upper_bound,
4223 _bfd_xcoff_canonicalize_dynamic_reloc,
4224
4225 /* Opposite endian version, none exists */
4226 NULL,
4227
4228 (void *) &bfd_xcoff_backend_data,
4229 };
beb1bf64 4230
cf9ab45b
AM		 4231/* xcoff-powermac target
4232 Old target.
4233 Only difference between this target and the rs6000 target is the
4234 the default architecture and machine type used in coffcode.h
4235
4236 PowerPC Macs use the same magic numbers as RS/6000
4237 (because that's how they were bootstrapped originally),
4238 but they are always PowerPC architecture. */
dc810e39 4239static const struct xcoff_backend_data_rec bfd_pmac_xcoff_backend_data =
cf9ab45b
AM		 4240 {
4241 { /* COFF backend, defined in libcoff.h. */
4242 _bfd_xcoff_swap_aux_in,
4243 _bfd_xcoff_swap_sym_in,
4244 coff_swap_lineno_in,
4245 _bfd_xcoff_swap_aux_out,
4246 _bfd_xcoff_swap_sym_out,
4247 coff_swap_lineno_out,
4248 xcoff_swap_reloc_out,
4249 coff_swap_filehdr_out,
4250 coff_swap_aouthdr_out,
4251 coff_swap_scnhdr_out,
4252 FILHSZ,
4253 AOUTSZ,
4254 SCNHSZ,
4255 SYMESZ,
4256 AUXESZ,
4257 RELSZ,
4258 LINESZ,
4259 FILNMLEN,
b34976b6
AM		 4260 TRUE, /* _bfd_coff_long_filenames */
4261 FALSE, /* _bfd_coff_long_section_names */
cf9ab45b 4262 3, /* _bfd_coff_default_section_alignment_power */
b34976b6 4263 FALSE, /* _bfd_coff_force_symnames_in_strings */
cf9ab45b
AM		 4264 2, /* _bfd_coff_debug_string_prefix_length */
4265 coff_swap_filehdr_in,
4266 coff_swap_aouthdr_in,
4267 coff_swap_scnhdr_in,
4268 xcoff_swap_reloc_in,
4269 coff_bad_format_hook,
4270 coff_set_arch_mach_hook,
4271 coff_mkobject_hook,
4272 styp_to_sec_flags,
4273 coff_set_alignment_hook,
4274 coff_slurp_symbol_table,
4275 symname_in_debug_hook,
4276 coff_pointerize_aux_hook,
4277 coff_print_aux,
4278 dummy_reloc16_extra_cases,
4279 dummy_reloc16_estimate,
4280 NULL, /* bfd_coff_sym_is_global */
4281 coff_compute_section_file_positions,
4282 NULL, /* _bfd_coff_start_final_link */
4283 xcoff_ppc_relocate_section,
4284 coff_rtype_to_howto,
4285 NULL, /* _bfd_coff_adjust_symndx */
4286 _bfd_generic_link_add_one_symbol,
4287 coff_link_output_has_begun,
4288 coff_final_link_postscript
4289 },
4290
4291 0x01DF, /* magic number */
4292 bfd_arch_powerpc,
4293 bfd_mach_ppc,
4294
4295 /* Function pointers to xcoff specific swap routines. */
4296 xcoff_swap_ldhdr_in,
4297 xcoff_swap_ldhdr_out,
4298 xcoff_swap_ldsym_in,
4299 xcoff_swap_ldsym_out,
4300 xcoff_swap_ldrel_in,
4301 xcoff_swap_ldrel_out,
4302
4303 /* Sizes. */
4304 LDHDRSZ,
4305 LDSYMSZ,
4306 LDRELSZ,
4307 12, /* _xcoff_function_descriptor_size */
4308 SMALL_AOUTSZ,
4309
4310 /* Versions. */
4311 1, /* _xcoff_ldhdr_version */
4312
4313 _bfd_xcoff_put_symbol_name,
4314 _bfd_xcoff_put_ldsymbol_name,
4315 &xcoff_dynamic_reloc,
4316 xcoff_create_csect_from_smclas,
4317
4318 /* Lineno and reloc count overflow. */
4319 xcoff_is_lineno_count_overflow,
4320 xcoff_is_reloc_count_overflow,
4321
4322 xcoff_loader_symbol_offset,
4323 xcoff_loader_reloc_offset,
beb1bf64 4324
cf9ab45b
AM		 4325 /* glink. */
4326 &xcoff_glink_code[0],
4327 36, /* _xcoff_glink_size */
4328
4329 /* rtinit */
4330 0, /* _xcoff_rtinit_size */
4331 xcoff_generate_rtinit,
4332 };
4333
4334/* The transfer vector that leads the outside world to all of the above. */
beb1bf64 4335const bfd_target pmac_xcoff_vec =
cf9ab45b
AM		 4336 {
4337 "xcoff-powermac",
4338 bfd_target_xcoff_flavour,
4339 BFD_ENDIAN_BIG, /* data byte order is big */
4340 BFD_ENDIAN_BIG, /* header byte order is big */
4341
4342 (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | DYNAMIC
4343 | HAS_SYMS | HAS_LOCALS | WP_TEXT),
4344
a7c71b0c 4345 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA,
cf9ab45b
AM		 4346 0, /* leading char */
4347 '/', /* ar_pad_char */
4348 15, /* ar_max_namelen */
4349
4350 /* data */
4351 bfd_getb64,
4352 bfd_getb_signed_64,
4353 bfd_putb64,
4354 bfd_getb32,
4355 bfd_getb_signed_32,
4356 bfd_putb32,
4357 bfd_getb16,
4358 bfd_getb_signed_16,
4359 bfd_putb16,
4360
4361 /* hdrs */
4362 bfd_getb64,
4363 bfd_getb_signed_64,
4364 bfd_putb64,
4365 bfd_getb32,
4366 bfd_getb_signed_32,
4367 bfd_putb32,
4368 bfd_getb16,
4369 bfd_getb_signed_16,
4370 bfd_putb16,
4371
4372 { /* bfd_check_format */
4373 _bfd_dummy_target,
4374 coff_object_p,
4375 _bfd_xcoff_archive_p,
4376 CORE_FILE_P
4377 },
4378
4379 { /* bfd_set_format */
4380 bfd_false,
4381 coff_mkobject,
4382 _bfd_generic_mkarchive,
4383 bfd_false
4384 },
4385
4386 {/* bfd_write_contents */
4387 bfd_false,
4388 coff_write_object_contents,
4389 _bfd_xcoff_write_archive_contents,
4390 bfd_false
4391 },
dc810e39 4392
cf9ab45b
AM		 4393 /* Generic */
4394 bfd_true,
4395 bfd_true,
4396 coff_new_section_hook,
4397 _bfd_generic_get_section_contents,
4398 _bfd_generic_get_section_contents_in_window,
4399
4400 /* Copy */
4401 _bfd_xcoff_copy_private_bfd_data,
b34976b6 4402 ((bfd_boolean (*) (bfd *, bfd *)) bfd_true),
60b48850 4403 _bfd_generic_init_private_section_data,
b34976b6
AM		 4404 ((bfd_boolean (*) (bfd *, asection *, bfd *, asection *)) bfd_true),
4405 ((bfd_boolean (*) (bfd *, asymbol *, bfd *, asymbol *)) bfd_true),
80fccad2 4406 ((bfd_boolean (*) (bfd *, bfd *)) bfd_true),
b34976b6
AM		 4407 ((bfd_boolean (*) (bfd *, flagword)) bfd_true),
4408 ((bfd_boolean (*) (bfd *, void * )) bfd_true),
cf9ab45b
AM		 4409
4410 /* Core */
4411 coff_core_file_failing_command,
4412 coff_core_file_failing_signal,
4413 coff_core_file_matches_executable_p,
4414
4415 /* Archive */
4416 _bfd_xcoff_slurp_armap,
dc810e39 4417 bfd_false,
b34976b6 4418 ((bfd_boolean (*) (bfd *, char **, bfd_size_type *, const char **)) bfd_false),
cf9ab45b
AM		 4419 bfd_dont_truncate_arname,
4420 _bfd_xcoff_write_armap,
4421 _bfd_xcoff_read_ar_hdr,
4422 _bfd_xcoff_openr_next_archived_file,
4423 _bfd_generic_get_elt_at_index,
4424 _bfd_xcoff_stat_arch_elt,
4425 bfd_true,
4426
4427 /* Symbols */
4428 coff_get_symtab_upper_bound,
6cee3f79 4429 coff_canonicalize_symtab,
cf9ab45b
AM		 4430 coff_make_empty_symbol,
4431 coff_print_symbol,
4432 coff_get_symbol_info,
4433 _bfd_xcoff_is_local_label_name,
7db6994f 4434 coff_bfd_is_target_special_symbol,
cf9ab45b
AM		 4435 coff_get_lineno,
4436 coff_find_nearest_line,
4575b1b5 4437 _bfd_generic_find_line,
4ab527b0 4438 coff_find_inliner_info,
cf9ab45b
AM		 4439 coff_bfd_make_debug_symbol,
4440 _bfd_generic_read_minisymbols,
4441 _bfd_generic_minisymbol_to_symbol,
4442
4443 /* Reloc */
4444 coff_get_reloc_upper_bound,
4445 coff_canonicalize_reloc,
4446 _bfd_xcoff_reloc_type_lookup,
157090f7 4447 _bfd_xcoff_reloc_name_lookup,
cf9ab45b
AM		 4448
4449 /* Write */
4450 coff_set_arch_mach,
4451 coff_set_section_contents,
4452
4453 /* Link */
4454 _bfd_xcoff_sizeof_headers,
4455 bfd_generic_get_relocated_section_contents,
4456 bfd_generic_relax_section,
4457 _bfd_xcoff_bfd_link_hash_table_create,
4458 _bfd_generic_link_hash_table_free,
4459 _bfd_xcoff_bfd_link_add_symbols,
4460 _bfd_generic_link_just_syms,
4461 _bfd_xcoff_bfd_final_link,
4462 _bfd_generic_link_split_section,
4463 bfd_generic_gc_sections,
4464 bfd_generic_merge_sections,
72adc230 4465 bfd_generic_is_group_section,
cf9ab45b 4466 bfd_generic_discard_group,
082b7297 4467 _bfd_generic_section_already_linked,
cf9ab45b
AM		 4468
4469 /* Dynamic */
4470 _bfd_xcoff_get_dynamic_symtab_upper_bound,
4471 _bfd_xcoff_canonicalize_dynamic_symtab,
4c45e5c9 4472 _bfd_nodynamic_get_synthetic_symtab,
cf9ab45b
AM		 4473 _bfd_xcoff_get_dynamic_reloc_upper_bound,
4474 _bfd_xcoff_canonicalize_dynamic_reloc,
4475
4476 /* Opposite endian version, none exists */
4477 NULL,
4478
4479 (void *) &bfd_pmac_xcoff_backend_data,
4480 };
GDB Binutils - Deliverables
This page took 0.954161 seconds and 4 git commands to generate.