]> gcc.gnu.org Git - gcc.git/blame - gcc/config/s390/linux.h
git://gcc.gnu.org / gcc.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Coding style cleanup.
[gcc.git] / gcc / config / s390 / linux.h
CommitLineData
9db1d521
HP		 1/* Definitions for Linux for S/390.
2 Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
3 Contributed by Hartmut Penner (hpenner@de.ibm.com) and
f314b9b1 4 Ulrich Weigand (uweigand@de.ibm.com).
9db1d521
HP		 5
6This file is part of GNU CC.
7
8GNU CC is free software; you can redistribute it and/or modify
9it under the terms of the GNU General Public License as published by
10the Free Software Foundation; either version 2, or (at your option)
11any later version.
12
13GNU CC is distributed in the hope that it will be useful,
14but WITHOUT ANY WARRANTY; without even the implied warranty of
15MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16GNU General Public License for more details.
17
18You should have received a copy of the GNU General Public License
19along with GNU CC; see the file COPYING. If not, write to
20the Free Software Foundation, 59 Temple Place - Suite 330,
21Boston, MA 02111-1307, USA. */
22
23#ifndef _LINUX_H
24#define _LINUX_H
25
26#define IEEE_FLOAT 1
27#define TARGET_IBM_FLOAT 0
28#define TARGET_IEEE_FLOAT 1
29
30#include <s390/s390.h> /* Base s390 target machine definitions*/
31
32#include <linux.h>
33
34#undef SIZE_TYPE /* use default */
35
36#undef TARGET_VERSION
37#define TARGET_VERSION fprintf (stderr, " (Linux for S/390)");
38
39/* Names to predefine in the preprocessor for this target machine. */
40
41#define CPP_PREDEFINES "-Dlinux -Asystem(linux) -Acpu(s390) -Amachine(s390) -D__s390__ -Asystem(unix) -Dunix -D__ELF__"
42
43/*
44 * Caller save not (always) working in gcc-2.95.2
45 */
46
47#undef CC1_SPEC
48#define CC1_SPEC "-fno-caller-saves"
49#define CC1PLUS_SPEC "-fno-caller-saves"
50
51#undef LINK_SPEC
52#ifdef CROSS_COMPILE
53#define LINK_SPEC "-m elf_s390 %{shared:-shared} \
54 %{!shared: \
55 %{!ibcs: \
56 %{!static: \
57 %{rdynamic:-export-dynamic} \
58 %{!dynamic-linker:-dynamic-linker /lib/ld.so.1 \
59 -rpath-link=/usr/local/s390-ibm-linux/lib}} \
60 %{static:-static}}}"
61#else
62#define LINK_SPEC "-m elf_s390 %{shared:-shared} \
63 %{!shared: \
64 %{!ibcs: \
65 %{!static: \
66 %{rdynamic:-export-dynamic} \
67 %{!dynamic-linker:-dynamic-linker /lib/ld.so.1}} \
68 %{static:-static}}}"
69#endif
70
71/* Need to define this. Otherwise define to BITS_PER_WORD in cexp.c.
72 But BITS_PER_WORD depends on target flags, which are not defined in
73 cexpc.c. */
74
75#undef WCHAR_TYPE
76#define WCHAR_TYPE "int"
77#undef WCHAR_TYPE_SIZE
78#define WCHAR_TYPE_SIZE 32
79
80/* Character to start a comment. */
81
82#define ASM_COMMENT_START "#"
83
84
85/* Assembler pseudos to introduce constants of various size. */
86
87#define ASM_SHORT "\t.word"
88#define ASM_LONG "\t.long"
89#define ASM_QUAD "\t.quad"
90#define ASM_DOUBLE "\t.double"
91
92
93/* Prefix for internally generated assembler labels. */
94#define LPREFIX ".L"
95
96#define ASM_OUTPUT_LABELREF(FILE, NAME) \
97 fprintf (FILE, "%s", NAME);
98
99
100/* This is how to output the definition of a user-level label named NAME,
101 such as the label on a static function or variable NAME. */
102
103#undef ASM_OUTPUT_LABEL
104#define ASM_OUTPUT_LABEL(FILE, NAME) \
105 (assemble_name (FILE, NAME), fputs (":\n", FILE))
106
107/* This is how to output an assembler line defining a `double' constant. */
108
109
110/* This is how to output an assembler line defining a `double' constant. */
111
112#undef ASM_OUTPUT_DOUBLE
113#define ASM_OUTPUT_DOUBLE(FILE, VALUE) \
114 { \
115 long t[2]; \
116 REAL_VALUE_TO_TARGET_DOUBLE ((VALUE), t); \
117 fprintf (FILE, "\t.long 0x%lx\n\t.long 0x%lx\n", \
118 t[0] & 0xffffffff, t[1] & 0xffffffff); \
119 }
120
121/* This is how to output an assembler line defining a `float' constant. */
122
123#undef ASM_OUTPUT_FLOAT
124#define ASM_OUTPUT_FLOAT(FILE, VALUE) \
125 { \
126 long t; \
127 REAL_VALUE_TO_TARGET_SINGLE ((VALUE), t); \
128 fprintf (FILE, "\t.long 0x%lx\n", t & 0xffffffff); \
129 }
130
131/* Store in OUTPUT a string (made with alloca) containing
132 an assembler-name for a local static variable named NAME.
133 LABELNO is an integer which is different for each call. */
134
135#undef ASM_FORMAT_PRIVATE_NAME
136#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \
137( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10), \
138 sprintf ((OUTPUT), "%s.%d", (NAME), (LABELNO)))
139
140
f314b9b1
UW		 141#define ASM_OUTPUT_DOUBLE_INT(FILE, VALUE) \
142do { fprintf ((FILE), "%s\t", ASM_QUAD); \
143 /* Work around bug in some GNU as versions */ \
144 if (GET_CODE (VALUE) == CONST_INT && INTVAL (VALUE) < INT_MIN) \
145 fprintf ((FILE), HOST_WIDE_INT_PRINT_HEX, INTVAL (x)); \
146 else \
147 output_addr_const ((FILE), (VALUE)); \
148 putc ('\n', (FILE)); \
9db1d521
HP		 149 } while (0)
150
151
152/* This is how to output an assembler line defining an `int' constant. */
153
154#undef ASM_OUTPUT_INT
155#define ASM_OUTPUT_INT(FILE, VALUE) \
156do { fprintf (FILE, "%s\t", ASM_LONG); \
994fe660 157 output_addr_const (FILE, (VALUE)); \
9db1d521
HP		 158 putc ('\n',FILE); \
159 } while (0)
160
161/* Likewise for `char' and `short' constants.
162 is this supposed to do align too?? */
163
164#define ASM_OUTPUT_SHORT(FILE, VALUE) \
165( fprintf (FILE, "%s ", ASM_SHORT), \
994fe660 166 output_addr_const (FILE, (VALUE)), \
9db1d521
HP		 167 putc ('\n',FILE))
168
169#define ASM_OUTPUT_CHAR(FILE, VALUE) \
170( fprintf (FILE, "%s ", ASM_BYTE_OP), \
171 output_addr_const (FILE, (VALUE)), \
172 putc ('\n', FILE))
173
174/* This is how to output an assembler line for a numeric constant byte. */
175
176#define ASM_OUTPUT_BYTE(FILE, VALUE) \
177 fprintf ((FILE), "%s 0x%x\n", ASM_BYTE_OP, (VALUE))
178
179 /* internal macro to output long */
180#define _ASM_OUTPUT_LONG(FILE, VALUE) \
181 fprintf (FILE, "\t.long\t0x%lX\n", VALUE);
182
183
184/* This is how to output an element of a case-vector that is absolute. */
185
186#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \
f314b9b1 187 fprintf (FILE, "%s\t%s%d\n", TARGET_64BIT?ASM_QUAD:ASM_LONG, \
9db1d521
HP		 188 LPREFIX, VALUE)
189
190/* This is how to output an element of a case-vector that is relative. */
191
192#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \
f314b9b1
UW		 193 fprintf (FILE, "%s\t%s%d-%s%d\n", TARGET_64BIT?ASM_QUAD:ASM_LONG, \
194 LPREFIX, VALUE, LPREFIX, REL)
9db1d521
HP		 195
196
197
198/* This is how to output an assembler line
199 that says to advance the location counter
200 to a multiple of 2**LOG bytes. */
201
202#define ASM_OUTPUT_ALIGN(FILE, LOG) \
203 if ((LOG)!=0) fprintf ((FILE), "\t.align %d\n", 1<<(LOG))
204
205/* This is how to output an assembler line
206 that says to advance the location counter by SIZE bytes. */
207
208#undef ASM_OUTPUT_SKIP
209#define ASM_OUTPUT_SKIP(FILE, SIZE) \
210 fprintf ((FILE), "\t.set .,.+%u\n", (SIZE))
211
212/* This is how to output an assembler line
213 that says to advance the location counter
214 to a multiple of 2**LOG bytes. */
215
216#define ASM_OUTPUT_ALIGN(FILE, LOG) \
217 if ((LOG)!=0) fprintf ((FILE), "\t.align %d\n", 1<<(LOG))
218
219/* This is how to output an assembler line
220 that says to advance the location counter by SIZE bytes. */
221
222#define ASM_OUTPUT_SKIP(FILE, SIZE) \
223 fprintf ((FILE), "\t.set .,.+%u\n", (SIZE))
224
225/* The routine used to output sequences of byte values. We use a special
226 version of this for most svr4 targets because doing so makes the
227 generated assembly code more compact (and thus faster to assemble)
228 as well as more readable. Note that if we find subparts of the
229 character sequence which end with NUL (and which are shorter than
230 STRING_LIMIT) we output those using ASM_OUTPUT_LIMITED_STRING. */
231
232#undef ASM_OUTPUT_ASCII
233#define ASM_OUTPUT_ASCII(FILE, STR, LENGTH) \
234do { \
235 register unsigned char *_ascii_bytes = (unsigned char *) (STR); \
236 register unsigned char *limit = _ascii_bytes + (LENGTH); \
237 register unsigned bytes_in_chunk = 0; \
238 for (; _ascii_bytes < limit; _ascii_bytes++) \
239 { \
240 register unsigned char *p; \
241 if (bytes_in_chunk >= 64) \
242 { \
243 fputc ('\n', (FILE)); \
244 bytes_in_chunk = 0; \
245 } \
246 for (p = _ascii_bytes; p < limit && *p != '\0'; p++) \
247 continue; \
248 if (p < limit && (p - _ascii_bytes) <= STRING_LIMIT) \
249 { \
250 if (bytes_in_chunk > 0) \
251 { \
252 fputc ('\n', (FILE)); \
253 bytes_in_chunk = 0; \
254 } \
255 ASM_OUTPUT_LIMITED_STRING ((FILE), _ascii_bytes); \
256 _ascii_bytes = p; \
257 } \
258 else \
259 { \
260 if (bytes_in_chunk == 0) \
261 fprintf ((FILE), "%s\t", ASM_BYTE_OP); \
262 else \
263 fputc (',', (FILE)); \
264 fprintf ((FILE), "0x%02x", *_ascii_bytes); \
265 bytes_in_chunk += 5; \
266 } \
267 } \
268 if (bytes_in_chunk > 0) \
269 fprintf ((FILE), "\n"); \
270} while (0)
271
272/* Output before read-only data. */
273
274#define TEXT_SECTION_ASM_OP ".text"
275
276/* Output before writable (initialized) data. */
277
278#define DATA_SECTION_ASM_OP ".data"
279
280/* Output before writable (uninitialized) data. */
281
282#define BSS_SECTION_ASM_OP ".bss"
283
284/* This is how to output a command to make the user-level label named NAME
285 defined for reference from other files. */
286
994fe660 287#define ASM_GLOBALIZE_LABEL(FILE, NAME) \
9db1d521
HP		 288 (fputs (".globl ", FILE), assemble_name (FILE, NAME), fputs ("\n", FILE))
289
290#define DBX_REGISTER_NUMBER(REGNO) (REGNO)
291
9db1d521
HP		 292/* Select section for constant in constant pool.
293 We are in the right section.
294 undef for 64 bit mode (linux64.h).
295 */
296
297#undef SELECT_RTX_SECTION
298#define SELECT_RTX_SECTION(MODE, X)
299
300\f
301/* Output code to add DELTA to the first argument, and then jump to FUNCTION.
302 Used for C++ multiple inheritance. */
303#define ASM_OUTPUT_MI_THUNK(FILE, THUNK_FNDECL, DELTA, FUNCTION) \
304do { \
305 if (TARGET_64BIT) \
306 { \
307 if (flag_pic) \
308 { \
309 fprintf (FILE, "\tlarl 1,0f\n"); \
310 fprintf (FILE, "\tagf %d,0(1)\n", \
311 aggregate_value_p (TREE_TYPE \
312 (TREE_TYPE (FUNCTION))) ? 3 :2 ); \
313 fprintf (FILE, "\tlarl 1,"); \
314 assemble_name (FILE, XSTR (XEXP (DECL_RTL (FUNCTION), 0), 0)); \
315 fprintf (FILE, "@GOTENT\n"); \
316 fprintf (FILE, "\tlg 1,0(1)\n"); \
317 fprintf (FILE, "\tbr 1\n"); \
318 fprintf (FILE, "0:\t.long %d\n",DELTA); \
319 } \
320 else \
321 { \
322 fprintf (FILE, "\tlarl 1,0f\n"); \
323 fprintf (FILE, "\tagf %d,0(1)\n", \
324 aggregate_value_p (TREE_TYPE \
325 (TREE_TYPE (FUNCTION))) ? 3 :2 ); \
326 fprintf (FILE, "\tjg "); \
327 assemble_name (FILE, XSTR (XEXP (DECL_RTL (FUNCTION), 0), 0)); \
328 fprintf (FILE, "\n"); \
329 fprintf (FILE, "0:\t.long %d\n",DELTA); \
330 } \
331 } \
332 else \
333 { \
334 if (flag_pic) \
335 { \
336 fprintf (FILE, "\tbras 1,0f\n"); \
337 fprintf (FILE, "\t.long _GLOBAL_OFFSET_TABLE_-.\n"); \
338 fprintf (FILE, "\t.long "); \
339 assemble_name (FILE, XSTR (XEXP (DECL_RTL (FUNCTION), 0), 0)); \
340 fprintf (FILE, "@GOT\n"); \
341 fprintf (FILE, "\t.long %d\n",DELTA); \
342 fprintf (FILE, "0:\tal %d,8(1)\n", \
343 aggregate_value_p (TREE_TYPE \
344 (TREE_TYPE (FUNCTION))) ? 3 : 2 ); \
345 fprintf (FILE, "\tl 0,4(1)\n"); \
346 fprintf (FILE, "\tal 1,0(1)\n"); \
347 fprintf (FILE, "\talr 1,0\n"); \
348 fprintf (FILE, "\tl 1,0(1)\n"); \
349 fprintf (FILE, "\tbr 1\n"); \
350 } else { \
351 fprintf (FILE, "\tbras 1,0f\n"); \
352 fprintf (FILE, "\t.long "); \
353 assemble_name (FILE, XSTR (XEXP (DECL_RTL (FUNCTION), 0), 0)); \
354 fprintf (FILE, "-.\n"); \
355 fprintf (FILE, "\t.long %d\n",DELTA); \
356 fprintf (FILE, "0:\tal %d,4(1)\n", \
357 aggregate_value_p (TREE_TYPE \
358 (TREE_TYPE (FUNCTION))) ? 3 : 2 ); \
359 fprintf (FILE, "\tal 1,0(1)\n"); \
360 fprintf (FILE, "\tbr 1\n"); \
361 } \
362 } \
363} while (0)
364
365#endif
GNU Compiler Collection
This page took 0.097673 seconds and 5 git commands to generate.