gcc/config/darwin.h

   1 /* Target definitions for Darwin (Mac OS X) systems.
   2    Copyright (C) 1989, 1990, 1991, 1992, 1993, 2000, 2001
   3    Free Software Foundation, Inc.
   4    Contributed by Apple Computer Inc.
   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 /* The definitions in this file are common to all processor types
  24    running Darwin, which is the kernel for Mac OS X.  Darwin is
  25    basically a BSD user layer laid over a Mach kernel, then evolved
  26    for many years (at NeXT) in parallel with other Unix systems.  So
  27    while the runtime is a somewhat idiosyncratic Mach-based thing,
  28    other definitions look like they would for a BSD variant.  */
  29
  30 /* Although NeXT ran on many different architectures, as of Jan 2001
  31    the only supported Darwin targets are PowerPC and x86.  */
  32
  33 /* Technically, STANDARD_EXEC_PREFIX should be /usr/libexec/, but in
  34    practice this makes it hard to install new compilers elsewhere, so
  35    leave it undefined and expect system builders to set configure args
  36    correctly.  */
  37
  38 /* Name of the command that invokes the compiler - used in g++.c.  */
  39
  40 #undef  GCC_NAME
  41 #define GCC_NAME "cc"
  42
  43 /* Never try linking with -lm - used in g++.c.  */
  44
  45 #define NO_MATH_LIBRARY
  46
  47 /* We have atexit.  */
  48
  49 #define HAVE_ATEXIT
  50
  51 /* Define an empty body for the function do_global_dtors() in libgcc2.c.  */
  52
  53 #define DO_GLOBAL_DTORS_BODY
  54
  55 /* The string value for __SIZE_TYPE__.  */
  56
  57 #ifndef SIZE_TYPE
  58 #define SIZE_TYPE "long unsigned int"
  59 #endif
  60
  61 /* Type used for ptrdiff_t, as a string used in a declaration.  */
  62
  63 #undef  PTRDIFF_TYPE
  64 #define PTRDIFF_TYPE "int"
  65
  66 /* wchar_t is int.  */
  67
  68 #undef  WCHAR_TYPE
  69 #define WCHAR_TYPE "int"
  70 #undef  WCHAR_TYPE_SIZE
  71 #define WCHAR_TYPE_SIZE 32
  72
  73 /* Default to using the NeXT-style runtime, since that's what is
  74    pre-installed on Darwin systems.  */
  75
  76 #define NEXT_OBJC_RUNTIME
  77
  78 /* Don't default to pcc-struct-return, because gcc is the only compiler, and
  79    we want to retain compatibility with older gcc versions.  */
  80
  81 #undef  DEFAULT_PCC_STRUCT_RETURN
  82 #define DEFAULT_PCC_STRUCT_RETURN 0
  83
  84 /* Don't warn about MacOS-style 'APPL' four-char-constants.  */
  85
  86 #undef WARN_FOUR_CHAR_CONSTANTS
  87 #define WARN_FOUR_CHAR_CONSTANTS 0
  88
  89 /* Machine dependent cpp options.  */
  90
  91 /* The sequence here allows us to get a more specific version number
  92    glued into __APPLE_CC__.  Normally this number would be updated as
  93    part of submitting to a release engineering organization.  */
  94
  95 #ifndef APPLE_CC
  96 #define APPLE_CC 999
  97 #endif
  98
  99 #define STRINGIFY_THIS(x) # x
 100 #define REALLY_STRINGIFY(x) STRINGIFY_THIS(x)
 101
 102 #undef  CPP_SPEC
 103 #define CPP_SPEC "-D__APPLE_CC__=" REALLY_STRINGIFY(APPLE_CC) " \
 104                   %{static:-D__STATIC__}%{!static:-D__DYNAMIC__}"
 105
 106 /* Machine dependent libraries.  */
 107
 108 #undef  LIB_SPEC
 109 #define LIB_SPEC "%{!static:-lSystem}"
 110
 111 /* We specify crt0.o as -lcrt0.o so that ld will search the library path. */
 112
 113 #undef  STARTFILE_SPEC
 114 #define STARTFILE_SPEC  \
 115   "%{pg:%{static:-lgcrt0.o}%{!static:-lgcrt1.o}} \
 116     %{!pg:%{static:-lcrt0.o}%{!static:-lcrt1.o}}"
 117
 118 #undef  DOLLARS_IN_IDENTIFIERS
 119 #define DOLLARS_IN_IDENTIFIERS 2
 120
 121 /* Allow #sccs (but don't do anything). */
 122
 123 #define SCCS_DIRECTIVE
 124
 125 /* We use Dbx symbol format.  */
 126
 127 #define DBX_DEBUGGING_INFO
 128
 129 /* When generating stabs debugging, use N_BINCL entries.  */
 130
 131 #define DBX_USE_BINCL
 132
 133 /* There is no limit to the length of stabs strings.  */
 134
 135 #define DBX_CONTIN_LENGTH 0
 136
 137 /* gdb needs a null N_SO at the end of each file for scattered loading. */
 138
 139 #undef  DBX_OUTPUT_MAIN_SOURCE_FILE_END
 140 #define DBX_OUTPUT_MAIN_SOURCE_FILE_END(FILE, FILENAME)                 \
 141 do { text_section ();                                                   \
 142      fprintf (FILE,                                                     \
 143               "\t.stabs \"%s\",%d,0,0,Letext\nLetext:\n", "" , N_SO);   \
 144    } while (0)
 145
 146 /* Our profiling scheme doesn't LP labels and counter words.  */
 147
 148 #define NO_PROFILE_COUNTERS
 149
 150 /* Don't use .gcc_compiled symbols to communicate with GDB;
 151    They interfere with numerically sorted symbol lists. */
 152
 153 #undef  ASM_IDENTIFY_GCC
 154 #define ASM_IDENTIFY_GCC(asm_out_file)
 155
 156 #undef  INIT_SECTION_ASM_OP
 157 #define INIT_SECTION_ASM_OP
 158
 159 #undef  INVOKE__main
 160
 161 #undef  ASM_OUTPUT_CONSTRUCTOR
 162 #define ASM_OUTPUT_CONSTRUCTOR(FILE,NAME)                       \
 163   do { if (flag_pic)                                            \
 164          mod_init_section ();                                   \
 165        else                                                     \
 166          constructor_section ();                                \
 167        ASM_OUTPUT_ALIGN (FILE, 1);                              \
 168        fprintf (FILE, "\t.long ");                              \
 169        assemble_name (FILE, NAME);                              \
 170        fprintf (FILE, "\n");                                    \
 171        if (!flag_pic)                                           \
 172          fprintf (FILE, ".reference .constructors_used\n");     \
 173       } while (0)
 174
 175 #undef  ASM_OUTPUT_DESTRUCTOR
 176 #define ASM_OUTPUT_DESTRUCTOR(FILE,NAME)                        \
 177   do { if (flag_pic)                                            \
 178          mod_term_section ();                                   \
 179        else                                                     \
 180          destructor_section ();                                 \
 181        ASM_OUTPUT_ALIGN (FILE, 1);                              \
 182        fprintf (FILE, "\t.long ");                              \
 183        assemble_name (FILE, NAME);                              \
 184        fprintf (FILE, "\n");                                    \
 185        if (!flag_pic)                                           \
 186         fprintf (FILE, ".reference .destructors_used\n");       \
 187      } while (0)
 188
 189
 190 /* Don't output a .file directive.  That is only used by the assembler for
 191    error reporting.  */
 192
 193 #undef  ASM_FILE_START
 194 #define ASM_FILE_START(FILE)
 195
 196 #undef  ASM_FILE_END
 197 #define ASM_FILE_END(FILE)                                      \
 198   do {                                                          \
 199     machopic_finish (asm_out_file);                             \
 200     if (strcmp (language_string, "GNU C++") == 0)               \
 201       {                                                         \
 202         constructor_section ();                                 \
 203         destructor_section ();                                  \
 204         ASM_OUTPUT_ALIGN (FILE, 1);                             \
 205       }                                                         \
 206   } while (0)
 207
 208 /* Give ObjcC methods pretty symbol names. */
 209
 210 #undef  OBJC_GEN_METHOD_LABEL
 211 #define OBJC_GEN_METHOD_LABEL(BUF,IS_INST,CLASS_NAME,CAT_NAME,SEL_NAME,NUM) \
 212   do { if (CAT_NAME)                                                    \
 213          sprintf (BUF, "%c[%s(%s) %s]", (IS_INST) ? '-' : '+',          \
 214                   (CLASS_NAME), (CAT_NAME), (SEL_NAME));                \
 215        else                                                             \
 216          sprintf (BUF, "%c[%s %s]", (IS_INST) ? '-' : '+',              \
 217                   (CLASS_NAME), (SEL_NAME));                            \
 218      } while (0)
 219
 220 /* The RTTI data (e.g., __ti4name) is common and public (and static),
 221    but it does need to be referenced via indirect PIC data pointers.
 222    The machopic_define_name calls are telling the machopic subsystem
 223    that the name *is* defined in this module, so it doesn't need to
 224    make them indirect.  */
 225
 226 #undef ASM_DECLARE_OBJECT_NAME
 227 #define ASM_DECLARE_OBJECT_NAME(FILE, NAME, DECL)                       \
 228   do {                                                                  \
 229     char *xname = NAME;                                                 \
 230     if (GET_CODE (XEXP (DECL_RTL (DECL), 0)) != SYMBOL_REF)             \
 231       xname = IDENTIFIER_POINTER (DECL_NAME (DECL));                    \
 232     if ((TREE_STATIC (DECL)                                             \
 233          && (!DECL_COMMON (DECL) || !TREE_PUBLIC (DECL)))               \
 234         || DECL_INITIAL (DECL))                                         \
 235       machopic_define_name (xname);                                     \
 236     if ((TREE_STATIC (DECL)                                             \
 237          && (!DECL_COMMON (DECL) || !TREE_PUBLIC (DECL)))               \
 238         || DECL_INITIAL (DECL))                                         \
 239       ENCODE_SECTION_INFO (DECL);  \
 240     ASM_OUTPUT_LABEL (FILE, xname);                                     \
 241   } while (0)
 242
 243 /* Wrap new method names in quotes so the assembler doesn't gag.
 244    Make Objective-C internal symbols local.  */
 245
 246 #undef  ASM_OUTPUT_LABELREF
 247 #define ASM_OUTPUT_LABELREF(FILE,NAME)  \
 248   do {                                                                  \
 249        STRIP_NAME_ENCODING (NAME, NAME);  \
 250        if (NAME[0] == '&')                                              \
 251          {                                                              \
 252            int len = strlen (NAME);                                     \
 253            if (len > 6 && !strcmp ("$stub", NAME + len - 5))            \
 254              machopic_validate_stub_or_non_lazy_ptr (NAME, 1);          \
 255            else if (len > 7 && !strcmp ("$stub\"", NAME + len - 6))     \
 256              machopic_validate_stub_or_non_lazy_ptr (NAME, 1);          \
 257            else if (len > 14 && !strcmp ("$non_lazy_ptr", NAME + len - 13)) \
 258              machopic_validate_stub_or_non_lazy_ptr (NAME, 0);          \
 259            fputs (&NAME[1], FILE); \
 260          } \
 261        else if (NAME[0] == '+' || NAME[0] == '-')   \
 262          fprintf (FILE, "\"%s\"", NAME); \
 263        else if (!strncmp (NAME, "_OBJC_", 6))  \
 264          fprintf (FILE, "L%s", NAME);   \
 265        else if (!strncmp (NAME, ".objc_class_name_", 17))               \
 266          fprintf (FILE, "%s", NAME);                                    \
 267        else                                                             \
 268          fprintf (FILE, "_%s", NAME);                                   \
 269   } while (0)
 270
 271 #undef  ALIGN_ASM_OP
 272 #define ALIGN_ASM_OP            ".align"
 273
 274 #undef  ASM_OUTPUT_ALIGN
 275 #define ASM_OUTPUT_ALIGN(FILE,LOG)      \
 276   if ((LOG) != 0)                       \
 277     fprintf (FILE, "\t%s %d\n", ALIGN_ASM_OP, (LOG))
 278
 279 /* Ensure correct alignment of bss data.  */
 280
 281 #undef  ASM_OUTPUT_ALIGNED_DECL_LOCAL
 282 #define ASM_OUTPUT_ALIGNED_DECL_LOCAL(FILE, DECL, NAME, SIZE, ALIGN) \
 283   do {  \
 284     fputs (".lcomm ", (FILE));                          \
 285     assemble_name ((FILE), (NAME));                     \
 286     fprintf ((FILE), ",%u,%u\n", (SIZE), floor_log2 ((ALIGN) / BITS_PER_UNIT)); \
 287     if ((DECL) && ((TREE_STATIC (DECL)                                             \
 288          && (!DECL_COMMON (DECL) || !TREE_PUBLIC (DECL)))               \
 289         || DECL_INITIAL (DECL)))                                         \
 290       ENCODE_SECTION_INFO (DECL);  \
 291     if ((DECL) && ((TREE_STATIC (DECL)                                             \
 292          && (!DECL_COMMON (DECL) || !TREE_PUBLIC (DECL)))               \
 293         || DECL_INITIAL (DECL)))                                         \
 294       machopic_define_name (NAME);                                     \
 295   } while (0)
 296
 297 /* Output nothing for #ident.  */
 298
 299 #undef  ASM_OUTPUT_IDENT
 300 #define ASM_OUTPUT_IDENT(FILE, NAME)
 301
 302 /* The maximum alignment which the object file format can support.
 303    For Mach-O, this is 2^15.  */
 304
 305 #undef  MAX_OFILE_ALIGNMENT
 306 #define MAX_OFILE_ALIGNMENT 0x8000
 307
 308 /* Create new Mach-O sections. */
 309
 310 #undef  SECTION_FUNCTION
 311 #define SECTION_FUNCTION(FUNCTION, SECTION, DIRECTIVE, OBJC)            \
 312 void                                                                    \
 313 FUNCTION ()                                                             \
 314 {                                                                       \
 315   extern void objc_section_init ();                                     \
 316                                                                         \
 317   if (in_section != SECTION)                                            \
 318     {                                                                   \
 319       if (OBJC)                                                         \
 320         objc_section_init ();                                           \
 321       data_section ();                                                  \
 322       if (asm_out_file)                                                 \
 323         fprintf (asm_out_file, "%s\n", DIRECTIVE);                      \
 324       in_section = SECTION;                                             \
 325     }                                                                   \
 326 }                                                                       \
 327
 328 #define ALIAS_SECTION(enum_value, alias_name)                           \
 329 do { if (!strcmp (alias_name, name))                                    \
 330        section_alias[enum_value] = (alias ? get_identifier (alias) : 0);  \
 331    } while (0)
 332
 333 /* Darwin uses many types of special sections.  */
 334
 335 #undef  EXTRA_SECTIONS
 336 #define EXTRA_SECTIONS                                  \
 337   in_const, in_const_data, in_cstring, in_literal4, in_literal8,        \
 338   in_constructor, in_destructor, in_mod_init, in_mod_term,              \
 339   in_objc_class, in_objc_meta_class, in_objc_category,  \
 340   in_objc_class_vars, in_objc_instance_vars,            \
 341   in_objc_cls_meth, in_objc_inst_meth,                  \
 342   in_objc_cat_cls_meth, in_objc_cat_inst_meth,          \
 343   in_objc_selector_refs,                                \
 344   in_objc_selector_fixup,                               \
 345   in_objc_symbols, in_objc_module_info,                 \
 346   in_objc_protocol, in_objc_string_object,              \
 347   in_objc_constant_string_object,                       \
 348   in_objc_class_names, in_objc_meth_var_names,          \
 349   in_objc_meth_var_types, in_objc_cls_refs,             \
 350   in_machopic_nl_symbol_ptr,                            \
 351   in_machopic_lazy_symbol_ptr,                          \
 352   in_machopic_symbol_stub,                              \
 353   in_machopic_picsymbol_stub,                           \
 354   num_sections
 355
 356 #undef  EXTRA_SECTION_FUNCTIONS
 357 #define EXTRA_SECTION_FUNCTIONS                 \
 358 SECTION_FUNCTION (const_section,                \
 359                   in_const,                     \
 360                   ".const", 0)                  \
 361 SECTION_FUNCTION (const_data_section,           \
 362                   in_const_data,                \
 363                   ".const_data", 0)             \
 364 SECTION_FUNCTION (cstring_section,              \
 365                   in_cstring,                   \
 366                   ".cstring", 0)                \
 367 SECTION_FUNCTION (literal4_section,             \
 368                   in_literal4,                  \
 369                   ".literal4", 0)               \
 370 SECTION_FUNCTION (literal8_section,             \
 371                   in_literal8,                  \
 372                   ".literal8", 0)               \
 373 SECTION_FUNCTION (constructor_section,          \
 374                   in_constructor,               \
 375                   ".constructor", 0)            \
 376 SECTION_FUNCTION (mod_init_section,             \
 377                   in_mod_init,                  \
 378                   ".mod_init_func", 0)  \
 379 SECTION_FUNCTION (mod_term_section, \
 380                   in_mod_term,                  \
 381                   ".mod_term_func", 0)  \
 382 SECTION_FUNCTION (destructor_section,           \
 383                   in_destructor,                \
 384                   ".destructor", 0)             \
 385 SECTION_FUNCTION (objc_class_section,           \
 386                   in_objc_class,                \
 387                   ".objc_class", 1)             \
 388 SECTION_FUNCTION (objc_meta_class_section,      \
 389                   in_objc_meta_class,           \
 390                   ".objc_meta_class", 1)        \
 391 SECTION_FUNCTION (objc_category_section,        \
 392                   in_objc_category,             \
 393                 ".objc_category", 1)            \
 394 SECTION_FUNCTION (objc_class_vars_section,      \
 395                   in_objc_class_vars,           \
 396                   ".objc_class_vars", 1)        \
 397 SECTION_FUNCTION (objc_instance_vars_section,   \
 398                   in_objc_instance_vars,        \
 399                   ".objc_instance_vars", 1)     \
 400 SECTION_FUNCTION (objc_cls_meth_section,        \
 401                   in_objc_cls_meth,             \
 402                   ".objc_cls_meth", 1)  \
 403 SECTION_FUNCTION (objc_inst_meth_section,       \
 404                   in_objc_inst_meth,            \
 405                   ".objc_inst_meth", 1) \
 406 SECTION_FUNCTION (objc_cat_cls_meth_section,    \
 407                   in_objc_cat_cls_meth,         \
 408                   ".objc_cat_cls_meth", 1)      \
 409 SECTION_FUNCTION (objc_cat_inst_meth_section,   \
 410                   in_objc_cat_inst_meth,        \
 411                   ".objc_cat_inst_meth", 1)     \
 412 SECTION_FUNCTION (objc_selector_refs_section,   \
 413                   in_objc_selector_refs,        \
 414                   ".objc_message_refs", 1)      \
 415 SECTION_FUNCTION (objc_selector_fixup_section,  \
 416                   in_objc_selector_fixup,       \
 417                   ".section __OBJC, __sel_fixup", 1)    \
 418 SECTION_FUNCTION (objc_symbols_section,         \
 419                   in_objc_symbols,              \
 420                   ".objc_symbols", 1)   \
 421 SECTION_FUNCTION (objc_module_info_section,     \
 422                   in_objc_module_info,          \
 423                   ".objc_module_info", 1)       \
 424 SECTION_FUNCTION (objc_protocol_section,        \
 425                   in_objc_protocol,             \
 426                   ".objc_protocol", 1)  \
 427 SECTION_FUNCTION (objc_string_object_section,   \
 428                   in_objc_string_object,        \
 429                   ".objc_string_object", 1)     \
 430 SECTION_FUNCTION (objc_constant_string_object_section,  \
 431                   in_objc_constant_string_object,       \
 432                   ".section __OBJC, __cstring_object", 1)       \
 433 SECTION_FUNCTION (objc_class_names_section,     \
 434                 in_objc_class_names,            \
 435                 ".objc_class_names", 1) \
 436 SECTION_FUNCTION (objc_meth_var_names_section,  \
 437                 in_objc_meth_var_names,         \
 438                 ".objc_meth_var_names", 1)      \
 439 SECTION_FUNCTION (objc_meth_var_types_section,  \
 440                 in_objc_meth_var_types,         \
 441                 ".objc_meth_var_types", 1)      \
 442 SECTION_FUNCTION (objc_cls_refs_section,        \
 443                 in_objc_cls_refs,               \
 444                 ".objc_cls_refs", 1)            \
 445                                                 \
 446 SECTION_FUNCTION (machopic_lazy_symbol_ptr_section,     \
 447                 in_machopic_lazy_symbol_ptr,            \
 448                 ".lazy_symbol_pointer", 0)              \
 449 SECTION_FUNCTION (machopic_nl_symbol_ptr_section,       \
 450                 in_machopic_nl_symbol_ptr,              \
 451                 ".non_lazy_symbol_pointer", 0)          \
 452 SECTION_FUNCTION (machopic_symbol_stub_section,         \
 453                 in_machopic_symbol_stub,                \
 454                 ".symbol_stub", 0)                      \
 455 SECTION_FUNCTION (machopic_picsymbol_stub_section,      \
 456                 in_machopic_picsymbol_stub,             \
 457                 ".picsymbol_stub", 0)                   \
 458                                                         \
 459 void                                            \
 460 objc_section_init ()                            \
 461 {                                               \
 462   static int been_here = 0;                     \
 463                                                 \
 464   if (been_here == 0)                           \
 465     {                                           \
 466       been_here = 1;                            \
 467           /* written, cold -> hot */            \
 468       objc_cat_cls_meth_section ();             \
 469       objc_cat_inst_meth_section ();            \
 470       objc_string_object_section ();            \
 471       objc_constant_string_object_section ();   \
 472       objc_selector_refs_section ();            \
 473       objc_selector_fixup_section ();           \
 474       objc_cls_refs_section ();                 \
 475       objc_class_section ();                    \
 476       objc_meta_class_section ();               \
 477           /* shared, hot -> cold */             \
 478       objc_cls_meth_section ();                 \
 479       objc_inst_meth_section ();                \
 480       objc_protocol_section ();                 \
 481       objc_class_names_section ();              \
 482       objc_meth_var_types_section ();           \
 483       objc_meth_var_names_section ();           \
 484       objc_category_section ();                 \
 485       objc_class_vars_section ();               \
 486       objc_instance_vars_section ();            \
 487       objc_module_info_section ();              \
 488       objc_symbols_section ();                  \
 489     }                                           \
 490 }                                               \
 491 static tree section_alias[(int) num_sections];  \
 492 void try_section_alias ()                       \
 493 {                                               \
 494     if (section_alias[in_section] && asm_out_file) \
 495       fprintf (asm_out_file, "%s\n",            \
 496                IDENTIFIER_POINTER (section_alias[in_section])); \
 497 }                                               \
 498 void alias_section (name, alias)                        \
 499      char *name, *alias;                                \
 500 {                                                       \
 501     ALIAS_SECTION (in_data, "data");                    \
 502     ALIAS_SECTION (in_text, "text");                    \
 503     ALIAS_SECTION (in_const, "const");                  \
 504     ALIAS_SECTION (in_const_data, "const_data");        \
 505     ALIAS_SECTION (in_cstring, "cstring");              \
 506     ALIAS_SECTION (in_literal4, "literal4");            \
 507     ALIAS_SECTION (in_literal8, "literal8");            \
 508 }
 509
 510 #undef  READONLY_DATA_SECTION
 511 #define READONLY_DATA_SECTION const_section
 512
 513 #undef  SELECT_SECTION
 514 #define SELECT_SECTION(exp,reloc)                               \
 515   do                                                            \
 516     {                                                           \
 517       if (TREE_CODE (exp) == STRING_CST)                        \
 518         {                                                       \
 519           if (flag_writable_strings)                            \
 520             data_section ();                                    \
 521           else if (TREE_STRING_LENGTH (exp) !=                  \
 522                    strlen (TREE_STRING_POINTER (exp)) + 1)      \
 523             readonly_data_section ();                           \
 524           else                                                  \
 525             cstring_section ();                                 \
 526         }                                                       \
 527       else if (TREE_CODE (exp) == INTEGER_CST                   \
 528                || TREE_CODE (exp) == REAL_CST)                  \
 529         {                                                       \
 530           tree size = TYPE_SIZE (TREE_TYPE (exp));              \
 531                                                                 \
 532           if (TREE_CODE (size) == INTEGER_CST &&                \
 533               TREE_INT_CST_LOW (size) == 4 &&                   \
 534               TREE_INT_CST_HIGH (size) == 0)                    \
 535             literal4_section ();                                \
 536           else if (TREE_CODE (size) == INTEGER_CST &&           \
 537               TREE_INT_CST_LOW (size) == 8 &&                   \
 538               TREE_INT_CST_HIGH (size) == 0)                    \
 539             literal8_section ();                                \
 540           else                                                  \
 541             readonly_data_section ();                           \
 542         }                                                       \
 543       else if (TREE_CODE (exp) == CONSTRUCTOR                           \
 544                && TREE_TYPE (exp)                                       \
 545                && TREE_CODE (TREE_TYPE (exp)) == RECORD_TYPE            \
 546                && TYPE_NAME (TREE_TYPE (exp)))                          \
 547         {                                                               \
 548           tree name = TYPE_NAME (TREE_TYPE (exp));                      \
 549           if (TREE_CODE (name) == TYPE_DECL)                            \
 550             name = DECL_NAME (name);                                    \
 551           if (!strcmp (IDENTIFIER_POINTER (name), "NSConstantString"))  \
 552             objc_constant_string_object_section ();                     \
 553           else if (!strcmp (IDENTIFIER_POINTER (name), "NXConstantString")) \
 554             objc_string_object_section ();                              \
 555           else if (TREE_READONLY (exp) || TREE_CONSTANT (exp))          \
 556             {                                                           \
 557               if (TREE_SIDE_EFFECTS (exp) || flag_pic && reloc)         \
 558                 const_data_section ();                                  \
 559               else                                                      \
 560                 readonly_data_section ();                               \
 561             }                                                           \
 562           else                                                          \
 563             data_section ();                                            \
 564       }                                                                 \
 565       else if (TREE_CODE (exp) == VAR_DECL &&                           \
 566                DECL_NAME (exp) &&                                       \
 567                TREE_CODE (DECL_NAME (exp)) == IDENTIFIER_NODE &&        \
 568                IDENTIFIER_POINTER (DECL_NAME (exp)) &&                  \
 569                !strncmp (IDENTIFIER_POINTER (DECL_NAME (exp)), "_OBJC_", 6)) \
 570         {                                                               \
 571           const char *name = IDENTIFIER_POINTER (DECL_NAME (exp));      \
 572                                                                         \
 573           if (!strncmp (name, "_OBJC_CLASS_METHODS_", 20))              \
 574             objc_cls_meth_section ();                                   \
 575           else if (!strncmp (name, "_OBJC_INSTANCE_METHODS_", 23))      \
 576             objc_inst_meth_section ();                                  \
 577           else if (!strncmp (name, "_OBJC_CATEGORY_CLASS_METHODS_", 20)) \
 578             objc_cat_cls_meth_section ();                               \
 579           else if (!strncmp (name, "_OBJC_CATEGORY_INSTANCE_METHODS_", 23)) \
 580             objc_cat_inst_meth_section ();                              \
 581           else if (!strncmp (name, "_OBJC_CLASS_VARIABLES_", 22))       \
 582             objc_class_vars_section ();                                 \
 583           else if (!strncmp (name, "_OBJC_INSTANCE_VARIABLES_", 25))    \
 584             objc_instance_vars_section ();                              \
 585           else if (!strncmp (name, "_OBJC_CLASS_PROTOCOLS_", 22))       \
 586             objc_cat_cls_meth_section ();                               \
 587           else if (!strncmp (name, "_OBJC_CLASS_NAME_", 17))            \
 588             objc_class_names_section ();                                \
 589           else if (!strncmp (name, "_OBJC_METH_VAR_NAME_", 20))         \
 590             objc_meth_var_names_section ();                             \
 591           else if (!strncmp (name, "_OBJC_METH_VAR_TYPE_", 20))         \
 592             objc_meth_var_types_section ();                             \
 593           else if (!strncmp (name, "_OBJC_CLASS_REFERENCES", 22))       \
 594             objc_cls_refs_section ();                                   \
 595           else if (!strncmp (name, "_OBJC_CLASS_", 12))                 \
 596             objc_class_section ();                                      \
 597           else if (!strncmp (name, "_OBJC_METACLASS_", 16))             \
 598             objc_meta_class_section ();                                 \
 599           else if (!strncmp (name, "_OBJC_CATEGORY_", 15))              \
 600             objc_category_section ();                                   \
 601           else if (!strncmp (name, "_OBJC_SELECTOR_REFERENCES", 25))    \
 602             objc_selector_refs_section ();                              \
 603           else if (!strncmp (name, "_OBJC_SELECTOR_FIXUP", 20))         \
 604             objc_selector_fixup_section ();                             \
 605           else if (!strncmp (name, "_OBJC_SYMBOLS", 13))                \
 606             objc_symbols_section ();                                    \
 607           else if (!strncmp (name, "_OBJC_MODULES", 13))                \
 608             objc_module_info_section ();                                \
 609           else if (!strncmp (name, "_OBJC_PROTOCOL_INSTANCE_METHODS_", 32)) \
 610             objc_cat_inst_meth_section ();                              \
 611           else if (!strncmp (name, "_OBJC_PROTOCOL_CLASS_METHODS_", 29)) \
 612             objc_cat_cls_meth_section ();                               \
 613           else if (!strncmp (name, "_OBJC_PROTOCOL_REFS_", 20))         \
 614             objc_cat_cls_meth_section ();                               \
 615           else if (!strncmp (name, "_OBJC_PROTOCOL_", 15))              \
 616             objc_protocol_section ();                                   \
 617           else if ((TREE_READONLY (exp) || TREE_CONSTANT (exp))         \
 618                 && !TREE_SIDE_EFFECTS (exp))                            \
 619              { if (flag_pic && reloc ) const_data_section ();             \
 620                else readonly_data_section (); }                         \
 621           else                                                          \
 622             data_section ();                                            \
 623         }                                                               \
 624       else if (TREE_READONLY (exp) || TREE_CONSTANT (exp))              \
 625         {                                                               \
 626           if (TREE_SIDE_EFFECTS (exp) || flag_pic && reloc)             \
 627             const_data_section ();                                      \
 628           else                                                          \
 629             readonly_data_section ();                                   \
 630         }                                                               \
 631       else                                                              \
 632         data_section ();                                                \
 633       try_section_alias ();                                             \
 634     }                                                                   \
 635   while (0)
 636
 637 #undef  SELECT_RTX_SECTION
 638 #define SELECT_RTX_SECTION(mode, rtx)                                   \
 639   do                                                                    \
 640     {                                                                   \
 641       if (GET_MODE_SIZE (mode) == 8)                                    \
 642         literal8_section ();                                            \
 643       else if (GET_MODE_SIZE (mode) == 4)                               \
 644         literal4_section ();                                            \
 645       else                                                              \
 646         const_section ();                                               \
 647     }                                                                   \
 648   while (0)
 649
 650 #define ASM_DECLARE_UNRESOLVED_REFERENCE(FILE,NAME)                     \
 651     do {                                                                \
 652          if (FILE) {                                                    \
 653            if (flag_pic)                                                \
 654              fprintf (FILE, "\t.lazy_reference ");                      \
 655            else                                                         \
 656              fprintf (FILE, "\t.reference ");                           \
 657            assemble_name (FILE, NAME);                                  \
 658            fprintf (FILE, "\n");                                        \
 659          }                                                              \
 660        } while (0)
 661
 662 #define ASM_DECLARE_CLASS_REFERENCE(FILE,NAME)                          \
 663     do {                                                                \
 664          if (FILE) {                                                    \
 665            fprintf (FILE, "\t");                                        \
 666            assemble_name (FILE, NAME);                                  \
 667            fprintf (FILE, "=0\n");                                      \
 668            assemble_global (NAME);                                      \
 669          }                                                              \
 670        } while (0)
 671
 672 #undef ASM_GLOBALIZE_LABEL
 673 #define ASM_GLOBALIZE_LABEL(FILE,NAME)  \
 674  do { const char* _x = (NAME); if (!!strncmp (_x, "_OBJC_", 6)) { \
 675   (fputs (".globl ", FILE), assemble_name (FILE, _x), fputs ("\n", FILE)); \
 676  }} while (0)
 677
 678 #undef ASM_GENERATE_INTERNAL_LABEL
 679 #define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM)   \
 680   sprintf (LABEL, "*%s%d", PREFIX, NUM)
 681
 682 /* This is how to output an internal numbered label where PREFIX is
 683    the class of label and NUM is the number within the class.  */
 684
 685 #undef ASM_OUTPUT_INTERNAL_LABEL
 686 #define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM)      \
 687   fprintf (FILE, "%s%d:\n", PREFIX, NUM)
 688
 689 /* Since we have a separate readonly data section, define this so that
 690    jump tables end up in text rather than data.  */
 691
 692 #ifndef JUMP_TABLES_IN_TEXT_SECTION
 693 #define JUMP_TABLES_IN_TEXT_SECTION 1
 694 #endif
 695
 696 /* Symbolic names for various things we might know about a symbol.  */
 697
 698 enum machopic_addr_class {
 699   MACHOPIC_UNDEFINED,
 700   MACHOPIC_DEFINED_DATA,
 701   MACHOPIC_UNDEFINED_DATA,
 702   MACHOPIC_DEFINED_FUNCTION,
 703   MACHOPIC_UNDEFINED_FUNCTION
 704 };
 705
 706 /* Macros defining the various PIC cases.  */
 707
 708 #define MACHOPIC_INDIRECT      (flag_pic)
 709 #define MACHOPIC_JUST_INDIRECT (flag_pic == 1)
 710 #define MACHOPIC_PURE          (flag_pic == 2)
 711
 712 #define ENCODE_SECTION_INFO(DECL)  \
 713   darwin_encode_section_info (DECL)
 714
 715 /* Be conservative and always redo the encoding.  */
 716
 717 #define REDO_SECTION_INFO_P(DECL) (1)
 718
 719 #define STRIP_NAME_ENCODING(VAR,SYMBOL_NAME)  \
 720   ((VAR) = ((SYMBOL_NAME[0] == '!') ? (SYMBOL_NAME) + 4 : (SYMBOL_NAME)))
 721
 722 #define GEN_BINDER_NAME_FOR_STUB(BUF,STUB,STUB_LENGTH)          \
 723   do {                                                          \
 724     const char *stub_ = (STUB);                                 \
 725     char *buffer_ = (BUF);                                      \
 726     strcpy (buffer_, stub_);                                    \
 727     if (stub_[0] == '"')                                        \
 728       {                                                         \
 729         strcpy (buffer_ + (STUB_LENGTH) - 1, "_binder\"");      \
 730       }                                                         \
 731     else                                                        \
 732       {                                                         \
 733         strcpy (buffer_ + (STUB_LENGTH), "_binder");            \
 734       }                                                         \
 735   } while (0)
 736
 737 #define GEN_SYMBOL_NAME_FOR_SYMBOL(BUF,SYMBOL,SYMBOL_LENGTH)    \
 738   do {                                                          \
 739     const char *symbol_ = (SYMBOL);                             \
 740     char *buffer_ = (BUF);                                      \
 741     if (name_needs_quotes (symbol_) && symbol_[0] != '"')       \
 742       {                                                         \
 743           sprintf (buffer_, "\"%s\"", symbol_);                 \
 744       }                                                         \
 745     else                                                        \
 746       {                                                         \
 747         strcpy (buffer_, symbol_);                              \
 748       }                                                         \
 749   } while (0)
 750
 751 /* Given a symbol name string, create the lazy pointer version
 752    of the symbol name.  */
 753
 754 #define GEN_LAZY_PTR_NAME_FOR_SYMBOL(BUF,SYMBOL,SYMBOL_LENGTH)  \
 755   do {                                                          \
 756     const char *symbol_ = (SYMBOL);                             \
 757     char *buffer_ = (BUF);                                      \
 758     STRIP_NAME_ENCODING (symbol_, symbol_);  \
 759     if (symbol_[0] == '"')                                      \
 760       {                                                         \
 761         strcpy (buffer_, "\"L");                                        \
 762         strcpy (buffer_ + 2, symbol_ + 1);                      \
 763         strcpy (buffer_ + (SYMBOL_LENGTH), "$lazy_ptr\"");      \
 764       }                                                         \
 765     else if (name_needs_quotes (symbol_))                       \
 766       {                                                         \
 767         strcpy (buffer_, "\"L");                                \
 768         strcpy (buffer_ + 2, symbol_);                          \
 769         strcpy (buffer_ + (SYMBOL_LENGTH) + 2, "$lazy_ptr\"");  \
 770       }                                                         \
 771     else                                                        \
 772       {                                                         \
 773         strcpy (buffer_, "L");                                  \
 774         strcpy (buffer_ + 1, symbol_);                          \
 775         strcpy (buffer_ + (SYMBOL_LENGTH) + 1, "$lazy_ptr");    \
 776       }                                                         \
 777   } while (0)
 778
 779 #define REGISTER_TARGET_PRAGMAS(PFILE)                          \
 780   do {                                                          \
 781     cpp_register_pragma (PFILE, 0, "mark", darwin_pragma_ignore);  \
 782     cpp_register_pragma (PFILE, 0, "options", darwin_pragma_options);  \
 783     cpp_register_pragma (PFILE, 0, "segment", darwin_pragma_ignore);  \
 784     cpp_register_pragma (PFILE, 0, "unused", darwin_pragma_unused);  \
 785   } while (0)