contrib/gcc/config/rs6000/xcoff.h

   1 /* Definitions of target machine for GNU compiler,
   2    for some generic XCOFF file format
   3    Copyright (C) 2001, 2002, 2003, 2004, 2007 Free Software Foundation, Inc.
   4
   5    This file is part of GCC.
   6
   7    GCC is free software; you can redistribute it and/or modify it
   8    under the terms of the GNU General Public License as published
   9    by the Free Software Foundation; either version 2, or (at your
  10    option) any later version.
  11
  12    GCC is distributed in the hope that it will be useful, but WITHOUT
  13    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  14    or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
  15    License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with GCC; see the file COPYING.  If not, write to the
  19    Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston,
  20    MA 02110-1301, USA.  */
  21
  22 #define TARGET_OBJECT_FORMAT OBJECT_XCOFF
  23
  24 /* The RS/6000 uses the XCOFF format.  */
  25 #define XCOFF_DEBUGGING_INFO 1
  26
  27 /* Define if the object format being used is COFF or a superset.  */
  28 #define OBJECT_FORMAT_COFF
  29
  30 /* Define the magic numbers that we recognize as COFF.
  31
  32     AIX 4.3 adds U803XTOCMAGIC (0757) for 64-bit objects and AIX V5 adds
  33     U64_TOCMAGIC (0767), but collect2.c does not include files in the
  34     correct order to conditionally define the symbolic name in this macro.
  35
  36     The AIX linker accepts import/export files as object files,
  37     so accept "#!" (0x2321) magic number.  */
  38 #define MY_ISCOFF(magic) \
  39   ((magic) == U802WRMAGIC || (magic) == U802ROMAGIC \
  40    || (magic) == U802TOCMAGIC || (magic) == 0757 || (magic) == 0767 \
  41    || (magic) == 0x2321)
  42
  43 /* We don't have GAS for the RS/6000 yet, so don't write out special
  44     .stabs in cc1plus.  */
  45
  46 #define FASCIST_ASSEMBLER
  47
  48 /* We define this to prevent the name mangler from putting dollar signs into
  49    function names.  */
  50
  51 #define NO_DOLLAR_IN_LABEL
  52
  53 /* We define this to 0 so that gcc will never accept a dollar sign in a
  54    variable name.  This is needed because the AIX assembler will not accept
  55    dollar signs.  */
  56
  57 #define DOLLARS_IN_IDENTIFIERS 0
  58
  59 /* AIX .align pseudo-op accept value from 0 to 12, corresponding to
  60    log base 2 of the alignment in bytes; 12 = 4096 bytes = 32768 bits.  */
  61
  62 #define MAX_OFILE_ALIGNMENT 32768
  63
  64 /* Return nonzero if this entry is to be written into the constant
  65    pool in a special way.  We do so if this is a SYMBOL_REF, LABEL_REF
  66    or a CONST containing one of them.  If -mfp-in-toc (the default),
  67    we also do this for floating-point constants.  We actually can only
  68    do this if the FP formats of the target and host machines are the
  69    same, but we can't check that since not every file that uses
  70    GO_IF_LEGITIMATE_ADDRESS_P includes real.h.  We also do this when
  71    we can write the entry into the TOC and the entry is not larger
  72    than a TOC entry.  */
  73
  74 #define ASM_OUTPUT_SPECIAL_POOL_ENTRY_P(X, MODE)                        \
  75   (TARGET_TOC                                                           \
  76    && (GET_CODE (X) == SYMBOL_REF                                       \
  77        || (GET_CODE (X) == CONST && GET_CODE (XEXP (X, 0)) == PLUS      \
  78            && GET_CODE (XEXP (XEXP (X, 0), 0)) == SYMBOL_REF)           \
  79        || GET_CODE (X) == LABEL_REF                                     \
  80        || (GET_CODE (X) == CONST_INT                                    \
  81            && GET_MODE_BITSIZE (MODE) <= GET_MODE_BITSIZE (Pmode))      \
  82        || (GET_CODE (X) == CONST_DOUBLE                                 \
  83            && (TARGET_POWERPC64                                         \
  84                || TARGET_MINIMAL_TOC                                    \
  85                || (SCALAR_FLOAT_MODE_P (GET_MODE (X))                   \
  86                    && ! TARGET_NO_FP_IN_TOC)))))
  87
  88 #define TARGET_ASM_OUTPUT_ANCHOR  rs6000_xcoff_asm_output_anchor
  89 #define TARGET_ASM_GLOBALIZE_LABEL  rs6000_xcoff_asm_globalize_label
  90 #define TARGET_ASM_INIT_SECTIONS  rs6000_xcoff_asm_init_sections
  91 #define TARGET_ASM_RELOC_RW_MASK  rs6000_xcoff_reloc_rw_mask
  92 #define TARGET_ASM_NAMED_SECTION  rs6000_xcoff_asm_named_section
  93 #define TARGET_ASM_SELECT_SECTION  rs6000_xcoff_select_section
  94 #define TARGET_ASM_SELECT_RTX_SECTION  rs6000_xcoff_select_rtx_section
  95 #define TARGET_ASM_UNIQUE_SECTION  rs6000_xcoff_unique_section
  96 #define TARGET_ASM_FUNCTION_RODATA_SECTION default_no_function_rodata_section
  97 #define TARGET_STRIP_NAME_ENCODING  rs6000_xcoff_strip_name_encoding
  98 #define TARGET_SECTION_TYPE_FLAGS  rs6000_xcoff_section_type_flags
  99
 100 /* FP save and restore routines.  */
 101 #define SAVE_FP_PREFIX "._savef"
 102 #define SAVE_FP_SUFFIX ""
 103 #define RESTORE_FP_PREFIX "._restf"
 104 #define RESTORE_FP_SUFFIX ""
 105
 106 /* Function name to call to do profiling.  */
 107 #undef  RS6000_MCOUNT
 108 #define RS6000_MCOUNT ".__mcount"
 109
 110 /* This outputs NAME to FILE up to the first null or '['.  */
 111
 112 #define RS6000_OUTPUT_BASENAME(FILE, NAME) \
 113   assemble_name ((FILE), (*targetm.strip_name_encoding) (NAME))
 114
 115 /* This is how to output the definition of a user-level label named NAME,
 116    such as the label on a static function or variable NAME.  */
 117
 118 #define ASM_OUTPUT_LABEL(FILE,NAME)     \
 119   do { RS6000_OUTPUT_BASENAME (FILE, NAME); fputs (":\n", FILE); } while (0)
 120
 121 /* This is how to output a command to make the user-level label named NAME
 122    defined for reference from other files.  */
 123
 124 /* Globalizing directive for a label.  */
 125 #define GLOBAL_ASM_OP "\t.globl "
 126
 127 #undef TARGET_ASM_FILE_START
 128 #define TARGET_ASM_FILE_START rs6000_xcoff_file_start
 129 #define TARGET_ASM_FILE_END rs6000_xcoff_file_end
 130 #undef TARGET_ASM_FILE_START_FILE_DIRECTIVE
 131 #define TARGET_ASM_FILE_START_FILE_DIRECTIVE false
 132
 133 /* This macro produces the initial definition of a function name.
 134    On the RS/6000, we need to place an extra '.' in the function name and
 135    output the function descriptor.
 136
 137    The csect for the function will have already been created when
 138    text_section was selected.  We do have to go back to that csect, however.
 139
 140    The third and fourth parameters to the .function pseudo-op (16 and 044)
 141    are placeholders which no longer have any use.  */
 142
 143 #define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL)               \
 144 { if (TREE_PUBLIC (DECL))                                       \
 145     {                                                           \
 146       if (!RS6000_WEAK || !DECL_WEAK (decl))                    \
 147         {                                                       \
 148           fputs ("\t.globl .", FILE);                           \
 149           RS6000_OUTPUT_BASENAME (FILE, NAME);                  \
 150           putc ('\n', FILE);                                    \
 151         }                                                       \
 152     }                                                           \
 153   else                                                          \
 154     {                                                           \
 155       fputs ("\t.lglobl .", FILE);                              \
 156       RS6000_OUTPUT_BASENAME (FILE, NAME);                      \
 157       putc ('\n', FILE);                                        \
 158     }                                                           \
 159   fputs ("\t.csect ", FILE);                                    \
 160   RS6000_OUTPUT_BASENAME (FILE, NAME);                          \
 161   fputs (TARGET_32BIT ? "[DS]\n" : "[DS],3\n", FILE);           \
 162   RS6000_OUTPUT_BASENAME (FILE, NAME);                          \
 163   fputs (":\n", FILE);                                          \
 164   fputs (TARGET_32BIT ? "\t.long ." : "\t.llong .", FILE);      \
 165   RS6000_OUTPUT_BASENAME (FILE, NAME);                          \
 166   fputs (", TOC[tc0], 0\n", FILE);                              \
 167   in_section = NULL;                                            \
 168   switch_to_section (function_section (DECL));                  \
 169   putc ('.', FILE);                                             \
 170   RS6000_OUTPUT_BASENAME (FILE, NAME);                          \
 171   fputs (":\n", FILE);                                          \
 172   if (write_symbols != NO_DEBUG)                                \
 173     xcoffout_declare_function (FILE, DECL, NAME);               \
 174 }
 175
 176 /* Output a reference to SYM on FILE.  */
 177
 178 #define ASM_OUTPUT_SYMBOL_REF(FILE, SYM) \
 179   rs6000_output_symbol_ref (FILE, SYM)
 180
 181 /* This says how to output an external.  */
 182
 183 #undef  ASM_OUTPUT_EXTERNAL
 184 #define ASM_OUTPUT_EXTERNAL(FILE, DECL, NAME)                           \
 185 { rtx _symref = XEXP (DECL_RTL (DECL), 0);                              \
 186   if ((TREE_CODE (DECL) == VAR_DECL                                     \
 187        || TREE_CODE (DECL) == FUNCTION_DECL)                            \
 188       && (NAME)[strlen (NAME) - 1] != ']')                              \
 189     {                                                                   \
 190       XSTR (_symref, 0) = concat (XSTR (_symref, 0),                    \
 191                                   (TREE_CODE (DECL) == FUNCTION_DECL    \
 192                                    ? "[DS]" : "[RW]"),                  \
 193                                   NULL);                                \
 194     }                                                                   \
 195 }
 196
 197 /* This is how to output an internal label prefix.  rs6000.c uses this
 198    when generating traceback tables.  */
 199
 200 #define ASM_OUTPUT_INTERNAL_LABEL_PREFIX(FILE,PREFIX)   \
 201   fprintf (FILE, "%s..", PREFIX)
 202
 203 /* This is how to output a label for a jump table.  Arguments are the same as
 204    for (*targetm.asm_out.internal_label), except the insn for the jump table is
 205    passed.  */
 206
 207 #define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLEINSN)        \
 208 { ASM_OUTPUT_ALIGN (FILE, 2); (*targetm.asm_out.internal_label) (FILE, PREFIX, NUM); }
 209
 210 /* This is how to store into the string LABEL
 211    the symbol_ref name of an internal numbered label where
 212    PREFIX is the class of label and NUM is the number within the class.
 213    This is suitable for output with `assemble_name'.  */
 214
 215 #define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM)   \
 216   sprintf (LABEL, "*%s..%u", (PREFIX), (unsigned) (NUM))
 217
 218 /* This is how to output an assembler line to define N characters starting
 219    at P to FILE.  */
 220
 221 #define ASM_OUTPUT_ASCII(FILE, P, N)  output_ascii ((FILE), (P), (N))
 222
 223 /* This is how to advance the location counter by SIZE bytes.  */
 224
 225 #define SKIP_ASM_OP "\t.space "
 226
 227 #define ASM_OUTPUT_SKIP(FILE,SIZE)  \
 228   fprintf (FILE, "%s"HOST_WIDE_INT_PRINT_UNSIGNED"\n", SKIP_ASM_OP, (SIZE))
 229
 230 /* This says how to output an assembler line
 231    to define a global common symbol.  */
 232
 233 #define COMMON_ASM_OP "\t.comm "
 234
 235 #define ASM_OUTPUT_ALIGNED_COMMON(FILE, NAME, SIZE, ALIGN)      \
 236   do { fputs (COMMON_ASM_OP, (FILE));                   \
 237        RS6000_OUTPUT_BASENAME ((FILE), (NAME));         \
 238        if ((ALIGN) > 32)                                \
 239          fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",%u\n", (SIZE), \
 240                   exact_log2 ((ALIGN) / BITS_PER_UNIT)); \
 241        else if ((SIZE) > 4)                             \
 242          fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",3\n", (SIZE)); \
 243        else                                             \
 244          fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED"\n", (SIZE)); \
 245   } while (0)
 246
 247 /* This says how to output an assembler line
 248    to define a local common symbol.
 249    Alignment cannot be specified, but we can try to maintain
 250    alignment after preceding TOC section if it was aligned
 251    for 64-bit mode.  */
 252
 253 #define LOCAL_COMMON_ASM_OP "\t.lcomm "
 254
 255 #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED)     \
 256   do { fputs (LOCAL_COMMON_ASM_OP, (FILE));             \
 257        RS6000_OUTPUT_BASENAME ((FILE), (NAME));         \
 258        fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",%s\n", \
 259                 (TARGET_32BIT ? (SIZE) : (ROUNDED)),    \
 260                 xcoff_bss_section_name);                \
 261      } while (0)
 262
 263 /* This is how we tell the assembler that two symbols have the same value.  */
 264 #define SET_ASM_OP "\t.set "
 265
 266 /* This is how we tell the assembler to equate two values.  */
 267 #define ASM_OUTPUT_DEF(FILE,LABEL1,LABEL2)                              \
 268  do {   fprintf ((FILE), "%s", SET_ASM_OP);                             \
 269         RS6000_OUTPUT_BASENAME (FILE, LABEL1);                          \
 270         fprintf (FILE, ",");                                            \
 271         RS6000_OUTPUT_BASENAME (FILE, LABEL2);                          \
 272         fprintf (FILE, "\n");                                           \
 273   } while (0)
 274
 275 /* Used by rs6000_assemble_integer, among others.  */
 276 #define DOUBLE_INT_ASM_OP "\t.llong\t"
 277
 278 /* Output before instructions.  */
 279 #define TEXT_SECTION_ASM_OP "\t.csect .text[PR]"
 280
 281 /* Output before writable data.
 282    Align entire section to BIGGEST_ALIGNMENT.  */
 283 #define DATA_SECTION_ASM_OP "\t.csect .data[RW],3"
 284
 285 /* Define to prevent DWARF2 unwind info in the data section rather
 286    than in the .eh_frame section.  We do this because the AIX linker
 287    would otherwise garbage collect these sections.  */
 288 #define EH_FRAME_IN_DATA_SECTION 1