]>
Commit | Line | Data |
---|---|---|
252b5132 | 1 | /* tc-hppa.h -- Header file for the PA |
abd63a32 | 2 | Copyright (C) 1989, 93, 94, 95, 96, 97, 98, 99, 2000 |
a0f75b47 | 3 | 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 | ||
22 | ||
23 | /* HP PA-RISC support was contributed by the Center for Software Science | |
24 | at the University of Utah. */ | |
25 | ||
26 | /* Please refrain from exposing the world to the internals of tc-hppa.c | |
27 | when this file is included. This means only declaring exported functions, | |
28 | (please PARAMize them!) not exporting structures and data items which | |
29 | are used solely within tc-hppa.c, etc. | |
30 | ||
31 | Also refrain from adding any more object file dependent code, there is | |
32 | already far too much object file format dependent code in this file. | |
33 | In theory this file should contain only exported functions, structures | |
34 | and data declarations common to all PA assemblers. */ | |
35 | ||
36 | #ifndef _TC_HPPA_H | |
37 | #define _TC_HPPA_H | |
38 | ||
39 | #ifndef TC_HPPA | |
40 | #define TC_HPPA 1 | |
41 | #endif | |
42 | ||
43 | #define TARGET_BYTES_BIG_ENDIAN 1 | |
44 | ||
45 | #define TARGET_ARCH bfd_arch_hppa | |
46 | ||
47 | #define WORKING_DOT_WORD | |
48 | ||
252b5132 | 49 | #ifdef OBJ_ELF |
ad1079af | 50 | #if TARGET_ARCH_SIZE == 64 |
b388df87 JL |
51 | #include "bfd/elf64-hppa.h" |
52 | #define TARGET_FORMAT "elf64-hppa" | |
53 | #else | |
252b5132 RH |
54 | #include "bfd/elf32-hppa.h" |
55 | #define TARGET_FORMAT "elf32-hppa" | |
56 | #endif | |
b388df87 | 57 | #endif |
252b5132 RH |
58 | |
59 | #ifdef OBJ_SOM | |
60 | #include "bfd/som.h" | |
61 | #define TARGET_FORMAT "som" | |
62 | #endif | |
63 | ||
4c400d5e AM |
64 | #ifdef TE_LINUX |
65 | /* Define to compile in an extra assembler option, -c, which enables a | |
66 | warning (once per file) when a comment is encountered. | |
67 | The hppa comment char is a `;' which tends to occur in random C asm | |
68 | statements. A semicolon is a line separator for most assemblers. | |
69 | It's hard to find these lurking semicolons. Thus... */ | |
70 | #define WARN_COMMENTS 1 | |
71 | #endif | |
72 | ||
252b5132 RH |
73 | /* FIXME. Why oh why aren't these defined somewhere globally? */ |
74 | #ifndef FALSE | |
75 | #define FALSE (0) | |
76 | #define TRUE (!FALSE) | |
77 | #endif | |
78 | ||
79 | #define ASEC_NULL (asection *)0 | |
80 | ||
ad1079af AM |
81 | /* pa_define_label gets used outside of tc-hppa.c via tc_frob_label. */ |
82 | extern void pa_define_label PARAMS ((symbolS *)); | |
252b5132 | 83 | |
ad1079af AM |
84 | extern void parse_cons_expression_hppa PARAMS ((expressionS *)); |
85 | extern void cons_fix_new_hppa PARAMS ((fragS *, int, int, expressionS *)); | |
86 | extern int hppa_force_relocation PARAMS ((struct fix *)); | |
252b5132 RH |
87 | |
88 | /* This gets called before writing the object file to make sure | |
89 | things like entry/exit and proc/procend pairs match. */ | |
90 | extern void pa_check_eof PARAMS ((void)); | |
91 | #define tc_frob_file pa_check_eof | |
92 | ||
93 | #define tc_frob_label(sym) pa_define_label (sym) | |
94 | ||
95 | /* The PA does not need support for either of these. */ | |
96 | #define tc_crawl_symbol_chain(headers) {;} | |
97 | #define tc_headers_hook(headers) {;} | |
98 | ||
99 | #define RELOC_EXPANSION_POSSIBLE | |
100 | #define MAX_RELOC_EXPANSION 6 | |
101 | ||
252b5132 RH |
102 | /* The PA needs to parse field selectors in .byte, etc. */ |
103 | ||
104 | #define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \ | |
105 | parse_cons_expression_hppa (EXP) | |
106 | #define TC_CONS_FIX_NEW cons_fix_new_hppa | |
107 | ||
108 | /* On the PA, an equal sign often appears as a condition or nullification | |
109 | completer in an instruction. This can be detected by checking the | |
110 | previous character, if the character is a comma, then the equal is | |
111 | being used as part of an instruction. */ | |
112 | #define TC_EQUAL_IN_INSN(C, PTR) ((C) == ',') | |
113 | ||
114 | /* Similarly for an exclamation point. It is used in FP comparison | |
115 | instructions and as an end of line marker. When used in an instruction | |
116 | it will always follow a comma. */ | |
117 | #define TC_EOL_IN_INSN(PTR) (*(PTR) == '!' && (PTR)[-1] == ',') | |
118 | ||
ad1079af | 119 | int hppa_fix_adjustable PARAMS((struct fix *)); |
252b5132 RH |
120 | #define tc_fix_adjustable hppa_fix_adjustable |
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(FIXP) hppa_force_relocation (FIXP) | |
126 | ||
127 | #ifdef OBJ_SOM | |
128 | /* If a symbol is imported, but never used, then the symbol should | |
129 | *not* end up in the symbol table. Likewise for absolute symbols | |
130 | with local scope. */ | |
131 | #define tc_frob_symbol(sym,punt) \ | |
a0f75b47 | 132 | if ((S_GET_SEGMENT (sym) == &bfd_und_section && ! symbol_used_p (sym)) \ |
252b5132 | 133 | || (S_GET_SEGMENT (sym) == &bfd_abs_section \ |
a0f75b47 | 134 | && ! S_IS_EXTERNAL (sym))) \ |
252b5132 RH |
135 | punt = 1 |
136 | ||
137 | /* We need to be able to make relocations involving the difference of | |
138 | two symbols. This includes the difference of two symbols when | |
139 | one of them is undefined (this comes up in PIC code generation). | |
140 | ||
141 | We don't define DIFF_EXPR_OK because it does the wrong thing if | |
142 | the add symbol is undefined and the sub symbol is a symbol in | |
143 | the same section as the relocation. We also need some way to | |
144 | specialize some code in adjust_reloc_syms. */ | |
145 | #define UNDEFINED_DIFFERENCE_OK | |
146 | #endif | |
147 | ||
148 | #ifdef OBJ_ELF | |
904a31bf AM |
149 | /* Handle .type psuedo. Given a type string of `millicode', set the |
150 | internal elf symbol type to STT_PARISC_MILLI, and return | |
151 | BSF_FUNCTION for the BFD symbol type. */ | |
152 | #define md_elf_symbol_type(name, sym, elf) \ | |
153 | ((strcmp ((name), "millicode") == 0 \ | |
154 | || strcmp ((name), "STT_PARISC_MILLI") == 0) \ | |
155 | ? (((elf)->internal_elf_sym.st_info = ELF_ST_INFO \ | |
156 | (ELF_ST_BIND ((elf)->internal_elf_sym.st_info), STT_PARISC_MILLI)\ | |
157 | ), BSF_FUNCTION) \ | |
158 | : -1) | |
159 | ||
252b5132 RH |
160 | #define tc_frob_symbol(sym,punt) \ |
161 | { \ | |
a0f75b47 | 162 | if ((S_GET_SEGMENT (sym) == &bfd_und_section && ! symbol_used_p (sym)) \ |
252b5132 | 163 | || (S_GET_SEGMENT (sym) == &bfd_abs_section \ |
54377754 | 164 | && ! S_IS_EXTERNAL (sym)) \ |
904a31bf AM |
165 | || strcmp (S_GET_NAME (sym), "$global$") == 0 \ |
166 | || strcmp (S_GET_NAME (sym), "$PIC_pcrel$0") == 0) \ | |
252b5132 RH |
167 | punt = 1; \ |
168 | } | |
252b5132 | 169 | |
904a31bf AM |
170 | #define elf_tc_final_processing elf_hppa_final_processing |
171 | void elf_hppa_final_processing PARAMS ((void)); | |
172 | ||
2d93dcc4 | 173 | #define md_end() pa_end_of_source () |
904a31bf AM |
174 | void pa_end_of_source PARAMS ((void)); |
175 | #endif /* OBJ_ELF */ | |
176 | ||
177 | #define md_operand(x) | |
252b5132 | 178 | |
ecacdc7a AM |
179 | /* Allow register expressions to be treated as absolute expressions. |
180 | A silly fudge required for backwards compatibility. */ | |
181 | #define md_optimize_expr hppa_force_reg_syms_absolute | |
182 | ||
183 | int hppa_force_reg_syms_absolute | |
184 | PARAMS ((expressionS *, operatorT, expressionS *)); | |
185 | ||
252b5132 RH |
186 | #define TC_FIX_TYPE PTR |
187 | #define TC_INIT_FIX_DATA(FIXP) ((FIXP)->tc_fix_data = NULL) | |
188 | ||
189 | #endif /* _TC_HPPA_H */ |