/mingw-w64-v2.0.999/binutils/src/bfd/coff-rs6000.c
C | 4422 lines | 3278 code | 549 blank | 595 comment | 529 complexity | 013360a2a10ee578f0ef63b9b5b1cc41 MD5 | raw file
Possible License(s): LGPL-2.1, AGPL-1.0, LGPL-3.0, Unlicense, GPL-2.0, LGPL-2.0, BSD-3-Clause, GPL-3.0
Large files files are truncated, but you can click here to view the full file
- /* BFD back-end for IBM RS/6000 "XCOFF" files.
- Copyright 1990-1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
- 2008, 2009, 2010, 2011, 2012
- Free Software Foundation, Inc.
- Written by Metin G. Ozisik, Mimi Phuong-Thao Vo, and John Gilmore.
- Archive support from Damon A. Permezel.
- Contributed by IBM Corporation and Cygnus Support.
- This file is part of BFD, the Binary File Descriptor library.
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 3 of the License, or
- (at your option) any later version.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
- MA 02110-1301, USA. */
- #include "sysdep.h"
- #include "bfd.h"
- #include "bfdlink.h"
- #include "libbfd.h"
- #include "coff/internal.h"
- #include "coff/xcoff.h"
- #include "coff/rs6000.h"
- #include "libcoff.h"
- #include "libxcoff.h"
- extern bfd_boolean _bfd_xcoff_mkobject (bfd *);
- extern bfd_boolean _bfd_xcoff_copy_private_bfd_data (bfd *, bfd *);
- extern bfd_boolean _bfd_xcoff_is_local_label_name (bfd *, const char *);
- extern reloc_howto_type *_bfd_xcoff_reloc_type_lookup
- (bfd *, bfd_reloc_code_real_type);
- extern bfd_boolean _bfd_xcoff_slurp_armap (bfd *);
- extern const bfd_target *_bfd_xcoff_archive_p (bfd *);
- extern void * _bfd_xcoff_read_ar_hdr (bfd *);
- extern bfd *_bfd_xcoff_openr_next_archived_file (bfd *, bfd *);
- extern int _bfd_xcoff_stat_arch_elt (bfd *, struct stat *);
- extern bfd_boolean _bfd_xcoff_write_armap
- (bfd *, unsigned int, struct orl *, unsigned int, int);
- extern bfd_boolean _bfd_xcoff_write_archive_contents (bfd *);
- extern int _bfd_xcoff_sizeof_headers (bfd *, struct bfd_link_info *);
- extern void _bfd_xcoff_swap_sym_in (bfd *, void *, void *);
- extern unsigned int _bfd_xcoff_swap_sym_out (bfd *, void *, void *);
- extern void _bfd_xcoff_swap_aux_in (bfd *, void *, int, int, int, int, void *);
- extern unsigned int _bfd_xcoff_swap_aux_out
- (bfd *, void *, int, int, int, int, void *);
- static void xcoff_swap_reloc_in (bfd *, void *, void *);
- static unsigned int xcoff_swap_reloc_out (bfd *, void *, void *);
- /* Forward declare xcoff_rtype2howto for coffcode.h macro. */
- void xcoff_rtype2howto (arelent *, struct internal_reloc *);
- /* coffcode.h needs these to be defined. */
- #define RS6000COFF_C 1
- #define SELECT_RELOC(internal, howto) \
- { \
- internal.r_type = howto->type; \
- internal.r_size = \
- ((howto->complain_on_overflow == complain_overflow_signed \
- ? 0x80 \
- : 0) \
- | (howto->bitsize - 1)); \
- }
- #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
- #define COFF_LONG_FILENAMES
- #define NO_COFF_SYMBOLS
- #define RTYPE2HOWTO(cache_ptr, dst) xcoff_rtype2howto (cache_ptr, dst)
- #define coff_mkobject _bfd_xcoff_mkobject
- #define coff_bfd_copy_private_bfd_data _bfd_xcoff_copy_private_bfd_data
- #define coff_bfd_is_local_label_name _bfd_xcoff_is_local_label_name
- #define coff_bfd_reloc_type_lookup _bfd_xcoff_reloc_type_lookup
- #define coff_bfd_reloc_name_lookup _bfd_xcoff_reloc_name_lookup
- #ifdef AIX_CORE
- extern const bfd_target * rs6000coff_core_p (bfd *abfd);
- extern bfd_boolean rs6000coff_core_file_matches_executable_p
- (bfd *cbfd, bfd *ebfd);
- extern char *rs6000coff_core_file_failing_command (bfd *abfd);
- extern int rs6000coff_core_file_failing_signal (bfd *abfd);
- #define CORE_FILE_P rs6000coff_core_p
- #define coff_core_file_failing_command \
- rs6000coff_core_file_failing_command
- #define coff_core_file_failing_signal \
- rs6000coff_core_file_failing_signal
- #define coff_core_file_matches_executable_p \
- rs6000coff_core_file_matches_executable_p
- #define coff_core_file_pid \
- _bfd_nocore_core_file_pid
- #else
- #define CORE_FILE_P _bfd_dummy_target
- #define coff_core_file_failing_command \
- _bfd_nocore_core_file_failing_command
- #define coff_core_file_failing_signal \
- _bfd_nocore_core_file_failing_signal
- #define coff_core_file_matches_executable_p \
- _bfd_nocore_core_file_matches_executable_p
- #define coff_core_file_pid \
- _bfd_nocore_core_file_pid
- #endif
- #define coff_SWAP_sym_in _bfd_xcoff_swap_sym_in
- #define coff_SWAP_sym_out _bfd_xcoff_swap_sym_out
- #define coff_SWAP_aux_in _bfd_xcoff_swap_aux_in
- #define coff_SWAP_aux_out _bfd_xcoff_swap_aux_out
- #define coff_swap_reloc_in xcoff_swap_reloc_in
- #define coff_swap_reloc_out xcoff_swap_reloc_out
- #define NO_COFF_RELOCS
- #ifndef bfd_pe_print_pdata
- #define bfd_pe_print_pdata NULL
- #endif
- #include "coffcode.h"
- /* The main body of code is in coffcode.h. */
- static const char *normalize_filename (bfd *);
- static bfd_boolean xcoff_write_armap_old
- (bfd *, unsigned int, struct orl *, unsigned int, int);
- static bfd_boolean xcoff_write_armap_big
- (bfd *, unsigned int, struct orl *, unsigned int, int);
- static bfd_boolean xcoff_write_archive_contents_old (bfd *);
- static bfd_boolean xcoff_write_archive_contents_big (bfd *);
- static void xcoff_swap_ldhdr_in (bfd *, const void *, struct internal_ldhdr *);
- static void xcoff_swap_ldhdr_out (bfd *, const struct internal_ldhdr *, void *);
- static void xcoff_swap_ldsym_in (bfd *, const void *, struct internal_ldsym *);
- static void xcoff_swap_ldsym_out (bfd *, const struct internal_ldsym *, void *);
- static void xcoff_swap_ldrel_in (bfd *, const void *, struct internal_ldrel *);
- static void xcoff_swap_ldrel_out (bfd *, const struct internal_ldrel *, void *);
- static bfd_boolean xcoff_ppc_relocate_section
- (bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
- struct internal_reloc *, struct internal_syment *, asection **);
- static bfd_boolean _bfd_xcoff_put_ldsymbol_name
- (bfd *, struct xcoff_loader_info *, struct internal_ldsym *, const char *);
- static asection *xcoff_create_csect_from_smclas
- (bfd *, union internal_auxent *, const char *);
- static bfd_boolean xcoff_is_lineno_count_overflow (bfd *, bfd_vma);
- static bfd_boolean xcoff_is_reloc_count_overflow (bfd *, bfd_vma);
- static bfd_vma xcoff_loader_symbol_offset (bfd *, struct internal_ldhdr *);
- static bfd_vma xcoff_loader_reloc_offset (bfd *, struct internal_ldhdr *);
- static bfd_boolean xcoff_generate_rtinit
- (bfd *, const char *, const char *, bfd_boolean);
- static bfd_boolean do_pad (bfd *, unsigned int);
- static bfd_boolean do_copy (bfd *, bfd *);
- /* Relocation functions */
- static bfd_boolean xcoff_reloc_type_br (XCOFF_RELOC_FUNCTION_ARGS);
- static bfd_boolean xcoff_complain_overflow_dont_func
- (XCOFF_COMPLAIN_FUNCTION_ARGS);
- static bfd_boolean xcoff_complain_overflow_bitfield_func
- (XCOFF_COMPLAIN_FUNCTION_ARGS);
- static bfd_boolean xcoff_complain_overflow_signed_func
- (XCOFF_COMPLAIN_FUNCTION_ARGS);
- static bfd_boolean xcoff_complain_overflow_unsigned_func
- (XCOFF_COMPLAIN_FUNCTION_ARGS);
- bfd_boolean (*xcoff_calculate_relocation[XCOFF_MAX_CALCULATE_RELOCATION])
- (XCOFF_RELOC_FUNCTION_ARGS) =
- {
- xcoff_reloc_type_pos, /* R_POS (0x00) */
- xcoff_reloc_type_neg, /* R_NEG (0x01) */
- xcoff_reloc_type_rel, /* R_REL (0x02) */
- xcoff_reloc_type_toc, /* R_TOC (0x03) */
- xcoff_reloc_type_fail, /* R_RTB (0x04) */
- xcoff_reloc_type_toc, /* R_GL (0x05) */
- xcoff_reloc_type_toc, /* R_TCL (0x06) */
- xcoff_reloc_type_fail, /* (0x07) */
- xcoff_reloc_type_ba, /* R_BA (0x08) */
- xcoff_reloc_type_fail, /* (0x09) */
- xcoff_reloc_type_br, /* R_BR (0x0a) */
- xcoff_reloc_type_fail, /* (0x0b) */
- xcoff_reloc_type_pos, /* R_RL (0x0c) */
- xcoff_reloc_type_pos, /* R_RLA (0x0d) */
- xcoff_reloc_type_fail, /* (0x0e) */
- xcoff_reloc_type_noop, /* R_REF (0x0f) */
- xcoff_reloc_type_fail, /* (0x10) */
- xcoff_reloc_type_fail, /* (0x11) */
- xcoff_reloc_type_toc, /* R_TRL (0x12) */
- xcoff_reloc_type_toc, /* R_TRLA (0x13) */
- xcoff_reloc_type_fail, /* R_RRTBI (0x14) */
- xcoff_reloc_type_fail, /* R_RRTBA (0x15) */
- xcoff_reloc_type_ba, /* R_CAI (0x16) */
- xcoff_reloc_type_crel, /* R_CREL (0x17) */
- xcoff_reloc_type_ba, /* R_RBA (0x18) */
- xcoff_reloc_type_ba, /* R_RBAC (0x19) */
- xcoff_reloc_type_br, /* R_RBR (0x1a) */
- xcoff_reloc_type_ba, /* R_RBRC (0x1b) */
- };
- bfd_boolean (*xcoff_complain_overflow[XCOFF_MAX_COMPLAIN_OVERFLOW])
- (XCOFF_COMPLAIN_FUNCTION_ARGS) =
- {
- xcoff_complain_overflow_dont_func,
- xcoff_complain_overflow_bitfield_func,
- xcoff_complain_overflow_signed_func,
- xcoff_complain_overflow_unsigned_func,
- };
- /* Information about one member of an archive. */
- struct member_layout {
- /* The archive member that this structure describes. */
- bfd *member;
- /* The number of bytes of padding that must be inserted before the
- start of the member in order to ensure that the section contents
- are correctly aligned. */
- unsigned int leading_padding;
- /* The offset of MEMBER from the start of the archive (i.e. the end
- of the leading padding). */
- file_ptr offset;
- /* The normalized name of MEMBER. */
- const char *name;
- /* The length of NAME, without padding. */
- bfd_size_type namlen;
- /* The length of NAME, with padding. */
- bfd_size_type padded_namlen;
- /* The size of MEMBER's header, including the name and magic sequence. */
- bfd_size_type header_size;
- /* The size of the MEMBER's contents. */
- bfd_size_type contents_size;
- /* The number of bytes of padding that must be inserted after MEMBER
- in order to preserve even alignment. */
- bfd_size_type trailing_padding;
- };
- /* A structure used for iterating over the members of an archive. */
- struct archive_iterator {
- /* The archive itself. */
- bfd *archive;
- /* Information about the current archive member. */
- struct member_layout current;
- /* Information about the next archive member. MEMBER is null if there
- are no more archive members, in which case OFFSET is the offset of
- the first unused byte. */
- struct member_layout next;
- };
- /* Initialize INFO so that it describes member MEMBER of archive ARCHIVE.
- OFFSET is the even-padded offset of MEMBER, not including any leading
- padding needed for section alignment. */
- static void
- member_layout_init (struct member_layout *info, bfd *archive,
- bfd *member, file_ptr offset)
- {
- info->member = member;
- info->leading_padding = 0;
- if (member)
- {
- info->name = normalize_filename (member);
- info->namlen = strlen (info->name);
- info->padded_namlen = info->namlen + (info->namlen & 1);
- if (xcoff_big_format_p (archive))
- info->header_size = SIZEOF_AR_HDR_BIG;
- else
- info->header_size = SIZEOF_AR_HDR;
- info->header_size += info->padded_namlen + SXCOFFARFMAG;
- info->contents_size = arelt_size (member);
- info->trailing_padding = info->contents_size & 1;
- if (bfd_check_format (member, bfd_object)
- && bfd_get_flavour (member) == bfd_target_xcoff_flavour
- && (member->flags & DYNAMIC) != 0)
- info->leading_padding
- = (-(offset + info->header_size)
- & ((1 << bfd_xcoff_text_align_power (member)) - 1));
- }
- info->offset = offset + info->leading_padding;
- }
- /* Set up ITERATOR to iterate through archive ARCHIVE. */
- static void
- archive_iterator_begin (struct archive_iterator *iterator,
- bfd *archive)
- {
- iterator->archive = archive;
- member_layout_init (&iterator->next, archive, archive->archive_head,
- xcoff_big_format_p (archive)
- ? SIZEOF_AR_FILE_HDR_BIG
- : SIZEOF_AR_FILE_HDR);
- }
- /* Make ITERATOR visit the first unvisited archive member. Return true
- on success; return false if all members have been visited. */
- static bfd_boolean
- archive_iterator_next (struct archive_iterator *iterator)
- {
- if (!iterator->next.member)
- return FALSE;
- iterator->current = iterator->next;
- member_layout_init (&iterator->next, iterator->archive,
- iterator->current.member->archive_next,
- iterator->current.offset
- + iterator->current.header_size
- + iterator->current.contents_size
- + iterator->current.trailing_padding);
- return TRUE;
- }
- /* We use our own tdata type. Its first field is the COFF tdata type,
- so the COFF routines are compatible. */
- bfd_boolean
- _bfd_xcoff_mkobject (bfd *abfd)
- {
- coff_data_type *coff;
- bfd_size_type amt = sizeof (struct xcoff_tdata);
- abfd->tdata.xcoff_obj_data = (struct xcoff_tdata *) bfd_zalloc (abfd, amt);
- if (abfd->tdata.xcoff_obj_data == NULL)
- return FALSE;
- coff = coff_data (abfd);
- coff->symbols = (coff_symbol_type *) NULL;
- coff->conversion_table = (unsigned int *) NULL;
- coff->raw_syments = (struct coff_ptr_struct *) NULL;
- coff->relocbase = 0;
- xcoff_data (abfd)->modtype = ('1' << 8) | 'L';
- /* We set cputype to -1 to indicate that it has not been
- initialized. */
- xcoff_data (abfd)->cputype = -1;
- xcoff_data (abfd)->csects = NULL;
- xcoff_data (abfd)->debug_indices = NULL;
- /* text section alignment is different than the default */
- bfd_xcoff_text_align_power (abfd) = 2;
- return TRUE;
- }
- /* Copy XCOFF data from one BFD to another. */
- bfd_boolean
- _bfd_xcoff_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
- {
- struct xcoff_tdata *ix, *ox;
- asection *sec;
- if (ibfd->xvec != obfd->xvec)
- return TRUE;
- ix = xcoff_data (ibfd);
- ox = xcoff_data (obfd);
- ox->full_aouthdr = ix->full_aouthdr;
- ox->toc = ix->toc;
- if (ix->sntoc == 0)
- ox->sntoc = 0;
- else
- {
- sec = coff_section_from_bfd_index (ibfd, ix->sntoc);
- if (sec == NULL)
- ox->sntoc = 0;
- else
- ox->sntoc = sec->output_section->target_index;
- }
- if (ix->snentry == 0)
- ox->snentry = 0;
- else
- {
- sec = coff_section_from_bfd_index (ibfd, ix->snentry);
- if (sec == NULL)
- ox->snentry = 0;
- else
- ox->snentry = sec->output_section->target_index;
- }
- bfd_xcoff_text_align_power (obfd) = bfd_xcoff_text_align_power (ibfd);
- bfd_xcoff_data_align_power (obfd) = bfd_xcoff_data_align_power (ibfd);
- ox->modtype = ix->modtype;
- ox->cputype = ix->cputype;
- ox->maxdata = ix->maxdata;
- ox->maxstack = ix->maxstack;
- return TRUE;
- }
- /* I don't think XCOFF really has a notion of local labels based on
- name. This will mean that ld -X doesn't actually strip anything.
- The AIX native linker does not have a -X option, and it ignores the
- -x option. */
- bfd_boolean
- _bfd_xcoff_is_local_label_name (bfd *abfd ATTRIBUTE_UNUSED,
- const char *name ATTRIBUTE_UNUSED)
- {
- return FALSE;
- }
- static const struct dwarf_debug_section xcoff_debug_sections[] =
- {
- { ".dwabrev", NULL },
- { ".dwarnge", NULL },
- { NULL, NULL }, /* .debug_frame */
- { ".dwinfo", NULL },
- { ".dwline", NULL },
- { NULL, NULL }, /* .debug_loc */
- { NULL, NULL }, /* .debug_macinfo */
- { NULL, NULL }, /* .debug_macro */
- { ".dwpbnms", NULL },
- { ".dwpbtyp", NULL },
- { ".dwrnges", NULL },
- { NULL, NULL }, /* .debug_static_func */
- { NULL, NULL }, /* .debug_static_vars */
- { ".dwstr", NULL },
- { NULL, NULL }, /* .debug_types */
- /* GNU DWARF 1 extensions */
- { NULL, NULL }, /* .debug_sfnames */
- { NULL, NULL }, /* .debug_srcinfo */
- /* SGI/MIPS DWARF 2 extensions */
- { NULL, NULL }, /* .debug_funcnames */
- { NULL, NULL }, /* .debug_typenames */
- { NULL, NULL }, /* .debug_varnames */
- { NULL, NULL }, /* .debug_weaknames */
- { NULL, NULL },
- };
- static bfd_boolean
- xcoff_find_nearest_line (bfd *abfd,
- asection *section,
- asymbol **symbols,
- bfd_vma offset,
- const char **filename_ptr,
- const char **functionname_ptr,
- unsigned int *line_ptr)
- {
- return coff_find_nearest_line_with_names (abfd, xcoff_debug_sections,
- section, symbols, offset,
- filename_ptr, functionname_ptr,
- line_ptr);
- }
- void
- _bfd_xcoff_swap_sym_in (bfd *abfd, void * ext1, void * in1)
- {
- SYMENT *ext = (SYMENT *)ext1;
- struct internal_syment * in = (struct internal_syment *)in1;
- if (ext->e.e_name[0] != 0)
- {
- memcpy (in->_n._n_name, ext->e.e_name, SYMNMLEN);
- }
- else
- {
- in->_n._n_n._n_zeroes = 0;
- in->_n._n_n._n_offset = H_GET_32 (abfd, ext->e.e.e_offset);
- }
- in->n_value = H_GET_32 (abfd, ext->e_value);
- in->n_scnum = H_GET_16 (abfd, ext->e_scnum);
- in->n_type = H_GET_16 (abfd, ext->e_type);
- in->n_sclass = H_GET_8 (abfd, ext->e_sclass);
- in->n_numaux = H_GET_8 (abfd, ext->e_numaux);
- }
- unsigned int
- _bfd_xcoff_swap_sym_out (bfd *abfd, void * inp, void * extp)
- {
- struct internal_syment *in = (struct internal_syment *)inp;
- SYMENT *ext =(SYMENT *)extp;
- if (in->_n._n_name[0] != 0)
- {
- memcpy (ext->e.e_name, in->_n._n_name, SYMNMLEN);
- }
- else
- {
- H_PUT_32 (abfd, 0, ext->e.e.e_zeroes);
- H_PUT_32 (abfd, in->_n._n_n._n_offset, ext->e.e.e_offset);
- }
- H_PUT_32 (abfd, in->n_value, ext->e_value);
- H_PUT_16 (abfd, in->n_scnum, ext->e_scnum);
- H_PUT_16 (abfd, in->n_type, ext->e_type);
- H_PUT_8 (abfd, in->n_sclass, ext->e_sclass);
- H_PUT_8 (abfd, in->n_numaux, ext->e_numaux);
- return bfd_coff_symesz (abfd);
- }
- void
- _bfd_xcoff_swap_aux_in (bfd *abfd, void * ext1, int type, int in_class,
- int indx, int numaux, void * in1)
- {
- AUXENT * ext = (AUXENT *)ext1;
- union internal_auxent *in = (union internal_auxent *)in1;
- switch (in_class)
- {
- case C_FILE:
- if (ext->x_file.x_n.x_fname[0] == 0)
- {
- in->x_file.x_n.x_zeroes = 0;
- in->x_file.x_n.x_offset =
- H_GET_32 (abfd, ext->x_file.x_n.x_n.x_offset);
- }
- else
- {
- if (numaux > 1)
- {
- if (indx == 0)
- memcpy (in->x_file.x_fname, ext->x_file.x_n.x_fname,
- numaux * sizeof (AUXENT));
- }
- else
- {
- memcpy (in->x_file.x_fname, ext->x_file.x_n.x_fname, FILNMLEN);
- }
- }
- goto end;
- /* RS/6000 "csect" auxents */
- case C_EXT:
- case C_AIX_WEAKEXT:
- case C_HIDEXT:
- if (indx + 1 == numaux)
- {
- in->x_csect.x_scnlen.l = H_GET_32 (abfd, ext->x_csect.x_scnlen);
- in->x_csect.x_parmhash = H_GET_32 (abfd, ext->x_csect.x_parmhash);
- in->x_csect.x_snhash = H_GET_16 (abfd, ext->x_csect.x_snhash);
- /* We don't have to hack bitfields in x_smtyp because it's
- defined by shifts-and-ands, which are equivalent on all
- byte orders. */
- in->x_csect.x_smtyp = H_GET_8 (abfd, ext->x_csect.x_smtyp);
- in->x_csect.x_smclas = H_GET_8 (abfd, ext->x_csect.x_smclas);
- in->x_csect.x_stab = H_GET_32 (abfd, ext->x_csect.x_stab);
- in->x_csect.x_snstab = H_GET_16 (abfd, ext->x_csect.x_snstab);
- goto end;
- }
- break;
- case C_STAT:
- case C_LEAFSTAT:
- case C_HIDDEN:
- if (type == T_NULL)
- {
- in->x_scn.x_scnlen = H_GET_32 (abfd, ext->x_scn.x_scnlen);
- in->x_scn.x_nreloc = H_GET_16 (abfd, ext->x_scn.x_nreloc);
- in->x_scn.x_nlinno = H_GET_16 (abfd, ext->x_scn.x_nlinno);
- /* PE defines some extra fields; we zero them out for
- safety. */
- in->x_scn.x_checksum = 0;
- in->x_scn.x_associated = 0;
- in->x_scn.x_comdat = 0;
- goto end;
- }
- break;
- }
- in->x_sym.x_tagndx.l = H_GET_32 (abfd, ext->x_sym.x_tagndx);
- in->x_sym.x_tvndx = H_GET_16 (abfd, ext->x_sym.x_tvndx);
- if (in_class == C_BLOCK || in_class == C_FCN || ISFCN (type)
- || ISTAG (in_class))
- {
- in->x_sym.x_fcnary.x_fcn.x_lnnoptr =
- H_GET_32 (abfd, ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
- in->x_sym.x_fcnary.x_fcn.x_endndx.l =
- H_GET_32 (abfd, ext->x_sym.x_fcnary.x_fcn.x_endndx);
- }
- else
- {
- in->x_sym.x_fcnary.x_ary.x_dimen[0] =
- H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[0]);
- in->x_sym.x_fcnary.x_ary.x_dimen[1] =
- H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[1]);
- in->x_sym.x_fcnary.x_ary.x_dimen[2] =
- H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[2]);
- in->x_sym.x_fcnary.x_ary.x_dimen[3] =
- H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[3]);
- }
- if (ISFCN (type))
- {
- in->x_sym.x_misc.x_fsize = H_GET_32 (abfd, ext->x_sym.x_misc.x_fsize);
- }
- else
- {
- in->x_sym.x_misc.x_lnsz.x_lnno =
- H_GET_16 (abfd, ext->x_sym.x_misc.x_lnsz.x_lnno);
- in->x_sym.x_misc.x_lnsz.x_size =
- H_GET_16 (abfd, ext->x_sym.x_misc.x_lnsz.x_size);
- }
- end: ;
- /* The semicolon is because MSVC doesn't like labels at
- end of block. */
- }
- unsigned int
- _bfd_xcoff_swap_aux_out (bfd *abfd, void * inp, int type, int in_class,
- int indx ATTRIBUTE_UNUSED,
- int numaux ATTRIBUTE_UNUSED,
- void * extp)
- {
- union internal_auxent *in = (union internal_auxent *)inp;
- AUXENT *ext = (AUXENT *)extp;
- memset (ext, 0, bfd_coff_auxesz (abfd));
- switch (in_class)
- {
- case C_FILE:
- if (in->x_file.x_fname[0] == 0)
- {
- H_PUT_32 (abfd, 0, ext->x_file.x_n.x_n.x_zeroes);
- H_PUT_32 (abfd, in->x_file.x_n.x_offset,
- ext->x_file.x_n.x_n.x_offset);
- }
- else
- {
- memcpy (ext->x_file.x_n.x_fname, in->x_file.x_fname, FILNMLEN);
- }
- goto end;
- /* RS/6000 "csect" auxents */
- case C_EXT:
- case C_AIX_WEAKEXT:
- case C_HIDEXT:
- if (indx + 1 == numaux)
- {
- H_PUT_32 (abfd, in->x_csect.x_scnlen.l, ext->x_csect.x_scnlen);
- H_PUT_32 (abfd, in->x_csect.x_parmhash, ext->x_csect.x_parmhash);
- H_PUT_16 (abfd, in->x_csect.x_snhash, ext->x_csect.x_snhash);
- /* We don't have to hack bitfields in x_smtyp because it's
- defined by shifts-and-ands, which are equivalent on all
- byte orders. */
- H_PUT_8 (abfd, in->x_csect.x_smtyp, ext->x_csect.x_smtyp);
- H_PUT_8 (abfd, in->x_csect.x_smclas, ext->x_csect.x_smclas);
- H_PUT_32 (abfd, in->x_csect.x_stab, ext->x_csect.x_stab);
- H_PUT_16 (abfd, in->x_csect.x_snstab, ext->x_csect.x_snstab);
- goto end;
- }
- break;
- case C_STAT:
- case C_LEAFSTAT:
- case C_HIDDEN:
- if (type == T_NULL)
- {
- H_PUT_32 (abfd, in->x_scn.x_scnlen, ext->x_scn.x_scnlen);
- H_PUT_16 (abfd, in->x_scn.x_nreloc, ext->x_scn.x_nreloc);
- H_PUT_16 (abfd, in->x_scn.x_nlinno, ext->x_scn.x_nlinno);
- goto end;
- }
- break;
- }
- H_PUT_32 (abfd, in->x_sym.x_tagndx.l, ext->x_sym.x_tagndx);
- H_PUT_16 (abfd, in->x_sym.x_tvndx, ext->x_sym.x_tvndx);
- if (in_class == C_BLOCK || in_class == C_FCN || ISFCN (type)
- || ISTAG (in_class))
- {
- H_PUT_32 (abfd, in->x_sym.x_fcnary.x_fcn.x_lnnoptr,
- ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
- H_PUT_32 (abfd, in->x_sym.x_fcnary.x_fcn.x_endndx.l,
- ext->x_sym.x_fcnary.x_fcn.x_endndx);
- }
- else
- {
- H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[0],
- ext->x_sym.x_fcnary.x_ary.x_dimen[0]);
- H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[1],
- ext->x_sym.x_fcnary.x_ary.x_dimen[1]);
- H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[2],
- ext->x_sym.x_fcnary.x_ary.x_dimen[2]);
- H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[3],
- ext->x_sym.x_fcnary.x_ary.x_dimen[3]);
- }
- if (ISFCN (type))
- H_PUT_32 (abfd, in->x_sym.x_misc.x_fsize, ext->x_sym.x_misc.x_fsize);
- else
- {
- H_PUT_16 (abfd, in->x_sym.x_misc.x_lnsz.x_lnno,
- ext->x_sym.x_misc.x_lnsz.x_lnno);
- H_PUT_16 (abfd, in->x_sym.x_misc.x_lnsz.x_size,
- ext->x_sym.x_misc.x_lnsz.x_size);
- }
- end:
- return bfd_coff_auxesz (abfd);
- }
- /* The XCOFF reloc table. Actually, XCOFF relocations specify the
- bitsize and whether they are signed or not, along with a
- conventional type. This table is for the types, which are used for
- different algorithms for putting in the reloc. Many of these
- relocs need special_function entries, which I have not written. */
- reloc_howto_type xcoff_howto_table[] =
- {
- /* Standard 32 bit relocation. */
- HOWTO (R_POS, /* type */
- 0, /* rightshift */
- 2, /* size (0 = byte, 1 = short, 2 = long) */
- 32, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_POS", /* name */
- TRUE, /* partial_inplace */
- 0xffffffff, /* src_mask */
- 0xffffffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* 32 bit relocation, but store negative value. */
- HOWTO (R_NEG, /* type */
- 0, /* rightshift */
- -2, /* size (0 = byte, 1 = short, 2 = long) */
- 32, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_NEG", /* name */
- TRUE, /* partial_inplace */
- 0xffffffff, /* src_mask */
- 0xffffffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* 32 bit PC relative relocation. */
- HOWTO (R_REL, /* type */
- 0, /* rightshift */
- 2, /* size (0 = byte, 1 = short, 2 = long) */
- 32, /* bitsize */
- TRUE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_signed, /* complain_on_overflow */
- 0, /* special_function */
- "R_REL", /* name */
- TRUE, /* partial_inplace */
- 0xffffffff, /* src_mask */
- 0xffffffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* 16 bit TOC relative relocation. */
- HOWTO (R_TOC, /* type */
- 0, /* rightshift */
- 1, /* size (0 = byte, 1 = short, 2 = long) */
- 16, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_TOC", /* name */
- TRUE, /* partial_inplace */
- 0xffff, /* src_mask */
- 0xffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* I don't really know what this is. */
- HOWTO (R_RTB, /* type */
- 1, /* rightshift */
- 2, /* size (0 = byte, 1 = short, 2 = long) */
- 32, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_RTB", /* name */
- TRUE, /* partial_inplace */
- 0xffffffff, /* src_mask */
- 0xffffffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* External TOC relative symbol. */
- HOWTO (R_GL, /* type */
- 0, /* rightshift */
- 1, /* size (0 = byte, 1 = short, 2 = long) */
- 16, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_GL", /* name */
- TRUE, /* partial_inplace */
- 0xffff, /* src_mask */
- 0xffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* Local TOC relative symbol. */
- HOWTO (R_TCL, /* type */
- 0, /* rightshift */
- 1, /* size (0 = byte, 1 = short, 2 = long) */
- 16, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_TCL", /* name */
- TRUE, /* partial_inplace */
- 0xffff, /* src_mask */
- 0xffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- EMPTY_HOWTO (7),
- /* Non modifiable absolute branch. */
- HOWTO (R_BA, /* type */
- 0, /* rightshift */
- 2, /* size (0 = byte, 1 = short, 2 = long) */
- 26, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_BA_26", /* name */
- TRUE, /* partial_inplace */
- 0x03fffffc, /* src_mask */
- 0x03fffffc, /* dst_mask */
- FALSE), /* pcrel_offset */
- EMPTY_HOWTO (9),
- /* Non modifiable relative branch. */
- HOWTO (R_BR, /* type */
- 0, /* rightshift */
- 2, /* size (0 = byte, 1 = short, 2 = long) */
- 26, /* bitsize */
- TRUE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_signed, /* complain_on_overflow */
- 0, /* special_function */
- "R_BR", /* name */
- TRUE, /* partial_inplace */
- 0x03fffffc, /* src_mask */
- 0x03fffffc, /* dst_mask */
- FALSE), /* pcrel_offset */
- EMPTY_HOWTO (0xb),
- /* Indirect load. */
- HOWTO (R_RL, /* type */
- 0, /* rightshift */
- 1, /* size (0 = byte, 1 = short, 2 = long) */
- 16, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_RL", /* name */
- TRUE, /* partial_inplace */
- 0xffff, /* src_mask */
- 0xffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* Load address. */
- HOWTO (R_RLA, /* type */
- 0, /* rightshift */
- 1, /* size (0 = byte, 1 = short, 2 = long) */
- 16, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_RLA", /* name */
- TRUE, /* partial_inplace */
- 0xffff, /* src_mask */
- 0xffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- EMPTY_HOWTO (0xe),
- /* Non-relocating reference. Bitsize is 1 so that r_rsize is 0. */
- HOWTO (R_REF, /* type */
- 0, /* rightshift */
- 0, /* size (0 = byte, 1 = short, 2 = long) */
- 1, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_dont, /* complain_on_overflow */
- 0, /* special_function */
- "R_REF", /* name */
- FALSE, /* partial_inplace */
- 0, /* src_mask */
- 0, /* dst_mask */
- FALSE), /* pcrel_offset */
- EMPTY_HOWTO (0x10),
- EMPTY_HOWTO (0x11),
- /* TOC relative indirect load. */
- HOWTO (R_TRL, /* type */
- 0, /* rightshift */
- 1, /* size (0 = byte, 1 = short, 2 = long) */
- 16, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_TRL", /* name */
- TRUE, /* partial_inplace */
- 0xffff, /* src_mask */
- 0xffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* TOC relative load address. */
- HOWTO (R_TRLA, /* type */
- 0, /* rightshift */
- 1, /* size (0 = byte, 1 = short, 2 = long) */
- 16, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_TRLA", /* name */
- TRUE, /* partial_inplace */
- 0xffff, /* src_mask */
- 0xffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* Modifiable relative branch. */
- HOWTO (R_RRTBI, /* type */
- 1, /* rightshift */
- 2, /* size (0 = byte, 1 = short, 2 = long) */
- 32, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_RRTBI", /* name */
- TRUE, /* partial_inplace */
- 0xffffffff, /* src_mask */
- 0xffffffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* Modifiable absolute branch. */
- HOWTO (R_RRTBA, /* type */
- 1, /* rightshift */
- 2, /* size (0 = byte, 1 = short, 2 = long) */
- 32, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_RRTBA", /* name */
- TRUE, /* partial_inplace */
- 0xffffffff, /* src_mask */
- 0xffffffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* Modifiable call absolute indirect. */
- HOWTO (R_CAI, /* type */
- 0, /* rightshift */
- 1, /* size (0 = byte, 1 = short, 2 = long) */
- 16, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_CAI", /* name */
- TRUE, /* partial_inplace */
- 0xffff, /* src_mask */
- 0xffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* Modifiable call relative. */
- HOWTO (R_CREL, /* type */
- 0, /* rightshift */
- 1, /* size (0 = byte, 1 = short, 2 = long) */
- 16, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_CREL", /* name */
- TRUE, /* partial_inplace */
- 0xffff, /* src_mask */
- 0xffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* Modifiable branch absolute. */
- HOWTO (R_RBA, /* type */
- 0, /* rightshift */
- 2, /* size (0 = byte, 1 = short, 2 = long) */
- 26, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_RBA", /* name */
- TRUE, /* partial_inplace */
- 0x03fffffc, /* src_mask */
- 0x03fffffc, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* Modifiable branch absolute. */
- HOWTO (R_RBAC, /* type */
- 0, /* rightshift */
- 2, /* size (0 = byte, 1 = short, 2 = long) */
- 32, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_RBAC", /* name */
- TRUE, /* partial_inplace */
- 0xffffffff, /* src_mask */
- 0xffffffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* Modifiable branch relative. */
- HOWTO (R_RBR, /* type */
- 0, /* rightshift */
- 2, /* size (0 = byte, 1 = short, 2 = long) */
- 26, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_signed, /* complain_on_overflow */
- 0, /* special_function */
- "R_RBR_26", /* name */
- TRUE, /* partial_inplace */
- 0x03fffffc, /* src_mask */
- 0x03fffffc, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* Modifiable branch absolute. */
- HOWTO (R_RBRC, /* type */
- 0, /* rightshift */
- 1, /* size (0 = byte, 1 = short, 2 = long) */
- 16, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_RBRC", /* name */
- TRUE, /* partial_inplace */
- 0xffff, /* src_mask */
- 0xffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* 16 bit Non modifiable absolute branch. */
- HOWTO (R_BA, /* type */
- 0, /* rightshift */
- 1, /* size (0 = byte, 1 = short, 2 = long) */
- 16, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_bitfield, /* complain_on_overflow */
- 0, /* special_function */
- "R_BA_16", /* name */
- TRUE, /* partial_inplace */
- 0xfffc, /* src_mask */
- 0xfffc, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* Modifiable branch relative. */
- HOWTO (R_RBR, /* type */
- 0, /* rightshift */
- 1, /* size (0 = byte, 1 = short, 2 = long) */
- 16, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_signed, /* complain_on_overflow */
- 0, /* special_function */
- "R_RBR_16", /* name */
- TRUE, /* partial_inplace */
- 0xffff, /* src_mask */
- 0xffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- /* Modifiable branch relative. */
- HOWTO (R_RBA, /* type */
- 0, /* rightshift */
- 1, /* size (0 = byte, 1 = short, 2 = long) */
- 16, /* bitsize */
- FALSE, /* pc_relative */
- 0, /* bitpos */
- complain_overflow_signed, /* complain_on_overflow */
- 0, /* special_function */
- "R_RBA_16", /* name */
- TRUE, /* partial_inplace */
- 0xffff, /* src_mask */
- 0xffff, /* dst_mask */
- FALSE), /* pcrel_offset */
- };
- void
- xcoff_rtype2howto (arelent *relent, struct internal_reloc *internal)
- {
- if (internal->r_type > R_RBRC)
- abort ();
- /* Default howto layout works most of the time */
- relent->howto = &xcoff_howto_table[internal->r_type];
- /* Special case some 16 bit reloc */
- if (15 == (internal->r_size & 0x1f))
- {
- if (R_BA == internal->r_type)
- relent->howto = &xcoff_howto_table[0x1c];
- else if (R_RBR == internal->r_type)
- relent->howto = &xcoff_howto_table[0x1d];
- else if (R_RBA == internal->r_type)
- relent->howto = &xcoff_howto_table[0x1e];
- }
- /* The r_size field of an XCOFF reloc encodes the bitsize of the
- relocation, as well as indicating whether it is signed or not.
- Doublecheck that the relocation information gathered from the
- type matches this information. The bitsize is not significant
- for R_REF relocs. */
- if (relent->howto->dst_mask != 0
- && (relent->howto->bitsize
- != ((unsigned int) internal->r_size & 0x1f) + 1))
- abort ();
- }
- reloc_howto_type *
- _bfd_xcoff_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
- bfd_reloc_code_real_type code)
- {
- switch (code)
- {
- case BFD_RELOC_PPC_B26:
- return &xcoff_howto_table[0xa];
- case BFD_RELOC_PPC_BA16:
- return &xcoff_howto_table[0x1c];
- case BFD_RELOC_PPC_BA26:
- return &xcoff_howto_table[8];
- case BFD_RELOC_PPC_TOC16:
- return &xcoff_howto_table[3];
- case BFD_RELOC_32:
- case BFD_RELOC_CTOR:
- return &xcoff_howto_table[0];
- case BFD_RELOC_NONE:
- return &xcoff_howto_table[0xf];
- default:
- return NULL;
- }
- }
- static reloc_howto_type *
- _bfd_xcoff_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
- const char *r_name)
- {
- unsigned int i;
- for (i = 0;
- i < sizeof (xcoff_howto_table) / sizeof (xcoff_howto_table[0]);
- i++)
- if (xcoff_howto_table[i].name != NULL
- && strcasecmp (xcoff_howto_table[i].name, r_name) == 0)
- return &xcoff_howto_table[i];
- return NULL;
- }
- /* XCOFF archive support. The original version of this code was by
- Damon A. Permezel. It was enhanced to permit cross support, and
- writing archive files, by Ian Lance Taylor, Cygnus Support.
- XCOFF uses its own archive format. Everything is hooked together
- with file offset links, so it is possible to rapidly update an
- archive in place. Of course, we don't do that. An XCOFF archive
- has a real file header, not just an ARMAG string. The structure of
- the file header and of each archive header appear below.
- An XCOFF archive also has a member table, which is a list of
- elements in the archive (you can get that by looking through the
- linked list, but you have to read a lot more of the file). The
- member table has a normal archive header with an empty name. It is
- normally (and perhaps must be) the second to last entry in the
- archive. The member table data is almost printable ASCII. It
- starts with a 12 character decimal string which is the number of
- entries in the table. For each entry it has a 12 character decimal
- string which is the offset in the archive of that member. These
- entries are followed by a series of null terminated strings which
- are the member names for each entry.
- Finally, an XCOFF archive has a global symbol table, which is what
- we call the armap. The global symbol table has a normal archive
- header with an empty name. It is normally (and perhaps must be)
- the last entry in the archive. The contents start with a four byte
- binary number which is the number of entries. This is followed by
- a that many four byte binary numbers; each is the file offset of an
- entry in the archive. These numbers are followed by a series of
- null terminated strings, which are symbol names.
- AIX 4.3 introduced a new archive format which can handle larger
- files and also 32- and 64-bit objects in the same archive. The
- things said above remain true except that there is now more than
- one global symbol table. The one is used to index 32-bit objects,
- the other for 64-bit objects.
- The new archives (recognizable by the new ARMAG string) has larger
- field lengths so that we cannot really share any code. Also we have
- to take care that we are not generating the new form of archives
- on AIX 4.2 or earlier systems. */
- /* XCOFF archives use this as a magic string. Note that both strings
- have the same length. */
- /* Set the magic for archive. */
- bfd_boolean
- bfd_xcoff_ar_archive_set_magic (bfd *abfd ATTRIBUTE_UNUSED,
- char *magic ATTRIBUTE_UNUSED)
- {
- /* Not supported yet. */
- return FALSE;
- /* bfd_xcoff_archive_set_magic (abfd, magic); */
- }
- /* Read in the armap of an XCOFF archive. */
- bfd_boolean
- _bfd_xcoff_slurp_armap (bfd *abfd)
- {
- file_ptr off;
- size_t namlen;
- bfd_size_type sz;
- bfd_byte *contents, *cend;
- bfd_vma c, i;
- carsym *arsym;
- bfd_byte *p;
- if (xcoff_ardata (abfd) == NULL)
- {
- bfd_has_map (abfd) = FALSE;
- return TRUE;
- }
- if (! xcoff_big_format_p (abfd))
- {
- /* This is for the old format. */
- struct xcoff_ar_hdr hdr;
- off = strtol (xcoff_ardata (abfd)->symoff, (char **) NULL, 10);
- if (off == 0)
- {
- bfd_has_map (abfd) = FALSE;
- return TRUE;
- }
- if (bfd_seek (abfd, off, SEEK_SET) != 0)
- return FALSE;
- /* The symbol table starts with a normal archive header. */
- if (bfd_bread (&hdr, (bfd_size_type) SIZEOF_AR_HDR, abfd)
- != SIZEOF_AR_HDR)
- return FALSE;
- /* Skip the name (normally empty). */
- namlen = strtol (hdr.namlen, (char **) NULL, 10);
- off = ((namlen + 1) & ~ (size_t) 1) + SXCOFFARFMAG;
- if (bfd_seek (abfd, off, SEEK_CUR) != 0)
- return FALSE;
- sz = strtol (hdr.size, (char **) NULL, 10);
- /* Read in the entire symbol table. */
- contents = (bfd_byte *) bfd_alloc (abfd, sz);
- if (contents == NULL)
- return FALSE;
- if (bfd_bread (contents, sz, abfd) != sz)
- return FALSE;
- /* The symbol table starts with a four byte count. */
- c = H_GET_32 (abfd, contents);
- if (c * 4 >= sz)
- {
- bfd_set_error (bfd_error_bad_value);
- return FALSE;
- }
- bfd_ardata (abfd)->symdefs =
- ((carsym *) bfd_alloc (abfd, c * sizeof (carsym)));
- if (bfd_ardata (abfd)->symdefs == NULL)
- return FALSE;
- /* After the count comes a list of four byte file offsets. */
- for (i = 0, arsym = bfd_ardata (abfd)->symdefs, p = contents + 4;
- i < c;
- ++i, ++arsym, p += 4)
- arsym->file_offset = H_GET_32 (abfd, p);
- }
- else
- {
- /* This is for the new format. */
- struct xcoff_ar_hdr_big hdr;
- off = strtol (xcoff_ardata_big (abfd)->symoff, (char **) NULL, 10);
- if (off == 0)
- {
- bfd_has_map (abfd) = FALSE;
- return TRUE;
- }
- if (bfd_seek (abfd, off, SEEK_SET) != 0)
- return FALSE;
- /* The symbol table starts with a normal archive header. */
- if (bfd_bread (&hdr, (bfd_size_type) SIZEOF_AR_HDR_BIG, abfd)
- != SIZEOF_AR_HDR_BIG)
- return FALSE;
- /* Skip the name (normally empty). */
- namlen = strtol (hdr.namlen, (char **) NULL, 10);
- off = ((namlen + 1) & ~ (size_t) 1) + SXCOFFARFMAG;
- if (bfd_seek (abfd, off, SEEK_CUR) != 0)
- return FALSE;
- /* XXX This actually has to be a call to strtoll (at least on 32-bit
- machines) since the field width is 20 and there numbers with more
- than 32 bits can be represented. */
- sz = strtol (hdr.size, (char **) NULL, 10);
- /* Read in the entire symbol table. */
- contents = (bfd_byte *) bfd_alloc (abfd, sz);
- if (contents == NULL)
- return FALSE;
- if (bfd_bread (contents, sz, abfd) != sz)
- return FALSE;
- /* The symbol table starts with an eight byte count. */
- c = H_GET_64 (abfd, contents);
- if (c * 8 >= sz)
- {
- bfd_set_error (bfd_error_bad_value);
- return FALSE;
- }
- bfd_ardata (abfd)->symdefs =
- ((carsym *) bfd_alloc (abfd, c * sizeof (carsym)));
- if (bfd_ardata (abfd)->symdefs == NULL)
- return FALSE;
- /* After the count comes a list of eight byte file offsets. */
- for (i = 0, arsym = bfd_ardata (abfd)->symdefs, p = contents + 8;
- i < c;
- ++i, ++arsym, p += 8)
- arsym->file_offset = H_GET_64 (abfd, p);
- }
- /* After the file offsets come null terminated symbol names. */
- cend = contents + sz;
- for (i = 0, arsym = bfd_ardata (abfd)->symdefs;
- i < c;
- ++i, ++arsym, p += strlen ((char *) p) + 1)
- {
- if (p >= cend)
- {
- bfd_set_error (bfd_error_bad_value);
- return FALSE;
- }
- arsym->name = (char *) p;
- }
- bfd_ardata (abfd)->symdef_count = c;
- bfd_has_map (abfd) = TRUE;
- return TRUE;
- }
- /* See if this is an XCOFF archive. */
- const bfd_target *
- _bfd_xcoff_archive_p (bfd *abfd)
- {
- struct artdata *tdata_hold;
- char magic[SXCOFFARMAG];
- bfd_size_type amt = SXCOFFARMAG;
- if (bfd_bread (magic, amt, abfd) != amt)
- {
- if (bfd_get_error () != bfd_error_system_call)
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
- }
- if (strncmp (magic, XCOFFARMAG, SXCOFFARMAG) != 0
- && strncmp (magic, XCOFFARMAGBIG, SXCOFFARMAG) != 0)
- {
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
- }
- tdata_hold = bfd_ardata (abfd);
- amt = sizeof (struct artdata);
- bfd_ardata (abfd) = (struct artdata *) bfd_zalloc (abfd, amt);
- if (bfd_ardata (abfd) == (struct artdata *) NULL)
- goto error_ret_restore;
- /* Cleared by bfd_zalloc above.
- bfd_ardata (abfd)->cache = NULL;
- bfd_ardata (abfd)->archive_head = NULL;
- bfd_ardata (abfd)->symdefs = NULL;
- bfd_ardata (abfd)->extended_names = NULL;
- bfd_ardata (abfd)->extended_names_size = 0; */
- /* Now handle the two formats. */
- if (magic[1] != 'b')
- {
- /* This is the old format. */
- struct xcoff_ar_file_hdr hdr;
- /* Copy over the magic string. */
- memcpy (hdr.magic, magic, SXCOFFARMAG);
- /* Now read the rest of the file header. */
- amt = SIZEOF_AR_FILE_HDR - SXCOFFARMAG;
- if (bfd_bread (&hdr.memoff, amt, abfd) != amt)
- {
- if (bfd_get_error () != bfd_error_system_call)
- bfd_set_error (bfd_error_wrong_format);
- goto error_ret;
- }
- bfd_ardata (abfd)->first_file_filepos = strtol (hdr.firstmemoff,
- (char **) NULL, 10);
- amt = SIZEOF_AR_FILE_HDR;
- bfd_ardata (abfd)->tdata = bfd_zalloc (abfd, amt);
- if (bfd_ardata (abfd)->tdata == NULL)
- goto error_ret;
- memcpy (bfd_ardata (abfd)->tdata, &hdr, SIZEOF_AR_FILE_HDR);
- }
- else
- {
- /* This is the new format. */
- struct xcoff_ar_file_hdr_big hdr;
- /* Copy over the magic string. */
- memcpy (hdr.magic, magic, SXCOFFARMAG);
- /* Now read the rest of the file header. */
- amt = SIZEOF_AR_FILE_HDR_BIG - SXCOFFARMAG;
- if (bfd_bread (&hdr.memoff, amt, abfd) != amt)
- {
- if (bfd_get_error () != bfd_error_system_call)
- bfd_set_error (bfd_error_wrong_format);
- goto error_ret;
- }
- bfd_ardata (abfd)->first_file_filepos = bfd_scan_vma (hdr.firstmemoff,
- (const char **) 0,
- 10);
- amt = SIZEOF_AR_FILE_HDR_BIG;
- bfd_ardata (abfd)->tdata = bfd_zalloc (abfd, amt);
- if (bfd_ardata (abfd)->tdata == NULL)
- goto error_ret;
- memcpy (bfd_ardata (abfd)->tdata, &hdr, SIZEOF_AR_FILE_HDR_BIG);
- }
- if (! _bfd_xcoff_slurp_armap (abfd))
- {
- error_ret:
- bfd_release (abfd, bfd_ardata (abfd));
- error_ret_restore:
- bfd_ardata (abfd) = tdata_hold;
- return NULL;
- }
- return abfd->xvec;
- }
- /* Read the archive header in an XCOFF archive. */
- void *
- _bfd_xcoff_read_ar_hdr (bfd *abfd)
- {
- bfd_size_type namlen;
- struct areltdata *ret;
- bfd_size_type amt = sizeof (struct areltdata);
- ret = (struct areltdata *) bfd_alloc (abfd, amt);
- if (ret == NULL)
- return NULL;
- if (! xcoff_big_format_p (abfd))
- {
- struct xcoff_ar_hdr hdr;
- struct xcoff_ar_hdr *hdrp;
- if (bfd_bread (&hdr, (bfd_size_type) SIZEOF_AR_HDR, abfd)
- != SIZEOF_AR_HDR)
- {
- free (ret);
- return NULL;
- }
- namlen = strtol (hdr.namlen, (char **) NULL, 10);
- amt = SIZEOF_AR_HDR + namlen + 1;
- hdrp = (struct xcoff_ar_hdr *) bfd_alloc (abfd, amt);
- if (hdrp == NULL)
- {
- free (ret);
- return NULL;
- }
- memcpy (hdrp, &hdr, SIZEOF_AR_HDR);
- if (bfd_bread ((char *) hdrp + SIZEOF_AR_HDR, namlen, abfd) != namlen)
- {
- free (ret);
- return NULL;
- }
- ((char *) hdrp)[SIZEOF_AR_HDR + namlen] = '\0';
- ret->arch_header = (char *) hdrp;
- ret->parsed_size = strtol (hdr.size, (char **) NULL, 10);
- ret->filename = (char *) hdrp + SIZEOF_AR_HDR;
- }
- else
- {
- struct xcoff_ar_hdr_big hdr;
- struct xcoff_ar_hdr_big *hdrp;
- if (bfd_bread (&hdr, (bfd_size_type) SIZEOF_AR_HDR_BIG, abfd)
- != SIZEOF_AR_HDR_BIG)
- {
- free (ret);
- return NULL;
- }
- namlen = strtol (hdr.namlen, (char **) NULL, 10);
- amt = SIZEOF_AR_HDR_BIG + namlen + 1;
- hdrp = (struct xcoff_ar_hdr_big *) bfd_alloc (abfd, amt);
- if (hdrp == NULL)
- {
- free (ret);
- return NULL;
- }
- memcpy (hdrp, &hdr, SIZEOF_AR_HDR_BIG);
- if (bfd_bread ((char *) hdrp + SIZEOF_AR_HDR_BIG, namlen, abfd) != namlen)
- {
- free (ret);
- return NULL;
- }
- ((char *) hdrp)[SIZEOF_AR_HDR_BIG + namlen] = '\0';
- ret->arch_header = (char *) hdrp;
- /* XXX This actually has to be a call to strtoll (at least on 32-bit
- machines) since the field width is 20 and there numbers with more
- than 32 bits can be represented. */
- ret->parsed_size = strtol (hdr.size, (char **) NULL, 10);
- ret->filename = (char *) hdrp + SIZEOF_AR_HDR_BIG;
- }
- /* Skip over the XCOFFARFMAG at the end of the file name. */
- if (bfd_seek (abfd, (file_ptr) ((namlen & 1) + SXCOFFARFMAG), SEEK_CUR) != 0)
- return NULL;
- return ret;
- }
- /* Open the next element in an XCOFF archive. */
- bfd *
- _bfd_xcoff_openr_next_archived_file (bfd *archive, bfd *last_file)
- {
- file_ptr filestart;
- if (xcoff_ardata (archive) == NULL)
- {
- bfd_set_error (bfd_error_invalid_operation);
- return NULL;
- }
- if (! xcoff_big_format_p (archive))
- {
- if (last_file == NULL)
- filestart = bfd_ardata (archive)->first_file_filepos;
- else
- filestart = strtol (arch_xhdr (last_file)->nextoff, (char **) NULL,
- 10);
- if (filestart == 0
- || filestart == strtol (xcoff_ardata (archive)->memoff,
- (char **) NULL, 10)
- || filestart == strtol (xcoff_ardata (archive)->symoff,
- (char **) NULL, 10))
- {
- bfd_set_error (bfd_error_no_more_archived_files);
- return NULL;
- }
- }
- else
- {
- if (last_file == NULL)
- filestart = bfd_ardata (archive)->first_file_filepos;
- else
- /* XXX These actually have to be a calls to strtoll (at least
- on 32-bit machines) si…
Large files files are truncated, but you can click here to view the full file