From 4f22dc717cc761a4986bf49d0992436292e33e97 Mon Sep 17 00:00:00 2001 From: Richard Stallman Date: Fri, 15 May 1992 20:22:24 +0000 Subject: [PATCH] Initial revision From-SVN: r989 --- gcc/config/i860/fx2800.h | 296 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 296 insertions(+) create mode 100644 gcc/config/i860/fx2800.h diff --git a/gcc/config/i860/fx2800.h b/gcc/config/i860/fx2800.h new file mode 100644 index 00000000000..d23f2f6b94d --- /dev/null +++ b/gcc/config/i860/fx2800.h @@ -0,0 +1,296 @@ +/* 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" -- 2.30.2