[deliverable/binutils-gdb.git] / gas / config / tc-hppa.h

/* tc-hppa.h -- Header file for the PA */

/* Copyright (C) 1989, 1993 Free Software Foundation, Inc.

This file is part of GAS, the GNU Assembler.

GAS 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 1, or (at your option)
any later version.

GAS 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 GAS; see the file COPYING.  If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */


/*
   HP PA-RISC support was contributed by the Center for Software Science
   at the University of Utah.
 */

#ifndef _TC_HPPA_H
#define _TC_HPPA_H

#ifndef TC_HPPA
#define TC_HPPA	1
#endif

#ifdef OBJ_ELF
#include "../bfd/elf32-hppa.h"
#endif

#define TARGET_ARCH bfd_arch_hppa
#define TARGET_FORMAT "elf32-hppa"

/* Local labels have an "L$" prefix.  */
#define LOCAL_LABEL(name) ((name)[0] == 'L' && (name)[1] == '$')
#define ASEC_NULL (asection *)0

/* We can do sym1 - sym2 as long as sym2 is $global$ */

#define SEG_DIFF_ALLOWED

typedef enum FPOF
  {
    SGL, DBL, ILLEGAL_FMT, QUAD
  } FP_Operand_Format;

extern char *expr_end;

extern void s_globl (), s_long (), s_short (), s_space (), cons ();
extern void stringer ();
extern unsigned int next_char_of_string ();

extern void pa_big_cons ();
extern void pa_cons ();
extern void pa_data ();
extern void pa_desc ();
extern void pa_float_cons ();
extern void pa_fill ();
extern void pa_lcomm ();
extern void pa_lsym ();
extern void pa_stringer ();
extern void pa_text ();
extern void pa_version ();

int pa_parse_number ();

int pa_parse_fp_cmp_cond ();

FP_Operand_Format pa_parse_fp_format ();

#ifdef __STDC__
int getExpression (char *str);
#else
int getExpression ();
#endif

int getAbsoluteExpression ();

int evaluateAbsolute ();

int pa_build_arg_reloc ();

unsigned int pa_align_arg_reloc ();

void pa_skip ();

int pa_parse_nullif ();

int pa_parse_nonneg_cmpsub_cmpltr ();

int pa_parse_neg_cmpsub_cmpltr ();

int pa_parse_nonneg_add_cmpltr ();

int pa_parse_neg_add_cmpltr ();

int pa_build_arg_reloc ();

void s_seg (), s_proc (), s_data1 ();

void pa_block (), pa_call (), pa_call_args (), pa_callinfo ();
void pa_code (), pa_comm (), pa_copyright (), pa_end ();
void pa_enter ();
void pa_entry (), pa_equ (), pa_exit (), pa_export ();
void pa_export_args (), pa_import (), pa_label (), pa_leave ();
void pa_origin (), pa_proc (), pa_procend (), pa_space ();
void pa_spnum (), pa_subspace (), pa_version ();
void pa_param();

extern const pseudo_typeS md_pseudo_table[];

/*
  PA-89 floating point registers are arranged like this:


  +--------------+--------------+
  |   0 or 16L   |  16 or 16R   |
  +--------------+--------------+
  |   1 or 17L   |  17 or 17R   |
  +--------------+--------------+
  |              |              |

  .              .              .
  .              .              .
  .              .              .

  |              |              |
  +--------------+--------------+
  |  14 or 30L   |  30 or 30R   |
  +--------------+--------------+
  |  15 or 31L   |  31 or 31R   |
  +--------------+--------------+


  The following is a version of pa_parse_number that
  handles the L/R notation and returns the correct
  value to put into the instruction register field.
  The correct value to put into the instruction is
  encoded in the structure 'pa_89_fp_reg_struct'.

 */

struct pa_89_fp_reg_struct
  {
    char number_part;
    char L_R_select;
  };

int need_89_opcode ();
int pa_89_parse_number ();


struct call_desc
  {
    unsigned int arg_reloc;
    unsigned int arg_count;
  };

typedef struct call_desc call_descS;

extern call_descS last_call_desc;

/* GDB debug support */

#if defined(OBJ_SOME)
#define GDB_DEBUG_SPACE_NAME "$GDB_DEBUG$"
#define GDB_STRINGS_SUBSPACE_NAME "$GDB_STRINGS$"
#define GDB_SYMBOLS_SUBSPACE_NAME "$GDB_SYMBOLS$"
#else
#define GDB_DEBUG_SPACE_NAME ".stab"
#define GDB_STRINGS_SUBSPACE_NAME ".stabstr"
#define GDB_SYMBOLS_SUBSPACE_NAME ".stab"
#endif
/* pre-defined subsegments (subspaces) for the HP 9000 Series 800 */

#define SUBSEG_CODE   0
#define SUBSEG_DATA   0
#define SUBSEG_LIT    1
#define SUBSEG_BSS    2
#define SUBSEG_UNWIND 3
#define SUBSEG_GDB_STRINGS 0
#define SUBSEG_GDB_SYMBOLS 1

#define UNWIND_SECTION_NAME	".hppa_unwind"
/* subspace dictionary chain entry structure */

struct subspace_dictionary_chain
  {
#if defined(OBJ_OSFROSE) | defined(OBJ_ELF)
#ifdef OBJ_OSFROSE
    region_command_t *ssd_entry;/* XXX: not sure this is what we need here */
#else
    Elf_Internal_Shdr *ssd_entry;
    unsigned long ssd_vm_addr;
#endif
    char *ssd_name;		/* used until time of writing object file	*/
    /* then we use ssd_entry->regc_region_name	*/
    unsigned char ssd_quadrant;
    unsigned char ssd_sort_key;
    unsigned char ssd_common;
    unsigned char ssd_dup_common;
    unsigned char ssd_loadable;
    unsigned char ssd_code_only;
#else
    subspace_dictS *ssd_entry;	/* this dictionary */
#endif
    int ssd_defined;		/* this subspace has been used */
    int ssd_space_number;	/* space # this subspace is in */
    asection *ssd_seg;		/* this subspace =  this seg */
    int ssd_subseg;		/*                  and subseg */
    int ssd_zero;
    int object_file_index;	/* index of this entry within
                                                     the subspace dictionary of
                                                     the object file (not used until
                                                     the object file is written */
    int ssd_last_align;		/* the size of the last alignment
                                                     request for this subspace */
    struct symbol *ssd_start_sym; /* a symbol whose value is the
                                                     start of this subspace */
    struct subspace_dictionary_chain *ssd_next;	/* next subspace dict. entry */
  };

typedef struct subspace_dictionary_chain subspace_dict_chainS;

/* space dictionary chain entry structure */

struct space_dictionary_chain
  {
#ifdef OBJ_OSFROSE
    region_command_t *sd_entry;	/* XXX: not sure this is what we need here */
    char *sd_name;		/* used until time of writing object file	*/
    /* then we use sd_entry->regc_region_name	*/
    unsigned int sd_loadable;
    unsigned int sd_private;
    unsigned int sd_spnum;
    unsigned char sd_sort_key;
#else
#ifdef OBJ_ELF
    Elf_Internal_Shdr *sd_entry;
    char *sd_name;		/* used until time of writing object file	*/
    /* then we use sd_entry->sh_name	*/
    unsigned int sd_loadable;
    unsigned int sd_private;
    unsigned int sd_spnum;
    unsigned char sd_sort_key;
#else
    space_dictS *sd_entry;	/* this dictionary */
#endif
#endif
    int sd_defined;		/* this space has been used */
    asection *sd_seg;		/* GAS segment to which this space corresponds */
    int sd_last_subseg;		/* current subsegment number we are using */
    subspace_dict_chainS *sd_subspaces;	/* all subspaces in this space */
    struct space_dictionary_chain *sd_next;	/* the next space dict. entry */
  };

typedef struct space_dictionary_chain space_dict_chainS;

/*
    Macros to maintain spaces and subspaces
 */

#ifdef OBJ_OSFROSE
#define SPACE_DEFINED(space_chain)	(space_chain)->sd_defined
#define SPACE_PRIVATE(space_chain)	(space_chain)->sd_private
#define SPACE_LOADABLE(space_chain)	(space_chain)->sd_loadable
#define SPACE_SPNUM(space_chain)	(space_chain)->sd_spnum
#define SPACE_SORT(space_chain)		(space_chain)->sd_sort_key
#define SPACE_NAME(space_chain)		(space_chain)->sd_name

#define SUBSPACE_QUADRANT(ss_chain)	(ss_chain)->ssd_quadrant
#define SUBSPACE_ALIGN(ss_chain)	(ss_chain)->ssd_entry->regc_addralign
#define SUBSPACE_ACCESS(ss_chain)	(ss_chain)->ssd_entry->regc_initprot
#define SUBSPACE_SORT(ss_chain)		(ss_chain)->ssd_sort_key
#define SUBSPACE_COMMON(ss_chain)	(ss_chain)->ssd_common
#define SUBSPACE_ZERO(ss_chain)		(ss_chain)->ssd_zero
#define SUBSPACE_DUP_COMM(ss_chain)	(ss_chain)->ssd_dup_common
#define SUBSPACE_CODE_ONLY(ssch)	((ssch)->ssd_entry->regc_flags & REG_TEXT_T)
#define SET_SUBSPACE_CODE_ONLY(ssch,val) (ssch)->ssd_entry->regc_flags |= ((val) ? REG_TEXT_T : 0)
#define SUBSPACE_LOADABLE(ss_chain)	(ss_chain)->ssd_loadable
#define SUBSPACE_SUBSPACE_START(ss_chain) (ss_chain)->ssd_entry->regc_addr.vm_addr
#define SUBSPACE_SUBSPACE_LENGTH(ss_chain) (ss_chain)->ssd_entry->regc_vm_size
#define SUBSPACE_REGION_NAME(ss_chain)	(ss_chain)->ssd_entry->regc_region_name
#define SUBSPACE_NAME(ss_chain)		(ss_chain)->ssd_name
#endif

#ifdef OBJ_ELF
#define RELOC_EXPANSION_POSSIBLE
#define MAX_RELOC_EXPANSION 5

#define SPACE_DEFINED(space_chain)	(space_chain)->sd_defined
#define SPACE_PRIVATE(space_chain)	(space_chain)->sd_private
#define SPACE_LOADABLE(space_chain)	(space_chain)->sd_loadable
#define SPACE_SPNUM(space_chain)	(space_chain)->sd_spnum
#define SPACE_SORT(space_chain)		(space_chain)->sd_sort_key
#define SPACE_NAME(space_chain)		(space_chain)->sd_name

#define SUBSPACE_QUADRANT(ss_chain)	(ss_chain)->ssd_quadrant
#define SUBSPACE_ALIGN(ss_chain)	(ss_chain)->ssd_entry->sh_addralign
#define SUBSPACE_ACCESS(ss_chain)	(ss_chain)->ssd_entry->sh_flags
#define SUBSPACE_SORT(ss_chain)		(ss_chain)->ssd_sort_key
#define SUBSPACE_COMMON(ss_chain)	(ss_chain)->ssd_common
#define SUBSPACE_ZERO(ss_chain)		(ss_chain)->ssd_zero
#define SUBSPACE_DUP_COMM(ss_chain)	(ss_chain)->ssd_dup_common
#define SUBSPACE_CODE_ONLY(ssch) \
	(((ssch)->ssd_entry->sh_flags & (SHF_ALLOC | SHF_EXECINSTR | SHF_WRITE)) \
	 == (SHF_ALLOC | SHF_EXECINSTR))
#define SET_SUBSPACE_CODE_ONLY(ssch,val) \
		(ssch)->ssd_entry->sh_flags &= ((val) ? ~SHF_WRITE : 0xffffffff)
#define SUBSPACE_LOADABLE(ss_chain)	(ss_chain)->ssd_loadable
#define SUBSPACE_SUBSPACE_START(ss_chain) (ss_chain)->ssd_vm_addr
#define SUBSPACE_SUBSPACE_LENGTH(ss_chain) (ss_chain)->ssd_entry->sh_size
#define SUBSPACE_NAME(ss_chain)		(ss_chain)->ssd_name

#define STAB_FIXUP(frag,toptr,symP,stab_type)	\
		if ( (stab_type == 's' || stab_type == 'n')	\
		    && symP->sy_value.X_op == O_symbol)		\
		  {						\
		     int i = S_GET_TYPE(symP) & N_TYPE;		\
		     fix_new_hppa(frag,  			\
				  toptr-frag->fr_literal, /* where */	\
				  4,		/* size */	\
				  symP->sy_value.X_add_symbol,	/* addr of sym for this stab */	\
				  (offsetT) 0,			\
				  (expressionS *) NULL,		\
				  i == N_UNDF || i == N_ABS,	/* 1 if internal reloc */	\
				  R_HPPA,	/* type */	\
				  e_fsel,	/* fixup fld = F% */	\
				  32,				\
				  0,		/* arg_reloc */	\
				  (char *)0			\
				  );				\
		  }						\
		else if ( stab_type == 'd' )			\
		  {						\
		     fix_new_hppa (frag,			\
				   toptr-frag->fr_literal, /* where */	\
				   4,		/* size */	\
				   symP,	/* addr of sym for this stab */	\
				   (offsetT) 0,			\
				   (expressionS *) NULL,	\
				   0,				\
				   R_HPPA,	/* type */	\
				   e_fsel,	/* fixup fld = F% */	\
				   32,				\
				   0,		/* arg_reloc */	\
				   (char *)0			\
				   );				\
		  }

#endif

#ifdef OBJ_SOM
#define SPACE_DEFINED(space_chain)	(space_chain)->sd_entry->is_defined
#define SPACE_PRIVATE(space_chain)	(space_chain)->sd_entry->is_private
#define SPACE_LOADABLE(space_chain)	(space_chain)->sd_entry->is_loadable
#define SPACE_SPNUM(space_chain)	(space_chain)->sd_entry->space_number
#define SPACE_SORT(space_chain)		(space_chain)->sd_entry->sort_key
#define SPACE_NAME(space_chain)		(space_chain)->sd_entry->name

#define SUBSPACE_QUADRANT(ss_chain)	(ss_chain)->ssd_entry->quadrant
#define SUBSPACE_ALIGN(ss_chain)	(ss_chain)->ssd_entry->alignment
#define SUBSPACE_ACCESS(ss_chain)	(ss_chain)->ssd_entry->access_control_bits
#define SUBSPACE_SORT(ss_chain)		(ss_chain)->ssd_entry->sort_key
#define SUBSPACE_COMMON(ss_chain)	(ss_chain)->ssd_entry->is_common
#define SUBSPACE_ZERO(ss_chain)		(ss_chain)->ssd_zero
#define SUBSPACE_DUP_COMM(ss_chain)	(ss_chain)->ssd_entry->dup_common
#define SUBSPACE_CODE_ONLY(ss_chain)	(ss_chain)->ssd_entry->code_only
#define SUBSPACE_LOADABLE(ss_chain)	(ss_chain)->ssd_entry->is_loadable
#define SUBSPACE_SUBSPACE_START(ss_chain) (ss_chain)->ssd_entry->subspace_start
#define SUBSPACE_SUBSPACE_LENGTH(ss_chain) (ss_chain)->ssd_entry->subspace_length
#define SUBSPACE_NAME(ss_chain)		(ss_chain)->ssd_entry->name
#endif

extern space_dict_chainS *space_dict_root;
extern space_dict_chainS *space_dict_last;

extern space_dict_chainS *current_space;
extern subspace_dict_chainS *current_subspace;

extern space_dict_chainS *create_new_space ();

extern subspace_dict_chainS *create_new_subspace ();

extern subspace_dict_chainS *update_subspace ();

extern space_dict_chainS *is_defined_space ();

extern space_dict_chainS *pa_segment_to_space ();

extern subspace_dict_chainS *is_defined_subspace ();

extern subspace_dict_chainS *pa_subsegment_to_subspace ();

extern space_dict_chainS *pa_find_space_by_number ();

extern unsigned int pa_subspace_start ();

extern int is_last_defined_subspace ();

/* symbol support */

extern struct symbol *pa_get_start_symbol ();

extern struct symbol *pa_set_start_symbol ();

/* default space and subspace dictionaries */

struct default_subspace_dict
  {
    char *name;
    char defined;
    char loadable, code_only, common, dup_common, zero;
    unsigned char sort;
    int access, space_index, alignment, quadrant;
#ifdef OBJ_SOM
    segT segment;
#else
    int def_space_index;	/* this is an index in the default spaces array */
    char *alias;		/* an alias for this section (or NULL if there isn't one) */
#endif
    subsegT subsegment;
  };

extern struct default_subspace_dict pa_def_subspaces[];

struct default_space_dict
  {
    char *name;
    int spnum;
    char loadable;
    char defined;
    char private;
    unsigned char sort;
#ifdef OBJ_SOM
    segT segment;
#else
    asection *segment;
    /* an alias for this section (or NULL if there isn't one) */
    char *alias;
#endif
  };

extern struct default_space_dict pa_def_spaces[];

/*
	Support for keeping track of the most recent label in each
	space.
 */

#define tc_frob_label(sym) pa_define_label (sym)

typedef struct label_symbol_struct
  {
    /* the label symbol */
    struct symbol *lss_label;
    /* the space to which it applies */
    space_dict_chainS *lss_space;
    /* the next label symbol */
    struct label_symbol_struct *lss_next;
  } label_symbolS;

void pa_define_label ();

/* end of label symbol support. */

#define is_DP_relative(exp)			\
  ((exp).X_op == O_subtract			\
   && strcmp((exp).X_op_symbol->bsym->name, "$global$") == 0)

#define is_PC_relative(exp)			\
  ((exp).X_op == O_subtract			\
   && strcmp((exp).X_op_symbol->bsym->name, "$PIC_pcrel$0") == 0)

#define is_complex(exp)				\
  ((exp).X_op != O_constant && (exp).X_op != O_symbol)

#define tc_crawl_symbol_chain(headers) {;}	/* Not used. */

#define tc_headers_hook(headers) {;}	/* Not used. */

#define elf_tc_symbol		hppa_tc_symbol
#define elf_tc_make_sections	hppa_tc_make_sections
extern void elf_hppa_final_processing ();
#define elf_tc_final_processing	elf_hppa_final_processing

/* We need to parse field selectors in .byte, etc.  */

#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
  parse_cons_expression_hppa (EXP)
#define TC_CONS_FIX_NEW cons_fix_new_hppa

/* FIXME these used to be prototypes, but both want an expressionS which
   is not defined when this file is included.  */
extern void parse_cons_expression_hppa ();
extern void cons_fix_new_hppa ();

/* On the PA, an equal sign often appears as a condition or nullification
   completer in an instruction.  This can be detected by checking the
   previous character, if the character is a comma, then the equal is
   being used as part of an instruction.  */
#define TC_EQUAL_IN_INSN(C, PTR)	((C) == ',')

/* Similarly for an exclamation point.  It is used in FP comparison
   instructions and as an end of line marker.  When used in an instruction
   it will always follow a comma.  */
#define TC_EOL_IN_INSN(PTR)	(is_end_of_line[*(PTR)] && (PTR)[-1] == ',')

#endif /* _TC_HPPA_H */
Commit	Line	Data
5868b1fe ILT	1	/* tc-hppa.h -- Header file for the PA */
5868b1fe ILT	2
5cf4cd1b	3	/* Copyright (C) 1989, 1993 Free Software Foundation, Inc.
5868b1fe ILT	4
	5	This file is part of GAS, the GNU Assembler.
	6
	7	GAS is free software; you can redistribute it and/or modify
	8	it under the terms of the GNU General Public License as published by
	9	the Free Software Foundation; either version 1, or (at your option)
	10	any later version.
	11
	12	GAS is distributed in the hope that it will be useful,
	13	but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	GNU General Public License for more details.
	16
	17	You should have received a copy of the GNU General Public License
	18	along with GAS; see the file COPYING. If not, write to
	19	the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
	20
	21
	22	/*
	23	HP PA-RISC support was contributed by the Center for Software Science
	24	at the University of Utah.
	25	*/
	26
	27	#ifndef _TC_HPPA_H
	28	#define _TC_HPPA_H
	29
	30	#ifndef TC_HPPA
	31	#define TC_HPPA 1
	32	#endif
	33
5cf4cd1b KR	34	#ifdef OBJ_ELF
	35	#include "../bfd/elf32-hppa.h"
	36	#endif
	37
5868b1fe ILT	38	#define TARGET_ARCH bfd_arch_hppa
	39	#define TARGET_FORMAT "elf32-hppa"
	40
5cf4cd1b KR	41	/* Local labels have an "L$" prefix. */
5cf4cd1b KR	42	#define LOCAL_LABEL(name) ((name)[0] == 'L' && (name)[1] == '$')
5868b1fe ILT	43	#define ASEC_NULL (asection *)0
	44
	45	/* We can do sym1 - sym2 as long as sym2 is $global$ */
	46
	47	#define SEG_DIFF_ALLOWED
	48
	49	typedef enum FPOF
	50	{
	51	SGL, DBL, ILLEGAL_FMT, QUAD
	52	} FP_Operand_Format;
	53
	54	extern char *expr_end;
	55
	56	extern void s_globl (), s_long (), s_short (), s_space (), cons ();
	57	extern void stringer ();
	58	extern unsigned int next_char_of_string ();
	59
	60	extern void pa_big_cons ();
	61	extern void pa_cons ();
	62	extern void pa_data ();
	63	extern void pa_desc ();
	64	extern void pa_float_cons ();
	65	extern void pa_fill ();
	66	extern void pa_lcomm ();
	67	extern void pa_lsym ();
	68	extern void pa_stringer ();
	69	extern void pa_text ();
	70	extern void pa_version ();
	71
	72	int pa_parse_number ();
	73
	74	int pa_parse_fp_cmp_cond ();
	75
	76	FP_Operand_Format pa_parse_fp_format ();
	77
	78	#ifdef __STDC__
	79	int getExpression (char *str);
	80	#else
	81	int getExpression ();
	82	#endif
	83
	84	int getAbsoluteExpression ();
	85
	86	int evaluateAbsolute ();
	87
	88	int pa_build_arg_reloc ();
	89
	90	unsigned int pa_align_arg_reloc ();
	91
	92	void pa_skip ();
	93
	94	int pa_parse_nullif ();
	95
	96	int pa_parse_nonneg_cmpsub_cmpltr ();
	97
	98	int pa_parse_neg_cmpsub_cmpltr ();
	99
	100	int pa_parse_nonneg_add_cmpltr ();
	101
	102	int pa_parse_neg_add_cmpltr ();
	103
	104	int pa_build_arg_reloc ();
	105
	106	void s_seg (), s_proc (), s_data1 ();
107
108	void pa_block (), pa_call (), pa_call_args (), pa_callinfo ();
109	void pa_code (), pa_comm (), pa_copyright (), pa_end ();
110	void pa_enter ();
111	void pa_entry (), pa_equ (), pa_exit (), pa_export ();
112	void pa_export_args (), pa_import (), pa_label (), pa_leave ();
113	void pa_origin (), pa_proc (), pa_procend (), pa_space ();
114	void pa_spnum (), pa_subspace (), pa_version ();
5cf4cd1b	115	void pa_param();
5868b1fe ILT	116
	117	extern const pseudo_typeS md_pseudo_table[];
	118
	119	/*
	120	PA-89 floating point registers are arranged like this:
	121
	122
	123	+--------------+--------------+
	124	\| 0 or 16L \| 16 or 16R \|
	125	+--------------+--------------+
	126	\| 1 or 17L \| 17 or 17R \|
	127	+--------------+--------------+
	128	\| \| \|
	129
	130	. . .
	131	. . .
	132	. . .
	133
	134	\| \| \|
	135	+--------------+--------------+
	136	\| 14 or 30L \| 30 or 30R \|
	137	+--------------+--------------+
	138	\| 15 or 31L \| 31 or 31R \|
	139	+--------------+--------------+
	140
	141
	142	The following is a version of pa_parse_number that
	143	handles the L/R notation and returns the correct
	144	value to put into the instruction register field.
	145	The correct value to put into the instruction is
	146	encoded in the structure 'pa_89_fp_reg_struct'.
	147
	148	*/
	149
	150	struct pa_89_fp_reg_struct
	151	{
	152	char number_part;
	153	char L_R_select;
	154	};
	155
	156	int need_89_opcode ();
	157	int pa_89_parse_number ();
	158
	159
5868b1fe ILT	160	struct call_desc
	161	{
	162	unsigned int arg_reloc;
	163	unsigned int arg_count;
	164	};
	165
	166	typedef struct call_desc call_descS;
	167
	168	extern call_descS last_call_desc;
	169
	170	/* GDB debug support */
	171
	172	#if defined(OBJ_SOME)
	173	#define GDB_DEBUG_SPACE_NAME "$GDB_DEBUG$"
	174	#define GDB_STRINGS_SUBSPACE_NAME "$GDB_STRINGS$"
	175	#define GDB_SYMBOLS_SUBSPACE_NAME "$GDB_SYMBOLS$"
	176	#else
	177	#define GDB_DEBUG_SPACE_NAME ".stab"
	178	#define GDB_STRINGS_SUBSPACE_NAME ".stabstr"
	179	#define GDB_SYMBOLS_SUBSPACE_NAME ".stab"
	180	#endif
	181	/* pre-defined subsegments (subspaces) for the HP 9000 Series 800 */
	182
	183	#define SUBSEG_CODE 0
	184	#define SUBSEG_DATA 0
	185	#define SUBSEG_LIT 1
	186	#define SUBSEG_BSS 2
	187	#define SUBSEG_UNWIND 3
	188	#define SUBSEG_GDB_STRINGS 0
	189	#define SUBSEG_GDB_SYMBOLS 1
	190
	191	#define UNWIND_SECTION_NAME ".hppa_unwind"
	192	/* subspace dictionary chain entry structure */
	193
	194	struct subspace_dictionary_chain
	195	{
	196	#if defined(OBJ_OSFROSE) \| defined(OBJ_ELF)
	197	#ifdef OBJ_OSFROSE
	198	region_command_t ssd_entry;/ XXX: not sure this is what we need here */
	199	#else
	200	Elf_Internal_Shdr *ssd_entry;
	201	unsigned long ssd_vm_addr;
	202	#endif
	203	char ssd_name; / used until time of writing object file */
	204	/* then we use ssd_entry->regc_region_name */
	205	unsigned char ssd_quadrant;
	206	unsigned char ssd_sort_key;
	207	unsigned char ssd_common;
	208	unsigned char ssd_dup_common;
	209	unsigned char ssd_loadable;
	210	unsigned char ssd_code_only;
	211	#else
	212	subspace_dictS ssd_entry; / this dictionary */
	213	#endif
	214	int ssd_defined; /* this subspace has been used */
	215	int ssd_space_number; /* space # this subspace is in */
	216	asection ssd_seg; / this subspace = this seg */
	217	int ssd_subseg; /* and subseg */
	218	int ssd_zero;
	219	int object_file_index; /* index of this entry within
	220	the subspace dictionary of
	221	the object file (not used until
	222	the object file is written */
	223	int ssd_last_align; /* the size of the last alignment
224	request for this subspace */
5cf4cd1b	225	struct symbol ssd_start_sym; / a symbol whose value is the
5868b1fe ILT	226	start of this subspace */
	227	struct subspace_dictionary_chain ssd_next; / next subspace dict. entry */
	228	};
	229
	230	typedef struct subspace_dictionary_chain subspace_dict_chainS;
	231
	232	/* space dictionary chain entry structure */
	233
	234	struct space_dictionary_chain
	235	{
	236	#ifdef OBJ_OSFROSE
	237	region_command_t sd_entry; / XXX: not sure this is what we need here */
	238	char sd_name; / used until time of writing object file */
	239	/* then we use sd_entry->regc_region_name */
	240	unsigned int sd_loadable;
	241	unsigned int sd_private;
	242	unsigned int sd_spnum;
	243	unsigned char sd_sort_key;
	244	#else
	245	#ifdef OBJ_ELF
	246	Elf_Internal_Shdr *sd_entry;
	247	char sd_name; / used until time of writing object file */
	248	/* then we use sd_entry->sh_name */
	249	unsigned int sd_loadable;
	250	unsigned int sd_private;
	251	unsigned int sd_spnum;
	252	unsigned char sd_sort_key;
	253	#else
	254	space_dictS sd_entry; / this dictionary */
	255	#endif
	256	#endif
	257	int sd_defined; /* this space has been used */
	258	asection sd_seg; / GAS segment to which this space corresponds */
	259	int sd_last_subseg; /* current subsegment number we are using */
	260	subspace_dict_chainS sd_subspaces; / all subspaces in this space */
	261	struct space_dictionary_chain sd_next; / the next space dict. entry */
	262	};
	263
	264	typedef struct space_dictionary_chain space_dict_chainS;
	265
	266	/*
	267	Macros to maintain spaces and subspaces
	268	*/
	269
	270	#ifdef OBJ_OSFROSE
	271	#define SPACE_DEFINED(space_chain) (space_chain)->sd_defined
	272	#define SPACE_PRIVATE(space_chain) (space_chain)->sd_private
	273	#define SPACE_LOADABLE(space_chain) (space_chain)->sd_loadable
	274	#define SPACE_SPNUM(space_chain) (space_chain)->sd_spnum
	275	#define SPACE_SORT(space_chain) (space_chain)->sd_sort_key
	276	#define SPACE_NAME(space_chain) (space_chain)->sd_name
	277
	278	#define SUBSPACE_QUADRANT(ss_chain) (ss_chain)->ssd_quadrant
	279	#define SUBSPACE_ALIGN(ss_chain) (ss_chain)->ssd_entry->regc_addralign
	280	#define SUBSPACE_ACCESS(ss_chain) (ss_chain)->ssd_entry->regc_initprot
	281	#define SUBSPACE_SORT(ss_chain) (ss_chain)->ssd_sort_key
	282	#define SUBSPACE_COMMON(ss_chain) (ss_chain)->ssd_common
	283	#define SUBSPACE_ZERO(ss_chain) (ss_chain)->ssd_zero
	284	#define SUBSPACE_DUP_COMM(ss_chain) (ss_chain)->ssd_dup_common
	285	#define SUBSPACE_CODE_ONLY(ssch) ((ssch)->ssd_entry->regc_flags & REG_TEXT_T)
	286	#define SET_SUBSPACE_CODE_ONLY(ssch,val) (ssch)->ssd_entry->regc_flags \|= ((val) ? REG_TEXT_T : 0)
	287	#define SUBSPACE_LOADABLE(ss_chain) (ss_chain)->ssd_loadable
	288	#define SUBSPACE_SUBSPACE_START(ss_chain) (ss_chain)->ssd_entry->regc_addr.vm_addr
	289	#define SUBSPACE_SUBSPACE_LENGTH(ss_chain) (ss_chain)->ssd_entry->regc_vm_size
290	#define SUBSPACE_REGION_NAME(ss_chain) (ss_chain)->ssd_entry->regc_region_name
291	#define SUBSPACE_NAME(ss_chain) (ss_chain)->ssd_name
292	#endif
293
294	#ifdef OBJ_ELF
295	#define RELOC_EXPANSION_POSSIBLE
296	#define MAX_RELOC_EXPANSION 5
297
298	#define SPACE_DEFINED(space_chain) (space_chain)->sd_defined
299	#define SPACE_PRIVATE(space_chain) (space_chain)->sd_private
300	#define SPACE_LOADABLE(space_chain) (space_chain)->sd_loadable
301	#define SPACE_SPNUM(space_chain) (space_chain)->sd_spnum
302	#define SPACE_SORT(space_chain) (space_chain)->sd_sort_key
303	#define SPACE_NAME(space_chain) (space_chain)->sd_name
304
305	#define SUBSPACE_QUADRANT(ss_chain) (ss_chain)->ssd_quadrant
306	#define SUBSPACE_ALIGN(ss_chain) (ss_chain)->ssd_entry->sh_addralign
307	#define SUBSPACE_ACCESS(ss_chain) (ss_chain)->ssd_entry->sh_flags
308	#define SUBSPACE_SORT(ss_chain) (ss_chain)->ssd_sort_key
309	#define SUBSPACE_COMMON(ss_chain) (ss_chain)->ssd_common
310	#define SUBSPACE_ZERO(ss_chain) (ss_chain)->ssd_zero
311	#define SUBSPACE_DUP_COMM(ss_chain) (ss_chain)->ssd_dup_common
312	#define SUBSPACE_CODE_ONLY(ssch) \
313	(((ssch)->ssd_entry->sh_flags & (SHF_ALLOC \| SHF_EXECINSTR \| SHF_WRITE)) \
314	== (SHF_ALLOC \| SHF_EXECINSTR))
315	#define SET_SUBSPACE_CODE_ONLY(ssch,val) \
316	(ssch)->ssd_entry->sh_flags &= ((val) ? ~SHF_WRITE : 0xffffffff)
317	#define SUBSPACE_LOADABLE(ss_chain) (ss_chain)->ssd_loadable
318	#define SUBSPACE_SUBSPACE_START(ss_chain) (ss_chain)->ssd_vm_addr
319	#define SUBSPACE_SUBSPACE_LENGTH(ss_chain) (ss_chain)->ssd_entry->sh_size
320	#define SUBSPACE_NAME(ss_chain) (ss_chain)->ssd_name
321
322	#define STAB_FIXUP(frag,toptr,symP,stab_type) \
323	if ( (stab_type == 's' \|\| stab_type == 'n') \
5cf4cd1b	324	&& symP->sy_value.X_op == O_symbol) \
5868b1fe ILT	325	{ \
	326	int i = S_GET_TYPE(symP) & N_TYPE; \
	327	fix_new_hppa(frag, \
	328	toptr-frag->fr_literal, /* where */ \
	329	4, /* size */ \
	330	symP->sy_value.X_add_symbol, /* addr of sym for this stab */ \
5cf4cd1b KR	331	(offsetT) 0, \
5cf4cd1b KR	332	(expressionS *) NULL, \
5868b1fe ILT	333	i == N_UNDF \|\| i == N_ABS, /* 1 if internal reloc */ \
	334	R_HPPA, /* type */ \
	335	e_fsel, /* fixup fld = F% */ \
	336	32, \
	337	0, /* arg_reloc */ \
	338	(char *)0 \
	339	); \
	340	} \
	341	else if ( stab_type == 'd' ) \
	342	{ \
	343	fix_new_hppa (frag, \
	344	toptr-frag->fr_literal, /* where */ \
	345	4, /* size */ \
	346	symP, /* addr of sym for this stab */ \
5cf4cd1b KR	347	(offsetT) 0, \
5cf4cd1b KR	348	(expressionS *) NULL, \
5868b1fe ILT	349	0, \
	350	R_HPPA, /* type */ \
	351	e_fsel, /* fixup fld = F% */ \
	352	32, \
	353	0, /* arg_reloc */ \
	354	(char *)0 \
	355	); \
	356	}
	357
	358	#endif
	359
	360	#ifdef OBJ_SOM
	361	#define SPACE_DEFINED(space_chain) (space_chain)->sd_entry->is_defined
	362	#define SPACE_PRIVATE(space_chain) (space_chain)->sd_entry->is_private
	363	#define SPACE_LOADABLE(space_chain) (space_chain)->sd_entry->is_loadable
	364	#define SPACE_SPNUM(space_chain) (space_chain)->sd_entry->space_number
	365	#define SPACE_SORT(space_chain) (space_chain)->sd_entry->sort_key
	366	#define SPACE_NAME(space_chain) (space_chain)->sd_entry->name
	367
	368	#define SUBSPACE_QUADRANT(ss_chain) (ss_chain)->ssd_entry->quadrant
	369	#define SUBSPACE_ALIGN(ss_chain) (ss_chain)->ssd_entry->alignment
	370	#define SUBSPACE_ACCESS(ss_chain) (ss_chain)->ssd_entry->access_control_bits
	371	#define SUBSPACE_SORT(ss_chain) (ss_chain)->ssd_entry->sort_key
	372	#define SUBSPACE_COMMON(ss_chain) (ss_chain)->ssd_entry->is_common
	373	#define SUBSPACE_ZERO(ss_chain) (ss_chain)->ssd_zero
	374	#define SUBSPACE_DUP_COMM(ss_chain) (ss_chain)->ssd_entry->dup_common
	375	#define SUBSPACE_CODE_ONLY(ss_chain) (ss_chain)->ssd_entry->code_only
	376	#define SUBSPACE_LOADABLE(ss_chain) (ss_chain)->ssd_entry->is_loadable
	377	#define SUBSPACE_SUBSPACE_START(ss_chain) (ss_chain)->ssd_entry->subspace_start
	378	#define SUBSPACE_SUBSPACE_LENGTH(ss_chain) (ss_chain)->ssd_entry->subspace_length
	379	#define SUBSPACE_NAME(ss_chain) (ss_chain)->ssd_entry->name
	380	#endif
	381
	382	extern space_dict_chainS *space_dict_root;
	383	extern space_dict_chainS *space_dict_last;
	384
	385	extern space_dict_chainS *current_space;
	386	extern subspace_dict_chainS *current_subspace;
	387
	388	extern space_dict_chainS *create_new_space ();
	389
	390	extern subspace_dict_chainS *create_new_subspace ();
	391
	392	extern subspace_dict_chainS *update_subspace ();
	393
	394	extern space_dict_chainS *is_defined_space ();
	395
	396	extern space_dict_chainS *pa_segment_to_space ();
	397
	398	extern subspace_dict_chainS *is_defined_subspace ();
	399
	400	extern subspace_dict_chainS *pa_subsegment_to_subspace ();
	401
	402	extern space_dict_chainS *pa_find_space_by_number ();
	403
	404	extern unsigned int pa_subspace_start ();
	405
	406	extern int is_last_defined_subspace ();
	407
	408	/* symbol support */
	409
5cf4cd1b	410	extern struct symbol *pa_get_start_symbol ();
5868b1fe	411
5cf4cd1b	412	extern struct symbol *pa_set_start_symbol ();
5868b1fe ILT	413
	414	/* default space and subspace dictionaries */
	415
	416	struct default_subspace_dict
	417	{
	418	char *name;
	419	char defined;
5cf4cd1b KR	420	char loadable, code_only, common, dup_common, zero;
5cf4cd1b KR	421	unsigned char sort;
5868b1fe ILT	422	int access, space_index, alignment, quadrant;
	423	#ifdef OBJ_SOM
	424	segT segment;
	425	#else
	426	int def_space_index; /* this is an index in the default spaces array */
	427	char alias; / an alias for this section (or NULL if there isn't one) */
	428	#endif
	429	subsegT subsegment;
	430	};
	431
	432	extern struct default_subspace_dict pa_def_subspaces[];
	433
	434	struct default_space_dict
	435	{
	436	char *name;
	437	int spnum;
	438	char loadable;
	439	char defined;
	440	char private;
5cf4cd1b	441	unsigned char sort;
5868b1fe ILT	442	#ifdef OBJ_SOM
	443	segT segment;
	444	#else
	445	asection *segment;
5cf4cd1b KR	446	/* an alias for this section (or NULL if there isn't one) */
5cf4cd1b KR	447	char *alias;
5868b1fe ILT	448	#endif
	449	};
	450
	451	extern struct default_space_dict pa_def_spaces[];
	452
	453	/*
	454	Support for keeping track of the most recent label in each
	455	space.
	456	*/
	457
becfe05e ILT	458	#define tc_frob_label(sym) pa_define_label (sym)
becfe05e ILT	459
5868b1fe ILT	460	typedef struct label_symbol_struct
5868b1fe ILT	461	{
5cf4cd1b KR	462	/* the label symbol */
	463	struct symbol *lss_label;
	464	/* the space to which it applies */
	465	space_dict_chainS *lss_space;
	466	/* the next label symbol */
	467	struct label_symbol_struct *lss_next;
5868b1fe ILT	468	} label_symbolS;
5868b1fe ILT	469
5868b1fe	470	void pa_define_label ();
5868b1fe ILT	471
	472	/* end of label symbol support. */
	473
5cf4cd1b KR	474	#define is_DP_relative(exp) \
	475	((exp).X_op == O_subtract \
	476	&& strcmp((exp).X_op_symbol->bsym->name, "$global$") == 0)
5868b1fe	477
5cf4cd1b KR	478	#define is_PC_relative(exp) \
	479	((exp).X_op == O_subtract \
	480	&& strcmp((exp).X_op_symbol->bsym->name, "$PIC_pcrel$0") == 0)
5868b1fe	481
5cf4cd1b KR	482	#define is_complex(exp) \
5cf4cd1b KR	483	((exp).X_op != O_constant && (exp).X_op != O_symbol)
5868b1fe ILT	484
	485	#define tc_crawl_symbol_chain(headers) {;} /* Not used. */
	486
	487	#define tc_headers_hook(headers) {;} /* Not used. */
	488
5cf4cd1b KR	489	#define elf_tc_symbol hppa_tc_symbol
5cf4cd1b KR	490	#define elf_tc_make_sections hppa_tc_make_sections
5868b1fe ILT	491	extern void elf_hppa_final_processing ();
	492	#define elf_tc_final_processing elf_hppa_final_processing
	493
	494	/* We need to parse field selectors in .byte, etc. */
	495
	496	#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
5cf4cd1b	497	parse_cons_expression_hppa (EXP)
5868b1fe ILT	498	#define TC_CONS_FIX_NEW cons_fix_new_hppa
5868b1fe ILT	499
5cf4cd1b KR	500	/* FIXME these used to be prototypes, but both want an expressionS which
	501	is not defined when this file is included. */
	502	extern void parse_cons_expression_hppa ();
	503	extern void cons_fix_new_hppa ();
	504
	505	/* On the PA, an equal sign often appears as a condition or nullification
	506	completer in an instruction. This can be detected by checking the
	507	previous character, if the character is a comma, then the equal is
	508	being used as part of an instruction. */
	509	#define TC_EQUAL_IN_INSN(C, PTR) ((C) == ',')
	510
	511	/* Similarly for an exclamation point. It is used in FP comparison
	512	instructions and as an end of line marker. When used in an instruction
	513	it will always follow a comma. */
	514	#define TC_EOL_IN_INSN(PTR) (is_end_of_line[*(PTR)] && (PTR)[-1] == ',')
5868b1fe ILT	515
5868b1fe ILT	516	#endif /* _TC_HPPA_H */