OSDN Git Service

* c-lang.c (LANG_HOOKS_NAME): New.
[pf3gnuchains/gcc-fork.git] / gcc / config / elfos.h
1 /* elfos.h  --  operating system specific defines to be used when
2    targeting GCC for some generic ELF system
3    Copyright (C) 1991, 1994, 1995, 1999, 2000, 2001
4    Free Software Foundation, Inc.
5    Based on svr4.h contributed by Ron Guilmette (rfg@netcom.com).
6
7 This file is part of GNU CC.
8
9 GNU CC is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2, or (at your option)
12 any later version.
13
14 GNU CC is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17 GNU General Public License for more details.
18
19 You should have received a copy of the GNU General Public License
20 along with GNU CC; see the file COPYING.  If not, write to
21 the Free Software Foundation, 59 Temple Place - Suite 330,
22 Boston, MA 02111-1307, USA.  */
23
24
25 /* Define a symbol indicating that we are using elfos.h.
26    Some CPU specific configuration files use this.  */
27 #define USING_ELFOS_H
28
29 /* The prefix to add to user-visible assembler symbols.
30
31    For ELF systems the convention is *not* to prepend a leading
32    underscore onto user-level symbol names.  */
33
34 #undef  USER_LABEL_PREFIX
35 #define USER_LABEL_PREFIX ""
36
37 /* Biggest alignment supported by the object file format of this
38    machine.  Use this macro to limit the alignment which can be
39    specified using the `__attribute__ ((aligned (N)))' construct.  If
40    not defined, the default value is `BIGGEST_ALIGNMENT'.  */
41 #ifndef MAX_OFILE_ALIGNMENT
42 #define MAX_OFILE_ALIGNMENT (32768 * 8)
43 #endif
44
45 #undef  ENDFILE_SPEC
46 #define ENDFILE_SPEC "crtend.o%s"
47
48 #undef  STARTFILE_SPEC
49 #define STARTFILE_SPEC "%{!shared: \
50                          %{!symbolic: \
51                           %{pg:gcrt0.o%s}%{!pg:%{p:mcrt0.o%s}%{!p:crt0.o%s}}}}\
52                         crtbegin.o%s"
53
54 /* Use periods rather than dollar signs in special g++ assembler names.  */
55
56 #define NO_DOLLAR_IN_LABEL
57
58 /* Writing `int' for a bitfield forces int alignment for the structure.  */
59
60 #define PCC_BITFIELD_TYPE_MATTERS 1
61
62 /* Implicit library calls should use memcpy, not bcopy, etc.  */
63
64 #define TARGET_MEM_FUNCTIONS
65
66 /* Handle #pragma weak and #pragma pack.  */
67
68 #define HANDLE_SYSV_PRAGMA
69
70 /* System V Release 4 uses DWARF debugging info.  */
71
72 #ifndef DWARF_DEBUGGING_INFO
73 #define DWARF_DEBUGGING_INFO 1
74 #endif
75
76 /* All ELF targets can support DWARF-2.  */
77
78 #ifndef DWARF2_DEBUGGING_INFO
79 #define DWARF2_DEBUGGING_INFO 1
80 #endif
81
82 /* Also allow them to support STABS debugging.  */
83
84 #include "dbxelf.h"
85
86 /* The GNU tools operate better with stabs.  Since we don't have
87    any native tools to be compatible with, default to stabs.  */
88
89 #ifndef PREFERRED_DEBUGGING_TYPE
90 #define PREFERRED_DEBUGGING_TYPE DBX_DEBUG
91 #endif
92
93 /* All SVR4 targets use the ELF object file format.  */
94 #define OBJECT_FORMAT_ELF
95
96
97 /* Output #ident as a .ident.  */
98
99 #define ASM_OUTPUT_IDENT(FILE, NAME) \
100   fprintf (FILE, "%s\"%s\"\n", IDENT_ASM_OP, NAME);
101
102 #define IDENT_ASM_OP "\t.ident\t"
103
104 #undef  ASM_BYTE_OP
105 #define ASM_BYTE_OP     "\t.byte\t"
106
107 #undef  SET_ASM_OP
108 #define SET_ASM_OP      "\t.set\t"
109
110 /* This is how to begin an assembly language file.  Most svr4 assemblers want
111    at least a .file directive to come first, and some want to see a .version
112    directive come right after that.  Here we just establish a default
113    which generates only the .file directive.  If you need a .version
114    directive for any specific target, you should override this definition
115    in the target-specific file which includes this one.  */
116
117 #undef ASM_FILE_START
118 #define ASM_FILE_START(FILE)                            \
119   output_file_directive ((FILE), main_input_filename)
120
121 /* This is how to allocate empty space in some section.  The .zero
122    pseudo-op is used for this on most svr4 assemblers.  */
123
124 #define SKIP_ASM_OP     "\t.zero\t"
125
126 #undef  ASM_OUTPUT_SKIP
127 #define ASM_OUTPUT_SKIP(FILE, SIZE) \
128   fprintf (FILE, "%s%u\n", SKIP_ASM_OP, (SIZE))
129
130 /* This is how to output an internal numbered label where
131    PREFIX is the class of label and NUM is the number within the class.
132
133    For most svr4 systems, the convention is that any symbol which begins
134    with a period is not put into the linker symbol table by the assembler.  */
135
136 #undef  ASM_OUTPUT_INTERNAL_LABEL
137 #define ASM_OUTPUT_INTERNAL_LABEL(FILE, PREFIX, NUM)    \
138   do                                                    \
139     {                                                   \
140       fprintf (FILE, ".%s%d:\n", PREFIX, NUM);          \
141     }                                                   \
142   while (0)
143
144 /* This is how to store into the string LABEL
145    the symbol_ref name of an internal numbered label where
146    PREFIX is the class of label and NUM is the number within the class.
147    This is suitable for output with `assemble_name'.
148
149    For most svr4 systems, the convention is that any symbol which begins
150    with a period is not put into the linker symbol table by the assembler.  */
151
152 #undef  ASM_GENERATE_INTERNAL_LABEL
153 #define ASM_GENERATE_INTERNAL_LABEL(LABEL, PREFIX, NUM)         \
154   do                                                            \
155     {                                                           \
156       sprintf (LABEL, "*.%s%u", PREFIX, (unsigned) (NUM));      \
157     }                                                           \
158   while (0)
159
160 /* Output the label which precedes a jumptable.  Note that for all svr4
161    systems where we actually generate jumptables (which is to say every
162    svr4 target except i386, where we use casesi instead) we put the jump-
163    tables into the .rodata section and since other stuff could have been
164    put into the .rodata section prior to any given jumptable, we have to
165    make sure that the location counter for the .rodata section gets pro-
166    perly re-aligned prior to the actual beginning of the jump table.  */
167
168 #define ALIGN_ASM_OP "\t.align\t"
169
170 #ifndef ASM_OUTPUT_BEFORE_CASE_LABEL
171 #define ASM_OUTPUT_BEFORE_CASE_LABEL(FILE, PREFIX, NUM, TABLE) \
172   ASM_OUTPUT_ALIGN ((FILE), 2);
173 #endif
174
175 #undef  ASM_OUTPUT_CASE_LABEL
176 #define ASM_OUTPUT_CASE_LABEL(FILE, PREFIX, NUM, JUMPTABLE)             \
177   do                                                                    \
178     {                                                                   \
179       ASM_OUTPUT_BEFORE_CASE_LABEL (FILE, PREFIX, NUM, JUMPTABLE)       \
180         ASM_OUTPUT_INTERNAL_LABEL (FILE, PREFIX, NUM);                  \
181     }                                                                   \
182   while (0)
183
184 /* The standard SVR4 assembler seems to require that certain builtin
185    library routines (e.g. .udiv) be explicitly declared as .globl
186    in each assembly file where they are referenced.  */
187
188 #define ASM_OUTPUT_EXTERNAL_LIBCALL(FILE, FUN)  \
189   ASM_GLOBALIZE_LABEL (FILE, XSTR (FUN, 0))
190
191 /* This says how to output assembler code to declare an
192    uninitialized external linkage data object.  Under SVR4,
193    the linker seems to want the alignment of data objects
194    to depend on their types.  We do exactly that here.  */
195
196 #define COMMON_ASM_OP   "\t.comm\t"
197
198 #undef  ASM_OUTPUT_ALIGNED_COMMON
199 #define ASM_OUTPUT_ALIGNED_COMMON(FILE, NAME, SIZE, ALIGN)              \
200   do                                                                    \
201     {                                                                   \
202       fprintf ((FILE), "%s", COMMON_ASM_OP);                            \
203       assemble_name ((FILE), (NAME));                                   \
204       fprintf ((FILE), ",%u,%u\n", (SIZE), (ALIGN) / BITS_PER_UNIT);    \
205     }                                                                   \
206   while (0)
207
208 /* This says how to output assembler code to declare an
209    uninitialized internal linkage data object.  Under SVR4,
210    the linker seems to want the alignment of data objects
211    to depend on their types.  We do exactly that here.  */
212
213 #define LOCAL_ASM_OP    "\t.local\t"
214
215 #undef  ASM_OUTPUT_ALIGNED_LOCAL
216 #define ASM_OUTPUT_ALIGNED_LOCAL(FILE, NAME, SIZE, ALIGN)       \
217   do                                                            \
218     {                                                           \
219       fprintf ((FILE), "%s", LOCAL_ASM_OP);                     \
220       assemble_name ((FILE), (NAME));                           \
221       fprintf ((FILE), "\n");                                   \
222       ASM_OUTPUT_ALIGNED_COMMON (FILE, NAME, SIZE, ALIGN);      \
223     }                                                           \
224   while (0)
225
226 /* This is the pseudo-op used to generate a reference to a specific
227    symbol in some section.  It is only used in machine-specific
228    configuration files.  This is the same for all known svr4
229    assemblers, except those in targets that don't use 32-bit pointers.
230    Those should override INT_ASM_OP.  Yes, the name of the macro is
231    misleading.  */
232
233 #ifndef INT_ASM_OP
234 #define INT_ASM_OP              "\t.long\t"
235 #endif
236
237 /* This is the pseudo-op used to generate a contiguous sequence of byte
238    values from a double-quoted string WITHOUT HAVING A TERMINATING NUL
239    AUTOMATICALLY APPENDED.  This is the same for most svr4 assemblers.  */
240
241 #undef  ASCII_DATA_ASM_OP
242 #define ASCII_DATA_ASM_OP       "\t.ascii\t"
243
244 /* Support const sections and the ctors and dtors sections for g++.
245    Note that there appears to be two different ways to support const
246    sections at the moment.  You can either #define the symbol
247    READONLY_DATA_SECTION (giving it some code which switches to the
248    readonly data section) or else you can #define the symbols
249    EXTRA_SECTIONS, EXTRA_SECTION_FUNCTIONS, SELECT_SECTION, and
250    SELECT_RTX_SECTION.  We do both here just to be on the safe side.  */
251
252 #define USE_CONST_SECTION       1
253
254 #define CONST_SECTION_ASM_OP    "\t.section\t.rodata"
255
256 /* On svr4, we *do* have support for the .init and .fini sections, and we
257    can put stuff in there to be executed before and after `main'.  We let
258    crtstuff.c and other files know this by defining the following symbols.
259    The definitions say how to change sections to the .init and .fini
260    sections.  This is the same for all known svr4 assemblers.  */
261
262 #define INIT_SECTION_ASM_OP     "\t.section\t.init"
263 #define FINI_SECTION_ASM_OP     "\t.section\t.fini"
264
265 #ifdef HAVE_GAS_SUBSECTION_ORDERING
266
267 #define ASM_SECTION_START_OP    "\t.subsection\t-1"
268
269 /* Output assembly directive to move to the beginning of current section.  */
270 #define ASM_OUTPUT_SECTION_START(FILE)  \
271   fprintf ((FILE), "%s\n", ASM_SECTION_START_OP)
272
273 #endif
274
275 /* A default list of other sections which we might be "in" at any given
276    time.  For targets that use additional sections (e.g. .tdesc) you
277    should override this definition in the target-specific file which
278    includes this file.  */
279
280 #undef  EXTRA_SECTIONS
281 #define EXTRA_SECTIONS in_const
282
283 /* A default list of extra section function definitions.  For targets
284    that use additional sections (e.g. .tdesc) you should override this
285    definition in the target-specific file which includes this file.  */
286
287 #undef  EXTRA_SECTION_FUNCTIONS
288 #define EXTRA_SECTION_FUNCTIONS         \
289   CONST_SECTION_FUNCTION
290
291 #define READONLY_DATA_SECTION() const_section ()
292
293 #define CONST_SECTION_FUNCTION                                  \
294 void                                                            \
295 const_section ()                                                \
296 {                                                               \
297   if (!USE_CONST_SECTION)                                       \
298     text_section ();                                            \
299   else if (in_section != in_const)                              \
300     {                                                           \
301       fprintf (asm_out_file, "%s\n", CONST_SECTION_ASM_OP);     \
302       in_section = in_const;                                    \
303     }                                                           \
304 }
305
306 #define MAKE_DECL_ONE_ONLY(DECL) (DECL_WEAK (DECL) = 1)
307
308 #define UNIQUE_SECTION(DECL, RELOC)                             \
309   do                                                            \
310     {                                                           \
311       int len;                                                  \
312       int sec;                                                  \
313       const char *name;                                         \
314       char *string;                                             \
315       const char *prefix;                                       \
316       static const char *const prefixes[4][2] =                 \
317       {                                                         \
318         { ".text.",   ".gnu.linkonce.t." },                     \
319         { ".rodata.", ".gnu.linkonce.r." },                     \
320         { ".data.",   ".gnu.linkonce.d." },                     \
321         { ".bss.",    ".gnu.linkonce.b." }                      \
322       };                                                        \
323                                                                 \
324       if (TREE_CODE (DECL) == FUNCTION_DECL)                    \
325         sec = 0;                                                \
326       else if (DECL_INITIAL (DECL) == 0                         \
327                || DECL_INITIAL (DECL) == error_mark_node)       \
328         sec =  3;                                               \
329       else if (DECL_READONLY_SECTION (DECL, RELOC))             \
330         sec = 1;                                                \
331       else                                                      \
332         sec = 2;                                                \
333                                                                 \
334       name   = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (DECL)); \
335       /* Strip off any encoding in name.  */                    \
336       STRIP_NAME_ENCODING (name, name);                         \
337       prefix = prefixes[sec][DECL_ONE_ONLY(DECL)];              \
338       len    = strlen (name) + strlen (prefix);                 \
339       string = alloca (len + 1);                                \
340                                                                 \
341       sprintf (string, "%s%s", prefix, name);                   \
342                                                                 \
343       DECL_SECTION_NAME (DECL) = build_string (len, string);    \
344     }                                                           \
345   while (0)
346      
347 /* Switch into a generic section.  */
348 #define TARGET_ASM_NAMED_SECTION  default_elf_asm_named_section
349
350 /* A C statement or statements to switch to the appropriate
351    section for output of RTX in mode MODE.  RTX is some kind
352    of constant in RTL.  The argument MODE is redundant except
353    in the case of a `const_int' rtx.
354    If assembler supports SHF_MERGE sections, put it into
355    a .rodata.cstN section where N is size of the constant,
356    otherwise into const section.  */
357
358 #undef  SELECT_RTX_SECTION
359 #define SELECT_RTX_SECTION(MODE, RTX, ALIGN)    \
360   mergeable_constant_section ((MODE), (ALIGN), 0)
361
362 /* A C statement or statements to switch to the appropriate
363    section for output of DECL.  DECL is either a `VAR_DECL' node
364    or a constant of some sort.  RELOC indicates whether forming
365    the initial value of DECL requires link-time relocations.  */
366
367 #undef SELECT_SECTION
368 #define SELECT_SECTION(DECL, RELOC, ALIGN)                      \
369 {                                                               \
370   if (TREE_CODE (DECL) == STRING_CST)                           \
371     {                                                           \
372       if (! flag_writable_strings)                              \
373         mergeable_string_section ((DECL), (ALIGN), 0);          \
374       else                                                      \
375         data_section ();                                        \
376     }                                                           \
377   else if (TREE_CODE (DECL) == VAR_DECL)                        \
378     {                                                           \
379       if ((flag_pic && RELOC)                                   \
380           || !TREE_READONLY (DECL) || TREE_SIDE_EFFECTS (DECL)  \
381           || !DECL_INITIAL (DECL)                               \
382           || (DECL_INITIAL (DECL) != error_mark_node            \
383               && !TREE_CONSTANT (DECL_INITIAL (DECL))))         \
384         data_section ();                                        \
385       else if (flag_merge_constants < 2)                        \
386         /* C and C++ don't allow different variables to share   \
387            the same location.  -fmerge-all-constants allows     \
388            even that (at the expense of not conforming).  */    \
389         const_section ();                                       \
390       else if (TREE_CODE (DECL_INITIAL (DECL)) == STRING_CST)   \
391         mergeable_string_section (DECL_INITIAL (DECL), (ALIGN), \
392                                   0);                           \
393       else                                                      \
394         mergeable_constant_section (DECL_MODE (DECL), (ALIGN),  \
395                                     0);                         \
396     }                                                           \
397   else if (TREE_CODE (DECL) == CONSTRUCTOR)                     \
398     {                                                           \
399       if ((flag_pic && RELOC)                                   \
400           || !TREE_READONLY (DECL) || TREE_SIDE_EFFECTS (DECL)  \
401           || ! TREE_CONSTANT (DECL))                            \
402         data_section ();                                        \
403       else                                                      \
404         const_section ();                                       \
405     }                                                           \
406   else                                                          \
407     const_section ();                                           \
408 }
409
410 /* Define the strings used for the special svr4 .type and .size directives.
411    These strings generally do not vary from one system running svr4 to
412    another, but if a given system (e.g. m88k running svr) needs to use
413    different pseudo-op names for these, they may be overridden in the
414    file which includes this one.  */
415
416 #define TYPE_ASM_OP     "\t.type\t"
417 #define SIZE_ASM_OP     "\t.size\t"
418
419 /* This is how we tell the assembler that a symbol is weak.  */
420
421 #define ASM_WEAKEN_LABEL(FILE, NAME)    \
422   do                                    \
423     {                                   \
424       fputs ("\t.weak\t", (FILE));      \
425       assemble_name ((FILE), (NAME));   \
426       fputc ('\n', (FILE));             \
427     }                                   \
428   while (0)
429
430 /* The following macro defines the format used to output the second
431    operand of the .type assembler directive.  Different svr4 assemblers
432    expect various different forms for this operand.  The one given here
433    is just a default.  You may need to override it in your machine-
434    specific tm.h file (depending upon the particulars of your assembler).  */
435
436 #define TYPE_OPERAND_FMT        "@%s"
437
438 /* Write the extra assembler code needed to declare a function's result.
439    Most svr4 assemblers don't require any special declaration of the
440    result value, but there are exceptions.  */
441
442 #ifndef ASM_DECLARE_RESULT
443 #define ASM_DECLARE_RESULT(FILE, RESULT)
444 #endif
445
446 /* These macros generate the special .type and .size directives which
447    are used to set the corresponding fields of the linker symbol table
448    entries in an ELF object file under SVR4.  These macros also output
449    the starting labels for the relevant functions/objects.  */
450
451 /* Write the extra assembler code needed to declare a function properly.
452    Some svr4 assemblers need to also have something extra said about the
453    function's return value.  We allow for that here.  */
454
455 #ifndef ASM_DECLARE_FUNCTION_NAME
456 #define ASM_DECLARE_FUNCTION_NAME(FILE, NAME, DECL)     \
457   do                                                    \
458     {                                                   \
459       fprintf (FILE, "%s", TYPE_ASM_OP);                \
460       assemble_name (FILE, NAME);                       \
461       putc (',', FILE);                                 \
462       fprintf (FILE, TYPE_OPERAND_FMT, "function");     \
463       putc ('\n', FILE);                                \
464                                                         \
465       ASM_DECLARE_RESULT (FILE, DECL_RESULT (DECL));    \
466       ASM_OUTPUT_LABEL(FILE, NAME);                     \
467     }                                                   \
468   while (0)
469 #endif
470
471 /* Write the extra assembler code needed to declare an object properly.  */
472
473 #define ASM_DECLARE_OBJECT_NAME(FILE, NAME, DECL)               \
474   do                                                            \
475     {                                                           \
476       fprintf (FILE, "%s", TYPE_ASM_OP);                        \
477       assemble_name (FILE, NAME);                               \
478       putc (',', FILE);                                         \
479       fprintf (FILE, TYPE_OPERAND_FMT, "object");               \
480       putc ('\n', FILE);                                        \
481                                                                 \
482       size_directive_output = 0;                                \
483                                                                 \
484       if (!flag_inhibit_size_directive                          \
485           && (DECL) && DECL_SIZE (DECL))                        \
486         {                                                       \
487           size_directive_output = 1;                            \
488           fprintf (FILE, "%s", SIZE_ASM_OP);                    \
489           assemble_name (FILE, NAME);                           \
490           putc (',', FILE);                                     \
491           fprintf (FILE, HOST_WIDE_INT_PRINT_DEC,               \
492                    int_size_in_bytes (TREE_TYPE (DECL)));       \
493           fputc ('\n', FILE);                                   \
494         }                                                       \
495                                                                 \
496       ASM_OUTPUT_LABEL (FILE, NAME);                            \
497     }                                                           \
498   while (0)
499
500 /* Output the size directive for a decl in rest_of_decl_compilation
501    in the case where we did not do so before the initializer.
502    Once we find the error_mark_node, we know that the value of
503    size_directive_output was set
504    by ASM_DECLARE_OBJECT_NAME when it was run for the same decl.  */
505
506 #define ASM_FINISH_DECLARE_OBJECT(FILE, DECL, TOP_LEVEL, AT_END)\
507   do                                                            \
508     {                                                           \
509       const char *name = XSTR (XEXP (DECL_RTL (DECL), 0), 0);   \
510                                                                 \
511       if (!flag_inhibit_size_directive                          \
512           && DECL_SIZE (DECL)                                   \
513           && ! AT_END && TOP_LEVEL                              \
514           && DECL_INITIAL (DECL) == error_mark_node             \
515           && !size_directive_output)                            \
516         {                                                       \
517           size_directive_output = 1;                            \
518           fprintf (FILE, "%s", SIZE_ASM_OP);                    \
519           assemble_name (FILE, name);                           \
520           putc (',', FILE);                                     \
521           fprintf (FILE, HOST_WIDE_INT_PRINT_DEC,               \
522                    int_size_in_bytes (TREE_TYPE (DECL)));       \
523           fputc ('\n', FILE);                                   \
524         }                                                       \
525     }                                                           \
526   while (0)
527
528 /* This is how to declare the size of a function.  */
529 #ifndef ASM_DECLARE_FUNCTION_SIZE
530 #define ASM_DECLARE_FUNCTION_SIZE(FILE, FNAME, DECL)            \
531   do                                                            \
532     {                                                           \
533       if (!flag_inhibit_size_directive)                         \
534         {                                                       \
535           char label[256];                                      \
536           static int labelno;                                   \
537                                                                 \
538           labelno++;                                            \
539                                                                 \
540           ASM_GENERATE_INTERNAL_LABEL (label, "Lfe", labelno);  \
541           ASM_OUTPUT_INTERNAL_LABEL (FILE, "Lfe", labelno);     \
542                                                                 \
543           fprintf (FILE, "%s", SIZE_ASM_OP);                    \
544           assemble_name (FILE, (FNAME));                        \
545           fprintf (FILE, ",");                                  \
546           assemble_name (FILE, label);                          \
547           fprintf (FILE, "-");                                  \
548           assemble_name (FILE, (FNAME));                        \
549           putc ('\n', FILE);                                    \
550         }                                                       \
551     }                                                           \
552   while (0)
553 #endif
554
555 /* A table of bytes codes used by the ASM_OUTPUT_ASCII and
556    ASM_OUTPUT_LIMITED_STRING macros.  Each byte in the table
557    corresponds to a particular byte value [0..255].  For any
558    given byte value, if the value in the corresponding table
559    position is zero, the given character can be output directly.
560    If the table value is 1, the byte must be output as a \ooo
561    octal escape.  If the tables value is anything else, then the
562    byte value should be output as a \ followed by the value
563    in the table.  Note that we can use standard UN*X escape
564    sequences for many control characters, but we don't use
565    \a to represent BEL because some svr4 assemblers (e.g. on
566    the i386) don't know about that.  Also, we don't use \v
567    since some versions of gas, such as 2.2 did not accept it.  */
568
569 #define ESCAPES \
570 "\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\
571 \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\
572 \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\
573 \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\
574 \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\
575 \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\
576 \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\
577 \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"
578
579 /* Some svr4 assemblers have a limit on the number of characters which
580    can appear in the operand of a .string directive.  If your assembler
581    has such a limitation, you should define STRING_LIMIT to reflect that
582    limit.  Note that at least some svr4 assemblers have a limit on the
583    actual number of bytes in the double-quoted string, and that they
584    count each character in an escape sequence as one byte.  Thus, an
585    escape sequence like \377 would count as four bytes.
586
587    If your target assembler doesn't support the .string directive, you
588    should define this to zero.
589 */
590
591 #define STRING_LIMIT    ((unsigned) 256)
592
593 #define STRING_ASM_OP   "\t.string\t"
594
595 /* The routine used to output NUL terminated strings.  We use a special
596    version of this for most svr4 targets because doing so makes the
597    generated assembly code more compact (and thus faster to assemble)
598    as well as more readable, especially for targets like the i386
599    (where the only alternative is to output character sequences as
600    comma separated lists of numbers).   */
601
602 #define ASM_OUTPUT_LIMITED_STRING(FILE, STR)            \
603   do                                                    \
604     {                                                   \
605       register const unsigned char *_limited_str =      \
606         (const unsigned char *) (STR);                  \
607       register unsigned ch;                             \
608                                                         \
609       fprintf ((FILE), "%s\"", STRING_ASM_OP);          \
610                                                         \
611       for (; (ch = *_limited_str); _limited_str++)      \
612         {                                               \
613           register int escape;                          \
614                                                         \
615           switch (escape = ESCAPES[ch])                 \
616             {                                           \
617             case 0:                                     \
618               putc (ch, (FILE));                        \
619               break;                                    \
620             case 1:                                     \
621               fprintf ((FILE), "\\%03o", ch);           \
622               break;                                    \
623             default:                                    \
624               putc ('\\', (FILE));                      \
625               putc (escape, (FILE));                    \
626               break;                                    \
627             }                                           \
628         }                                               \
629                                                         \
630       fprintf ((FILE), "\"\n");                         \
631     }                                                   \
632   while (0)
633
634 /* The routine used to output sequences of byte values.  We use a special
635    version of this for most svr4 targets because doing so makes the
636    generated assembly code more compact (and thus faster to assemble)
637    as well as more readable.  Note that if we find subparts of the
638    character sequence which end with NUL (and which are shorter than
639    STRING_LIMIT) we output those using ASM_OUTPUT_LIMITED_STRING.  */
640
641 #undef  ASM_OUTPUT_ASCII
642 #define ASM_OUTPUT_ASCII(FILE, STR, LENGTH)                             \
643   do                                                                    \
644     {                                                                   \
645       register const unsigned char *_ascii_bytes =                      \
646         (const unsigned char *) (STR);                                  \
647       register const unsigned char *limit = _ascii_bytes + (LENGTH);    \
648       register unsigned bytes_in_chunk = 0;                             \
649                                                                         \
650       for (; _ascii_bytes < limit; _ascii_bytes++)                      \
651         {                                                               \
652           register const unsigned char *p;                              \
653                                                                         \
654           if (bytes_in_chunk >= 60)                                     \
655             {                                                           \
656               fprintf ((FILE), "\"\n");                                 \
657               bytes_in_chunk = 0;                                       \
658             }                                                           \
659                                                                         \
660           for (p = _ascii_bytes; p < limit && *p != '\0'; p++)          \
661             continue;                                                   \
662                                                                         \
663           if (p < limit && (p - _ascii_bytes) <= (long)STRING_LIMIT)    \
664             {                                                           \
665               if (bytes_in_chunk > 0)                                   \
666                 {                                                       \
667                   fprintf ((FILE), "\"\n");                             \
668                   bytes_in_chunk = 0;                                   \
669                 }                                                       \
670                                                                         \
671               ASM_OUTPUT_LIMITED_STRING ((FILE), _ascii_bytes);         \
672               _ascii_bytes = p;                                         \
673             }                                                           \
674           else                                                          \
675             {                                                           \
676               register int escape;                                      \
677               register unsigned ch;                                     \
678                                                                         \
679               if (bytes_in_chunk == 0)                                  \
680                 fprintf ((FILE), "%s\"", ASCII_DATA_ASM_OP);            \
681                                                                         \
682               switch (escape = ESCAPES[ch = *_ascii_bytes])             \
683                 {                                                       \
684                 case 0:                                                 \
685                   putc (ch, (FILE));                                    \
686                   bytes_in_chunk++;                                     \
687                   break;                                                \
688                 case 1:                                                 \
689                   fprintf ((FILE), "\\%03o", ch);                       \
690                   bytes_in_chunk += 4;                                  \
691                   break;                                                \
692                 default:                                                \
693                   putc ('\\', (FILE));                                  \
694                   putc (escape, (FILE));                                \
695                   bytes_in_chunk += 2;                                  \
696                   break;                                                \
697                 }                                                       \
698             }                                                           \
699         }                                                               \
700                                                                         \
701       if (bytes_in_chunk > 0)                                           \
702         fprintf ((FILE), "\"\n");                                       \
703     }                                                                   \
704   while (0)