[thirdparty/gcc.git] / gcc / config / i860 / fx2800.h

/* Target definitions for GNU compiler for Alliant FX/2800
   running Concentrix 2.2
   Copyright (C) 1991, 1996, 1998, 1999, 2000 Free Software Foundation, Inc.
   Contributed 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.  */

/* 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. */
 
/* #define NEED_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	"\t.stab "
#define ASM_STABN_OP	"\t.stab "
#define ASM_STABD_OP	"\t.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 libgcc routines.  */

#undef DIVSI3_LIBCALL
#undef UDIVSI3_LIBCALL
#undef REMSI3_LIBCALL
#undef UREMSI3_LIBCALL

/* Global pointer needs to be 8 byte aligned? Link error if not... */

#define DATA_ALIGNMENT(dummy,align)	\
	((TREE_PUBLIC (decl) &&	\
	 (POINTER_TYPE_P (TREE_TYPE (decl)))) ? 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 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

/* The prefix to add to user-visible assembler symbols. */

#undef USER_LABEL_PREFIX
#define USER_LABEL_PREFIX "_"

#undef ASM_OUTPUT_EXTERNAL_LIBCALL

/* ??? Is this used anywhere?  */
#undef BSS_ASM_OP
#define BSS_ASM_OP	"\t.lcomm "

#undef ASM_FILE_END
#define ASM_FILE_END(FILE)					\
do {				 				\
     if (current_function_original_name != NULL) {		\
       tdesc_section();						\
       fprintf ((FILE), "%s __ETEXT\n", ASM_LONG);		\
       fprintf ((FILE), "%s 0\n", ASM_LONG);			\
       text_section();						\
       fputs("__ETEXT:\n", (FILE));				\
     }								\
     if (!flag_no_ident)					\
	fprintf ((FILE), "\t.ident\t\"GCC: (GNU) %s\"\n",	\
		 version_string);				\
   } while (0)
Commit	Line	Data
4f22dc71 RS	1	/* Target definitions for GNU compiler for Alliant FX/2800
4f22dc71 RS	2	running Concentrix 2.2
de323aa1	3	Copyright (C) 1991, 1996, 1998, 1999, 2000 Free Software Foundation, Inc.
a67c93c8	4	Contributed by Howard Chu (hyc@hanauma.jpl.nasa.gov).
4f22dc71 RS	5
	6	This file is part of GNU CC.
	7
	8	GNU CC is free software; you can redistribute it and/or modify
	9	it under the terms of the GNU General Public License as published by
	10	the Free Software Foundation; either version 2, or (at your option)
	11	any later version.
	12
	13	GNU CC 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 GNU CC; see the file COPYING. If not, write to
5b1a918b RK	20	the Free Software Foundation, 59 Temple Place - Suite 330,
5b1a918b RK	21	Boston, MA 02111-1307, USA. */
4f22dc71	22
4f22dc71 RS	23	/* The Alliant fx2800 running Concentrix 2.x is weird. This is basically
	24	a BSD 4.3 based operating system, but it uses svr4 ELF format object
	25	files and it somehow puts BSD stabs records into the ELF files for
	26	symbolic debug information. The assembler is "mostly an SVR4 assembler
	27	with some Alliant additions. We based it on the `Intel 80860 Assembly
	28	Language Specification' from AT&T." */
	29
	30	/* This file consists of three sections. The first section establishes
	31	definitions unique to the Alliant FX/2800. The next section reconciles
	32	differences between Alliant and i860v4.h, and the last overrides the
	33	remaining differences with svr4.h */
	34
	35	#undef TARGET_VERSION
	36	#define TARGET_VERSION fprintf (stderr, " (i860 Alliant)");
	37
	38	/* atexit is not present prior to Concentrix 2.2. Uncomment the following
	39	if you're on 2.1 or older. */
	40
c063dc98	41	/* #define NEED_ATEXIT */
4f22dc71	42
ce60ce93	43	#define I860_STRICT_ABI_PROLOGUES
f093e272 RS	44
f093e272 RS	45	/* There is no avoiding this; -L does not exist at all (in Concentrix 2.2). */
6cc98222	46	#define LINK_LIBGCC_SPECIAL 1
ce60ce93	47
4f22dc71 RS	48	/* Most of the Alliant-specific definitions here are to get stab info that
	49	Alliant's dbx can understand. */
	50
	51	#define DBX_DEBUGGING_INFO
	52	#define DEFAULT_GDB_EXTENSIONS 0
	53	#define DBX_NO_XREFS
	54	#define DBX_NO_EXTRA_TAGS
	55
	56	/* Alliant dbx also needs to see the function stab before anything
	57	else in the function. */
	58
	59	#define DBX_FUNCTION_FIRST
	60	#define DBX_LBRAC_FIRST
	61
	62	/* Alliant dbx also needs to see the end of a function somewhere. */
	63
	64	#define DBX_OUTPUT_FUNCTION_END(file,decl) \
	65	fprintf (file, ".stab \"\",.,0x%x,0,0\n", N_EFUN)
	66
	67	/* Alliant dbx has predefined types, so they must be emitted with the
	68	proper type numbers. The defined types are:
	69
	70	Type # C, Fortran, Pascal Types
	71	-- ------------------------
	72	1 char, integer*1
	73	2 short, integer*2
	74	3 int, long, integer*4, integer
	75	4 logical*1, byte
	76	5 logical*2
	77	6 logical*4, logical
	78	7 float, real*4, real
	79	8 double, real*8, double
	80	9 single complex, complex*8, complex
	81	10 double complex, doublecomplex
	82	11 character
	83	12 void
	84	13 nil
	85	14 boolean
	86	15 unsigned char, ubyte
	87	16 unsigned short, uword
	88	17 unsigned, unsigned int, unsigned long, ulong
	89	18 quad, logical*8
	90	19 long long, integer*8
	91	20 unsigned long long, uquad*8
	92	21-100 reserved for future predefined types
	93	100 long redefine same as 3
	94	101 unsigned long same as 17
	95	-- --------------------
	96	102 First user program type
	97
	98	Since long and unsigned long are int references, they must be handled
	99	as special cases. The Alliant compiler doesn't use types 18-20, so it
	100	sets long & unsigned long in 18 & 19, not in 100 & 101 as shown above. */
	101
	102	#define DBX_OUTPUT_STANDARD_TYPES(syms) \
	103	{ char dtyps[]={"", "char", "short int", "int", "logical1", \
	104	"logical2", "logical4", "float", "double", "complex", \
	105	"doublecomplex", "character", "void", "nil", "boolean", \
	106	"unsigned char", "short unsigned int", "unsigned int", \
	107	"logical*8", "long long int", "long long unsigned int",""}; \
	108	\
	109	tree decl; \
	110	int i; \
	111	\
b505fab8 RS	112	for (i=1;*dtyps[i];i++) \
b505fab8 RS	113	for (decl = syms; decl; decl = TREE_CHAIN(decl)) \
6cc98222	114	if ((TREE_CODE (decl) == TYPE_DECL) && DECL_NAME(decl) && \
b505fab8	115	!strcmp(IDENTIFIER_POINTER(DECL_NAME(decl)), dtyps[i])) { \
4f22dc71 RS	116	TYPE_SYMTAB_ADDRESS (TREE_TYPE (decl)) = i; \
	117	typevec[i] = TYPE_DEFINED; \
	118	dbxout_symbol (decl, 0); \
b505fab8	119	break; \
4f22dc71	120	} \
4f22dc71	121	\
b505fab8	122	for (decl = syms; decl; decl = TREE_CHAIN(decl)) \
6cc98222	123	if ((TREE_CODE (decl) == TYPE_DECL) && DECL_NAME(decl) && \
b505fab8 RS	124	!strcmp(IDENTIFIER_POINTER(DECL_NAME(decl)),"long int")) { \
	125	TYPE_SYMTAB_ADDRESS (TREE_TYPE (decl)) = i; \
	126	typevec[i] = TYPE_DEFINED; \
	127	fprintf(asmfile,".stab \"long int:t%d=3\",0,0x%x,0,0\n", \
	128	i++,N_LSYM); \
	129	TREE_ASM_WRITTEN (decl) = 1; \
	130	break; \
	131	} \
4f22dc71	132	\
b505fab8	133	for (decl = syms; decl; decl = TREE_CHAIN(decl)) \
6cc98222	134	if ((TREE_CODE (decl) == TYPE_DECL) && DECL_NAME(decl) && !strcmp( \
b505fab8 RS	135	IDENTIFIER_POINTER(DECL_NAME(decl)),"long unsigned int")) { \
	136	TYPE_SYMTAB_ADDRESS (TREE_TYPE (decl)) = i; \
	137	typevec[i] = TYPE_DEFINED; \
	138	fprintf(asmfile,".stab \"long unsigned int:t%d=17\",0,0x%x,0,0\n",\
	139	i++,N_LSYM); \
	140	TREE_ASM_WRITTEN (decl) = 1; \
	141	break; \
	142	} \
4f22dc71 RS	143	next_type_number = i; };
	144
	145	/* Alliant dbx doesn't understand split names... */
	146
	147	#define DBX_CONTIN_LENGTH 0
	148
	149	/* The syntax for stabs records is also different; there is only a single
	150	".stab" directive instead of the 3 directives in BSD, and the order of
	151	arguments is slightly changed. */
	152
de323aa1 HPN	153	#define ASM_STABS_OP "\t.stab "
	154	#define ASM_STABN_OP "\t.stab "
	155	#define ASM_STABD_OP "\t.stab "
4f22dc71 RS	156
	157	#define DBX_MEMPARM_STABS_LETTER 'k'
	158	#define DBX_REGPARM_STABS_LETTER 'r'
	159
	160	#define ASM_OUTPUT_SOURCE_LINE(file,num) \
	161	fprintf (file, "\t.stab \"\",.,0x%x,0,%d\n", \
	162	N_SLINE,num)
	163
	164	#if 0 /* Alliant dbx only reads first N_SO, so it
	165	ignores the filename if dir is present. */
	166	#define DBX_OUTPUT_MAIN_SOURCE_DIRECTORY(file,name) \
	167	fprintf (file, ".stab \"%s/\",.Ltext0,0x%x,0,0\n", \
	168	name, N_SO)
	169	#else
	170	#define DBX_OUTPUT_MAIN_SOURCE_DIRECTORY(file,name)
	171	#endif
	172
	173	#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(file,name) \
73e2c650 PE	174	fprintf (file, ".stab "); \
	175	output_quoted_string (file, name); \
	176	fprintf (file, ",.Ltext0,0x%x,0,0\n", N_SO); \
4f22dc71 RS	177	text_section (); \
	178	ASM_OUTPUT_INTERNAL_LABEL (file, "Ltext", 0)
	179
	180	#define DBX_OUTPUT_SOURCE_FILENAME(file,name) \
73e2c650 PE	181	do { fprintf (file, ".stab "); \
	182	output_quoted_string (file, name); \
	183	fprintf (file, ",.Ltext0,0x%x,0,0\n", N_SOL); \
	184	} while (0)
4f22dc71 RS	185
	186	#define DBX_OUTPUT_CONSTANT_SYMBOL(file,name,ival) \
	187	fprintf (file, ".stab \"%s:c=i%d\",0,0x%x,0,0\n", \
	188	name, ival, N_LSYM)
	189
	190	#define DBX_FINISH_SYMBOL(decl) \
	191	int line = 0; \
	192	fprintf (asmfile, "\","); \
	193	if (current_sym_addr) \
	194	output_addr_const (asmfile, current_sym_addr); \
	195	else \
	196	fprintf (asmfile, "%d", current_sym_value); \
	197	if (decl != 0 && TREE_CODE(decl) == FUNCTION_DECL) \
	198	line=DECL_SOURCE_LINE (decl); \
	199	fprintf (asmfile, ",0x%x,%d,%d\n", current_sym_code, \
	200	line!=0?64:0,line)
	201
	202	#define DBX_OUTPUT_CATCH(file,decl,name) \
cebfccda RS	203	fprintf (file, ".stab \"%s:C1\",", \
	204	IDENTIFIER_POINTER (DECL_NAME (decl))); \
	205	assemble_name (file, name); \
	206	fprintf (file, ",0x%x,0,0\n", N_CATCH)
4f22dc71 RS	207
4f22dc71 RS	208	#define DBX_OUTPUT_LBRAC(file,name) \
cebfccda RS	209	if (depth > 1) { \
	210	fprintf (file, ".stab \"\","); \
	211	assemble_name (file, name); \
	212	fprintf (file, ",0x%x,0,%d\n", N_LBRAC, depth); }
4f22dc71 RS	213
4f22dc71 RS	214	#define DBX_OUTPUT_RBRAC(file,name) \
cebfccda RS	215	if (depth > 1) { \
	216	fprintf (file, ".stab \"\","); \
	217	assemble_name (file, name); \
	218	fprintf (file, ",0x%x,0,%d\n", N_RBRAC, depth); }
	219
ce60ce93	220	#define DBX_OUTPUT_ENUM(file,type) \
cebfccda	221	fprintf (file, "e3"); \
ce60ce93	222	CHARS(2); \
cebfccda RS	223	for (tem = TYPE_VALUES (type); tem; tem = TREE_CHAIN (tem)) \
	224	{ \
	225	fprintf (asmfile, "%s:%d,", \
	226	IDENTIFIER_POINTER (TREE_PURPOSE (tem)), \
	227	TREE_INT_CST_LOW (TREE_VALUE (tem))); \
	228	CHARS (11 + IDENTIFIER_LENGTH (TREE_PURPOSE (tem))); \
	229	if (TREE_CHAIN (tem) != 0) \
	230	CONTIN; \
	231	} \
	232	putc (';', asmfile); \
	233	CHARS (1);
4f22dc71 RS	234
	235	/* Undefine some things defined in i860.h because the native C compiler
	236	on the FX/2800 emits code to do these operations inline. For GCC,
	237	we will use the default implementation of these things... i.e.
7857f134	238	generating calls to libgcc routines. */
4f22dc71 RS	239
	240	#undef DIVSI3_LIBCALL
	241	#undef UDIVSI3_LIBCALL
	242	#undef REMSI3_LIBCALL
	243	#undef UREMSI3_LIBCALL
	244
4f22dc71 RS	245	/* Global pointer needs to be 8 byte aligned? Link error if not... */
	246
	247	#define DATA_ALIGNMENT(dummy,align) \
	248	((TREE_PUBLIC (decl) && \
a0d66c8d	249	(POINTER_TYPE_P (TREE_TYPE (decl)))) ? 64: align)
4f22dc71 RS	250
	251	#undef FUNCTION_PROFILER
	252	#define FUNCTION_PROFILER(FILE, LABELNO) \
	253	fprintf (FILE, "\tcall __mcount_\n\tnop\n")
	254
	255	/* Overrides for i860v4.h begin here */
	256
	257	/* Provide a set of pre-definitions and pre-assertions appropriate for
	258	the i860 running Concentrix 2.x. */
	259
	260	#undef CPP_PREDEFINES
2b57e919	261	#define CPP_PREDEFINES "-Di860 -Dunix -DBSD4_3 -Dalliant -Asystem=unix -Asystem=bsd -Acpu=i860 -Amachine=i860"
4f22dc71 RS	262
	263	#undef I860_REG_PREFIX
	264	#undef ASM_COMMENT_START
	265	#define ASM_COMMENT_START "//"
ce60ce93 RS	266
	267	/* Use definitions of ASM_OUTPUT_{DOUBLE,FLOAT} as given in i860.h */
	268
	269	#undef ASM_OUTPUT_DOUBLE
	270	#define ASM_OUTPUT_DOUBLE(FILE,VALUE) \
	271	fprintf(FILE, "\t.double %.20e\n", (VALUE))
	272	#undef ASM_OUTPUT_FLOAT
	273	#define ASM_OUTPUT_FLOAT(FILE,VALUE) \
	274	fprintf(FILE, "\t.float %.12e\n", (VALUE))
	275
4f22dc71 RS	276	#undef ASM_FILE_START
	277	#define ASM_FILE_START(FILE)
	278	#undef ASM_OUTPUT_FUNCTION_PREFIX
e241407e RS	279	#define ASM_OUTPUT_FUNCTION_PREFIX(FILE,NAME) \
	280	fputs("\tnop\n", (FILE)); \
	281	current_function_original_name = (NAME)
4f22dc71 RS	282	#undef ASM_OUTPUT_PROLOGUE_SUFFIX
	283
	284	/* Overrides for svr4.h begin here */
	285
4f22dc71 RS	286	#undef SWITCH_TAKES_ARG
	287	#undef WORD_SWITCH_TAKES_ARG
	288
	289	#undef ASM_SPEC
	290	#undef ASM_FINAL_SPEC
	291	#undef MD_STARTFILE_PREFIX
ce60ce93	292	#undef MD_EXEC_PREFIX
4f22dc71 RS	293
	294	/* Generate an error message if -p option is selected. Concentrix 2.x
	295	does not support prof format profiling, only gprof is supported. */
	296
	297	#define CPP_SPEC "%{p:%e-p option not supported: use -pg instead}"
	298
	299	/* Provide an appropriate LIB_SPEC. The crtend.o file provides part of the
	300	support for getting C++ file-scope static objects constructed before
	301	entering `main'. */
	302
	303	#undef LIB_SPEC
	304	#define LIB_SPEC \
	305	"%{g*:-lg} %{!pg:-lc}%{pg:-lc_p} crtend.o%s"
	306
	307	/* Tell linker to strip local symbols, since assembler may not. */
	308
	309	#undef LINK_SPEC
	310	#define LINK_SPEC "-X"
	311
	312	/* Get the correct startup file for regular or profiled code. Also
	313	use the crtbegin.o file for C++ ... */
	314
	315	#undef STARTFILE_SPEC
	316	#define STARTFILE_SPEC \
	317	"%{!pg:crt0.o%s}%{pg:gcrt0.o%s} crtbegin.o%s"
	318
	319	#undef SCCS_DIRECTIVE
	320	#undef NO_DOLLAR_IN_LABEL
	321	#undef TARGET_MEM_FUNCTIONS
	322
	323	#undef DWARF_DEBUGGING_INFO
	324
66dae892 RK	325	/* The prefix to add to user-visible assembler symbols. */
	326
	327	#undef USER_LABEL_PREFIX
	328	#define USER_LABEL_PREFIX "_"
	329
4f22dc71 RS	330	#undef ASM_OUTPUT_EXTERNAL_LIBCALL
4f22dc71 RS	331
24f34136	332	/* ??? Is this used anywhere? */
4f22dc71	333	#undef BSS_ASM_OP
de323aa1	334	#define BSS_ASM_OP "\t.lcomm "
a67c93c8 RK	335
	336	#undef ASM_FILE_END
	337	#define ASM_FILE_END(FILE) \
	338	do { \
	339	if (current_function_original_name != NULL) { \
	340	tdesc_section(); \
	341	fprintf ((FILE), "%s __ETEXT\n", ASM_LONG); \
	342	fprintf ((FILE), "%s 0\n", ASM_LONG); \
	343	text_section(); \
	344	fputs("__ETEXT:\n", (FILE)); \
	345	} \
be163a70 ZW	346	if (!flag_no_ident) \
	347	fprintf ((FILE), "\t.ident\t\"GCC: (GNU) %s\"\n", \
	348	version_string); \
a67c93c8	349	} while (0)