?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
import of gcc-2.8
[official-gcc.git] / gcc / config / rs6000 / win-nt.h
blob2fcf44647d2af7157745194760fe55cd3646ede9
1 /* Definitions of target machine for GNU compiler, for PowerPC
2 running Windows/NT.
3 Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
4 Contributed by Cygnus Support.
5
6 This file is part of GNU CC.
7
8 GNU CC is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2, or (at your option)
11 any later version.
12
13 GNU CC is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with GNU CC; see the file COPYING. If not, write to
20 the Free Software Foundation, 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA. */
22
23 /* Say this is Windows/NT for the other config files. */
24 #define WINDOWS_NT 1
25 #define COFF_WITH_PE 1
26
27 /* Default ABI to compile code for */
28 #define DEFAULT_ABI ABI_NT
29
30 #include "rs6000/powerpc.h"
31
32 /* Pseudo target that we can test in the md file. */
33 #undef TARGET_WINDOWS_NT
34 #define TARGET_WINDOWS_NT 1
35
36 #undef CPP_PREDEFINES
37 #define CPP_PREDEFINES "-DWIN32 -D_WIN32 \
38 -DWINNT -D__STDC__=0 -DALMOST_STDC \
39 -D_POWER -D_ARCH_PPC -D__PPC__ -Asystem(winnt) -Acpu(powerpc) -Amachine(powerpc)"
40
41 #if 0
42 #include "winnt/win-nt.h"
43 #endif
44
45 #undef LIB_SPEC
46 #define LIB_SPEC "%{mwindows:-subsystem:windows -entry:WinMainCRTStartup \
47 USER32.LIB GDI32.LIB COMDLG32.LIB WINSPOOL.LIB} \
48 %{!mwindows:-subsystem console -e mainCRTStartup} \
49 %{mcrtmt:LIBCMT.LIB KERNEL32.LIB} %{!mcrtmt:-lkernel32 -lcygwin} \
50 %{v}"
51
52 #undef LINK_SPEC
53 #define LINK_SPEC "%{v:-V}"
54
55 /* Allow switches specified in LIB_SPEC, but don't do anything with them
56 in the compiler. */
57 #undef SUBTARGET_SWITCHES
58 #define SUBTARGET_SWITCHES \
59 { "windows", 0 }, \
60 { "crtmt", 0 },
61
62 #undef XCOFF_DEBUGGING_INFO
63
64 /* this is pure coff, not xcoff */
65 #define SDB_DEBUGGING_INFO
66 #define DBX_DEBUGGING_INFO
67
68 #undef SDB_DELIM
69 #define SDB_DELIM ";"
70
71 #undef PREFERRED_DEBUGGING_TYPE
72 #define PREFERRED_DEBUGGING_TYPE DBX_DEBUG
73
74 #undef PROCESSOR_DEFAULT
75 #define PROCESSOR_DEFAULT PROCESSOR_POWERPC
76
77 /* NT always runs little endian */
78 #undef BYTES_BIG_ENDIAN
79 #define BYTES_BIG_ENDIAN 0
80
81 #undef WORDS_BIG_ENDIAN
82 #define WORDS_BIG_ENDIAN 0
83
84 /* Define cutoff for using external functions to save floating point.
85 Currently on NT, always use inline stores */
86 #undef FP_SAVE_INLINE
87 #define FP_SAVE_INLINE(FIRST_REG) ((FIRST_REG) < 64)
88
89 /* Note, little endian systems trap on unaligned addresses, so never
90 turn off strict alignment in that case. */
91
92 #undef STRICT_ALIGNMENT
93 #define STRICT_ALIGNMENT 1
94
95 /* Align stack to 16 byte boundaries */
96 #undef STACK_BOUNDARY
97 #define STACK_BOUNDARY 128
98
99 /* No data type wants to be aligned rounder than this. */
100 #undef BIGGEST_ALIGNMENT
101 #define BIGGEST_ALIGNMENT 128
102
103 /* NT aligns internal doubles in structures on dword boundaries. */
104 #undef BIGGEST_FIELD_ALIGNMENT
105 #define BIGGEST_FIELD_ALIGNMENT 64
106
107 #undef ADJUST_FIELD_ALIGN
108 #undef ROUND_TYPE_ALIGN
109
110 #undef TARGET_VERSION
111 #define TARGET_VERSION fprintf (stderr, " (PowerPC PE)");
112
113 #undef TARGET_DEFAULT
114 #define TARGET_DEFAULT (MASK_POWERPC | MASK_NEW_MNEMONICS | MASK_NO_FP_IN_TOC | MASK_NO_SUM_IN_TOC)
115
116 #undef PROCESSOR_DEFAULT
117 #define PROCESSOR_DEFAULT PROCESSOR_PPC601
118
119 /* Address to save the TOC register */
120 #undef RS6000_SAVE_TOC
121 #define RS6000_SAVE_TOC plus_constant (virtual_incoming_args_rtx, -RS6000_SAVE_AREA - 8)
122
123 /* Windows NT specifies that r13 is reserved to the OS, so it is not available
124 to the normal user. */
125
126 #undef FIXED_R13
127 #define FIXED_R13 1
128 \f
129 /* This says how to output an assembler line
130 to define a global common symbol. */
131
132 #undef ASM_OUTPUT_ALIGNED_COMMON
133 #define ASM_OUTPUT_ALIGNED_COMMON(FILE, NAME, SIZE, ALIGNMENT) \
134 do { fputs ("\t.comm \t", (FILE)); \
135 assemble_name ((FILE), (NAME)); \
136 if ( (SIZE) > 4) \
137 fprintf ((FILE), ",%d,%d\n", (SIZE), 3); \
138 else \
139 fprintf( (FILE), ",%d\n", (SIZE)); \
140 } while (0)
141
142 #undef ASM_OUTPUT_ALIGNED_LOCAL
143
144 /* This says how to output an assembler line
145 to define a global common symbol. */
146
147 #undef ASM_OUTPUT_COMMON
148 #define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED) \
149 do { fputs ("\t.comm \t", (FILE)); \
150 assemble_name ((FILE), (NAME)); \
151 fprintf ((FILE), ",%d\n", (SIZE)); } while (0)
152
153 /* This says how to output an assembler line
154 to define an aligned local common symbol. */
155
156 #undef ASM_OUTPUT_ALIGNED_LOCAL
157 #define ASM_OUTPUT_ALIGNED_LOCAL(FILE, NAME, SIZE, ALIGN) \
158 do { \
159 bss_section (); \
160 ASM_OUTPUT_ALIGN (FILE, exact_log2 (ALIGN / BITS_PER_UNIT)); \
161 ASM_OUTPUT_LABEL (FILE, NAME); \
162 ASM_OUTPUT_SKIP (FILE, SIZE); \
163 } while (0)
164
165 /* Describe how to emit uninitialized external linkage items */
166 #define ASM_OUTPUT_ALIGNED_BSS(FILE, DECL, NAME, SIZE, ALIGN) \
167 do { \
168 ASM_GLOBALIZE_LABEL (FILE, NAME); \
169 ASM_OUTPUT_ALIGNED_LOCAL (FILE, NAME, SIZE, ALIGN); \
170 } while (0)
171
172 /* This says out to put a global symbol in the BSS section */
173 #undef ASM_OUTPUT_ALIGNED_BSS
174 #define ASM_OUTPUT_ALIGNED_BSS(FILE, DECL, NAME, SIZE, ALIGN) \
175 asm_output_aligned_bss ((FILE), (DECL), (NAME), (SIZE), (ALIGN))
176
177
178 /* Stuff to force fit us into the Motorola PPC assembler */
179
180 #undef ASM_FILE_START
181 #define ASM_FILE_START(FILE) \
182 do { \
183 output_file_directive ((FILE), main_input_filename); \
184 rs6000_file_start (FILE, TARGET_CPU_DEFAULT); \
185 data_section (); \
186 } while (0)
187
188 #undef ASM_FILE_END
189
190 #undef ASM_DECLARE_FUNCTION_NAME
191 #define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL) \
192 { \
193 tree exception_args; \
194 int i; \
195 \
196 if (TREE_PUBLIC (DECL)) \
197 { \
198 fprintf (FILE, "\t.globl .."); \
199 assemble_name (FILE, NAME); \
200 fprintf (FILE, "\n"); \
201 } \
202 \
203 fprintf (FILE, "\n#\tFunction: '.."); \
204 assemble_name (FILE, NAME); \
205 fputs ("'\n", FILE); \
206 fputs ("#\tText in section: <default>\n\n", FILE); \
207 fputs ("#\tSetup MS Structured-Exception-Handling\n", FILE); \
208 fputs ("\t.pdata\n", FILE); \
209 fputs ("\t.align 2\n", FILE); \
210 fputs ("\t.ualong ..", FILE); \
211 assemble_name (FILE, NAME); \
212 fputs (",", FILE); \
213 assemble_name (FILE, NAME); \
214 fputs (".e,", FILE); \
215 exception_args = lookup_attribute ("exception", \
216 TYPE_ATTRIBUTES (TREE_TYPE (DECL))); \
217 \
218 if (exception_args) \
219 exception_args = TREE_VALUE (exception_args); \
220 \
221 for (i = 0; i < 2; i++) \
222 { \
223 if (!exception_args) \
224 fputs ("0,", FILE); \
225 else \
226 { \
227 tree field = TREE_VALUE (exception_args); \
228 exception_args = TREE_PURPOSE (exception_args); \
229 if (TREE_CODE (field) == STRING_CST) \
230 fprintf (FILE, "%.*s,", TREE_STRING_LENGTH (field), \
231 TREE_STRING_POINTER (field)); \
232 else if (TREE_CODE (field) == IDENTIFIER_NODE) \
233 fprintf (FILE, "%.*s,", IDENTIFIER_LENGTH (field), \
234 IDENTIFIER_POINTER (field)); \
235 else \
236 abort (); \
237 } \
238 } \
239 \
240 assemble_name (FILE, NAME); \
241 fprintf (FILE, ".b\n\n"); \
242 fprintf (FILE, "#\tSwitch to the relocation section\n"); \
243 fprintf (FILE, "\t.reldata\n"); \
244 assemble_name (FILE, NAME); \
245 fprintf (FILE, ":\n"); \
246 fprintf (FILE, "\t.ualong .."); \
247 assemble_name (FILE, NAME); \
248 fprintf (FILE, ",.toc\n"); \
249 \
250 if (lookup_attribute ("dllexport", \
251 TYPE_ATTRIBUTES (TREE_TYPE (DECL)))) \
252 { \
253 fprintf (FILE, "\t.globl __imp_"); \
254 assemble_name (FILE, NAME); \
255 fprintf (FILE, "\n__imp_"); \
256 assemble_name (FILE, NAME); \
257 fprintf (FILE, ":\n\t.ulong "); \
258 assemble_name (FILE, NAME); \
259 fprintf (FILE, "\n"); \
260 } \
261 \
262 fprintf (FILE, "\t.section .text\n\t.align 2\n.."); \
263 assemble_name (FILE, NAME); \
264 fprintf (FILE, ":\n"); \
265 fprintf (FILE, "\t.function\t.."); \
266 assemble_name (FILE, NAME); \
267 fprintf (FILE, "\n"); \
268 }
269
270 /* This is how to output an assembler line defining a `double' constant. */
271
272 #undef ASM_OUTPUT_DOUBLE
273 #define ASM_OUTPUT_DOUBLE(FILE, VALUE) \
274 { \
275 if (REAL_VALUE_ISINF (VALUE) \
276 || REAL_VALUE_ISNAN (VALUE) \
277 || REAL_VALUE_MINUS_ZERO (VALUE)) \
278 { \
279 long t[2]; \
280 REAL_VALUE_TO_TARGET_DOUBLE ((VALUE), t); \
281 fprintf (FILE, "\t.ualong 0x%lx\n\t.long 0x%lx\n", \
282 t[0] & 0xffffffff, t[1] & 0xffffffff); \
283 } \
284 else \
285 { \
286 char str[30]; \
287 REAL_VALUE_TO_DECIMAL (VALUE, "%.20e", str); \
288 fprintf (FILE, "\t.double %s\n", str); \
289 } \
290 }
291
292 /* This is how to output an assembler line defining a `float' constant. */
293
294 #undef ASM_OUTPUT_FLOAT
295 #define ASM_OUTPUT_FLOAT(FILE, VALUE) \
296 { \
297 if (REAL_VALUE_ISINF (VALUE) \
298 || REAL_VALUE_ISNAN (VALUE) \
299 || REAL_VALUE_MINUS_ZERO (VALUE)) \
300 { \
301 long t; \
302 REAL_VALUE_TO_TARGET_SINGLE ((VALUE), t); \
303 fprintf (FILE, "\t.ualong 0x%lx\n", t & 0xffffffff); \
304 } \
305 else \
306 { \
307 char str[30]; \
308 REAL_VALUE_TO_DECIMAL ((VALUE), "%.20e", str); \
309 fprintf (FILE, "\t.float %s\n", str); \
310 } \
311 }
312
313 /* Output before instructions. */
314 #undef TEXT_SECTION_ASM_OP
315 #define TEXT_SECTION_ASM_OP "\t.text"
316
317 /* Output before writable data. */
318 #undef DATA_SECTION_ASM_OP
319 #define DATA_SECTION_ASM_OP "\t.data"
320
321 /* Output to the bss section. */
322 #undef BSS_SECTION_ASM_OP
323 #define BSS_SECTION_ASM_OP "\t.section .bss"
324
325 /* Define the extra sections we need. We define a dummy TOC section,
326 plus sections to hold the list of static constructors (.ctors) and
327 destructors (.dtors). */
328
329 #undef READONLY_DATA_SECTION
330 #undef EXTRA_SECTIONS
331 #define EXTRA_SECTIONS in_toc, in_ctors, in_dtors
332
333 /* Define the routines to implement these extra sections. */
334
335 #undef EXTRA_SECTION_FUNCTIONS
336 #define EXTRA_SECTION_FUNCTIONS \
337 CTORS_SECTION_FUNCTION \
338 DTORS_SECTION_FUNCTION \
339 TOC_SECTION_FUNCTION \
340
341 #define TOC_SECTION_FUNCTION \
342 void \
343 toc_section () \
344 { \
345 }
346
347 #define CTORS_SECTION_ASM_OP ".section\t.ctors"
348 #define CTORS_SECTION_FUNCTION \
349 void \
350 ctors_section () \
351 { \
352 if (in_section != in_ctors) \
353 { \
354 fprintf (asm_out_file, "%s\n", CTORS_SECTION_ASM_OP); \
355 in_section = in_ctors; \
356 } \
357 }
358
359 #define DTORS_SECTION_ASM_OP ".section\t.dtors"
360 #define DTORS_SECTION_FUNCTION \
361 void \
362 dtors_section () \
363 { \
364 if (in_section != in_dtors) \
365 { \
366 fprintf (asm_out_file, "%s\n", DTORS_SECTION_ASM_OP); \
367 in_section = in_dtors; \
368 } \
369 }
370
371 #undef SELECT_SECTION
372 #undef SELECT_RTX_SECTION
373
374 /* Make sure __main gets called */
375 #define INVOKE__main 1
376
377 /* A C statement (sans semicolon) to output an element in the table of
378 global constructors. */
379 #undef ASM_OUTPUT_CONSTRUCTOR
380 #define ASM_OUTPUT_CONSTRUCTOR(FILE,NAME) \
381 do { \
382 ctors_section (); \
383 fprintf (FILE, "\t.ualong "); \
384 assemble_name (FILE, NAME); \
385 fprintf (FILE, "\n"); \
386 } while (0)
387
388 /* A C statement (sans semicolon) to output an element in the table of
389 global destructors. */
390 #undef ASM_OUTPUT_DESTRUCTOR
391 #define ASM_OUTPUT_DESTRUCTOR(FILE,NAME) \
392 do { \
393 dtors_section (); \
394 fprintf (FILE, "\t.ualong "); \
395 assemble_name (FILE, NAME); \
396 fprintf (FILE, "\n"); \
397 } while (0)
398
399
400 /* Text to write out after a CALL that may be replaced by glue code by
401 the loader. The motorola asm demands that, for dll support, a .znop
402 be issued after a bl instruction, and the symbol on the .znop is the
403 symbol on the bl instruction */
404
405 #undef RS6000_CALL_GLUE
406 #define RS6000_CALL_GLUE "nop #\tFIXME: only works for non-dll calls."
407
408 #define RS6000_CALL_GLUE2 ".znop "
409
410 #undef ASM_OUTPUT_SPECIAL_POOL_ENTRY
411
412 /* Output something to declare an external symbol to the assembler. Most
413 assemblers don't need this. */
414
415 #undef ASM_OUTPUT_EXTERNAL
416
417 #define ASM_OUTPUT_EXTERNAL(FILE, DECL, NAME) \
418 { \
419 char *_name; \
420 rtx _symref = XEXP (DECL_RTL (DECL), 0); \
421 if ((TREE_CODE (DECL) == VAR_DECL \
422 || TREE_CODE (DECL) == FUNCTION_DECL) \
423 && (NAME)[strlen (NAME) - 1] != ']') \
424 { \
425 _name = (char *) permalloc (strlen (XSTR (_symref, 0)) + 5); \
426 strcpy (_name, XSTR (_symref, 0)); \
427 XSTR (_symref, 0) = _name; \
428 } \
429 else \
430 _name = XSTR (_symref, 0); \
431 \
432 if (DECL_FUNCTION_CODE (DECL) == 0) \
433 { \
434 fputs ("\t.extern ", FILE); \
435 assemble_name (FILE, _name); \
436 putc ('\n', FILE); \
437 if (TREE_CODE (DECL) == FUNCTION_DECL) \
438 { \
439 fputs ("\t.extern ..", FILE); \
440 assemble_name (FILE, _name); \
441 putc ('\n', FILE); \
442 } \
443 } \
444 }
445
446 /* Similar, but for libcall. We only have to worry about the function name,
447 not that of the descriptor. */
448
449 #undef ASM_OUTPUT_EXTERNAL_LIBCALL
450
451 #define ASM_OUTPUT_EXTERNAL_LIBCALL(FILE, FUN) \
452 { fprintf (FILE, "\t.extern .."); \
453 assemble_name (FILE, XSTR (FUN, 0)); \
454 fprintf (FILE, "\n"); \
455 }
456
457 /* The prefix to add to user-visible assembler symbols. */
458
459 #define USER_LABEL_PREFIX ".."
460
461 /* Eliminate AIX style constant pool processing */
462 #undef LEGITIMATE_CONSTANT_POOL_BASE_P
463 #define LEGITIMATE_CONSTANT_POOL_BASE_P(X) 0
464
465 #undef LEGITIMATE_CONSTANT_POOL_ADDRESS_P
466 #define LEGITIMATE_CONSTANT_POOL_ADDRESS_P(X) 0
467
468 #undef ASM_OUTPUT_SPECIAL_POOL_ENTRY
469
470 #undef ASM_IDENTIFY_GCC
471 #define ASM_IDENTIFY_GCC(x)
472
473 /* Output assembler code for a block containing the constant parts
474 of a trampoline, leaving space for the variable parts.
475
476 The trampoline should set the static chain pointer to value placed
477 into the trampoline and should branch to the specified routine. */
478 #define TRAMPOLINE_TEMPLATE(FILE) rs6000_trampoline_template (FILE)
Mirror of the offical gcc git repository hosted at gcc.gnu.org