| 1 | /* tc-hppa.h -- Header file for the PA |
| 2 | Copyright 1989, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, |
| 3 | 2003 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, 59 Temple Place - Suite 330, Boston, MA |
| 20 | 02111-1307, 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 | #ifdef TE_LINUX |
| 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 | #ifdef TE_LINUX |
| 59 | #define TARGET_FORMAT "elf32-hppa-linux" |
| 60 | #else |
| 61 | #define TARGET_FORMAT "elf32-hppa" |
| 62 | #endif |
| 63 | #endif |
| 64 | #endif |
| 65 | |
| 66 | #ifdef OBJ_SOM |
| 67 | #include "bfd/som.h" |
| 68 | #define TARGET_FORMAT "som" |
| 69 | #endif |
| 70 | |
| 71 | #if defined(TE_LINUX) || defined(TE_NetBSD) |
| 72 | /* Define to compile in an extra assembler option, -c, which enables a |
| 73 | warning (once per file) when a comment is encountered. |
| 74 | The hppa comment char is a `;' which tends to occur in random C asm |
| 75 | statements. A semicolon is a line separator for most assemblers. |
| 76 | It's hard to find these lurking semicolons. Thus... */ |
| 77 | #define WARN_COMMENTS 1 |
| 78 | #endif |
| 79 | |
| 80 | #ifdef TE_NetBSD |
| 81 | /* XXX the original OpenBSD code has labels without colons, |
| 82 | so this is required, for now -- fredette@netbsd.org */ |
| 83 | /* Labels are not required to have a colon for a suffix. */ |
| 84 | #define LABELS_WITHOUT_COLONS 1 |
| 85 | #endif |
| 86 | |
| 87 | /* FIXME. Why oh why aren't these defined somewhere globally? */ |
| 88 | #ifndef FALSE |
| 89 | #define FALSE (0) |
| 90 | #define TRUE (!FALSE) |
| 91 | #endif |
| 92 | |
| 93 | #define ASEC_NULL (asection *)0 |
| 94 | |
| 95 | /* pa_define_label gets used outside of tc-hppa.c via tc_frob_label. */ |
| 96 | extern void pa_define_label PARAMS ((symbolS *)); |
| 97 | |
| 98 | extern void parse_cons_expression_hppa PARAMS ((expressionS *)); |
| 99 | extern void cons_fix_new_hppa PARAMS ((fragS *, int, int, expressionS *)); |
| 100 | extern int hppa_force_relocation PARAMS ((struct fix *)); |
| 101 | |
| 102 | /* This gets called before writing the object file to make sure |
| 103 | things like entry/exit and proc/procend pairs match. */ |
| 104 | extern void pa_check_eof PARAMS ((void)); |
| 105 | #define tc_frob_file pa_check_eof |
| 106 | |
| 107 | #define tc_frob_label(sym) pa_define_label (sym) |
| 108 | |
| 109 | extern const char hppa_symbol_chars[]; |
| 110 | #define tc_symbol_chars hppa_symbol_chars |
| 111 | |
| 112 | /* The PA does not need support for either of these. */ |
| 113 | #define tc_crawl_symbol_chain(headers) {;} |
| 114 | #define tc_headers_hook(headers) {;} |
| 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 equal sign often appears as a condition or nullification |
| 126 | completer in an instruction. This can be detected by checking the |
| 127 | previous character, if the character is a comma, then the equal is |
| 128 | being used as part of an instruction. */ |
| 129 | #define TC_EQUAL_IN_INSN(C, PTR) ((C) == ',') |
| 130 | |
| 131 | /* Similarly for an exclamation point. It is used in FP comparison |
| 132 | instructions and as an end of line marker. When used in an instruction |
| 133 | it will always follow a comma. */ |
| 134 | #define TC_EOL_IN_INSN(PTR) (*(PTR) == '!' && (PTR)[-1] == ',') |
| 135 | |
| 136 | int hppa_fix_adjustable PARAMS((struct fix *)); |
| 137 | #define tc_fix_adjustable hppa_fix_adjustable |
| 138 | |
| 139 | #define EXTERN_FORCE_RELOC 1 |
| 140 | |
| 141 | /* Because of the strange PA calling conventions, it is sometimes |
| 142 | necessary to emit a relocation for a call even though it would |
| 143 | normally appear safe to handle it completely within GAS. */ |
| 144 | #define TC_FORCE_RELOCATION(FIX) hppa_force_relocation (FIX) |
| 145 | |
| 146 | /* Values passed to md_apply_fix3 don't include the symbol value. */ |
| 147 | #define MD_APPLY_SYM_VALUE(FIX) 0 |
| 148 | |
| 149 | #ifdef OBJ_SOM |
| 150 | /* If a symbol is imported, but never used, then the symbol should |
| 151 | *not* end up in the symbol table. Likewise for absolute symbols |
| 152 | with local scope. */ |
| 153 | #define tc_frob_symbol(sym,punt) \ |
| 154 | if ((S_GET_SEGMENT (sym) == &bfd_und_section && ! symbol_used_p (sym)) \ |
| 155 | || (S_GET_SEGMENT (sym) == &bfd_abs_section \ |
| 156 | && ! S_IS_EXTERNAL (sym))) \ |
| 157 | punt = 1 |
| 158 | |
| 159 | /* We need to be able to make relocations involving the difference of |
| 160 | two symbols. This includes the difference of two symbols when |
| 161 | one of them is undefined (this comes up in PIC code generation). |
| 162 | |
| 163 | We don't define DIFF_EXPR_OK because it does the wrong thing if |
| 164 | the add symbol is undefined and the sub symbol is a symbol in |
| 165 | the same section as the relocation. We also need some way to |
| 166 | specialize some code in adjust_reloc_syms. */ |
| 167 | #define UNDEFINED_DIFFERENCE_OK |
| 168 | #endif |
| 169 | |
| 170 | #ifdef OBJ_ELF |
| 171 | #define DIFF_EXPR_OK 1 |
| 172 | |
| 173 | /* Handle .type psuedo. Given a type string of `millicode', set the |
| 174 | internal elf symbol type to STT_PARISC_MILLI, and return |
| 175 | BSF_FUNCTION for the BFD symbol type. */ |
| 176 | #define md_elf_symbol_type(name, sym, elf) \ |
| 177 | ((strcmp ((name), "millicode") == 0 \ |
| 178 | || strcmp ((name), "STT_PARISC_MILLI") == 0) \ |
| 179 | ? (((elf)->internal_elf_sym.st_info = ELF_ST_INFO \ |
| 180 | (ELF_ST_BIND ((elf)->internal_elf_sym.st_info), STT_PARISC_MILLI)\ |
| 181 | ), BSF_FUNCTION) \ |
| 182 | : -1) |
| 183 | |
| 184 | #define tc_frob_symbol(sym,punt) \ |
| 185 | { \ |
| 186 | if ((S_GET_SEGMENT (sym) == &bfd_und_section && ! symbol_used_p (sym) && \ |
| 187 | ELF_ST_VISIBILITY (S_GET_OTHER (sym)) == STV_DEFAULT) \ |
| 188 | || (S_GET_SEGMENT (sym) == &bfd_abs_section \ |
| 189 | && ! S_IS_EXTERNAL (sym)) \ |
| 190 | || strcmp (S_GET_NAME (sym), "$global$") == 0 \ |
| 191 | || strcmp (S_GET_NAME (sym), "$PIC_pcrel$0") == 0) \ |
| 192 | punt = 1; \ |
| 193 | } |
| 194 | |
| 195 | #define elf_tc_final_processing elf_hppa_final_processing |
| 196 | void elf_hppa_final_processing PARAMS ((void)); |
| 197 | |
| 198 | #define DWARF2_LINE_MIN_INSN_LENGTH 4 |
| 199 | #endif /* OBJ_ELF */ |
| 200 | |
| 201 | #define md_operand(x) |
| 202 | |
| 203 | /* Allow register expressions to be treated as absolute expressions. |
| 204 | A silly fudge required for backwards compatibility. */ |
| 205 | #define md_optimize_expr hppa_force_reg_syms_absolute |
| 206 | |
| 207 | int hppa_force_reg_syms_absolute |
| 208 | PARAMS ((expressionS *, operatorT, expressionS *)); |
| 209 | |
| 210 | #define TC_FIX_TYPE PTR |
| 211 | #define TC_INIT_FIX_DATA(FIX) ((FIX)->tc_fix_data = NULL) |
| 212 | |
| 213 | #endif /* _TC_HPPA_H */ |