?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
update copyrights in config dir.
[official-gcc.git] / gcc / config / ptx4.h
blob5580ed961381b24bc2c68f0d16d7926e1ddbae57
1 /* Operating system specific defines to be used when targeting GCC for some
2 generic System V Release 4 system.
3 Copyright (C) 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
4 Contributed by Ron Guilmette (rfg@monkeys.com).
5 Renamed and changed to suit Dynix/ptx v4 and later.
6 Modified by Tim Wright (timw@sequent.com).
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, 59 Temple Place - Suite 330,
23 Boston, MA 02111-1307, USA.
24
25 */
26
27 /* Define a symbol indicating that we are using svr4.h. */
28 #define USING_SVR4_H
29
30 /* Cpp, assembler, linker, library, and startfile spec's. */
31
32 /* This defines which switch letters take arguments. On svr4, most of
33 the normal cases (defined in gcc.c) apply, and we also have -h* and
34 -z* options (for the linker). Note however that there is no such
35 thing as a -T option for svr4. */
36
37 #define SWITCH_TAKES_ARG(CHAR) \
38 ( (CHAR) == 'D' \
39 || (CHAR) == 'U' \
40 || (CHAR) == 'o' \
41 || (CHAR) == 'e' \
42 || (CHAR) == 'u' \
43 || (CHAR) == 'I' \
44 || (CHAR) == 'm' \
45 || (CHAR) == 'L' \
46 || (CHAR) == 'A' \
47 || (CHAR) == 'h' \
48 || (CHAR) == 'z')
49
50 /* This defines which multi-letter switches take arguments. On svr4,
51 there are no such switches except those implemented by GCC itself. */
52
53 #define WORD_SWITCH_TAKES_ARG(STR) \
54 (DEFAULT_WORD_SWITCH_TAKES_ARG (STR) \
55 && strcmp (STR, "Tdata") && strcmp (STR, "Ttext") \
56 && strcmp (STR, "Tbss"))
57
58 /* You should redefine CPP_PREDEFINES in any file which includes this one.
59 The definition should be appropriate for the type of target system
60 involved, and it should include any -A (assertion) options which are
61 appropriate for the given target system. */
62 #undef CPP_PREDEFINES
63
64 /* Provide an ASM_SPEC appropriate for svr4. Here we try to support as
65 many of the specialized svr4 assembler options as seems reasonable,
66 given that there are certain options which we can't (or shouldn't)
67 support directly due to the fact that they conflict with other options
68 for other svr4 tools (e.g. ld) or with other options for GCC itself.
69 For example, we don't support the -o (output file) or -R (remove
70 input file) options because GCC already handles these things. We
71 also don't support the -m (run m4) option for the assembler because
72 that conflicts with the -m (produce load map) option of the svr4
73 linker. We do however allow passing arbitrary options to the svr4
74 assembler via the -Wa, option.
75
76 Note that gcc doesn't allow a space to follow -Y in a -Ym,* or -Yd,*
77 option.
78 */
79
80 #undef ASM_SPEC
81 #define ASM_SPEC \
82 "-no_0f_fix %{v:-V} %{Qy:} %{!Qn:-Qy} %{n} %{T} %{Ym,*} %{Yd,*} %{Wa,*:%*}"
83
84 /* svr4 assemblers need the `-' (indicating input from stdin) to come after
85 the -o option (and its argument) for some reason. If we try to put it
86 before the -o option, the assembler will try to read the file named as
87 the output file in the -o option as an input file (after it has already
88 written some stuff to it) and the binary stuff contained therein will
89 cause totally confuse the assembler, resulting in many spurious error
90 messages. */
91
92 #undef ASM_FINAL_SPEC
93 #define ASM_FINAL_SPEC "%{pipe:-}"
94
95 /* Provide a LIB_SPEC appropriate for svr4. Here we tack on the default
96 standard C library (unless we are building a shared library). */
97
98 #undef LIB_SPEC
99 #define LIB_SPEC "%{!shared:%{!symbolic:-lc}}"
100
101 /* Provide a LIBGCC_SPEC appropriate for svr4. We also want to exclude
102 libgcc when -symbolic. */
103
104 #undef LIBGCC_SPEC
105 #define LIBGCC_SPEC "%{!shared:%{!symbolic:-lgcc}}"
106
107 /* Provide an ENDFILE_SPEC appropriate for svr4. Here we tack on our own
108 magical crtend.o file (see crtstuff.c) which provides part of the
109 support for getting C++ file-scope static object constructed before
110 entering `main', followed by the normal svr3/svr4 "finalizer" file,
111 which is either `gcrtn.o' or `crtn.o'. */
112
113 #undef ENDFILE_SPEC
114 #define ENDFILE_SPEC "crtend.o%s %{pg:gcrtn.o}%{!pg:crtn.o%s}"
115
116 /* Provide a LINK_SPEC appropriate for svr4. Here we provide support
117 for the special GCC options -static, -shared, and -symbolic which
118 allow us to link things in one of these three modes by applying the
119 appropriate combinations of options at link-time. We also provide
120 support here for as many of the other svr4 linker options as seems
121 reasonable, given that some of them conflict with options for other
122 svr4 tools (e.g. the assembler). In particular, we do support the
123 -z*, -V, -b, -t, -Qy, -Qn, and -YP* options here, and the -e*,
124 -l*, -o*, -r, -s, -u*, and -L* options are directly supported
125 by gcc.c itself. We don't directly support the -m (generate load
126 map) option because that conflicts with the -m (run m4) option of
127 the svr4 assembler. We also don't directly support the svr4 linker's
128 -I* or -M* options because these conflict with existing GCC options.
129 We do however allow passing arbitrary options to the svr4 linker
130 via the -Wl, option. We don't support the svr4 linker's -a option
131 at all because it is totally useless and because it conflicts with
132 GCC's own -a option.
133
134 Note that gcc doesn't allow a space to follow -Y in a -YP,* option.
135
136 When the -G link option is used (-shared and -symbolic) a final link is
137 not being done. */
138
139 #undef LINK_SPEC
140 #define LINK_SPEC "%{h*} %{v:-V} \
141 %{b} %{Wl,*:%*} \
142 %{static:-dn -Bstatic} \
143 %{shared:-G -dy -z text} \
144 %{symbolic:-Bsymbolic -G -dy -z text} \
145 %{G:-G} \
146 %{YP,*} \
147 %{!YP,*:%{p:-Y P,/lib/libp:/usr/lib/libp:/lib:/usr/lib} \
148 %{!p:-Y P,/lib:/usr/lib}} \
149 %{Qy:} %{!Qn:-Qy}"
150
151 /* Gcc automatically adds in one of the files /lib/values-Xc.o,
152 /lib/values-Xa.o, or /lib/values-Xt.o for each final link
153 step (depending upon the other gcc options selected, such as
154 -traditional and -ansi). These files each contain one (initialized)
155 copy of a special variable called `_lib_version'. Each one of these
156 files has `_lib_version' initialized to a different (enum) value.
157 The SVR4 library routines query the value of `_lib_version' at run
158 to decide how they should behave. Specifically, they decide (based
159 upon the value of `_lib_version') if they will act in a strictly ANSI
160 conforming manner or not.
161 */
162
163 #undef STARTFILE_SPEC
164 #define STARTFILE_SPEC "%{!shared: \
165 %{!symbolic: \
166 %{pg:gcrt1.o%s}%{!pg:%{p:mcrt1.o%s}%{!p:crt1.o%s}}}}\
167 %{pg:gcrti.o%s}%{!pg:crti.o%s} \
168 %{ansi:values-Xc.o%s} \
169 %{!ansi: \
170 %{traditional:values-Xt.o%s} \
171 %{!traditional:values-Xa.o%s}} \
172 crtbegin.o%s"
173
174 /* Attach a special .ident directive to the end of the file to identify
175 the version of GCC which compiled this code. The format of the
176 .ident string is patterned after the ones produced by native svr4
177 C compilers. */
178
179 #define IDENT_ASM_OP ".ident"
180
181 #define ASM_FILE_END(FILE) \
182 do { \
183 if (!flag_no_ident) \
184 fprintf ((FILE), "\t%s\t\"GCC: (GNU) %s\"\n", \
185 IDENT_ASM_OP, version_string); \
186 } while (0)
187
188 /* Allow #sccs in preprocessor. */
189
190 #define SCCS_DIRECTIVE
191
192 /* Output #ident as a .ident. */
193
194 #define ASM_OUTPUT_IDENT(FILE, NAME) \
195 fprintf (FILE, "\t%s\t\"%s\"\n", IDENT_ASM_OP, NAME);
196
197 /* Use periods rather than dollar signs in special g++ assembler names. */
198
199 #define NO_DOLLAR_IN_LABEL
200
201 /* Writing `int' for a bitfield forces int alignment for the structure. */
202
203 #define PCC_BITFIELD_TYPE_MATTERS 1
204
205 /* Implicit library calls should use memcpy, not bcopy, etc. */
206
207 #define TARGET_MEM_FUNCTIONS
208
209 /* Handle #pragma weak and #pragma pack. */
210
211 #define HANDLE_SYSV_PRAGMA
212
213 /* System V Release 4 uses DWARF debugging info. */
214
215 #define DWARF_DEBUGGING_INFO
216
217 /* The numbers used to denote specific machine registers in the System V
218 Release 4 DWARF debugging information are quite likely to be totally
219 different from the numbers used in BSD stabs debugging information
220 for the same kind of target machine. Thus, we undefine the macro
221 DBX_REGISTER_NUMBER here as an extra inducement to get people to
222 provide proper machine-specific definitions of DBX_REGISTER_NUMBER
223 (which is also used to provide DWARF registers numbers in dwarfout.c)
224 in their tm.h files which include this file. */
225
226 #undef DBX_REGISTER_NUMBER
227
228 /* gas on SVR4 supports the use of .stabs. Permit -gstabs to be used
229 in general, although it will only work when using gas. */
230
231 #define DBX_DEBUGGING_INFO
232
233 /* Use DWARF debugging info by default. */
234
235 #ifndef PREFERRED_DEBUGGING_TYPE
236 #define PREFERRED_DEBUGGING_TYPE DWARF_DEBUG
237 #endif
238
239 /* Make LBRAC and RBRAC addresses relative to the start of the
240 function. The native Solaris stabs debugging format works this
241 way, gdb expects it, and it reduces the number of relocation
242 entries. */
243
244 #define DBX_BLOCKS_FUNCTION_RELATIVE 1
245
246 /* When using stabs, gcc2_compiled must be a stabs entry, not an
247 ordinary symbol, or gdb won't see it. The stabs entry must be
248 before the N_SO in order for gdb to find it. */
249
250 #define ASM_IDENTIFY_GCC(FILE) \
251 do \
252 { \
253 if (write_symbols != DBX_DEBUG) \
254 fputs ("gcc2_compiled.:\n", FILE); \
255 else \
256 fputs ("\t.stabs\t\"gcc2_compiled.\", 0x3c, 0, 0, 0\n", FILE); \
257 } \
258 while (0)
259
260 /* Like block addresses, stabs line numbers are relative to the
261 current function. */
262
263 #define ASM_OUTPUT_SOURCE_LINE(file, line) \
264 do \
265 { \
266 static int sym_lineno = 1; \
267 fprintf (file, ".stabn 68,0,%d,.LM%d-", \
268 line, sym_lineno); \
269 assemble_name (file, \
270 XSTR (XEXP (DECL_RTL (current_function_decl), 0), 0));\
271 fprintf (file, "\n.LM%d:\n", sym_lineno); \
272 sym_lineno += 1; \
273 } \
274 while (0)
275
276 /* In order for relative line numbers to work, we must output the
277 stabs entry for the function name first. */
278
279 #define DBX_FUNCTION_FIRST
280
281 /* Generate a blank trailing N_SO to mark the end of the .o file, since
282 we can't depend upon the linker to mark .o file boundaries with
283 embedded stabs. */
284
285 #define DBX_OUTPUT_MAIN_SOURCE_FILE_END(FILE, FILENAME) \
286 fprintf (FILE, \
287 "\t.text\n\t.stabs \"\",%d,0,0,.Letext\n.Letext:\n", N_SO)
288
289 /* Define the actual types of some ANSI-mandated types. (These
290 definitions should work for most SVR4 systems). */
291
292 #undef SIZE_TYPE
293 #define SIZE_TYPE "unsigned int"
294
295 #undef PTRDIFF_TYPE
296 #define PTRDIFF_TYPE "int"
297
298 #undef WCHAR_TYPE
299 #define WCHAR_TYPE "long int"
300
301 #undef WCHAR_TYPE_SIZE
302 #define WCHAR_TYPE_SIZE BITS_PER_WORD
303
304 /* This causes trouble, because it requires the host machine
305 to support ANSI C. */
306 /* #define MULTIBYTE_CHARS */
307
308 #undef ASM_BYTE_OP
309 #define ASM_BYTE_OP ".byte"
310
311 #undef SET_ASM_OP
312 #define SET_ASM_OP ".set"
313
314 /* This is how to begin an assembly language file. Most svr4 assemblers want
315 at least a .file directive to come first, and some want to see a .version
316 directive come right after that. Here we just establish a default
317 which generates only the .file directive. If you need a .version
318 directive for any specific target, you should override this definition
319 in the target-specific file which includes this one. */
320
321 #undef ASM_FILE_START
322 #define ASM_FILE_START(FILE) \
323 output_file_directive ((FILE), main_input_filename)
324
325 /* This is how to allocate empty space in some section. The .zero
326 pseudo-op is used for this on most svr4 assemblers. */
327
328 #define SKIP_ASM_OP ".zero"
329
330 #undef ASM_OUTPUT_SKIP
331 #define ASM_OUTPUT_SKIP(FILE,SIZE) \
332 fprintf (FILE, "\t%s\t%u\n", SKIP_ASM_OP, (SIZE))
333
334 /* The prefix to add to user-visible assembler symbols.
335
336 For System V Release 4 the convention is *not* to prepend a leading
337 underscore onto user-level symbol names. */
338
339 #undef USER_LABEL_PREFIX
340 #define USER_LABEL_PREFIX ""
341
342 /* This is how to output an internal numbered label where
343 PREFIX is the class of label and NUM is the number within the class.
344
345 For most svr4 systems, the convention is that any symbol which begins
346 with a period is not put into the linker symbol table by the assembler. */
347
348 #undef ASM_OUTPUT_INTERNAL_LABEL
349 #define ASM_OUTPUT_INTERNAL_LABEL(FILE, PREFIX, NUM) \
350 do { \
351 fprintf (FILE, ".%s%d:\n", PREFIX, NUM); \
352 } while (0)
353
354 /* This is how to store into the string LABEL
355 the symbol_ref name of an internal numbered label where
356 PREFIX is the class of label and NUM is the number within the class.
357 This is suitable for output with `assemble_name'.
358
359 For most svr4 systems, the convention is that any symbol which begins
360 with a period is not put into the linker symbol table by the assembler. */
361
362 #undef ASM_GENERATE_INTERNAL_LABEL
363 #define ASM_GENERATE_INTERNAL_LABEL(LABEL, PREFIX, NUM) \
364 do { \
365 sprintf (LABEL, "*.%s%d", PREFIX, NUM); \
366 } while (0)
367
368 /* Output the label which precedes a jumptable. Note that for all svr4
369 systems where we actually generate jumptables (which is to say every
370 svr4 target except i386, where we use casesi instead) we put the jump-
371 tables into the .rodata section and since other stuff could have been
372 put into the .rodata section prior to any given jumptable, we have to
373 make sure that the location counter for the .rodata section gets pro-
374 perly re-aligned prior to the actual beginning of the jump table. */
375
376 #define ALIGN_ASM_OP ".align"
377
378 #ifndef ASM_OUTPUT_BEFORE_CASE_LABEL
379 #define ASM_OUTPUT_BEFORE_CASE_LABEL(FILE,PREFIX,NUM,TABLE) \
380 ASM_OUTPUT_ALIGN ((FILE), 2);
381 #endif
382
383 #undef ASM_OUTPUT_CASE_LABEL
384 #define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,JUMPTABLE) \
385 do { \
386 ASM_OUTPUT_BEFORE_CASE_LABEL (FILE, PREFIX, NUM, JUMPTABLE) \
387 ASM_OUTPUT_INTERNAL_LABEL (FILE, PREFIX, NUM); \
388 } while (0)
389
390 /* The standard SVR4 assembler seems to require that certain builtin
391 library routines (e.g. .udiv) be explicitly declared as .globl
392 in each assembly file where they are referenced. */
393
394 #define ASM_OUTPUT_EXTERNAL_LIBCALL(FILE, FUN) \
395 ASM_GLOBALIZE_LABEL (FILE, XSTR (FUN, 0))
396
397 /* This says how to output assembler code to declare an
398 uninitialized external linkage data object. Under SVR4,
399 the linker seems to want the alignment of data objects
400 to depend on their types. We do exactly that here. */
401
402 #define COMMON_ASM_OP ".comm"
403
404 #undef ASM_OUTPUT_ALIGNED_COMMON
405 #define ASM_OUTPUT_ALIGNED_COMMON(FILE, NAME, SIZE, ALIGN) \
406 do { \
407 fprintf ((FILE), "\t%s\t", COMMON_ASM_OP); \
408 assemble_name ((FILE), (NAME)); \
409 fprintf ((FILE), ",%u,%u\n", (SIZE), (ALIGN) / BITS_PER_UNIT); \
410 } while (0)
411
412 /* This says how to output assembler code to declare an
413 uninitialized internal linkage data object. Under SVR4,
414 the linker seems to want the alignment of data objects
415 to depend on their types. We do exactly that here. */
416
417 #define LOCAL_ASM_OP ".local"
418
419 #undef ASM_OUTPUT_ALIGNED_LOCAL
420 #define ASM_OUTPUT_ALIGNED_LOCAL(FILE, NAME, SIZE, ALIGN) \
421 do { \
422 fprintf ((FILE), "\t%s\t", LOCAL_ASM_OP); \
423 assemble_name ((FILE), (NAME)); \
424 fprintf ((FILE), "\n"); \
425 ASM_OUTPUT_ALIGNED_COMMON (FILE, NAME, SIZE, ALIGN); \
426 } while (0)
427
428 /* This is the pseudo-op used to generate a 32-bit word of data with a
429 specific value in some section. This is the same for all known svr4
430 assemblers. */
431
432 #define INT_ASM_OP ".long"
433
434 /* This is the pseudo-op used to generate a contiguous sequence of byte
435 values from a double-quoted string WITHOUT HAVING A TERMINATING NUL
436 AUTOMATICALLY APPENDED. This is the same for most svr4 assemblers. */
437
438 #undef ASCII_DATA_ASM_OP
439 #define ASCII_DATA_ASM_OP ".ascii"
440
441 /* Support const sections and the ctors and dtors sections for g++.
442 Note that there appears to be two different ways to support const
443 sections at the moment. You can either #define the symbol
444 READONLY_DATA_SECTION (giving it some code which switches to the
445 readonly data section) or else you can #define the symbols
446 EXTRA_SECTIONS, EXTRA_SECTION_FUNCTIONS, SELECT_SECTION, and
447 SELECT_RTX_SECTION. We do both here just to be on the safe side. */
448
449 #define USE_CONST_SECTION 1
450
451 #define CONST_SECTION_ASM_OP ".section\t.rodata"
452
453 /* Define the pseudo-ops used to switch to the .ctors and .dtors sections.
454
455 Note that we want to give these sections the SHF_WRITE attribute
456 because these sections will actually contain data (i.e. tables of
457 addresses of functions in the current root executable or shared library
458 file) and, in the case of a shared library, the relocatable addresses
459 will have to be properly resolved/relocated (and then written into) by
460 the dynamic linker when it actually attaches the given shared library
461 to the executing process. (Note that on SVR4, you may wish to use the
462 `-z text' option to the ELF linker, when building a shared library, as
463 an additional check that you are doing everything right. But if you do
464 use the `-z text' option when building a shared library, you will get
465 errors unless the .ctors and .dtors sections are marked as writable
466 via the SHF_WRITE attribute.) */
467
468 #define CTORS_SECTION_ASM_OP ".section\t.ctors,\"aw\""
469 #define DTORS_SECTION_ASM_OP ".section\t.dtors,\"aw\""
470
471 /* On svr4, we *do* have support for the .init and .fini sections, and we
472 can put stuff in there to be executed before and after `main'. We let
473 crtstuff.c and other files know this by defining the following symbols.
474 The definitions say how to change sections to the .init and .fini
475 sections. This is the same for all known svr4 assemblers. */
476
477 #define INIT_SECTION_ASM_OP ".section\t.init"
478 #define FINI_SECTION_ASM_OP ".section\t.fini"
479
480 /* A default list of other sections which we might be "in" at any given
481 time. For targets that use additional sections (e.g. .tdesc) you
482 should override this definition in the target-specific file which
483 includes this file. */
484
485 #undef EXTRA_SECTIONS
486 #define EXTRA_SECTIONS in_const, in_ctors, in_dtors
487
488 /* A default list of extra section function definitions. For targets
489 that use additional sections (e.g. .tdesc) you should override this
490 definition in the target-specific file which includes this file. */
491
492 #undef EXTRA_SECTION_FUNCTIONS
493 #define EXTRA_SECTION_FUNCTIONS \
494 CONST_SECTION_FUNCTION \
495 CTORS_SECTION_FUNCTION \
496 DTORS_SECTION_FUNCTION
497
498 #define READONLY_DATA_SECTION() const_section ()
499
500 #define CONST_SECTION_FUNCTION \
501 void \
502 const_section () \
503 { \
504 if (!USE_CONST_SECTION) \
505 text_section(); \
506 else if (in_section != in_const) \
507 { \
508 fprintf (asm_out_file, "%s\n", CONST_SECTION_ASM_OP); \
509 in_section = in_const; \
510 } \
511 }
512
513 #define CTORS_SECTION_FUNCTION \
514 void \
515 ctors_section () \
516 { \
517 if (in_section != in_ctors) \
518 { \
519 fprintf (asm_out_file, "%s\n", CTORS_SECTION_ASM_OP); \
520 in_section = in_ctors; \
521 } \
522 }
523
524 #define DTORS_SECTION_FUNCTION \
525 void \
526 dtors_section () \
527 { \
528 if (in_section != in_dtors) \
529 { \
530 fprintf (asm_out_file, "%s\n", DTORS_SECTION_ASM_OP); \
531 in_section = in_dtors; \
532 } \
533 }
534
535 /* Switch into a generic section.
536 This is currently only used to support section attributes.
537
538 We make the section read-only and executable for a function decl,
539 read-only for a const data decl, and writable for a non-const data decl. */
540 #define ASM_OUTPUT_SECTION_NAME(FILE, DECL, NAME, RELOC) \
541 fprintf (FILE, ".section\t%s,\"%s\",@progbits\n", NAME, \
542 (DECL) && TREE_CODE (DECL) == FUNCTION_DECL ? "ax" : \
543 (DECL) && DECL_READONLY_SECTION (DECL, RELOC) ? "a" : "aw")
544
545
546 /* A C statement (sans semicolon) to output an element in the table of
547 global constructors. */
548 #define ASM_OUTPUT_CONSTRUCTOR(FILE,NAME) \
549 do { \
550 ctors_section (); \
551 fprintf (FILE, "\t%s\t ", INT_ASM_OP); \
552 assemble_name (FILE, NAME); \
553 fprintf (FILE, "\n"); \
554 } while (0)
555
556 /* A C statement (sans semicolon) to output an element in the table of
557 global destructors. */
558 #define ASM_OUTPUT_DESTRUCTOR(FILE,NAME) \
559 do { \
560 dtors_section (); \
561 fprintf (FILE, "\t%s\t ", INT_ASM_OP); \
562 assemble_name (FILE, NAME); \
563 fprintf (FILE, "\n"); \
564 } while (0)
565
566 /* A C statement or statements to switch to the appropriate
567 section for output of DECL. DECL is either a `VAR_DECL' node
568 or a constant of some sort. RELOC indicates whether forming
569 the initial value of DECL requires link-time relocations. */
570
571 #define SELECT_SECTION(DECL,RELOC) \
572 { \
573 if (TREE_CODE (DECL) == STRING_CST) \
574 { \
575 if (! flag_writable_strings) \
576 const_section (); \
577 else \
578 data_section (); \
579 } \
580 else if (TREE_CODE (DECL) == VAR_DECL) \
581 { \
582 if ((flag_pic && RELOC) \
583 || !TREE_READONLY (DECL) || TREE_SIDE_EFFECTS (DECL) \
584 || !DECL_INITIAL (DECL) \
585 || (DECL_INITIAL (DECL) != error_mark_node \
586 && !TREE_CONSTANT (DECL_INITIAL (DECL)))) \
587 data_section (); \
588 else \
589 const_section (); \
590 } \
591 else \
592 const_section (); \
593 }
594
595 /* A C statement or statements to switch to the appropriate
596 section for output of RTX in mode MODE. RTX is some kind
597 of constant in RTL. The argument MODE is redundant except
598 in the case of a `const_int' rtx. Currently, these always
599 go into the const section. */
600
601 #undef SELECT_RTX_SECTION
602 #define SELECT_RTX_SECTION(MODE,RTX) const_section()
603
604 /* Define the strings used for the special svr4 .type and .size directives.
605 These strings generally do not vary from one system running svr4 to
606 another, but if a given system (e.g. m88k running svr) needs to use
607 different pseudo-op names for these, they may be overridden in the
608 file which includes this one. */
609
610 #define TYPE_ASM_OP ".type"
611 #define SIZE_ASM_OP ".size"
612
613 /* This is how we tell the assembler that a symbol is weak. */
614
615 #define ASM_WEAKEN_LABEL(FILE,NAME) \
616 do { fputs ("\t.weak\t", FILE); assemble_name (FILE, NAME); \
617 fputc ('\n', FILE); } while (0)
618
619 /* The following macro defines the format used to output the second
620 operand of the .type assembler directive. Different svr4 assemblers
621 expect various different forms for this operand. The one given here
622 is just a default. You may need to override it in your machine-
623 specific tm.h file (depending upon the particulars of your assembler). */
624
625 #define TYPE_OPERAND_FMT "@%s"
626
627 /* Write the extra assembler code needed to declare a function's result.
628 Most svr4 assemblers don't require any special declaration of the
629 result value, but there are exceptions. */
630
631 #ifndef ASM_DECLARE_RESULT
632 #define ASM_DECLARE_RESULT(FILE, RESULT)
633 #endif
634
635 /* These macros generate the special .type and .size directives which
636 are used to set the corresponding fields of the linker symbol table
637 entries in an ELF object file under SVR4. These macros also output
638 the starting labels for the relevant functions/objects. */
639
640 /* Write the extra assembler code needed to declare a function properly.
641 Some svr4 assemblers need to also have something extra said about the
642 function's return value. We allow for that here. */
643
644 #define ASM_DECLARE_FUNCTION_NAME(FILE, NAME, DECL) \
645 do { \
646 fprintf (FILE, "\t%s\t ", TYPE_ASM_OP); \
647 assemble_name (FILE, NAME); \
648 putc (',', FILE); \
649 fprintf (FILE, TYPE_OPERAND_FMT, "function"); \
650 putc ('\n', FILE); \
651 ASM_DECLARE_RESULT (FILE, DECL_RESULT (DECL)); \
652 ASM_OUTPUT_LABEL(FILE, NAME); \
653 } while (0)
654
655 /* Write the extra assembler code needed to declare an object properly. */
656
657 #define ASM_DECLARE_OBJECT_NAME(FILE, NAME, DECL) \
658 do { \
659 fprintf (FILE, "\t%s\t ", TYPE_ASM_OP); \
660 assemble_name (FILE, NAME); \
661 putc (',', FILE); \
662 fprintf (FILE, TYPE_OPERAND_FMT, "object"); \
663 putc ('\n', FILE); \
664 size_directive_output = 0; \
665 if (!flag_inhibit_size_directive && DECL_SIZE (DECL)) \
666 { \
667 size_directive_output = 1; \
668 fprintf (FILE, "\t%s\t ", SIZE_ASM_OP); \
669 assemble_name (FILE, NAME); \
670 fprintf (FILE, ",%d\n", int_size_in_bytes (TREE_TYPE (DECL))); \
671 } \
672 ASM_OUTPUT_LABEL(FILE, NAME); \
673 } while (0)
674
675 /* Output the size directive for a decl in rest_of_decl_compilation
676 in the case where we did not do so before the initializer.
677 Once we find the error_mark_node, we know that the value of
678 size_directive_output was set
679 by ASM_DECLARE_OBJECT_NAME when it was run for the same decl. */
680
681 #define ASM_FINISH_DECLARE_OBJECT(FILE, DECL, TOP_LEVEL, AT_END) \
682 do { \
683 char *name = XSTR (XEXP (DECL_RTL (DECL), 0), 0); \
684 if (!flag_inhibit_size_directive && DECL_SIZE (DECL) \
685 && ! AT_END && TOP_LEVEL \
686 && DECL_INITIAL (DECL) == error_mark_node \
687 && !size_directive_output) \
688 { \
689 size_directive_output = 1; \
690 fprintf (FILE, "\t%s\t ", SIZE_ASM_OP); \
691 assemble_name (FILE, name); \
692 fprintf (FILE, ",%d\n", int_size_in_bytes (TREE_TYPE (DECL))); \
693 } \
694 } while (0)
695
696 /* This is how to declare the size of a function. */
697
698 #define ASM_DECLARE_FUNCTION_SIZE(FILE, FNAME, DECL) \
699 do { \
700 if (!flag_inhibit_size_directive) \
701 { \
702 char label[256]; \
703 static int labelno; \
704 labelno++; \
705 ASM_GENERATE_INTERNAL_LABEL (label, "Lfe", labelno); \
706 ASM_OUTPUT_INTERNAL_LABEL (FILE, "Lfe", labelno); \
707 fprintf (FILE, "\t%s\t ", SIZE_ASM_OP); \
708 assemble_name (FILE, (FNAME)); \
709 fprintf (FILE, ","); \
710 assemble_name (FILE, label); \
711 fprintf (FILE, "-"); \
712 assemble_name (FILE, (FNAME)); \
713 putc ('\n', FILE); \
714 } \
715 } while (0)
716
717 /* A table of bytes codes used by the ASM_OUTPUT_ASCII and
718 ASM_OUTPUT_LIMITED_STRING macros. Each byte in the table
719 corresponds to a particular byte value [0..255]. For any
720 given byte value, if the value in the corresponding table
721 position is zero, the given character can be output directly.
722 If the table value is 1, the byte must be output as a \ooo
723 octal escape. If the tables value is anything else, then the
724 byte value should be output as a \ followed by the value
725 in the table. Note that we can use standard UN*X escape
726 sequences for many control characters, but we don't use
727 \a to represent BEL because some svr4 assemblers (e.g. on
728 the i386) don't know about that. Also, we don't use \v
729 since some versions of gas, such as 2.2 did not accept it. */
730
731 #define ESCAPES \
732 "\1\1\1\1\1\1\1\1btn\1fr\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\
733 \0\0\"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\
734 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\\\0\0\0\
735 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\1\
736 \1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\
737 \1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\
738 \1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\
739 \1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1\1"
740
741 /* Some svr4 assemblers have a limit on the number of characters which
742 can appear in the operand of a .string directive. If your assembler
743 has such a limitation, you should define STRING_LIMIT to reflect that
744 limit. Note that at least some svr4 assemblers have a limit on the
745 actual number of bytes in the double-quoted string, and that they
746 count each character in an escape sequence as one byte. Thus, an
747 escape sequence like \377 would count as four bytes.
748
749 If your target assembler doesn't support the .string directive, you
750 should define this to zero.
751 */
752
753 #define STRING_LIMIT ((unsigned) 256)
754
755 #define STRING_ASM_OP ".string"
756
757 /* The routine used to output NUL terminated strings. We use a special
758 version of this for most svr4 targets because doing so makes the
759 generated assembly code more compact (and thus faster to assemble)
760 as well as more readable, especially for targets like the i386
761 (where the only alternative is to output character sequences as
762 comma separated lists of numbers). */
763
764 #define ASM_OUTPUT_LIMITED_STRING(FILE, STR) \
765 do \
766 { \
767 register unsigned char *_limited_str = (unsigned char *) (STR); \
768 register unsigned ch; \
769 fprintf ((FILE), "\t%s\t\"", STRING_ASM_OP); \
770 for (; ch = *_limited_str; _limited_str++) \
771 { \
772 register int escape; \
773 switch (escape = ESCAPES[ch]) \
774 { \
775 case 0: \
776 putc (ch, (FILE)); \
777 break; \
778 case 1: \
779 fprintf ((FILE), "\\%03o", ch); \
780 break; \
781 default: \
782 putc ('\\', (FILE)); \
783 putc (escape, (FILE)); \
784 break; \
785 } \
786 } \
787 fprintf ((FILE), "\"\n"); \
788 } \
789 while (0)
790
791 /* The routine used to output sequences of byte values. We use a special
792 version of this for most svr4 targets because doing so makes the
793 generated assembly code more compact (and thus faster to assemble)
794 as well as more readable. Note that if we find subparts of the
795 character sequence which end with NUL (and which are shorter than
796 STRING_LIMIT) we output those using ASM_OUTPUT_LIMITED_STRING. */
797
798 #undef ASM_OUTPUT_ASCII
799 #define ASM_OUTPUT_ASCII(FILE, STR, LENGTH) \
800 do \
801 { \
802 register unsigned char *_ascii_bytes = (unsigned char *) (STR); \
803 register unsigned char *limit = _ascii_bytes + (LENGTH); \
804 register unsigned bytes_in_chunk = 0; \
805 for (; _ascii_bytes < limit; _ascii_bytes++) \
806 { \
807 register unsigned char *p; \
808 if (bytes_in_chunk >= 60) \
809 { \
810 fprintf ((FILE), "\"\n"); \
811 bytes_in_chunk = 0; \
812 } \
813 for (p = _ascii_bytes; p < limit && *p != '\0'; p++) \
814 continue; \
815 if (p < limit && (p - _ascii_bytes) <= STRING_LIMIT) \
816 { \
817 if (bytes_in_chunk > 0) \
818 { \
819 fprintf ((FILE), "\"\n"); \
820 bytes_in_chunk = 0; \
821 } \
822 ASM_OUTPUT_LIMITED_STRING ((FILE), _ascii_bytes); \
823 _ascii_bytes = p; \
824 } \
825 else \
826 { \
827 register int escape; \
828 register unsigned ch; \
829 if (bytes_in_chunk == 0) \
830 fprintf ((FILE), "\t%s\t\"", ASCII_DATA_ASM_OP); \
831 switch (escape = ESCAPES[ch = *_ascii_bytes]) \
832 { \
833 case 0: \
834 putc (ch, (FILE)); \
835 bytes_in_chunk++; \
836 break; \
837 case 1: \
838 fprintf ((FILE), "\\%03o", ch); \
839 bytes_in_chunk += 4; \
840 break; \
841 default: \
842 putc ('\\', (FILE)); \
843 putc (escape, (FILE)); \
844 bytes_in_chunk += 2; \
845 break; \
846 } \
847 } \
848 } \
849 if (bytes_in_chunk > 0) \
850 fprintf ((FILE), "\"\n"); \
851 } \
852 while (0)
853
854 /* All SVR4 targets use the ELF object file format. */
855 #define OBJECT_FORMAT_ELF
Mirror of the offical gcc git repository hosted at gcc.gnu.org