Add MMIX support

1 files changed, 214 insertions, 0 deletions

diff --git a/gas/config/tc-mmix.h b/gas/config/tc-mmix.h
new file mode 100644
index 0000000000..3c7c71abe1
--- /dev/null
+++ b/gas/config/tc-mmix.h
@@ -0,0 +1,214 @@
+/* tc-mmix.h -- Header file for tc-mmix.c.
+   Copyright (C) 2001 Free Software Foundation, Inc.
+   Written by Hans-Peter Nilsson (hp@bitrange.com).
+
+   This file is part of GAS, the GNU Assembler.
+
+   GAS is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2, or (at your option)
+   any later version.
+
+   GAS is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GAS; see the file COPYING.  If not, write to the Free
+   Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+   02111-1307, USA. */
+
+#define TC_MMIX
+
+/* See gas/doc/internals.texi for explanation of these macros.  */
+#define TARGET_FORMAT "elf64-mmix"
+#define TARGET_ARCH bfd_arch_mmix
+#define TARGET_BYTES_BIG_ENDIAN 1
+
+extern const char mmix_comment_chars[];
+#define tc_comment_chars mmix_comment_chars
+
+extern const char mmix_symbol_chars[];
+#define tc_symbol_chars mmix_symbol_chars
+
+extern const char mmix_exp_chars[];
+#define EXP_CHARS mmix_exp_chars
+
+extern const char mmix_flt_chars[];
+#define FLT_CHARS mmix_flt_chars
+
+/* "@" is a synonym for ".".  */
+#define LEX_AT (LEX_BEGIN_NAME)
+
+extern int mmix_label_without_colon_this_line PARAMS ((void));
+#define LABELS_WITHOUT_COLONS mmix_label_without_colon_this_line ()
+
+extern int mmix_next_semicolon_is_eoln;
+#define TC_EOL_IN_INSN(p) (*(p) == ';' && ! mmix_next_semicolon_is_eoln)
+
+/* This is one direction we can get mmixal compatibility.  */
+extern void mmix_handle_mmixal PARAMS ((void));
+#define md_start_line_hook mmix_handle_mmixal
+
+extern void mmix_md_begin PARAMS ((void));
+#define md_begin mmix_md_begin
+
+extern void mmix_md_end PARAMS ((void));
+#define md_end mmix_md_end
+
+extern int mmix_current_location \
+  PARAMS ((void (*fn) (expressionS *), expressionS *));
+extern int mmix_parse_predefined_name PARAMS ((char *, expressionS *));
+
+extern char *mmix_current_prefix;
+
+/* A bit ugly, since we "know" that there's a static function
+   current_location that does what we want.  We also strip off a leading
+   ':' in another ugly way.
+
+   The [DVWIOUZX]_Handler symbols are provided when-used.  */
+
+extern int mmix_gnu_syntax;
+#define md_parse_name(name, exp, cpos)				\
+ (! mmix_gnu_syntax						\
+  && (name[0] == '@'						\
+      ? (! is_part_of_name (name[1])				\
+	 && mmix_current_location (current_location, exp))	\
+      : ((name[0] == ':' || isupper (name[0]))			\
+	 && mmix_parse_predefined_name (name, exp))))
+
+extern char *mmix_prefix_name PARAMS ((char *));
+
+/* We implement when *creating* a symbol, we also need to strip a ':' or
+   prepend a prefix.  */
+#define tc_canonicalize_symbol_name(x) \
+ (mmix_current_prefix == NULL && (x)[0] != ':' ? (x) : mmix_prefix_name (x))
+
+#define md_undefined_symbol(x) NULL
+
+extern void mmix_fb_label PARAMS ((expressionS *));
+
+/* Since integer_constant is local to expr.c, we have to make this a
+   macro.  FIXME: Do it cleaner.  */
+#define md_operand(exp)							\
+ do {									\
+  if (input_line_pointer[0] == '#')					\
+    {									\
+      input_line_pointer++;						\
+      integer_constant (16, (exp));					\
+    }									\
+  else if (input_line_pointer[0] == '&'					\
+	   && input_line_pointer[1] != '&')				\
+    as_bad (_("`&' serial number operator is not supported"));	\
+  else									\
+    mmix_fb_label (exp);						\
+ } while (0)
+
+
+/* Gas dislikes the 2ADD, 8ADD etc. insns, so we have to assemble them in
+   the error-recovery loop.  Hopefully there are no significant
+   differences.  Also, space on a line isn't gracefully handled.  */
+extern int mmix_assemble_return_nonzero PARAMS ((char  *));
+#define tc_unrecognized_line(c)						\
+ ((c) == ' '								\
+  || (((c) == '1' || (c) == '2' || (c) == '4' || (c) == '8')		\
+      && mmix_assemble_return_nonzero (input_line_pointer - 1)))
+
+#define md_number_to_chars number_to_chars_bigendian
+
+#define WORKING_DOT_WORD
+
+extern const struct relax_type mmix_relax_table[];
+#define TC_GENERIC_RELAX_TABLE mmix_relax_table
+
+/* We use the relax table for everything except the GREG frags.  */
+extern long mmix_md_relax_frag PARAMS ((segT, fragS *, long));
+#define md_relax_frag mmix_md_relax_frag
+
+#define tc_fix_adjustable(X)					\
+ ((! (X)->fx_addsy						\
+   || (! S_IS_WEAK ((X)->fx_addsy)				\
+       && S_GET_SEGMENT ((X)->fx_addsy) != reg_section))	\
+  && (X)->fx_r_type != BFD_RELOC_VTABLE_INHERIT			\
+  && (X)->fx_r_type != BFD_RELOC_VTABLE_ENTRY)
+
+/* Adjust symbols which are registers.  */
+#define tc_adjust_symtab() mmix_adjust_symtab ()
+extern void mmix_adjust_symtab PARAMS ((void));
+
+/* Avoid outputting GAS register section symbols.  This happens when the
+   assembly had errors, and will propagate to an assert in BFD.  FIXME:
+   It seems the symbol output when-errors is a bug in GAS.  Fix that
+   some time.  See also tc_gen_reloc.
+
+   Here's where we make all symbols global, when so requested.
+   We must avoid doing that for expression symbols or section symbols,
+   though.  */
+extern int mmix_globalize_symbols;
+#define tc_frob_symbol(sym, punt)			\
+ do {							\
+  if (S_GET_SEGMENT (sym) == reg_section		\
+      || (symp) == section_symbol (absolute_section))	\
+    (punt) = 1;						\
+							\
+  if (mmix_globalize_symbols				\
+      && ! symbol_section_p (sym)			\
+      && symp != section_symbol (absolute_section)	\
+      && (! S_IS_LOCAL (sym)				\
+	  || S_GET_SEGMENT (sym) == reg_section)	\
+      && (S_GET_SEGMENT (sym) != reg_section		\
+	  || (S_GET_NAME (sym)[0] != '$'		\
+	      && S_GET_VALUE (sym) < 256)))		\
+    S_SET_EXTERNAL (sym);				\
+ } while (0)
+
+/* When relaxing, we need to emit various relocs we otherwise wouldn't.  */
+#define TC_FORCE_RELOCATION(fix) mmix_force_relocation (fix)
+extern int mmix_force_relocation PARAMS ((struct fix *));
+
+/* Call md_pcrel_from_section(), not md_pcrel_from().  */
+#define MD_PCREL_FROM_SECTION(FIXP, SEC) md_pcrel_from_section (FIXP, SEC)
+extern long md_pcrel_from_section PARAMS ((struct fix *, segT));
+
+#define MD_APPLY_FIX3
+
+#define TC_HANDLES_FX_DONE
+
+#define md_section_align(seg, size) (size)
+
+#define LISTING_HEADER "GAS for MMIX"
+
+/* The default of 4 means Bcc expansion looks like it's missing a line.  */
+#define LISTING_LHS_CONT_LINES 5
+
+extern fragS *mmix_opcode_frag;
+#define TC_FRAG_TYPE fragS *
+#define TC_FRAG_INIT(frag) (frag)->tc_frag_data = mmix_opcode_frag
+
+/* We need to associate each section symbol with a list of GREGs defined
+   for that section/segment and sorted on offset, between the point where
+   all symbols have been evaluated and all frags mapped, and when the
+   fixups are done and relocs are output.  Similarly for each unknown
+   symbol.  */
+extern void mmix_frob_file PARAMS ((void));
+#define tc_frob_file mmix_frob_file
+
+/* Used by mmix_frob_file.  Hangs on section symbols and unknown symbols.  */
+struct mmix_symbol_gregs;
+#define TC_SYMFIELD_TYPE struct mmix_symbol_gregs *
+
+extern void mmix_frob_file_before_adjust PARAMS ((void));
+#define tc_frob_file_before_adjust mmix_frob_file_before_adjust
+
+extern void mmix_md_elf_section_change_hook PARAMS ((void));
+#define md_elf_section_change_hook mmix_md_elf_section_change_hook
+
+extern void mmix_md_do_align PARAMS ((int, char *, int, int));
+#define md_do_align(n, fill, len, max, label) \
+ mmix_md_do_align (n, fill, len, max)
+
+/* Each insn is a tetrabyte (4 bytes) long, but if there are BYTE
+   sequences sprinkled in, we can get unaligned DWARF2 offsets, so let's
+   explicitly say one byte.  */
+#define DWARF2_LINE_MIN_INSN_LENGTH 1