Commit | Line | Data |
---|---|---|
252b5132 | 1 | /* tc-hppa.h -- Header file for the PA |
d4c7c971 | 2 | Copyright 1989, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, |
ec2655a6 | 3 | 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. |
252b5132 RH |
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 | |
ec2655a6 | 9 | the Free Software Foundation; either version 3, or (at your option) |
252b5132 RH |
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 | |
4b4da160 NC |
19 | Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA |
20 | 02110-1301, USA. */ | |
252b5132 | 21 | |
252b5132 RH |
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 | ||
4a4f25cf | 30 | Also refrain from adding any more object file dependent code, there is |
252b5132 RH |
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 | ||
252b5132 | 48 | #ifdef OBJ_ELF |
ad1079af | 49 | #if TARGET_ARCH_SIZE == 64 |
b388df87 | 50 | #include "bfd/elf64-hppa.h" |
85cf2a8a | 51 | #if defined (TE_LINUX) || defined (TE_NetBSD) |
fcfd4916 | 52 | #define TARGET_FORMAT "elf64-hppa-linux" |
b388df87 | 53 | #else |
fcfd4916 AM |
54 | #define TARGET_FORMAT "elf64-hppa" |
55 | #endif | |
56 | #else /* TARGET_ARCH_SIZE == 32 */ | |
252b5132 | 57 | #include "bfd/elf32-hppa.h" |
225247f0 | 58 | #if defined (TE_LINUX) |
fcfd4916 AM |
59 | #define TARGET_FORMAT "elf32-hppa-linux" |
60 | #else | |
225247f0 JT |
61 | #if defined (TE_NetBSD) |
62 | #define TARGET_FORMAT "elf32-hppa-netbsd" | |
63 | #else | |
252b5132 RH |
64 | #define TARGET_FORMAT "elf32-hppa" |
65 | #endif | |
b388df87 | 66 | #endif |
fcfd4916 | 67 | #endif |
225247f0 | 68 | #endif |
252b5132 RH |
69 | |
70 | #ifdef OBJ_SOM | |
71 | #include "bfd/som.h" | |
72 | #define TARGET_FORMAT "som" | |
73 | #endif | |
74 | ||
006336b8 | 75 | #if defined(TE_LINUX) || defined(TE_NetBSD) |
4c400d5e AM |
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 | ||
252b5132 RH |
84 | /* FIXME. Why oh why aren't these defined somewhere globally? */ |
85 | #ifndef FALSE | |
86 | #define FALSE (0) | |
87 | #define TRUE (!FALSE) | |
88 | #endif | |
89 | ||
90 | #define ASEC_NULL (asection *)0 | |
91 | ||
ad1079af | 92 | /* pa_define_label gets used outside of tc-hppa.c via tc_frob_label. */ |
9b52905e NC |
93 | extern void pa_define_label (symbolS *); |
94 | extern void parse_cons_expression_hppa (expressionS *); | |
95 | extern void cons_fix_new_hppa (fragS *, int, int, expressionS *); | |
96 | extern int hppa_force_relocation (struct fix *); | |
252b5132 RH |
97 | |
98 | /* This gets called before writing the object file to make sure | |
99 | things like entry/exit and proc/procend pairs match. */ | |
9b52905e | 100 | extern void pa_check_eof (void); |
252b5132 RH |
101 | #define tc_frob_file pa_check_eof |
102 | ||
103 | #define tc_frob_label(sym) pa_define_label (sym) | |
104 | ||
f0d7d5f9 NC |
105 | extern const char hppa_symbol_chars[]; |
106 | #define tc_symbol_chars hppa_symbol_chars | |
107 | ||
252b5132 RH |
108 | #define RELOC_EXPANSION_POSSIBLE |
109 | #define MAX_RELOC_EXPANSION 6 | |
110 | ||
252b5132 RH |
111 | /* The PA needs to parse field selectors in .byte, etc. */ |
112 | ||
113 | #define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \ | |
114 | parse_cons_expression_hppa (EXP) | |
115 | #define TC_CONS_FIX_NEW cons_fix_new_hppa | |
116 | ||
b5682e56 AM |
117 | /* On the PA, an exclamation point can appear in an instruction. It is |
118 | used in FP comparison instructions and as an end of line marker. | |
119 | When used in an instruction it will always follow a comma. */ | |
252b5132 RH |
120 | #define TC_EOL_IN_INSN(PTR) (*(PTR) == '!' && (PTR)[-1] == ',') |
121 | ||
9b52905e | 122 | int hppa_fix_adjustable (struct fix *); |
252b5132 RH |
123 | #define tc_fix_adjustable hppa_fix_adjustable |
124 | ||
a161fe53 AM |
125 | #define EXTERN_FORCE_RELOC 1 |
126 | ||
252b5132 RH |
127 | /* Because of the strange PA calling conventions, it is sometimes |
128 | necessary to emit a relocation for a call even though it would | |
129 | normally appear safe to handle it completely within GAS. */ | |
a161fe53 | 130 | #define TC_FORCE_RELOCATION(FIX) hppa_force_relocation (FIX) |
252b5132 | 131 | |
55cf6793 | 132 | /* Values passed to md_apply_fix don't include the symbol value. */ |
d4c7c971 AM |
133 | #define MD_APPLY_SYM_VALUE(FIX) 0 |
134 | ||
252b5132 RH |
135 | #ifdef OBJ_SOM |
136 | /* If a symbol is imported, but never used, then the symbol should | |
137 | *not* end up in the symbol table. Likewise for absolute symbols | |
138 | with local scope. */ | |
139 | #define tc_frob_symbol(sym,punt) \ | |
a0f75b47 | 140 | if ((S_GET_SEGMENT (sym) == &bfd_und_section && ! symbol_used_p (sym)) \ |
252b5132 | 141 | || (S_GET_SEGMENT (sym) == &bfd_abs_section \ |
a0f75b47 | 142 | && ! S_IS_EXTERNAL (sym))) \ |
252b5132 RH |
143 | punt = 1 |
144 | ||
145 | /* We need to be able to make relocations involving the difference of | |
146 | two symbols. This includes the difference of two symbols when | |
4a4f25cf | 147 | one of them is undefined (this comes up in PIC code generation). |
252b5132 RH |
148 | |
149 | We don't define DIFF_EXPR_OK because it does the wrong thing if | |
150 | the add symbol is undefined and the sub symbol is a symbol in | |
151 | the same section as the relocation. We also need some way to | |
152 | specialize some code in adjust_reloc_syms. */ | |
153 | #define UNDEFINED_DIFFERENCE_OK | |
154 | #endif | |
155 | ||
502b19cb | 156 | #ifdef OBJ_ELF |
d4c7c971 AM |
157 | #define DIFF_EXPR_OK 1 |
158 | ||
904a31bf AM |
159 | /* Handle .type psuedo. Given a type string of `millicode', set the |
160 | internal elf symbol type to STT_PARISC_MILLI, and return | |
161 | BSF_FUNCTION for the BFD symbol type. */ | |
162 | #define md_elf_symbol_type(name, sym, elf) \ | |
163 | ((strcmp ((name), "millicode") == 0 \ | |
164 | || strcmp ((name), "STT_PARISC_MILLI") == 0) \ | |
165 | ? (((elf)->internal_elf_sym.st_info = ELF_ST_INFO \ | |
166 | (ELF_ST_BIND ((elf)->internal_elf_sym.st_info), STT_PARISC_MILLI)\ | |
167 | ), BSF_FUNCTION) \ | |
168 | : -1) | |
169 | ||
252b5132 RH |
170 | #define tc_frob_symbol(sym,punt) \ |
171 | { \ | |
9b52905e NC |
172 | if ((S_GET_SEGMENT (sym) == &bfd_und_section \ |
173 | && ! symbol_used_p (sym) \ | |
174 | && ELF_ST_VISIBILITY (S_GET_OTHER (sym)) == STV_DEFAULT) \ | |
252b5132 | 175 | || (S_GET_SEGMENT (sym) == &bfd_abs_section \ |
54377754 | 176 | && ! S_IS_EXTERNAL (sym)) \ |
904a31bf | 177 | || strcmp (S_GET_NAME (sym), "$global$") == 0 \ |
9b52905e NC |
178 | || strcmp (S_GET_NAME (sym), "$PIC_pcrel$0") == 0 \ |
179 | || strcmp (S_GET_NAME (sym), "$tls_gdidx$") == 0 \ | |
180 | || strcmp (S_GET_NAME (sym), "$tls_ldidx$") == 0 \ | |
181 | || strcmp (S_GET_NAME (sym), "$tls_dtpoff$") == 0 \ | |
182 | || strcmp (S_GET_NAME (sym), "$tls_ieoff$") == 0 \ | |
183 | || strcmp (S_GET_NAME (sym), "$tls_leoff$") == 0) \ | |
252b5132 RH |
184 | punt = 1; \ |
185 | } | |
252b5132 | 186 | |
904a31bf | 187 | #define elf_tc_final_processing elf_hppa_final_processing |
9b52905e | 188 | void elf_hppa_final_processing (void); |
904a31bf | 189 | |
4dc7ead9 | 190 | #define DWARF2_LINE_MIN_INSN_LENGTH 4 |
904a31bf AM |
191 | #endif /* OBJ_ELF */ |
192 | ||
193 | #define md_operand(x) | |
252b5132 | 194 | |
ecacdc7a AM |
195 | /* Allow register expressions to be treated as absolute expressions. |
196 | A silly fudge required for backwards compatibility. */ | |
197 | #define md_optimize_expr hppa_force_reg_syms_absolute | |
198 | ||
9b52905e | 199 | int hppa_force_reg_syms_absolute (expressionS *, operatorT, expressionS *); |
ecacdc7a | 200 | |
252b5132 | 201 | #define TC_FIX_TYPE PTR |
a161fe53 | 202 | #define TC_INIT_FIX_DATA(FIX) ((FIX)->tc_fix_data = NULL) |
252b5132 | 203 | |
c79b7c30 RC |
204 | #ifdef OBJ_ELF |
205 | #define TARGET_USE_CFIPOP 1 | |
206 | ||
207 | #define tc_cfi_frame_initial_instructions hppa_cfi_frame_initial_instructions | |
208 | extern void hppa_cfi_frame_initial_instructions (void); | |
209 | ||
210 | #define tc_regname_to_dw2regnum hppa_regname_to_dw2regnum | |
211 | extern int hppa_regname_to_dw2regnum (char *regname); | |
212 | ||
213 | #define DWARF2_LINE_MIN_INSN_LENGTH 4 | |
214 | #define DWARF2_DEFAULT_RETURN_COLUMN 2 | |
215 | #if TARGET_ARCH_SIZE == 64 | |
216 | #define DWARF2_CIE_DATA_ALIGNMENT -8 | |
217 | #else | |
218 | #define DWARF2_CIE_DATA_ALIGNMENT -4 | |
219 | #endif | |
220 | #endif | |
221 | ||
252b5132 | 222 | #endif /* _TC_HPPA_H */ |