| 1 | /* This file is tc-arm.h |
| 2 | Copyright (C) 1994-2015 Free Software Foundation, Inc. |
| 3 | Contributed by Richard Earnshaw (rwe@pegasus.esprit.ec.org) |
| 4 | Modified by David Taylor (dtaylor@armltd.co.uk) |
| 5 | |
| 6 | This file is part of GAS, the GNU Assembler. |
| 7 | |
| 8 | GAS 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, or (at your option) |
| 11 | any later version. |
| 12 | |
| 13 | GAS 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 GAS; see the file COPYING. If not, write to the Free |
| 20 | Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA |
| 21 | 02110-1301, USA. */ |
| 22 | |
| 23 | #define TC_ARM 1 |
| 24 | |
| 25 | #ifndef TARGET_BYTES_BIG_ENDIAN |
| 26 | #define TARGET_BYTES_BIG_ENDIAN 0 |
| 27 | #endif |
| 28 | |
| 29 | #define WORKING_DOT_WORD |
| 30 | |
| 31 | #define COFF_MAGIC ARMMAGIC |
| 32 | #define TARGET_ARCH bfd_arch_arm |
| 33 | |
| 34 | #define DIFF_EXPR_OK |
| 35 | |
| 36 | #ifdef LITTLE_ENDIAN |
| 37 | #undef LITTLE_ENDIAN |
| 38 | #endif |
| 39 | |
| 40 | #ifdef BIG_ENDIAN |
| 41 | #undef BIG_ENDIAN |
| 42 | #endif |
| 43 | |
| 44 | #define LITTLE_ENDIAN 1234 |
| 45 | #define BIG_ENDIAN 4321 |
| 46 | |
| 47 | struct fix; |
| 48 | |
| 49 | #if defined OBJ_AOUT |
| 50 | # if defined TE_RISCIX |
| 51 | # define TARGET_FORMAT "a.out-riscix" |
| 52 | # elif defined TE_LINUX |
| 53 | # define ARM_BI_ENDIAN |
| 54 | # define TARGET_FORMAT "a.out-arm-linux" |
| 55 | # elif defined TE_NetBSD |
| 56 | # define TARGET_FORMAT "a.out-arm-netbsd" |
| 57 | # else |
| 58 | # define ARM_BI_ENDIAN |
| 59 | # define TARGET_FORMAT (target_big_endian ? "a.out-arm-big" : "a.out-arm-little") |
| 60 | # endif |
| 61 | #elif defined OBJ_AIF |
| 62 | # define TARGET_FORMAT "aif" |
| 63 | #elif defined OBJ_COFF |
| 64 | # define ARM_BI_ENDIAN |
| 65 | # if defined TE_PE |
| 66 | # if defined TE_EPOC |
| 67 | # define TARGET_FORMAT (target_big_endian ? "epoc-pe-arm-big" : "epoc-pe-arm-little") |
| 68 | # elif defined TE_WINCE |
| 69 | # define TARGET_FORMAT (target_big_endian ? "pe-arm-wince-big" : "pe-arm-wince-little") |
| 70 | # else |
| 71 | # define TARGET_FORMAT (target_big_endian ? "pe-arm-big" : "pe-arm-little") |
| 72 | # endif |
| 73 | # else |
| 74 | # define TARGET_FORMAT (target_big_endian ? "coff-arm-big" : "coff-arm-little") |
| 75 | # endif |
| 76 | #elif defined OBJ_ELF |
| 77 | # define ARM_BI_ENDIAN |
| 78 | # define TARGET_FORMAT elf32_arm_target_format () |
| 79 | #endif |
| 80 | |
| 81 | /* We support double slash line-comments for compatibility with the ARM AArch64 Assembler. */ |
| 82 | #define DOUBLESLASH_LINE_COMMENTS |
| 83 | |
| 84 | /* We conditionally support labels without a colon. */ |
| 85 | #define LABELS_WITHOUT_COLONS codecomposer_syntax |
| 86 | extern bfd_boolean codecomposer_syntax; |
| 87 | |
| 88 | #define tc_symbol_chars arm_symbol_chars |
| 89 | extern const char arm_symbol_chars[]; |
| 90 | |
| 91 | #define TC_FORCE_RELOCATION(FIX) arm_force_relocation (FIX) |
| 92 | |
| 93 | extern unsigned int arm_frag_max_var (struct frag *); |
| 94 | #define md_frag_max_var arm_frag_max_var |
| 95 | |
| 96 | #define md_relax_frag(segment, fragp, stretch) \ |
| 97 | arm_relax_frag (segment, fragp, stretch) |
| 98 | extern int arm_relax_frag (asection *, struct frag *, long); |
| 99 | |
| 100 | #define md_optimize_expr(l,o,r) arm_optimize_expr (l, o, r) |
| 101 | extern int arm_optimize_expr (expressionS *, operatorT, expressionS *); |
| 102 | |
| 103 | #define md_cleanup() arm_cleanup () |
| 104 | |
| 105 | #define md_start_line_hook() arm_start_line_hook () |
| 106 | |
| 107 | #define TC_START_LABEL_WITHOUT_COLON(NUL_CHAR, NEXT_CHAR) \ |
| 108 | tc_start_label_without_colon () |
| 109 | extern bfd_boolean tc_start_label_without_colon (void); |
| 110 | |
| 111 | #define tc_frob_label(S) arm_frob_label (S) |
| 112 | |
| 113 | /* We also need to mark assembler created symbols: */ |
| 114 | #define tc_frob_fake_label(S) arm_frob_label (S) |
| 115 | |
| 116 | #ifdef OBJ_ELF |
| 117 | #define md_end arm_md_end |
| 118 | extern void arm_md_end (void); |
| 119 | bfd_boolean arm_is_eabi (void); |
| 120 | |
| 121 | #define md_post_relax_hook aeabi_set_public_attributes () |
| 122 | extern void aeabi_set_public_attributes (void); |
| 123 | #endif |
| 124 | |
| 125 | /* NOTE: The fake label creation in stabs.c:s_stab_generic() has |
| 126 | deliberately not been updated to mark assembler created stabs |
| 127 | symbols as Thumb. */ |
| 128 | |
| 129 | #define TC_FIX_TYPE int |
| 130 | #define TC_INIT_FIX_DATA(FIX) ((FIX)->tc_fix_data = 0) |
| 131 | |
| 132 | /* We need to keep some local information on symbols. */ |
| 133 | |
| 134 | #define TC_SYMFIELD_TYPE unsigned int |
| 135 | #define ARM_GET_FLAG(s) (*symbol_get_tc (s)) |
| 136 | #define ARM_SET_FLAG(s,v) (*symbol_get_tc (s) |= (v)) |
| 137 | #define ARM_RESET_FLAG(s,v) (*symbol_get_tc (s) &= ~(v)) |
| 138 | |
| 139 | #define ARM_FLAG_THUMB (1 << 0) /* The symbol is a Thumb symbol rather than an Arm symbol. */ |
| 140 | #define ARM_FLAG_INTERWORK (1 << 1) /* The symbol is attached to code that supports interworking. */ |
| 141 | #define THUMB_FLAG_FUNC (1 << 2) /* The symbol is attached to the start of a Thumb function. */ |
| 142 | |
| 143 | #define ARM_IS_THUMB(s) (ARM_GET_FLAG (s) & ARM_FLAG_THUMB) |
| 144 | #define ARM_IS_INTERWORK(s) (ARM_GET_FLAG (s) & ARM_FLAG_INTERWORK) |
| 145 | |
| 146 | #ifdef OBJ_ELF |
| 147 | |
| 148 | /* For ELF objects THUMB_IS_FUNC is inferred from |
| 149 | ARM_IS_THUMB and the function type. */ |
| 150 | #define THUMB_IS_FUNC(s) \ |
| 151 | ((s) != NULL \ |
| 152 | && ((arm_is_eabi () \ |
| 153 | && (ARM_IS_THUMB (s)) \ |
| 154 | && (symbol_get_bfdsym (s)->flags & BSF_FUNCTION)) \ |
| 155 | || (ARM_GET_FLAG (s) & THUMB_FLAG_FUNC))) |
| 156 | |
| 157 | #define ARM_IS_FUNC(s) \ |
| 158 | (((s) != NULL \ |
| 159 | && arm_is_eabi () \ |
| 160 | && !(ARM_IS_THUMB (s)) \ |
| 161 | /* && !(THUMB_FLAG_FUNC & ARM_GET_FLAG (s)) \ */ \ |
| 162 | && (symbol_get_bfdsym (s)->flags & BSF_FUNCTION))) |
| 163 | |
| 164 | |
| 165 | #else |
| 166 | |
| 167 | #define THUMB_IS_FUNC(s) ((s) && ARM_GET_FLAG (s) & THUMB_FLAG_FUNC) |
| 168 | #define ARM_IS_FUNC(s) (!THUMB_IS_FUNC (s) \ |
| 169 | && (s) && (symbol_get_bfdsym (s)->flags & BSF_FUNCTION)) |
| 170 | #endif |
| 171 | |
| 172 | #define ARM_SET_THUMB(s,t) ((t) ? ARM_SET_FLAG (s, ARM_FLAG_THUMB) : ARM_RESET_FLAG (s, ARM_FLAG_THUMB)) |
| 173 | #define ARM_SET_INTERWORK(s,t) ((t) ? ARM_SET_FLAG (s, ARM_FLAG_INTERWORK) : ARM_RESET_FLAG (s, ARM_FLAG_INTERWORK)) |
| 174 | #define THUMB_SET_FUNC(s,t) ((t) ? ARM_SET_FLAG (s, THUMB_FLAG_FUNC) : ARM_RESET_FLAG (s, THUMB_FLAG_FUNC)) |
| 175 | |
| 176 | void arm_copy_symbol_attributes (symbolS *, symbolS *); |
| 177 | |
| 178 | #ifndef TC_COPY_SYMBOL_ATTRIBUTES |
| 179 | #define TC_COPY_SYMBOL_ATTRIBUTES(DEST, SRC) \ |
| 180 | (arm_copy_symbol_attributes (DEST, SRC)) |
| 181 | #endif |
| 182 | |
| 183 | #define TC_START_LABEL(STR, NUL_CHAR, NEXT_CHAR) \ |
| 184 | (NEXT_CHAR == ':' || (NEXT_CHAR == '/' && arm_data_in_code ())) |
| 185 | #define tc_canonicalize_symbol_name(str) arm_canonicalize_symbol_name (str); |
| 186 | #define obj_adjust_symtab() arm_adjust_symtab () |
| 187 | |
| 188 | #define LISTING_HEADER "ARM GAS " |
| 189 | |
| 190 | #define OPTIONAL_REGISTER_PREFIX '%' |
| 191 | |
| 192 | #define LOCAL_LABEL(name) (name[0] == '.' && name[1] == 'L') |
| 193 | #define LOCAL_LABELS_FB 1 |
| 194 | |
| 195 | /* This expression evaluates to true if the relocation is for a local |
| 196 | object for which we still want to do the relocation at runtime. |
| 197 | False if we are willing to perform this relocation while building |
| 198 | the .o file. GOTOFF does not need to be checked here because it is |
| 199 | not pcrel. I am not sure if some of the others are ever used with |
| 200 | pcrel, but it is easier to be safe than sorry. */ |
| 201 | |
| 202 | #define TC_FORCE_RELOCATION_LOCAL(FIX) \ |
| 203 | (!(FIX)->fx_pcrel \ |
| 204 | || (FIX)->fx_r_type == BFD_RELOC_ARM_GOT32 \ |
| 205 | || (FIX)->fx_r_type == BFD_RELOC_32 \ |
| 206 | || ((FIX)->fx_addsy != NULL && S_IS_WEAK ((FIX)->fx_addsy)) \ |
| 207 | || TC_FORCE_RELOCATION (FIX)) |
| 208 | |
| 209 | /* Force output of R_ARM_REL32 relocations against thumb function symbols. |
| 210 | This is needed to ensure the low bit is handled correctly. */ |
| 211 | #define TC_FORCE_RELOCATION_SUB_SAME(FIX, SEG) \ |
| 212 | (THUMB_IS_FUNC ((FIX)->fx_addsy) \ |
| 213 | || !SEG_NORMAL (SEG)) |
| 214 | |
| 215 | #define TC_FORCE_RELOCATION_ABS(FIX) \ |
| 216 | (((FIX)->fx_pcrel \ |
| 217 | && (FIX)->fx_r_type != BFD_RELOC_32 \ |
| 218 | && (FIX)->fx_r_type != BFD_RELOC_ARM_GOT32) \ |
| 219 | || TC_FORCE_RELOCATION(FIX)) |
| 220 | |
| 221 | #define TC_CONS_FIX_NEW cons_fix_new_arm |
| 222 | |
| 223 | #define MAX_MEM_ALIGNMENT_BYTES 6 |
| 224 | #define MAX_MEM_FOR_RS_ALIGN_CODE ((1 << MAX_MEM_ALIGNMENT_BYTES) - 1) |
| 225 | |
| 226 | /* For frags in code sections we need to record whether they contain |
| 227 | ARM code or THUMB code. This is that if they have to be aligned, |
| 228 | they can contain the correct type of no-op instruction. */ |
| 229 | struct arm_frag_type |
| 230 | { |
| 231 | int thumb_mode; |
| 232 | #ifdef OBJ_ELF |
| 233 | /* If there is a mapping symbol at offset 0 in this frag, |
| 234 | it will be saved in FIRST_MAP. If there are any mapping |
| 235 | symbols in this frag, the last one will be saved in |
| 236 | LAST_MAP. */ |
| 237 | symbolS *first_map, *last_map; |
| 238 | #endif |
| 239 | }; |
| 240 | |
| 241 | static inline int |
| 242 | arm_min (int am_p1, int am_p2) |
| 243 | { |
| 244 | return am_p1 < am_p2 ? am_p1 : am_p2; |
| 245 | } |
| 246 | |
| 247 | #define TC_FRAG_TYPE struct arm_frag_type |
| 248 | /* NOTE: max_chars is a local variable from frag_var / frag_variant. */ |
| 249 | #define TC_FRAG_INIT(fragp) arm_init_frag (fragp, max_chars) |
| 250 | #define TC_ALIGN_ZERO_IS_DEFAULT 1 |
| 251 | #define HANDLE_ALIGN(fragp) arm_handle_align (fragp) |
| 252 | /* PR gas/19276: COFF/PE segment alignment is already handled in coff_frob_section(). */ |
| 253 | #ifndef TE_PE |
| 254 | #define SUB_SEGMENT_ALIGN(SEG, FRCHAIN) \ |
| 255 | ((!(FRCHAIN)->frch_next && subseg_text_p (SEG)) \ |
| 256 | ? arm_min (2, get_recorded_alignment (SEG)) : 0) |
| 257 | #endif |
| 258 | |
| 259 | #define md_do_align(N, FILL, LEN, MAX, LABEL) \ |
| 260 | if (FILL == NULL && (N) != 0 && ! need_pass_2 && subseg_text_p (now_seg)) \ |
| 261 | { \ |
| 262 | arm_frag_align_code (N, MAX); \ |
| 263 | goto LABEL; \ |
| 264 | } |
| 265 | |
| 266 | #define DWARF2_LINE_MIN_INSN_LENGTH 2 |
| 267 | |
| 268 | /* The lr register is r14. */ |
| 269 | #define DWARF2_DEFAULT_RETURN_COLUMN 14 |
| 270 | |
| 271 | /* Registers are generally saved at negative offsets to the CFA. */ |
| 272 | #define DWARF2_CIE_DATA_ALIGNMENT (-4) |
| 273 | |
| 274 | /* State variables for IT block handling. */ |
| 275 | enum it_state |
| 276 | { |
| 277 | OUTSIDE_IT_BLOCK, MANUAL_IT_BLOCK, AUTOMATIC_IT_BLOCK |
| 278 | }; |
| 279 | struct current_it |
| 280 | { |
| 281 | int mask; |
| 282 | enum it_state state; |
| 283 | int cc; |
| 284 | int block_length; |
| 285 | char *insn; |
| 286 | int state_handled; |
| 287 | int warn_deprecated; |
| 288 | int insn_cond; |
| 289 | }; |
| 290 | |
| 291 | #ifdef OBJ_ELF |
| 292 | # define obj_frob_symbol(sym, punt) armelf_frob_symbol ((sym), & (punt)) |
| 293 | # define md_elf_section_change_hook() arm_elf_change_section () |
| 294 | # define md_elf_section_type(str, len) arm_elf_section_type (str, len) |
| 295 | # define GLOBAL_OFFSET_TABLE_NAME "_GLOBAL_OFFSET_TABLE_" |
| 296 | # define TC_SEGMENT_INFO_TYPE struct arm_segment_info_type |
| 297 | |
| 298 | /* This is not really an alignment operation, but it's something we |
| 299 | need to do at the same time: whenever we are figuring out the |
| 300 | alignment for data, we should check whether a $d symbol is |
| 301 | necessary. */ |
| 302 | # define md_cons_align(nbytes) mapping_state (MAP_DATA) |
| 303 | |
| 304 | enum mstate |
| 305 | { |
| 306 | MAP_UNDEFINED = 0, /* Must be zero, for seginfo in new sections. */ |
| 307 | MAP_DATA, |
| 308 | MAP_ARM, |
| 309 | MAP_THUMB |
| 310 | }; |
| 311 | |
| 312 | void mapping_state (enum mstate); |
| 313 | |
| 314 | struct arm_segment_info_type |
| 315 | { |
| 316 | enum mstate mapstate; |
| 317 | |
| 318 | /* Bit N indicates that an R_ARM_NONE relocation has been output for |
| 319 | __aeabi_unwind_cpp_prN already if set. This enables dependencies to be |
| 320 | emitted only once per section, to save unnecessary bloat. */ |
| 321 | unsigned int marked_pr_dependency; |
| 322 | |
| 323 | struct current_it current_it; |
| 324 | }; |
| 325 | |
| 326 | /* We want .cfi_* pseudo-ops for generating unwind info. */ |
| 327 | #define TARGET_USE_CFIPOP 1 |
| 328 | |
| 329 | /* CFI hooks. */ |
| 330 | #define tc_regname_to_dw2regnum tc_arm_regname_to_dw2regnum |
| 331 | #define tc_cfi_frame_initial_instructions tc_arm_frame_initial_instructions |
| 332 | |
| 333 | #else /* Not OBJ_ELF. */ |
| 334 | #define GLOBAL_OFFSET_TABLE_NAME "__GLOBAL_OFFSET_TABLE_" |
| 335 | #endif |
| 336 | |
| 337 | #if defined OBJ_ELF || defined OBJ_COFF |
| 338 | |
| 339 | # define EXTERN_FORCE_RELOC 1 |
| 340 | # define tc_fix_adjustable(FIX) arm_fix_adjustable (FIX) |
| 341 | #endif |
| 342 | |
| 343 | #ifdef OBJ_ELF |
| 344 | /* Values passed to md_apply_fix don't include the symbol value. */ |
| 345 | # define MD_APPLY_SYM_VALUE(FIX) arm_apply_sym_value (FIX, this_segment) |
| 346 | #endif |
| 347 | |
| 348 | #ifdef OBJ_COFF |
| 349 | # define TC_VALIDATE_FIX(FIX, SEGTYPE, LABEL) arm_validate_fix (FIX) |
| 350 | /* Values passed to md_apply_fix don't include the symbol value. */ |
| 351 | # define MD_APPLY_SYM_VALUE(FIX) 0 |
| 352 | #endif |
| 353 | |
| 354 | #define MD_PCREL_FROM_SECTION(F,S) md_pcrel_from_section(F,S) |
| 355 | |
| 356 | extern long md_pcrel_from_section (struct fix *, segT); |
| 357 | extern void arm_frag_align_code (int, int); |
| 358 | extern void arm_validate_fix (struct fix *); |
| 359 | extern const char * elf32_arm_target_format (void); |
| 360 | extern void arm_elf_change_section (void); |
| 361 | extern int arm_force_relocation (struct fix *); |
| 362 | extern void arm_cleanup (void); |
| 363 | extern void arm_start_line_hook (void); |
| 364 | extern void arm_frob_label (symbolS *); |
| 365 | extern int arm_data_in_code (void); |
| 366 | extern char * arm_canonicalize_symbol_name (char *); |
| 367 | extern void arm_adjust_symtab (void); |
| 368 | extern void armelf_frob_symbol (symbolS *, int *); |
| 369 | extern void cons_fix_new_arm (fragS *, int, int, expressionS *, |
| 370 | bfd_reloc_code_real_type); |
| 371 | extern void arm_init_frag (struct frag *, int); |
| 372 | extern void arm_handle_align (struct frag *); |
| 373 | extern bfd_boolean arm_fix_adjustable (struct fix *); |
| 374 | extern int arm_elf_section_type (const char *, size_t); |
| 375 | extern int tc_arm_regname_to_dw2regnum (char *regname); |
| 376 | extern void tc_arm_frame_initial_instructions (void); |
| 377 | |
| 378 | #ifdef TE_PE |
| 379 | |
| 380 | #define O_secrel O_md1 |
| 381 | |
| 382 | #define TC_DWARF2_EMIT_OFFSET tc_pe_dwarf2_emit_offset |
| 383 | void tc_pe_dwarf2_emit_offset (symbolS *, unsigned int); |
| 384 | |
| 385 | #endif /* TE_PE */ |
| 386 | |
| 387 | #ifdef OBJ_ELF |
| 388 | #define CONVERT_SYMBOLIC_ATTRIBUTE(name) arm_convert_symbolic_attribute (name) |
| 389 | extern int arm_convert_symbolic_attribute (const char *); |
| 390 | extern int arm_apply_sym_value (struct fix *, segT); |
| 391 | #endif |
| 392 | |
| 393 | #define tc_comment_chars arm_comment_chars |
| 394 | extern char arm_comment_chars[]; |
| 395 | |
| 396 | #define tc_line_separator_chars arm_line_separator_chars |
| 397 | extern char arm_line_separator_chars[]; |
| 398 | |
| 399 | #define TC_EQUAL_IN_INSN(c, s) arm_tc_equal_in_insn ((c), (s)) |
| 400 | extern bfd_boolean arm_tc_equal_in_insn (int, char *); |