FSF GCC version 2.7.2

1 files changed, 344 insertions, 0 deletions

diff --git a/gnu/usr.bin/gcc/config/i860/fx2800.h b/gnu/usr.bin/gcc/config/i860/fx2800.h
new file mode 100644
index 00000000000..e295c686454
--- /dev/null
+++ b/gnu/usr.bin/gcc/config/i860/fx2800.h
@@ -0,0 +1,344 @@
+/* Target definitions for GNU compiler for Alliant FX/2800
+   running Concentrix 2.2
+
+   Copyright (C) 1991 Free Software Foundation, Inc.
+
+   Written by Howard Chu (hyc@hanauma.jpl.nasa.gov).
+
+This file is part of GNU CC.
+
+GNU CC 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.
+
+GNU CC 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 GNU CC; see the file COPYING.  If not, write to
+the Free Software Foundation, 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+#define OUTPUT_TDESC
+
+#include "i860/sysv4.h"
+
+/* The Alliant fx2800 running Concentrix 2.x is weird.  This is basically
+   a BSD 4.3 based operating system, but it uses svr4 ELF format object
+   files and it somehow puts BSD stabs records into the ELF files for
+   symbolic debug information.  The assembler is "mostly an SVR4 assembler
+   with some Alliant additions. We based it on the `Intel 80860 Assembly
+   Language Specification' from AT&T." */
+
+/* This file consists of three sections. The first section establishes
+   definitions unique to the Alliant FX/2800. The next section reconciles
+   differences between Alliant and i860v4.h, and the last overrides the
+   remaining differences with svr4.h */
+
+#undef TARGET_VERSION
+#define TARGET_VERSION fprintf (stderr, " (i860 Alliant)");
+
+/* atexit is not present prior to Concentrix 2.2. Uncomment the following
+   if you're on 2.1 or older. */
+ 
+/* #undef HAVE_ATEXIT */
+
+#define I860_STRICT_ABI_PROLOGUES
+
+/* There is no avoiding this; -L does not exist at all (in Concentrix 2.2).  */
+#define LINK_LIBGCC_SPECIAL 1
+
+/* Most of the Alliant-specific definitions here are to get stab info that
+   Alliant's dbx can understand. */
+
+#define DBX_DEBUGGING_INFO
+#define DEFAULT_GDB_EXTENSIONS 0
+#define DBX_NO_XREFS
+#define DBX_NO_EXTRA_TAGS
+
+/* Alliant dbx also needs to see the function stab before anything
+   else in the function. */
+
+#define DBX_FUNCTION_FIRST
+#define DBX_LBRAC_FIRST
+
+/* Alliant dbx also needs to see the end of a function somewhere. */
+
+#define DBX_OUTPUT_FUNCTION_END(file,decl)	\
+	fprintf (file, ".stab \"\",.,0x%x,0,0\n", N_EFUN)
+
+/* Alliant dbx has predefined types, so they must be emitted with the
+   proper type numbers. The defined types are:
+
+     Type #	C, Fortran, Pascal Types
+	--	------------------------
+	 1	char, integer*1
+	 2	short, 	integer*2
+	 3	int, long, integer*4, integer
+	 4	logical*1, byte
+	 5	logical*2
+	 6	logical*4, logical
+	 7	float, real*4, 	real
+	 8	double, real*8,	double
+	 9	single complex, complex*8, complex
+	10	double complex, doublecomplex
+	11	character
+	12	void
+	13	nil
+	14	boolean
+	15	unsigned char, ubyte
+	16	unsigned short, uword
+	17	unsigned, unsigned int, unsigned long, ulong
+	18	quad, logical*8
+	19	long long, integer*8
+	20	unsigned long long, uquad*8
+    21-100	reserved for future predefined types
+	100	long redefine same as 3
+	101	unsigned long same as 17
+	--	--------------------
+	102	First user program type
+
+   Since long and unsigned long are int references, they must be handled
+   as special cases. The Alliant compiler doesn't use types 18-20, so it
+   sets long & unsigned long in 18 & 19, not in 100 & 101 as shown above. */
+
+#define DBX_OUTPUT_STANDARD_TYPES(syms)	\
+{ char *dtyps[]={"", "char", "short int", "int", "logical*1",		\
+	"logical*2", "logical*4", "float", "double", "complex",		\
+	"doublecomplex", "character", "void", "nil", "boolean",		\
+	"unsigned char", "short unsigned int", "unsigned int",		\
+	"logical*8", "long long int", "long long unsigned int",""};	\
+									\
+  tree decl;								\
+  int i;								\
+									\
+  for (i=1;*dtyps[i];i++)						\
+    for (decl = syms; decl; decl = TREE_CHAIN(decl))			\
+	if ((TREE_CODE (decl) == TYPE_DECL) && DECL_NAME(decl) &&	\
+	    !strcmp(IDENTIFIER_POINTER(DECL_NAME(decl)), dtyps[i])) {	\
+		TYPE_SYMTAB_ADDRESS (TREE_TYPE (decl)) = i;		\
+		typevec[i] = TYPE_DEFINED;				\
+		dbxout_symbol (decl, 0);				\
+		break;							\
+	}								\
+									\
+  for (decl = syms; decl; decl = TREE_CHAIN(decl))			\
+    if ((TREE_CODE (decl) == TYPE_DECL) && DECL_NAME(decl) &&		\
+	!strcmp(IDENTIFIER_POINTER(DECL_NAME(decl)),"long int")) {	\
+      TYPE_SYMTAB_ADDRESS (TREE_TYPE (decl)) = i;			\
+      typevec[i] = TYPE_DEFINED;					\
+      fprintf(asmfile,".stab \"long int:t%d=3\",0,0x%x,0,0\n",		\
+		i++,N_LSYM);						\
+      TREE_ASM_WRITTEN (decl) = 1;					\
+      break;								\
+    }									\
+									\
+  for (decl = syms; decl; decl = TREE_CHAIN(decl))			\
+    if ((TREE_CODE (decl) == TYPE_DECL) && DECL_NAME(decl) && !strcmp(	\
+	IDENTIFIER_POINTER(DECL_NAME(decl)),"long unsigned int")) {	\
+      TYPE_SYMTAB_ADDRESS (TREE_TYPE (decl)) = i;			\
+      typevec[i] = TYPE_DEFINED;					\
+      fprintf(asmfile,".stab \"long unsigned int:t%d=17\",0,0x%x,0,0\n",\
+		i++,N_LSYM);						\
+      TREE_ASM_WRITTEN (decl) = 1;					\
+      break;								\
+    }									\
+  next_type_number = i; };
+
+/* Alliant dbx doesn't understand split names... */
+
+#define DBX_CONTIN_LENGTH 0
+
+/* The syntax for stabs records is also different; there is only a single
+   ".stab" directive instead of the 3 directives in BSD, and the order of
+   arguments is slightly changed. */
+
+#define ASM_STABS_OP	".stab"
+#define ASM_STABN_OP	".stab"
+#define ASM_STABD_OP	".stab"
+
+#define DBX_MEMPARM_STABS_LETTER 'k'
+#define DBX_REGPARM_STABS_LETTER 'r'
+
+#define ASM_OUTPUT_SOURCE_LINE(file,num)		\
+	fprintf (file, "\t.stab \"\",.,0x%x,0,%d\n",	\
+		N_SLINE,num)
+
+#if 0	/* Alliant dbx only reads first N_SO, so it
+	   ignores the filename if dir is present. */
+#define DBX_OUTPUT_MAIN_SOURCE_DIRECTORY(file,name)		\
+	fprintf (file, ".stab \"%s/\",.Ltext0,0x%x,0,0\n",	\
+		name, N_SO)
+#else
+#define DBX_OUTPUT_MAIN_SOURCE_DIRECTORY(file,name)
+#endif
+
+#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(file,name)		\
+	fprintf (file, ".stab ");				\
+	output_quoted_string (file, name);			\
+	fprintf (file, ",.Ltext0,0x%x,0,0\n", N_SO);		\
+	text_section ();					\
+	ASM_OUTPUT_INTERNAL_LABEL (file, "Ltext", 0)
+
+#define DBX_OUTPUT_SOURCE_FILENAME(file,name)			\
+  do {	fprintf (file, ".stab ");				\
+	output_quoted_string (file, name);			\
+	fprintf (file, ",.Ltext0,0x%x,0,0\n", N_SOL);		\
+  } while (0)
+
+#define DBX_OUTPUT_CONSTANT_SYMBOL(file,name,ival)		\
+	fprintf (file, ".stab \"%s:c=i%d\",0,0x%x,0,0\n",	\
+		name, ival, N_LSYM)
+
+#define DBX_FINISH_SYMBOL(decl)	\
+	int line = 0;						\
+	fprintf (asmfile, "\",");				\
+	if (current_sym_addr)					\
+	  output_addr_const (asmfile, current_sym_addr);	\
+	else							\
+	  fprintf (asmfile, "%d", current_sym_value);		\
+	if (decl != 0 && TREE_CODE(decl) == FUNCTION_DECL)	\
+	  line=DECL_SOURCE_LINE (decl);				\
+	fprintf (asmfile, ",0x%x,%d,%d\n", current_sym_code,	\
+	  line!=0?64:0,line)
+
+#define DBX_OUTPUT_CATCH(file,decl,name)		\
+  fprintf (file, ".stab \"%s:C1\",",			\
+	   IDENTIFIER_POINTER (DECL_NAME (decl)));	\
+  assemble_name (file, name);				\
+  fprintf (file, ",0x%x,0,0\n", N_CATCH)
+
+#define DBX_OUTPUT_LBRAC(file,name)	\
+  if (depth > 1) {			\
+    fprintf (file, ".stab \"\",");	\
+    assemble_name (file, name);		\
+    fprintf (file, ",0x%x,0,%d\n", N_LBRAC, depth); }
+
+#define DBX_OUTPUT_RBRAC(file,name)	\
+  if (depth > 1) {			\
+    fprintf (file, ".stab \"\",");	\
+    assemble_name (file, name);		\
+    fprintf (file, ",0x%x,0,%d\n", N_RBRAC, depth); }
+
+#define DBX_OUTPUT_ENUM(file,type)				\
+  fprintf (file, "e3");						\
+  CHARS(2);							\
+  for (tem = TYPE_VALUES (type); tem; tem = TREE_CHAIN (tem))	\
+    {								\
+      fprintf (asmfile, "%s:%d,",				\
+	       IDENTIFIER_POINTER (TREE_PURPOSE (tem)),		\
+	       TREE_INT_CST_LOW (TREE_VALUE (tem)));		\
+      CHARS (11 + IDENTIFIER_LENGTH (TREE_PURPOSE (tem)));	\
+      if (TREE_CHAIN (tem) != 0)				\
+	CONTIN;							\
+    }								\
+  putc (';', asmfile);						\
+  CHARS (1);
+
+/* Undefine some things defined in i860.h because the native C compiler
+   on the FX/2800 emits code to do these operations inline.  For GCC,
+   we will use the default implementation of these things... i.e.
+   generating calls to libgcc1 routines.  */
+
+#undef DIVSI3_LIBCALL
+#undef UDIVSI3_LIBCALL
+#undef REMSI3_LIBCALL
+#undef UREMSI3_LIBCALL
+
+/* The Alliant compiler's mod function gives the wrong result after a
+   shift operation. This bug typically hits in hash functions. */
+
+#define perform_umodsi3(a, b)	a %= b; if (a == b) a=0; return a
+#define perform_modsi3(a, b)	a %= b; if (a == b) a=0; return a
+
+/* Global pointer needs to be 8 byte aligned? Link error if not... */
+
+#define DATA_ALIGNMENT(dummy,align)	\
+	((TREE_PUBLIC (decl) &&	\
+	 (TREE_CODE (TREE_TYPE (decl))==POINTER_TYPE)) ? 64:align)
+
+#undef FUNCTION_PROFILER
+#define FUNCTION_PROFILER(FILE, LABELNO)	\
+	fprintf (FILE, "\tcall __mcount_\n\tnop\n")
+
+/* Overrides for i860v4.h begin here */
+
+/* Provide a set of pre-definitions and pre-assertions appropriate for
+   the i860 running Concentrix 2.x.  */
+
+#undef CPP_PREDEFINES 
+#define CPP_PREDEFINES "-Di860 -Dunix -DBSD4_3 -Dalliant -Asystem(unix) -Asystem(bsd) -Acpu(i860) -Amachine(i860)"
+
+#undef I860_REG_PREFIX
+#undef ASM_COMMENT_START
+#define ASM_COMMENT_START "//"
+
+/* Use definitions of ASM_OUTPUT_{DOUBLE,FLOAT} as given in i860.h */
+
+#undef ASM_OUTPUT_DOUBLE
+#define ASM_OUTPUT_DOUBLE(FILE,VALUE) \
+  fprintf(FILE, "\t.double %.20e\n", (VALUE))
+#undef ASM_OUTPUT_FLOAT
+#define ASM_OUTPUT_FLOAT(FILE,VALUE) \
+  fprintf(FILE, "\t.float %.12e\n", (VALUE))
+
+#undef ASM_FILE_START
+#define ASM_FILE_START(FILE)
+#undef ASM_OUTPUT_FUNCTION_PREFIX
+#define ASM_OUTPUT_FUNCTION_PREFIX(FILE,NAME) \
+  fputs("\tnop\n", (FILE));			\
+  current_function_original_name = (NAME)
+#undef ASM_OUTPUT_PROLOGUE_SUFFIX
+
+/* Overrides for svr4.h begin here */
+
+#undef SVR4
+
+#undef SWITCH_TAKES_ARG
+#undef WORD_SWITCH_TAKES_ARG
+
+#undef ASM_SPEC
+#undef ASM_FINAL_SPEC
+#undef MD_STARTFILE_PREFIX
+#undef MD_EXEC_PREFIX
+
+/* Generate an error message if -p option is selected. Concentrix 2.x
+   does not support prof format profiling, only gprof is supported. */
+
+#define CPP_SPEC	"%{p:%e-p option not supported: use -pg instead}"
+
+/* Provide an appropriate LIB_SPEC. The crtend.o file provides part of the
+   support for getting C++ file-scope static objects constructed before
+   entering `main'. */
+
+#undef LIB_SPEC
+#define LIB_SPEC \
+	"%{g*:-lg} %{!pg:-lc}%{pg:-lc_p} crtend.o%s"
+
+/* Tell linker to strip local symbols, since assembler may not. */
+
+#undef LINK_SPEC
+#define LINK_SPEC	"-X"
+
+/* Get the correct startup file for regular or profiled code. Also
+   use the crtbegin.o file for C++ ... */
+
+#undef STARTFILE_SPEC
+#define STARTFILE_SPEC \
+	"%{!pg:crt0.o%s}%{pg:gcrt0.o%s} crtbegin.o%s"
+
+#undef SCCS_DIRECTIVE
+#undef NO_DOLLAR_IN_LABEL
+#undef TARGET_MEM_FUNCTIONS
+
+#undef DWARF_DEBUGGING_INFO
+
+#undef ASM_OUTPUT_LABELREF
+#define ASM_OUTPUT_LABELREF(FILE,NAME) fprintf (FILE, "_%s", NAME)
+#undef ASM_OUTPUT_EXTERNAL_LIBCALL
+
+#undef BSS_ASM_OP
+#define BSS_ASM_OP	"\t.lcomm"