| 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 | 
|---|