gcc/config/svr4.h

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