--- /dev/null
+/* 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, 675 Mass Ave, Cambridge, MA 02139, USA. */
+
+#include "i860v4.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 */
+
+/* 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++) { \
+ decl = IDENTIFIER_GLOBAL_VALUE (get_identifier (dtyps[i])); \
+ if (decl) { \
+ TYPE_SYMTAB_ADDRESS (TREE_TYPE (decl)) = i; \
+ typevec[i] = TYPE_DEFINED; \
+ dbxout_symbol (decl, 0); \
+ } \
+ } \
+ \
+ decl = IDENTIFIER_GLOBAL_VALUE (get_identifier ("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; \
+ \
+ decl = IDENTIFIER_GLOBAL_VALUE (get_identifier ("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; \
+ 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 \"%s\",.Ltext0,0x%x,0,0\n", \
+ name, N_SO); \
+ text_section (); \
+ ASM_OUTPUT_INTERNAL_LABEL (file, "Ltext", 0)
+
+#define DBX_OUTPUT_SOURCE_FILENAME(file,name) \
+ fprintf (file, ".stab \"%s\",.Ltext0,0x%x,0,0\n", \
+ name, N_SOL);
+
+#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) \
+ fprintf (file, "e3"); \
+ CHARS(2)
+
+/* 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) -Acpu(i860) -Amachine(i860)"
+
+#undef I860_REG_PREFIX
+#undef ASM_COMMENT_START
+#define ASM_COMMENT_START "//"
+#undef ASM_FILE_START
+#define ASM_FILE_START(FILE)
+#undef ASM_OUTPUT_FUNCTION_PREFIX
+#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
+
+/* 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"
projects / gcc.git / commitdiff