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