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