xcoff.h revision 1.1
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 73 same, but we can't check that since not every file that uses these 74 target macros includes real.h. We also do this when we can write the 75 entry into the TOC and the entry is not larger than a TOC entry. */ 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); \ 193 if (write_symbols != NO_DEBUG && !DECL_IGNORED_P (DECL)) \ 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 334
Indexes created Fri Mar 20 00:23:26 UTC 2026