1 /* tc-hppa.h -- Header file for the PA 2 Copyright 1989, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 3 2003, 2004, 2005 Free Software Foundation, Inc. 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 1, 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 /* HP PA-RISC support was contributed by the Center for Software Science 23 at the University of Utah. */ 24 25 /* Please refrain from exposing the world to the internals of tc-hppa.c 26 when this file is included. This means only declaring exported functions, 27 (please PARAMize them!) not exporting structures and data items which 28 are used solely within tc-hppa.c, etc. 29 30 Also refrain from adding any more object file dependent code, there is 31 already far too much object file format dependent code in this file. 32 In theory this file should contain only exported functions, structures 33 and data declarations common to all PA assemblers. */ 34 35 #ifndef _TC_HPPA_H 36 #define _TC_HPPA_H 37 38 #ifndef TC_HPPA 39 #define TC_HPPA 1 40 #endif 41 42 #define TARGET_BYTES_BIG_ENDIAN 1 43 44 #define TARGET_ARCH bfd_arch_hppa 45 46 #define WORKING_DOT_WORD 47 48 #ifdef OBJ_ELF 49 #if TARGET_ARCH_SIZE == 64 50 #include "bfd/elf64-hppa.h" 51 #if defined (TE_LINUX) || defined (TE_NetBSD) 52 #define TARGET_FORMAT "elf64-hppa-linux" 53 #else 54 #define TARGET_FORMAT "elf64-hppa" 55 #endif 56 #else /* TARGET_ARCH_SIZE == 32 */ 57 #include "bfd/elf32-hppa.h" 58 #if defined (TE_LINUX) 59 #define TARGET_FORMAT "elf32-hppa-linux" 60 #else 61 #if defined (TE_NetBSD) 62 #define TARGET_FORMAT "elf32-hppa-netbsd" 63 #else 64 #define TARGET_FORMAT "elf32-hppa" 65 #endif 66 #endif 67 #endif 68 #endif 69 70 #ifdef OBJ_SOM 71 #include "bfd/som.h" 72 #define TARGET_FORMAT "som" 73 #endif 74 75 #if defined(TE_LINUX) || defined(TE_NetBSD) || defined(TE_OpenBSD) 76 /* Define to compile in an extra assembler option, -c, which enables a 77 warning (once per file) when a comment is encountered. 78 The hppa comment char is a `;' which tends to occur in random C asm 79 statements. A semicolon is a line separator for most assemblers. 80 It's hard to find these lurking semicolons. Thus... */ 81 #define WARN_COMMENTS 1 82 #endif 83 84 #if defined(TE_NetBSD) || defined(TE_OpenBSD) 85 /* XXX the original OpenBSD code has labels without colons, 86 so this is required, for now -- fredette@netbsd.org */ 87 /* Labels are not required to have a colon for a suffix. */ 88 #define LABELS_WITHOUT_COLONS 1 89 #endif 90 91 /* FIXME. Why oh why aren't these defined somewhere globally? */ 92 #ifndef FALSE 93 #define FALSE (0) 94 #define TRUE (!FALSE) 95 #endif 96 97 #define ASEC_NULL (asection *)0 98 99 /* pa_define_label gets used outside of tc-hppa.c via tc_frob_label. */ 100 extern void pa_define_label PARAMS ((symbolS *)); 101 102 extern void parse_cons_expression_hppa PARAMS ((expressionS *)); 103 extern void cons_fix_new_hppa PARAMS ((fragS *, int, int, expressionS *)); 104 extern int hppa_force_relocation PARAMS ((struct fix *)); 105 106 /* This gets called before writing the object file to make sure 107 things like entry/exit and proc/procend pairs match. */ 108 extern void pa_check_eof PARAMS ((void)); 109 #define tc_frob_file pa_check_eof 110 111 #define tc_frob_label(sym) pa_define_label (sym) 112 113 extern const char hppa_symbol_chars[]; 114 #define tc_symbol_chars hppa_symbol_chars 115 116 #define RELOC_EXPANSION_POSSIBLE 117 #define MAX_RELOC_EXPANSION 6 118 119 /* The PA needs to parse field selectors in .byte, etc. */ 120 121 #define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \ 122 parse_cons_expression_hppa (EXP) 123 #define TC_CONS_FIX_NEW cons_fix_new_hppa 124 125 /* On the PA, an exclamation point can appear in an instruction. It is 126 used in FP comparison instructions and as an end of line marker. 127 When used in an instruction it will always follow a comma. */ 128 #define TC_EOL_IN_INSN(PTR) (*(PTR) == '!' && (PTR)[-1] == ',') 129 130 int hppa_fix_adjustable PARAMS((struct fix *)); 131 #define tc_fix_adjustable hppa_fix_adjustable 132 133 #define EXTERN_FORCE_RELOC 1 134 135 /* Because of the strange PA calling conventions, it is sometimes 136 necessary to emit a relocation for a call even though it would 137 normally appear safe to handle it completely within GAS. */ 138 #define TC_FORCE_RELOCATION(FIX) hppa_force_relocation (FIX) 139 140 /* Values passed to md_apply_fix don't include the symbol value. */ 141 #define MD_APPLY_SYM_VALUE(FIX) 0 142 143 #ifdef OBJ_SOM 144 /* If a symbol is imported, but never used, then the symbol should 145 *not* end up in the symbol table. Likewise for absolute symbols 146 with local scope. */ 147 #define tc_frob_symbol(sym,punt) \ 148 if ((S_GET_SEGMENT (sym) == &bfd_und_section && ! symbol_used_p (sym)) \ 149 || (S_GET_SEGMENT (sym) == &bfd_abs_section \ 150 && ! S_IS_EXTERNAL (sym))) \ 151 punt = 1 152 153 /* We need to be able to make relocations involving the difference of 154 two symbols. This includes the difference of two symbols when 155 one of them is undefined (this comes up in PIC code generation). 156 157 We don't define DIFF_EXPR_OK because it does the wrong thing if 158 the add symbol is undefined and the sub symbol is a symbol in 159 the same section as the relocation. We also need some way to 160 specialize some code in adjust_reloc_syms. */ 161 #define UNDEFINED_DIFFERENCE_OK 162 #endif 163 164 #ifdef OBJ_ELF 165 #define DIFF_EXPR_OK 1 166 167 /* Handle .type psuedo. 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 #define tc_frob_symbol(sym,punt) \ 179 { \ 180 if ((S_GET_SEGMENT (sym) == &bfd_und_section && ! symbol_used_p (sym) && \ 181 ELF_ST_VISIBILITY (S_GET_OTHER (sym)) == STV_DEFAULT) \ 182 || (S_GET_SEGMENT (sym) == &bfd_abs_section \ 183 && ! S_IS_EXTERNAL (sym)) \ 184 || strcmp (S_GET_NAME (sym), "$global$") == 0 \ 185 || strcmp (S_GET_NAME (sym), "$PIC_pcrel$0") == 0) \ 186 punt = 1; \ 187 } 188 189 #define elf_tc_final_processing elf_hppa_final_processing 190 void elf_hppa_final_processing PARAMS ((void)); 191 192 #define DWARF2_LINE_MIN_INSN_LENGTH 4 193 #endif /* OBJ_ELF */ 194 195 #define md_operand(x) 196 197 /* Allow register expressions to be treated as absolute expressions. 198 A silly fudge required for backwards compatibility. */ 199 #define md_optimize_expr hppa_force_reg_syms_absolute 200 201 int hppa_force_reg_syms_absolute 202 PARAMS ((expressionS *, operatorT, expressionS *)); 203 204 #define TC_FIX_TYPE PTR 205 #define TC_INIT_FIX_DATA(FIX) ((FIX)->tc_fix_data = NULL) 206 207 #endif /* _TC_HPPA_H */ 208