{ bfd_set_error (bfd_error_no_memory); return NULL; }
return NULL;
static bfd *xcoff_openr_next_archived_file PARAMS ((bfd *, bfd *));static int xcoff_generic_stat_arch_elt PARAMS ((bfd *, struct stat *));static const char *normalize_filename PARAMS ((bfd *));static boolean xcoff_write_armap  PARAMS ((bfd *, unsigned int, struct orl *, unsigned int, int));static boolean xcoff_write_archive_contents PARAMS ((bfd *));/* We use our own tdata type.  Its first field is the COFF tdata type,   so the COFF routines are compatible.  */static booleanxcoff_mkobject (abfd)     bfd *abfd;{  coff_data_type *coff;  abfd->tdata.xcoff_obj_data =    ((struct xcoff_tdata *)     bfd_zalloc (abfd, sizeof (struct xcoff_tdata)));  if (abfd->tdata.xcoff_obj_data == NULL)    {      bfd_set_error (bfd_error_no_memory);      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;  return true;}/* Copy XCOFF data from one BFD to another.  */static booleanxcoff_copy_private_bfd_data (ibfd, obfd)     bfd *ibfd;     bfd *obfd;{  struct xcoff_tdata *ix, *ox;  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->toc_section == NULL)    ox->toc_section = NULL;  else    ox->toc_section = ix->toc_section->output_section;  if (ix->entry_section == NULL)    ox->entry_section = NULL;  else    ox->entry_section = ix->entry_section->output_section;  ox->text_align_power = ix->text_align_power;  ox->data_align_power = ix->data_align_power;  ox->modtype = ix->modtype;  ox->cputype = ix->cputype;  ox->maxdata = ix->maxdata;  ox->maxstack = ix->maxstack;  return true;}/* 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.  */static reloc_howto_type xcoff_howto_table[] ={  /* Standard 32 bit relocation.  */  HOWTO (0,	                /* 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 (1,	                /* 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 (2,	                /* 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 (3,	                /* 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 (4,	                /* 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 (5,	                /* type */                                 	 0,	                /* rightshift */                           	 2,	                /* 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 (6,	                /* type */                                 	 0,	                /* rightshift */                           	 2,	                /* 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 */    { 7 },    /* Non modifiable absolute branch.  */  HOWTO (8,	                /* 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",                /* name */                                 	 true,	                /* partial_inplace */                      	 0x3fffffc,	        /* src_mask */                             	 0x3fffffc,        	/* dst_mask */                             	 false),                /* pcrel_offset */    { 9 },  /* Non modifiable relative branch.  */  HOWTO (0xa,	                /* 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 */                      	 0x3fffffc,	        /* src_mask */                             	 0x3fffffc,        	/* dst_mask */                             	 false),                /* pcrel_offset */    { 0xb },  /* Indirect load.  */  HOWTO (0xc,	                /* type */                                 	 0,	                /* rightshift */                           	 2,	                /* 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 (0xd,	                /* type */                                 	 0,	                /* rightshift */                           	 2,	                /* 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 */    { 0xe },    /* Non-relocating reference.  */  HOWTO (0xf,	                /* 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_REF",               /* name */                                 	 false,	                /* partial_inplace */                      	 0,		        /* src_mask */                             	 0,     	   	/* dst_mask */                             	 false),                /* pcrel_offset */    { 0x10 },  { 0x11 },    /* TOC relative indirect load.  */  HOWTO (0x12,	                /* type */                                 	 0,	                /* rightshift */                           	 2,	                /* 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 (0x13,	                /* type */                                 	 0,	                /* rightshift */                           	 2,	                /* 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 (0x14,	                /* 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 (0x15,	                /* 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 (0x16,	                /* type */                                 	 0,	                /* rightshift */                           	 2,	                /* 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 (0x17,	                /* type */                                 	 0,	                /* rightshift */                           	 2,	                /* 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 (0x18,	                /* type */                                 	 0,	                /* rightshift */                           	 2,	                /* size (0 = byte, 1 = short, 2 = long) */ 	 16,	                /* bitsize */                   	 false,	                /* pc_relative */                          	 0,	                /* bitpos */                               	 complain_overflow_bitfield, /* complain_on_overflow */	 0,		        /* special_function */                     	 "R_RBA",               /* name */                                 	 true,	                /* partial_inplace */                      	 0xffff,	        /* src_mask */                             	 0xffff,        	/* dst_mask */                             	 false),                /* pcrel_offset */    /* Modifiable branch absolute.  */  HOWTO (0x19,	                /* type */                                 	 0,	                /* rightshift */                           	 2,	                /* size (0 = byte, 1 = short, 2 = long) */ 	 16,	                /* bitsize */                   	 false,	                /* pc_relative */                          	 0,	                /* bitpos */                               	 complain_overflow_bitfield, /* complain_on_overflow */	 0,		        /* special_function */                     	 "R_RBAC",              /* name */                                 	 true,	                /* partial_inplace */                      	 0xffff,	        /* src_mask */                             	 0xffff,        	/* dst_mask */                             	 false),                /* pcrel_offset */    /* Modifiable branch relative.  */  HOWTO (0x1a,	                /* 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",               /* name */                                 	 true,	                /* partial_inplace */                      	 0xffff,	        /* src_mask */                             	 0xffff,        	/* dst_mask */                             	 false),                /* pcrel_offset */    /* Modifiable branch absolute.  */  HOWTO (0x1b,	                /* type */                                 	 0,	                /* rightshift */                           	 2,	                /* 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 */};static voidxcoff_rtype2howto (relent, internal)     arelent *relent;     struct internal_reloc *internal;{  relent->howto = xcoff_howto_table + internal->r_type;  /* 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.  */  if (relent->howto->bitsize != ((unsigned int) internal->r_size & 0x1f) + 1)    abort ();#if 0  if ((internal->r_size & 0x80) != 0      ? (relent->howto->complain_on_overflow != complain_overflow_signed)      : (relent->howto->complain_on_overflow != complain_overflow_bitfield))    abort ();#endif}static reloc_howto_type *xcoff_reloc_type_lookup (abfd, code)     bfd *abfd;     bfd_reloc_code_real_type code;{  switch (code)    {    case BFD_RELOC_PPC_B26:      return &xcoff_howto_table[0xa];    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];    default:      return NULL;    }}#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 RTYPE2HOWTO(cache_ptr, dst) xcoff_rtype2howto (cache_ptr, dst)#define coff_mkobject xcoff_mkobject#define coff_bfd_copy_private_bfd_data xcoff_copy_private_bfd_data#define coff_bfd_reloc_type_lookup xcoff_reloc_type_lookup#define coff_relocate_section _bfd_ppc_xcoff_relocate_section#include "coffcode.h"/* 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.  *//* XCOFF archives use this as a magic string.  */#define XCOFFARMAG "<aiaff>\012"#define SXCOFFARMAG 8/* This terminates an XCOFF archive member name.  */#define XCOFFARFMAG "`\012"#define SXCOFFARFMAG 2/* XCOFF archives start with this (printable) structure.  */struct xcoff_ar_file_hdr{  /* Magic string.  */  char magic[SXCOFFARMAG];  /* Offset of the member table (decimal ASCII string).  */  char memoff[12];  /* Offset of the global symbol table (decimal ASCII string).  */  char symoff[12];  /* Offset of the first member in the archive (decimal ASCII string).  */  char firstmemoff[12];  /* Offset of the last member in the archive (decimal ASCII string).  */  char lastmemoff[12];  /* Offset of the first member on the free list (decimal ASCII     string).  */  char freeoff[12];};#define SIZEOF_AR_FILE_HDR (5 * 12 + SXCOFFARMAG)/* Each XCOFF archive member starts with this (printable) structure.  */struct xcoff_ar_hdr{  /* File size not including the header (decimal ASCII string).  */  char size[12];  /* File offset of next archive member (decimal ASCII string).  */  char nextoff[12];  /* File offset of previous archive member (decimal ASCII string).  */  char prevoff[12];  /* File mtime (decimal ASCII string).  */  char date[12];  /* File UID (decimal ASCII string).  */  char uid[12];  /* File GID (decimal ASCII string).  */  char gid[12];  /* File mode (octal ASCII string).  */  char mode[12];  /* Length of file name (decimal ASCII string).  */  char namlen[4];  /* This structure is followed by the file name.  The length of the     name is given in the namlen field.  If the length of the name is     odd, the name is followed by a null byte.  The name and optional     null byte are followed by XCOFFARFMAG, which is not included in     namlen.  The contents of the archive member follow; the number of     bytes is given in the size field.  */};#define SIZEOF_AR_HDR (7 * 12 + 4)/* We store a copy of the xcoff_ar_file_hdr in the tdata field of the   artdata structure.  */#define xcoff_ardata(abfd) \  ((struct xcoff_ar_file_hdr *) bfd_ardata (abfd)->tdata)/* We store a copy of the xcoff_ar_hdr in the arelt_data field of an   archive element.  */#define arch_eltdata(bfd) ((struct areltdata *) ((bfd)->arelt_data))#define arch_xhdr(bfd) \  ((struct xcoff_ar_hdr *) arch_eltdata (bfd)->arch_header)/* XCOFF archives do not have anything which corresponds to an   extended name table.  */#define xcoff_slurp_extended_name_table bfd_false#define xcoff_construct_extended_name_table \  ((boolean (*) PARAMS ((bfd *, char **, bfd_size_type *, const char **))) \   bfd_false)#define xcoff_truncate_arname bfd_dont_truncate_arname/* XCOFF archives do not have a timestamp.  */#define xcoff_update_armap_timestamp bfd_true/* Read in the armap of an XCOFF archive.  */static booleanxcoff_slurp_armap (abfd)     bfd *abfd;{  file_ptr off;  struct xcoff_ar_hdr hdr;  size_t namlen;  bfd_size_type sz;  bfd_byte *contents, *cend;  unsigned int c, i;  carsym *arsym;  bfd_byte *p;  if (xcoff_ardata (abfd) == NULL)    {      bfd_has_map (abfd) = false;      return true;    }  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_read ((PTR) &hdr, SIZEOF_AR_HDR, 1, abfd) != SIZEOF_AR_HDR)    return false;  /* Skip the name (normally empty).  */  namlen = strtol (hdr.namlen, (char **) NULL, 10);  if (bfd_seek (abfd, ((namlen + 1) & ~1) + SXCOFFARFMAG, SEEK_CUR) != 0)    return false;  /* Read in the entire symbol table.  */  sz = strtol (hdr.size, (char **) NULL, 10);  contents = (bfd_byte *) bfd_alloc (abfd, sz);  if (contents == NULL)    {      bfd_set_error (bfd_error_no_memory);      return false;    }  if (bfd_read ((PTR) contents, 1, sz, abfd) != sz)    return false;  /* The symbol table starts with a four byte count.  */  c = bfd_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)    {      bfd_set_error (bfd_error_no_memory);      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 = bfd_h_get_32 (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.  */static const bfd_target *xcoff_archive_p (abfd)     bfd *abfd;{  struct xcoff_ar_file_hdr hdr;  if (bfd_read ((PTR) &hdr, SIZEOF_AR_FILE_HDR, 1, abfd)      != SIZEOF_AR_FILE_HDR)    {      if (bfd_get_error () != bfd_error_system_call)	bfd_set_error (bfd_error_wrong_format);      return NULL;    }  if (strncmp (hdr.magic, XCOFFARMAG, SXCOFFARMAG) != 0)    {      bfd_set_error (bfd_error_wrong_format);      return NULL;    }  /* We are setting bfd_ardata(abfd) here, but since bfd_ardata     involves a cast, we can't do it as the left operand of     assignment.  */  abfd->tdata.aout_ar_data =    (struct artdata *) bfd_zalloc (abfd, sizeof (struct artdata));  if (bfd_ardata (abfd) == (struct artdata *) NULL)    {      bfd_set_error (bfd_error_no_memory);      return NULL;    }  bfd_ardata (abfd)->first_file_filepos = strtol (hdr.firstmemoff,						  (char **) NULL, 10);  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)->tdata = bfd_zalloc (abfd, SIZEOF_AR_FILE_HDR);  if (bfd_ardata (abfd)->tdata == NULL)    {      bfd_set_error (bfd_error_no_memory);      return NULL;    }  memcpy (bfd_ardata (abfd)->tdata, &hdr, SIZEOF_AR_FILE_HDR);  if (! xcoff_slurp_armap (abfd))    {      bfd_release (abfd, bfd_ardata (abfd));      abfd->tdata.aout_ar_data = (struct artdata *) NULL;      return NULL;    }  return abfd->xvec;}/* Read the archive header in an XCOFF archive.  */static PTRxcoff_read_ar_hdr (abfd)     bfd *abfd;{  struct xcoff_ar_hdr hdr;  size_t namlen;  struct xcoff_ar_hdr *hdrp;  struct areltdata *ret;  if (bfd_read ((PTR) &hdr, SIZEOF_AR_HDR, 1, abfd) != SIZEOF_AR_HDR)    return NULL;  namlen = strtol (hdr.namlen, (char **) NULL, 10);  hdrp = bfd_alloc (abfd, SIZEOF_AR_HDR + namlen + 1);  if (hdrp == NULL)    {      bfd_set_error (bfd_error_no_memory);      return NULL;    }  memcpy (hdrp, &hdr, SIZEOF_AR_HDR);  if (bfd_read ((char *) hdrp + SIZEOF_AR_HDR, 1, namlen, abfd) != namlen)    return NULL;  ((char *) hdrp)[SIZEOF_AR_HDR + namlen] = '\0';  ret = (struct areltdata *) bfd_alloc (abfd, sizeof (struct areltdata));  if (ret == NULL)    {      bfd_set_error (bfd_error_no_memory);      return NULL;    }  ret->arch_header = (char *) hdrp;  ret->parsed_size = strtol (hdr.size, (char **) NULL, 10);  ret->filename = (char *) hdrp + SIZEOF_AR_HDR;  /* Skip over the XCOFFARFMAG at the end of the file name.  */  if (bfd_seek (abfd, (namlen & 1) + SXCOFFARFMAG, SEEK_CUR) != 0)    return NULL;  return (PTR) ret;}/* Open the next element in an XCOFF archive.  */static bfd *xcoff_openr_next_archived_file (archive, last_file)     bfd *archive;     bfd *last_file;{  file_ptr filestart;  if (xcoff_ardata (archive) == NULL)    {      bfd_set_error (bfd_error_invalid_operation);      return NULL;    }  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;    }  return _bfd_get_elt_at_filepos (archive, filestart);}