Commit | Line | Data |
---|---|---|
252b5132 | 1 | /* tc-hppa.h -- Header file for the PA |
d4c7c971 AM |
2 | Copyright 1989, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, |
3 | 2003 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 | |
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 | ||
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 AM |
92 | /* pa_define_label gets used outside of tc-hppa.c via tc_frob_label. */ |
93 | extern void pa_define_label PARAMS ((symbolS *)); | |
252b5132 | 94 | |
ad1079af AM |
95 | extern void parse_cons_expression_hppa PARAMS ((expressionS *)); |
96 | extern void cons_fix_new_hppa PARAMS ((fragS *, int, int, expressionS *)); | |
97 | extern int hppa_force_relocation PARAMS ((struct fix *)); | |
252b5132 RH |
98 | |
99 | /* This gets called before writing the object file to make sure | |
100 | things like entry/exit and proc/procend pairs match. */ | |
101 | extern void pa_check_eof PARAMS ((void)); | |
102 | #define tc_frob_file pa_check_eof | |
103 | ||
104 | #define tc_frob_label(sym) pa_define_label (sym) | |
105 | ||
f0d7d5f9 NC |
106 | extern const char hppa_symbol_chars[]; |
107 | #define tc_symbol_chars hppa_symbol_chars | |
108 | ||
252b5132 RH |
109 | /* The PA does not need support for either of these. */ |
110 | #define tc_crawl_symbol_chain(headers) {;} | |
111 | #define tc_headers_hook(headers) {;} | |
112 | ||
113 | #define RELOC_EXPANSION_POSSIBLE | |
114 | #define MAX_RELOC_EXPANSION 6 | |
115 | ||
252b5132 RH |
116 | /* The PA needs to parse field selectors in .byte, etc. */ |
117 | ||
118 | #define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \ | |
119 | parse_cons_expression_hppa (EXP) | |
120 | #define TC_CONS_FIX_NEW cons_fix_new_hppa | |
121 | ||
122 | /* On the PA, an equal sign often appears as a condition or nullification | |
123 | completer in an instruction. This can be detected by checking the | |
124 | previous character, if the character is a comma, then the equal is | |
125 | being used as part of an instruction. */ | |
126 | #define TC_EQUAL_IN_INSN(C, PTR) ((C) == ',') | |
127 | ||
128 | /* Similarly for an exclamation point. It is used in FP comparison | |
129 | instructions and as an end of line marker. When used in an instruction | |
130 | it will always follow a comma. */ | |
131 | #define TC_EOL_IN_INSN(PTR) (*(PTR) == '!' && (PTR)[-1] == ',') | |
132 | ||
ad1079af | 133 | int hppa_fix_adjustable PARAMS((struct fix *)); |
252b5132 RH |
134 | #define tc_fix_adjustable hppa_fix_adjustable |
135 | ||
a161fe53 AM |
136 | #define EXTERN_FORCE_RELOC 1 |
137 | ||
252b5132 RH |
138 | /* Because of the strange PA calling conventions, it is sometimes |
139 | necessary to emit a relocation for a call even though it would | |
140 | normally appear safe to handle it completely within GAS. */ | |
a161fe53 | 141 | #define TC_FORCE_RELOCATION(FIX) hppa_force_relocation (FIX) |
252b5132 | 142 | |
d4c7c971 AM |
143 | /* Values passed to md_apply_fix3 don't include the symbol value. */ |
144 | #define MD_APPLY_SYM_VALUE(FIX) 0 | |
145 | ||
252b5132 RH |
146 | #ifdef OBJ_SOM |
147 | /* If a symbol is imported, but never used, then the symbol should | |
148 | *not* end up in the symbol table. Likewise for absolute symbols | |
149 | with local scope. */ | |
150 | #define tc_frob_symbol(sym,punt) \ | |
a0f75b47 | 151 | if ((S_GET_SEGMENT (sym) == &bfd_und_section && ! symbol_used_p (sym)) \ |
252b5132 | 152 | || (S_GET_SEGMENT (sym) == &bfd_abs_section \ |
a0f75b47 | 153 | && ! S_IS_EXTERNAL (sym))) \ |
252b5132 RH |
154 | punt = 1 |
155 | ||
156 | /* We need to be able to make relocations involving the difference of | |
157 | two symbols. This includes the difference of two symbols when | |
4a4f25cf | 158 | one of them is undefined (this comes up in PIC code generation). |
252b5132 RH |
159 | |
160 | We don't define DIFF_EXPR_OK because it does the wrong thing if | |
161 | the add symbol is undefined and the sub symbol is a symbol in | |
162 | the same section as the relocation. We also need some way to | |
163 | specialize some code in adjust_reloc_syms. */ | |
164 | #define UNDEFINED_DIFFERENCE_OK | |
165 | #endif | |
166 | ||
502b19cb | 167 | #ifdef OBJ_ELF |
d4c7c971 AM |
168 | #define DIFF_EXPR_OK 1 |
169 | ||
904a31bf AM |
170 | /* Handle .type psuedo. Given a type string of `millicode', set the |
171 | internal elf symbol type to STT_PARISC_MILLI, and return | |
172 | BSF_FUNCTION for the BFD symbol type. */ | |
173 | #define md_elf_symbol_type(name, sym, elf) \ | |
174 | ((strcmp ((name), "millicode") == 0 \ | |
175 | || strcmp ((name), "STT_PARISC_MILLI") == 0) \ | |
176 | ? (((elf)->internal_elf_sym.st_info = ELF_ST_INFO \ | |
177 | (ELF_ST_BIND ((elf)->internal_elf_sym.st_info), STT_PARISC_MILLI)\ | |
178 | ), BSF_FUNCTION) \ | |
179 | : -1) | |
180 | ||
252b5132 RH |
181 | #define tc_frob_symbol(sym,punt) \ |
182 | { \ | |
1d421636 DA |
183 | if ((S_GET_SEGMENT (sym) == &bfd_und_section && ! symbol_used_p (sym) && \ |
184 | ELF_ST_VISIBILITY (S_GET_OTHER (sym)) == STV_DEFAULT) \ | |
252b5132 | 185 | || (S_GET_SEGMENT (sym) == &bfd_abs_section \ |
54377754 | 186 | && ! S_IS_EXTERNAL (sym)) \ |
904a31bf AM |
187 | || strcmp (S_GET_NAME (sym), "$global$") == 0 \ |
188 | || strcmp (S_GET_NAME (sym), "$PIC_pcrel$0") == 0) \ | |
252b5132 RH |
189 | punt = 1; \ |
190 | } | |
252b5132 | 191 | |
904a31bf AM |
192 | #define elf_tc_final_processing elf_hppa_final_processing |
193 | void elf_hppa_final_processing PARAMS ((void)); | |
194 | ||
4dc7ead9 | 195 | #define DWARF2_LINE_MIN_INSN_LENGTH 4 |
904a31bf AM |
196 | #endif /* OBJ_ELF */ |
197 | ||
198 | #define md_operand(x) | |
252b5132 | 199 | |
ecacdc7a AM |
200 | /* Allow register expressions to be treated as absolute expressions. |
201 | A silly fudge required for backwards compatibility. */ | |
202 | #define md_optimize_expr hppa_force_reg_syms_absolute | |
203 | ||
204 | int hppa_force_reg_syms_absolute | |
205 | PARAMS ((expressionS *, operatorT, expressionS *)); | |
206 | ||
252b5132 | 207 | #define TC_FIX_TYPE PTR |
a161fe53 | 208 | #define TC_INIT_FIX_DATA(FIX) ((FIX)->tc_fix_data = NULL) |
252b5132 RH |
209 | |
210 | #endif /* _TC_HPPA_H */ |