Return to fx2800.h CVS log

Up to [Apple XNU] / GNUtools / cc / config / i860

Annotation of GNUtools/cc/config/i860/fx2800.h, revision 1.1

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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.