OSDN Git Service

2011-09-02 Vincent Celier <celier@adacore.com>
[pf3gnuchains/gcc-fork.git] / gcc / config / darwin.h
1 /* Target definitions for Darwin (Mac OS X) systems.
2    Copyright (C) 1989, 1990, 1991, 1992, 1993, 2000, 2001, 2002, 2003, 2004,
3    2005, 2006, 2007, 2008, 2009, 2010, 2011
4    Free Software Foundation, Inc.
5    Contributed by Apple Computer Inc.
6
7 This file is part of GCC.
8
9 GCC is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3, or (at your option)
12 any later version.
13
14 GCC is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17 GNU General Public License for more details.
18
19 Under Section 7 of GPL version 3, you are granted additional
20 permissions described in the GCC Runtime Library Exception, version
21 3.1, as published by the Free Software Foundation.
22
23 You should have received a copy of the GNU General Public License and
24 a copy of the GCC Runtime Library Exception along with this program;
25 see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
26 <http://www.gnu.org/licenses/>.  */
27
28 #ifndef CONFIG_DARWIN_H
29 #define CONFIG_DARWIN_H
30
31 /* The definitions in this file are common to all processor types
32    running Darwin, which is the kernel for Mac OS X.  Darwin is
33    basically a BSD user layer laid over a Mach kernel, then evolved
34    for many years (at NeXT) in parallel with other Unix systems.  So
35    while the runtime is a somewhat idiosyncratic Mach-based thing,
36    other definitions look like they would for a BSD variant.  */
37
38 /* Although NeXT ran on many different architectures, as of Jan 2001
39    the only supported Darwin targets are PowerPC and x86.  */
40
41 /* One of Darwin's NeXT legacies is the Mach-O format, which is partly
42    like a.out and partly like COFF, with additional features like
43    multi-architecture binary support.  */
44
45 #define DARWIN_X86 0
46 #define DARWIN_PPC 0
47
48 /* Don't assume anything about the header files.  */
49 #define NO_IMPLICIT_EXTERN_C
50
51 /* Suppress g++ attempt to link in the math library automatically. */
52 #define MATH_LIBRARY ""
53
54 /* We have atexit.  */
55
56 #define HAVE_ATEXIT
57
58 /* Define an empty body for the function do_global_dtors() in libgcc2.c.  */
59
60 #define DO_GLOBAL_DTORS_BODY
61
62 /* The string value for __SIZE_TYPE__.  */
63
64 #ifndef SIZE_TYPE
65 #define SIZE_TYPE "long unsigned int"
66 #endif
67
68 /* Type used for ptrdiff_t, as a string used in a declaration.  */
69
70 #undef  PTRDIFF_TYPE
71 #define PTRDIFF_TYPE "int"
72
73 /* wchar_t is int.  */
74
75 #undef  WCHAR_TYPE
76 #define WCHAR_TYPE "int"
77 #undef  WCHAR_TYPE_SIZE
78 #define WCHAR_TYPE_SIZE 32
79
80 #define INT8_TYPE "signed char"
81 #define INT16_TYPE "short int"
82 #define INT32_TYPE "int"
83 #define INT64_TYPE "long long int"
84 #define UINT8_TYPE "unsigned char"
85 #define UINT16_TYPE "short unsigned int"
86 #define UINT32_TYPE "unsigned int"
87 #define UINT64_TYPE "long long unsigned int"
88
89 #define INT_LEAST8_TYPE "signed char"
90 #define INT_LEAST16_TYPE "short int"
91 #define INT_LEAST32_TYPE "int"
92 #define INT_LEAST64_TYPE "long long int"
93 #define UINT_LEAST8_TYPE "unsigned char"
94 #define UINT_LEAST16_TYPE "short unsigned int"
95 #define UINT_LEAST32_TYPE "unsigned int"
96 #define UINT_LEAST64_TYPE "long long unsigned int"
97
98 #define INT_FAST8_TYPE "signed char"
99 #define INT_FAST16_TYPE "short int"
100 #define INT_FAST32_TYPE "int"
101 #define INT_FAST64_TYPE "long long int"
102 #define UINT_FAST8_TYPE "unsigned char"
103 #define UINT_FAST16_TYPE "short unsigned int"
104 #define UINT_FAST32_TYPE "unsigned int"
105 #define UINT_FAST64_TYPE "long long unsigned int"
106
107 #define INTPTR_TYPE "long int"
108 #define UINTPTR_TYPE "long unsigned int"
109
110 #define SIG_ATOMIC_TYPE "int"
111
112 /* Default to using the NeXT-style runtime, since that's what is
113    pre-installed on Darwin systems.  */
114
115 #define NEXT_OBJC_RUNTIME
116
117 /* Don't default to pcc-struct-return, because gcc is the only compiler, and
118    we want to retain compatibility with older gcc versions.  */
119
120 #undef  DEFAULT_PCC_STRUCT_RETURN
121 #define DEFAULT_PCC_STRUCT_RETURN 0
122
123 /* True if pragma ms_struct is in effect.  */
124 extern GTY(()) int darwin_ms_struct;
125
126 #define DRIVER_SELF_SPECS                                       \
127   "%{gfull:-g -fno-eliminate-unused-debug-symbols} %<gfull",    \
128   "%{gused:-g -feliminate-unused-debug-symbols} %<gused",       \
129   "%{fapple-kext|mkernel:-static}",                             \
130   "%{shared:-Zdynamiclib} %<shared"
131
132 #define DARWIN_CC1_SPEC                                                 \
133   "%{findirect-virtual-calls: -fapple-kext} %<findirect-virtual-calls " \
134   "%{fterminated-vtables: -fapple-kext} %<fterminated-vtables "         \
135   "%<filelist* %<framework*"
136
137 #define SUBSUBTARGET_OVERRIDE_OPTIONS                                   \
138   do {                                                                  \
139     darwin_override_options ();                                         \
140   } while (0)
141
142 #define SUBTARGET_C_COMMON_OVERRIDE_OPTIONS do {                        \
143   /* Unless set, force ABI=2 for NeXT and m64, 0 otherwise.  */         \
144   if (!global_options_set.x_flag_objc_abi)                              \
145     global_options.x_flag_objc_abi                                      \
146         = (flag_next_runtime && TARGET_64BIT) ? 2 : 0;                  \
147   /* Objective-C family ABI 2 is only valid for next/m64 at present. */ \
148   if (global_options_set.x_flag_objc_abi && flag_next_runtime)          \
149     if (TARGET_64BIT && global_options.x_flag_objc_abi < 2)             \
150       error_at (UNKNOWN_LOCATION, "%<-fobjc-abi-version%> >= 2 is only" \
151                 " supported on %<-m64%> targets for"                    \
152                 " %<-fnext-runtime%>");                                 \
153   /* Sort out ObjC exceptions: If the runtime is NeXT we default to     \
154      sjlj for m32 only.  */                                             \
155   if (!global_options_set.x_flag_objc_sjlj_exceptions)                  \
156     global_options.x_flag_objc_sjlj_exceptions =                        \
157                                 flag_next_runtime && !TARGET_64BIT;     \
158     if (flag_mkernel || flag_apple_kext)                                \
159       {                                                                 \
160         if (flag_use_cxa_atexit == 2)                                   \
161           flag_use_cxa_atexit = 0;                                      \
162         /* kexts should always be built without the coalesced sections  \
163            because the kernel loader doesn't grok such sections.  */    \
164         flag_weak = 0;                                                  \
165         /* No RTTI in kexts.  */                                        \
166         flag_rtti = 0;                                                  \
167       }                                                                 \
168   } while (0)
169
170 /* Machine dependent cpp options.  Don't add more options here, add
171    them to darwin_cpp_builtins in darwin-c.c.  */
172
173 #undef  CPP_SPEC
174 #define CPP_SPEC "%{static:%{!dynamic:-D__STATIC__}}%{!static:-D__DYNAMIC__}" \
175         " %{pthread:-D_REENTRANT}"
176
177 /* This is mostly a clone of the standard LINK_COMMAND_SPEC, plus
178    precomp, libtool, and fat build additions.
179
180    In general, random Darwin linker flags should go into LINK_SPEC
181    instead of LINK_COMMAND_SPEC.  The command spec is better for
182    specifying the handling of options understood by generic Unix
183    linkers, and for positional arguments like libraries.  */
184
185 #define LINK_COMMAND_SPEC_A \
186    "%{!fdump=*:%{!fsyntax-only:%{!c:%{!M:%{!MM:%{!E:%{!S:\
187     %(linker)" \
188     LINK_PLUGIN_SPEC \
189     "%{flto*:%<fcompare-debug*} \
190     %{flto*} \
191     %l %X %{s} %{t} %{Z} %{u*} \
192     %{e*} %{r} \
193     %{o*}%{!o:-o a.out} \
194     %{!nostdlib:%{!nostartfiles:%S}} \
195     %{L*} %(link_libgcc) %o %{fprofile-arcs|fprofile-generate*|coverage:-lgcov} \
196     %{fopenmp|ftree-parallelize-loops=*: \
197       %{static|static-libgcc|static-libstdc++|static-libgfortran: libgomp.a%s; : -lgomp } } \
198     %{!nostdlib:%{!nodefaultlibs:\
199       %(link_ssp) %(link_gcc_c_sequence)\
200     }}\
201     %{!nostdlib:%{!nostartfiles:%E}} %{T*} %{F*} }}}}}}}"
202
203 #define DSYMUTIL "\ndsymutil"
204
205 #define DSYMUTIL_SPEC \
206    "%{!fdump=*:%{!fsyntax-only:%{!c:%{!M:%{!MM:%{!E:%{!S:\
207     %{v} \
208     %{gdwarf-2:%{!gstabs*:%{!g0: -idsym}}}\
209     %{.c|.cc|.C|.cpp|.cp|.c++|.cxx|.CPP|.m|.mm: \
210     %{gdwarf-2:%{!gstabs*:%{!g0: -dsym}}}}}}}}}}}"
211
212 #define LINK_COMMAND_SPEC LINK_COMMAND_SPEC_A DSYMUTIL_SPEC
213
214 /* Tell collect2 to run dsymutil for us as necessary.  */
215 #define COLLECT_RUN_DSYMUTIL 1
216
217 /* We only want one instance of %G, since libSystem (Darwin's -lc) does not depend
218    on libgcc.  */
219 #undef  LINK_GCC_C_SEQUENCE_SPEC
220 #define LINK_GCC_C_SEQUENCE_SPEC "%G %L"
221
222 #ifdef TARGET_SYSTEM_ROOT
223 #define LINK_SYSROOT_SPEC \
224   "%{isysroot*:-syslibroot %*;:-syslibroot " TARGET_SYSTEM_ROOT "}"
225 #else
226 #define LINK_SYSROOT_SPEC "%{isysroot*:-syslibroot %*}"
227 #endif
228
229 #define PIE_SPEC "%{fpie|pie|fPIE:}"
230
231 /* Please keep the random linker options in alphabetical order (modulo
232    'Z' and 'no' prefixes). Note that options taking arguments may appear
233    multiple times on a command line with different arguments each time,
234    so put a * after their names so all of them get passed.  */
235 #define LINK_SPEC  \
236   "%{static}%{!static:-dynamic} \
237    %:remove-outfile(-ldl) \
238    %:remove-outfile(-lm) \
239    %:remove-outfile(-lpthread) \
240    %{fgnu-runtime: %{static|static-libgcc: \
241                      %:replace-outfile(-lobjc libobjc-gnu.a%s); \
242                     :%:replace-outfile(-lobjc -lobjc-gnu ) } }\
243    %{static|static-libgcc|static-libgfortran:%:replace-outfile(-lgfortran libgfortran.a%s)}\
244    %{static|static-libgcc|static-libstdc++|static-libgfortran:%:replace-outfile(-lgomp libgomp.a%s)}\
245    %{static|static-libgcc|static-libstdc++:%:replace-outfile(-lstdc++ libstdc++.a%s)}\
246    %{!Zdynamiclib: \
247      %{Zforce_cpusubtype_ALL:-arch %(darwin_arch) -force_cpusubtype_ALL} \
248      %{!Zforce_cpusubtype_ALL:-arch %(darwin_subarch)} \
249      %{Zbundle:-bundle} \
250      %{Zbundle_loader*:-bundle_loader %*} \
251      %{client_name*} \
252      %{compatibility_version*:%e-compatibility_version only allowed with -dynamiclib\
253 } \
254      %{current_version*:%e-current_version only allowed with -dynamiclib} \
255      %{Zforce_flat_namespace:-force_flat_namespace} \
256      %{Zinstall_name*:%e-install_name only allowed with -dynamiclib} \
257      %{keep_private_externs} \
258      %{private_bundle} \
259     } \
260    %{Zdynamiclib: -dylib \
261      %{Zbundle:%e-bundle not allowed with -dynamiclib} \
262      %{Zbundle_loader*:%e-bundle_loader not allowed with -dynamiclib} \
263      %{client_name*:%e-client_name not allowed with -dynamiclib} \
264      %{compatibility_version*:-dylib_compatibility_version %*} \
265      %{current_version*:-dylib_current_version %*} \
266      %{Zforce_cpusubtype_ALL:-arch %(darwin_arch)} \
267      %{!Zforce_cpusubtype_ALL: -arch %(darwin_subarch)} \
268      %{Zforce_flat_namespace:%e-force_flat_namespace not allowed with -dynamiclib} \
269      %{Zinstall_name*:-dylib_install_name %*} \
270      %{keep_private_externs:%e-keep_private_externs not allowed with -dynamiclib} \
271      %{private_bundle:%e-private_bundle not allowed with -dynamiclib} \
272     } \
273    %{Zall_load:-all_load} \
274    %{Zallowable_client*:-allowable_client %*} \
275    %{Zbind_at_load:-bind_at_load} \
276    %{Zarch_errors_fatal:-arch_errors_fatal} \
277    %{Zdead_strip:-dead_strip} \
278    %{Zno_dead_strip_inits_and_terms:-no_dead_strip_inits_and_terms} \
279    %{Zdylib_file*:-dylib_file %*} \
280    %{Zdynamic:-dynamic}\
281    %{Zexported_symbols_list*:-exported_symbols_list %*} \
282    %{Zflat_namespace:-flat_namespace} \
283    %{headerpad_max_install_names} \
284    %{Zimage_base*:-image_base %*} \
285    %{Zinit*:-init %*} \
286    %{!mmacosx-version-min=*:-macosx_version_min %(darwin_minversion)} \
287    %{mmacosx-version-min=*:-macosx_version_min %*} \
288    %{nomultidefs} \
289    %{Zmulti_module:-multi_module} %{Zsingle_module:-single_module} \
290    %{Zmultiply_defined*:-multiply_defined %*} \
291    %{!Zmultiply_defined*:%{shared-libgcc: \
292      %:version-compare(< 10.5 mmacosx-version-min= -multiply_defined) \
293      %:version-compare(< 10.5 mmacosx-version-min= suppress)}} \
294    %{Zmultiplydefinedunused*:-multiply_defined_unused %*} \
295    " PIE_SPEC " \
296    %{prebind} %{noprebind} %{nofixprebinding} %{prebind_all_twolevel_modules} \
297    %{read_only_relocs} \
298    %{sectcreate*} %{sectorder*} %{seg1addr*} %{segprot*} \
299    %{Zsegaddr*:-segaddr %*} \
300    %{Zsegs_read_only_addr*:-segs_read_only_addr %*} \
301    %{Zsegs_read_write_addr*:-segs_read_write_addr %*} \
302    %{Zseg_addr_table*: -seg_addr_table %*} \
303    %{Zfn_seg_addr_table_filename*:-seg_addr_table_filename %*} \
304    %{sub_library*} %{sub_umbrella*} \
305    " LINK_SYSROOT_SPEC " \
306    %{twolevel_namespace} %{twolevel_namespace_hints} \
307    %{Zumbrella*: -umbrella %*} \
308    %{undefined*} \
309    %{Zunexported_symbols_list*:-unexported_symbols_list %*} \
310    %{Zweak_reference_mismatches*:-weak_reference_mismatches %*} \
311    %{!Zweak_reference_mismatches*:-weak_reference_mismatches non-weak} \
312    %{X} \
313    %{y*} \
314    %{w} \
315    %{pagezero_size*} %{segs_read_*} %{seglinkedit} %{noseglinkedit}  \
316    %{sectalign*} %{sectobjectsymbols*} %{segcreate*} %{whyload} \
317    %{whatsloaded} %{dylinker_install_name*} \
318    %{dylinker} %{Mach} "
319
320
321 /* Machine dependent libraries.  */
322
323 #define LIB_SPEC "%{!static:-lSystem}"
324
325 /* Support -mmacosx-version-min by supplying different (stub) libgcc_s.dylib
326    libraries to link against, and by not linking against libgcc_s on
327    earlier-than-10.3.9.
328
329    Note that by default, -lgcc_eh is not linked against!  This is
330    because in a future version of Darwin the EH frame information may
331    be in a new format, or the fallback routine might be changed; if
332    you want to explicitly link against the static version of those
333    routines, because you know you don't need to unwind through system
334    libraries, you need to explicitly say -static-libgcc.
335
336    If it is linked against, it has to be before -lgcc, because it may
337    need symbols from -lgcc.  */
338 #undef REAL_LIBGCC_SPEC
339 #define REAL_LIBGCC_SPEC                                                   \
340    "%{static-libgcc|static: -lgcc_eh -lgcc;                                \
341       shared-libgcc|fexceptions|fgnu-runtime:                              \
342        %:version-compare(!> 10.5 mmacosx-version-min= -lgcc_s.10.4)        \
343        %:version-compare(>< 10.5 10.6 mmacosx-version-min= -lgcc_s.10.5)   \
344        %:version-compare(!> 10.5 mmacosx-version-min= -lgcc_ext.10.4)      \
345        %:version-compare(>= 10.5 mmacosx-version-min= -lgcc_ext.10.5)      \
346        -lgcc ;                                                             \
347       :%:version-compare(>< 10.3.9 10.5 mmacosx-version-min= -lgcc_s.10.4) \
348        %:version-compare(>< 10.5 10.6 mmacosx-version-min= -lgcc_s.10.5)   \
349        %:version-compare(!> 10.5 mmacosx-version-min= -lgcc_ext.10.4)      \
350        %:version-compare(>= 10.5 mmacosx-version-min= -lgcc_ext.10.5)      \
351        -lgcc }"
352
353 /* We specify crt0.o as -lcrt0.o so that ld will search the library path.
354
355    crt3.o provides __cxa_atexit on systems that don't have it.  Since
356    it's only used with C++, which requires passing -shared-libgcc, key
357    off that to avoid unnecessarily adding a destructor to every
358    powerpc program built.  */
359
360 #undef  STARTFILE_SPEC
361 #define STARTFILE_SPEC                                                      \
362   "%{Zdynamiclib: %(darwin_dylib1) }                                        \
363    %{!Zdynamiclib:%{Zbundle:%{!static:-lbundle1.o}}                         \
364      %{!Zbundle:%{pg:%{static:-lgcrt0.o}                                    \
365                      %{!static:%{object:-lgcrt0.o}                          \
366                                %{!object:%{preload:-lgcrt0.o}               \
367                                  %{!preload:-lgcrt1.o %(darwin_crt2)}}}}    \
368                 %{!pg:%{static:-lcrt0.o}                                    \
369                       %{!static:%{object:-lcrt0.o}                          \
370                                 %{!object:%{preload:-lcrt0.o}               \
371                                   %{!preload: %(darwin_crt1)                \
372                                               %(darwin_crt2)}}}}}}          \
373   %{shared-libgcc:%:version-compare(< 10.5 mmacosx-version-min= crt3.o%s)}"
374
375 /* The native Darwin linker doesn't necessarily place files in the order
376    that they're specified on the link line.  Thus, it is pointless
377    to put anything in ENDFILE_SPEC.  */
378 /* #define ENDFILE_SPEC "" */
379
380 #define DARWIN_EXTRA_SPECS                                              \
381   { "darwin_crt1", DARWIN_CRT1_SPEC },                                  \
382   { "darwin_dylib1", DARWIN_DYLIB1_SPEC },                              \
383   { "darwin_minversion", DARWIN_MINVERSION_SPEC },
384
385 #define DARWIN_DYLIB1_SPEC                                              \
386   "%:version-compare(!> 10.5 mmacosx-version-min= -ldylib1.o)           \
387    %:version-compare(>= 10.5 mmacosx-version-min= -ldylib1.10.5.o)"
388
389 #define DARWIN_CRT1_SPEC                                                \
390   "%:version-compare(!> 10.5 mmacosx-version-min= -lcrt1.o)             \
391    %:version-compare(>= 10.5 mmacosx-version-min= -lcrt1.10.5.o)"
392
393 /* Default Darwin ASM_SPEC, very simple.  */
394 #define ASM_SPEC "-arch %(darwin_arch) \
395   %{Zforce_cpusubtype_ALL:-force_cpusubtype_ALL} \
396   %{static}"
397
398 /* We still allow output of STABS.  */
399
400 #define DBX_DEBUGGING_INFO 1
401
402 #define DWARF2_DEBUGGING_INFO 1
403 #define PREFERRED_DEBUGGING_TYPE DBX_DEBUG
404
405 #define DEBUG_FRAME_SECTION     "__DWARF,__debug_frame,regular,debug"
406 #define DEBUG_INFO_SECTION      "__DWARF,__debug_info,regular,debug"
407 #define DEBUG_ABBREV_SECTION    "__DWARF,__debug_abbrev,regular,debug"
408 #define DEBUG_ARANGES_SECTION   "__DWARF,__debug_aranges,regular,debug"
409 #define DEBUG_MACINFO_SECTION   "__DWARF,__debug_macinfo,regular,debug"
410 #define DEBUG_LINE_SECTION      "__DWARF,__debug_line,regular,debug"
411 #define DEBUG_LOC_SECTION       "__DWARF,__debug_loc,regular,debug"
412 #define DEBUG_PUBNAMES_SECTION  "__DWARF,__debug_pubnames,regular,debug"
413 #define DEBUG_PUBTYPES_SECTION  "__DWARF,__debug_pubtypes,regular,debug"
414 #define DEBUG_STR_SECTION       "__DWARF,__debug_str,regular,debug"
415 #define DEBUG_RANGES_SECTION    "__DWARF,__debug_ranges,regular,debug"
416
417 #define TARGET_WANT_DEBUG_PUB_SECTIONS true
418
419 /* When generating stabs debugging, use N_BINCL entries.  */
420
421 #define DBX_USE_BINCL
422
423 /* There is no limit to the length of stabs strings.  */
424
425 #define DBX_CONTIN_LENGTH 0
426
427 /* gdb needs a null N_SO at the end of each file for scattered loading.  */
428
429 #define DBX_OUTPUT_NULL_N_SO_AT_MAIN_SOURCE_FILE_END
430
431 /* GCC's definition of 'one_only' is the same as its definition of 'weak'.  */
432 #define MAKE_DECL_ONE_ONLY(DECL) (DECL_WEAK (DECL) = 1)
433
434 /* Mach-O supports 'weak imports', and 'weak definitions' in coalesced
435    sections.  machopic_select_section ensures that weak variables go in
436    coalesced sections.  Weak aliases (or any other kind of aliases) are
437    not supported.  Weak symbols that aren't visible outside the .s file
438    are not supported.  */
439 #define ASM_WEAKEN_DECL(FILE, DECL, NAME, ALIAS)                        \
440   do {                                                                  \
441     if (ALIAS)                                                          \
442       {                                                                 \
443         warning (0, "alias definitions not supported in Mach-O; ignored");      \
444         break;                                                          \
445       }                                                                 \
446                                                                         \
447     if (! DECL_EXTERNAL (DECL) && TREE_PUBLIC (DECL))                   \
448       targetm.asm_out.globalize_label (FILE, NAME);                     \
449     if (DECL_EXTERNAL (DECL))                                           \
450       fputs ("\t.weak_reference ", FILE);                               \
451     else if (lookup_attribute ("weak_import", DECL_ATTRIBUTES (DECL)))  \
452       break;                                                            \
453     else if (TREE_PUBLIC (DECL))                                        \
454       fputs ("\t.weak_definition ", FILE);                              \
455     else                                                                \
456       break;                                                            \
457     assemble_name (FILE, NAME);                                         \
458     fputc ('\n', FILE);                                                 \
459   } while (0)
460
461 /* Darwin has the pthread routines in libSystem, which every program
462    links to, so there's no need for weak-ness for that.  */
463 #define GTHREAD_USE_WEAK 0
464
465 /* The Darwin linker imposes two limitations on common symbols: they
466    can't have hidden visibility, and they can't appear in dylibs.  As
467    a consequence, we should never use common symbols to represent
468    vague linkage. */
469 #undef USE_COMMON_FOR_ONE_ONLY
470 #define USE_COMMON_FOR_ONE_ONLY 0
471
472 /* The Darwin linker doesn't want coalesced symbols to appear in
473    a static archive's table of contents. */
474 #undef TARGET_WEAK_NOT_IN_ARCHIVE_TOC
475 #define TARGET_WEAK_NOT_IN_ARCHIVE_TOC 1
476
477 /* On Darwin, we don't (at the time of writing) have linkonce sections
478    with names, so it's safe to make the class data not comdat.  */
479 #define TARGET_CXX_CLASS_DATA_ALWAYS_COMDAT hook_bool_void_false
480
481 /* For efficiency, on Darwin the RTTI information that is always
482    emitted in the standard C++ library should not be COMDAT.  */
483 #define TARGET_CXX_LIBRARY_RTTI_COMDAT hook_bool_void_false
484
485 /* We make exception information linkonce. */
486 #undef TARGET_USES_WEAK_UNWIND_INFO
487 #define TARGET_USES_WEAK_UNWIND_INFO 1
488
489 /* We need to use a nonlocal label for the start of an EH frame: the
490    Darwin linker requires that a coalesced section start with a label.
491    Unfortunately, it also requires that 'debug' sections don't contain
492    labels.  */
493 #undef FRAME_BEGIN_LABEL
494 #define FRAME_BEGIN_LABEL (for_eh ? "EH_frame" : "Lframe")
495
496 /* Emit a label for the FDE corresponding to DECL.  EMPTY means
497    emit a label for an empty FDE. */
498 #define TARGET_ASM_EMIT_UNWIND_LABEL darwin_emit_unwind_label
499
500 /* Emit a label to separate the exception table.  */
501 #define TARGET_ASM_EMIT_EXCEPT_TABLE_LABEL darwin_emit_except_table_label
502
503 /* Our profiling scheme doesn't LP labels and counter words.  */
504
505 #define NO_PROFILE_COUNTERS     1
506
507 #undef  INIT_SECTION_ASM_OP
508 #define INIT_SECTION_ASM_OP
509
510 #undef  INVOKE__main
511
512 #define TARGET_ASM_CONSTRUCTOR  machopic_asm_out_constructor
513 #define TARGET_ASM_DESTRUCTOR   machopic_asm_out_destructor
514
515 /* Always prefix with an underscore.  */
516
517 #define USER_LABEL_PREFIX "_"
518
519 /* A dummy symbol that will be replaced with the function base name.  */
520 #define MACHOPIC_FUNCTION_BASE_NAME "<pic base>"
521
522 /* Don't output a .file directive.  That is only used by the assembler for
523    error reporting.  */
524 #undef  TARGET_ASM_FILE_START_FILE_DIRECTIVE
525 #define TARGET_ASM_FILE_START_FILE_DIRECTIVE false
526
527 #undef  TARGET_ASM_FILE_END
528 #define TARGET_ASM_FILE_END darwin_file_end
529
530 /* Because Mach-O relocations have a counter from 1 to 255 for the
531    section number they apply to, it is necessary to output all
532    normal sections before the LTO sections, to make sure that the
533    sections that may have relocations always have a section number
534    smaller than 255.  */
535 #undef  TARGET_ASM_LTO_START
536 #define TARGET_ASM_LTO_START darwin_asm_lto_start
537 #undef  TARGET_ASM_LTO_END
538 #define TARGET_ASM_LTO_END darwin_asm_lto_end
539
540 #define ASM_OUTPUT_SKIP(FILE,SIZE)  \
541   fprintf (FILE, "\t.space "HOST_WIDE_INT_PRINT_UNSIGNED"\n", SIZE)
542
543 /* Give ObjC methods pretty symbol names.  */
544
545 #undef  OBJC_GEN_METHOD_LABEL
546 #define OBJC_GEN_METHOD_LABEL(BUF,IS_INST,CLASS_NAME,CAT_NAME,SEL_NAME,NUM) \
547   do { if (CAT_NAME)                                                    \
548          sprintf (BUF, "%c[%s(%s) %s]", (IS_INST) ? '-' : '+',          \
549                   (CLASS_NAME), (CAT_NAME), (SEL_NAME));                \
550        else                                                             \
551          sprintf (BUF, "%c[%s %s]", (IS_INST) ? '-' : '+',              \
552                   (CLASS_NAME), (SEL_NAME));                            \
553      } while (0)
554
555 #undef ASM_DECLARE_OBJECT_NAME
556 #define ASM_DECLARE_OBJECT_NAME(FILE, NAME, DECL) \
557         darwin_asm_declare_object_name ((FILE), (NAME), (DECL))
558
559 /* The RTTI data (e.g., __ti4name) is common and public (and static),
560    but it does need to be referenced via indirect PIC data pointers.
561    The machopic_define_symbol calls are telling the machopic subsystem
562    that the name *is* defined in this module, so it doesn't need to
563    make them indirect.  */
564
565 #define ASM_DECLARE_FUNCTION_NAME(FILE, NAME, DECL)                     \
566   do {                                                                  \
567     const char *xname = NAME;                                           \
568     if (GET_CODE (XEXP (DECL_RTL (DECL), 0)) != SYMBOL_REF)             \
569       xname = IDENTIFIER_POINTER (DECL_NAME (DECL));                    \
570     if (! DECL_WEAK (DECL)                                              \
571         && ((TREE_STATIC (DECL)                                         \
572              && (!DECL_COMMON (DECL) || !TREE_PUBLIC (DECL)))           \
573             || DECL_INITIAL (DECL)))                                    \
574         machopic_define_symbol (DECL_RTL (DECL));                       \
575     if ((TREE_STATIC (DECL)                                             \
576          && (!DECL_COMMON (DECL) || !TREE_PUBLIC (DECL)))               \
577         || DECL_INITIAL (DECL))                                         \
578       (* targetm.encode_section_info) (DECL, DECL_RTL (DECL), false);   \
579     ASM_OUTPUT_FUNCTION_LABEL (FILE, xname, DECL);                      \
580   } while (0)
581
582 #undef TARGET_ASM_DECLARE_CONSTANT_NAME
583 #define TARGET_ASM_DECLARE_CONSTANT_NAME darwin_asm_declare_constant_name
584
585 /* Wrap new method names in quotes so the assembler doesn't gag.
586    Make Objective-C internal symbols local and in doing this, we need 
587    to accommodate the name mangling done by c++ on file scope locals.  */
588
589 int darwin_label_is_anonymous_local_objc_name (const char *name);
590
591 #undef  ASM_OUTPUT_LABELREF
592 #define ASM_OUTPUT_LABELREF(FILE,NAME)                                       \
593   do {                                                                       \
594        const char *xname = (NAME);                                           \
595        if (! strcmp (xname, MACHOPIC_FUNCTION_BASE_NAME))                    \
596          machopic_output_function_base_name(FILE);                           \
597        else if (xname[0] == '&' || xname[0] == '*')                          \
598          {                                                                   \
599            int len = strlen (xname);                                         \
600            if (len > 6 && !strcmp ("$stub", xname + len - 5))                \
601              machopic_validate_stub_or_non_lazy_ptr (xname);                 \
602            else if (len > 7 && !strcmp ("$stub\"", xname + len - 6))         \
603              machopic_validate_stub_or_non_lazy_ptr (xname);                 \
604            else if (len > 14 && !strcmp ("$non_lazy_ptr", xname + len - 13)) \
605              machopic_validate_stub_or_non_lazy_ptr (xname);                 \
606            else if (len > 15 && !strcmp ("$non_lazy_ptr\"", xname + len - 14)) \
607              machopic_validate_stub_or_non_lazy_ptr (xname);                 \
608            if (xname[1] != '"' && name_needs_quotes (&xname[1]))             \
609              fprintf (FILE, "\"%s\"", &xname[1]);                            \
610            else                                                              \
611              fputs (&xname[1], FILE);                                        \
612          }                                                                   \
613        else if (xname[0] == '+' || xname[0] == '-')                          \
614          fprintf (FILE, "\"%s\"", xname);                                    \
615        else if (darwin_label_is_anonymous_local_objc_name (xname))           \
616          fprintf (FILE, "L%s", xname);                                       \
617        else if (!strncmp (xname, ".objc_class_name_", 17))                   \
618          fprintf (FILE, "%s", xname);                                        \
619        else if (xname[0] != '"' && name_needs_quotes (xname))                \
620          fprintf (FILE, "\"%s\"", xname);                                    \
621        else                                                                  \
622          asm_fprintf (FILE, "%U%s", xname);                                  \
623   } while (0)
624
625 /* Output before executable code.  */
626 #undef TEXT_SECTION_ASM_OP
627 #define TEXT_SECTION_ASM_OP "\t.text"
628
629 /* Output before writable data.  */
630
631 #undef DATA_SECTION_ASM_OP
632 #define DATA_SECTION_ASM_OP "\t.data"
633
634 #undef  ALIGN_ASM_OP
635 #define ALIGN_ASM_OP            ".align"
636
637 #undef  ASM_OUTPUT_ALIGN
638 #define ASM_OUTPUT_ALIGN(FILE,LOG)      \
639   if ((LOG) != 0)                       \
640     fprintf (FILE, "\t%s\t%d\n", ALIGN_ASM_OP, (LOG))
641
642 /* The maximum alignment which the object file format can support in
643    bits.  For Mach-O, this is 2^15 bytes.  */
644
645 #undef  MAX_OFILE_ALIGNMENT
646 #define MAX_OFILE_ALIGNMENT (0x8000 * 8)
647
648 #define L2_MAX_OFILE_ALIGNMENT 15
649
650 /*  These are the three variants that emit referenced blank space.  */
651 #define ASM_OUTPUT_ALIGNED_BSS(FILE, DECL, NAME, SIZE, ALIGN)           \
652         darwin_output_aligned_bss ((FILE), (DECL), (NAME), (SIZE), (ALIGN))
653
654 #undef  ASM_OUTPUT_ALIGNED_DECL_LOCAL
655 #define ASM_OUTPUT_ALIGNED_DECL_LOCAL(FILE, DECL, NAME, SIZE, ALIGN)    \
656         darwin_asm_output_aligned_decl_local                            \
657                                   ((FILE), (DECL), (NAME), (SIZE), (ALIGN))
658
659 #undef  ASM_OUTPUT_ALIGNED_DECL_COMMON
660 #define ASM_OUTPUT_ALIGNED_DECL_COMMON(FILE, DECL, NAME, SIZE, ALIGN)   \
661         darwin_asm_output_aligned_decl_common                           \
662                                    ((FILE), (DECL), (NAME), (SIZE), (ALIGN))
663
664 /* The generic version, archs should over-ride where required.  */
665 #define MACHOPIC_NL_SYMBOL_PTR_SECTION ".non_lazy_symbol_pointer"
666
667 /* Declare the section variables.  */
668 #ifndef USED_FOR_TARGET
669 enum darwin_section_enum {
670 #define DEF_SECTION(NAME, FLAGS, DIRECTIVE, OBJC) NAME,
671 #include "darwin-sections.def"
672 #undef DEF_SECTION
673   NUM_DARWIN_SECTIONS
674 };
675 extern GTY(()) section * darwin_sections[NUM_DARWIN_SECTIONS];
676 #endif
677
678 #undef  TARGET_ASM_SELECT_SECTION
679 #define TARGET_ASM_SELECT_SECTION machopic_select_section
680
681 #undef  TARGET_ASM_FUNCTION_SECTION
682 #define TARGET_ASM_FUNCTION_SECTION darwin_function_section
683
684 #undef  TARGET_ASM_FUNCTION_SWITCHED_TEXT_SECTIONS
685 #define TARGET_ASM_FUNCTION_SWITCHED_TEXT_SECTIONS \
686         darwin_function_switched_text_sections
687
688 #undef  TARGET_ASM_SELECT_RTX_SECTION
689 #define TARGET_ASM_SELECT_RTX_SECTION machopic_select_rtx_section
690 #undef  TARGET_ASM_UNIQUE_SECTION
691 #define TARGET_ASM_UNIQUE_SECTION darwin_unique_section
692 #undef  TARGET_ASM_FUNCTION_RODATA_SECTION
693 #define TARGET_ASM_FUNCTION_RODATA_SECTION default_no_function_rodata_section
694 #undef  TARGET_ASM_RELOC_RW_MASK
695 #define TARGET_ASM_RELOC_RW_MASK machopic_reloc_rw_mask
696
697
698 #define ASM_DECLARE_UNRESOLVED_REFERENCE(FILE,NAME)                     \
699     do {                                                                \
700          if (FILE) {                                                    \
701            if (MACHOPIC_INDIRECT)                                       \
702              fprintf (FILE, "\t.lazy_reference ");                      \
703            else                                                         \
704              fprintf (FILE, "\t.reference ");                           \
705            assemble_name (FILE, NAME);                                  \
706            fprintf (FILE, "\n");                                        \
707          }                                                              \
708        } while (0)
709
710 #define ASM_DECLARE_CLASS_REFERENCE(FILE,NAME)                          \
711     do {                                                                \
712          if (FILE) {                                                    \
713            fprintf (FILE, "\t");                                        \
714            assemble_name (FILE, NAME);                                  \
715            fprintf (FILE, "=0\n");                                      \
716            (*targetm.asm_out.globalize_label) (FILE, NAME);             \
717          }                                                              \
718        } while (0)
719
720 /* Globalizing directive for a label.  */
721 #define GLOBAL_ASM_OP "\t.globl "
722 #define TARGET_ASM_GLOBALIZE_LABEL darwin_globalize_label
723
724 /* Emit an assembler directive to set visibility for a symbol.  Used
725    to support visibility attribute and Darwin's private extern
726    feature.  */
727 #undef TARGET_ASM_ASSEMBLE_VISIBILITY
728 #define TARGET_ASM_ASSEMBLE_VISIBILITY darwin_assemble_visibility
729
730 /* Extra attributes for Darwin.  */
731 #define SUBTARGET_ATTRIBUTE_TABLE                                            \
732   /* { name, min_len, max_len, decl_req, type_req, fn_type_req, handler,     \
733        affects_type_identity } */                                                    \
734   { "apple_kext_compatibility", 0, 0, false, true, false,                    \
735     darwin_handle_kext_attribute, false },                                   \
736   { "weak_import", 0, 0, true, false, false,                                 \
737     darwin_handle_weak_import_attribute, false }
738
739 #undef ASM_GENERATE_INTERNAL_LABEL
740 #define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM)   \
741   sprintf (LABEL, "*%s%ld", PREFIX, (long)(NUM))
742
743 #undef TARGET_ASM_MARK_DECL_PRESERVED
744 #define TARGET_ASM_MARK_DECL_PRESERVED darwin_mark_decl_preserved
745
746 /* Set on a symbol with SYMBOL_FLAG_FUNCTION or
747    MACHO_SYMBOL_FLAG_VARIABLE to indicate that the function or
748    variable has been defined in this translation unit.
749    When porting Mach-O to new architectures you need to make
750    sure these aren't clobbered by the backend.  */
751
752 #define MACHO_SYMBOL_FLAG_VARIABLE (SYMBOL_FLAG_MACH_DEP)
753 #define MACHO_SYMBOL_FLAG_DEFINED ((SYMBOL_FLAG_MACH_DEP) << 1)
754
755 /* Set on a symbol to indicate when fix-and-continue style code
756    generation is being used and the symbol refers to a static symbol
757    that should be rebound from new instances of a translation unit to
758    the original instance of the data.  */
759
760 #define MACHO_SYMBOL_STATIC ((SYMBOL_FLAG_MACH_DEP) << 2)
761
762 /* Symbolic names for various things we might know about a symbol.  */
763
764 enum machopic_addr_class {
765   MACHOPIC_UNDEFINED,
766   MACHOPIC_DEFINED_DATA,
767   MACHOPIC_UNDEFINED_DATA,
768   MACHOPIC_DEFINED_FUNCTION,
769   MACHOPIC_UNDEFINED_FUNCTION
770 };
771
772 /* Macros defining the various PIC cases.  */
773
774 #undef  MACHO_DYNAMIC_NO_PIC_P
775 #define MACHO_DYNAMIC_NO_PIC_P  (TARGET_MACHO_DYNAMIC_NO_PIC)
776 #undef  MACHOPIC_INDIRECT
777 #define MACHOPIC_INDIRECT       (flag_pic || MACHO_DYNAMIC_NO_PIC_P)
778 #define MACHOPIC_JUST_INDIRECT  (MACHO_DYNAMIC_NO_PIC_P)
779 #undef  MACHOPIC_PURE
780 #define MACHOPIC_PURE           (flag_pic && ! MACHO_DYNAMIC_NO_PIC_P)
781
782 #undef TARGET_ENCODE_SECTION_INFO
783 #define TARGET_ENCODE_SECTION_INFO  darwin_encode_section_info
784 #undef TARGET_STRIP_NAME_ENCODING
785 #define TARGET_STRIP_NAME_ENCODING  default_strip_name_encoding
786
787 #define GEN_BINDER_NAME_FOR_STUB(BUF,STUB,STUB_LENGTH)          \
788   do {                                                          \
789     const char *const stub_ = (STUB);                           \
790     char *buffer_ = (BUF);                                      \
791     strcpy (buffer_, stub_);                                    \
792     if (stub_[0] == '"')                                        \
793       {                                                         \
794         strcpy (buffer_ + (STUB_LENGTH) - 1, "_binder\"");      \
795       }                                                         \
796     else                                                        \
797       {                                                         \
798         strcpy (buffer_ + (STUB_LENGTH), "_binder");            \
799       }                                                         \
800   } while (0)
801
802 #define GEN_SYMBOL_NAME_FOR_SYMBOL(BUF,SYMBOL,SYMBOL_LENGTH)    \
803   do {                                                          \
804     const char *const symbol_ = (SYMBOL);                       \
805     char *buffer_ = (BUF);                                      \
806     if (name_needs_quotes (symbol_) && symbol_[0] != '"')       \
807       {                                                         \
808           sprintf (buffer_, "\"%s\"", symbol_);                 \
809       }                                                         \
810     else                                                        \
811       {                                                         \
812         strcpy (buffer_, symbol_);                              \
813       }                                                         \
814   } while (0)
815
816 /* Given a symbol name string, create the lazy pointer version
817    of the symbol name.  */
818
819 #define GEN_LAZY_PTR_NAME_FOR_SYMBOL(BUF,SYMBOL,SYMBOL_LENGTH)  \
820   do {                                                          \
821     const char *symbol_ = (SYMBOL);                             \
822     char *buffer_ = (BUF);                                      \
823     if (symbol_[0] == '"')                                      \
824       {                                                         \
825         strcpy (buffer_, "\"L");                                \
826         strcpy (buffer_ + 2, symbol_ + 1);                      \
827         strcpy (buffer_ + (SYMBOL_LENGTH), "$lazy_ptr\"");      \
828       }                                                         \
829     else if (name_needs_quotes (symbol_))                       \
830       {                                                         \
831         strcpy (buffer_, "\"L");                                \
832         strcpy (buffer_ + 2, symbol_);                          \
833         strcpy (buffer_ + (SYMBOL_LENGTH) + 2, "$lazy_ptr\"");  \
834       }                                                         \
835     else                                                        \
836       {                                                         \
837         strcpy (buffer_, "L");                                  \
838         strcpy (buffer_ + 1, symbol_);                          \
839         strcpy (buffer_ + (SYMBOL_LENGTH) + 1, "$lazy_ptr");    \
840       }                                                         \
841   } while (0)
842
843 #define EH_FRAME_SECTION_NAME   "__TEXT"
844 #define EH_FRAME_SECTION_ATTR ",coalesced,no_toc+strip_static_syms+live_support"
845
846 /* Java runtime class list.  */
847 #define JCR_SECTION_NAME "__DATA,jcr,regular,no_dead_strip"
848
849 #undef ASM_PREFERRED_EH_DATA_FORMAT
850 #define ASM_PREFERRED_EH_DATA_FORMAT(CODE,GLOBAL)  \
851   (((CODE) == 2 && (GLOBAL) == 1) \
852    ? (DW_EH_PE_pcrel | DW_EH_PE_indirect | DW_EH_PE_sdata4) : \
853      ((CODE) == 1 || (GLOBAL) == 0) ? DW_EH_PE_pcrel : DW_EH_PE_absptr)
854
855 #define ASM_OUTPUT_DWARF_DELTA(FILE,SIZE,LABEL1,LABEL2)  \
856   darwin_asm_output_dwarf_delta (FILE, SIZE, LABEL1, LABEL2)
857
858 #define ASM_OUTPUT_DWARF_OFFSET(FILE,SIZE,LABEL,BASE)  \
859   darwin_asm_output_dwarf_offset (FILE, SIZE, LABEL, BASE)
860
861 #define ASM_MAYBE_OUTPUT_ENCODED_ADDR_RTX(ASM_OUT_FILE, ENCODING, SIZE, ADDR, DONE)     \
862       if (ENCODING == ASM_PREFERRED_EH_DATA_FORMAT (2, 1)) {                            \
863         darwin_non_lazy_pcrel (ASM_OUT_FILE, ADDR);                                     \
864         goto DONE;                                                                      \
865       }
866
867 /* Experimentally, putting jump tables in text is faster on SPEC.
868    Also this is needed for correctness for coalesced functions.  */
869
870 #ifndef JUMP_TABLES_IN_TEXT_SECTION
871 #define JUMP_TABLES_IN_TEXT_SECTION 1
872 #endif
873
874 #define TARGET_TERMINATE_DW2_EH_FRAME_INFO false
875
876 #define TARGET_ASM_INIT_SECTIONS darwin_init_sections
877 #undef TARGET_ASM_NAMED_SECTION
878 #define TARGET_ASM_NAMED_SECTION darwin_asm_named_section
879
880 #define DARWIN_REGISTER_TARGET_PRAGMAS()                        \
881   do {                                                          \
882     if (!flag_preprocess_only)                                  \
883       cpp_register_pragma (parse_in, NULL, "mark",              \
884                            darwin_pragma_ignore, false);        \
885     c_register_pragma (0, "options", darwin_pragma_options);    \
886     c_register_pragma (0, "segment", darwin_pragma_ignore);     \
887     c_register_pragma (0, "unused", darwin_pragma_unused);      \
888     c_register_pragma (0, "ms_struct", darwin_pragma_ms_struct); \
889   } while (0)
890
891 #undef ASM_APP_ON
892 #define ASM_APP_ON ""
893 #undef ASM_APP_OFF
894 #define ASM_APP_OFF ""
895
896 void darwin_register_frameworks (const char *, const char *, int);
897 void darwin_register_objc_includes (const char *, const char *, int);
898 #define TARGET_EXTRA_PRE_INCLUDES darwin_register_objc_includes
899 #define TARGET_EXTRA_INCLUDES darwin_register_frameworks
900
901 void add_framework_path (char *);
902 #define TARGET_OPTF add_framework_path
903
904 #define TARGET_POSIX_IO
905
906 /* All new versions of Darwin have C99 functions.  */
907
908 #define TARGET_C99_FUNCTIONS 1
909
910 #define WINT_TYPE "int"
911
912 /* Every program on darwin links against libSystem which contains the pthread
913    routines, so there's no need to explicitly call out when doing threaded
914    work.  */
915
916 #undef GOMP_SELF_SPECS
917 #define GOMP_SELF_SPECS ""
918
919 /* Darwin disables section anchors by default.  
920    They should be enabled per arch where support exists in that arch.  */
921 #define TARGET_ASM_OUTPUT_ANCHOR NULL
922 #define DARWIN_SECTION_ANCHORS 0
923
924 #define HAVE_ENABLE_EXECUTE_STACK
925
926 /* For Apple KEXTs, we make the constructors return this to match gcc
927    2.95.  */
928 #define TARGET_CXX_CDTOR_RETURNS_THIS (darwin_kextabi_p)
929 #define TARGET_KEXTABI flag_apple_kext
930
931 /* We have target-specific builtins.  */
932 #define TARGET_FOLD_BUILTIN darwin_fold_builtin
933
934 #define TARGET_N_FORMAT_TYPES 1
935 #define TARGET_FORMAT_TYPES darwin_additional_format_types
936
937 #ifndef USED_FOR_TARGET
938 extern void darwin_driver_init (unsigned int *,struct cl_decoded_option **);
939 #define GCC_DRIVER_HOST_INITIALIZATION \
940   darwin_driver_init (&decoded_options_count, &decoded_options)
941 #endif
942
943 /* The Apple assembler and linker do not support constructor priorities.  */
944 #undef SUPPORTS_INIT_PRIORITY
945 #define SUPPORTS_INIT_PRIORITY 0
946
947 #endif /* CONFIG_DARWIN_H */