111
|
1 /* Definitions of target machine for GNU compiler,
|
|
2 for some generic XCOFF file format
|
131
|
3 Copyright (C) 2001-2018 Free Software Foundation, Inc.
|
111
|
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 3, 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 COPYING3. If not see
|
|
19 <http://www.gnu.org/licenses/>. */
|
|
20
|
|
21 #define TARGET_OBJECT_FORMAT OBJECT_XCOFF
|
|
22
|
|
23 /* The RS/6000 uses the XCOFF format. */
|
|
24 #define XCOFF_DEBUGGING_INFO 1
|
|
25
|
|
26 /* Define if the object format being used is COFF or a superset. */
|
|
27 #define OBJECT_FORMAT_COFF
|
|
28
|
|
29 /* Define the magic numbers that we recognize as COFF.
|
|
30
|
|
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.
|
|
34
|
|
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 \
|
|
40 || (magic) == 0x2321)
|
|
41
|
|
42 /* We don't have GAS for the RS/6000 yet, so don't write out special
|
|
43 .stabs in cc1plus. */
|
|
44
|
|
45 #define FASCIST_ASSEMBLER
|
|
46
|
|
47 /* We define this to prevent the name mangler from putting dollar signs into
|
|
48 function names. */
|
|
49
|
|
50 #define NO_DOLLAR_IN_LABEL
|
|
51
|
|
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
|
|
54 dollar signs. */
|
|
55
|
|
56 #define DOLLARS_IN_IDENTIFIERS 0
|
|
57
|
|
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. */
|
|
60
|
|
61 #define MAX_OFILE_ALIGNMENT 32768
|
|
62
|
|
63 /* Default alignment factor for csect directives, chosen to honor
|
|
64 BIGGEST_ALIGNMENT. */
|
|
65 #define XCOFF_CSECT_DEFAULT_ALIGNMENT_STR "4"
|
|
66
|
|
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. */
|
|
75
|
|
76 #define ASM_OUTPUT_SPECIAL_POOL_ENTRY_P(X, MODE) \
|
|
77 (TARGET_TOC \
|
|
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)))))
|
|
88
|
|
89 #undef TARGET_DEBUG_UNWIND_INFO
|
|
90 #define TARGET_DEBUG_UNWIND_INFO rs6000_xcoff_debug_unwind_info
|
|
91 #define TARGET_ASM_OUTPUT_ANCHOR rs6000_xcoff_asm_output_anchor
|
|
92 #define TARGET_ASM_GLOBALIZE_DECL_NAME rs6000_xcoff_asm_globalize_decl_name
|
|
93 #define TARGET_ASM_GLOBALIZE_LABEL rs6000_xcoff_asm_globalize_label
|
|
94 #define TARGET_ASM_INIT_SECTIONS rs6000_xcoff_asm_init_sections
|
|
95 #define TARGET_ASM_RELOC_RW_MASK rs6000_xcoff_reloc_rw_mask
|
|
96 #define TARGET_ASM_NAMED_SECTION rs6000_xcoff_asm_named_section
|
|
97 #define TARGET_ASM_SELECT_SECTION rs6000_xcoff_select_section
|
|
98 #define TARGET_ASM_SELECT_RTX_SECTION rs6000_xcoff_select_rtx_section
|
|
99 #define TARGET_ASM_UNIQUE_SECTION rs6000_xcoff_unique_section
|
|
100 #define TARGET_ASM_FUNCTION_RODATA_SECTION default_no_function_rodata_section
|
|
101 #define TARGET_STRIP_NAME_ENCODING rs6000_xcoff_strip_name_encoding
|
|
102 #define TARGET_SECTION_TYPE_FLAGS rs6000_xcoff_section_type_flags
|
|
103 #ifdef HAVE_AS_TLS
|
|
104 #define TARGET_ENCODE_SECTION_INFO rs6000_xcoff_encode_section_info
|
|
105 #endif
|
|
106 #define ASM_OUTPUT_ALIGNED_DECL_COMMON rs6000_xcoff_asm_output_aligned_decl_common
|
|
107
|
|
108 /* FP save and restore routines. */
|
|
109 #define SAVE_FP_PREFIX "._savef"
|
|
110 #define SAVE_FP_SUFFIX ""
|
|
111 #define RESTORE_FP_PREFIX "._restf"
|
|
112 #define RESTORE_FP_SUFFIX ""
|
|
113
|
|
114 /* Function name to call to do profiling. */
|
|
115 #undef RS6000_MCOUNT
|
|
116 #define RS6000_MCOUNT ".__mcount"
|
|
117
|
|
118 /* This outputs NAME to FILE up to the first null or '['. */
|
|
119
|
|
120 #define RS6000_OUTPUT_BASENAME(FILE, NAME) \
|
|
121 assemble_name ((FILE), (*targetm.strip_name_encoding) (NAME))
|
|
122
|
|
123 /* This is how to output the definition of a user-level label named NAME,
|
|
124 such as the label on a static function or variable NAME. */
|
|
125
|
|
126 #define ASM_OUTPUT_LABEL(FILE,NAME) \
|
|
127 do { RS6000_OUTPUT_BASENAME (FILE, NAME); fputs (":\n", FILE); } while (0)
|
|
128
|
|
129 /* This is how to output a command to make the user-level label named NAME
|
|
130 defined for reference from other files. */
|
|
131
|
|
132 /* Globalizing directive for a label. */
|
|
133 #define GLOBAL_ASM_OP "\t.globl "
|
|
134
|
|
135 #undef TARGET_ASM_FILE_START
|
|
136 #define TARGET_ASM_FILE_START rs6000_xcoff_file_start
|
|
137 #define TARGET_ASM_FILE_END rs6000_xcoff_file_end
|
|
138 #undef TARGET_ASM_FILE_START_FILE_DIRECTIVE
|
|
139 #define TARGET_ASM_FILE_START_FILE_DIRECTIVE false
|
|
140
|
|
141 /* This macro produces the initial definition of a function name. */
|
|
142
|
|
143 #undef ASM_DECLARE_FUNCTION_NAME
|
|
144 #define ASM_DECLARE_FUNCTION_NAME(FILE, NAME, DECL) \
|
|
145 rs6000_xcoff_declare_function_name ((FILE), (NAME), (DECL))
|
|
146 #undef ASM_DECLARE_OBJECT_NAME
|
|
147 #define ASM_DECLARE_OBJECT_NAME(FILE, NAME, DECL) \
|
|
148 rs6000_xcoff_declare_object_name ((FILE), (NAME), (DECL))
|
|
149
|
|
150 /* Output a reference to SYM on FILE. */
|
|
151
|
|
152 #define ASM_OUTPUT_SYMBOL_REF(FILE, SYM) \
|
|
153 rs6000_output_symbol_ref (FILE, SYM)
|
|
154
|
|
155 /* This says how to output an external.
|
|
156 Dollar signs are converted to underscores. */
|
|
157
|
|
158 #undef ASM_OUTPUT_EXTERNAL
|
|
159 #define ASM_OUTPUT_EXTERNAL(FILE, DECL, NAME) \
|
|
160 { char *buffer = (char *) alloca (strlen (NAME) + 1); \
|
|
161 char *p; \
|
|
162 int dollar_inside = 0; \
|
|
163 strcpy (buffer, NAME); \
|
|
164 p = strchr (buffer, '$'); \
|
|
165 while (p) { \
|
|
166 *p = '_'; \
|
|
167 dollar_inside++; \
|
|
168 p = strchr (p + 1, '$'); \
|
|
169 } \
|
|
170 if (dollar_inside) { \
|
|
171 fputs ("\t.extern .", FILE); \
|
|
172 RS6000_OUTPUT_BASENAME (FILE, buffer); \
|
|
173 putc ('\n', FILE); \
|
|
174 fprintf (FILE, "\t.rename .%s,\".%s\"\n", buffer, NAME); \
|
|
175 } \
|
|
176 }
|
|
177
|
|
178 /* This is how to output a reference to a user-level label named NAME.
|
|
179 `assemble_name' uses this. */
|
|
180
|
|
181 #define ASM_OUTPUT_LABELREF(FILE,NAME) \
|
131
|
182 asm_fprintf ((FILE), "%U%s", rs6000_xcoff_strip_dollar (NAME))
|
111
|
183
|
|
184 /* This is how to output an internal label prefix. rs6000.c uses this
|
|
185 when generating traceback tables. */
|
|
186
|
|
187 #define ASM_OUTPUT_INTERNAL_LABEL_PREFIX(FILE,PREFIX) \
|
|
188 fprintf (FILE, "%s..", PREFIX)
|
|
189
|
|
190 /* This is how to output a label for a jump table. Arguments are the same as
|
|
191 for (*targetm.asm_out.internal_label), except the insn for the jump table is
|
|
192 passed. */
|
|
193
|
|
194 #define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLEINSN) \
|
|
195 { ASM_OUTPUT_ALIGN (FILE, 2); (*targetm.asm_out.internal_label) (FILE, PREFIX, NUM); }
|
|
196
|
|
197 /* This is how to store into the string LABEL
|
|
198 the symbol_ref name of an internal numbered label where
|
|
199 PREFIX is the class of label and NUM is the number within the class.
|
|
200 This is suitable for output with `assemble_name'. */
|
|
201
|
|
202 #define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \
|
|
203 sprintf (LABEL, "*%s..%u", rs6000_xcoff_strip_dollar (PREFIX), (unsigned) (NUM))
|
|
204
|
|
205 /* This is how to output an assembler line to define N characters starting
|
|
206 at P to FILE. */
|
|
207
|
|
208 #define ASM_OUTPUT_ASCII(FILE, P, N) output_ascii ((FILE), (P), (N))
|
|
209
|
|
210 /* This is how to advance the location counter by SIZE bytes. */
|
|
211
|
|
212 #define SKIP_ASM_OP "\t.space "
|
|
213
|
|
214 #define ASM_OUTPUT_SKIP(FILE,SIZE) \
|
|
215 fprintf (FILE, "%s" HOST_WIDE_INT_PRINT_UNSIGNED"\n", SKIP_ASM_OP, (SIZE))
|
|
216
|
|
217 /* This says how to output an assembler line
|
|
218 to define a global common symbol. */
|
|
219
|
|
220 #define COMMON_ASM_OP "\t.comm "
|
|
221
|
|
222 /* This says how to output an assembler line
|
|
223 to define a local common symbol.
|
|
224 The assembler in AIX 6.1 and later supports an alignment argument.
|
|
225 For earlier releases of AIX, we try to maintain
|
|
226 alignment after preceding TOC section if it was aligned
|
|
227 for 64-bit mode. */
|
|
228
|
|
229 #define LOCAL_COMMON_ASM_OP "\t.lcomm "
|
|
230
|
|
231 #if TARGET_AIX_VERSION >= 61
|
|
232 #define ASM_OUTPUT_ALIGNED_LOCAL(FILE, NAME, SIZE, ALIGN) \
|
|
233 do { fputs (LOCAL_COMMON_ASM_OP, (FILE)); \
|
|
234 RS6000_OUTPUT_BASENAME ((FILE), (NAME)); \
|
|
235 if ((ALIGN) > 32) \
|
|
236 fprintf ((FILE), "," HOST_WIDE_INT_PRINT_UNSIGNED",%s%u_,%u\n", \
|
|
237 (SIZE), xcoff_bss_section_name, \
|
|
238 floor_log2 ((ALIGN) / BITS_PER_UNIT), \
|
|
239 floor_log2 ((ALIGN) / BITS_PER_UNIT)); \
|
|
240 else if ((SIZE) > 4) \
|
|
241 fprintf ((FILE), "," HOST_WIDE_INT_PRINT_UNSIGNED",%s3_,3\n", \
|
|
242 (SIZE), xcoff_bss_section_name); \
|
|
243 else \
|
|
244 fprintf ((FILE), "," HOST_WIDE_INT_PRINT_UNSIGNED",%s,2\n", \
|
|
245 (SIZE), xcoff_bss_section_name); \
|
|
246 } while (0)
|
|
247 #endif
|
|
248
|
|
249 #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED) \
|
|
250 do { fputs (LOCAL_COMMON_ASM_OP, (FILE)); \
|
|
251 RS6000_OUTPUT_BASENAME ((FILE), (NAME)); \
|
|
252 fprintf ((FILE), "," HOST_WIDE_INT_PRINT_UNSIGNED",%s\n", \
|
|
253 (TARGET_32BIT ? (SIZE) : (ROUNDED)), \
|
|
254 xcoff_bss_section_name); \
|
|
255 } while (0)
|
|
256
|
|
257 #ifdef HAVE_AS_TLS
|
|
258 #define ASM_OUTPUT_TLS_COMMON(FILE, DECL, NAME, SIZE) \
|
|
259 do { fputs (COMMON_ASM_OP, (FILE)); \
|
|
260 RS6000_OUTPUT_BASENAME ((FILE), (NAME)); \
|
|
261 fprintf ((FILE), "[UL]," HOST_WIDE_INT_PRINT_UNSIGNED"\n", \
|
|
262 (SIZE)); \
|
|
263 } while (0)
|
|
264 #endif
|
|
265
|
|
266 /* This is how we tell the assembler that two symbols have the same value. */
|
|
267 #define SET_ASM_OP "\t.set "
|
|
268
|
|
269 /* This is how we tell the assembler to equate two values.
|
|
270 The semantic of AIX assembler's .set do not correspond to middle-end expectations.
|
|
271 We output aliases as alternative symbols in the front of the definition
|
|
272 via DECLARE_FUNCTION_NAME and DECLARE_OBJECT_NAME.
|
|
273 We still need to define this macro to let middle-end know that aliases are
|
|
274 supported.
|
|
275 */
|
|
276 #define ASM_OUTPUT_DEF(FILE,LABEL1,LABEL2) do { } while (0)
|
|
277
|
|
278 /* Used by rs6000_assemble_integer, among others. */
|
|
279
|
|
280 /* Used by rs6000_assemble_integer, among others. */
|
|
281 #define DOUBLE_INT_ASM_OP "\t.llong\t"
|
|
282
|
|
283 /* Output before instructions. */
|
|
284 #define TEXT_SECTION_ASM_OP "\t.csect .text[PR]"
|
|
285
|
|
286 /* Output before writable data. */
|
|
287 #define DATA_SECTION_ASM_OP \
|
|
288 "\t.csect .data[RW]," XCOFF_CSECT_DEFAULT_ALIGNMENT_STR
|
|
289
|
|
290
|
|
291 /* The eh_frames are put in the read-only text segment.
|
|
292 Local code labels/function will also be in the local text segment so use
|
|
293 PC relative addressing.
|
|
294 Global symbols must be in the data segment to allow loader relocations.
|
|
295 So use DW_EH_PE_indirect to allocate a slot in the local data segment.
|
|
296 There is no constant offset to this data segment from the text segment,
|
|
297 so use addressing relative to the data segment.
|
|
298 */
|
|
299 #define ASM_PREFERRED_EH_DATA_FORMAT(CODE,GLOBAL) \
|
|
300 (((GLOBAL) ? DW_EH_PE_indirect | DW_EH_PE_datarel : DW_EH_PE_pcrel) \
|
|
301 | (TARGET_64BIT ? DW_EH_PE_sdata8 : DW_EH_PE_sdata4))
|
|
302
|
|
303 #define EH_FRAME_THROUGH_COLLECT2 1
|
|
304 #define EH_TABLES_CAN_BE_READ_ONLY 1
|
|
305
|
|
306 /* AIX Assembler implicitly assumes DWARF 64 bit extension in 64 bit mode. */
|
|
307 #define DWARF_OFFSET_SIZE PTR_SIZE
|
|
308
|
|
309 #define ASM_OUTPUT_DWARF_PCREL(FILE,SIZE,LABEL) \
|
|
310 rs6000_asm_output_dwarf_pcrel ((FILE), (SIZE), (LABEL));
|
|
311
|
|
312 #define ASM_OUTPUT_DWARF_DATAREL(FILE,SIZE,LABEL) \
|
|
313 rs6000_asm_output_dwarf_datarel ((FILE), (SIZE), (LABEL));
|
|
314
|
|
315 #define MAKE_DECL_ONE_ONLY(DECL) (DECL_WEAK (DECL) = 1)
|
|
316
|