1 /* This file is tc-alpha.h 2 Copyright (C) 1994-2021 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) 187