1 | /* tc-mmix.h -- Header file for tc-mmix.c.
|
---|
2 | Copyright (C) 2001, 2002 Free Software Foundation, Inc.
|
---|
3 | Written by Hans-Peter Nilsson (hp@bitrange.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 2, 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 | #define TC_MMIX
|
---|
23 |
|
---|
24 | /* See gas/doc/internals.texi for explanation of these macros. */
|
---|
25 | #define TARGET_FORMAT "elf64-mmix"
|
---|
26 | #define TARGET_ARCH bfd_arch_mmix
|
---|
27 | #define TARGET_BYTES_BIG_ENDIAN 1
|
---|
28 |
|
---|
29 | extern const char mmix_comment_chars[];
|
---|
30 | #define tc_comment_chars mmix_comment_chars
|
---|
31 |
|
---|
32 | extern const char mmix_symbol_chars[];
|
---|
33 | #define tc_symbol_chars mmix_symbol_chars
|
---|
34 |
|
---|
35 | extern const char mmix_exp_chars[];
|
---|
36 | #define EXP_CHARS mmix_exp_chars
|
---|
37 |
|
---|
38 | extern const char mmix_flt_chars[];
|
---|
39 | #define FLT_CHARS mmix_flt_chars
|
---|
40 |
|
---|
41 | /* "@" is a synonym for ".". */
|
---|
42 | #define LEX_AT (LEX_BEGIN_NAME)
|
---|
43 |
|
---|
44 | extern int mmix_label_without_colon_this_line PARAMS ((void));
|
---|
45 | #define LABELS_WITHOUT_COLONS mmix_label_without_colon_this_line ()
|
---|
46 |
|
---|
47 | extern int mmix_next_semicolon_is_eoln;
|
---|
48 | #define TC_EOL_IN_INSN(p) (*(p) == ';' && ! mmix_next_semicolon_is_eoln)
|
---|
49 |
|
---|
50 | /* This is one direction we can get mmixal compatibility. */
|
---|
51 | extern void mmix_handle_mmixal PARAMS ((void));
|
---|
52 | #define md_start_line_hook mmix_handle_mmixal
|
---|
53 |
|
---|
54 | extern void mmix_md_begin PARAMS ((void));
|
---|
55 | #define md_begin mmix_md_begin
|
---|
56 |
|
---|
57 | extern void mmix_md_end PARAMS ((void));
|
---|
58 | #define md_end mmix_md_end
|
---|
59 |
|
---|
60 | extern int mmix_current_location \
|
---|
61 | PARAMS ((void (*fn) (expressionS *), expressionS *));
|
---|
62 | extern int mmix_parse_predefined_name PARAMS ((char *, expressionS *));
|
---|
63 |
|
---|
64 | extern char *mmix_current_prefix;
|
---|
65 |
|
---|
66 | /* A bit ugly, since we "know" that there's a static function
|
---|
67 | current_location that does what we want. We also strip off a leading
|
---|
68 | ':' in another ugly way.
|
---|
69 |
|
---|
70 | The [DVWIOUZX]_Handler symbols are provided when-used. */
|
---|
71 |
|
---|
72 | extern int mmix_gnu_syntax;
|
---|
73 | #define md_parse_name(name, exp, cpos) \
|
---|
74 | (! mmix_gnu_syntax \
|
---|
75 | && (name[0] == '@' \
|
---|
76 | ? (! is_part_of_name (name[1]) \
|
---|
77 | && mmix_current_location (current_location, exp)) \
|
---|
78 | : ((name[0] == ':' || ISUPPER (name[0])) \
|
---|
79 | && mmix_parse_predefined_name (name, exp))))
|
---|
80 |
|
---|
81 | extern char *mmix_prefix_name PARAMS ((char *));
|
---|
82 |
|
---|
83 | /* We implement when *creating* a symbol, we also need to strip a ':' or
|
---|
84 | prepend a prefix. */
|
---|
85 | #define tc_canonicalize_symbol_name(x) \
|
---|
86 | (mmix_current_prefix == NULL && (x)[0] != ':' ? (x) : mmix_prefix_name (x))
|
---|
87 |
|
---|
88 | #define md_undefined_symbol(x) NULL
|
---|
89 |
|
---|
90 | extern void mmix_fb_label PARAMS ((expressionS *));
|
---|
91 |
|
---|
92 | /* Since integer_constant is local to expr.c, we have to make this a
|
---|
93 | macro. FIXME: Do it cleaner. */
|
---|
94 | #define md_operand(exp) \
|
---|
95 | do \
|
---|
96 | { \
|
---|
97 | if (input_line_pointer[0] == '#') \
|
---|
98 | { \
|
---|
99 | input_line_pointer++; \
|
---|
100 | integer_constant (16, (exp)); \
|
---|
101 | } \
|
---|
102 | else if (input_line_pointer[0] == '&' \
|
---|
103 | && input_line_pointer[1] != '&') \
|
---|
104 | as_bad (_("`&' serial number operator is not supported")); \
|
---|
105 | else \
|
---|
106 | mmix_fb_label (exp); \
|
---|
107 | } \
|
---|
108 | while (0)
|
---|
109 |
|
---|
110 | /* Gas dislikes the 2ADD, 8ADD etc. insns, so we have to assemble them in
|
---|
111 | the error-recovery loop. Hopefully there are no significant
|
---|
112 | differences. Also, space on a line isn't gracefully handled. */
|
---|
113 | extern int mmix_assemble_return_nonzero PARAMS ((char *));
|
---|
114 | #define tc_unrecognized_line(c) \
|
---|
115 | ((c) == ' ' \
|
---|
116 | || (((c) == '1' || (c) == '2' || (c) == '4' || (c) == '8') \
|
---|
117 | && mmix_assemble_return_nonzero (input_line_pointer - 1)))
|
---|
118 |
|
---|
119 | #define md_number_to_chars number_to_chars_bigendian
|
---|
120 |
|
---|
121 | #define WORKING_DOT_WORD
|
---|
122 |
|
---|
123 | extern const struct relax_type mmix_relax_table[];
|
---|
124 | #define TC_GENERIC_RELAX_TABLE mmix_relax_table
|
---|
125 |
|
---|
126 | /* We use the relax table for everything except the GREG frags. */
|
---|
127 | extern long mmix_md_relax_frag PARAMS ((segT, fragS *, long));
|
---|
128 | #define md_relax_frag mmix_md_relax_frag
|
---|
129 |
|
---|
130 | #define tc_fix_adjustable(FIX) \
|
---|
131 | (((FIX)->fx_addsy == NULL \
|
---|
132 | || S_GET_SEGMENT ((FIX)->fx_addsy) != reg_section) \
|
---|
133 | && (FIX)->fx_r_type != BFD_RELOC_VTABLE_INHERIT \
|
---|
134 | && (FIX)->fx_r_type != BFD_RELOC_VTABLE_ENTRY \
|
---|
135 | && (FIX)->fx_r_type != BFD_RELOC_MMIX_LOCAL)
|
---|
136 |
|
---|
137 | /* Adjust symbols which are registers. */
|
---|
138 | #define tc_adjust_symtab() mmix_adjust_symtab ()
|
---|
139 | extern void mmix_adjust_symtab PARAMS ((void));
|
---|
140 |
|
---|
141 | /* Here's where we make all symbols global, when so requested.
|
---|
142 | We must avoid doing that for expression symbols or section symbols,
|
---|
143 | though. */
|
---|
144 | extern int mmix_globalize_symbols;
|
---|
145 | #define tc_frob_symbol(sym, punt) \
|
---|
146 | do \
|
---|
147 | { \
|
---|
148 | if (S_GET_SEGMENT (sym) == reg_section) \
|
---|
149 | { \
|
---|
150 | if (S_GET_NAME (sym)[0] != '$' \
|
---|
151 | && S_GET_VALUE (sym) < 256) \
|
---|
152 | { \
|
---|
153 | if (mmix_globalize_symbols) \
|
---|
154 | S_SET_EXTERNAL (sym); \
|
---|
155 | else \
|
---|
156 | symbol_mark_used_in_reloc (sym); \
|
---|
157 | } \
|
---|
158 | } \
|
---|
159 | else if (mmix_globalize_symbols \
|
---|
160 | && ! symbol_section_p (sym) \
|
---|
161 | && sym != section_symbol (absolute_section) \
|
---|
162 | && ! S_IS_LOCAL (sym)) \
|
---|
163 | S_SET_EXTERNAL (sym); \
|
---|
164 | } \
|
---|
165 | while (0)
|
---|
166 |
|
---|
167 | /* No shared lib support, so we don't need to ensure externally
|
---|
168 | visible symbols can be overridden. */
|
---|
169 | #define EXTERN_FORCE_RELOC 0
|
---|
170 |
|
---|
171 | /* When relaxing, we need to emit various relocs we otherwise wouldn't. */
|
---|
172 | #define TC_FORCE_RELOCATION(fix) mmix_force_relocation (fix)
|
---|
173 | extern int mmix_force_relocation PARAMS ((struct fix *));
|
---|
174 |
|
---|
175 | /* Call md_pcrel_from_section(), not md_pcrel_from(). */
|
---|
176 | #define MD_PCREL_FROM_SECTION(FIX, SEC) md_pcrel_from_section (FIX, SEC)
|
---|
177 | extern long md_pcrel_from_section PARAMS ((struct fix *, segT));
|
---|
178 |
|
---|
179 | #define md_section_align(seg, size) (size)
|
---|
180 |
|
---|
181 | #define LISTING_HEADER "GAS for MMIX"
|
---|
182 |
|
---|
183 | /* The default of 4 means Bcc expansion looks like it's missing a line. */
|
---|
184 | #define LISTING_LHS_CONT_LINES 5
|
---|
185 |
|
---|
186 | extern fragS *mmix_opcode_frag;
|
---|
187 | #define TC_FRAG_TYPE fragS *
|
---|
188 | #define TC_FRAG_INIT(frag) (frag)->tc_frag_data = mmix_opcode_frag
|
---|
189 |
|
---|
190 | /* We need to associate each section symbol with a list of GREGs defined
|
---|
191 | for that section/segment and sorted on offset, between the point where
|
---|
192 | all symbols have been evaluated and all frags mapped, and when the
|
---|
193 | fixups are done and relocs are output. Similarly for each unknown
|
---|
194 | symbol. */
|
---|
195 | extern void mmix_frob_file PARAMS ((void));
|
---|
196 | #define tc_frob_file_before_fix mmix_frob_file
|
---|
197 |
|
---|
198 | /* Used by mmix_frob_file. Hangs on section symbols and unknown symbols. */
|
---|
199 | struct mmix_symbol_gregs;
|
---|
200 | #define TC_SYMFIELD_TYPE struct mmix_symbol_gregs *
|
---|
201 |
|
---|
202 | extern void mmix_md_elf_section_change_hook PARAMS ((void));
|
---|
203 | #define md_elf_section_change_hook mmix_md_elf_section_change_hook
|
---|
204 |
|
---|
205 | extern void mmix_md_do_align PARAMS ((int, char *, int, int));
|
---|
206 | #define md_do_align(n, fill, len, max, label) \
|
---|
207 | mmix_md_do_align (n, fill, len, max)
|
---|
208 |
|
---|
209 | /* Each insn is a tetrabyte (4 bytes) long, but if there are BYTE
|
---|
210 | sequences sprinkled in, we can get unaligned DWARF2 offsets, so let's
|
---|
211 | explicitly say one byte. */
|
---|
212 | #define DWARF2_LINE_MIN_INSN_LENGTH 1
|
---|