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