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

/* This file is tc-alpha.h
   Copyright (C) 1994-2020 Free Software Foundation, Inc.
   Written by Ken Raeburn <raeburn@cygnus.com>.

   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 3, 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, 51 Franklin Street - Fifth Floor, Boston, MA
   02110-1301, USA.  */

#define TC_ALPHA

#define TARGET_BYTES_BIG_ENDIAN 0

#define WORKING_DOT_WORD

#define TARGET_ARCH			bfd_arch_alpha

#ifdef TE_FreeBSD
#define ELF_TARGET_FORMAT	"elf64-alpha-freebsd"
#endif
#ifndef ELF_TARGET_FORMAT
#define ELF_TARGET_FORMAT	"elf64-alpha"
#endif

#define TARGET_FORMAT (OUTPUT_FLAVOR == bfd_target_ecoff_flavour	\
		       ? "ecoff-littlealpha"				\
		       : OUTPUT_FLAVOR == bfd_target_elf_flavour	\
		       ? ELF_TARGET_FORMAT				\
		       : OUTPUT_FLAVOR == bfd_target_evax_flavour	\
		       ? "vms-alpha"					\
		       : "unknown-format")

#define NEED_LITERAL_POOL
#define REPEAT_CONS_EXPRESSIONS

struct fix;
struct alpha_reloc_tag;

extern int alpha_force_relocation (struct fix *);
extern int alpha_fix_adjustable   (struct fix *);

extern unsigned long alpha_gprmask, alpha_fprmask;
extern valueT alpha_gp_value;

#define TC_FORCE_RELOCATION(FIX)	alpha_force_relocation (FIX)
#define tc_fix_adjustable(FIX)		alpha_fix_adjustable (FIX)
#define RELOC_REQUIRES_SYMBOL

/* Values passed to md_apply_fix don't include the symbol value.  */
#define MD_APPLY_SYM_VALUE(FIX) 0

#define md_convert_frag(b,s,f)		as_fatal ("alpha convert_frag\n")
#define md_estimate_size_before_relax(f,s) \
			(as_fatal ("estimate_size_before_relax called"),1)
#define md_operand(x)

#ifdef OBJ_EVAX
#define TC_VALIDATE_FIX_SUB(FIX, SEG) 1

#define tc_canonicalize_symbol_name evax_shorten_name

#define TC_CONS_FIX_NEW(FRAG,OFF,LEN,EXP,RELOC)	\
      (void) RELOC,				\
      fix_new_exp (FRAG, OFF, (int)LEN, EXP, 0, \
	LEN == 2 ? BFD_RELOC_16 \
	: LEN == 4 ? BFD_RELOC_32 \
	: LEN == 8 ? BFD_RELOC_64 \
	: BFD_RELOC_ALPHA_LINKAGE);
#endif

#ifdef OBJ_EVAX
#define TC_IMPLICIT_LCOMM_ALIGNMENT(SIZE, P2VAR) (P2VAR) = 3
#else
#define TC_IMPLICIT_LCOMM_ALIGNMENT(size, align) \
  do							\
    {							\
      align = 0;					\
      if (size > 1)					\
	{						\
	  addressT temp = 1;				\
	  while ((size & temp) == 0)			\
	    ++align, temp <<= 1;			\
	}						\
    }							\
  while (0)
#endif

#define md_number_to_chars		number_to_chars_littleendian

extern int tc_get_register (int);
extern void alpha_frob_ecoff_data (void);

#define tc_frob_label(sym) alpha_define_label (sym)
extern void alpha_define_label (symbolS *);

#define md_cons_align(nbytes) alpha_cons_align (nbytes)
extern void alpha_cons_align (int);

#define HANDLE_ALIGN(fragp) alpha_handle_align (fragp)
extern void alpha_handle_align (struct frag *);

#define MAX_MEM_FOR_RS_ALIGN_CODE  (3 + 4 + 8)

#ifdef OBJ_ECOFF
#define tc_frob_file_before_adjust() alpha_frob_file_before_adjust ()
extern void alpha_frob_file_before_adjust (void);
#endif

#define DIFF_EXPR_OK   /* foo-. gets turned into PC relative relocs.  */

#ifdef OBJ_ELF
#define md_elf_section_letter		alpha_elf_section_letter
extern bfd_vma alpha_elf_section_letter (int, const char **);
#define md_elf_section_flags		alpha_elf_section_flags
extern flagword alpha_elf_section_flags (flagword, bfd_vma, int);
#endif

/* Whether to add support for explicit !relocation_op!sequence_number.  At the
   moment, only do this for ELF, though ECOFF could use it as well.  */

#ifdef OBJ_ELF
#define RELOC_OP_P
#endif

#ifndef OBJ_EVAX
/* Before the relocations are written, reorder them, so that user
   supplied !lituse relocations follow the appropriate !literal
   relocations.  Also convert the gas-internal relocations to the
   appropriate linker relocations.  */
#define tc_frob_file_before_fix() alpha_before_fix ()
extern void alpha_before_fix (void);
#endif

#ifdef OBJ_ELF
#define md_end  alpha_elf_md_end
extern void alpha_elf_md_end (void);
#endif

/* New fields for supporting explicit relocations (such as !literal to mark
   where a pointer is loaded from the global table, and !lituse_base to track
   all of the normal uses of that pointer).  */

#define TC_FIX_TYPE struct alpha_fix_tag

struct alpha_fix_tag
{
  struct fix *next_reloc;		/* Next !lituse or !gpdisp.  */
  struct alpha_reloc_tag *info;		/* Other members with same sequence.  */
};

/* Initialize the TC_FIX_TYPE field.  */
#define TC_INIT_FIX_DATA(FIX)						\
do {									\
  FIX->tc_fix_data.next_reloc = NULL;					\
  FIX->tc_fix_data.info = NULL;						\
} while (0)

/* Work with DEBUG5 to print fields in tc_fix_type.  */
#define TC_FIX_DATA_PRINT(STREAM, FIX)					\
do {									\
  if (FIX->tc_fix_data.info)						\
    fprintf (STREAM, "\tinfo = 0x%lx, next_reloc = 0x%lx\n", \
	     (long) FIX->tc_fix_data.info,				\
	     (long) FIX->tc_fix_data.next_reloc);			\
} while (0)

#define TARGET_USE_CFIPOP 1

#define tc_cfi_frame_initial_instructions alpha_cfi_frame_initial_instructions
extern void alpha_cfi_frame_initial_instructions (void);

#define DWARF2_LINE_MIN_INSN_LENGTH	4
#define DWARF2_DEFAULT_RETURN_COLUMN	26
#define DWARF2_CIE_DATA_ALIGNMENT	(-8)
Commit	Line	Data
	1	/* This file is tc-alpha.h
	2	Copyright (C) 1994-2020 Free Software Foundation, Inc.
	3	Written by Ken Raeburn <raeburn@cygnus.com>.
	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 3, 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 the Free
	19	Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
	20	02110-1301, USA. */
	21
	22	#define TC_ALPHA
	23
	24	#define TARGET_BYTES_BIG_ENDIAN 0
	25
	26	#define WORKING_DOT_WORD
	27
	28	#define TARGET_ARCH bfd_arch_alpha
	29
	30	#ifdef TE_FreeBSD
	31	#define ELF_TARGET_FORMAT "elf64-alpha-freebsd"
	32	#endif
	33	#ifndef ELF_TARGET_FORMAT
	34	#define ELF_TARGET_FORMAT "elf64-alpha"
	35	#endif
	36
	37	#define TARGET_FORMAT (OUTPUT_FLAVOR == bfd_target_ecoff_flavour \
	38	? "ecoff-littlealpha" \
	39	: OUTPUT_FLAVOR == bfd_target_elf_flavour \
	40	? ELF_TARGET_FORMAT \
	41	: OUTPUT_FLAVOR == bfd_target_evax_flavour \
	42	? "vms-alpha" \
	43	: "unknown-format")
	44
	45	#define NEED_LITERAL_POOL
	46	#define REPEAT_CONS_EXPRESSIONS
	47
	48	struct fix;
	49	struct alpha_reloc_tag;
	50
	51	extern int alpha_force_relocation (struct fix *);
	52	extern int alpha_fix_adjustable (struct fix *);
	53
	54	extern unsigned long alpha_gprmask, alpha_fprmask;
	55	extern valueT alpha_gp_value;
	56
	57	#define TC_FORCE_RELOCATION(FIX) alpha_force_relocation (FIX)
	58	#define tc_fix_adjustable(FIX) alpha_fix_adjustable (FIX)
	59	#define RELOC_REQUIRES_SYMBOL
	60
	61	/* Values passed to md_apply_fix don't include the symbol value. */
	62	#define MD_APPLY_SYM_VALUE(FIX) 0
	63
	64	#define md_convert_frag(b,s,f) as_fatal ("alpha convert_frag\n")
	65	#define md_estimate_size_before_relax(f,s) \
	66	(as_fatal ("estimate_size_before_relax called"),1)
	67	#define md_operand(x)
	68
	69	#ifdef OBJ_EVAX
	70	#define TC_VALIDATE_FIX_SUB(FIX, SEG) 1
	71
	72	#define tc_canonicalize_symbol_name evax_shorten_name
	73
	74	#define TC_CONS_FIX_NEW(FRAG,OFF,LEN,EXP,RELOC) \
	75	(void) RELOC, \
	76	fix_new_exp (FRAG, OFF, (int)LEN, EXP, 0, \
	77	LEN == 2 ? BFD_RELOC_16 \
	78	: LEN == 4 ? BFD_RELOC_32 \
	79	: LEN == 8 ? BFD_RELOC_64 \
	80	: BFD_RELOC_ALPHA_LINKAGE);
	81	#endif
	82
	83	#ifdef OBJ_EVAX
	84	#define TC_IMPLICIT_LCOMM_ALIGNMENT(SIZE, P2VAR) (P2VAR) = 3
	85	#else
	86	#define TC_IMPLICIT_LCOMM_ALIGNMENT(size, align) \
	87	do \
	88	{ \
	89	align = 0; \
	90	if (size > 1) \
	91	{ \
	92	addressT temp = 1; \
	93	while ((size & temp) == 0) \
	94	++align, temp <<= 1; \
	95	} \
	96	} \
	97	while (0)
	98	#endif
	99
	100	#define md_number_to_chars number_to_chars_littleendian
	101
	102	extern int tc_get_register (int);
	103	extern void alpha_frob_ecoff_data (void);
	104
	105	#define tc_frob_label(sym) alpha_define_label (sym)
	106	extern void alpha_define_label (symbolS *);
	107
	108	#define md_cons_align(nbytes) alpha_cons_align (nbytes)
	109	extern void alpha_cons_align (int);
	110
	111	#define HANDLE_ALIGN(fragp) alpha_handle_align (fragp)
	112	extern void alpha_handle_align (struct frag *);
	113
	114	#define MAX_MEM_FOR_RS_ALIGN_CODE (3 + 4 + 8)
	115
	116	#ifdef OBJ_ECOFF
	117	#define tc_frob_file_before_adjust() alpha_frob_file_before_adjust ()
	118	extern void alpha_frob_file_before_adjust (void);
	119	#endif
	120
	121	#define DIFF_EXPR_OK /* foo-. gets turned into PC relative relocs. */
	122
	123	#ifdef OBJ_ELF
	124	#define md_elf_section_letter alpha_elf_section_letter
	125	extern bfd_vma alpha_elf_section_letter (int, const char **);
	126	#define md_elf_section_flags alpha_elf_section_flags
	127	extern flagword alpha_elf_section_flags (flagword, bfd_vma, int);
	128	#endif
	129
	130	/* Whether to add support for explicit !relocation_op!sequence_number. At the
	131	moment, only do this for ELF, though ECOFF could use it as well. */
	132
	133	#ifdef OBJ_ELF
	134	#define RELOC_OP_P
	135	#endif
	136
	137	#ifndef OBJ_EVAX
	138	/* Before the relocations are written, reorder them, so that user
	139	supplied !lituse relocations follow the appropriate !literal
	140	relocations. Also convert the gas-internal relocations to the
	141	appropriate linker relocations. */
	142	#define tc_frob_file_before_fix() alpha_before_fix ()
	143	extern void alpha_before_fix (void);
	144	#endif
	145
	146	#ifdef OBJ_ELF
	147	#define md_end alpha_elf_md_end
	148	extern void alpha_elf_md_end (void);
	149	#endif
	150
	151	/* New fields for supporting explicit relocations (such as !literal to mark
	152	where a pointer is loaded from the global table, and !lituse_base to track
	153	all of the normal uses of that pointer). */
	154
	155	#define TC_FIX_TYPE struct alpha_fix_tag
	156
	157	struct alpha_fix_tag
	158	{
	159	struct fix next_reloc; / Next !lituse or !gpdisp. */
	160	struct alpha_reloc_tag info; / Other members with same sequence. */
	161	};
	162
	163	/* Initialize the TC_FIX_TYPE field. */
	164	#define TC_INIT_FIX_DATA(FIX) \
	165	do { \
	166	FIX->tc_fix_data.next_reloc = NULL; \
	167	FIX->tc_fix_data.info = NULL; \
	168	} while (0)
	169
	170	/* Work with DEBUG5 to print fields in tc_fix_type. */
	171	#define TC_FIX_DATA_PRINT(STREAM, FIX) \
	172	do { \
	173	if (FIX->tc_fix_data.info) \
	174	fprintf (STREAM, "\tinfo = 0x%lx, next_reloc = 0x%lx\n", \
	175	(long) FIX->tc_fix_data.info, \
	176	(long) FIX->tc_fix_data.next_reloc); \
	177	} while (0)
	178
	179	#define TARGET_USE_CFIPOP 1
	180
	181	#define tc_cfi_frame_initial_instructions alpha_cfi_frame_initial_instructions
	182	extern void alpha_cfi_frame_initial_instructions (void);
	183
	184	#define DWARF2_LINE_MIN_INSN_LENGTH 4
	185	#define DWARF2_DEFAULT_RETURN_COLUMN 26
	186	#define DWARF2_CIE_DATA_ALIGNMENT (-8)