[deliverable/binutils-gdb.git] / include / coff / mips.h

/* ECOFF support on MIPS machines.
   coff/ecoff.h must be included before this file.
   
   Copyright 2001 Free Software Foundation, Inc.

   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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

#define DO_NOT_DEFINE_AOUTHDR
#define L_LNNO_SIZE 4
#include "coff/external.h"

/* Magic numbers are defined in coff/ecoff.h.  */
#define MIPS_ECOFF_BADMAG(x) (((x).f_magic!=MIPS_MAGIC_1) && \
			      ((x).f_magic!=MIPS_MAGIC_LITTLE) &&\
			      ((x).f_magic!=MIPS_MAGIC_BIG) && \
			      ((x).f_magic!=MIPS_MAGIC_LITTLE2) && \
			      ((x).f_magic!=MIPS_MAGIC_BIG2) && \
			      ((x).f_magic!=MIPS_MAGIC_LITTLE3) && \
			      ((x).f_magic!=MIPS_MAGIC_BIG3))


/********************** AOUT "OPTIONAL HEADER" **********************/

typedef struct external_aouthdr
{
  unsigned char magic[2];	/* type of file				*/
  unsigned char	vstamp[2];	/* version stamp			*/
  unsigned char	tsize[4];	/* text size in bytes, padded to FW bdry*/
  unsigned char	dsize[4];	/* initialized data "  "		*/
  unsigned char	bsize[4];	/* uninitialized data "   "		*/
  unsigned char	entry[4];	/* entry pt.				*/
  unsigned char text_start[4];	/* base of text used for this file */
  unsigned char data_start[4];	/* base of data used for this file */
  unsigned char bss_start[4];	/* base of bss used for this file */
  unsigned char gprmask[4];	/* ?? */
  unsigned char cprmask[4][4];	/* ?? */
  unsigned char gp_value[4];	/* value for gp register */
} AOUTHDR;

/* compute size of a header */

#define AOUTSZ 56
#define AOUTHDRSZ 56

/********************** RELOCATION DIRECTIVES **********************/

struct external_reloc
  {
    unsigned char r_vaddr[4];
    unsigned char r_bits[4];
  };

#define RELOC struct external_reloc
#define RELSZ 8

/* MIPS ECOFF uses a packed 8 byte format for relocs.  These constants
   are used to unpack the r_bits field.  */

#define RELOC_BITS0_SYMNDX_SH_LEFT_BIG		16
#define RELOC_BITS0_SYMNDX_SH_LEFT_LITTLE	0

#define RELOC_BITS1_SYMNDX_SH_LEFT_BIG		8
#define RELOC_BITS1_SYMNDX_SH_LEFT_LITTLE	8

#define RELOC_BITS2_SYMNDX_SH_LEFT_BIG		0
#define RELOC_BITS2_SYMNDX_SH_LEFT_LITTLE	16

/* Originally, ECOFF used four bits for the reloc type and had three
   reserved bits.  Irix 4 added another bit for the reloc type, which
   was easy because it was big endian and one of the spare bits became
   the new most significant bit.  To make this also work for little
   endian ECOFF, we need to wrap one of the reserved bits around to
   become the most significant bit of the reloc type.  */
#define RELOC_BITS3_TYPE_BIG			0x3E
#define RELOC_BITS3_TYPE_SH_BIG			1
#define RELOC_BITS3_TYPE_LITTLE			0x78
#define RELOC_BITS3_TYPE_SH_LITTLE		3
#define RELOC_BITS3_TYPEHI_LITTLE		0x04
#define RELOC_BITS3_TYPEHI_SH_LITTLE		2

#define RELOC_BITS3_EXTERN_BIG			0x01
#define RELOC_BITS3_EXTERN_LITTLE		0x80

/* The r_type field in a reloc is one of the following values.  I
   don't know if any other values can appear.  These seem to be all
   that occur in the Ultrix 4.2 libraries.  */
#define MIPS_R_IGNORE	0
#define MIPS_R_REFHALF	1
#define MIPS_R_REFWORD	2
#define MIPS_R_JMPADDR	3
#define MIPS_R_REFHI	4
#define MIPS_R_REFLO	5
#define MIPS_R_GPREL	6
#define MIPS_R_LITERAL	7

/* These reloc types are a Cygnus extension used when generating
   position independent code for embedded systems.  The numbers are
   taken from Irix 4, but at least for internal relocs Irix 5 does not
   give them the same meaning.  For an internal reloc the symbol index
   of RELHI and RELLO is modified as described below for
   MIPS_R_SWITCH.  */
#define MIPS_R_PCREL16	12
#define MIPS_R_RELHI	13
#define MIPS_R_RELLO	14

/* This reloc type is a Cygnus extension used when generating position
   independent code for embedded systems.  It is used for an entry in
   a switch table, which looks like this:
     .word $L3-$LS12
   The object file will contain the correct difference, and does not
   require adjustment.  However, when the linker is relaxing PC
   relative calls, it is possible for $L3 to move farther away.  This
   reloc always appears in the .text section, and is always against
   the .text section.  However, the symbol index is not
   RELOC_SECTION_TEXT.  It is, instead, the distance between this
   switch table entry and $LS12.  Thus, the original value of $L12 is
     vaddr - symndx
   and the original value of $L3 is
     vaddr - symndx + addend
   where addend is the value in the object file.  Knowing this, the
   linker can know whether the addend in the object file must be
   adjusted.  */
#define MIPS_R_SWITCH	22

/********************** STABS **********************/

#define MIPS_IS_STAB ECOFF_IS_STAB
#define MIPS_MARK_STAB ECOFF_MARK_STAB
#define MIPS_UNMARK_STAB ECOFF_UNMARK_STAB

/********************** SYMBOLIC INFORMATION **********************/

/* Written by John Gilmore.  */

/* ECOFF uses COFF-like section structures, but its own symbol format.
   This file defines the symbol format in fields whose size and alignment
   will not vary on different host systems.  */

/* File header as a set of bytes */

struct hdr_ext
{
	unsigned char 	h_magic[2];
	unsigned char	h_vstamp[2];
	unsigned char	h_ilineMax[4];
	unsigned char	h_cbLine[4];
	unsigned char	h_cbLineOffset[4];
	unsigned char	h_idnMax[4];
	unsigned char	h_cbDnOffset[4];
	unsigned char	h_ipdMax[4];
	unsigned char	h_cbPdOffset[4];
	unsigned char	h_isymMax[4];
	unsigned char	h_cbSymOffset[4];
	unsigned char	h_ioptMax[4];
	unsigned char	h_cbOptOffset[4];
	unsigned char	h_iauxMax[4];
	unsigned char	h_cbAuxOffset[4];
	unsigned char	h_issMax[4];
	unsigned char	h_cbSsOffset[4];
	unsigned char	h_issExtMax[4];
	unsigned char	h_cbSsExtOffset[4];
	unsigned char	h_ifdMax[4];
	unsigned char	h_cbFdOffset[4];
	unsigned char	h_crfd[4];
	unsigned char	h_cbRfdOffset[4];
	unsigned char	h_iextMax[4];
	unsigned char	h_cbExtOffset[4];
};

/* File descriptor external record */

struct fdr_ext
{
	unsigned char	f_adr[4];
	unsigned char	f_rss[4];
	unsigned char	f_issBase[4];
	unsigned char	f_cbSs[4];
	unsigned char	f_isymBase[4];
	unsigned char	f_csym[4];
	unsigned char	f_ilineBase[4];
	unsigned char	f_cline[4];
	unsigned char	f_ioptBase[4];
	unsigned char	f_copt[4];
	unsigned char	f_ipdFirst[2];
	unsigned char	f_cpd[2];
	unsigned char	f_iauxBase[4];
	unsigned char	f_caux[4];
	unsigned char	f_rfdBase[4];
	unsigned char	f_crfd[4];
	unsigned char	f_bits1[1];
	unsigned char	f_bits2[3];
	unsigned char	f_cbLineOffset[4];
	unsigned char	f_cbLine[4];
};

#define	FDR_BITS1_LANG_BIG		0xF8
#define	FDR_BITS1_LANG_SH_BIG		3
#define	FDR_BITS1_LANG_LITTLE		0x1F
#define	FDR_BITS1_LANG_SH_LITTLE	0

#define	FDR_BITS1_FMERGE_BIG		0x04
#define	FDR_BITS1_FMERGE_LITTLE		0x20

#define	FDR_BITS1_FREADIN_BIG		0x02
#define	FDR_BITS1_FREADIN_LITTLE	0x40

#define	FDR_BITS1_FBIGENDIAN_BIG	0x01
#define	FDR_BITS1_FBIGENDIAN_LITTLE	0x80

#define	FDR_BITS2_GLEVEL_BIG		0xC0
#define	FDR_BITS2_GLEVEL_SH_BIG		6
#define	FDR_BITS2_GLEVEL_LITTLE		0x03
#define	FDR_BITS2_GLEVEL_SH_LITTLE	0

/* We ignore the `reserved' field in bits2. */

/* Procedure descriptor external record */

struct pdr_ext
{
	unsigned char	p_adr[4];
	unsigned char	p_isym[4];
	unsigned char	p_iline[4];
	unsigned char	p_regmask[4];
	unsigned char	p_regoffset[4];
	unsigned char	p_iopt[4];
	unsigned char	p_fregmask[4];
	unsigned char	p_fregoffset[4];
	unsigned char	p_frameoffset[4];
	unsigned char	p_framereg[2];
	unsigned char	p_pcreg[2];
	unsigned char	p_lnLow[4];
	unsigned char	p_lnHigh[4];
	unsigned char	p_cbLineOffset[4];
};

/* Runtime procedure table */

struct rpdr_ext
{
	unsigned char	p_adr[4];
	unsigned char	p_regmask[4];
	unsigned char	p_regoffset[4];
	unsigned char	p_fregmask[4];
	unsigned char	p_fregoffset[4];
	unsigned char	p_frameoffset[4];
	unsigned char	p_framereg[2];
	unsigned char	p_pcreg[2];
	unsigned char	p_irpss[4];
	unsigned char	p_reserved[4];
	unsigned char	p_exception_info[4];
};

/* Line numbers */

struct line_ext
{
	unsigned char	l_line[4];
};

/* Symbol external record */

struct sym_ext
{
	unsigned char	s_iss[4];
	unsigned char	s_value[4];
	unsigned char	s_bits1[1];
	unsigned char	s_bits2[1];
	unsigned char	s_bits3[1];
	unsigned char	s_bits4[1];
};

#define	SYM_BITS1_ST_BIG		0xFC
#define	SYM_BITS1_ST_SH_BIG		2
#define	SYM_BITS1_ST_LITTLE		0x3F
#define	SYM_BITS1_ST_SH_LITTLE		0

#define	SYM_BITS1_SC_BIG		0x03
#define	SYM_BITS1_SC_SH_LEFT_BIG	3
#define	SYM_BITS1_SC_LITTLE		0xC0
#define	SYM_BITS1_SC_SH_LITTLE		6

#define	SYM_BITS2_SC_BIG		0xE0
#define	SYM_BITS2_SC_SH_BIG		5
#define	SYM_BITS2_SC_LITTLE		0x07
#define	SYM_BITS2_SC_SH_LEFT_LITTLE	2

#define	SYM_BITS2_RESERVED_BIG		0x10
#define	SYM_BITS2_RESERVED_LITTLE	0x08

#define	SYM_BITS2_INDEX_BIG		0x0F
#define	SYM_BITS2_INDEX_SH_LEFT_BIG	16
#define	SYM_BITS2_INDEX_LITTLE		0xF0
#define	SYM_BITS2_INDEX_SH_LITTLE	4

#define	SYM_BITS3_INDEX_SH_LEFT_BIG	8
#define	SYM_BITS3_INDEX_SH_LEFT_LITTLE	4

#define	SYM_BITS4_INDEX_SH_LEFT_BIG	0
#define	SYM_BITS4_INDEX_SH_LEFT_LITTLE	12

/* External symbol external record */

struct ext_ext
{
	unsigned char	es_bits1[1];
	unsigned char	es_bits2[1];
	unsigned char	es_ifd[2];
	struct	sym_ext es_asym;
};

#define	EXT_BITS1_JMPTBL_BIG		0x80
#define	EXT_BITS1_JMPTBL_LITTLE		0x01

#define	EXT_BITS1_COBOL_MAIN_BIG	0x40
#define	EXT_BITS1_COBOL_MAIN_LITTLE	0x02

#define	EXT_BITS1_WEAKEXT_BIG		0x20
#define	EXT_BITS1_WEAKEXT_LITTLE	0x04

/* Dense numbers external record */

struct dnr_ext
{
	unsigned char	d_rfd[4];
	unsigned char	d_index[4];
};

/* Relative file descriptor */

struct rfd_ext
{
  unsigned char	rfd[4];
};

/* Optimizer symbol external record */

struct opt_ext
{
  unsigned char o_bits1[1];
  unsigned char o_bits2[1];
  unsigned char o_bits3[1];
  unsigned char o_bits4[1];
  struct rndx_ext o_rndx;
  unsigned char o_offset[4];
};

#define OPT_BITS2_VALUE_SH_LEFT_BIG	16
#define OPT_BITS2_VALUE_SH_LEFT_LITTLE	0

#define OPT_BITS3_VALUE_SH_LEFT_BIG	8
#define OPT_BITS3_VALUE_SH_LEFT_LITTLE	8

#define OPT_BITS4_VALUE_SH_LEFT_BIG	0
#define OPT_BITS4_VALUE_SH_LEFT_LITTLE	16
Commit	Line	Data
252b5132	1	/* ECOFF support on MIPS machines.
4f1d9bd8 NC	2	coff/ecoff.h must be included before this file.
	3
	4	Copyright 2001 Free Software Foundation, Inc.
	5
	6	This program is free software; you can redistribute it and/or modify
	7	it under the terms of the GNU General Public License as published by
	8	the Free Software Foundation; either version 2 of the License, or
	9	(at your option) any later version.
	10
	11	This program is distributed in the hope that it will be useful,
	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	GNU General Public License for more details.
	15
	16	You should have received a copy of the GNU General Public License
	17	along with this program; if not, write to the Free Software
	18	Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
	19
	20	#define DO_NOT_DEFINE_AOUTHDR
	21	#define L_LNNO_SIZE 4
	22	#include "coff/external.h"
252b5132 RH	23
	24	/* Magic numbers are defined in coff/ecoff.h. */
	25	#define MIPS_ECOFF_BADMAG(x) (((x).f_magic!=MIPS_MAGIC_1) && \
	26	((x).f_magic!=MIPS_MAGIC_LITTLE) &&\
	27	((x).f_magic!=MIPS_MAGIC_BIG) && \
	28	((x).f_magic!=MIPS_MAGIC_LITTLE2) && \
	29	((x).f_magic!=MIPS_MAGIC_BIG2) && \
	30	((x).f_magic!=MIPS_MAGIC_LITTLE3) && \
	31	((x).f_magic!=MIPS_MAGIC_BIG3))
	32
252b5132 RH	33
	34	/******************** AOUT "OPTIONAL HEADER" ********************/
	35
252b5132 RH	36	typedef struct external_aouthdr
	37	{
	38	unsigned char magic[2]; /* type of file */
	39	unsigned char vstamp[2]; /* version stamp */
	40	unsigned char tsize[4]; /* text size in bytes, padded to FW bdry*/
	41	unsigned char dsize[4]; /* initialized data " " */
	42	unsigned char bsize[4]; /* uninitialized data " " */
	43	unsigned char entry[4]; /* entry pt. */
	44	unsigned char text_start[4]; /* base of text used for this file */
	45	unsigned char data_start[4]; /* base of data used for this file */
	46	unsigned char bss_start[4]; /* base of bss used for this file */
	47	unsigned char gprmask[4]; /* ?? */
	48	unsigned char cprmask[4][4]; /* ?? */
	49	unsigned char gp_value[4]; /* value for gp register */
	50	} AOUTHDR;
	51
	52	/* compute size of a header */
	53
	54	#define AOUTSZ 56
	55	#define AOUTHDRSZ 56
	56
252b5132 RH	57	/******************** RELOCATION DIRECTIVES ********************/
252b5132 RH	58
4f1d9bd8 NC	59	struct external_reloc
	60	{
	61	unsigned char r_vaddr[4];
	62	unsigned char r_bits[4];
	63	};
252b5132 RH	64
	65	#define RELOC struct external_reloc
	66	#define RELSZ 8
	67
	68	/* MIPS ECOFF uses a packed 8 byte format for relocs. These constants
	69	are used to unpack the r_bits field. */
	70
	71	#define RELOC_BITS0_SYMNDX_SH_LEFT_BIG 16
	72	#define RELOC_BITS0_SYMNDX_SH_LEFT_LITTLE 0
	73
	74	#define RELOC_BITS1_SYMNDX_SH_LEFT_BIG 8
	75	#define RELOC_BITS1_SYMNDX_SH_LEFT_LITTLE 8
	76
	77	#define RELOC_BITS2_SYMNDX_SH_LEFT_BIG 0
	78	#define RELOC_BITS2_SYMNDX_SH_LEFT_LITTLE 16
	79
	80	/* Originally, ECOFF used four bits for the reloc type and had three
	81	reserved bits. Irix 4 added another bit for the reloc type, which
	82	was easy because it was big endian and one of the spare bits became
	83	the new most significant bit. To make this also work for little
	84	endian ECOFF, we need to wrap one of the reserved bits around to
	85	become the most significant bit of the reloc type. */
	86	#define RELOC_BITS3_TYPE_BIG 0x3E
	87	#define RELOC_BITS3_TYPE_SH_BIG 1
	88	#define RELOC_BITS3_TYPE_LITTLE 0x78
	89	#define RELOC_BITS3_TYPE_SH_LITTLE 3
	90	#define RELOC_BITS3_TYPEHI_LITTLE 0x04
	91	#define RELOC_BITS3_TYPEHI_SH_LITTLE 2
	92
	93	#define RELOC_BITS3_EXTERN_BIG 0x01
	94	#define RELOC_BITS3_EXTERN_LITTLE 0x80
	95
	96	/* The r_type field in a reloc is one of the following values. I
	97	don't know if any other values can appear. These seem to be all
	98	that occur in the Ultrix 4.2 libraries. */
	99	#define MIPS_R_IGNORE 0
	100	#define MIPS_R_REFHALF 1
	101	#define MIPS_R_REFWORD 2
	102	#define MIPS_R_JMPADDR 3
	103	#define MIPS_R_REFHI 4
	104	#define MIPS_R_REFLO 5
	105	#define MIPS_R_GPREL 6
	106	#define MIPS_R_LITERAL 7
	107
	108	/* These reloc types are a Cygnus extension used when generating
	109	position independent code for embedded systems. The numbers are
	110	taken from Irix 4, but at least for internal relocs Irix 5 does not
	111	give them the same meaning. For an internal reloc the symbol index
	112	of RELHI and RELLO is modified as described below for
	113	MIPS_R_SWITCH. */
	114	#define MIPS_R_PCREL16 12
	115	#define MIPS_R_RELHI 13
	116	#define MIPS_R_RELLO 14
	117
	118	/* This reloc type is a Cygnus extension used when generating position
	119	independent code for embedded systems. It is used for an entry in
	120	a switch table, which looks like this:
	121	.word $L3-$LS12
	122	The object file will contain the correct difference, and does not
	123	require adjustment. However, when the linker is relaxing PC
	124	relative calls, it is possible for $L3 to move farther away. This
	125	reloc always appears in the .text section, and is always against
	126	the .text section. However, the symbol index is not
	127	RELOC_SECTION_TEXT. It is, instead, the distance between this
128	switch table entry and $LS12. Thus, the original value of $L12 is
129	vaddr - symndx
130	and the original value of $L3 is
131	vaddr - symndx + addend
132	where addend is the value in the object file. Knowing this, the
133	linker can know whether the addend in the object file must be
134	adjusted. */
135	#define MIPS_R_SWITCH 22
136
137	/******************** STABS ********************/
138
139	#define MIPS_IS_STAB ECOFF_IS_STAB
140	#define MIPS_MARK_STAB ECOFF_MARK_STAB
141	#define MIPS_UNMARK_STAB ECOFF_UNMARK_STAB
142
143	/******************** SYMBOLIC INFORMATION ********************/
144
145	/* Written by John Gilmore. */
146
147	/* ECOFF uses COFF-like section structures, but its own symbol format.
148	This file defines the symbol format in fields whose size and alignment
149	will not vary on different host systems. */
150
151	/* File header as a set of bytes */
152
4f1d9bd8 NC	153	struct hdr_ext
4f1d9bd8 NC	154	{
252b5132 RH	155	unsigned char h_magic[2];
	156	unsigned char h_vstamp[2];
	157	unsigned char h_ilineMax[4];
	158	unsigned char h_cbLine[4];
	159	unsigned char h_cbLineOffset[4];
	160	unsigned char h_idnMax[4];
	161	unsigned char h_cbDnOffset[4];
	162	unsigned char h_ipdMax[4];
	163	unsigned char h_cbPdOffset[4];
	164	unsigned char h_isymMax[4];
	165	unsigned char h_cbSymOffset[4];
	166	unsigned char h_ioptMax[4];
	167	unsigned char h_cbOptOffset[4];
	168	unsigned char h_iauxMax[4];
	169	unsigned char h_cbAuxOffset[4];
	170	unsigned char h_issMax[4];
	171	unsigned char h_cbSsOffset[4];
	172	unsigned char h_issExtMax[4];
	173	unsigned char h_cbSsExtOffset[4];
	174	unsigned char h_ifdMax[4];
	175	unsigned char h_cbFdOffset[4];
	176	unsigned char h_crfd[4];
	177	unsigned char h_cbRfdOffset[4];
	178	unsigned char h_iextMax[4];
	179	unsigned char h_cbExtOffset[4];
	180	};
	181
	182	/* File descriptor external record */
	183
4f1d9bd8 NC	184	struct fdr_ext
4f1d9bd8 NC	185	{
252b5132 RH	186	unsigned char f_adr[4];
	187	unsigned char f_rss[4];
	188	unsigned char f_issBase[4];
	189	unsigned char f_cbSs[4];
	190	unsigned char f_isymBase[4];
	191	unsigned char f_csym[4];
	192	unsigned char f_ilineBase[4];
	193	unsigned char f_cline[4];
	194	unsigned char f_ioptBase[4];
	195	unsigned char f_copt[4];
	196	unsigned char f_ipdFirst[2];
	197	unsigned char f_cpd[2];
	198	unsigned char f_iauxBase[4];
	199	unsigned char f_caux[4];
	200	unsigned char f_rfdBase[4];
	201	unsigned char f_crfd[4];
	202	unsigned char f_bits1[1];
	203	unsigned char f_bits2[3];
	204	unsigned char f_cbLineOffset[4];
	205	unsigned char f_cbLine[4];
	206	};
	207
	208	#define FDR_BITS1_LANG_BIG 0xF8
	209	#define FDR_BITS1_LANG_SH_BIG 3
	210	#define FDR_BITS1_LANG_LITTLE 0x1F
	211	#define FDR_BITS1_LANG_SH_LITTLE 0
	212
	213	#define FDR_BITS1_FMERGE_BIG 0x04
	214	#define FDR_BITS1_FMERGE_LITTLE 0x20
	215
	216	#define FDR_BITS1_FREADIN_BIG 0x02
	217	#define FDR_BITS1_FREADIN_LITTLE 0x40
	218
	219	#define FDR_BITS1_FBIGENDIAN_BIG 0x01
	220	#define FDR_BITS1_FBIGENDIAN_LITTLE 0x80
	221
	222	#define FDR_BITS2_GLEVEL_BIG 0xC0
	223	#define FDR_BITS2_GLEVEL_SH_BIG 6
	224	#define FDR_BITS2_GLEVEL_LITTLE 0x03
	225	#define FDR_BITS2_GLEVEL_SH_LITTLE 0
	226
	227	/* We ignore the `reserved' field in bits2. */
	228
	229	/* Procedure descriptor external record */
	230
4f1d9bd8 NC	231	struct pdr_ext
4f1d9bd8 NC	232	{
252b5132 RH	233	unsigned char p_adr[4];
	234	unsigned char p_isym[4];
	235	unsigned char p_iline[4];
	236	unsigned char p_regmask[4];
	237	unsigned char p_regoffset[4];
	238	unsigned char p_iopt[4];
	239	unsigned char p_fregmask[4];
	240	unsigned char p_fregoffset[4];
	241	unsigned char p_frameoffset[4];
	242	unsigned char p_framereg[2];
	243	unsigned char p_pcreg[2];
	244	unsigned char p_lnLow[4];
	245	unsigned char p_lnHigh[4];
	246	unsigned char p_cbLineOffset[4];
	247	};
	248
	249	/* Runtime procedure table */
	250
4f1d9bd8 NC	251	struct rpdr_ext
4f1d9bd8 NC	252	{
252b5132 RH	253	unsigned char p_adr[4];
	254	unsigned char p_regmask[4];
	255	unsigned char p_regoffset[4];
	256	unsigned char p_fregmask[4];
	257	unsigned char p_fregoffset[4];
	258	unsigned char p_frameoffset[4];
	259	unsigned char p_framereg[2];
	260	unsigned char p_pcreg[2];
	261	unsigned char p_irpss[4];
	262	unsigned char p_reserved[4];
	263	unsigned char p_exception_info[4];
	264	};
	265
	266	/* Line numbers */
	267
4f1d9bd8 NC	268	struct line_ext
4f1d9bd8 NC	269	{
252b5132 RH	270	unsigned char l_line[4];
	271	};
	272
	273	/* Symbol external record */
	274
4f1d9bd8 NC	275	struct sym_ext
4f1d9bd8 NC	276	{
252b5132 RH	277	unsigned char s_iss[4];
	278	unsigned char s_value[4];
	279	unsigned char s_bits1[1];
	280	unsigned char s_bits2[1];
	281	unsigned char s_bits3[1];
	282	unsigned char s_bits4[1];
	283	};
	284
	285	#define SYM_BITS1_ST_BIG 0xFC
	286	#define SYM_BITS1_ST_SH_BIG 2
	287	#define SYM_BITS1_ST_LITTLE 0x3F
	288	#define SYM_BITS1_ST_SH_LITTLE 0
	289
	290	#define SYM_BITS1_SC_BIG 0x03
	291	#define SYM_BITS1_SC_SH_LEFT_BIG 3
	292	#define SYM_BITS1_SC_LITTLE 0xC0
	293	#define SYM_BITS1_SC_SH_LITTLE 6
	294
	295	#define SYM_BITS2_SC_BIG 0xE0
	296	#define SYM_BITS2_SC_SH_BIG 5
	297	#define SYM_BITS2_SC_LITTLE 0x07
	298	#define SYM_BITS2_SC_SH_LEFT_LITTLE 2
	299
	300	#define SYM_BITS2_RESERVED_BIG 0x10
	301	#define SYM_BITS2_RESERVED_LITTLE 0x08
	302
	303	#define SYM_BITS2_INDEX_BIG 0x0F
	304	#define SYM_BITS2_INDEX_SH_LEFT_BIG 16
	305	#define SYM_BITS2_INDEX_LITTLE 0xF0
	306	#define SYM_BITS2_INDEX_SH_LITTLE 4
	307
	308	#define SYM_BITS3_INDEX_SH_LEFT_BIG 8
	309	#define SYM_BITS3_INDEX_SH_LEFT_LITTLE 4
	310
	311	#define SYM_BITS4_INDEX_SH_LEFT_BIG 0
	312	#define SYM_BITS4_INDEX_SH_LEFT_LITTLE 12
	313
	314	/* External symbol external record */
	315
4f1d9bd8 NC	316	struct ext_ext
4f1d9bd8 NC	317	{
252b5132 RH	318	unsigned char es_bits1[1];
	319	unsigned char es_bits2[1];
	320	unsigned char es_ifd[2];
	321	struct sym_ext es_asym;
	322	};
	323
	324	#define EXT_BITS1_JMPTBL_BIG 0x80
	325	#define EXT_BITS1_JMPTBL_LITTLE 0x01
	326
	327	#define EXT_BITS1_COBOL_MAIN_BIG 0x40
	328	#define EXT_BITS1_COBOL_MAIN_LITTLE 0x02
	329
	330	#define EXT_BITS1_WEAKEXT_BIG 0x20
	331	#define EXT_BITS1_WEAKEXT_LITTLE 0x04
	332
	333	/* Dense numbers external record */
	334
4f1d9bd8 NC	335	struct dnr_ext
4f1d9bd8 NC	336	{
252b5132 RH	337	unsigned char d_rfd[4];
	338	unsigned char d_index[4];
	339	};
	340
	341	/* Relative file descriptor */
	342
4f1d9bd8 NC	343	struct rfd_ext
4f1d9bd8 NC	344	{
252b5132 RH	345	unsigned char rfd[4];
	346	};
	347
	348	/* Optimizer symbol external record */
	349
4f1d9bd8 NC	350	struct opt_ext
4f1d9bd8 NC	351	{
252b5132 RH	352	unsigned char o_bits1[1];
	353	unsigned char o_bits2[1];
	354	unsigned char o_bits3[1];
	355	unsigned char o_bits4[1];
	356	struct rndx_ext o_rndx;
	357	unsigned char o_offset[4];
	358	};
	359
	360	#define OPT_BITS2_VALUE_SH_LEFT_BIG 16
	361	#define OPT_BITS2_VALUE_SH_LEFT_LITTLE 0
	362
	363	#define OPT_BITS3_VALUE_SH_LEFT_BIG 8
	364	#define OPT_BITS3_VALUE_SH_LEFT_LITTLE 8
	365
	366	#define OPT_BITS4_VALUE_SH_LEFT_BIG 0
	367	#define OPT_BITS4_VALUE_SH_LEFT_LITTLE 16