Commit | Line | Data |
---|---|---|
3c3bdf30 | 1 | /* tc-mmix.h -- Header file for tc-mmix.c. |
aa820537 AM |
2 | Copyright (C) 2001, 2002, 2003, 2005, 2007, 2008 |
3 | Free Software Foundation, Inc. | |
3c3bdf30 NC |
4 | Written by Hans-Peter Nilsson (hp@bitrange.com). |
5 | ||
6 | This file is part of GAS, the GNU Assembler. | |
7 | ||
8 | GAS is free software; you can redistribute it and/or modify | |
9 | it under the terms of the GNU General Public License as published by | |
ec2655a6 | 10 | the Free Software Foundation; either version 3, or (at your option) |
3c3bdf30 NC |
11 | any later version. |
12 | ||
13 | GAS is distributed in the hope that it will be useful, | |
14 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | GNU General Public License for more details. | |
17 | ||
18 | You should have received a copy of the GNU General Public License | |
19 | along with GAS; see the file COPYING. If not, write to the Free | |
4b4da160 NC |
20 | Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA |
21 | 02110-1301, USA. */ | |
3c3bdf30 NC |
22 | |
23 | #define TC_MMIX | |
24 | ||
25 | /* See gas/doc/internals.texi for explanation of these macros. */ | |
26 | #define TARGET_FORMAT "elf64-mmix" | |
27 | #define TARGET_ARCH bfd_arch_mmix | |
28 | #define TARGET_BYTES_BIG_ENDIAN 1 | |
29 | ||
30 | extern const char mmix_comment_chars[]; | |
31 | #define tc_comment_chars mmix_comment_chars | |
32 | ||
33 | extern const char mmix_symbol_chars[]; | |
34 | #define tc_symbol_chars mmix_symbol_chars | |
35 | ||
36 | extern const char mmix_exp_chars[]; | |
37 | #define EXP_CHARS mmix_exp_chars | |
38 | ||
39 | extern const char mmix_flt_chars[]; | |
40 | #define FLT_CHARS mmix_flt_chars | |
41 | ||
42 | /* "@" is a synonym for ".". */ | |
43 | #define LEX_AT (LEX_BEGIN_NAME) | |
44 | ||
ff1e783f | 45 | extern int mmix_label_without_colon_this_line (void); |
3c3bdf30 NC |
46 | #define LABELS_WITHOUT_COLONS mmix_label_without_colon_this_line () |
47 | ||
48 | extern int mmix_next_semicolon_is_eoln; | |
49 | #define TC_EOL_IN_INSN(p) (*(p) == ';' && ! mmix_next_semicolon_is_eoln) | |
50 | ||
51 | /* This is one direction we can get mmixal compatibility. */ | |
ff1e783f | 52 | extern void mmix_handle_mmixal (void); |
3c3bdf30 NC |
53 | #define md_start_line_hook mmix_handle_mmixal |
54 | ||
ff1e783f | 55 | extern void mmix_md_begin (void); |
3c3bdf30 NC |
56 | #define md_begin mmix_md_begin |
57 | ||
ff1e783f | 58 | extern void mmix_md_end (void); |
3c3bdf30 NC |
59 | #define md_end mmix_md_end |
60 | ||
61 | extern int mmix_current_location \ | |
ff1e783f HPN |
62 | (void (*fn) (expressionS *), expressionS *); |
63 | extern int mmix_parse_predefined_name (char *, expressionS *); | |
3c3bdf30 NC |
64 | |
65 | extern char *mmix_current_prefix; | |
66 | ||
67 | /* A bit ugly, since we "know" that there's a static function | |
68 | current_location that does what we want. We also strip off a leading | |
69 | ':' in another ugly way. | |
70 | ||
71 | The [DVWIOUZX]_Handler symbols are provided when-used. */ | |
72 | ||
73 | extern int mmix_gnu_syntax; | |
9497f5ac | 74 | #define md_parse_name(name, exp, mode, cpos) \ |
3c3bdf30 NC |
75 | (! mmix_gnu_syntax \ |
76 | && (name[0] == '@' \ | |
77 | ? (! is_part_of_name (name[1]) \ | |
78 | && mmix_current_location (current_location, exp)) \ | |
973eb340 | 79 | : ((name[0] == ':' || ISUPPER (name[0])) \ |
3c3bdf30 NC |
80 | && mmix_parse_predefined_name (name, exp)))) |
81 | ||
ff1e783f | 82 | extern char *mmix_prefix_name (char *); |
3c3bdf30 NC |
83 | |
84 | /* We implement when *creating* a symbol, we also need to strip a ':' or | |
85 | prepend a prefix. */ | |
86 | #define tc_canonicalize_symbol_name(x) \ | |
87 | (mmix_current_prefix == NULL && (x)[0] != ':' ? (x) : mmix_prefix_name (x)) | |
88 | ||
89 | #define md_undefined_symbol(x) NULL | |
90 | ||
ff1e783f | 91 | extern void mmix_fb_label (expressionS *); |
3c3bdf30 NC |
92 | |
93 | /* Since integer_constant is local to expr.c, we have to make this a | |
94 | macro. FIXME: Do it cleaner. */ | |
95 | #define md_operand(exp) \ | |
a1b6236b | 96 | do \ |
3c3bdf30 | 97 | { \ |
a1b6236b KH |
98 | if (input_line_pointer[0] == '#') \ |
99 | { \ | |
100 | input_line_pointer++; \ | |
101 | integer_constant (16, (exp)); \ | |
102 | } \ | |
103 | else if (input_line_pointer[0] == '&' \ | |
104 | && input_line_pointer[1] != '&') \ | |
105 | as_bad (_("`&' serial number operator is not supported")); \ | |
106 | else \ | |
107 | mmix_fb_label (exp); \ | |
3c3bdf30 | 108 | } \ |
a1b6236b | 109 | while (0) |
3c3bdf30 NC |
110 | |
111 | /* Gas dislikes the 2ADD, 8ADD etc. insns, so we have to assemble them in | |
112 | the error-recovery loop. Hopefully there are no significant | |
113 | differences. Also, space on a line isn't gracefully handled. */ | |
ff1e783f | 114 | extern int mmix_assemble_return_nonzero (char *); |
3c3bdf30 NC |
115 | #define tc_unrecognized_line(c) \ |
116 | ((c) == ' ' \ | |
117 | || (((c) == '1' || (c) == '2' || (c) == '4' || (c) == '8') \ | |
118 | && mmix_assemble_return_nonzero (input_line_pointer - 1))) | |
119 | ||
120 | #define md_number_to_chars number_to_chars_bigendian | |
121 | ||
122 | #define WORKING_DOT_WORD | |
123 | ||
124 | extern const struct relax_type mmix_relax_table[]; | |
125 | #define TC_GENERIC_RELAX_TABLE mmix_relax_table | |
126 | ||
88fc725d | 127 | /* We use the relax table for everything except the GREG frags and PUSHJ. */ |
ff1e783f | 128 | extern long mmix_md_relax_frag (segT, fragS *, long); |
3c3bdf30 NC |
129 | #define md_relax_frag mmix_md_relax_frag |
130 | ||
a161fe53 AM |
131 | #define tc_fix_adjustable(FIX) \ |
132 | (((FIX)->fx_addsy == NULL \ | |
133 | || S_GET_SEGMENT ((FIX)->fx_addsy) != reg_section) \ | |
134 | && (FIX)->fx_r_type != BFD_RELOC_VTABLE_INHERIT \ | |
135 | && (FIX)->fx_r_type != BFD_RELOC_VTABLE_ENTRY \ | |
136 | && (FIX)->fx_r_type != BFD_RELOC_MMIX_LOCAL) | |
3c3bdf30 NC |
137 | |
138 | /* Adjust symbols which are registers. */ | |
139 | #define tc_adjust_symtab() mmix_adjust_symtab () | |
ff1e783f | 140 | extern void mmix_adjust_symtab (void); |
3c3bdf30 | 141 | |
a161fe53 | 142 | /* Here's where we make all symbols global, when so requested. |
3c3bdf30 NC |
143 | We must avoid doing that for expression symbols or section symbols, |
144 | though. */ | |
145 | extern int mmix_globalize_symbols; | |
a1b6236b KH |
146 | #define tc_frob_symbol(sym, punt) \ |
147 | do \ | |
148 | { \ | |
a161fe53 AM |
149 | if (S_GET_SEGMENT (sym) == reg_section) \ |
150 | { \ | |
151 | if (S_GET_NAME (sym)[0] != '$' \ | |
152 | && S_GET_VALUE (sym) < 256) \ | |
153 | { \ | |
154 | if (mmix_globalize_symbols) \ | |
155 | S_SET_EXTERNAL (sym); \ | |
156 | else \ | |
157 | symbol_mark_used_in_reloc (sym); \ | |
158 | } \ | |
159 | } \ | |
160 | else if (mmix_globalize_symbols \ | |
161 | && ! symbol_section_p (sym) \ | |
162 | && sym != section_symbol (absolute_section) \ | |
163 | && ! S_IS_LOCAL (sym)) \ | |
a1b6236b KH |
164 | S_SET_EXTERNAL (sym); \ |
165 | } \ | |
166 | while (0) | |
3c3bdf30 | 167 | |
a161fe53 AM |
168 | /* No shared lib support, so we don't need to ensure externally |
169 | visible symbols can be overridden. */ | |
170 | #define EXTERN_FORCE_RELOC 0 | |
171 | ||
3c3bdf30 NC |
172 | /* When relaxing, we need to emit various relocs we otherwise wouldn't. */ |
173 | #define TC_FORCE_RELOCATION(fix) mmix_force_relocation (fix) | |
ff1e783f | 174 | extern int mmix_force_relocation (struct fix *); |
3c3bdf30 NC |
175 | |
176 | /* Call md_pcrel_from_section(), not md_pcrel_from(). */ | |
a161fe53 | 177 | #define MD_PCREL_FROM_SECTION(FIX, SEC) md_pcrel_from_section (FIX, SEC) |
ff1e783f | 178 | extern long md_pcrel_from_section (struct fix *, segT); |
3c3bdf30 | 179 | |
3c3bdf30 NC |
180 | #define md_section_align(seg, size) (size) |
181 | ||
182 | #define LISTING_HEADER "GAS for MMIX" | |
183 | ||
184 | /* The default of 4 means Bcc expansion looks like it's missing a line. */ | |
185 | #define LISTING_LHS_CONT_LINES 5 | |
186 | ||
187 | extern fragS *mmix_opcode_frag; | |
188 | #define TC_FRAG_TYPE fragS * | |
189 | #define TC_FRAG_INIT(frag) (frag)->tc_frag_data = mmix_opcode_frag | |
190 | ||
191 | /* We need to associate each section symbol with a list of GREGs defined | |
192 | for that section/segment and sorted on offset, between the point where | |
193 | all symbols have been evaluated and all frags mapped, and when the | |
194 | fixups are done and relocs are output. Similarly for each unknown | |
195 | symbol. */ | |
ff1e783f | 196 | extern void mmix_frob_file (void); |
6c106515 HPN |
197 | #define tc_frob_file_before_fix() \ |
198 | do \ | |
199 | { \ | |
200 | int i = 0; \ | |
201 | \ | |
202 | /* It's likely mmix_frob_file changed (removed) sections, so make \ | |
203 | sure sections are correctly numbered as per renumber_sections, \ | |
204 | (static to write.c where this macro is called). */ \ | |
205 | mmix_frob_file (); \ | |
206 | bfd_map_over_sections (stdoutput, renumber_sections, &i); \ | |
207 | } \ | |
208 | while (0) | |
3c3bdf30 NC |
209 | |
210 | /* Used by mmix_frob_file. Hangs on section symbols and unknown symbols. */ | |
211 | struct mmix_symbol_gregs; | |
212 | #define TC_SYMFIELD_TYPE struct mmix_symbol_gregs * | |
213 | ||
88fc725d HPN |
214 | /* Used by relaxation, counting maximum needed PUSHJ stubs for a section. */ |
215 | struct mmix_segment_info_type | |
216 | { | |
217 | /* We only need to keep track of the last stubbable frag because | |
218 | there's no less hackish way to keep track of different relaxation | |
219 | rounds. */ | |
220 | fragS *last_stubfrag; | |
221 | bfd_size_type nstubs; | |
222 | }; | |
223 | #define TC_SEGMENT_INFO_TYPE struct mmix_segment_info_type | |
224 | ||
ff1e783f | 225 | extern void mmix_md_elf_section_change_hook (void); |
3c3bdf30 NC |
226 | #define md_elf_section_change_hook mmix_md_elf_section_change_hook |
227 | ||
ff1e783f | 228 | extern void mmix_md_do_align (int, char *, int, int); |
3c3bdf30 NC |
229 | #define md_do_align(n, fill, len, max, label) \ |
230 | mmix_md_do_align (n, fill, len, max) | |
231 | ||
232 | /* Each insn is a tetrabyte (4 bytes) long, but if there are BYTE | |
233 | sequences sprinkled in, we can get unaligned DWARF2 offsets, so let's | |
234 | explicitly say one byte. */ | |
235 | #define DWARF2_LINE_MIN_INSN_LENGTH 1 | |
d31f0f6d AM |
236 | |
237 | /* This target is buggy, and sets fix size too large. */ | |
238 | #define TC_FX_SIZE_SLACK(FIX) 6 | |
97c4f2d9 L |
239 | |
240 | /* MMIX has global register symbols. */ | |
241 | #define TC_GLOBAL_REGISTER_SYMBOL_OK |