1 /* BFD back-end for IBM RS/6000 "XCOFF" files.
2 Copyright 1990, 91, 92, 93, 94, 95, 96, 97, 98, 1999
3 Free Software Foundation, Inc.
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
8 Written by Metin G. Ozisik, Mimi Ph\373\364ng-Th\345o V\365,
10 Archive support from Damon A. Permezel.
11 Contributed by IBM Corporation and Cygnus Support.
13 This file is part of BFD, the Binary File Descriptor library.
15 This program is free software; you can redistribute it and/or modify
16 it under the terms of the GNU General Public License as published by
17 the Free Software Foundation; either version 2 of the License, or
18 (at your option) any later version.
20 This program is distributed in the hope that it will be useful,
21 but WITHOUT ANY WARRANTY; without even the implied warranty of
22 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 GNU General Public License for more details.
25 You should have received a copy of the GNU General Public License
26 along with this program; if not, write to the Free Software
27 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
33 #include "coff/internal.h"
34 #include "coff/rs6000.h"
36 #define TARGET_NAME "aixcoff-rs6000"
37 #define TARGET_SYM rs6000coff_vec
38 #include "xcoff-target.h"
41 /* The main body of code is in coffcode.h. */
43 static const char *normalize_filename
PARAMS ((bfd
*));
45 /* We use our own tdata type. Its first field is the COFF tdata type,
46 so the COFF routines are compatible. */
49 _bfd_xcoff_mkobject (abfd
)
54 abfd
->tdata
.xcoff_obj_data
=
55 ((struct xcoff_tdata
*)
56 bfd_zalloc (abfd
, sizeof (struct xcoff_tdata
)));
57 if (abfd
->tdata
.xcoff_obj_data
== NULL
)
59 coff
= coff_data (abfd
);
60 coff
->symbols
= (coff_symbol_type
*) NULL
;
61 coff
->conversion_table
= (unsigned int *) NULL
;
62 coff
->raw_syments
= (struct coff_ptr_struct
*) NULL
;
65 xcoff_data (abfd
)->modtype
= ('1' << 8) | 'L';
67 /* We set cputype to -1 to indicate that it has not been
69 xcoff_data (abfd
)->cputype
= -1;
71 xcoff_data (abfd
)->csects
= NULL
;
72 xcoff_data (abfd
)->debug_indices
= NULL
;
77 /* Copy XCOFF data from one BFD to another. */
80 _bfd_xcoff_copy_private_bfd_data (ibfd
, obfd
)
84 struct xcoff_tdata
*ix
, *ox
;
87 if (ibfd
->xvec
!= obfd
->xvec
)
89 ix
= xcoff_data (ibfd
);
90 ox
= xcoff_data (obfd
);
91 ox
->full_aouthdr
= ix
->full_aouthdr
;
97 sec
= coff_section_from_bfd_index (ibfd
, ix
->sntoc
);
101 ox
->sntoc
= sec
->output_section
->target_index
;
103 if (ix
->snentry
== 0)
107 sec
= coff_section_from_bfd_index (ibfd
, ix
->snentry
);
111 ox
->snentry
= sec
->output_section
->target_index
;
113 ox
->text_align_power
= ix
->text_align_power
;
114 ox
->data_align_power
= ix
->data_align_power
;
115 ox
->modtype
= ix
->modtype
;
116 ox
->cputype
= ix
->cputype
;
117 ox
->maxdata
= ix
->maxdata
;
118 ox
->maxstack
= ix
->maxstack
;
122 /* I don't think XCOFF really has a notion of local labels based on
123 name. This will mean that ld -X doesn't actually strip anything.
124 The AIX native linker does not have a -X option, and it ignores the
128 _bfd_xcoff_is_local_label_name (abfd
, name
)
129 bfd
*abfd ATTRIBUTE_UNUSED
;
130 const char *name ATTRIBUTE_UNUSED
;
138 _bfd_xcoff_swap_sym_in (abfd
, ext1
, in1
)
143 SYMENT
*ext
= (SYMENT
*)ext1
;
144 struct internal_syment
*in
= (struct internal_syment
*)in1
;
147 if(ext
->e
.e_name
[0] != 0)
149 memcpy(in
->_n
._n_name
, ext
->e
.e_name
, SYMNMLEN
);
153 in
->_n
._n_n
._n_zeroes
= 0;
154 in
->_n
._n_n
._n_offset
=
155 bfd_h_get_32(abfd
, (bfd_byte
*) ext
->e
.e
.e_offset
);
158 in
->n_value
= bfd_h_get_32(abfd
, (bfd_byte
*) ext
->e_value
);
159 in
->n_scnum
= bfd_h_get_16(abfd
, (bfd_byte
*) ext
->e_scnum
);
160 in
->n_type
= bfd_h_get_16(abfd
, (bfd_byte
*) ext
->e_type
);
161 in
->n_sclass
= bfd_h_get_8(abfd
, ext
->e_sclass
);
162 in
->n_numaux
= bfd_h_get_8(abfd
, ext
->e_numaux
);
166 _bfd_xcoff_swap_sym_out (abfd
, inp
, extp
)
171 struct internal_syment
*in
= (struct internal_syment
*)inp
;
172 SYMENT
*ext
=(SYMENT
*)extp
;
174 if(in
->_n
._n_name
[0] != 0)
176 memcpy(ext
->e
.e_name
, in
->_n
._n_name
, SYMNMLEN
);
180 bfd_h_put_32(abfd
, 0, (bfd_byte
*) ext
->e
.e
.e_zeroes
);
181 bfd_h_put_32(abfd
, in
->_n
._n_n
._n_offset
,
182 (bfd_byte
*) ext
->e
.e
.e_offset
);
185 bfd_h_put_32(abfd
, in
->n_value
, (bfd_byte
*) ext
->e_value
);
186 bfd_h_put_16(abfd
, in
->n_scnum
, (bfd_byte
*) ext
->e_scnum
);
187 bfd_h_put_16(abfd
, in
->n_type
, (bfd_byte
*) ext
->e_type
);
188 bfd_h_put_8(abfd
, in
->n_sclass
, ext
->e_sclass
);
189 bfd_h_put_8(abfd
, in
->n_numaux
, ext
->e_numaux
);
190 return bfd_coff_symesz (abfd
);
193 #define PUTWORD bfd_h_put_32
194 #define PUTHALF bfd_h_put_16
195 #define PUTBYTE bfd_h_put_8
196 #define GETWORD bfd_h_get_32
197 #define GETHALF bfd_h_get_16
198 #define GETBYTE bfd_h_get_8
201 _bfd_xcoff_swap_aux_in (abfd
, ext1
, type
, class, indx
, numaux
, in1
)
210 AUXENT
*ext
= (AUXENT
*)ext1
;
211 union internal_auxent
*in
= (union internal_auxent
*)in1
;
215 if (ext
->x_file
.x_fname
[0] == 0) {
216 in
->x_file
.x_n
.x_zeroes
= 0;
217 in
->x_file
.x_n
.x_offset
=
218 bfd_h_get_32(abfd
, (bfd_byte
*) ext
->x_file
.x_n
.x_offset
);
223 memcpy (in
->x_file
.x_fname
, ext
->x_file
.x_fname
,
224 numaux
* sizeof (AUXENT
));
228 memcpy (in
->x_file
.x_fname
, ext
->x_file
.x_fname
, FILNMLEN
);
233 /* RS/6000 "csect" auxents */
236 if (indx
+ 1 == numaux
)
238 in
->x_csect
.x_scnlen
.l
=
239 bfd_h_get_32 (abfd
, ext
->x_csect
.x_scnlen
);
240 in
->x_csect
.x_parmhash
= bfd_h_get_32 (abfd
,
241 ext
->x_csect
.x_parmhash
);
242 in
->x_csect
.x_snhash
= bfd_h_get_16 (abfd
, ext
->x_csect
.x_snhash
);
243 /* We don't have to hack bitfields in x_smtyp because it's
244 defined by shifts-and-ands, which are equivalent on all
246 in
->x_csect
.x_smtyp
= bfd_h_get_8 (abfd
, ext
->x_csect
.x_smtyp
);
247 in
->x_csect
.x_smclas
= bfd_h_get_8 (abfd
, ext
->x_csect
.x_smclas
);
248 in
->x_csect
.x_stab
= bfd_h_get_32 (abfd
, ext
->x_csect
.x_stab
);
249 in
->x_csect
.x_snstab
= bfd_h_get_16 (abfd
, ext
->x_csect
.x_snstab
);
257 if (type
== T_NULL
) {
258 in
->x_scn
.x_scnlen
= bfd_h_get_32(abfd
,
259 (bfd_byte
*) ext
->x_scn
.x_scnlen
);
260 in
->x_scn
.x_nreloc
= bfd_h_get_16(abfd
,
261 (bfd_byte
*) ext
->x_scn
.x_nreloc
);
262 in
->x_scn
.x_nlinno
= bfd_h_get_16(abfd
,
263 (bfd_byte
*) ext
->x_scn
.x_nlinno
);
264 /* PE defines some extra fields; we zero them out for
266 in
->x_scn
.x_checksum
= 0;
267 in
->x_scn
.x_associated
= 0;
268 in
->x_scn
.x_comdat
= 0;
275 in
->x_sym
.x_tagndx
.l
= bfd_h_get_32(abfd
, (bfd_byte
*) ext
->x_sym
.x_tagndx
);
276 in
->x_sym
.x_tvndx
= bfd_h_get_16(abfd
, (bfd_byte
*) ext
->x_sym
.x_tvndx
);
278 if (class == C_BLOCK
|| class == C_FCN
|| ISFCN (type
) || ISTAG (class))
280 in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
= bfd_h_get_32(abfd
, (bfd_byte
*)
281 ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
282 in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
= bfd_h_get_32(abfd
, (bfd_byte
*)
283 ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
287 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0] =
288 bfd_h_get_16 (abfd
, (bfd_byte
*) ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0]);
289 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1] =
290 bfd_h_get_16 (abfd
, (bfd_byte
*) ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1]);
291 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2] =
292 bfd_h_get_16 (abfd
, (bfd_byte
*) ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2]);
293 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3] =
294 bfd_h_get_16 (abfd
, (bfd_byte
*) ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3]);
297 in
->x_sym
.x_misc
.x_fsize
= bfd_h_get_32(abfd
, (bfd_byte
*) ext
->x_sym
.x_misc
.x_fsize
);
300 in
->x_sym
.x_misc
.x_lnsz
.x_lnno
= bfd_h_get_16(abfd
, (bfd_byte
*)
301 ext
->x_sym
.x_misc
.x_lnsz
.x_lnno
);
302 in
->x_sym
.x_misc
.x_lnsz
.x_size
= bfd_h_get_16(abfd
, (bfd_byte
*)
303 ext
->x_sym
.x_misc
.x_lnsz
.x_size
);
307 /* the semicolon is because MSVC doesn't like labels at
315 _bfd_xcoff_swap_aux_out (abfd
, inp
, type
, class, indx
, numaux
, extp
)
320 int indx ATTRIBUTE_UNUSED
;
321 int numaux ATTRIBUTE_UNUSED
;
324 union internal_auxent
*in
= (union internal_auxent
*)inp
;
325 AUXENT
*ext
= (AUXENT
*)extp
;
327 memset((PTR
)ext
, 0, bfd_coff_auxesz (abfd
));
331 if (in
->x_file
.x_fname
[0] == 0)
333 PUTWORD(abfd
, 0, (bfd_byte
*) ext
->x_file
.x_n
.x_zeroes
);
335 in
->x_file
.x_n
.x_offset
,
336 (bfd_byte
*) ext
->x_file
.x_n
.x_offset
);
340 memcpy (ext
->x_file
.x_fname
, in
->x_file
.x_fname
, FILNMLEN
);
344 /* RS/6000 "csect" auxents */
347 if (indx
+ 1 == numaux
)
349 PUTWORD (abfd
, in
->x_csect
.x_scnlen
.l
,ext
->x_csect
.x_scnlen
);
350 PUTWORD (abfd
, in
->x_csect
.x_parmhash
, ext
->x_csect
.x_parmhash
);
351 PUTHALF (abfd
, in
->x_csect
.x_snhash
, ext
->x_csect
.x_snhash
);
352 /* We don't have to hack bitfields in x_smtyp because it's
353 defined by shifts-and-ands, which are equivalent on all
355 PUTBYTE (abfd
, in
->x_csect
.x_smtyp
, ext
->x_csect
.x_smtyp
);
356 PUTBYTE (abfd
, in
->x_csect
.x_smclas
, ext
->x_csect
.x_smclas
);
357 PUTWORD (abfd
, in
->x_csect
.x_stab
, ext
->x_csect
.x_stab
);
358 PUTHALF (abfd
, in
->x_csect
.x_snstab
, ext
->x_csect
.x_snstab
);
366 if (type
== T_NULL
) {
367 bfd_h_put_32(abfd
, in
->x_scn
.x_scnlen
, (bfd_byte
*) ext
->x_scn
.x_scnlen
);
368 bfd_h_put_16(abfd
, in
->x_scn
.x_nreloc
, (bfd_byte
*) ext
->x_scn
.x_nreloc
);
369 bfd_h_put_16(abfd
, in
->x_scn
.x_nlinno
, (bfd_byte
*) ext
->x_scn
.x_nlinno
);
375 PUTWORD(abfd
, in
->x_sym
.x_tagndx
.l
, (bfd_byte
*) ext
->x_sym
.x_tagndx
);
376 bfd_h_put_16 (abfd
, in
->x_sym
.x_tvndx
, (bfd_byte
*) ext
->x_sym
.x_tvndx
);
378 if (class == C_BLOCK
|| class == C_FCN
|| ISFCN (type
) || ISTAG (class))
380 bfd_h_put_32(abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
,
381 (bfd_byte
*) ext
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
);
382 PUTWORD(abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
,
383 (bfd_byte
*) ext
->x_sym
.x_fcnary
.x_fcn
.x_endndx
);
387 bfd_h_put_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0],
388 (bfd_byte
*) ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0]);
389 bfd_h_put_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1],
390 (bfd_byte
*) ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1]);
391 bfd_h_put_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2],
392 (bfd_byte
*) ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2]);
393 bfd_h_put_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3],
394 (bfd_byte
*) ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3]);
398 PUTWORD (abfd
, in
->x_sym
.x_misc
.x_fsize
,
399 (bfd_byte
*) ext
->x_sym
.x_misc
.x_fsize
);
402 bfd_h_put_16(abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_lnno
,
403 (bfd_byte
*)ext
->x_sym
.x_misc
.x_lnsz
.x_lnno
);
404 bfd_h_put_16(abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_size
,
405 (bfd_byte
*)ext
->x_sym
.x_misc
.x_lnsz
.x_size
);
409 return bfd_coff_auxesz (abfd
);
414 /* The XCOFF reloc table. Actually, XCOFF relocations specify the
415 bitsize and whether they are signed or not, along with a
416 conventional type. This table is for the types, which are used for
417 different algorithms for putting in the reloc. Many of these
418 relocs need special_function entries, which I have not written. */
420 /* In case we're on a 32-bit machine, construct a 64-bit "-1" value
421 from smaller values. Start with zero, widen, *then* decrement. */
422 #define MINUS_ONE (((bfd_vma)0) - 1)
424 reloc_howto_type xcoff_howto_table
[] =
426 /* Standard 32 bit relocation. */
429 2, /* size (0 = byte, 1 = short, 2 = long) */
431 false, /* pc_relative */
433 complain_overflow_bitfield
, /* complain_on_overflow */
434 0, /* special_function */
436 true, /* partial_inplace */
437 0xffffffff, /* src_mask */
438 0xffffffff, /* dst_mask */
439 false), /* pcrel_offset */
441 /* 32 bit relocation, but store negative value. */
444 -2, /* size (0 = byte, 1 = short, 2 = long) */
446 false, /* pc_relative */
448 complain_overflow_bitfield
, /* complain_on_overflow */
449 0, /* special_function */
451 true, /* partial_inplace */
452 0xffffffff, /* src_mask */
453 0xffffffff, /* dst_mask */
454 false), /* pcrel_offset */
456 /* 32 bit PC relative relocation. */
459 2, /* size (0 = byte, 1 = short, 2 = long) */
461 true, /* pc_relative */
463 complain_overflow_signed
, /* complain_on_overflow */
464 0, /* special_function */
466 true, /* partial_inplace */
467 0xffffffff, /* src_mask */
468 0xffffffff, /* dst_mask */
469 false), /* pcrel_offset */
471 /* 16 bit TOC relative relocation. */
474 1, /* size (0 = byte, 1 = short, 2 = long) */
476 false, /* pc_relative */
478 complain_overflow_bitfield
, /* complain_on_overflow */
479 0, /* special_function */
481 true, /* partial_inplace */
482 0xffff, /* src_mask */
483 0xffff, /* dst_mask */
484 false), /* pcrel_offset */
486 /* I don't really know what this is. */
489 2, /* size (0 = byte, 1 = short, 2 = long) */
491 false, /* pc_relative */
493 complain_overflow_bitfield
, /* complain_on_overflow */
494 0, /* special_function */
496 true, /* partial_inplace */
497 0xffffffff, /* src_mask */
498 0xffffffff, /* dst_mask */
499 false), /* pcrel_offset */
501 /* External TOC relative symbol. */
504 2, /* size (0 = byte, 1 = short, 2 = long) */
506 false, /* pc_relative */
508 complain_overflow_bitfield
, /* complain_on_overflow */
509 0, /* special_function */
511 true, /* partial_inplace */
512 0xffff, /* src_mask */
513 0xffff, /* dst_mask */
514 false), /* pcrel_offset */
516 /* Local TOC relative symbol. */
519 2, /* size (0 = byte, 1 = short, 2 = long) */
521 false, /* pc_relative */
523 complain_overflow_bitfield
, /* complain_on_overflow */
524 0, /* special_function */
526 true, /* partial_inplace */
527 0xffff, /* src_mask */
528 0xffff, /* dst_mask */
529 false), /* pcrel_offset */
533 /* Non modifiable absolute branch. */
536 2, /* size (0 = byte, 1 = short, 2 = long) */
538 false, /* pc_relative */
540 complain_overflow_bitfield
, /* complain_on_overflow */
541 0, /* special_function */
543 true, /* partial_inplace */
544 0x3fffffc, /* src_mask */
545 0x3fffffc, /* dst_mask */
546 false), /* pcrel_offset */
550 /* Non modifiable relative branch. */
551 HOWTO (0xa, /* type */
553 2, /* size (0 = byte, 1 = short, 2 = long) */
555 true, /* pc_relative */
557 complain_overflow_signed
, /* complain_on_overflow */
558 0, /* special_function */
560 true, /* partial_inplace */
561 0x3fffffc, /* src_mask */
562 0x3fffffc, /* dst_mask */
563 false), /* pcrel_offset */
568 HOWTO (0xc, /* type */
570 2, /* size (0 = byte, 1 = short, 2 = long) */
572 false, /* pc_relative */
574 complain_overflow_bitfield
, /* complain_on_overflow */
575 0, /* special_function */
577 true, /* partial_inplace */
578 0xffff, /* src_mask */
579 0xffff, /* dst_mask */
580 false), /* pcrel_offset */
583 HOWTO (0xd, /* type */
585 2, /* size (0 = byte, 1 = short, 2 = long) */
587 false, /* pc_relative */
589 complain_overflow_bitfield
, /* complain_on_overflow */
590 0, /* special_function */
592 true, /* partial_inplace */
593 0xffff, /* src_mask */
594 0xffff, /* dst_mask */
595 false), /* pcrel_offset */
599 /* Non-relocating reference. */
600 HOWTO (0xf, /* type */
602 2, /* size (0 = byte, 1 = short, 2 = long) */
604 false, /* pc_relative */
606 complain_overflow_bitfield
, /* complain_on_overflow */
607 0, /* special_function */
609 false, /* partial_inplace */
612 false), /* pcrel_offset */
617 /* TOC relative indirect load. */
618 HOWTO (0x12, /* type */
620 2, /* size (0 = byte, 1 = short, 2 = long) */
622 false, /* pc_relative */
624 complain_overflow_bitfield
, /* complain_on_overflow */
625 0, /* special_function */
627 true, /* partial_inplace */
628 0xffff, /* src_mask */
629 0xffff, /* dst_mask */
630 false), /* pcrel_offset */
632 /* TOC relative load address. */
633 HOWTO (0x13, /* type */
635 2, /* size (0 = byte, 1 = short, 2 = long) */
637 false, /* pc_relative */
639 complain_overflow_bitfield
, /* complain_on_overflow */
640 0, /* special_function */
642 true, /* partial_inplace */
643 0xffff, /* src_mask */
644 0xffff, /* dst_mask */
645 false), /* pcrel_offset */
647 /* Modifiable relative branch. */
648 HOWTO (0x14, /* type */
650 2, /* size (0 = byte, 1 = short, 2 = long) */
652 false, /* pc_relative */
654 complain_overflow_bitfield
, /* complain_on_overflow */
655 0, /* special_function */
656 "R_RRTBI", /* name */
657 true, /* partial_inplace */
658 0xffffffff, /* src_mask */
659 0xffffffff, /* dst_mask */
660 false), /* pcrel_offset */
662 /* Modifiable absolute branch. */
663 HOWTO (0x15, /* type */
665 2, /* size (0 = byte, 1 = short, 2 = long) */
667 false, /* pc_relative */
669 complain_overflow_bitfield
, /* complain_on_overflow */
670 0, /* special_function */
671 "R_RRTBA", /* name */
672 true, /* partial_inplace */
673 0xffffffff, /* src_mask */
674 0xffffffff, /* dst_mask */
675 false), /* pcrel_offset */
677 /* Modifiable call absolute indirect. */
678 HOWTO (0x16, /* type */
680 2, /* size (0 = byte, 1 = short, 2 = long) */
682 false, /* pc_relative */
684 complain_overflow_bitfield
, /* complain_on_overflow */
685 0, /* special_function */
687 true, /* partial_inplace */
688 0xffff, /* src_mask */
689 0xffff, /* dst_mask */
690 false), /* pcrel_offset */
692 /* Modifiable call relative. */
693 HOWTO (0x17, /* type */
695 2, /* size (0 = byte, 1 = short, 2 = long) */
697 false, /* pc_relative */
699 complain_overflow_bitfield
, /* complain_on_overflow */
700 0, /* special_function */
702 true, /* partial_inplace */
703 0xffff, /* src_mask */
704 0xffff, /* dst_mask */
705 false), /* pcrel_offset */
707 /* Modifiable branch absolute. */
708 HOWTO (0x18, /* type */
710 2, /* size (0 = byte, 1 = short, 2 = long) */
712 false, /* pc_relative */
714 complain_overflow_bitfield
, /* complain_on_overflow */
715 0, /* special_function */
717 true, /* partial_inplace */
718 0xffff, /* src_mask */
719 0xffff, /* dst_mask */
720 false), /* pcrel_offset */
722 /* Modifiable branch absolute. */
723 HOWTO (0x19, /* type */
725 2, /* size (0 = byte, 1 = short, 2 = long) */
727 false, /* pc_relative */
729 complain_overflow_bitfield
, /* complain_on_overflow */
730 0, /* special_function */
732 true, /* partial_inplace */
733 0xffff, /* src_mask */
734 0xffff, /* dst_mask */
735 false), /* pcrel_offset */
737 /* Modifiable branch relative. */
738 HOWTO (0x1a, /* type */
740 2, /* size (0 = byte, 1 = short, 2 = long) */
742 false, /* pc_relative */
744 complain_overflow_signed
, /* complain_on_overflow */
745 0, /* special_function */
747 true, /* partial_inplace */
748 0xffff, /* src_mask */
749 0xffff, /* dst_mask */
750 false), /* pcrel_offset */
752 /* Modifiable branch absolute. */
753 HOWTO (0x1b, /* type */
755 2, /* size (0 = byte, 1 = short, 2 = long) */
757 false, /* pc_relative */
759 complain_overflow_bitfield
, /* complain_on_overflow */
760 0, /* special_function */
762 true, /* partial_inplace */
763 0xffff, /* src_mask */
764 0xffff, /* dst_mask */
765 false), /* pcrel_offset */
768 4, /* size (0 = byte, 1 = short, 2 = long) */
770 false, /* pc_relative */
772 complain_overflow_bitfield
, /* complain_on_overflow */
773 0, /* special_function */
775 true, /* partial_inplace */
776 MINUS_ONE
, /* src_mask */
777 MINUS_ONE
, /* dst_mask */
778 false) /* pcrel_offset */
782 /* These are the first two like the above but for 16-bit relocs. */
783 static reloc_howto_type xcoff_howto_table_16
[] =
785 /* Standard 16 bit relocation. */
788 2, /* size (0 = byte, 1 = short, 2 = long) */
790 false, /* pc_relative */
792 complain_overflow_bitfield
, /* complain_on_overflow */
793 0, /* special_function */
794 "R_POS_16", /* name */
795 true, /* partial_inplace */
796 0xffffffff, /* src_mask */
797 0xffffffff, /* dst_mask */
798 false), /* pcrel_offset */
800 /* 16 bit relocation, but store negative value. */
803 -2, /* size (0 = byte, 1 = short, 2 = long) */
805 false, /* pc_relative */
807 complain_overflow_bitfield
, /* complain_on_overflow */
808 0, /* special_function */
809 "R_NEG_16", /* name */
810 true, /* partial_inplace */
811 0xffffffff, /* src_mask */
812 0xffffffff, /* dst_mask */
813 false), /* pcrel_offset */
815 /* 16 bit PC relative relocation. */
818 2, /* size (0 = byte, 1 = short, 2 = long) */
820 true, /* pc_relative */
822 complain_overflow_signed
, /* complain_on_overflow */
823 0, /* special_function */
824 "R_REL_16", /* name */
825 true, /* partial_inplace */
826 0xffffffff, /* src_mask */
827 0xffffffff, /* dst_mask */
828 false) /* pcrel_offset */
832 _bfd_xcoff_rtype2howto (relent
, internal
)
834 struct internal_reloc
*internal
;
836 relent
->howto
= xcoff_howto_table
+ internal
->r_type
;
838 if (relent
->howto
->bitsize
!= ((unsigned int) internal
->r_size
& 0x1f) + 1
840 < sizeof(xcoff_howto_table_16
)/sizeof(xcoff_howto_table_16
[0])))
841 relent
->howto
= xcoff_howto_table_16
+ internal
->r_type
;
843 /* The r_size field of an XCOFF reloc encodes the bitsize of the
844 relocation, as well as indicating whether it is signed or not.
845 Doublecheck that the relocation information gathered from the
846 type matches this information. The bitsize is not significant
848 if (relent
->howto
->dst_mask
!= 0
849 && (relent
->howto
->bitsize
850 != ((unsigned int) internal
->r_size
& 0x3f) + 1))
853 if ((internal
->r_size
& 0x80) != 0
854 ? (relent
->howto
->complain_on_overflow
!= complain_overflow_signed
)
855 : (relent
->howto
->complain_on_overflow
!= complain_overflow_bitfield
))
861 _bfd_xcoff_reloc_type_lookup (abfd
, code
)
862 bfd
*abfd ATTRIBUTE_UNUSED
;
863 bfd_reloc_code_real_type code
;
867 case BFD_RELOC_PPC_B26
:
868 return &xcoff_howto_table
[0xa];
869 case BFD_RELOC_PPC_BA26
:
870 return &xcoff_howto_table
[8];
871 case BFD_RELOC_PPC_TOC16
:
872 return &xcoff_howto_table
[3];
875 return &xcoff_howto_table
[0];
877 return &xcoff_howto_table
[0x1c];
884 /* XCOFF archive support. The original version of this code was by
885 Damon A. Permezel. It was enhanced to permit cross support, and
886 writing archive files, by Ian Lance Taylor, Cygnus Support.
888 XCOFF uses its own archive format. Everything is hooked together
889 with file offset links, so it is possible to rapidly update an
890 archive in place. Of course, we don't do that. An XCOFF archive
891 has a real file header, not just an ARMAG string. The structure of
892 the file header and of each archive header appear below.
894 An XCOFF archive also has a member table, which is a list of
895 elements in the archive (you can get that by looking through the
896 linked list, but you have to read a lot more of the file). The
897 member table has a normal archive header with an empty name. It is
898 normally (and perhaps must be) the second to last entry in the
899 archive. The member table data is almost printable ASCII. It
900 starts with a 12 character decimal string which is the number of
901 entries in the table. For each entry it has a 12 character decimal
902 string which is the offset in the archive of that member. These
903 entries are followed by a series of null terminated strings which
904 are the member names for each entry.
906 Finally, an XCOFF archive has a global symbol table, which is what
907 we call the armap. The global symbol table has a normal archive
908 header with an empty name. It is normally (and perhaps must be)
909 the last entry in the archive. The contents start with a four byte
910 binary number which is the number of entries. This is followed by
911 a that many four byte binary numbers; each is the file offset of an
912 entry in the archive. These numbers are followed by a series of
913 null terminated strings, which are symbol names.
915 AIX 4.3 introduced a new archive format which can handle larger
916 files and also 32- and 64-bit objects in the same archive. The
917 things said above remain true except that there is now more than
918 one global symbol table. The one is used to index 32-bit objects,
919 the other for 64-bit objects.
921 The new archives (recognizable by the new ARMAG string) has larger
922 field lengths so that we cannot really share any code. Also we have
923 to take care that we are not generating the new form of archives
924 on AIX 4.2 or earlier systems. */
926 /* XCOFF archives use this as a magic string. Note that both strings
927 have the same length. */
929 #define XCOFFARMAG "<aiaff>\012"
930 #define XCOFFARMAGBIG "<bigaf>\012"
931 #define SXCOFFARMAG 8
933 /* This terminates an XCOFF archive member name. */
935 #define XCOFFARFMAG "`\012"
936 #define SXCOFFARFMAG 2
938 /* XCOFF archives start with this (printable) structure. */
940 struct xcoff_ar_file_hdr
943 char magic
[SXCOFFARMAG
];
945 /* Offset of the member table (decimal ASCII string). */
948 /* Offset of the global symbol table (decimal ASCII string). */
951 /* Offset of the first member in the archive (decimal ASCII string). */
952 char firstmemoff
[12];
954 /* Offset of the last member in the archive (decimal ASCII string). */
957 /* Offset of the first member on the free list (decimal ASCII
962 #define SIZEOF_AR_FILE_HDR (5 * 12 + SXCOFFARMAG)
964 /* This is the equivalent data structure for the big archive format. */
966 struct xcoff_ar_file_hdr_big
969 char magic
[SXCOFFARMAG
];
971 /* Offset of the member table (decimal ASCII string). */
974 /* Offset of the global symbol table for 32-bit objects (decimal ASCII
978 /* Offset of the global symbol table for 64-bit objects (decimal ASCII
982 /* Offset of the first member in the archive (decimal ASCII string). */
983 char firstmemoff
[20];
985 /* Offset of the last member in the archive (decimal ASCII string). */
988 /* Offset of the first member on the free list (decimal ASCII
993 #define SIZEOF_AR_FILE_HDR_BIG (6 * 20 + SXCOFFARMAG)
996 /* Each XCOFF archive member starts with this (printable) structure. */
1000 /* File size not including the header (decimal ASCII string). */
1003 /* File offset of next archive member (decimal ASCII string). */
1006 /* File offset of previous archive member (decimal ASCII string). */
1009 /* File mtime (decimal ASCII string). */
1012 /* File UID (decimal ASCII string). */
1015 /* File GID (decimal ASCII string). */
1018 /* File mode (octal ASCII string). */
1021 /* Length of file name (decimal ASCII string). */
1024 /* This structure is followed by the file name. The length of the
1025 name is given in the namlen field. If the length of the name is
1026 odd, the name is followed by a null byte. The name and optional
1027 null byte are followed by XCOFFARFMAG, which is not included in
1028 namlen. The contents of the archive member follow; the number of
1029 bytes is given in the size field. */
1032 #define SIZEOF_AR_HDR (7 * 12 + 4)
1034 /* The equivalent for the big archive format. */
1036 struct xcoff_ar_hdr_big
1038 /* File size not including the header (decimal ASCII string). */
1041 /* File offset of next archive member (decimal ASCII string). */
1044 /* File offset of previous archive member (decimal ASCII string). */
1047 /* File mtime (decimal ASCII string). */
1050 /* File UID (decimal ASCII string). */
1053 /* File GID (decimal ASCII string). */
1056 /* File mode (octal ASCII string). */
1059 /* Length of file name (decimal ASCII string). */
1062 /* This structure is followed by the file name. The length of the
1063 name is given in the namlen field. If the length of the name is
1064 odd, the name is followed by a null byte. The name and optional
1065 null byte are followed by XCOFFARFMAG, which is not included in
1066 namlen. The contents of the archive member follow; the number of
1067 bytes is given in the size field. */
1070 #define SIZEOF_AR_HDR_BIG (3 * 20 + 4 * 12 + 4)
1073 /* We often have to distinguish between the old and big file format.
1074 Make it a bit cleaner. We can use `xcoff_ardata' here because the
1075 `hdr' member has the same size and position in both formats. */
1076 #define xcoff_big_format_p(abfd) \
1077 (xcoff_ardata (abfd)->magic[1] == 'b')
1079 /* We store a copy of the xcoff_ar_file_hdr in the tdata field of the
1080 artdata structure. Similar for the big archive. */
1081 #define xcoff_ardata(abfd) \
1082 ((struct xcoff_ar_file_hdr *) bfd_ardata (abfd)->tdata)
1083 #define xcoff_ardata_big(abfd) \
1084 ((struct xcoff_ar_file_hdr_big *) bfd_ardata (abfd)->tdata)
1086 /* We store a copy of the xcoff_ar_hdr in the arelt_data field of an
1087 archive element. Similar for the big archive. */
1088 #define arch_eltdata(bfd) ((struct areltdata *) ((bfd)->arelt_data))
1089 #define arch_xhdr(bfd) \
1090 ((struct xcoff_ar_hdr *) arch_eltdata (bfd)->arch_header)
1091 #define arch_xhdr_big(bfd) \
1092 ((struct xcoff_ar_hdr_big *) arch_eltdata (bfd)->arch_header)
1094 /* Read in the armap of an XCOFF archive. */
1097 _bfd_xcoff_slurp_armap (abfd
)
1103 bfd_byte
*contents
, *cend
;
1108 if (xcoff_ardata (abfd
) == NULL
)
1110 bfd_has_map (abfd
) = false;
1114 if (! xcoff_big_format_p (abfd
))
1116 /* This is for the old format. */
1117 struct xcoff_ar_hdr hdr
;
1119 off
= strtol (xcoff_ardata (abfd
)->symoff
, (char **) NULL
, 10);
1122 bfd_has_map (abfd
) = false;
1126 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1129 /* The symbol table starts with a normal archive header. */
1130 if (bfd_read ((PTR
) &hdr
, SIZEOF_AR_HDR
, 1, abfd
) != SIZEOF_AR_HDR
)
1133 /* Skip the name (normally empty). */
1134 namlen
= strtol (hdr
.namlen
, (char **) NULL
, 10);
1135 if (bfd_seek (abfd
, ((namlen
+ 1) & ~1) + SXCOFFARFMAG
, SEEK_CUR
) != 0)
1138 sz
= strtol (hdr
.size
, (char **) NULL
, 10);
1140 /* Read in the entire symbol table. */
1141 contents
= (bfd_byte
*) bfd_alloc (abfd
, sz
);
1142 if (contents
== NULL
)
1144 if (bfd_read ((PTR
) contents
, 1, sz
, abfd
) != sz
)
1147 /* The symbol table starts with a four byte count. */
1148 c
= bfd_h_get_32 (abfd
, contents
);
1152 bfd_set_error (bfd_error_bad_value
);
1156 bfd_ardata (abfd
)->symdefs
= ((carsym
*)
1157 bfd_alloc (abfd
, c
* sizeof (carsym
)));
1158 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1161 /* After the count comes a list of four byte file offsets. */
1162 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 4;
1164 ++i
, ++arsym
, p
+= 4)
1165 arsym
->file_offset
= bfd_h_get_32 (abfd
, p
);
1169 /* This is for the new format. */
1170 struct xcoff_ar_hdr_big hdr
;
1172 off
= strtol (xcoff_ardata_big (abfd
)->symoff
, (char **) NULL
, 10);
1175 bfd_has_map (abfd
) = false;
1179 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0)
1182 /* The symbol table starts with a normal archive header. */
1183 if (bfd_read ((PTR
) &hdr
, SIZEOF_AR_HDR_BIG
, 1, abfd
)
1184 != SIZEOF_AR_HDR_BIG
)
1187 /* Skip the name (normally empty). */
1188 namlen
= strtol (hdr
.namlen
, (char **) NULL
, 10);
1189 if (bfd_seek (abfd
, ((namlen
+ 1) & ~1) + SXCOFFARFMAG
, SEEK_CUR
) != 0)
1192 /* XXX This actually has to be a call to strtoll (at least on 32-bit
1193 machines) since the field width is 20 and there numbers with more
1194 than 32 bits can be represented. */
1195 sz
= strtol (hdr
.size
, (char **) NULL
, 10);
1197 /* Read in the entire symbol table. */
1198 contents
= (bfd_byte
*) bfd_alloc (abfd
, sz
);
1199 if (contents
== NULL
)
1201 if (bfd_read ((PTR
) contents
, 1, sz
, abfd
) != sz
)
1204 /* The symbol table starts with an eight byte count. */
1205 c
= bfd_h_get_64 (abfd
, contents
);
1209 bfd_set_error (bfd_error_bad_value
);
1213 bfd_ardata (abfd
)->symdefs
= ((carsym
*)
1214 bfd_alloc (abfd
, c
* sizeof (carsym
)));
1215 if (bfd_ardata (abfd
)->symdefs
== NULL
)
1218 /* After the count comes a list of eight byte file offsets. */
1219 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
, p
= contents
+ 8;
1221 ++i
, ++arsym
, p
+= 8)
1222 arsym
->file_offset
= bfd_h_get_64 (abfd
, p
);
1225 /* After the file offsets come null terminated symbol names. */
1226 cend
= contents
+ sz
;
1227 for (i
= 0, arsym
= bfd_ardata (abfd
)->symdefs
;
1229 ++i
, ++arsym
, p
+= strlen ((char *) p
) + 1)
1233 bfd_set_error (bfd_error_bad_value
);
1236 arsym
->name
= (char *) p
;
1239 bfd_ardata (abfd
)->symdef_count
= c
;
1240 bfd_has_map (abfd
) = true;
1245 /* See if this is an XCOFF archive. */
1248 _bfd_xcoff_archive_p (abfd
)
1251 char magic
[SXCOFFARMAG
];
1253 if (bfd_read ((PTR
) magic
, SXCOFFARMAG
, 1, abfd
) != SXCOFFARMAG
)
1255 if (bfd_get_error () != bfd_error_system_call
)
1256 bfd_set_error (bfd_error_wrong_format
);
1260 if (strncmp (magic
, XCOFFARMAG
, SXCOFFARMAG
) != 0
1261 && strncmp (magic
, XCOFFARMAGBIG
, SXCOFFARMAG
) != 0)
1263 bfd_set_error (bfd_error_wrong_format
);
1267 /* We are setting bfd_ardata(abfd) here, but since bfd_ardata
1268 involves a cast, we can't do it as the left operand of
1270 abfd
->tdata
.aout_ar_data
=
1271 (struct artdata
*) bfd_zalloc (abfd
, sizeof (struct artdata
));
1273 if (bfd_ardata (abfd
) == (struct artdata
*) NULL
)
1276 bfd_ardata (abfd
)->cache
= NULL
;
1277 bfd_ardata (abfd
)->archive_head
= NULL
;
1278 bfd_ardata (abfd
)->symdefs
= NULL
;
1279 bfd_ardata (abfd
)->extended_names
= NULL
;
1281 /* Now handle the two formats. */
1282 if (magic
[1] != 'b')
1284 /* This is the old format. */
1285 struct xcoff_ar_file_hdr hdr
;
1287 /* Copy over the magic string. */
1288 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1290 /* Now read the rest of the file header. */
1291 if (bfd_read ((PTR
) &hdr
.memoff
, SIZEOF_AR_FILE_HDR
- SXCOFFARMAG
, 1,
1292 abfd
) != SIZEOF_AR_FILE_HDR
- SXCOFFARMAG
)
1294 if (bfd_get_error () != bfd_error_system_call
)
1295 bfd_set_error (bfd_error_wrong_format
);
1299 bfd_ardata (abfd
)->first_file_filepos
= strtol (hdr
.firstmemoff
,
1300 (char **) NULL
, 10);
1302 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, SIZEOF_AR_FILE_HDR
);
1303 if (bfd_ardata (abfd
)->tdata
== NULL
)
1306 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR
);
1310 /* This is the new format. */
1311 struct xcoff_ar_file_hdr_big hdr
;
1313 /* Copy over the magic string. */
1314 memcpy (hdr
.magic
, magic
, SXCOFFARMAG
);
1316 /* Now read the rest of the file header. */
1317 if (bfd_read ((PTR
) &hdr
.memoff
, SIZEOF_AR_FILE_HDR_BIG
- SXCOFFARMAG
, 1,
1318 abfd
) != SIZEOF_AR_FILE_HDR_BIG
- SXCOFFARMAG
)
1320 if (bfd_get_error () != bfd_error_system_call
)
1321 bfd_set_error (bfd_error_wrong_format
);
1325 /* XXX This actually has to be a call to strtoll (at least on 32-bit
1326 machines) since the field width is 20 and there numbers with more
1327 than 32 bits can be represented. */
1328 bfd_ardata (abfd
)->first_file_filepos
= strtol (hdr
.firstmemoff
,
1329 (char **) NULL
, 10);
1331 bfd_ardata (abfd
)->tdata
= bfd_zalloc (abfd
, SIZEOF_AR_FILE_HDR_BIG
);
1332 if (bfd_ardata (abfd
)->tdata
== NULL
)
1335 memcpy (bfd_ardata (abfd
)->tdata
, &hdr
, SIZEOF_AR_FILE_HDR_BIG
);
1338 if (! _bfd_xcoff_slurp_armap (abfd
))
1340 bfd_release (abfd
, bfd_ardata (abfd
));
1341 abfd
->tdata
.aout_ar_data
= (struct artdata
*) NULL
;
1348 /* Read the archive header in an XCOFF archive. */
1351 _bfd_xcoff_read_ar_hdr (abfd
)
1355 struct areltdata
*ret
;
1357 ret
= (struct areltdata
*) bfd_alloc (abfd
, sizeof (struct areltdata
));
1361 if (! xcoff_big_format_p (abfd
))
1363 struct xcoff_ar_hdr hdr
;
1364 struct xcoff_ar_hdr
*hdrp
;
1366 if (bfd_read ((PTR
) &hdr
, SIZEOF_AR_HDR
, 1, abfd
) != SIZEOF_AR_HDR
)
1372 namlen
= strtol (hdr
.namlen
, (char **) NULL
, 10);
1373 hdrp
= (struct xcoff_ar_hdr
*) bfd_alloc (abfd
,
1374 SIZEOF_AR_HDR
+ namlen
+ 1);
1380 memcpy (hdrp
, &hdr
, SIZEOF_AR_HDR
);
1381 if (bfd_read ((char *) hdrp
+ SIZEOF_AR_HDR
, 1, namlen
, abfd
) != namlen
)
1386 ((char *) hdrp
)[SIZEOF_AR_HDR
+ namlen
] = '\0';
1388 ret
->arch_header
= (char *) hdrp
;
1389 ret
->parsed_size
= strtol (hdr
.size
, (char **) NULL
, 10);
1390 ret
->filename
= (char *) hdrp
+ SIZEOF_AR_HDR
;
1394 struct xcoff_ar_hdr_big hdr
;
1395 struct xcoff_ar_hdr_big
*hdrp
;
1397 if (bfd_read ((PTR
) &hdr
, SIZEOF_AR_HDR_BIG
, 1, abfd
)
1398 != SIZEOF_AR_HDR_BIG
)
1404 namlen
= strtol (hdr
.namlen
, (char **) NULL
, 10);
1405 hdrp
= (struct xcoff_ar_hdr_big
*) bfd_alloc (abfd
,
1413 memcpy (hdrp
, &hdr
, SIZEOF_AR_HDR_BIG
);
1414 if (bfd_read ((char *) hdrp
+ SIZEOF_AR_HDR_BIG
, 1, namlen
, abfd
) != namlen
)
1419 ((char *) hdrp
)[SIZEOF_AR_HDR_BIG
+ namlen
] = '\0';
1421 ret
->arch_header
= (char *) hdrp
;
1422 /* XXX This actually has to be a call to strtoll (at least on 32-bit
1423 machines) since the field width is 20 and there numbers with more
1424 than 32 bits can be represented. */
1425 ret
->parsed_size
= strtol (hdr
.size
, (char **) NULL
, 10);
1426 ret
->filename
= (char *) hdrp
+ SIZEOF_AR_HDR_BIG
;
1429 /* Skip over the XCOFFARFMAG at the end of the file name. */
1430 if (bfd_seek (abfd
, (namlen
& 1) + SXCOFFARFMAG
, SEEK_CUR
) != 0)
1436 /* Open the next element in an XCOFF archive. */
1439 _bfd_xcoff_openr_next_archived_file (archive
, last_file
)
1445 if (xcoff_ardata (archive
) == NULL
)
1447 bfd_set_error (bfd_error_invalid_operation
);
1451 if (! xcoff_big_format_p (archive
))
1453 if (last_file
== NULL
)
1454 filestart
= bfd_ardata (archive
)->first_file_filepos
;
1456 filestart
= strtol (arch_xhdr (last_file
)->nextoff
, (char **) NULL
,
1460 || filestart
== strtol (xcoff_ardata (archive
)->memoff
,
1462 || filestart
== strtol (xcoff_ardata (archive
)->symoff
,
1463 (char **) NULL
, 10))
1465 bfd_set_error (bfd_error_no_more_archived_files
);
1471 if (last_file
== NULL
)
1472 filestart
= bfd_ardata (archive
)->first_file_filepos
;
1474 /* XXX These actually have to be a calls to strtoll (at least
1475 on 32-bit machines) since the fields's width is 20 and
1476 there numbers with more than 32 bits can be represented. */
1477 filestart
= strtol (arch_xhdr_big (last_file
)->nextoff
, (char **) NULL
,
1480 /* XXX These actually have to be calls to strtoll (at least on 32-bit
1481 machines) since the fields's width is 20 and there numbers with more
1482 than 32 bits can be represented. */
1484 || filestart
== strtol (xcoff_ardata_big (archive
)->memoff
,
1486 || filestart
== strtol (xcoff_ardata_big (archive
)->symoff
,
1487 (char **) NULL
, 10))
1489 bfd_set_error (bfd_error_no_more_archived_files
);
1494 return _bfd_get_elt_at_filepos (archive
, filestart
);
1497 /* Stat an element in an XCOFF archive. */
1500 _bfd_xcoff_generic_stat_arch_elt (abfd
, s
)
1504 if (abfd
->arelt_data
== NULL
)
1506 bfd_set_error (bfd_error_invalid_operation
);
1510 if (! xcoff_big_format_p (abfd
))
1512 struct xcoff_ar_hdr
*hdrp
= arch_xhdr (abfd
);
1514 s
->st_mtime
= strtol (hdrp
->date
, (char **) NULL
, 10);
1515 s
->st_uid
= strtol (hdrp
->uid
, (char **) NULL
, 10);
1516 s
->st_gid
= strtol (hdrp
->gid
, (char **) NULL
, 10);
1517 s
->st_mode
= strtol (hdrp
->mode
, (char **) NULL
, 8);
1518 s
->st_size
= arch_eltdata (abfd
)->parsed_size
;
1522 struct xcoff_ar_hdr_big
*hdrp
= arch_xhdr_big (abfd
);
1524 s
->st_mtime
= strtol (hdrp
->date
, (char **) NULL
, 10);
1525 s
->st_uid
= strtol (hdrp
->uid
, (char **) NULL
, 10);
1526 s
->st_gid
= strtol (hdrp
->gid
, (char **) NULL
, 10);
1527 s
->st_mode
= strtol (hdrp
->mode
, (char **) NULL
, 8);
1528 s
->st_size
= arch_eltdata (abfd
)->parsed_size
;
1534 /* Normalize a file name for inclusion in an archive. */
1537 normalize_filename (abfd
)
1541 const char *filename
;
1543 file
= bfd_get_filename (abfd
);
1544 filename
= strrchr (file
, '/');
1545 if (filename
!= NULL
)
1552 /* Write out an XCOFF armap. */
1556 xcoff_write_armap_old (abfd
, elength
, map
, orl_count
, stridx
)
1558 unsigned int elength ATTRIBUTE_UNUSED
;
1560 unsigned int orl_count
;
1563 struct xcoff_ar_hdr hdr
;
1565 unsigned char buf
[4];
1570 memset (&hdr
, 0, sizeof hdr
);
1571 sprintf (hdr
.size
, "%ld", (long) (4 + orl_count
* 4 + stridx
));
1572 sprintf (hdr
.nextoff
, "%d", 0);
1573 memcpy (hdr
.prevoff
, xcoff_ardata (abfd
)->memoff
, 12);
1574 sprintf (hdr
.date
, "%d", 0);
1575 sprintf (hdr
.uid
, "%d", 0);
1576 sprintf (hdr
.gid
, "%d", 0);
1577 sprintf (hdr
.mode
, "%d", 0);
1578 sprintf (hdr
.namlen
, "%d", 0);
1580 /* We need spaces, not null bytes, in the header. */
1581 for (p
= (char *) &hdr
; p
< (char *) &hdr
+ SIZEOF_AR_HDR
; p
++)
1585 if (bfd_write ((PTR
) &hdr
, SIZEOF_AR_HDR
, 1, abfd
) != SIZEOF_AR_HDR
1586 || bfd_write (XCOFFARFMAG
, 1, SXCOFFARFMAG
, abfd
) != SXCOFFARFMAG
)
1589 bfd_h_put_32 (abfd
, orl_count
, buf
);
1590 if (bfd_write (buf
, 1, 4, abfd
) != 4)
1593 sub
= abfd
->archive_head
;
1594 fileoff
= SIZEOF_AR_FILE_HDR
;
1596 while (sub
!= NULL
&& i
< orl_count
)
1600 while (((bfd
*) (map
[i
]).pos
) == sub
)
1602 bfd_h_put_32 (abfd
, fileoff
, buf
);
1603 if (bfd_write (buf
, 1, 4, abfd
) != 4)
1607 namlen
= strlen (normalize_filename (sub
));
1608 namlen
= (namlen
+ 1) &~ 1;
1609 fileoff
+= (SIZEOF_AR_HDR
1612 + arelt_size (sub
));
1613 fileoff
= (fileoff
+ 1) &~ 1;
1617 for (i
= 0; i
< orl_count
; i
++)
1622 name
= *map
[i
].name
;
1623 namlen
= strlen (name
);
1624 if (bfd_write (name
, 1, namlen
+ 1, abfd
) != namlen
+ 1)
1628 if ((stridx
& 1) != 0)
1633 if (bfd_write (&b
, 1, 1, abfd
) != 1)
1640 /* Write a single armap in the big format. */
1642 xcoff_write_one_armap_big (abfd
, map
, orl_count
, orl_ccount
, stridx
, bits64
,
1646 unsigned int orl_count
;
1647 unsigned int orl_ccount
;
1648 unsigned int stridx
;
1650 const char *prevoff
;
1653 struct xcoff_ar_hdr_big hdr
;
1655 unsigned char buf
[4];
1658 const bfd_arch_info_type
*arch_info
;
1662 memset (&hdr
, 0, sizeof hdr
);
1663 /* XXX This call actually should use %lld (at least on 32-bit
1664 machines) since the fields's width is 20 and there numbers with
1665 more than 32 bits can be represented. */
1666 sprintf (hdr
.size
, "%ld", (long) (4 + orl_ccount
* 4 + stridx
));
1668 sprintf (hdr
.nextoff
, "%d", 0);
1670 sprintf (hdr
.nextoff
, "%d", (strtol (prevoff
, (char **) NULL
, 10)
1671 + 4 + orl_ccount
* 4 + stridx
));
1672 memcpy (hdr
.prevoff
, prevoff
, sizeof (hdr
.prevoff
));
1673 sprintf (hdr
.date
, "%d", 0);
1674 sprintf (hdr
.uid
, "%d", 0);
1675 sprintf (hdr
.gid
, "%d", 0);
1676 sprintf (hdr
.mode
, "%d", 0);
1677 sprintf (hdr
.namlen
, "%d", 0);
1679 /* We need spaces, not null bytes, in the header. */
1680 for (p
= (char *) &hdr
; p
< (char *) &hdr
+ SIZEOF_AR_HDR_BIG
; p
++)
1684 memcpy (nextoff
, hdr
.nextoff
, sizeof (hdr
.nextoff
));
1686 if (bfd_write ((PTR
) &hdr
, SIZEOF_AR_HDR_BIG
, 1, abfd
) != SIZEOF_AR_HDR_BIG
1687 || bfd_write (XCOFFARFMAG
, 1, SXCOFFARFMAG
, abfd
) != SXCOFFARFMAG
)
1690 bfd_h_put_32 (abfd
, orl_ccount
, buf
);
1691 if (bfd_write (buf
, 1, 4, abfd
) != 4)
1694 sub
= abfd
->archive_head
;
1695 fileoff
= SIZEOF_AR_FILE_HDR_BIG
;
1697 while (sub
!= NULL
&& i
< orl_count
)
1701 if ((bfd_arch_bits_per_address ((bfd
*) map
[i
].pos
) == 64) == bits64
)
1702 while (((bfd
*) (map
[i
]).pos
) == sub
)
1704 bfd_h_put_32 (abfd
, fileoff
, buf
);
1705 if (bfd_write (buf
, 1, 4, abfd
) != 4)
1710 while (((bfd
*) (map
[i
]).pos
) == sub
)
1713 namlen
= strlen (normalize_filename (sub
));
1714 namlen
= (namlen
+ 1) &~ 1;
1715 fileoff
+= (SIZEOF_AR_HDR_BIG
1718 + arelt_size (sub
));
1719 fileoff
= (fileoff
+ 1) &~ 1;
1724 for (i
= 0; i
< orl_count
; i
++)
1728 bfd
*ob
= (bfd
*)map
[i
].pos
;
1730 if (ob
!= object_bfd
)
1731 arch_info
= bfd_get_arch_info (ob
);
1732 if ((arch_info
->bits_per_address
== 64) != bits64
)
1735 name
= *map
[i
].name
;
1736 namlen
= strlen (name
);
1737 if (bfd_write (name
, 1, namlen
+ 1, abfd
) != namlen
+ 1)
1741 if ((stridx
& 1) != 0)
1746 if (bfd_write (&b
, 1, 1, abfd
) != 1)
1755 xcoff_write_armap_big (abfd
, elength
, map
, orl_count
, stridx
)
1757 unsigned int elength ATTRIBUTE_UNUSED
;
1759 unsigned int orl_count
;
1763 unsigned int orl_count_32
, orl_count_64
;
1764 unsigned int stridx_32
, stridx_64
;
1765 const bfd_arch_info_type
*arch_info
;
1768 /* First, we look through the symbols and work out which are
1769 from 32-bit objects and which from 64-bit ones. */
1775 for (i
= 0; i
< orl_count
; i
++)
1777 bfd
*ob
= (bfd
*)map
[i
].pos
;
1779 if (ob
!= object_bfd
)
1780 arch_info
= bfd_get_arch_info (ob
);
1781 len
= strlen (*map
[i
].name
) + 1;
1782 if (arch_info
->bits_per_address
== 64)
1794 /* A quick sanity check... */
1795 BFD_ASSERT (orl_count_64
+ orl_count_32
== orl_count
);
1796 BFD_ASSERT (stridx_64
+ stridx_32
== stridx
);
1798 /* Now write out each map. */
1799 if (! xcoff_write_one_armap_big (abfd
, map
, orl_count
, orl_count_32
,
1801 xcoff_ardata_big (abfd
)->memoff
,
1802 xcoff_ardata_big (abfd
)->symoff
))
1804 if (! xcoff_write_one_armap_big (abfd
, map
, orl_count
, orl_count_64
,
1806 xcoff_ardata_big (abfd
)->symoff
,
1807 xcoff_ardata_big (abfd
)->symoff64
))
1815 _bfd_xcoff_write_armap (abfd
, elength
, map
, orl_count
, stridx
)
1817 unsigned int elength ATTRIBUTE_UNUSED
;
1819 unsigned int orl_count
;
1822 if (! xcoff_big_format_p (abfd
))
1823 return xcoff_write_armap_old (abfd
, elength
, map
, orl_count
, stridx
);
1825 return xcoff_write_armap_big (abfd
, elength
, map
, orl_count
, stridx
);
1828 /* Write out an XCOFF archive. We always write an entire archive,
1829 rather than fussing with the freelist and so forth. */
1832 xcoff_write_archive_contents_old (abfd
)
1835 struct xcoff_ar_file_hdr fhdr
;
1837 size_t total_namlen
;
1841 file_ptr prevoff
, nextoff
;
1844 struct xcoff_ar_hdr ahdr
;
1849 memset (&fhdr
, 0, sizeof fhdr
);
1850 strncpy (fhdr
.magic
, XCOFFARMAG
, SXCOFFARMAG
);
1851 sprintf (fhdr
.firstmemoff
, "%d", SIZEOF_AR_FILE_HDR
);
1852 sprintf (fhdr
.freeoff
, "%d", 0);
1856 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->next
)
1859 total_namlen
+= strlen (normalize_filename (sub
)) + 1;
1861 offsets
= (file_ptr
*) bfd_alloc (abfd
, count
* sizeof (file_ptr
));
1862 if (offsets
== NULL
)
1865 if (bfd_seek (abfd
, SIZEOF_AR_FILE_HDR
, SEEK_SET
) != 0)
1868 makemap
= bfd_has_map (abfd
);
1871 nextoff
= SIZEOF_AR_FILE_HDR
;
1872 for (sub
= abfd
->archive_head
, i
= 0; sub
!= NULL
; sub
= sub
->next
, i
++)
1876 struct xcoff_ar_hdr
*ahdrp
;
1877 bfd_size_type remaining
;
1879 if (makemap
&& ! hasobjects
)
1881 if (bfd_check_format (sub
, bfd_object
))
1885 name
= normalize_filename (sub
);
1886 namlen
= strlen (name
);
1888 if (sub
->arelt_data
!= NULL
)
1889 ahdrp
= arch_xhdr (sub
);
1897 memset (&ahdr
, 0, sizeof ahdr
);
1899 if (stat (bfd_get_filename (sub
), &s
) != 0)
1901 bfd_set_error (bfd_error_system_call
);
1905 sprintf (ahdrp
->size
, "%ld", (long) s
.st_size
);
1906 sprintf (ahdrp
->date
, "%ld", (long) s
.st_mtime
);
1907 sprintf (ahdrp
->uid
, "%ld", (long) s
.st_uid
);
1908 sprintf (ahdrp
->gid
, "%ld", (long) s
.st_gid
);
1909 sprintf (ahdrp
->mode
, "%o", (unsigned int) s
.st_mode
);
1911 if (sub
->arelt_data
== NULL
)
1913 sub
->arelt_data
= bfd_alloc (sub
, sizeof (struct areltdata
));
1914 if (sub
->arelt_data
== NULL
)
1918 arch_eltdata (sub
)->parsed_size
= s
.st_size
;
1921 sprintf (ahdrp
->prevoff
, "%ld", (long) prevoff
);
1922 sprintf (ahdrp
->namlen
, "%ld", (long) namlen
);
1924 /* If the length of the name is odd, we write out the null byte
1925 after the name as well. */
1926 namlen
= (namlen
+ 1) &~ 1;
1928 remaining
= arelt_size (sub
);
1929 size
= (SIZEOF_AR_HDR
1934 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
1936 offsets
[i
] = nextoff
;
1939 nextoff
+= size
+ (size
& 1);
1941 sprintf (ahdrp
->nextoff
, "%ld", (long) nextoff
);
1943 /* We need spaces, not null bytes, in the header. */
1944 for (p
= (char *) ahdrp
; p
< (char *) ahdrp
+ SIZEOF_AR_HDR
; p
++)
1948 if (bfd_write ((PTR
) ahdrp
, 1, SIZEOF_AR_HDR
, abfd
) != SIZEOF_AR_HDR
1949 || bfd_write ((PTR
) name
, 1, namlen
, abfd
) != namlen
1950 || (bfd_write ((PTR
) XCOFFARFMAG
, 1, SXCOFFARFMAG
, abfd
)
1954 if (bfd_seek (sub
, (file_ptr
) 0, SEEK_SET
) != 0)
1956 while (remaining
!= 0)
1959 bfd_byte buffer
[DEFAULT_BUFFERSIZE
];
1961 amt
= sizeof buffer
;
1962 if (amt
> remaining
)
1964 if (bfd_read (buffer
, 1, amt
, sub
) != amt
1965 || bfd_write (buffer
, 1, amt
, abfd
) != amt
)
1970 if ((size
& 1) != 0)
1975 if (bfd_write (&b
, 1, 1, abfd
) != 1)
1980 sprintf (fhdr
.lastmemoff
, "%ld", (long) prevoff
);
1982 /* Write out the member table. */
1984 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
1985 sprintf (fhdr
.memoff
, "%ld", (long) nextoff
);
1987 memset (&ahdr
, 0, sizeof ahdr
);
1988 sprintf (ahdr
.size
, "%ld", (long) (12 + count
* 12 + total_namlen
));
1989 sprintf (ahdr
.prevoff
, "%ld", (long) prevoff
);
1990 sprintf (ahdr
.date
, "%d", 0);
1991 sprintf (ahdr
.uid
, "%d", 0);
1992 sprintf (ahdr
.gid
, "%d", 0);
1993 sprintf (ahdr
.mode
, "%d", 0);
1994 sprintf (ahdr
.namlen
, "%d", 0);
1996 size
= (SIZEOF_AR_HDR
2003 nextoff
+= size
+ (size
& 1);
2005 if (makemap
&& hasobjects
)
2006 sprintf (ahdr
.nextoff
, "%ld", (long) nextoff
);
2008 sprintf (ahdr
.nextoff
, "%d", 0);
2010 /* We need spaces, not null bytes, in the header. */
2011 for (p
= (char *) &ahdr
; p
< (char *) &ahdr
+ SIZEOF_AR_HDR
; p
++)
2015 if (bfd_write ((PTR
) &ahdr
, 1, SIZEOF_AR_HDR
, abfd
) != SIZEOF_AR_HDR
2016 || (bfd_write ((PTR
) XCOFFARFMAG
, 1, SXCOFFARFMAG
, abfd
)
2020 sprintf (decbuf
, "%-12ld", (long) count
);
2021 if (bfd_write ((PTR
) decbuf
, 1, 12, abfd
) != 12)
2023 for (i
= 0; i
< count
; i
++)
2025 sprintf (decbuf
, "%-12ld", (long) offsets
[i
]);
2026 if (bfd_write ((PTR
) decbuf
, 1, 12, abfd
) != 12)
2029 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->next
)
2034 name
= normalize_filename (sub
);
2035 namlen
= strlen (name
);
2036 if (bfd_write ((PTR
) name
, 1, namlen
+ 1, abfd
) != namlen
+ 1)
2039 if ((size
& 1) != 0)
2044 if (bfd_write ((PTR
) &b
, 1, 1, abfd
) != 1)
2048 /* Write out the armap, if appropriate. */
2050 if (! makemap
|| ! hasobjects
)
2051 sprintf (fhdr
.symoff
, "%d", 0);
2054 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2055 sprintf (fhdr
.symoff
, "%ld", (long) nextoff
);
2056 bfd_ardata (abfd
)->tdata
= (PTR
) &fhdr
;
2057 if (! _bfd_compute_and_write_armap (abfd
, 0))
2061 /* Write out the archive file header. */
2063 /* We need spaces, not null bytes, in the header. */
2064 for (p
= (char *) &fhdr
; p
< (char *) &fhdr
+ SIZEOF_AR_FILE_HDR
; p
++)
2068 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) != 0
2069 || (bfd_write ((PTR
) &fhdr
, SIZEOF_AR_FILE_HDR
, 1, abfd
) !=
2070 SIZEOF_AR_FILE_HDR
))
2077 xcoff_write_archive_contents_big (abfd
)
2080 struct xcoff_ar_file_hdr_big fhdr
;
2082 size_t total_namlen
;
2086 file_ptr prevoff
, nextoff
;
2089 struct xcoff_ar_hdr_big ahdr
;
2094 memset (&fhdr
, 0, sizeof fhdr
);
2095 strncpy (fhdr
.magic
, XCOFFARMAGBIG
, SXCOFFARMAG
);
2096 sprintf (fhdr
.firstmemoff
, "%d", SIZEOF_AR_FILE_HDR_BIG
);
2097 sprintf (fhdr
.freeoff
, "%d", 0);
2101 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->next
)
2104 total_namlen
+= strlen (normalize_filename (sub
)) + 1;
2106 offsets
= (file_ptr
*) bfd_alloc (abfd
, count
* sizeof (file_ptr
));
2107 if (offsets
== NULL
)
2110 if (bfd_seek (abfd
, SIZEOF_AR_FILE_HDR_BIG
, SEEK_SET
) != 0)
2113 makemap
= bfd_has_map (abfd
);
2116 nextoff
= SIZEOF_AR_FILE_HDR_BIG
;
2117 for (sub
= abfd
->archive_head
, i
= 0; sub
!= NULL
; sub
= sub
->next
, i
++)
2121 struct xcoff_ar_hdr_big
*ahdrp
;
2122 bfd_size_type remaining
;
2124 if (makemap
&& ! hasobjects
)
2126 if (bfd_check_format (sub
, bfd_object
))
2130 name
= normalize_filename (sub
);
2131 namlen
= strlen (name
);
2133 if (sub
->arelt_data
!= NULL
)
2134 ahdrp
= arch_xhdr_big (sub
);
2142 memset (&ahdr
, 0, sizeof ahdr
);
2144 /* XXX This should actually be a call to stat64 (at least on
2145 32-bit machines). */
2146 if (stat (bfd_get_filename (sub
), &s
) != 0)
2148 bfd_set_error (bfd_error_system_call
);
2152 /* XXX This call actually should use %lld (at least on 32-bit
2153 machines) since the fields's width is 20 and there numbers with
2154 more than 32 bits can be represented. */
2155 sprintf (ahdrp
->size
, "%ld", (long) s
.st_size
);
2156 sprintf (ahdrp
->date
, "%ld", (long) s
.st_mtime
);
2157 sprintf (ahdrp
->uid
, "%ld", (long) s
.st_uid
);
2158 sprintf (ahdrp
->gid
, "%ld", (long) s
.st_gid
);
2159 sprintf (ahdrp
->mode
, "%o", (unsigned int) s
.st_mode
);
2161 if (sub
->arelt_data
== NULL
)
2163 sub
->arelt_data
= bfd_alloc (sub
, sizeof (struct areltdata
));
2164 if (sub
->arelt_data
== NULL
)
2168 arch_eltdata (sub
)->parsed_size
= s
.st_size
;
2171 /* XXX These calls actually should use %lld (at least on 32-bit
2172 machines) since the fields's width is 20 and there numbers with
2173 more than 32 bits can be represented. */
2174 sprintf (ahdrp
->prevoff
, "%ld", (long) prevoff
);
2175 sprintf (ahdrp
->namlen
, "%ld", (long) namlen
);
2177 /* If the length of the name is odd, we write out the null byte
2178 after the name as well. */
2179 namlen
= (namlen
+ 1) &~ 1;
2181 remaining
= arelt_size (sub
);
2182 size
= (SIZEOF_AR_HDR_BIG
2187 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2189 offsets
[i
] = nextoff
;
2192 nextoff
+= size
+ (size
& 1);
2194 sprintf (ahdrp
->nextoff
, "%ld", (long) nextoff
);
2196 /* We need spaces, not null bytes, in the header. */
2197 for (p
= (char *) ahdrp
; p
< (char *) ahdrp
+ SIZEOF_AR_HDR_BIG
; p
++)
2201 if (bfd_write ((PTR
) ahdrp
, 1, SIZEOF_AR_HDR_BIG
, abfd
)
2202 != SIZEOF_AR_HDR_BIG
2203 || bfd_write ((PTR
) name
, 1, namlen
, abfd
) != namlen
2204 || (bfd_write ((PTR
) XCOFFARFMAG
, 1, SXCOFFARFMAG
, abfd
)
2208 if (bfd_seek (sub
, (file_ptr
) 0, SEEK_SET
) != 0)
2210 while (remaining
!= 0)
2213 bfd_byte buffer
[DEFAULT_BUFFERSIZE
];
2215 amt
= sizeof buffer
;
2216 if (amt
> remaining
)
2218 if (bfd_read (buffer
, 1, amt
, sub
) != amt
2219 || bfd_write (buffer
, 1, amt
, abfd
) != amt
)
2224 if ((size
& 1) != 0)
2229 if (bfd_write (&b
, 1, 1, abfd
) != 1)
2234 /* XXX This call actually should use %lld (at least on 32-bit
2235 machines) since the fields's width is 20 and there numbers with
2236 more than 32 bits can be represented. */
2237 sprintf (fhdr
.lastmemoff
, "%ld", (long) prevoff
);
2239 /* Write out the member table. */
2241 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2242 /* XXX This call actually should use %lld (at least on 32-bit
2243 machines) since the fields's width is 20 and there numbers with
2244 more than 32 bits can be represented. */
2245 sprintf (fhdr
.memoff
, "%ld", (long) nextoff
);
2247 memset (&ahdr
, 0, sizeof ahdr
);
2248 /* XXX The next two calls actually should use %lld (at least on 32-bit
2249 machines) since the fields's width is 20 and there numbers with
2250 more than 32 bits can be represented. */
2251 sprintf (ahdr
.size
, "%ld", (long) (12 + count
* 12 + total_namlen
));
2252 sprintf (ahdr
.prevoff
, "%ld", (long) prevoff
);
2253 sprintf (ahdr
.date
, "%d", 0);
2254 sprintf (ahdr
.uid
, "%d", 0);
2255 sprintf (ahdr
.gid
, "%d", 0);
2256 sprintf (ahdr
.mode
, "%d", 0);
2257 sprintf (ahdr
.namlen
, "%d", 0);
2259 size
= (SIZEOF_AR_HDR_BIG
2266 nextoff
+= size
+ (size
& 1);
2268 if (makemap
&& hasobjects
)
2269 /* XXX This call actually should use %lld (at least on 32-bit
2270 machines) since the fields's width is 20 and there numbers with
2271 more than 32 bits can be represented. */
2272 sprintf (ahdr
.nextoff
, "%ld", (long) nextoff
);
2274 sprintf (ahdr
.nextoff
, "%d", 0);
2276 /* We need spaces, not null bytes, in the header. */
2277 for (p
= (char *) &ahdr
; p
< (char *) &ahdr
+ SIZEOF_AR_HDR_BIG
; p
++)
2281 if (bfd_write ((PTR
) &ahdr
, 1, SIZEOF_AR_HDR_BIG
, abfd
) != SIZEOF_AR_HDR_BIG
2282 || (bfd_write ((PTR
) XCOFFARFMAG
, 1, SXCOFFARFMAG
, abfd
)
2286 sprintf (decbuf
, "%-12ld", (long) count
);
2287 if (bfd_write ((PTR
) decbuf
, 1, 12, abfd
) != 12)
2289 for (i
= 0; i
< count
; i
++)
2291 sprintf (decbuf
, "%-12ld", (long) offsets
[i
]);
2292 if (bfd_write ((PTR
) decbuf
, 1, 12, abfd
) != 12)
2295 for (sub
= abfd
->archive_head
; sub
!= NULL
; sub
= sub
->next
)
2300 name
= normalize_filename (sub
);
2301 namlen
= strlen (name
);
2302 if (bfd_write ((PTR
) name
, 1, namlen
+ 1, abfd
) != namlen
+ 1)
2305 if ((size
& 1) != 0)
2310 if (bfd_write ((PTR
) &b
, 1, 1, abfd
) != 1)
2314 /* Write out the armap, if appropriate. */
2316 if (! makemap
|| ! hasobjects
)
2317 sprintf (fhdr
.symoff
, "%d", 0);
2320 BFD_ASSERT (nextoff
== bfd_tell (abfd
));
2321 /* XXX This call actually should use %lld (at least on 32-bit
2322 machines) since the fields's width is 20 and there numbers with
2323 more than 32 bits can be represented. */
2324 bfd_ardata (abfd
)->tdata
= (PTR
) &fhdr
;
2325 if (! _bfd_compute_and_write_armap (abfd
, 0))
2329 /* Write out the archive file header. */
2331 /* We need spaces, not null bytes, in the header. */
2332 for (p
= (char *) &fhdr
; p
< (char *) &fhdr
+ SIZEOF_AR_FILE_HDR_BIG
; p
++)
2336 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) != 0
2337 || (bfd_write ((PTR
) &fhdr
, SIZEOF_AR_FILE_HDR_BIG
, 1, abfd
) !=
2338 SIZEOF_AR_FILE_HDR_BIG
))
2345 _bfd_xcoff_write_archive_contents (abfd
)
2348 if (! xcoff_big_format_p (abfd
))
2349 return xcoff_write_archive_contents_old (abfd
);
2351 return xcoff_write_archive_contents_big (abfd
);
2354 /* We can't use the usual coff_sizeof_headers routine, because AIX
2355 always uses an a.out header. */
2359 _bfd_xcoff_sizeof_headers (abfd
, reloc
)
2361 boolean reloc ATTRIBUTE_UNUSED
;
2366 if (xcoff_data (abfd
)->full_aouthdr
)
2369 size
+= SMALL_AOUTSZ
;
2370 size
+= abfd
->section_count
* SCNHSZ
;