1 /* Definitions of target machine for GNU compiler,
2 for some generic XCOFF file format
3 Copyright (C) 2001-2015 Free Software Foundation, Inc.
5 This file is part of GCC.
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 3, or (at your
10 option) any later version.
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.
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
21 #define TARGET_OBJECT_FORMAT OBJECT_XCOFF
23 /* The RS/6000 uses the XCOFF format. */
24 #define XCOFF_DEBUGGING_INFO 1
26 /* Define if the object format being used is COFF or a superset. */
27 #define OBJECT_FORMAT_COFF
29 /* Define the magic numbers that we recognize as COFF.
31 AIX 4.3 adds U803XTOCMAGIC (0757) for 64-bit objects and AIX V5 adds
32 U64_TOCMAGIC (0767), but collect2.c does not include files in the
33 correct order to conditionally define the symbolic name in this macro.
35 The AIX linker accepts import/export files as object files,
36 so accept "#!" (0x2321) magic number. */
37 #define MY_ISCOFF(magic) \
38 ((magic) == U802WRMAGIC || (magic) == U802ROMAGIC \
39 || (magic) == U802TOCMAGIC || (magic) == 0757 || (magic) == 0767 \
42 /* We don't have GAS for the RS/6000 yet, so don't write out special
45 #define FASCIST_ASSEMBLER
47 /* We define this to prevent the name mangler from putting dollar signs into
50 #define NO_DOLLAR_IN_LABEL
52 /* We define this to 0 so that gcc will never accept a dollar sign in a
53 variable name. This is needed because the AIX assembler will not accept
56 #define DOLLARS_IN_IDENTIFIERS 0
58 /* AIX .align pseudo-op accept value from 0 to 12, corresponding to
59 log base 2 of the alignment in bytes; 12 = 4096 bytes = 32768 bits. */
61 #define MAX_OFILE_ALIGNMENT 32768
63 /* Default alignment factor for csect directives, chosen to honor
65 #define XCOFF_CSECT_DEFAULT_ALIGNMENT_STR "4"
67 /* Return nonzero if this entry is to be written into the constant
68 pool in a special way. We do so if this is a SYMBOL_REF, LABEL_REF
69 or a CONST containing one of them. If -mfp-in-toc (the default),
70 we also do this for floating-point constants. We actually can only
71 do this if the FP formats of the target and host machines are the
72 same, but we can't check that since not every file that uses these
73 target macros includes real.h. We also do this when we can write the
74 entry into the TOC and the entry is not larger than a TOC entry. */
76 #define ASM_OUTPUT_SPECIAL_POOL_ENTRY_P(X, MODE) \
78 && (GET_CODE (X) == SYMBOL_REF \
79 || (GET_CODE (X) == CONST && GET_CODE (XEXP (X, 0)) == PLUS \
80 && GET_CODE (XEXP (XEXP (X, 0), 0)) == SYMBOL_REF) \
81 || GET_CODE (X) == LABEL_REF \
82 || (GET_CODE (X) == CONST_INT \
83 && GET_MODE_BITSIZE (MODE) <= GET_MODE_BITSIZE (Pmode)) \
84 || (GET_CODE (X) == CONST_DOUBLE \
85 && (TARGET_MINIMAL_TOC \
86 || (SCALAR_FLOAT_MODE_P (GET_MODE (X)) \
87 && ! TARGET_NO_FP_IN_TOC)))))
89 #define TARGET_ASM_OUTPUT_ANCHOR rs6000_xcoff_asm_output_anchor
90 #define TARGET_ASM_GLOBALIZE_LABEL rs6000_xcoff_asm_globalize_label
91 #define TARGET_ASM_INIT_SECTIONS rs6000_xcoff_asm_init_sections
92 #define TARGET_ASM_RELOC_RW_MASK rs6000_xcoff_reloc_rw_mask
93 #define TARGET_ASM_NAMED_SECTION rs6000_xcoff_asm_named_section
94 #define TARGET_ASM_SELECT_SECTION rs6000_xcoff_select_section
95 #define TARGET_ASM_SELECT_RTX_SECTION rs6000_xcoff_select_rtx_section
96 #define TARGET_ASM_UNIQUE_SECTION rs6000_xcoff_unique_section
97 #define TARGET_ASM_FUNCTION_RODATA_SECTION default_no_function_rodata_section
98 #define TARGET_STRIP_NAME_ENCODING rs6000_xcoff_strip_name_encoding
99 #define TARGET_SECTION_TYPE_FLAGS rs6000_xcoff_section_type_flags
101 #define TARGET_ENCODE_SECTION_INFO rs6000_xcoff_encode_section_info
104 /* FP save and restore routines. */
105 #define SAVE_FP_PREFIX "._savef"
106 #define SAVE_FP_SUFFIX ""
107 #define RESTORE_FP_PREFIX "._restf"
108 #define RESTORE_FP_SUFFIX ""
110 /* Function name to call to do profiling. */
112 #define RS6000_MCOUNT ".__mcount"
114 /* This outputs NAME to FILE up to the first null or '['. */
116 #define RS6000_OUTPUT_BASENAME(FILE, NAME) \
117 assemble_name ((FILE), (*targetm.strip_name_encoding) (NAME))
119 /* This is how to output the definition of a user-level label named NAME,
120 such as the label on a static function or variable NAME. */
122 #define ASM_OUTPUT_LABEL(FILE,NAME) \
123 do { RS6000_OUTPUT_BASENAME (FILE, NAME); fputs (":\n", FILE); } while (0)
125 /* This is how to output a command to make the user-level label named NAME
126 defined for reference from other files. */
128 /* Globalizing directive for a label. */
129 #define GLOBAL_ASM_OP "\t.globl "
131 #undef TARGET_ASM_FILE_START
132 #define TARGET_ASM_FILE_START rs6000_xcoff_file_start
133 #define TARGET_ASM_FILE_END rs6000_xcoff_file_end
134 #undef TARGET_ASM_FILE_START_FILE_DIRECTIVE
135 #define TARGET_ASM_FILE_START_FILE_DIRECTIVE false
137 /* This macro produces the initial definition of a function name. */
139 #undef ASM_DECLARE_FUNCTION_NAME
140 #define ASM_DECLARE_FUNCTION_NAME(FILE, NAME, DECL) \
141 rs6000_xcoff_declare_function_name ((FILE), (NAME), (DECL))
142 #undef ASM_DECLARE_OBJECT_NAME
143 #define ASM_DECLARE_OBJECT_NAME(FILE, NAME, DECL) \
144 rs6000_xcoff_declare_object_name ((FILE), (NAME), (DECL))
146 /* Output a reference to SYM on FILE. */
148 #define ASM_OUTPUT_SYMBOL_REF(FILE, SYM) \
149 rs6000_output_symbol_ref (FILE, SYM)
151 /* This says how to output an external.
152 Dollar signs are converted to underscores. */
154 #undef ASM_OUTPUT_EXTERNAL
155 #define ASM_OUTPUT_EXTERNAL(FILE, DECL, NAME) \
156 { char *buffer = (char *) alloca (strlen (NAME) + 1); \
158 rtx _symref = XEXP (DECL_RTL (DECL), 0); \
159 int dollar_inside = 0; \
160 strcpy (buffer, NAME); \
161 p = strchr (buffer, '$'); \
165 p = strchr (p + 1, '$'); \
167 if (dollar_inside) { \
168 fputs ("\t.extern .", FILE); \
169 RS6000_OUTPUT_BASENAME (FILE, buffer); \
171 fprintf(FILE, "\t.rename .%s,\".%s\"\n", buffer, NAME); \
175 /* This is how to output a reference to a user-level label named NAME.
176 `assemble_name' uses this. */
178 #define ASM_OUTPUT_LABELREF(FILE,NAME) \
179 asm_fprintf ((FILE), "%U%s", rs6000_xcoff_strip_dollar (NAME));
181 /* This is how to output an internal label prefix. rs6000.c uses this
182 when generating traceback tables. */
184 #define ASM_OUTPUT_INTERNAL_LABEL_PREFIX(FILE,PREFIX) \
185 fprintf (FILE, "%s..", PREFIX)
187 /* This is how to output a label for a jump table. Arguments are the same as
188 for (*targetm.asm_out.internal_label), except the insn for the jump table is
191 #define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLEINSN) \
192 { ASM_OUTPUT_ALIGN (FILE, 2); (*targetm.asm_out.internal_label) (FILE, PREFIX, NUM); }
194 /* This is how to store into the string LABEL
195 the symbol_ref name of an internal numbered label where
196 PREFIX is the class of label and NUM is the number within the class.
197 This is suitable for output with `assemble_name'. */
199 #define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \
200 sprintf (LABEL, "*%s..%u", rs6000_xcoff_strip_dollar (PREFIX), (unsigned) (NUM))
202 /* This is how to output an assembler line to define N characters starting
205 #define ASM_OUTPUT_ASCII(FILE, P, N) output_ascii ((FILE), (P), (N))
207 /* This is how to advance the location counter by SIZE bytes. */
209 #define SKIP_ASM_OP "\t.space "
211 #define ASM_OUTPUT_SKIP(FILE,SIZE) \
212 fprintf (FILE, "%s"HOST_WIDE_INT_PRINT_UNSIGNED"\n", SKIP_ASM_OP, (SIZE))
214 /* This says how to output an assembler line
215 to define a global common symbol. */
217 #define COMMON_ASM_OP "\t.comm "
219 #define ASM_OUTPUT_ALIGNED_COMMON(FILE, NAME, SIZE, ALIGN) \
220 do { fputs (COMMON_ASM_OP, (FILE)); \
221 RS6000_OUTPUT_BASENAME ((FILE), (NAME)); \
223 fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",%u\n", (SIZE), \
224 floor_log2 ((ALIGN) / BITS_PER_UNIT)); \
225 else if ((SIZE) > 4) \
226 fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",3\n", (SIZE)); \
228 fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED"\n", (SIZE)); \
231 /* This says how to output an assembler line
232 to define a local common symbol.
233 The assembler in AIX 6.1 and later supports an alignment argument.
234 For earlier releases of AIX, we try to maintain
235 alignment after preceding TOC section if it was aligned
238 #define LOCAL_COMMON_ASM_OP "\t.lcomm "
240 #if TARGET_AIX_VERSION >= 61
241 #define ASM_OUTPUT_ALIGNED_LOCAL(FILE, NAME, SIZE, ALIGN) \
242 do { fputs (LOCAL_COMMON_ASM_OP, (FILE)); \
243 RS6000_OUTPUT_BASENAME ((FILE), (NAME)); \
245 fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",%s%u_,%u\n", \
246 (SIZE), xcoff_bss_section_name, \
247 floor_log2 ((ALIGN) / BITS_PER_UNIT), \
248 floor_log2 ((ALIGN) / BITS_PER_UNIT)); \
249 else if ((SIZE) > 4) \
250 fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",%s3_,3\n", \
251 (SIZE), xcoff_bss_section_name); \
253 fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",%s,2\n", \
254 (SIZE), xcoff_bss_section_name); \
258 #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED) \
259 do { fputs (LOCAL_COMMON_ASM_OP, (FILE)); \
260 RS6000_OUTPUT_BASENAME ((FILE), (NAME)); \
261 fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",%s\n", \
262 (TARGET_32BIT ? (SIZE) : (ROUNDED)), \
263 xcoff_bss_section_name); \
267 #define ASM_OUTPUT_TLS_COMMON(FILE, DECL, NAME, SIZE) \
268 do { fputs(COMMON_ASM_OP, (FILE)); \
269 RS6000_OUTPUT_BASENAME ((FILE), (NAME)); \
270 fprintf ((FILE), "[UL],"HOST_WIDE_INT_PRINT_UNSIGNED"\n", \
275 /* This is how we tell the assembler that two symbols have the same value. */
276 #define SET_ASM_OP "\t.set "
278 /* This is how we tell the assembler to equate two values.
279 The semantic of AIX assembler's .set do not correspond to middle-end expectations.
280 We output aliases as alternative symbols in the front of the definition
281 via DECLARE_FUNCTION_NAME and DECLARE_OBJECT_NAME.
282 We still need to define this macro to let middle-end know that aliases are
285 #define ASM_OUTPUT_DEF(FILE,LABEL1,LABEL2) do { } while (0)
287 /* Used by rs6000_assemble_integer, among others. */
289 /* Used by rs6000_assemble_integer, among others. */
290 #define DOUBLE_INT_ASM_OP "\t.llong\t"
292 /* Output before instructions. */
293 #define TEXT_SECTION_ASM_OP "\t.csect .text[PR]"
295 /* Output before writable data. */
296 #define DATA_SECTION_ASM_OP \
297 "\t.csect .data[RW]," XCOFF_CSECT_DEFAULT_ALIGNMENT_STR
300 /* Define to prevent DWARF2 unwind info in the data section rather
301 than in the .eh_frame section. We do this because the AIX linker
302 would otherwise garbage collect these sections. */
303 #define EH_FRAME_IN_DATA_SECTION 1
305 #define MAKE_DECL_ONE_ONLY(DECL) (DECL_WEAK (DECL) = 1)