1 /* tc-hppa.h -- Header file for the PA 2 Copyright (C) 1989-2024 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 #define ASEC_NULL (asection *)0 84 85 /* pa_define_label gets used outside of tc-hppa.c via tc_frob_label. */ 86 extern void pa_define_label (symbolS *); 87 extern int parse_cons_expression_hppa (expressionS *); 88 extern void cons_fix_new_hppa (fragS *, int, int, expressionS *, int); 89 extern int hppa_force_relocation (struct fix *); 90 91 /* This gets called before writing the object file to make sure 92 things like entry/exit and proc/procend pairs match. */ 93 extern void pa_check_eof (void); 94 #define tc_frob_file pa_check_eof 95 96 #define tc_frob_label(sym) pa_define_label (sym) 97 98 extern const char hppa_symbol_chars[]; 99 #define tc_symbol_chars hppa_symbol_chars 100 101 #define RELOC_EXPANSION_POSSIBLE 102 #define MAX_RELOC_EXPANSION 6 103 104 /* The PA needs to parse field selectors in .byte, etc. */ 105 106 #define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \ 107 parse_cons_expression_hppa (EXP) 108 #define TC_CONS_FIX_NEW cons_fix_new_hppa 109 #define TC_PARSE_CONS_RETURN_TYPE int 110 #define TC_PARSE_CONS_RETURN_NONE e_fsel 111 112 /* On the PA, an exclamation point can appear in an instruction. It is 113 used in FP comparison instructions and as an end of line marker. 114 When used in an instruction it will always follow a comma. */ 115 #define TC_EOL_IN_INSN(PTR) (*(PTR) == '!' && (PTR)[-1] == ',') 116 117 int hppa_fix_adjustable (struct fix *); 118 #define tc_fix_adjustable hppa_fix_adjustable 119 120 #define EXTERN_FORCE_RELOC 1 121 122 /* Because of the strange PA calling conventions, it is sometimes 123 necessary to emit a relocation for a call even though it would 124 normally appear safe to handle it completely within GAS. */ 125 #define TC_FORCE_RELOCATION(FIX) hppa_force_relocation (FIX) 126 127 /* Values passed to md_apply_fix don't include the symbol value. */ 128 #define MD_APPLY_SYM_VALUE(FIX) 0 129 130 /* The PA needs this for PIC code generation. */ 131 #define TC_VALIDATE_FIX_SUB(FIX, SEG) \ 132 (md_register_arithmetic || (SEG) != reg_section) 133 134 #ifdef OBJ_SOM 135 /* If a symbol is imported, but never used, then the symbol should 136 *not* end up in the symbol table. Likewise for absolute symbols 137 with local scope. */ 138 #define tc_frob_symbol(sym,punt) \ 139 if ((S_GET_SEGMENT (sym) == bfd_und_section_ptr && ! symbol_used_p (sym)) \ 140 || (S_GET_SEGMENT (sym) == bfd_abs_section_ptr \ 141 && ! S_IS_EXTERNAL (sym))) \ 142 punt = 1 143 144 /* We need to be able to make relocations involving the difference of 145 two symbols. This includes the difference of two symbols when 146 one of them is undefined (this comes up in PIC code generation). 147 148 We allow the difference of two symbols when the subtract symbol is 149 local to the relocation. This is implemented using R_HPPA_COMPLEX. 150 151 This has some limitations. Difference expressions only work between 152 symbols in the same segment/quadrant of a module since the HP dynamic 153 loader relocates the text and data segments independently. Thus, a 154 difference expression can't be used between text and data symbols, 155 or between symbols in different executable modules. */ 156 #define DIFF_EXPR_OK 1 157 #define TC_FORCE_RELOCATION_SUB_LOCAL(FIX, SEG) 1 158 #define UNDEFINED_DIFFERENCE_OK 159 #endif 160 161 #ifdef OBJ_ELF 162 163 /* Difference expressions for the 64-bit HP-UX target have the same 164 limitations as those for the 32-bit SOM target. */ 165 #define DIFF_EXPR_OK 1 166 167 /* Handle .type pseudo. Given a type string of `millicode', set the 168 internal elf symbol type to STT_PARISC_MILLI, and return 169 BSF_FUNCTION for the BFD symbol type. */ 170 #define md_elf_symbol_type(name, sym, elf) \ 171 ((strcmp ((name), "millicode") == 0 \ 172 || strcmp ((name), "STT_PARISC_MILLI") == 0) \ 173 ? (((elf)->internal_elf_sym.st_info = ELF_ST_INFO \ 174 (ELF_ST_BIND ((elf)->internal_elf_sym.st_info), STT_PARISC_MILLI)\ 175 ), BSF_FUNCTION) \ 176 : -1) 177 178 /* Handle type change from .type pseudo: Zap STT_PARISC_MILLI when 179 switching to a non-function type. */ 180 #define md_elf_symbol_type_change(sym, elf, type) \ 181 ((type) != BSF_FUNCTION \ 182 && (((elf)->internal_elf_sym.st_info = \ 183 ELF_ST_INFO (ELF_ST_BIND ((elf)->internal_elf_sym.st_info), \ 184 STT_NOTYPE)), 0)) 185 186 #define tc_frob_symbol(sym,punt) \ 187 { \ 188 if ((S_GET_SEGMENT (sym) == bfd_und_section_ptr \ 189 && ! symbol_used_p (sym) \ 190 && ELF_ST_VISIBILITY (S_GET_OTHER (sym)) == STV_DEFAULT) \ 191 || strcmp (S_GET_NAME (sym), "$global$") == 0 \ 192 || strcmp (S_GET_NAME (sym), "$segrel$") == 0 \ 193 || strcmp (S_GET_NAME (sym), "$PIC_pcrel$0") == 0 \ 194 || strcmp (S_GET_NAME (sym), "$tls_gdidx$") == 0 \ 195 || strcmp (S_GET_NAME (sym), "$tls_ldidx$") == 0 \ 196 || strcmp (S_GET_NAME (sym), "$tls_dtpoff$") == 0 \ 197 || strcmp (S_GET_NAME (sym), "$tls_ieoff$") == 0 \ 198 || strcmp (S_GET_NAME (sym), "$tls_leoff$") == 0) \ 199 punt = 1; \ 200 } 201 202 #define elf_tc_final_processing elf_hppa_final_processing 203 void elf_hppa_final_processing (void); 204 #endif /* OBJ_ELF */ 205 206 #define md_operand(x) 207 208 /* Allow register expressions to be treated as absolute expressions. 209 A silly fudge required for backwards compatibility. */ 210 #define md_optimize_expr hppa_force_reg_syms_absolute 211 212 int hppa_force_reg_syms_absolute (expressionS *, operatorT, expressionS *); 213 214 #define TC_FIX_TYPE void * 215 #define TC_INIT_FIX_DATA(FIX) ((FIX)->tc_fix_data = NULL) 216 217 #ifdef OBJ_ELF 218 #define TARGET_USE_CFIPOP 1 219 220 #define tc_cfi_frame_initial_instructions hppa_cfi_frame_initial_instructions 221 extern void hppa_cfi_frame_initial_instructions (void); 222 223 #define tc_regname_to_dw2regnum hppa_regname_to_dw2regnum 224 extern int hppa_regname_to_dw2regnum (char *regname); 225 226 #define DWARF2_LINE_MIN_INSN_LENGTH 4 227 #define DWARF2_DEFAULT_RETURN_COLUMN 2 228 #if TARGET_ARCH_SIZE == 64 229 #define DWARF2_CIE_DATA_ALIGNMENT 8 230 #define DWARF2_FDE_RELOC_SIZE 8 231 #else 232 #define DWARF2_CIE_DATA_ALIGNMENT 4 233 #endif 234 235 #if !defined (TE_LINUX) && !defined (TE_NetBSD) 236 /* Due to the way dynamic linking to personality functions is handled 237 on HP-UX, we need to have a read-write .eh_frame section. */ 238 #define DWARF2_EH_FRAME_READ_ONLY 0 239 240 /* Because differences between text and data symbols don't work, we 241 can't use difference expressions during CFI generation. */ 242 #define CFI_DIFF_EXPR_OK 0 243 #endif 244 245 #endif /* OBJ_ELF */ 246 #endif /* _TC_HPPA_H */ 247