1 /* tc-ia64.h -- Header file for tc-ia64.c.
2 Copyright (C) 1998-2023 Free Software Foundation, Inc.
3 Contributed by David Mosberger-Tang <davidm@hpl.hp.com>
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 3, 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
19 the Free Software Foundation, 51 Franklin Street - Fifth Floor,
20 Boston, MA 02110-1301, USA. */
21
22 #include "opcode/ia64.h"
23 #include "elf/ia64.h"
24
25 #define TC_IA64
26
27 /* Linux is little endian by default. HPUX is big endian by default. */
28 #ifdef TE_HPUX
29 #define TARGET_BYTES_BIG_ENDIAN 1
30 #define MD_FLAGS_DEFAULT EF_IA_64_BE
31 #else
32 #define TARGET_BYTES_BIG_ENDIAN 0
33 #define MD_FLAGS_DEFAULT EF_IA_64_ABI64
34 #endif /* TE_HPUX */
35
36 extern void (*ia64_number_to_chars) (char *, valueT, int);
37 #define md_number_to_chars (*ia64_number_to_chars)
38
39 extern void ia64_elf_section_change_hook (void);
40 #define md_elf_section_change_hook ia64_elf_section_change_hook
41
42 /* We record the endian for this section. 0 means default, 1 means
43 big endian and 2 means little endian. */
44 struct ia64_segment_info_type
45 {
46 unsigned int endian : 2;
47 };
48
49 #define TC_SEGMENT_INFO_TYPE struct ia64_segment_info_type
50
51 extern void ia64_adjust_symtab (void);
52 #define tc_adjust_symtab() ia64_adjust_symtab ()
53
54 extern void ia64_frob_file (void);
55 #define tc_frob_file() ia64_frob_file ()
56
57 /* We need to set the default object file format in ia64_init and not in
58 md_begin. This is because parse_args is called before md_begin, and we
59 do not want md_begin to wipe out the flag settings set by options parsed in
60 md_parse_args. */
61
62 #define HOST_SPECIAL_INIT ia64_init
63 extern void ia64_init (int, char **);
64
65 #define TARGET_FORMAT ia64_target_format()
66 extern const char *ia64_target_format (void);
67
68 #define TARGET_ARCH bfd_arch_ia64
69 #define DOUBLESLASH_LINE_COMMENTS /* allow //-style comments */
70
71 #define NEED_LITERAL_POOL /* need gp literal pool */
72 #define RELOC_REQUIRES_SYMBOL
73 #define DIFF_EXPR_OK /* foo-. gets turned into PC relative relocs */
74 #define NEED_INDEX_OPERATOR /* [ ] is index operator */
75
76 #define QUOTES_IN_INSN /* allow `string "foo;bar"' */
77 #define LEX_AT (LEX_NAME|LEX_BEGIN_NAME) /* allow `@' inside name */
78 #define LEX_QM (LEX_NAME|LEX_BEGIN_NAME) /* allow `?' inside name */
79 #define LEX_HASH LEX_END_NAME /* allow `#' ending a name */
80
81 #define TC_PREDICATE_START_CHAR '('
82 #define TC_PREDICATE_END_CHAR ')'
83
84 extern const char ia64_symbol_chars[];
85 #define tc_symbol_chars ia64_symbol_chars
86
87 #define SUB_SEGMENT_ALIGN(SEG, FRCHAIN) 0
88
89 struct ia64_fix
90 {
91 int bigendian; /* byte order at fix location */
92 enum ia64_opnd opnd;
93 };
94
95 extern void ia64_md_finish (void);
96 extern void ia64_start_line (void);
97 extern int ia64_unrecognized_line (int);
98 extern void ia64_frob_label (struct symbol *);
99 #ifdef TE_HPUX
100 extern int ia64_frob_symbol (struct symbol *);
101 #endif
102 extern void ia64_flush_pending_output (void);
103 extern int ia64_parse_name (char *, expressionS *, char *);
104 extern int ia64_optimize_expr (expressionS *, operatorT, expressionS *);
105 extern void ia64_cons_align (int);
106 extern void ia64_flush_insns (void);
107 extern int ia64_fix_adjustable (struct fix *);
108 extern int ia64_force_relocation (struct fix *);
109 extern void ia64_cons_fix_new (fragS *, int, int, expressionS *,
110 bfd_reloc_code_real_type);
111 extern void ia64_validate_fix (struct fix *);
112 extern char * ia64_canonicalize_symbol_name (char *);
113 extern bfd_vma ia64_elf_section_letter (int, const char **);
114 extern flagword ia64_elf_section_flags (flagword, bfd_vma, int);
115 extern int ia64_elf_section_type (const char *, size_t);
116 extern long ia64_pcrel_from_section (struct fix *, segT);
117 extern void ia64_md_do_align (int, const char *, int, int);
118 extern void ia64_handle_align (fragS *);
119 extern void ia64_after_parse_args (void);
120 extern void ia64_dwarf2_emit_offset (symbolS *, unsigned int);
121 extern void ia64_check_label (symbolS *);
122 extern int ia64_estimate_size_before_relax (fragS *, asection *);
123 extern void ia64_convert_frag (fragS *);
124
125 #define md_finish() ia64_md_finish ()
126 #define md_start_line_hook() ia64_start_line ()
127 #define tc_unrecognized_line(ch) ia64_unrecognized_line (ch)
128 #define tc_frob_label(s) ia64_frob_label (s)
129 #ifdef TE_HPUX
130 #define tc_frob_symbol(s,p) p |= ia64_frob_symbol (s)
131 #endif /* TE_HPUX */
132 #define md_flush_pending_output() ia64_flush_pending_output ()
133 #define md_parse_name(s,e,m,c) ia64_parse_name (s, e, c)
134 #define md_register_arithmetic 0
135 #define tc_canonicalize_symbol_name(s) ia64_canonicalize_symbol_name (s)
136 #define tc_canonicalize_section_name(s) ia64_canonicalize_symbol_name (s)
137 #define md_optimize_expr(l,o,r) ia64_optimize_expr (l, o, r)
138 #define md_cons_align(n) ia64_cons_align (n)
139 #define TC_FORCE_RELOCATION(f) ia64_force_relocation (f)
140 #define tc_fix_adjustable(f) ia64_fix_adjustable (f)
141 #define MD_APPLY_SYM_VALUE(FIX) 0
142 #define md_convert_frag(b,s,f) ia64_convert_frag (f)
143 #define md_create_long_jump(p,f,t,fr,s) as_fatal ("ia64_create_long_jump")
144 #define md_create_short_jump(p,f,t,fr,s) \
145 as_fatal ("ia64_create_short_jump")
146 #define md_estimate_size_before_relax(f,s) \
147 ia64_estimate_size_before_relax(f,s)
148 #define md_elf_section_letter ia64_elf_section_letter
149 #define md_elf_section_flags ia64_elf_section_flags
150 #define TC_FIX_TYPE struct ia64_fix
151 #define TC_INIT_FIX_DATA(f) { f->tc_fix_data.opnd = 0; }
152 #define TC_CONS_FIX_NEW(f,o,l,e,r) ia64_cons_fix_new (f, o, l, e, r)
153 #define TC_VALIDATE_FIX(fix,seg,skip) ia64_validate_fix (fix)
154 #define MD_PCREL_FROM_SECTION(fix,sec) ia64_pcrel_from_section (fix, sec)
155 #define md_section_align(seg,size) (size)
156 #define md_do_align(n,f,l,m,j) ia64_md_do_align (n,f,l,m)
157 #define HANDLE_ALIGN(f) ia64_handle_align (f)
158 #define md_elf_section_type(str,len) ia64_elf_section_type (str, len)
159 #define md_after_parse_args() ia64_after_parse_args ()
160 #define TC_DWARF2_EMIT_OFFSET ia64_dwarf2_emit_offset
161 #define tc_check_label(l) ia64_check_label (l)
162 #ifdef TE_VMS
163 #define tc_init_after_args() ia64_vms_note ()
164 void ia64_vms_note (void);
165 #endif
166
167 /* Record if an alignment frag should end with a stop bit. */
168 #define TC_FRAG_TYPE int
169 #define TC_FRAG_INIT(FRAGP, MAX_BYTES) do {(FRAGP)->tc_frag_data = 0;}while (0)
170
171 /* Give an error if a frag containing code is not aligned to a 16 byte
172 boundary. */
173 #define md_frag_check(FRAGP) \
174 if ((FRAGP)->has_code \
175 && (((FRAGP)->fr_address + (FRAGP)->insn_addr) & 15) != 0) \
176 as_bad_where ((FRAGP)->fr_file, (FRAGP)->fr_line, \
177 _("instruction address is not a multiple of 16"));
178
179 #define MAX_MEM_FOR_RS_ALIGN_CODE (15 + 16)
180
181 #define WORKING_DOT_WORD /* don't do broken word processing for now */
182
183 #define DWARF2_LINE_MIN_INSN_LENGTH 1 /* so slot-multipliers can be 1 */
184
185 /* This is the information required for unwind records in an ia64
186 object file. This is required by GAS and the compiler runtime. */
187
188 /* These are the starting point masks for the various types of
189 unwind records. To create a record of type R3 for instance, one
190 starts by using the value UNW_R3 and or-ing in any other required values.
191 These values are also unique (in context), so they can be used to identify
192 the various record types as well. UNW_Bx and some UNW_Px do have the
193 same value, but Px can only occur in a prologue context, and Bx in
194 a body context. */
195
196 #define UNW_R1 0x00
197 #define UNW_R2 0x40
198 #define UNW_R3 0x60
199 #define UNW_P1 0x80
200 #define UNW_P2 0xA0
201 #define UNW_P3 0xB0
202 #define UNW_P4 0xB8
203 #define UNW_P5 0xB9
204 #define UNW_P6 0xC0
205 #define UNW_P7 0xE0
206 #define UNW_P8 0xF0
207 #define UNW_P9 0xF1
208 #define UNW_P10 0xFF
209 #define UNW_X1 0xF9
210 #define UNW_X2 0xFA
211 #define UNW_X3 0xFB
212 #define UNW_X4 0xFC
213 #define UNW_B1 0x80
214 #define UNW_B2 0xC0
215 #define UNW_B3 0xE0
216 #define UNW_B4 0xF0
217
218 /* These are all the various types of unwind records. */
219
220 typedef enum
221 {
222 prologue, prologue_gr, body, mem_stack_f, mem_stack_v, psp_gr, psp_sprel,
223 rp_when, rp_gr, rp_br, rp_psprel, rp_sprel, pfs_when, pfs_gr, pfs_psprel,
224 pfs_sprel, preds_when, preds_gr, preds_psprel, preds_sprel,
225 fr_mem, frgr_mem, gr_gr, gr_mem, br_mem, br_gr, spill_base, spill_mask,
226 unat_when, unat_gr, unat_psprel, unat_sprel, lc_when, lc_gr, lc_psprel,
227 lc_sprel, fpsr_when, fpsr_gr, fpsr_psprel, fpsr_sprel,
228 priunat_when_gr, priunat_when_mem, priunat_gr, priunat_psprel,
229 priunat_sprel, bsp_when, bsp_gr, bsp_psprel, bsp_sprel, bspstore_when,
230 bspstore_gr, bspstore_psprel, bspstore_sprel, rnat_when, rnat_gr,
231 rnat_psprel, rnat_sprel, epilogue, label_state, copy_state,
232 spill_psprel, spill_sprel, spill_reg, spill_psprel_p, spill_sprel_p,
233 spill_reg_p, unwabi, endp
234 } unw_record_type;
235
236 /* These structures declare the fields that can be used in each of the
237 4 record formats, R, P, B and X. */
238
239 typedef struct unw_r_record
240 {
241 unsigned long rlen;
242 unsigned short grmask;
243 unsigned short grsave;
244 /* masks to represent the union of save.g, save.f, save.b, and
245 save.gf: */
246 unsigned long imask_size;
247 struct
248 {
249 unsigned char *i;
250 unsigned int fr_mem;
251 unsigned char gr_mem;
252 unsigned char br_mem;
253 } mask;
254 } unw_r_record;
255
256 typedef struct unw_p_record
257 {
258 struct unw_rec_list *next;
259 unsigned long t;
260 unsigned long size;
261 union
262 {
263 unsigned long sp;
264 unsigned long psp;
265 } off;
266 union
267 {
268 unsigned short gr;
269 unsigned short br;
270 } r;
271 unsigned char grmask;
272 unsigned char brmask;
273 unsigned int frmask;
274 unsigned char abi;
275 unsigned char context;
276 } unw_p_record;
277
278 typedef struct unw_b_record
279 {
280 unsigned long t;
281 unsigned long label;
282 unsigned short ecount;
283 } unw_b_record;
284
285 typedef struct unw_x_record
286 {
287 unsigned long t;
288 union
289 {
290 unsigned long spoff;
291 unsigned long pspoff;
292 unsigned int reg;
293 } where;
294 unsigned short reg;
295 unsigned short qp;
296 unsigned short ab; /* Value of the AB field.. */
297 unsigned short xy; /* Value of the XY field.. */
298 } unw_x_record;
299
300 /* This structure is used to determine the specific record type and
301 its fields. */
302 typedef struct unwind_record
303 {
304 unw_record_type type;
305 union {
306 unw_r_record r;
307 unw_p_record p;
308 unw_b_record b;
309 unw_x_record x;
310 } record;
311 } unwind_record;
312
313 /* This expression evaluates to true if the relocation is for a local
314 object for which we still want to do the relocation at runtime.
315 False if we are willing to perform this relocation while building
316 the .o file. */
317
318 /* If the reloc type is BFD_RELOC_UNUSED, then this is for a TAG13/TAG13b field
319 which has no external reloc, so we must resolve the value now. */
320
321 #define TC_FORCE_RELOCATION_LOCAL(FIX) \
322 ((FIX)->fx_r_type != BFD_RELOC_UNUSED \
323 && (GENERIC_FORCE_RELOCATION_LOCAL (FIX) \
324 || (FIX)->fx_r_type == BFD_RELOC_IA64_PLTOFF22))
325
326 /* VMS backtraces expect dwarf version 3. */
327 #ifdef TE_VMS
328 #define DWARF2_VERSION (dwarf_level < 3 ? 3 : dwarf_level)
329 #endif
330
331 #define md_single_noop_insn "nop 0"