1/* Internal format of XCOFF object file data structures for BFD.
2
3   Copyright (C) 1995-2022 Free Software Foundation, Inc.
4   Written by Ian Lance Taylor <ian@cygnus.com>, Cygnus Support.
5
6   This file is part of BFD, the Binary File Descriptor library.
7
8   This program is free software; you can redistribute it and/or modify
9   it under the terms of the GNU General Public License as published by
10   the Free Software Foundation; either version 3 of the License, or
11   (at your option) any later version.
12
13   This program is distributed in the hope that it will be useful,
14   but WITHOUT ANY WARRANTY; without even the implied warranty of
15   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16   GNU General Public License for more details.
17
18   You should have received a copy of the GNU General Public License
19   along with this program; if not, write to the Free Software
20   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
21   MA 02110-1301, USA.  */
22
23#ifndef _INTERNAL_XCOFF_H
24#define _INTERNAL_XCOFF_H
25
26/* XCOFF specific f_flags.  */
27
28/* File was profiled with fdpr.  */
29#define F_FDPR_PROF 0x0010
30
31/* File was reordered with fdpr.  */
32#define F_FDPR_OPTI 0x0020
33
34/* File use very large program support.  */
35#define F_DSA       0x0040
36
37/* One aux header specifying medium page sizes is non-zero.  */
38#define F_VARPG     0x0100
39
40/* Read/write sections are non-executable.  */
41#define F_NONEXEC   0x8000
42
43/* Linker */
44
45/* Names of "special" sections.  */
46#define _TEXT	".text"
47#define _DATA	".data"
48#define _BSS	".bss"
49#define _TDATA	".tdata"
50#define _TBSS	".tbss"
51#define _PAD	".pad"
52#define _LOADER	".loader"
53#define _EXCEPT ".except"
54#define _TYPCHK ".typchk"
55
56/* XCOFF uses special .dwXXX sections with the type STYP_DWARF.  */
57#define STYP_DWARF  0x0010
58
59/* High-order 16-bits dwarf subtypes.  */
60#define SSUBTYP_DWINFO  0x10000
61#define SSUBTYP_DWLINE  0x20000
62#define SSUBTYP_DWPBNMS 0x30000
63#define SSUBTYP_DWPBTYP 0x40000
64#define SSUBTYP_DWARNGE 0x50000
65#define SSUBTYP_DWABREV 0x60000
66#define SSUBTYP_DWSTR   0x70000
67#define SSUBTYP_DWRNGES 0x80000
68#define SSUBTYP_DWLOC   0x90000
69#define SSUBTYP_DWFRAME 0xA0000
70#define SSUBTYP_DWMAC   0xB0000
71
72/* XCOFF uses a special .loader section with type STYP_LOADER.  */
73#define STYP_LOADER 0x1000
74
75/* Specifies an exception section.  A section of this type provides
76   information to identify the reason that a trap or ececptin occured within
77   and executable object program */
78#define STYP_EXCEPT 0x0100
79
80/* Specifies an initialized thread-local data section.  */
81#define STYP_TDATA  0x0400
82
83/* Specifies an uninitialized thread-local data section.  */
84#define STYP_TBSS   0x0800
85
86/* XCOFF uses a special .debug section with type STYP_DEBUG.  */
87#define STYP_DEBUG  0x2000
88
89/* Specifies a type check section.  A section of this type contains parameter
90   argument type check strings used by the AIX binder.  */
91#define STYP_TYPCHK 0x4000
92
93/* XCOFF handles line number or relocation overflow by creating
94   another section header with STYP_OVRFLO set.  */
95#define STYP_OVRFLO 0x8000
96
97#define	RS6K_AOUTHDR_OMAGIC 0x0107 /* old: text & data writeable */
98#define	RS6K_AOUTHDR_NMAGIC 0x0108 /* new: text r/o, data r/w */
99#define	RS6K_AOUTHDR_ZMAGIC 0x010B /* paged: text r/o, both page-aligned */
100
101/* Flags for aouthdr o_flags */
102#define RS6K_AOUTHDR_TLS_LE    0x80  /* TLS local-exec code was generated */
103#define RS6K_AOUTHDR_RAS       0x40  /* kernel module is key & recovery safe */
104#define RS6K_AOUTHDR_ALGNTDATA 0xf   /* TLS alignment */
105
106/* Flags for aouthdr o_x64flags */
107#define RS6K_AOUTHDR_SHR_SYMTAB  0x8000
108#define RS6K_AOUTHDR_FORK_POLICY 0x4000
109#define RS6K_AOUTHDR_FORK_COR    0x2000
110
111
112/* XCOFF relocation types.
113   The relocations are described in the function
114   xcoff[64]_ppc_relocate_section in coff64-rs6000.c and coff-rs6000.c  */
115
116#define R_POS    (0x00)
117#define R_NEG    (0x01)
118#define R_REL    (0x02)
119#define R_TOC    (0x03)
120#define R_TRL    (0x04)
121#define R_GL     (0x05)
122#define R_TCL    (0x06)
123#define R_BA     (0x08)
124#define R_BR     (0x0a)
125#define R_RL     (0x0c)
126#define R_RLA    (0x0d)
127#define R_REF    (0x0f)
128#define R_TRLA   (0x13)
129#define R_RRTBI  (0x14)
130#define R_RRTBA  (0x15)
131#define R_CAI    (0x16)
132#define R_CREL   (0x17)
133#define R_RBA    (0x18)
134#define R_RBAC   (0x19)
135#define R_RBR    (0x1a)
136#define R_RBRC   (0x1b)
137#define R_TLS    (0x20)
138#define R_TLS_IE (0x21)
139#define R_TLS_LD (0x22)
140#define R_TLS_LE (0x23)
141#define R_TLSM   (0x24)
142#define R_TLSML  (0x25)
143#define R_TOCU   (0x30)
144#define R_TOCL   (0x31)
145
146/* Storage class #defines, from /usr/include/storclass.h that are not already
147   defined in internal.h */
148
149/* Comment string in .info section */
150#define	C_INFO		110
151
152/* Dwarf symbol.  */
153#define C_DWARF		112
154
155/* Auxillary Symbol Entries  */
156
157/* x_smtyp values:  */
158#define	SMTYP_ALIGN(x)	((x) >> 3)	/* log2 of alignment */
159#define	SMTYP_SMTYP(x)	((x) & 0x7)	/* symbol type */
160/* Symbol type values:  */
161#define	XTY_ER	0		/* External reference */
162#define	XTY_SD	1		/* Csect definition */
163#define	XTY_LD	2		/* Label definition */
164#define XTY_CM	3		/* .BSS */
165#define	XTY_EM	4		/* Error message */
166#define	XTY_US	5		/* "Reserved for internal use" */
167
168/* x_smclas values:  */
169#define	XMC_PR	0		/* Read-only program code */
170#define	XMC_RO	1		/* Read-only constant */
171#define	XMC_DB	2		/* Read-only debug dictionary table */
172#define	XMC_TC	3		/* Read-write general TOC entry */
173#define	XMC_UA	4		/* Read-write unclassified */
174#define	XMC_RW	5		/* Read-write data */
175#define	XMC_GL	6		/* Read-only global linkage */
176#define	XMC_XO	7		/* Read-only extended operation */
177#define	XMC_SV	8		/* Read-only supervisor call */
178#define	XMC_BS	9		/* Read-write BSS */
179#define	XMC_DS	10		/* Read-write descriptor csect */
180#define	XMC_UC	11		/* Read-write unnamed Fortran common */
181#define	XMC_TI	12		/* Read-only traceback index csect */
182#define	XMC_TB	13		/* Read-only traceback table csect */
183/* 		14	??? */
184#define	XMC_TC0	15		/* Read-write TOC anchor */
185#define XMC_TD	16		/* Read-write data in TOC */
186#define	XMC_SV64   17		/* Read-only 64 bit supervisor call */
187#define	XMC_SV3264 18		/* Read-only 32 or 64 bit supervisor call */
188/*                19   ??? */
189#define XMC_TL     20          /* Read-write initialized TLS data */
190#define XMC_UL     21          /* Read-write uninitialized TLS data */
191#define XMC_TE     22          /* Same as XMC_TC but mapped after it */
192
193/* x_ftype values:  */
194#define XFT_FN 0    /* Specifies the source-file name */
195#define XFT_CT 1    /* Specifies the compiler time stamp */
196#define XFT_CV 2    /* Specifies the compiler version number */
197#define XFT_CD 128  /*Specifies compiler-defined information */
198
199/* The ldhdr structure.  This appears at the start of the .loader
200   section.  */
201
202struct internal_ldhdr
203{
204  /* The version number:
205     1 : 32 bit
206     2 : 64 bit */
207  unsigned long l_version;
208
209  /* The number of symbol table entries.  */
210  bfd_size_type l_nsyms;
211
212  /* The number of relocation table entries.  */
213  bfd_size_type l_nreloc;
214
215  /* The length of the import file string table.  */
216  bfd_size_type l_istlen;
217
218  /* The number of import files.  */
219  bfd_size_type l_nimpid;
220
221  /* The offset from the start of the .loader section to the first
222     entry in the import file table.  */
223  bfd_size_type l_impoff;
224
225  /* The length of the string table.  */
226  bfd_size_type l_stlen;
227
228  /* The offset from the start of the .loader section to the first
229     entry in the string table.  */
230  bfd_size_type l_stoff;
231
232  /* The offset to start of the symbol table, only in XCOFF64 */
233  bfd_vma l_symoff;
234
235  /* The offset to the start of the relocation table, only in XCOFF64 */
236  bfd_vma l_rldoff;
237};
238
239/* The ldsym structure.  This is used to represent a symbol in the
240   .loader section.  */
241
242struct internal_ldsym
243{
244  union
245  {
246    /* The symbol name if <= SYMNMLEN characters.  */
247    char _l_name[SYMNMLEN];
248    struct
249    {
250      /* Zero if the symbol name is more than SYMNMLEN characters.  */
251	long _l_zeroes;
252
253      /* The offset in the string table if the symbol name is more
254	 than SYMNMLEN characters.  */
255      long _l_offset;
256    }
257    _l_l;
258  }
259  _l;
260
261  /* The symbol value.  */
262  bfd_vma l_value;
263
264  /* The symbol section number.  */
265  short l_scnum;
266
267  /* The symbol type and flags.  */
268  char l_smtype;
269
270  /* The symbol storage class.  */
271  char l_smclas;
272
273  /* The import file ID.  */
274  bfd_size_type l_ifile;
275
276  /* Offset to the parameter type check string.  */
277  bfd_size_type l_parm;
278};
279
280/* These flags are for the l_smtype field (the lower three bits are an
281   XTY_* value).  */
282
283/* Imported symbol.  */
284#define L_IMPORT (0x40)
285/* Entry point.  */
286#define L_ENTRY (0x20)
287/* Exported symbol.  */
288#define L_EXPORT (0x10)
289/* Weak symbol.  */
290#define L_WEAK (0x08)
291
292/* The ldrel structure.  This is used to represent a reloc in the
293   .loader section.  */
294
295struct internal_ldrel
296{
297  /* The reloc address.  */
298  bfd_vma l_vaddr;
299
300  /* The symbol table index in the .loader section symbol table.  */
301  bfd_size_type l_symndx;
302
303  /* The relocation type and size.  */
304  short l_rtype;
305
306  /* The section number this relocation applies to.  */
307  short l_rsecnm;
308};
309
310/* An entry in the XCOFF linker hash table.  */
311struct xcoff_link_hash_entry
312{
313  struct bfd_link_hash_entry root;
314
315  /* Symbol index in output file.  Set to -1 initially.  Set to -2 if
316     there is a reloc against this symbol.  */
317  long indx;
318
319  /* If we have created a TOC entry for this symbol, this is the .tc
320     section which holds it.  */
321  asection *toc_section;
322
323  union
324  {
325    /* If we have created a TOC entry (the XCOFF_SET_TOC flag is
326       set), this is the offset in toc_section.  */
327    bfd_vma toc_offset;
328
329    /* If the TOC entry comes from an input file, this is set to the
330       symbol index of the C_HIDEXT XMC_TC or XMC_TD symbol.  */
331    long toc_indx;
332  }
333  u;
334
335  /* If this symbol is a function entry point which is called, this
336     field holds a pointer to the function descriptor.  If this symbol
337     is a function descriptor, this field holds a pointer to the
338     function entry point.  */
339  struct xcoff_link_hash_entry *descriptor;
340
341  /* The .loader symbol table entry, if there is one.  */
342  struct internal_ldsym *ldsym;
343
344  /* If XCOFF_BUILT_LDSYM is set, this is the .loader symbol table
345     index.  If XCOFF_BUILD_LDSYM is clear, and XCOFF_IMPORT is set,
346     this is the l_ifile value.  */
347  long ldindx;
348
349  /* Some linker flags.  */
350  unsigned long flags;
351
352  /* Symbol visibility, using the same define than n_type.  */
353  unsigned short visibility;
354
355  /* The storage mapping class.  */
356  unsigned char smclas;
357};
358
359/*  Flags for xcoff_link_hash_entry.  */
360
361/* Symbol is referenced by a regular object. */
362#define XCOFF_REF_REGULAR      0x00000001
363/* Symbol is defined by a regular object. */
364#define XCOFF_DEF_REGULAR      0x00000002
365/* Symbol is defined by a dynamic object. */
366#define XCOFF_DEF_DYNAMIC      0x00000004
367/* Symbol is used in a reloc being copied into the .loader section.  */
368#define XCOFF_LDREL            0x00000008
369/* Symbol is the entry point.  */
370#define XCOFF_ENTRY            0x00000010
371/* Symbol is for a function and is the target of a relocation.
372   The relocation may or may not be a branch-type relocation.  */
373#define XCOFF_CALLED           0x00000020
374/* Symbol needs the TOC entry filled in.  */
375#define XCOFF_SET_TOC          0x00000040
376/* Symbol is implicitly or explicitly imported.  */
377#define XCOFF_IMPORT           0x00000080
378/* Symbol is explicitly exported.  */
379#define XCOFF_EXPORT           0x00000100
380/* Symbol has been processed by xcoff_build_ldsyms.  */
381#define XCOFF_BUILT_LDSYM      0x00000200
382/* Symbol is mentioned by a section which was not garbage collected. */
383#define XCOFF_MARK             0x00000400
384/* Symbol size is recorded in size_list list from hash table.  */
385#define XCOFF_HAS_SIZE         0x00000800
386/* Symbol is a function descriptor.  */
387#define XCOFF_DESCRIPTOR       0x00001000
388/* Multiple definitions have been for the symbol. */
389#define XCOFF_MULTIPLY_DEFINED 0x00002000
390/* Symbol is the __rtinit symbol.  */
391#define XCOFF_RTINIT           0x00004000
392/* Symbol is an imported 32 bit syscall.  */
393#define XCOFF_SYSCALL32        0x00008000
394/* Symbol is an imported 64 bit syscall.  */
395#define XCOFF_SYSCALL64        0x00010000
396/* Symbol was not explicitly defined by the time it was marked.  */
397#define XCOFF_WAS_UNDEFINED    0x00020000
398/* We have assigned an output XCOFF entry to this symbol.  */
399#define XCOFF_ALLOCATED	       0x00040000
400
401/* The XCOFF linker hash table.  */
402
403#define XCOFF_NUMBER_OF_SPECIAL_SECTIONS 6
404#define XCOFF_SPECIAL_SECTION_TEXT       0
405#define XCOFF_SPECIAL_SECTION_ETEXT      1
406#define XCOFF_SPECIAL_SECTION_DATA       2
407#define XCOFF_SPECIAL_SECTION_EDATA      3
408#define XCOFF_SPECIAL_SECTION_END        4
409#define XCOFF_SPECIAL_SECTION_END2       5
410
411/* These flags indicate which of -bexpall and -bexpfull are in effect.  */
412#define XCOFF_EXPALL 1
413#define XCOFF_EXPFULL 2
414
415/* This structure is used to pass information through
416   xcoff_link_hash_traverse.  */
417
418struct xcoff_loader_info
419{
420  /* Set if a problem occurred.  */
421  bool failed;
422
423  /* Output BFD.  */
424  bfd *output_bfd;
425
426  /* Link information structure.  */
427  struct bfd_link_info *info;
428
429  /* A mask of XCOFF_EXPALL and XCOFF_EXPFULL flags.  */
430  unsigned int auto_export_flags;
431
432  /* Number of ldsym structures.  */
433  size_t ldsym_count;
434
435  /* A count of non TOC relative relocs which will need to be
436     allocated in the .loader section.  */
437  size_t ldrel_count;
438
439  /* Size of string table.  */
440  size_t string_size;
441
442  /* String table.  */
443  char *strings;
444
445  /* Allocated size of string table.  */
446  size_t string_alc;
447
448  /* The libpath being used.  */
449  const char *libpath;
450};
451
452/* In case we're on a 32-bit machine, construct a 64-bit "-1" value
453   from smaller values.  Start with zero, widen, *then* decrement.  */
454#define MINUS_ONE       (((bfd_vma) 0) - 1)
455
456/* __rtinit, from /usr/include/rtinit.h.  */
457struct __rtinit
458{
459  /* Pointer to runtime linker.
460     XXX: Is the parameter really void?  */
461  int	(*rtl) (void);
462
463  /* Offset to array of init functions, 0 if none. */
464  int	init_offset;
465
466  /* Offset to array of fini functions, 0 if none. */
467  int	fini_offset;
468
469  /* Size of __RTINIT_DESCRIPTOR. This value should be used instead of
470     sizeof(__RTINIT_DESCRIPTOR). */
471  int	__rtinit_descriptor_size;
472};
473
474#define RTINIT_DESCRIPTOR_SIZE (12)
475
476struct __rtinit_descriptor
477{
478  /* Init/fini function. */
479  int	f;
480
481  /* Offset, relative to the start of the __rtinit symbol, to name of the
482     function. */
483
484  int	name_offset;
485
486  /* Flags */
487  unsigned char	flags;
488};
489
490/* Archive */
491
492#define XCOFFARMAG    "<aiaff>\012"
493#define XCOFFARMAGBIG "<bigaf>\012"
494#define SXCOFFARMAG   8
495
496/* The size of the ascii archive elements */
497#define XCOFFARMAG_ELEMENT_SIZE 12
498#define XCOFFARMAGBIG_ELEMENT_SIZE 20
499
500/* This terminates an XCOFF archive member name.  */
501
502#define XCOFFARFMAG "`\012"
503#define SXCOFFARFMAG 2
504
505/* XCOFF archives start with this (printable) structure.  */
506
507struct xcoff_ar_file_hdr
508{
509  /* Magic string.  */
510  char magic[SXCOFFARMAG];
511
512  /* Offset of the member table (decimal ASCII string).  */
513  char memoff[XCOFFARMAG_ELEMENT_SIZE];
514
515  /* Offset of the global symbol table (decimal ASCII string).  */
516  char symoff[XCOFFARMAG_ELEMENT_SIZE];
517
518  /* Offset of the first member in the archive (decimal ASCII string).  */
519  char firstmemoff[XCOFFARMAG_ELEMENT_SIZE];
520
521  /* Offset of the last member in the archive (decimal ASCII string).  */
522  char lastmemoff[XCOFFARMAG_ELEMENT_SIZE];
523
524  /* Offset of the first member on the free list (decimal ASCII
525     string).  */
526  char freeoff[XCOFFARMAG_ELEMENT_SIZE];
527};
528
529#define SIZEOF_AR_FILE_HDR (SXCOFFARMAG + 5 * XCOFFARMAG_ELEMENT_SIZE)
530
531/* This is the equivalent data structure for the big archive format.  */
532
533struct xcoff_ar_file_hdr_big
534{
535  /* Magic string.  */
536  char magic[SXCOFFARMAG];
537
538  /* Offset of the member table (decimal ASCII string).  */
539  char memoff[XCOFFARMAGBIG_ELEMENT_SIZE];
540
541  /* Offset of the global symbol table for 32-bit objects (decimal ASCII
542     string).  */
543  char symoff[XCOFFARMAGBIG_ELEMENT_SIZE];
544
545  /* Offset of the global symbol table for 64-bit objects (decimal ASCII
546     string).  */
547  char symoff64[XCOFFARMAGBIG_ELEMENT_SIZE];
548
549  /* Offset of the first member in the archive (decimal ASCII string).  */
550  char firstmemoff[XCOFFARMAGBIG_ELEMENT_SIZE];
551
552  /* Offset of the last member in the archive (decimal ASCII string).  */
553  char lastmemoff[XCOFFARMAGBIG_ELEMENT_SIZE];
554
555  /* Offset of the first member on the free list (decimal ASCII
556     string).  */
557  char freeoff[XCOFFARMAGBIG_ELEMENT_SIZE];
558};
559
560#define SIZEOF_AR_FILE_HDR_BIG (SXCOFFARMAG + 6 * XCOFFARMAGBIG_ELEMENT_SIZE)
561
562/* Each XCOFF archive member starts with this (printable) structure.  */
563
564struct xcoff_ar_hdr
565{
566  /* File size not including the header (decimal ASCII string).  */
567  char size[XCOFFARMAG_ELEMENT_SIZE];
568
569  /* File offset of next archive member (decimal ASCII string).  */
570  char nextoff[XCOFFARMAG_ELEMENT_SIZE];
571
572  /* File offset of previous archive member (decimal ASCII string).  */
573  char prevoff[XCOFFARMAG_ELEMENT_SIZE];
574
575  /* File mtime (decimal ASCII string).  */
576  char date[12];
577
578  /* File UID (decimal ASCII string).  */
579  char uid[12];
580
581  /* File GID (decimal ASCII string).  */
582  char gid[12];
583
584  /* File mode (octal ASCII string).  */
585  char mode[12];
586
587  /* Length of file name (decimal ASCII string).  */
588  char namlen[4];
589
590  /* This structure is followed by the file name.  The length of the
591     name is given in the namlen field.  If the length of the name is
592     odd, the name is followed by a null byte.  The name and optional
593     null byte are followed by XCOFFARFMAG, which is not included in
594     namlen.  The contents of the archive member follow; the number of
595     bytes is given in the size field.  */
596};
597
598#define SIZEOF_AR_HDR (3 * XCOFFARMAG_ELEMENT_SIZE + 4 * 12 + 4)
599
600/* The equivalent for the big archive format.  */
601
602struct xcoff_ar_hdr_big
603{
604  /* File size not including the header (decimal ASCII string).  */
605  char size[XCOFFARMAGBIG_ELEMENT_SIZE];
606
607  /* File offset of next archive member (decimal ASCII string).  */
608  char nextoff[XCOFFARMAGBIG_ELEMENT_SIZE];
609
610  /* File offset of previous archive member (decimal ASCII string).  */
611  char prevoff[XCOFFARMAGBIG_ELEMENT_SIZE];
612
613  /* File mtime (decimal ASCII string).  */
614  char date[12];
615
616  /* File UID (decimal ASCII string).  */
617  char uid[12];
618
619  /* File GID (decimal ASCII string).  */
620  char gid[12];
621
622  /* File mode (octal ASCII string).  */
623  char mode[12];
624
625  /* Length of file name (decimal ASCII string).  */
626  char namlen[4];
627
628  /* This structure is followed by the file name.  The length of the
629     name is given in the namlen field.  If the length of the name is
630     odd, the name is followed by a null byte.  The name and optional
631     null byte are followed by XCOFFARFMAG, which is not included in
632     namlen.  The contents of the archive member follow; the number of
633     bytes is given in the size field.  */
634};
635
636#define SIZEOF_AR_HDR_BIG (3 * XCOFFARMAGBIG_ELEMENT_SIZE + 4 * 12 + 4)
637
638/* We often have to distinguish between the old and big file format.
639   Make it a bit cleaner.  We can use `xcoff_ardata' here because the
640   `hdr' member has the same size and position in both formats.
641   <bigaf> is the default format, return TRUE even when xcoff_ardata is
642   NULL. */
643#ifndef SMALL_ARCHIVE
644/* Creates big archives by default */
645#define xcoff_big_format_p(abfd) \
646  ((NULL != bfd_ardata (abfd) && NULL == xcoff_ardata (abfd)) || \
647   ((NULL != bfd_ardata (abfd)) && \
648    (NULL != xcoff_ardata (abfd)) && \
649    (xcoff_ardata (abfd)->magic[1] == 'b')))
650#else
651/* Creates small archives by default. */
652#define xcoff_big_format_p(abfd) \
653  (((NULL != bfd_ardata (abfd)) && \
654    (NULL != xcoff_ardata (abfd)) && \
655    (xcoff_ardata (abfd)->magic[1] == 'b')))
656#endif
657
658/* We store a copy of the xcoff_ar_file_hdr in the tdata field of the
659   artdata structure.  Similar for the big archive.  */
660#define xcoff_ardata(abfd) \
661  ((struct xcoff_ar_file_hdr *) bfd_ardata (abfd)->tdata)
662#define xcoff_ardata_big(abfd) \
663  ((struct xcoff_ar_file_hdr_big *) bfd_ardata (abfd)->tdata)
664
665/* We store a copy of the xcoff_ar_hdr in the arelt_data field of an
666   archive element.  Similar for the big archive.  */
667#define arch_eltdata(bfd) ((struct areltdata *) ((bfd)->arelt_data))
668#define arch_xhdr(bfd) \
669  ((struct xcoff_ar_hdr *) arch_eltdata (bfd)->arch_header)
670#define arch_xhdr_big(bfd) \
671  ((struct xcoff_ar_hdr_big *) arch_eltdata (bfd)->arch_header)
672
673/* True if symbols of class CLASS are external.  */
674#define EXTERN_SYM_P(CLASS) \
675  ((CLASS) == C_EXT || (CLASS) == C_AIX_WEAKEXT)
676
677#endif /* _INTERNAL_XCOFF_H */
678