| 1 | /* tc-hppa.h -- Header file for the PA |
| 2 | Copyright (C) 1989-2019 Free Software Foundation, Inc. |
| 3 | |
| 4 | This file is part of GAS, the GNU Assembler. |
| 5 | |
| 6 | GAS 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 3, or (at your option) |
| 9 | any later version. |
| 10 | |
| 11 | GAS 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 GAS; see the file COPYING. If not, write to the Free |
| 18 | Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA |
| 19 | 02110-1301, USA. */ |
| 20 | |
| 21 | /* HP PA-RISC support was contributed by the Center for Software Science |
| 22 | at the University of Utah. */ |
| 23 | |
| 24 | /* Please refrain from exposing the world to the internals of tc-hppa.c |
| 25 | when this file is included. This means only declaring exported functions, |
| 26 | (please PARAMize them!) not exporting structures and data items which |
| 27 | are used solely within tc-hppa.c, etc. |
| 28 | |
| 29 | Also refrain from adding any more object file dependent code, there is |
| 30 | already far too much object file format dependent code in this file. |
| 31 | In theory this file should contain only exported functions, structures |
| 32 | and data declarations common to all PA assemblers. */ |
| 33 | |
| 34 | #ifndef _TC_HPPA_H |
| 35 | #define _TC_HPPA_H |
| 36 | |
| 37 | #ifndef TC_HPPA |
| 38 | #define TC_HPPA 1 |
| 39 | #endif |
| 40 | |
| 41 | #define TARGET_BYTES_BIG_ENDIAN 1 |
| 42 | |
| 43 | #define TARGET_ARCH bfd_arch_hppa |
| 44 | |
| 45 | #define WORKING_DOT_WORD |
| 46 | |
| 47 | #ifdef OBJ_ELF |
| 48 | #if TARGET_ARCH_SIZE == 64 |
| 49 | #include "bfd/elf64-hppa.h" |
| 50 | #if defined (TE_LINUX) || defined (TE_NetBSD) |
| 51 | #define TARGET_FORMAT "elf64-hppa-linux" |
| 52 | #else |
| 53 | #define TARGET_FORMAT "elf64-hppa" |
| 54 | #endif |
| 55 | #else /* TARGET_ARCH_SIZE == 32 */ |
| 56 | #include "bfd/elf32-hppa.h" |
| 57 | #if defined (TE_LINUX) |
| 58 | #define TARGET_FORMAT "elf32-hppa-linux" |
| 59 | #else |
| 60 | #if defined (TE_NetBSD) |
| 61 | #define TARGET_FORMAT "elf32-hppa-netbsd" |
| 62 | #else |
| 63 | #define TARGET_FORMAT "elf32-hppa" |
| 64 | #endif |
| 65 | #endif |
| 66 | #endif |
| 67 | #endif |
| 68 | |
| 69 | #ifdef OBJ_SOM |
| 70 | #include "bfd/som.h" |
| 71 | #define TARGET_FORMAT "som" |
| 72 | #endif |
| 73 | |
| 74 | #if defined(TE_LINUX) || defined(TE_NetBSD) |
| 75 | /* Define to compile in an extra assembler option, -c, which enables a |
| 76 | warning (once per file) when a comment is encountered. |
| 77 | The hppa comment char is a `;' which tends to occur in random C asm |
| 78 | statements. A semicolon is a line separator for most assemblers. |
| 79 | It's hard to find these lurking semicolons. Thus... */ |
| 80 | #define WARN_COMMENTS 1 |
| 81 | #endif |
| 82 | |
| 83 | /* FIXME. Why oh why aren't these defined somewhere globally? */ |
| 84 | #ifndef FALSE |
| 85 | #define FALSE (0) |
| 86 | #define TRUE (!FALSE) |
| 87 | #endif |
| 88 | |
| 89 | #define ASEC_NULL (asection *)0 |
| 90 | |
| 91 | /* pa_define_label gets used outside of tc-hppa.c via tc_frob_label. */ |
| 92 | extern void pa_define_label (symbolS *); |
| 93 | extern int parse_cons_expression_hppa (expressionS *); |
| 94 | extern void cons_fix_new_hppa (fragS *, int, int, expressionS *, int); |
| 95 | extern int hppa_force_relocation (struct fix *); |
| 96 | |
| 97 | /* This gets called before writing the object file to make sure |
| 98 | things like entry/exit and proc/procend pairs match. */ |
| 99 | extern void pa_check_eof (void); |
| 100 | #define tc_frob_file pa_check_eof |
| 101 | |
| 102 | #define tc_frob_label(sym) pa_define_label (sym) |
| 103 | |
| 104 | extern const char hppa_symbol_chars[]; |
| 105 | #define tc_symbol_chars hppa_symbol_chars |
| 106 | |
| 107 | #define RELOC_EXPANSION_POSSIBLE |
| 108 | #define MAX_RELOC_EXPANSION 6 |
| 109 | |
| 110 | /* The PA needs to parse field selectors in .byte, etc. */ |
| 111 | |
| 112 | #define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \ |
| 113 | parse_cons_expression_hppa (EXP) |
| 114 | #define TC_CONS_FIX_NEW cons_fix_new_hppa |
| 115 | #define TC_PARSE_CONS_RETURN_TYPE int |
| 116 | #define TC_PARSE_CONS_RETURN_NONE e_fsel |
| 117 | |
| 118 | /* On the PA, an exclamation point can appear in an instruction. It is |
| 119 | used in FP comparison instructions and as an end of line marker. |
| 120 | When used in an instruction it will always follow a comma. */ |
| 121 | #define TC_EOL_IN_INSN(PTR) (*(PTR) == '!' && (PTR)[-1] == ',') |
| 122 | |
| 123 | int hppa_fix_adjustable (struct fix *); |
| 124 | #define tc_fix_adjustable hppa_fix_adjustable |
| 125 | |
| 126 | #define EXTERN_FORCE_RELOC 1 |
| 127 | |
| 128 | /* Because of the strange PA calling conventions, it is sometimes |
| 129 | necessary to emit a relocation for a call even though it would |
| 130 | normally appear safe to handle it completely within GAS. */ |
| 131 | #define TC_FORCE_RELOCATION(FIX) hppa_force_relocation (FIX) |
| 132 | |
| 133 | /* Values passed to md_apply_fix don't include the symbol value. */ |
| 134 | #define MD_APPLY_SYM_VALUE(FIX) 0 |
| 135 | |
| 136 | #ifdef OBJ_SOM |
| 137 | /* If a symbol is imported, but never used, then the symbol should |
| 138 | *not* end up in the symbol table. Likewise for absolute symbols |
| 139 | with local scope. */ |
| 140 | #define tc_frob_symbol(sym,punt) \ |
| 141 | if ((S_GET_SEGMENT (sym) == bfd_und_section_ptr && ! symbol_used_p (sym)) \ |
| 142 | || (S_GET_SEGMENT (sym) == bfd_abs_section_ptr \ |
| 143 | && ! S_IS_EXTERNAL (sym))) \ |
| 144 | punt = 1 |
| 145 | |
| 146 | /* We need to be able to make relocations involving the difference of |
| 147 | two symbols. This includes the difference of two symbols when |
| 148 | one of them is undefined (this comes up in PIC code generation). |
| 149 | |
| 150 | We allow the difference of two symbols when the subtract symbol is |
| 151 | local to the relocation. This is implemented using R_HPPA_COMPLEX. |
| 152 | |
| 153 | This has some limitations. Difference expressions only work between |
| 154 | symbols in the same segment/quadrant of a module since the HP dynamic |
| 155 | loader relocates the text and data segments independently. Thus, a |
| 156 | difference expression can't be used between text and data symbols, |
| 157 | or between symbols in different executable modules. */ |
| 158 | #define DIFF_EXPR_OK 1 |
| 159 | #define TC_FORCE_RELOCATION_SUB_LOCAL(FIX, SEG) 1 |
| 160 | #define UNDEFINED_DIFFERENCE_OK |
| 161 | #endif |
| 162 | |
| 163 | #ifdef OBJ_ELF |
| 164 | |
| 165 | /* Difference expressions for the 64-bit HP-UX target have the same |
| 166 | limitations as those for the 32-bit SOM target. */ |
| 167 | #define DIFF_EXPR_OK 1 |
| 168 | |
| 169 | /* Handle .type pseudo. Given a type string of `millicode', set the |
| 170 | internal elf symbol type to STT_PARISC_MILLI, and return |
| 171 | BSF_FUNCTION for the BFD symbol type. */ |
| 172 | #define md_elf_symbol_type(name, sym, elf) \ |
| 173 | ((strcmp ((name), "millicode") == 0 \ |
| 174 | || strcmp ((name), "STT_PARISC_MILLI") == 0) \ |
| 175 | ? (((elf)->internal_elf_sym.st_info = ELF_ST_INFO \ |
| 176 | (ELF_ST_BIND ((elf)->internal_elf_sym.st_info), STT_PARISC_MILLI)\ |
| 177 | ), BSF_FUNCTION) \ |
| 178 | : -1) |
| 179 | |
| 180 | /* Handle type change from .type pseudo: Zap STT_PARISC_MILLI when |
| 181 | switching to a non-function type. */ |
| 182 | #define md_elf_symbol_type_change(sym, elf, type) \ |
| 183 | ((type) != BSF_FUNCTION \ |
| 184 | && (((elf)->internal_elf_sym.st_info = \ |
| 185 | ELF_ST_INFO (ELF_ST_BIND ((elf)->internal_elf_sym.st_info), \ |
| 186 | STT_NOTYPE)), 0)) |
| 187 | |
| 188 | #define tc_frob_symbol(sym,punt) \ |
| 189 | { \ |
| 190 | if ((S_GET_SEGMENT (sym) == bfd_und_section_ptr \ |
| 191 | && ! symbol_used_p (sym) \ |
| 192 | && ELF_ST_VISIBILITY (S_GET_OTHER (sym)) == STV_DEFAULT) \ |
| 193 | || strcmp (S_GET_NAME (sym), "$global$") == 0 \ |
| 194 | || strcmp (S_GET_NAME (sym), "$segrel$") == 0 \ |
| 195 | || strcmp (S_GET_NAME (sym), "$PIC_pcrel$0") == 0 \ |
| 196 | || strcmp (S_GET_NAME (sym), "$tls_gdidx$") == 0 \ |
| 197 | || strcmp (S_GET_NAME (sym), "$tls_ldidx$") == 0 \ |
| 198 | || strcmp (S_GET_NAME (sym), "$tls_dtpoff$") == 0 \ |
| 199 | || strcmp (S_GET_NAME (sym), "$tls_ieoff$") == 0 \ |
| 200 | || strcmp (S_GET_NAME (sym), "$tls_leoff$") == 0) \ |
| 201 | punt = 1; \ |
| 202 | } |
| 203 | |
| 204 | #define elf_tc_final_processing elf_hppa_final_processing |
| 205 | void elf_hppa_final_processing (void); |
| 206 | #endif /* OBJ_ELF */ |
| 207 | |
| 208 | #define md_operand(x) |
| 209 | |
| 210 | /* Allow register expressions to be treated as absolute expressions. |
| 211 | A silly fudge required for backwards compatibility. */ |
| 212 | #define md_optimize_expr hppa_force_reg_syms_absolute |
| 213 | |
| 214 | int hppa_force_reg_syms_absolute (expressionS *, operatorT, expressionS *); |
| 215 | |
| 216 | #define TC_FIX_TYPE void * |
| 217 | #define TC_INIT_FIX_DATA(FIX) ((FIX)->tc_fix_data = NULL) |
| 218 | |
| 219 | #ifdef OBJ_ELF |
| 220 | #define TARGET_USE_CFIPOP 1 |
| 221 | |
| 222 | #define tc_cfi_frame_initial_instructions hppa_cfi_frame_initial_instructions |
| 223 | extern void hppa_cfi_frame_initial_instructions (void); |
| 224 | |
| 225 | #define tc_regname_to_dw2regnum hppa_regname_to_dw2regnum |
| 226 | extern int hppa_regname_to_dw2regnum (char *regname); |
| 227 | |
| 228 | #define DWARF2_LINE_MIN_INSN_LENGTH 4 |
| 229 | #define DWARF2_DEFAULT_RETURN_COLUMN 2 |
| 230 | #if TARGET_ARCH_SIZE == 64 |
| 231 | #define DWARF2_CIE_DATA_ALIGNMENT 8 |
| 232 | #define DWARF2_FDE_RELOC_SIZE 8 |
| 233 | #else |
| 234 | #define DWARF2_CIE_DATA_ALIGNMENT 4 |
| 235 | #endif |
| 236 | |
| 237 | #if !defined (TE_LINUX) && !defined (TE_NetBSD) |
| 238 | /* Due to the way dynamic linking to personality functions is handled |
| 239 | on HP-UX, we need to have a read-write .eh_frame section. */ |
| 240 | #define DWARF2_EH_FRAME_READ_ONLY 0 |
| 241 | |
| 242 | /* Because differences between text and data symbols don't work, we |
| 243 | can't use difference expressions during CFI generation. */ |
| 244 | #define CFI_DIFF_EXPR_OK 0 |
| 245 | #endif |
| 246 | |
| 247 | #endif /* OBJ_ELF */ |
| 248 | #endif /* _TC_HPPA_H */ |