mirror of
https://github.com/pmret/gcc-papermario.git
synced 2024-11-08 11:53:01 +01:00
591 lines
20 KiB
C
591 lines
20 KiB
C
/* Operating system specific defines to be used when targeting GCC
|
|
for NeXTSTEP.
|
|
Copyright (C) 1989, 90-93, 1996, 1997 Free Software Foundation, 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. */
|
|
|
|
/* Use new NeXT include file search path.
|
|
In a cross compiler with NeXT as target, don't expect
|
|
the host to use Next's directory scheme. */
|
|
|
|
#ifndef CROSS_COMPILE
|
|
#undef INCLUDE_DEFAULTS
|
|
#define INCLUDE_DEFAULTS \
|
|
{ \
|
|
{ GPLUSPLUS_INCLUDE_DIR, "G++", 1, 1 }, \
|
|
{ LOCAL_INCLUDE_DIR, 0, 0, 1 }, \
|
|
{ TOOL_INCLUDE_DIR, "BINUTILS", 0, 1 }, \
|
|
{ GCC_INCLUDE_DIR, "GCC", 0, 0 }, \
|
|
/* These are for fixincludes-fixed ansi/bsd headers \
|
|
which wouldn't be found otherwise. \
|
|
(The use of string catenation here is OK since \
|
|
NeXT's native compiler is derived from GCC.) */ \
|
|
{ GCC_INCLUDE_DIR "/ansi", 0, 0, 0 }, \
|
|
{ GCC_INCLUDE_DIR "/bsd", 0, 0, 0 }, \
|
|
{ "/NextDeveloper/Headers", 0, 0, 0 }, \
|
|
{ "/NextDeveloper/Headers/ansi", 0, 0, 0 }, \
|
|
{ "/NextDeveloper/Headers/bsd", 0, 0, 0 }, \
|
|
{ "/LocalDeveloper/Headers", 0, 0, 0 }, \
|
|
{ "/LocalDeveloper/Headers/ansi", 0, 0, 0 }, \
|
|
{ "/LocalDeveloper/Headers/bsd", 0, 0, 0 }, \
|
|
{ "/NextDeveloper/2.0CompatibleHeaders", 0, 0, 0 }, \
|
|
{ STANDARD_INCLUDE_DIR, 0, 0, 0 }, \
|
|
{ "/usr/include/bsd", 0, 0, 0 }, \
|
|
{ 0, 0, 0, 0 } \
|
|
}
|
|
#else /* CROSS_COMPILE */
|
|
#undef INCLUDE_DEFAULTS
|
|
#define INCLUDE_DEFAULTS \
|
|
{ \
|
|
{ GPLUSPLUS_INCLUDE_DIR, "G++", 1, 1 }, \
|
|
{ GPLUSPLUS_INCLUDE_DIR, 0, 1, 1 }, \
|
|
{ LOCAL_INCLUDE_DIR, 0, 0, 1 }, \
|
|
{ GCC_INCLUDE_DIR, "GCC", 0, 0 }, \
|
|
{ GCC_INCLUDE_DIR "/ansi", 0, 0, 0 }, \
|
|
{ GCC_INCLUDE_DIR "/bsd", 0, 0, 0 }, \
|
|
{ TOOL_INCLUDE_DIR, "BINUTILS", 0, 1 }, \
|
|
{ TOOL_INCLUDE_DIR "/ansi", 0, 0, 0 }, \
|
|
{ TOOL_INCLUDE_DIR "/bsd", 0, 0, 0 }, \
|
|
{ STANDARD_INCLUDE_DIR, 0, 0, 0 }, \
|
|
{ "/usr/include/bsd", 0, 0, 0 }, \
|
|
{ 0, 0, 0, 0 } \
|
|
}
|
|
#endif /* CROSS_COMPILE */
|
|
|
|
#undef EXTRA_FORMAT_FUNCTIONS
|
|
#define EXTRA_FORMAT_FUNCTIONS \
|
|
"NXPrintf", FALSE, 2, FALSE, \
|
|
"NXScanf", TRUE, 2, FALSE, \
|
|
"NXVPrintf", FALSE, 2, TRUE, \
|
|
"NXVScanf", TRUE, 2, TRUE, \
|
|
"DPSPrintf", FALSE, 2, FALSE, \
|
|
"bsd_sprintf", FALSE, 2, FALSE, \
|
|
"bsd_vsprintf", FALSE, 2, TRUE,
|
|
|
|
/* Make -fnext-runtime the default. */
|
|
|
|
#define NEXT_OBJC_RUNTIME
|
|
|
|
/* We have atexit. */
|
|
|
|
#define HAVE_ATEXIT
|
|
|
|
/* Enable recent gcc to compile under the old gcc in Next release 1.0. */
|
|
|
|
#define __inline inline
|
|
|
|
/* wchar_t is unsigned short */
|
|
|
|
#undef WCHAR_TYPE
|
|
#define WCHAR_TYPE "short unsigned int"
|
|
#undef WCHAR_TYPE_SIZE
|
|
#define WCHAR_TYPE_SIZE (BITS_PER_WORD / 2)
|
|
|
|
/* 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
|
|
|
|
/* These compiler options take n arguments. */
|
|
|
|
#undef WORD_SWITCH_TAKES_ARG
|
|
#define WORD_SWITCH_TAKES_ARG(STR) \
|
|
(DEFAULT_WORD_SWITCH_TAKES_ARG (STR) ? 1 : \
|
|
!strcmp (STR, "segalign") ? 1 : \
|
|
!strcmp (STR, "seg1addr") ? 1 : \
|
|
!strcmp (STR, "segaddr") ? 2 : \
|
|
!strcmp (STR, "sectobjectsymbols") ? 2 : \
|
|
!strcmp (STR, "segprot") ? 3 : \
|
|
!strcmp (STR, "sectcreate") ? 3 : \
|
|
!strcmp (STR, "sectalign") ? 3 : \
|
|
!strcmp (STR, "segcreate") ? 3 : \
|
|
!strcmp (STR, "sectorder") ? 3 : \
|
|
!strcmp (STR, "siff-mask") ? 1 : \
|
|
!strcmp (STR, "siff-filter") ? 1 : \
|
|
!strcmp (STR, "siff-warning") ? 1 : \
|
|
!strcmp (STR, "arch") ? 1 : \
|
|
!strcmp (STR, "pagezero_size") ? 1 : \
|
|
0)
|
|
|
|
#undef WORD_SWITCH
|
|
#define WORD_SWITCH(STR) \
|
|
(WORD_SWITCH_TAKES_ARG (STR) \
|
|
|| !strcmp (STR, "bsd") \
|
|
|| !strcmp (STR, "object") \
|
|
|| !strcmp (STR, "ObjC") \
|
|
|| !strcmp (STR, "all_load"))
|
|
|
|
/* Machine dependent ccp options. */
|
|
|
|
#undef CPP_SPEC
|
|
#define CPP_SPEC "%{!traditional: -D__STDC__} \
|
|
%{posixstrict:-D_POSIX_SOURCE} \
|
|
%{!posixstrict:%{bsd:-D__STRICT_BSD__} \
|
|
%{posix:-D_POSIX_SOURCE} \
|
|
%{!ansi:-D_NEXT_SOURCE}} \
|
|
%{MD:-MD %M} %{MMD:-MMD %M}"
|
|
|
|
/* Machine dependent ld options. */
|
|
|
|
#undef LINK_SPEC
|
|
#define LINK_SPEC "%{Z} %{M} \
|
|
%{execute*} %{preload*} %{fvmlib*} \
|
|
%{segalign*} %{seg1addr*} %{segaddr*} %{segprot*} \
|
|
%{pagezero_size*} \
|
|
%{seglinkedit*} %{noseglinkedit*} \
|
|
%{sectcreate*} %{sectalign*} %{sectobjectsymbols}\
|
|
%{segcreate*} %{Mach*} %{whyload} %{w} \
|
|
%{sectorder*} %{whatsloaded} %{ObjC} %{all_load} %{object}"
|
|
|
|
/* Machine dependent libraries. */
|
|
|
|
#undef LIB_SPEC
|
|
#define LIB_SPEC "%{!posix*:-lsys_s} %{posix*:-lposix}"
|
|
|
|
/* We specify crt0.o as -lcrt0.o so that ld will search the library path. */
|
|
|
|
#undef STARTFILE_SPEC
|
|
#define STARTFILE_SPEC \
|
|
"%{!posix*:%{pg:-lgcrt0.o}%{!pg: \
|
|
%{p:%e-p profiling is no longer supported. Use -pg instead.} \
|
|
%{!p:-lcrt0.o}}}\
|
|
%{posix*:%{pg:-lgposixcrt0.o}%{!pg: \
|
|
%{p:%e-p profiling is no longer supported. Use -pg instead.} \
|
|
%{!p:-lposixcrt0.o}}}"
|
|
|
|
/* Allow #sscs (but don't do anything). */
|
|
|
|
#define SCCS_DIRECTIVE
|
|
|
|
/* We use Dbx symbol format. */
|
|
|
|
#undef SDB_DEBUGGING_INFO
|
|
#undef XCOFF_DEBUGGING_INFO
|
|
#define DBX_DEBUGGING_INFO
|
|
|
|
/* This saves a fair amount of space. */
|
|
|
|
#undef DBX_CONTIN_LENGTH
|
|
#define DBX_CONTIN_LENGTH 0
|
|
|
|
/* These screw up NeXT's gdb at the moment, so don't use them. */
|
|
|
|
#undef DBX_OUTPUT_MAIN_SOURCE_DIRECTORY
|
|
#define DBX_OUTPUT_MAIN_SOURCE_DIRECTORY(FILE, FILENAME)
|
|
|
|
/* These come from bsd386.h, but are specific to sequent, so make sure
|
|
they don't bite us. */
|
|
|
|
#undef DBX_NO_XREFS
|
|
#undef DBX_CONTIN_LENGTH
|
|
|
|
/* 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) \
|
|
fprintf (FILE, \
|
|
"\t.text\n\t.stabs \"%s\",%d,0,0,Letext\nLetext:\n", \
|
|
"" , N_SO)
|
|
|
|
/* 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 { constructor_section (); \
|
|
ASM_OUTPUT_ALIGN (FILE, 1); \
|
|
fprintf (FILE, "\t.long "); \
|
|
assemble_name (FILE, NAME); \
|
|
fprintf (FILE, "\n"); \
|
|
fprintf (FILE, ".reference .constructors_used\n"); \
|
|
} while (0)
|
|
|
|
#undef ASM_OUTPUT_DESTRUCTOR
|
|
#define ASM_OUTPUT_DESTRUCTOR(FILE,NAME) \
|
|
do { destructor_section (); \
|
|
ASM_OUTPUT_ALIGN (FILE, 1); \
|
|
fprintf (FILE, "\t.long "); \
|
|
assemble_name (FILE, NAME); \
|
|
fprintf (FILE, "\n"); \
|
|
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 char *language_string; \
|
|
if (strcmp (language_string, "GNU C++") == 0) \
|
|
{ \
|
|
constructor_section (); \
|
|
destructor_section (); \
|
|
ASM_OUTPUT_ALIGN (FILE, 1); \
|
|
} \
|
|
} while (0)
|
|
|
|
/* How to parse #pragma's */
|
|
|
|
#undef HANDLE_PRAGMA
|
|
#define HANDLE_PRAGMA(FINPUT, NODE) handle_pragma (FINPUT, NODE)
|
|
|
|
/* Give methods pretty symbol names on NeXT. */
|
|
|
|
#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 prefix to add to user-visible assembler symbols. */
|
|
|
|
#undef USER_LABEL_PREFIX
|
|
#define USER_LABEL_PREFIX "_"
|
|
|
|
/* 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] == '+' || 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%s", USER_LABEL_PREFIX, 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_LOCAL
|
|
#define ASM_OUTPUT_ALIGNED_LOCAL(FILE, NAME, SIZE, ALIGN) \
|
|
( fputs (".lcomm ", (FILE)), \
|
|
assemble_name ((FILE), (NAME)), \
|
|
fprintf ((FILE), ",%u,%u\n", (SIZE), floor_log2 ((ALIGN) / BITS_PER_UNIT)))
|
|
|
|
/* Output #ident as a .ident. */
|
|
|
|
#undef ASM_OUTPUT_IDENT
|
|
#define ASM_OUTPUT_IDENT(FILE, NAME) fprintf (FILE, "\t.ident \"%s\"\n", NAME);
|
|
|
|
/* The maximum alignment which the object file format can support.
|
|
For NeXT's Mach-O format, 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 (); \
|
|
fprintf (asm_out_file, "%s\n", DIRECTIVE); \
|
|
in_section = SECTION; \
|
|
} \
|
|
} \
|
|
|
|
#undef EXTRA_SECTIONS
|
|
#define EXTRA_SECTIONS \
|
|
in_const, in_cstring, in_literal4, in_literal8, \
|
|
in_constructor, in_destructor, \
|
|
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_symbols, in_objc_module_info, \
|
|
in_objc_protocol, in_objc_string_object, \
|
|
in_objc_class_names, in_objc_meth_var_names, \
|
|
in_objc_meth_var_types, in_objc_cls_refs
|
|
|
|
#undef EXTRA_SECTION_FUNCTIONS
|
|
#define EXTRA_SECTION_FUNCTIONS \
|
|
SECTION_FUNCTION (const_section, \
|
|
in_const, \
|
|
".const", 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 (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_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_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) \
|
|
\
|
|
void \
|
|
objc_section_init () \
|
|
{ \
|
|
static int been_here = 0; \
|
|
\
|
|
if (been_here == 0) \
|
|
{ \
|
|
been_here = 1; \
|
|
objc_class_section (); \
|
|
objc_meta_class_section (); \
|
|
objc_cat_cls_meth_section (); \
|
|
objc_cat_inst_meth_section (); \
|
|
objc_cls_meth_section (); \
|
|
objc_inst_meth_section (); \
|
|
objc_selector_refs_section (); \
|
|
objc_symbols_section (); \
|
|
objc_category_section (); \
|
|
objc_protocol_section (); \
|
|
objc_class_vars_section (); \
|
|
objc_instance_vars_section (); \
|
|
objc_module_info_section (); \
|
|
objc_string_object_section (); \
|
|
objc_class_names_section (); \
|
|
objc_meth_var_names_section (); \
|
|
objc_meth_var_types_section (); \
|
|
objc_cls_refs_section (); \
|
|
} \
|
|
}
|
|
|
|
#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_CODE (TYPE_NAME (TREE_TYPE (exp))) == IDENTIFIER_NODE \
|
|
&& IDENTIFIER_POINTER (TYPE_NAME (TREE_TYPE (exp)))) \
|
|
{ \
|
|
if (!strcmp (IDENTIFIER_POINTER (TYPE_NAME (TREE_TYPE (exp))), \
|
|
"NXConstantString")) \
|
|
objc_string_object_section (); \
|
|
else if ((TREE_READONLY (exp) || TREE_CONSTANT (exp)) \
|
|
&& !TREE_SIDE_EFFECTS (exp)) \
|
|
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_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)) \
|
|
readonly_data_section (); \
|
|
else \
|
|
data_section (); \
|
|
} \
|
|
else if (TREE_CODE (exp) == VAR_DECL) \
|
|
{ \
|
|
if ((flag_pic && reloc) \
|
|
|| !TREE_READONLY (exp) || TREE_SIDE_EFFECTS (exp) \
|
|
|| !DECL_INITIAL (exp) \
|
|
|| (DECL_INITIAL (exp) != error_mark_node \
|
|
&& !TREE_CONSTANT (DECL_INITIAL (exp)))) \
|
|
data_section (); \
|
|
else \
|
|
readonly_data_section (); \
|
|
} \
|
|
else \
|
|
readonly_data_section (); \
|
|
} \
|
|
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)
|
|
|
|
#ifdef ASM_COMMENT_START
|
|
# undef ASM_COMMENT_START
|
|
#endif
|
|
|
|
#define ASM_COMMENT_START ";#"
|