Add Darwin (Mac OS X kernel) native support.

        * config.gcc (powerpc-*-darwin*): Add native bits.
        * config/darwin.c: New file, generic Darwin support functions.
        * config/darwin.h: New file, generic Darwin definitions.
        * config/darwin-protos.h: New file, generic Darwin prototypes.
        * rs6000/darwin.h: New file, Darwin for PowerPC.
        * rs6000/t-darwin: New file, Darwin makefile fragment.
        * rs6000/rs6000.h (OBJECT_MACHO): New macro.
        (TARGET_MACHO): Ditto.
        (rs6000_abi): Add ABI_DARWIN.
        (RS6000_REG_SAVE): Add ABI_DARWIN case.
        (RS6000_SAVE_AREA): Ditto.
        (FP_ARG_MAX_REG): Ditto.
        (RETURN_ADDRESS_OFFSET): Ditto.
        * rs6000/rs6000.c (rs6000_legitimize_address): Add TARGET_MACHO
        cases.
        (rs6000_emit_move): Add ABI_DARWIN cases.
        (print_operand): Ditto.
        (first_reg_to_save): Ditto.
        (rs6000_stack_info): Ditto, also align stack by 16 instead of 8.
        (debug_stack_info): Ditto.
        (rs6000_emit_prologue): Ditto.
        (rs6000_emit_epilogue): Ditto.
        (output_profiler_hook): Ditto.
        (output_function_profiler): Ditto.
        (rs6000_add_gc_roots): Call machopic_add_gc_roots if TARGET_MACHO.
        (output_mi_thunk): Add TARGET_MACHO case.
        (add_compiler_stub): Ditto.
        (output_compiler_stub): Ditto.
        (no_previous_def): Ditto.
        (output_call): Ditto.
        (machopic_output_stub): Ditto.
        (rs6000_machopic_legitimize_pic_address): Ditto.
        (toc_section): Ditto.
        * rs6000/rs6000.md (addsi3_high): New TARGET_MACHO pattern.
        (macho_high): Ditto.
        (macho_low): Ditto.
        (movsi_low): Ditto.
        (load_macho_picbase): Ditto.
        (call): Add TARGET_MACHO case to modify function.
        (call_value): Ditto.
        (call_nonlocal_sysv): Add ABI_DARWIN case.
        (call_value_nonlocal_sysv): Ditto.
        * rs6000/rs6000-protos.h (rs6000_machopic_legitimize_pic_address):
        Add prototype.
        (machopic_output_stub): Ditto.
        * ginclude/stddef.h: Test _BSD_WCHAR_T_DEFINED_.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@41277 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 763 insertions, 0 deletions

diff --git a/gcc/config/darwin.h b/gcc/config/darwin.h
new file mode 100644
index 00000000000..269d78ce983
--- /dev/null
+++ b/gcc/config/darwin.h
@@ -0,0 +1,763 @@
+/* Target definitions for Darwin (Mac OS X) systems.
+   Copyright (C) 1989, 1990, 1991, 1992, 1993, 2000, 2001
+   Free Software Foundation, Inc.
+   Contributed by Apple Computer Inc.
+
+This file is part of GNU CC.
+
+GNU CC is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU CC is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU CC; see the file COPYING.  If not, write to
+the Free Software Foundation, 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+/* The definitions in this file are common to all processor types
+   running Darwin, which is the kernel for Mac OS X.  Darwin is
+   basically a BSD user layer laid over a Mach kernel, then evolved
+   for many years (at NeXT) in parallel with other Unix systems.  So
+   while the runtime is a somewhat idiosyncratic Mach-based thing,
+   other definitions look like they would for a BSD variant.  */
+
+/* Although NeXT ran on many different architectures, as of Jan 2001
+   the only supported Darwin targets are PowerPC and x86.  */
+
+/* Make the compiler look here for standard stuff.  */
+
+#undef STANDARD_EXEC_PREFIX
+#define STANDARD_EXEC_PREFIX "/usr/libexec/"
+
+/* Name of the command that invokes the compiler - used in g++.c.  */
+
+#undef  GCC_NAME
+#define GCC_NAME "cc"
+
+/* Never try linking with -lm - used in g++.c.  */
+
+#define NO_MATH_LIBRARY
+
+/* We have atexit.  */
+
+#define HAVE_ATEXIT
+
+/* Define an empty body for the function do_global_dtors() in libgcc2.c.  */
+
+#define DO_GLOBAL_DTORS_BODY
+
+/* The string value for __SIZE_TYPE__.  */
+
+#ifndef SIZE_TYPE
+#define SIZE_TYPE "long unsigned int"
+#endif
+
+/* Type used for ptrdiff_t, as a string used in a declaration.  */
+
+#undef  PTRDIFF_TYPE
+#define PTRDIFF_TYPE "int"
+
+/* wchar_t is int.  */
+
+#undef	WCHAR_TYPE
+#define WCHAR_TYPE "int"
+#undef	WCHAR_TYPE_SIZE
+#define WCHAR_TYPE_SIZE 32
+
+/* Don't default to pcc-struct-return, because gcc is the only compiler, and
+   we want to retain compatibility with older gcc versions.  */
+
+#undef	DEFAULT_PCC_STRUCT_RETURN
+#define DEFAULT_PCC_STRUCT_RETURN 0
+
+/* Don't warn about MacOS-style 'APPL' four-char-constants.  */
+
+#undef WARN_FOUR_CHAR_CONSTANTS
+#define WARN_FOUR_CHAR_CONSTANTS 0
+
+/* Machine dependent cpp options.  */
+
+/* The sequence here allows us to get a more specific version number
+   glued into __APPLE_CC__.  Normally this number would be updated as
+   part of submitting to a release engineering organization.  */
+
+#ifndef APPLE_CC
+#define APPLE_CC 999
+#endif
+
+#define STRINGIFY_THIS(x) # x
+#define REALLY_STRINGIFY(x) STRINGIFY_THIS(x)
+
+#undef	CPP_SPEC
+#define CPP_SPEC "-D__APPLE_CC__=" REALLY_STRINGIFY(APPLE_CC) "	\
+		  %{static:-D__STATIC__}%{!static:-D__DYNAMIC__}"
+
+/* Machine dependent libraries.  */
+
+#undef	LIB_SPEC
+#define LIB_SPEC \
+     "%{!static:%{!pg:-framework System}%{pg:-framework System,_profile}}"
+
+#undef LIBGCC_SPEC
+#define LIBGCC_SPEC "%{!shared:%{static:-lcc} \
+			      %{!static:-lcc_dynamic}}"
+
+/* We specify crt0.o as -lcrt0.o so that ld will search the library path. */
+
+#undef	STARTFILE_SPEC
+#define STARTFILE_SPEC  \
+  "%{pg:%{static:-lgcrt0.o}%{!static:-lgcrt1.o}} \
+    %{!pg:%{static:-lcrt0.o}%{!static:-lcrt1.o}}"
+
+#undef	DOLLARS_IN_IDENTIFIERS
+#define DOLLARS_IN_IDENTIFIERS 2
+
+/* Allow #sccs (but don't do anything). */
+
+#define SCCS_DIRECTIVE
+
+/* We use Dbx symbol format.  */
+
+#define DBX_DEBUGGING_INFO
+
+/* When generating stabs debugging, use N_BINCL entries.  */
+
+#define DBX_USE_BINCL
+
+/* There is no limit to the length of stabs strings.  */
+
+#define DBX_CONTIN_LENGTH 0
+
+/* gdb needs a null N_SO at the end of each file for scattered loading. */
+
+#undef	DBX_OUTPUT_MAIN_SOURCE_FILE_END
+#define DBX_OUTPUT_MAIN_SOURCE_FILE_END(FILE, FILENAME)			\
+do { text_section ();							\
+     fprintf (FILE,							\
+	      "\t.stabs \"%s\",%d,0,0,Letext\nLetext:\n", "" , N_SO);	\
+   } while (0)
+
+/* Our profiling scheme doesn't LP labels and counter words.  */
+
+#define NO_PROFILE_COUNTERS
+
+/* Don't use .gcc_compiled symbols to communicate with GDB;
+   They interfere with numerically sorted symbol lists. */
+
+#undef	ASM_IDENTIFY_GCC
+#define ASM_IDENTIFY_GCC(asm_out_file)
+
+#undef	INIT_SECTION_ASM_OP
+#define INIT_SECTION_ASM_OP
+
+#undef	INVOKE__main
+
+#undef	ASM_OUTPUT_CONSTRUCTOR
+#define ASM_OUTPUT_CONSTRUCTOR(FILE,NAME)                       \
+  do { if (flag_pic)                                            \
+	 mod_init_section ();                                   \
+       else							\
+	 constructor_section ();				\
+       ASM_OUTPUT_ALIGN (FILE, 1);                              \
+       fprintf (FILE, "\t.long ");                              \
+       assemble_name (FILE, NAME);                              \
+       fprintf (FILE, "\n");                                    \
+       if (!flag_pic)                                    	\
+	 fprintf (FILE, ".reference .constructors_used\n");     \
+      } while (0)
+
+#undef	ASM_OUTPUT_DESTRUCTOR
+#define ASM_OUTPUT_DESTRUCTOR(FILE,NAME)                        \
+  do { if (flag_pic)                                            \
+	 mod_term_section ();                                   \
+       else							\
+	 destructor_section ();					\
+       ASM_OUTPUT_ALIGN (FILE, 1);				\
+       fprintf (FILE, "\t.long ");				\
+       assemble_name (FILE, NAME);				\
+       fprintf (FILE, "\n");					\
+       if (!flag_pic)                                    	\
+       	fprintf (FILE, ".reference .destructors_used\n");	\
+     } while (0)
+
+
+/* Don't output a .file directive.  That is only used by the assembler for
+   error reporting.  */
+
+#undef	ASM_FILE_START
+#define ASM_FILE_START(FILE)
+
+#undef	ASM_FILE_END
+#define ASM_FILE_END(FILE)					\
+  do {								\
+    extern const char *language_string;				\
+    machopic_finish (asm_out_file);                             \
+    if (strcmp (language_string, "GNU C++") == 0)		\
+      {								\
+	constructor_section ();					\
+	destructor_section ();					\
+	ASM_OUTPUT_ALIGN (FILE, 1);				\
+      }								\
+  } while (0)
+
+/* Give ObjcC methods pretty symbol names. */
+
+#undef	OBJC_GEN_METHOD_LABEL
+#define OBJC_GEN_METHOD_LABEL(BUF,IS_INST,CLASS_NAME,CAT_NAME,SEL_NAME,NUM) \
+  do { if (CAT_NAME)							\
+	 sprintf (BUF, "%c[%s(%s) %s]", (IS_INST) ? '-' : '+',		\
+		  (CLASS_NAME), (CAT_NAME), (SEL_NAME));		\
+       else								\
+	 sprintf (BUF, "%c[%s %s]", (IS_INST) ? '-' : '+',		\
+		  (CLASS_NAME), (SEL_NAME));				\
+     } while (0)
+
+/* The RTTI data (e.g., __ti4name) is common and public (and static),
+   but it does need to be referenced via indirect PIC data pointers.
+   The machopic_define_name calls are telling the machopic subsystem
+   that the name *is* defined in this module, so it doesn't need to
+   make them indirect.  */
+
+#undef ASM_DECLARE_OBJECT_NAME
+#define ASM_DECLARE_OBJECT_NAME(FILE, NAME, DECL)			\
+  do {									\
+    char *xname = NAME;                                                 \
+    if (GET_CODE (XEXP (DECL_RTL (DECL), 0)) != SYMBOL_REF)             \
+      xname = IDENTIFIER_POINTER (DECL_NAME (DECL));                    \
+    if ((TREE_STATIC (DECL)                                             \
+	 && (!DECL_COMMON (DECL) || !TREE_PUBLIC (DECL)))               \
+        || DECL_INITIAL (DECL))                                         \
+      machopic_define_name (xname);                                     \
+    ASM_OUTPUT_LABEL (FILE, xname);                                     \
+  } while (0)
+
+/* Wrap new method names in quotes so the assembler doesn't gag.
+   Make Objective-C internal symbols local.  */
+
+#undef	ASM_OUTPUT_LABELREF
+#define ASM_OUTPUT_LABELREF(FILE,NAME)	\
+  do {									\
+       if (NAME[0] == '&')						\
+         {								\
+           int len = strlen (NAME);					\
+	   if (len > 6 && !strcmp ("$stub", NAME + len - 5))		\
+	     machopic_validate_stub_or_non_lazy_ptr (NAME, 1);		\
+	   else if (len > 7 && !strcmp ("$stub\"", NAME + len - 6))	\
+	     machopic_validate_stub_or_non_lazy_ptr (NAME, 1);		\
+	   else if (len > 14 && !strcmp ("$non_lazy_ptr", NAME + len - 13)) \
+	     machopic_validate_stub_or_non_lazy_ptr (NAME, 0);		\
+	   fputs (&NAME[1], FILE); \
+	 } \
+       else if (NAME[0] == '+' || NAME[0] == '-')   \
+         fprintf (FILE, "\"%s\"", NAME); \
+       else if (!strncmp (NAME, "_OBJC_", 6))  \
+         fprintf (FILE, "L%s", NAME);   \
+       else if (!strncmp (NAME, ".objc_class_name_", 17))		\
+	 fprintf (FILE, "%s", NAME);					\
+       else								\
+         fprintf (FILE, "_%s", NAME);					\
+  } while (0)
+
+#undef	ALIGN_ASM_OP
+#define ALIGN_ASM_OP		".align"
+
+#undef	ASM_OUTPUT_ALIGN
+#define ASM_OUTPUT_ALIGN(FILE,LOG)	\
+  if ((LOG) != 0)			\
+    fprintf (FILE, "\t%s %d\n", ALIGN_ASM_OP, (LOG))
+
+/* Ensure correct alignment of bss data.  */
+
+#undef	ASM_OUTPUT_ALIGNED_DECL_LOCAL
+#define ASM_OUTPUT_ALIGNED_DECL_LOCAL(FILE, DECL, NAME, SIZE, ALIGN) \
+  do {  \
+    fputs (".lcomm ", (FILE));				\
+    assemble_name ((FILE), (NAME));			\
+    fprintf ((FILE), ",%u,%u\n", (SIZE), floor_log2 ((ALIGN) / BITS_PER_UNIT)); \
+    if ((DECL) && ((TREE_STATIC (DECL)                                             \
+	 && (!DECL_COMMON (DECL) || !TREE_PUBLIC (DECL)))               \
+        || DECL_INITIAL (DECL)))                                         \
+      machopic_define_name (NAME);                                     \
+  } while (0)
+
+/* Output nothing for #ident.  */
+
+#undef	ASM_OUTPUT_IDENT
+#define ASM_OUTPUT_IDENT(FILE, NAME)
+
+/* The maximum alignment which the object file format can support.
+   For Mach-O, this is 2^15.  */
+
+#undef	MAX_OFILE_ALIGNMENT
+#define MAX_OFILE_ALIGNMENT 0x8000
+
+/* Create new Mach-O sections. */
+
+#undef	SECTION_FUNCTION
+#define SECTION_FUNCTION(FUNCTION, SECTION, DIRECTIVE, WAS_TEXT, OBJC)	\
+void									\
+FUNCTION ()								\
+{									\
+  extern void text_section ();					 	\
+  extern void objc_section_init ();					\
+  extern int flag_no_mach_text_sections;				\
+  									\
+  if (WAS_TEXT && flag_no_mach_text_sections)       			\
+    text_section ();							\
+  else if (in_section != SECTION)					\
+    {									\
+      if (OBJC)								\
+	objc_section_init ();						\
+      data_section ();							\
+      if (asm_out_file)							\
+	fprintf (asm_out_file, "%s\n", DIRECTIVE);			\
+      in_section = SECTION;						\
+    }									\
+}									\
+
+#define ALIAS_SECTION(enum_value, alias_name) 				\
+do { if (!strcmp (alias_name, name))					\
+       section_alias[enum_value] = (alias ? get_identifier (alias) : 0);  \
+   } while (0)
+
+/* Darwin uses many types of special sections.  */
+
+#undef	EXTRA_SECTIONS
+#define EXTRA_SECTIONS					\
+  in_const, in_const_data, in_cstring, in_literal4, in_literal8,	\
+  in_constructor, in_destructor, in_mod_init, in_mod_term,		\
+  in_objc_class, in_objc_meta_class, in_objc_category,	\
+  in_objc_class_vars, in_objc_instance_vars,		\
+  in_objc_cls_meth, in_objc_inst_meth,			\
+  in_objc_cat_cls_meth, in_objc_cat_inst_meth,		\
+  in_objc_selector_refs,				\
+  in_objc_selector_fixup,				\
+  in_objc_symbols, in_objc_module_info,			\
+  in_objc_protocol, in_objc_string_object,		\
+  in_objc_constant_string_object,			\
+  in_objc_class_names, in_objc_meth_var_names,		\
+  in_objc_meth_var_types, in_objc_cls_refs, 		\
+  in_machopic_nl_symbol_ptr,				\
+  in_machopic_lazy_symbol_ptr,				\
+  in_machopic_symbol_stub,				\
+  in_machopic_picsymbol_stub,				\
+  num_sections
+
+#undef	EXTRA_SECTION_FUNCTIONS
+#define EXTRA_SECTION_FUNCTIONS			\
+SECTION_FUNCTION (const_section,		\
+                  in_const,			\
+                  ".const", 1, 0)		\
+SECTION_FUNCTION (const_data_section,		\
+                  in_const_data,		\
+                  ".const_data", 1, 0)		\
+SECTION_FUNCTION (cstring_section,		\
+		  in_cstring,			\
+		  ".cstring", 1, 0)		\
+SECTION_FUNCTION (literal4_section,		\
+		  in_literal4,			\
+		  ".literal4", 1, 0)		\
+SECTION_FUNCTION (literal8_section,		\
+		  in_literal8,			\
+		  ".literal8", 1, 0)		\
+SECTION_FUNCTION (constructor_section,		\
+		  in_constructor,		\
+		  ".constructor", 0, 0)		\
+SECTION_FUNCTION (mod_init_section,		\
+		  in_mod_init,			\
+		  ".mod_init_func", 0, 0)	\
+SECTION_FUNCTION (mod_term_section, \
+		  in_mod_term,			\
+		  ".mod_term_func", 0, 0)	\
+SECTION_FUNCTION (destructor_section,		\
+		  in_destructor,		\
+		  ".destructor", 0, 0)		\
+SECTION_FUNCTION (objc_class_section,		\
+		  in_objc_class,		\
+		  ".objc_class", 0, 1)		\
+SECTION_FUNCTION (objc_meta_class_section,	\
+		  in_objc_meta_class,		\
+		  ".objc_meta_class", 0, 1)	\
+SECTION_FUNCTION (objc_category_section,	\
+		  in_objc_category,		\
+		".objc_category", 0, 1)		\
+SECTION_FUNCTION (objc_class_vars_section,	\
+		  in_objc_class_vars,		\
+		  ".objc_class_vars", 0, 1)	\
+SECTION_FUNCTION (objc_instance_vars_section,	\
+		  in_objc_instance_vars,	\
+		  ".objc_instance_vars", 0, 1)	\
+SECTION_FUNCTION (objc_cls_meth_section,	\
+		  in_objc_cls_meth,		\
+		  ".objc_cls_meth", 0, 1)	\
+SECTION_FUNCTION (objc_inst_meth_section,	\
+		  in_objc_inst_meth,		\
+		  ".objc_inst_meth", 0, 1)	\
+SECTION_FUNCTION (objc_cat_cls_meth_section,	\
+		  in_objc_cat_cls_meth,		\
+		  ".objc_cat_cls_meth", 0, 1)	\
+SECTION_FUNCTION (objc_cat_inst_meth_section,	\
+		  in_objc_cat_inst_meth,	\
+		  ".objc_cat_inst_meth", 0, 1)	\
+SECTION_FUNCTION (objc_selector_refs_section,	\
+		  in_objc_selector_refs,	\
+		  ".objc_message_refs", 0, 1)	\
+SECTION_FUNCTION (objc_selector_fixup_section,	\
+		  in_objc_selector_fixup,	\
+		  ".section __OBJC, __sel_fixup", 0, 1)	\
+SECTION_FUNCTION (objc_symbols_section,		\
+		  in_objc_symbols,		\
+		  ".objc_symbols", 0, 1)	\
+SECTION_FUNCTION (objc_module_info_section,	\
+		  in_objc_module_info,		\
+		  ".objc_module_info", 0, 1)	\
+SECTION_FUNCTION (objc_protocol_section,	\
+		  in_objc_protocol,		\
+		  ".objc_protocol", 0, 1)	\
+SECTION_FUNCTION (objc_string_object_section,	\
+		  in_objc_string_object,	\
+		  ".objc_string_object", 0, 1)	\
+SECTION_FUNCTION (objc_constant_string_object_section,	\
+		  in_objc_constant_string_object,	\
+		  ".section __OBJC, __cstring_object", 0, 1)	\
+SECTION_FUNCTION (objc_class_names_section,	\
+		in_objc_class_names,		\
+		".objc_class_names", 0, 1)	\
+SECTION_FUNCTION (objc_meth_var_names_section,	\
+		in_objc_meth_var_names,		\
+		".objc_meth_var_names", 0, 1)	\
+SECTION_FUNCTION (objc_meth_var_types_section,	\
+		in_objc_meth_var_types,		\
+		".objc_meth_var_types", 0, 1)	\
+SECTION_FUNCTION (objc_cls_refs_section,	\
+		in_objc_cls_refs,		\
+		".objc_cls_refs", 0, 1)		\
+						\
+SECTION_FUNCTION (machopic_lazy_symbol_ptr_section,	\
+		in_machopic_lazy_symbol_ptr,		\
+		".lazy_symbol_pointer", 0, 0)      	\
+SECTION_FUNCTION (machopic_nl_symbol_ptr_section,	\
+		in_machopic_nl_symbol_ptr,		\
+		".non_lazy_symbol_pointer", 0, 0)      	\
+SECTION_FUNCTION (machopic_symbol_stub_section,		\
+		in_machopic_symbol_stub,		\
+		".symbol_stub", 0, 0)      		\
+SECTION_FUNCTION (machopic_picsymbol_stub_section,	\
+		in_machopic_picsymbol_stub,		\
+		".picsymbol_stub", 0, 0)      		\
+							\
+void						\
+objc_section_init ()				\
+{						\
+  static int been_here = 0;			\
+						\
+  if (been_here == 0)				\
+    {						\
+      been_here = 1;				\
+          /* written, cold -> hot */		\
+      objc_cat_cls_meth_section ();		\
+      objc_cat_inst_meth_section ();		\
+      objc_string_object_section ();		\
+      objc_constant_string_object_section ();	\
+      objc_selector_refs_section ();		\
+      objc_selector_fixup_section ();		\
+      objc_cls_refs_section ();			\
+      objc_class_section ();			\
+      objc_meta_class_section ();		\
+          /* shared, hot -> cold */    		\
+      objc_cls_meth_section ();			\
+      objc_inst_meth_section ();		\
+      objc_protocol_section ();			\
+      objc_class_names_section ();		\
+      objc_meth_var_types_section ();		\
+      objc_meth_var_names_section ();		\
+      objc_category_section ();			\
+      objc_class_vars_section ();		\
+      objc_instance_vars_section ();		\
+      objc_module_info_section ();		\
+      objc_symbols_section ();			\
+    }						\
+} 						\
+static tree section_alias[(int) num_sections];	\
+void try_section_alias () 			\
+{						\
+    if (section_alias[in_section] && asm_out_file) \
+      fprintf (asm_out_file, "%s\n",		\
+	       IDENTIFIER_POINTER (section_alias[in_section]));	\
+}      						\
+void alias_section (name, alias)			\
+     char *name, *alias;				\
+{							\
+    ALIAS_SECTION (in_data, "data");			\
+    ALIAS_SECTION (in_text, "text");			\
+    ALIAS_SECTION (in_const, "const");			\
+    ALIAS_SECTION (in_const_data, "const_data");	\
+    ALIAS_SECTION (in_cstring, "cstring");		\
+    ALIAS_SECTION (in_literal4, "literal4");		\
+    ALIAS_SECTION (in_literal8, "literal8");		\
+}
+
+#undef	READONLY_DATA_SECTION
+#define READONLY_DATA_SECTION const_section
+
+#undef	SELECT_SECTION
+#define SELECT_SECTION(exp,reloc)				\
+  do								\
+    {								\
+      if (TREE_CODE (exp) == STRING_CST)			\
+	{							\
+	  if (flag_writable_strings)				\
+	    data_section ();					\
+	  else if (TREE_STRING_LENGTH (exp) !=			\
+		   strlen (TREE_STRING_POINTER (exp)) + 1)	\
+	    readonly_data_section ();				\
+	  else							\
+	    cstring_section ();					\
+	}							\
+      else if (TREE_CODE (exp) == INTEGER_CST			\
+	       || TREE_CODE (exp) == REAL_CST)			\
+        {							\
+	  tree size = TYPE_SIZE (TREE_TYPE (exp));		\
+	  							\
+	  if (TREE_CODE (size) == INTEGER_CST &&		\
+	      TREE_INT_CST_LOW (size) == 4 &&			\
+	      TREE_INT_CST_HIGH (size) == 0)			\
+	    literal4_section ();				\
+	  else if (TREE_CODE (size) == INTEGER_CST &&		\
+	      TREE_INT_CST_LOW (size) == 8 &&			\
+	      TREE_INT_CST_HIGH (size) == 0)			\
+	    literal8_section ();				\
+	  else							\
+	    readonly_data_section ();				\
+	}							\
+      else if (TREE_CODE (exp) == CONSTRUCTOR				\
+	       && TREE_TYPE (exp)					\
+	       && TREE_CODE (TREE_TYPE (exp)) == RECORD_TYPE		\
+	       && TYPE_NAME (TREE_TYPE (exp)))				\
+	{								\
+	  tree name = TYPE_NAME (TREE_TYPE (exp));			\
+	  if (TREE_CODE (name) == TYPE_DECL)				\
+	    name = DECL_NAME (name);					\
+	  if (!strcmp (IDENTIFIER_POINTER (name), "NSConstantString"))	\
+	    objc_constant_string_object_section ();			\
+	  else if (!strcmp (IDENTIFIER_POINTER (name), "NXConstantString")) \
+	    objc_string_object_section ();				\
+	  else if (TREE_READONLY (exp) || TREE_CONSTANT (exp))		\
+	    {								\
+	      if (TREE_SIDE_EFFECTS (exp) || flag_pic && reloc)		\
+		const_data_section ();					\
+	      else							\
+		readonly_data_section (); 				\
+            }								\
+	  else								\
+	    data_section ();						\
+      }									\
+      else if (TREE_CODE (exp) == VAR_DECL &&				\
+	       DECL_NAME (exp) &&					\
+	       TREE_CODE (DECL_NAME (exp)) == IDENTIFIER_NODE &&	\
+	       IDENTIFIER_POINTER (DECL_NAME (exp)) &&			\
+	       !strncmp (IDENTIFIER_POINTER (DECL_NAME (exp)), "_OBJC_", 6)) \
+	{								\
+	  const char *name = IDENTIFIER_POINTER (DECL_NAME (exp));	\
+	  								\
+	  if (!strncmp (name, "_OBJC_CLASS_METHODS_", 20))		\
+	    objc_cls_meth_section ();					\
+	  else if (!strncmp (name, "_OBJC_INSTANCE_METHODS_", 23))	\
+	    objc_inst_meth_section ();					\
+	  else if (!strncmp (name, "_OBJC_CATEGORY_CLASS_METHODS_", 20)) \
+	    objc_cat_cls_meth_section ();				\
+	  else if (!strncmp (name, "_OBJC_CATEGORY_INSTANCE_METHODS_", 23)) \
+	    objc_cat_inst_meth_section ();				\
+	  else if (!strncmp (name, "_OBJC_CLASS_VARIABLES_", 22))	\
+	    objc_class_vars_section ();					\
+	  else if (!strncmp (name, "_OBJC_INSTANCE_VARIABLES_", 25))	\
+	    objc_instance_vars_section ();				\
+	  else if (!strncmp (name, "_OBJC_CLASS_PROTOCOLS_", 22))	\
+	    objc_cat_cls_meth_section ();				\
+	  else if (!strncmp (name, "_OBJC_CLASS_NAME_", 17))		\
+	    objc_class_names_section ();				\
+	  else if (!strncmp (name, "_OBJC_METH_VAR_NAME_", 20))		\
+	    objc_meth_var_names_section ();				\
+	  else if (!strncmp (name, "_OBJC_METH_VAR_TYPE_", 20))		\
+	    objc_meth_var_types_section ();				\
+	  else if (!strncmp (name, "_OBJC_CLASS_REFERENCES", 22))	\
+	    objc_cls_refs_section ();					\
+	  else if (!strncmp (name, "_OBJC_CLASS_", 12))			\
+	    objc_class_section ();					\
+	  else if (!strncmp (name, "_OBJC_METACLASS_", 16))		\
+	    objc_meta_class_section ();					\
+	  else if (!strncmp (name, "_OBJC_CATEGORY_", 15))		\
+	    objc_category_section ();					\
+	  else if (!strncmp (name, "_OBJC_SELECTOR_REFERENCES", 25))	\
+	    objc_selector_refs_section ();				\
+	  else if (!strncmp (name, "_OBJC_SELECTOR_FIXUP", 20))		\
+	    objc_selector_fixup_section ();				\
+	  else if (!strncmp (name, "_OBJC_SYMBOLS", 13))		\
+	    objc_symbols_section ();					\
+	  else if (!strncmp (name, "_OBJC_MODULES", 13))		\
+	    objc_module_info_section ();				\
+	  else if (!strncmp (name, "_OBJC_PROTOCOL_INSTANCE_METHODS_", 32)) \
+	    objc_cat_inst_meth_section ();                              \
+	  else if (!strncmp (name, "_OBJC_PROTOCOL_CLASS_METHODS_", 29)) \
+	    objc_cat_cls_meth_section ();                               \
+	  else if (!strncmp (name, "_OBJC_PROTOCOL_REFS_", 20))         \
+	    objc_cat_cls_meth_section ();                               \
+	  else if (!strncmp (name, "_OBJC_PROTOCOL_", 15))              \
+	    objc_protocol_section ();                                   \
+	  else if ((TREE_READONLY (exp) || TREE_CONSTANT (exp))		\
+		&& !TREE_SIDE_EFFECTS (exp))     			\
+             { if (flag_pic && reloc ) const_data_section ();             \
+               else readonly_data_section (); }                       	\
+	  else								\
+	    data_section ();						\
+	}								\
+      else if (TREE_READONLY (exp) || TREE_CONSTANT (exp))		\
+	{								\
+	  if (TREE_SIDE_EFFECTS (exp) || flag_pic && reloc)		\
+	    const_data_section ();					\
+	  else								\
+	    readonly_data_section (); 					\
+        }								\
+      else								\
+        data_section ();						\
+      try_section_alias ();						\
+    }									\
+  while (0)
+
+#undef	SELECT_RTX_SECTION
+#define SELECT_RTX_SECTION(mode, rtx)					\
+  do									\
+    {									\
+      if (GET_MODE_SIZE (mode) == 8)					\
+	literal8_section ();						\
+      else if (GET_MODE_SIZE (mode) == 4)				\
+	literal4_section ();						\
+      else								\
+	const_section ();						\
+    }									\
+  while (0)
+
+#define DECLARE_UNRESOLVED_REFERENCE(NAME)				\
+    do { extern FILE* asm_out_file; 					\
+	 if (asm_out_file) {						\
+	   if (flag_pic)						\
+	     fprintf (asm_out_file, "\t.lazy_reference ");		\
+	   else								\
+	     fprintf (asm_out_file, "\t.reference ");			\
+	   assemble_name (asm_out_file, NAME);				\
+	   fprintf (asm_out_file, "\n");				\
+	 }                                                              \
+       } while (0)
+
+#define DECLARE_CLASS_REFERENCE(NAME) \
+    do { extern FILE* asm_out_file;					\
+	 if (asm_out_file) {						\
+	   fprintf (asm_out_file, "\t");				\
+	   assemble_name (asm_out_file, NAME); 				\
+	   fprintf (asm_out_file, "=0\n");				\
+	   assemble_global (NAME);					\
+	 }								\
+       } while (0)
+
+#undef ASM_GLOBALIZE_LABEL
+#define ASM_GLOBALIZE_LABEL(FILE,NAME)	\
+ do { const char* _x = (NAME); if (!!strncmp (_x, "_OBJC_", 6)) { \
+  (fputs (".globl ", FILE), assemble_name (FILE, _x), fputs ("\n", FILE)); \
+ }} while (0)
+
+#undef ASM_GENERATE_INTERNAL_LABEL
+#define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM)	\
+  sprintf (LABEL, "*%s%d", PREFIX, NUM)
+
+/* This is how to output an internal numbered label where PREFIX is
+   the class of label and NUM is the number within the class.  */
+
+#undef ASM_OUTPUT_INTERNAL_LABEL
+#define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM)	\
+  fprintf (FILE, "%s%d:\n", PREFIX, NUM)
+
+/* Since we have a separate readonly data section, define this so that
+   jump tables end up in text rather than data.  */
+
+#ifndef JUMP_TABLES_IN_TEXT_SECTION
+#define JUMP_TABLES_IN_TEXT_SECTION 1
+#endif
+
+/* Symbolic names for various things we might know about a symbol.  */
+
+enum machopic_addr_class {
+  MACHOPIC_UNDEFINED,
+  MACHOPIC_DEFINED_DATA,
+  MACHOPIC_UNDEFINED_DATA,
+  MACHOPIC_DEFINED_FUNCTION,
+  MACHOPIC_UNDEFINED_FUNCTION
+};
+
+/* Macros defining the various PIC cases.  */
+
+#define MACHOPIC_INDIRECT      (flag_pic)
+#define MACHOPIC_JUST_INDIRECT (flag_pic == 1)
+#define MACHOPIC_PURE          (flag_pic == 2)
+
+#define GEN_BINDER_NAME_FOR_STUB(BUF,STUB,STUB_LENGTH)		\
+  do {								\
+    const char *stub_ = (STUB);					\
+    char *buffer_ = (BUF);					\
+    strcpy (buffer_, stub_);					\
+    if (stub_[0] == '"')					\
+      {								\
+	strcpy (buffer_ + (STUB_LENGTH) - 1, "_binder\"");	\
+      }								\
+    else							\
+      {								\
+	strcpy (buffer_ + (STUB_LENGTH), "_binder");		\
+      }								\
+  } while (0)
+
+#define GEN_SYMBOL_NAME_FOR_SYMBOL(BUF,SYMBOL,SYMBOL_LENGTH)	\
+  do {								\
+    const char *symbol_ = (SYMBOL);				\
+    char *buffer_ = (BUF);					\
+    if (name_needs_quotes (symbol_) && symbol_[0] != '"')	\
+      {								\
+	  sprintf (buffer_, "\"%s\"", symbol_);			\
+      }								\
+    else							\
+      {								\
+	strcpy (buffer_, symbol_);				\
+      }								\
+  } while (0)
+
+/* Given a symbol name string, create the lazy pointer version
+   of the symbol name.  */
+
+#define GEN_LAZY_PTR_NAME_FOR_SYMBOL(BUF,SYMBOL,SYMBOL_LENGTH)	\
+  do {								\
+    const char *symbol_ = (SYMBOL);				\
+    char *buffer_ = (BUF);					\
+    if (symbol_[0] == '"')					\
+      {								\
+        strcpy (buffer_, "\"L");					\
+        strcpy (buffer_ + 2, symbol_ + 1);			\
+	strcpy (buffer_ + (SYMBOL_LENGTH), "$lazy_ptr\"");	\
+      }								\
+    else if (name_needs_quotes (symbol_))			\
+      {								\
+        strcpy (buffer_, "\"L");				\
+        strcpy (buffer_ + 2, symbol_);				\
+	strcpy (buffer_ + (SYMBOL_LENGTH) + 2, "$lazy_ptr\"");	\
+      }								\
+    else							\
+      {								\
+        strcpy (buffer_, "L");					\
+        strcpy (buffer_ + 1, symbol_);				\
+	strcpy (buffer_ + (SYMBOL_LENGTH) + 1, "$lazy_ptr");	\
+      }								\
+  } while (0)
+