Mercurial > hg > CbC > CbC_gcc
annotate gcc/config/rs6000/xcoff.h @ 67:f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
| author | nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Tue, 22 Mar 2011 17:18:12 +0900 |
| parents | 77e2b8dfacca |
| children | 04ced10e8804 |
| rev | line source |
|---|---|
| 0 | 1 /* Definitions of target machine for GNU compiler, |
| 2 for some generic XCOFF file format | |
| 3 Copyright (C) 2001, 2002, 2003, 2004, 2007, 2008 | |
| 4 Free Software Foundation, Inc. | |
| 5 | |
| 6 This file is part of GCC. | |
| 7 | |
| 8 GCC is free software; you can redistribute it and/or modify it | |
| 9 under the terms of the GNU General Public License as published | |
| 10 by the Free Software Foundation; either version 3, or (at your | |
| 11 option) any later version. | |
| 12 | |
| 13 GCC is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY | |
| 15 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public | |
| 16 License for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
| 19 along with GCC; see the file COPYING3. If not see | |
| 20 <http://www.gnu.org/licenses/>. */ | |
| 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 /* Default alignment factor for csect directives, chosen to honor | |
| 65 BIGGEST_ALIGNMENT. */ | |
| 66 #define XCOFF_CSECT_DEFAULT_ALIGNMENT_STR "4" | |
| 67 | |
| 68 /* Return nonzero if this entry is to be written into the constant | |
| 69 pool in a special way. We do so if this is a SYMBOL_REF, LABEL_REF | |
| 70 or a CONST containing one of them. If -mfp-in-toc (the default), | |
| 71 we also do this for floating-point constants. We actually can only | |
| 72 do this if the FP formats of the target and host machines are the | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
73 same, but we can't check that since not every file that uses these |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
74 target macros includes real.h. We also do this when we can write the |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
75 entry into the TOC and the entry is not larger than a TOC entry. */ |
| 0 | 76 |
| 77 #define ASM_OUTPUT_SPECIAL_POOL_ENTRY_P(X, MODE) \ | |
| 78 (TARGET_TOC \ | |
| 79 && (GET_CODE (X) == SYMBOL_REF \ | |
| 80 || (GET_CODE (X) == CONST && GET_CODE (XEXP (X, 0)) == PLUS \ | |
| 81 && GET_CODE (XEXP (XEXP (X, 0), 0)) == SYMBOL_REF) \ | |
| 82 || GET_CODE (X) == LABEL_REF \ | |
| 83 || (GET_CODE (X) == CONST_INT \ | |
| 84 && GET_MODE_BITSIZE (MODE) <= GET_MODE_BITSIZE (Pmode)) \ | |
| 85 || (GET_CODE (X) == CONST_DOUBLE \ | |
| 86 && (TARGET_MINIMAL_TOC \ | |
| 87 || (SCALAR_FLOAT_MODE_P (GET_MODE (X)) \ | |
| 88 && ! TARGET_NO_FP_IN_TOC))))) | |
| 89 | |
| 90 #define TARGET_ASM_OUTPUT_ANCHOR rs6000_xcoff_asm_output_anchor | |
| 91 #define TARGET_ASM_GLOBALIZE_LABEL rs6000_xcoff_asm_globalize_label | |
| 92 #define TARGET_ASM_INIT_SECTIONS rs6000_xcoff_asm_init_sections | |
| 93 #define TARGET_ASM_RELOC_RW_MASK rs6000_xcoff_reloc_rw_mask | |
| 94 #define TARGET_ASM_NAMED_SECTION rs6000_xcoff_asm_named_section | |
| 95 #define TARGET_ASM_SELECT_SECTION rs6000_xcoff_select_section | |
| 96 #define TARGET_ASM_SELECT_RTX_SECTION rs6000_xcoff_select_rtx_section | |
| 97 #define TARGET_ASM_UNIQUE_SECTION rs6000_xcoff_unique_section | |
| 98 #define TARGET_ASM_FUNCTION_RODATA_SECTION default_no_function_rodata_section | |
| 99 #define TARGET_STRIP_NAME_ENCODING rs6000_xcoff_strip_name_encoding | |
| 100 #define TARGET_SECTION_TYPE_FLAGS rs6000_xcoff_section_type_flags | |
| 101 | |
| 102 /* FP save and restore routines. */ | |
| 103 #define SAVE_FP_PREFIX "._savef" | |
| 104 #define SAVE_FP_SUFFIX "" | |
| 105 #define RESTORE_FP_PREFIX "._restf" | |
| 106 #define RESTORE_FP_SUFFIX "" | |
| 107 | |
| 108 /* Function name to call to do profiling. */ | |
| 109 #undef RS6000_MCOUNT | |
| 110 #define RS6000_MCOUNT ".__mcount" | |
| 111 | |
| 112 /* This outputs NAME to FILE up to the first null or '['. */ | |
| 113 | |
| 114 #define RS6000_OUTPUT_BASENAME(FILE, NAME) \ | |
| 115 assemble_name ((FILE), (*targetm.strip_name_encoding) (NAME)) | |
| 116 | |
| 117 /* This is how to output the definition of a user-level label named NAME, | |
| 118 such as the label on a static function or variable NAME. */ | |
| 119 | |
| 120 #define ASM_OUTPUT_LABEL(FILE,NAME) \ | |
| 121 do { RS6000_OUTPUT_BASENAME (FILE, NAME); fputs (":\n", FILE); } while (0) | |
| 122 | |
| 123 /* This is how to output a command to make the user-level label named NAME | |
| 124 defined for reference from other files. */ | |
| 125 | |
| 126 /* Globalizing directive for a label. */ | |
| 127 #define GLOBAL_ASM_OP "\t.globl " | |
| 128 | |
| 129 #undef TARGET_ASM_FILE_START | |
| 130 #define TARGET_ASM_FILE_START rs6000_xcoff_file_start | |
| 131 #define TARGET_ASM_FILE_END rs6000_xcoff_file_end | |
| 132 #undef TARGET_ASM_FILE_START_FILE_DIRECTIVE | |
| 133 #define TARGET_ASM_FILE_START_FILE_DIRECTIVE false | |
| 134 | |
| 135 /* This macro produces the initial definition of a function name. | |
| 136 On the RS/6000, we need to place an extra '.' in the function name and | |
| 137 output the function descriptor. | |
| 138 Dollar signs are converted to underscores. | |
| 139 | |
| 140 The csect for the function will have already been created when | |
| 141 text_section was selected. We do have to go back to that csect, however. | |
| 142 | |
| 143 The third and fourth parameters to the .function pseudo-op (16 and 044) | |
| 144 are placeholders which no longer have any use. */ | |
| 145 | |
| 146 #define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL) \ | |
| 147 { char *buffer = (char *) alloca (strlen (NAME) + 1); \ | |
| 148 char *p; \ | |
| 149 int dollar_inside = 0; \ | |
| 150 strcpy (buffer, NAME); \ | |
| 151 p = strchr (buffer, '$'); \ | |
| 152 while (p) { \ | |
| 153 *p = '_'; \ | |
| 154 dollar_inside++; \ | |
| 155 p = strchr (p + 1, '$'); \ | |
| 156 } \ | |
| 157 if (TREE_PUBLIC (DECL)) \ | |
| 158 { \ | |
| 159 if (!RS6000_WEAK || !DECL_WEAK (decl)) \ | |
| 160 { \ | |
| 161 if (dollar_inside) { \ | |
| 162 fprintf(FILE, "\t.rename .%s,\".%s\"\n", buffer, NAME); \ | |
| 163 fprintf(FILE, "\t.rename %s,\"%s\"\n", buffer, NAME); \ | |
| 164 } \ | |
| 165 fputs ("\t.globl .", FILE); \ | |
| 166 RS6000_OUTPUT_BASENAME (FILE, buffer); \ | |
| 167 putc ('\n', FILE); \ | |
| 168 } \ | |
| 169 } \ | |
| 170 else \ | |
| 171 { \ | |
| 172 if (dollar_inside) { \ | |
| 173 fprintf(FILE, "\t.rename .%s,\".%s\"\n", buffer, NAME); \ | |
| 174 fprintf(FILE, "\t.rename %s,\"%s\"\n", buffer, NAME); \ | |
| 175 } \ | |
| 176 fputs ("\t.lglobl .", FILE); \ | |
| 177 RS6000_OUTPUT_BASENAME (FILE, buffer); \ | |
| 178 putc ('\n', FILE); \ | |
| 179 } \ | |
| 180 fputs ("\t.csect ", FILE); \ | |
| 181 RS6000_OUTPUT_BASENAME (FILE, buffer); \ | |
| 182 fputs (TARGET_32BIT ? "[DS]\n" : "[DS],3\n", FILE); \ | |
| 183 RS6000_OUTPUT_BASENAME (FILE, buffer); \ | |
| 184 fputs (":\n", FILE); \ | |
| 185 fputs (TARGET_32BIT ? "\t.long ." : "\t.llong .", FILE); \ | |
| 186 RS6000_OUTPUT_BASENAME (FILE, buffer); \ | |
| 187 fputs (", TOC[tc0], 0\n", FILE); \ | |
| 188 in_section = NULL; \ | |
| 189 switch_to_section (function_section (DECL)); \ | |
| 190 putc ('.', FILE); \ | |
| 191 RS6000_OUTPUT_BASENAME (FILE, buffer); \ | |
| 192 fputs (":\n", FILE); \ | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
193 if (write_symbols != NO_DEBUG && !DECL_IGNORED_P (DECL)) \ |
| 0 | 194 xcoffout_declare_function (FILE, DECL, buffer); \ |
| 195 } | |
| 196 | |
| 197 /* Output a reference to SYM on FILE. */ | |
| 198 | |
| 199 #define ASM_OUTPUT_SYMBOL_REF(FILE, SYM) \ | |
| 200 rs6000_output_symbol_ref (FILE, SYM) | |
| 201 | |
| 202 /* This says how to output an external. | |
| 203 Dollar signs are converted to underscores. */ | |
| 204 | |
| 205 #undef ASM_OUTPUT_EXTERNAL | |
| 206 #define ASM_OUTPUT_EXTERNAL(FILE, DECL, NAME) \ | |
| 207 { char *buffer = (char *) alloca (strlen (NAME) + 1); \ | |
| 208 char *p; \ | |
| 209 rtx _symref = XEXP (DECL_RTL (DECL), 0); \ | |
| 210 int dollar_inside = 0; \ | |
| 211 strcpy (buffer, NAME); \ | |
| 212 p = strchr (buffer, '$'); \ | |
| 213 while (p) { \ | |
| 214 *p = '_'; \ | |
| 215 dollar_inside++; \ | |
| 216 p = strchr (p + 1, '$'); \ | |
| 217 } \ | |
| 218 if (dollar_inside) { \ | |
| 219 fputs ("\t.extern .", FILE); \ | |
| 220 RS6000_OUTPUT_BASENAME (FILE, buffer); \ | |
| 221 putc ('\n', FILE); \ | |
| 222 fprintf(FILE, "\t.rename .%s,\".%s\"\n", buffer, NAME); \ | |
| 223 } \ | |
| 224 if ((TREE_CODE (DECL) == VAR_DECL \ | |
| 225 || TREE_CODE (DECL) == FUNCTION_DECL) \ | |
| 226 && (NAME)[strlen (NAME) - 1] != ']') \ | |
| 227 { \ | |
| 228 XSTR (_symref, 0) = concat (XSTR (_symref, 0), \ | |
| 229 (TREE_CODE (DECL) == FUNCTION_DECL \ | |
| 230 ? "[DS]" : "[RW]"), \ | |
| 231 NULL); \ | |
| 232 } \ | |
| 233 } | |
| 234 | |
| 235 /* This is how to output a reference to a user-level label named NAME. | |
| 236 `assemble_name' uses this. */ | |
| 237 | |
| 238 #define ASM_OUTPUT_LABELREF(FILE,NAME) \ | |
| 239 asm_fprintf ((FILE), "%U%s", rs6000_xcoff_strip_dollar (NAME)); | |
| 240 | |
| 241 /* This is how to output an internal label prefix. rs6000.c uses this | |
| 242 when generating traceback tables. */ | |
| 243 | |
| 244 #define ASM_OUTPUT_INTERNAL_LABEL_PREFIX(FILE,PREFIX) \ | |
| 245 fprintf (FILE, "%s..", PREFIX) | |
| 246 | |
| 247 /* This is how to output a label for a jump table. Arguments are the same as | |
| 248 for (*targetm.asm_out.internal_label), except the insn for the jump table is | |
| 249 passed. */ | |
| 250 | |
| 251 #define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLEINSN) \ | |
| 252 { ASM_OUTPUT_ALIGN (FILE, 2); (*targetm.asm_out.internal_label) (FILE, PREFIX, NUM); } | |
| 253 | |
| 254 /* This is how to store into the string LABEL | |
| 255 the symbol_ref name of an internal numbered label where | |
| 256 PREFIX is the class of label and NUM is the number within the class. | |
| 257 This is suitable for output with `assemble_name'. */ | |
| 258 | |
| 259 #define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \ | |
| 260 sprintf (LABEL, "*%s..%u", rs6000_xcoff_strip_dollar (PREFIX), (unsigned) (NUM)) | |
| 261 | |
| 262 /* This is how to output an assembler line to define N characters starting | |
| 263 at P to FILE. */ | |
| 264 | |
| 265 #define ASM_OUTPUT_ASCII(FILE, P, N) output_ascii ((FILE), (P), (N)) | |
| 266 | |
| 267 /* This is how to advance the location counter by SIZE bytes. */ | |
| 268 | |
| 269 #define SKIP_ASM_OP "\t.space " | |
| 270 | |
| 271 #define ASM_OUTPUT_SKIP(FILE,SIZE) \ | |
| 272 fprintf (FILE, "%s"HOST_WIDE_INT_PRINT_UNSIGNED"\n", SKIP_ASM_OP, (SIZE)) | |
| 273 | |
| 274 /* This says how to output an assembler line | |
| 275 to define a global common symbol. */ | |
| 276 | |
| 277 #define COMMON_ASM_OP "\t.comm " | |
| 278 | |
| 279 #define ASM_OUTPUT_ALIGNED_COMMON(FILE, NAME, SIZE, ALIGN) \ | |
| 280 do { fputs (COMMON_ASM_OP, (FILE)); \ | |
| 281 RS6000_OUTPUT_BASENAME ((FILE), (NAME)); \ | |
| 282 if ((ALIGN) > 32) \ | |
| 283 fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",%u\n", (SIZE), \ | |
| 284 exact_log2 ((ALIGN) / BITS_PER_UNIT)); \ | |
| 285 else if ((SIZE) > 4) \ | |
| 286 fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",3\n", (SIZE)); \ | |
| 287 else \ | |
| 288 fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED"\n", (SIZE)); \ | |
| 289 } while (0) | |
| 290 | |
| 291 /* This says how to output an assembler line | |
| 292 to define a local common symbol. | |
| 293 Alignment cannot be specified, but we can try to maintain | |
| 294 alignment after preceding TOC section if it was aligned | |
| 295 for 64-bit mode. */ | |
| 296 | |
| 297 #define LOCAL_COMMON_ASM_OP "\t.lcomm " | |
| 298 | |
| 299 #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED) \ | |
| 300 do { fputs (LOCAL_COMMON_ASM_OP, (FILE)); \ | |
| 301 RS6000_OUTPUT_BASENAME ((FILE), (NAME)); \ | |
| 302 fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",%s\n", \ | |
| 303 (TARGET_32BIT ? (SIZE) : (ROUNDED)), \ | |
| 304 xcoff_bss_section_name); \ | |
| 305 } while (0) | |
| 306 | |
| 307 /* This is how we tell the assembler that two symbols have the same value. */ | |
| 308 #define SET_ASM_OP "\t.set " | |
| 309 | |
| 310 /* This is how we tell the assembler to equate two values. */ | |
| 311 #define ASM_OUTPUT_DEF(FILE,LABEL1,LABEL2) \ | |
| 312 do { fprintf ((FILE), "%s", SET_ASM_OP); \ | |
| 313 RS6000_OUTPUT_BASENAME (FILE, LABEL1); \ | |
| 314 fprintf (FILE, ","); \ | |
| 315 RS6000_OUTPUT_BASENAME (FILE, LABEL2); \ | |
| 316 fprintf (FILE, "\n"); \ | |
| 317 } while (0) | |
| 318 | |
| 319 /* Used by rs6000_assemble_integer, among others. */ | |
| 320 #define DOUBLE_INT_ASM_OP "\t.llong\t" | |
| 321 | |
| 322 /* Output before instructions. */ | |
| 323 #define TEXT_SECTION_ASM_OP "\t.csect .text[PR]" | |
| 324 | |
| 325 /* Output before writable data. */ | |
| 326 #define DATA_SECTION_ASM_OP \ | |
| 327 "\t.csect .data[RW]," XCOFF_CSECT_DEFAULT_ALIGNMENT_STR | |
| 328 | |
| 329 | |
| 330 /* Define to prevent DWARF2 unwind info in the data section rather | |
| 331 than in the .eh_frame section. We do this because the AIX linker | |
| 332 would otherwise garbage collect these sections. */ | |
| 333 #define EH_FRAME_IN_DATA_SECTION 1 |