aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Wood <wood@gnu.org>1993-04-09 23:45:19 +0000
committerTom Wood <wood@gnu.org>1993-04-09 23:45:19 +0000
commit78bdb6bcdf1e7d43468e1b819bf234153b1f5b29 (patch)
treea64ab0dd76b9f6e4bd260ca51aa3894fc31048d4
parent9fdecdb73045a2aa50de0ab25332cdc9950ca137 (diff)
downloadgcc-78bdb6bcdf1e7d43468e1b819bf234153b1f5b29.zip
gcc-78bdb6bcdf1e7d43468e1b819bf234153b1f5b29.tar.gz
gcc-78bdb6bcdf1e7d43468e1b819bf234153b1f5b29.tar.bz2
Move machine independent portions to nextstep.h and nextstep.c.
Move machine independent portions to nextstep.h and nextstep.c. Update to NeXTSTEP 3.0 and 3.1. From-SVN: r4073
-rw-r--r--gcc/config/m68k/next.h445
1 files changed, 57 insertions, 388 deletions
diff --git a/gcc/config/m68k/next.h b/gcc/config/m68k/next.h
index 98b562d..cdc60fb 100644
--- a/gcc/config/m68k/next.h
+++ b/gcc/config/m68k/next.h
@@ -1,5 +1,5 @@
-/* next.h: definitions for NeXT.
-Copyright (c) 1993 Free Software Foundation, Inc.
+/* Target definitions for GNU compiler for mc680x0 running NeXTSTEP
+ Copyright (C) 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
This file is part of GNU CC.
@@ -18,173 +18,38 @@ along with GNU CC; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#include "m68k/m68k.h"
-
-/* Use new NeXT include file search path. */
-
-#ifndef CROSS_COMPILE /* In a cross compiler with NeXT as target, don't expect
- the host to use Next's directory scheme. */
-#define INCLUDE_DEFAULTS \
- { \
- { GPLUSPLUS_INCLUDE_DIR, 1}, \
- { GCC_INCLUDE_DIR, 0}, \
- { LOCAL_INCLUDE_DIR, 0}, \
- { "/NextDeveloper/Headers", 0}, \
- { "/NextDeveloper/Headers/ansi", 0}, \
- { "/NextDeveloper/Headers/bsd", 0}, \
- { "/LocalDeveloper/Headers", 0}, \
- { "/LocalDeveloper/Headers/ansi", 0}, \
- { "/LocalDeveloper/Headers/bsd", 0}, \
- { "/NextDeveloper/2.0CompatibleHeaders", 0}, \
- { STANDARD_INCLUDE_DIR, 0}, \
- { 0, 0} \
- }
-#endif /* CROSS_COMPILE */
-
-#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,
-
-/* Use NeXT's special calling convention for sending an Objc message. */
-#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
+#include "nextstep.h"
+#include "machmode.h"
+#include "real.h"
/* See m68k.h. 0407 means 68040 (or 68030 or 68020, with 68881/2). */
#define TARGET_DEFAULT 0407
-/* wchar_t is unsigned short */
-
-#undef WCHAR_TYPE
-#undef WCHAR_TYPE_SIZE
-#define WCHAR_TYPE "short unsigned int"
-#define WCHAR_TYPE_SIZE (BITS_PER_WORD / 2)
-
-/* Give methods pretty symbol names on NeXT. */
-
-#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)
-
-/* 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", NAME); } while (0)
-
-#undef STACK_BOUNDARY
/* Boundary (in *bits*) on which stack pointer should be aligned. */
-#define STACK_BOUNDARY 32
-
-/* These compiler options take n arguments. */
-#define WORD_SWITCH_TAKES_ARG(STR) \
- (!strcmp (STR, "Ttext") ? 1 : \
- !strcmp (STR, "Tdata") ? 1 : \
- !strcmp (STR, "Tbss") ? 1 : \
- !strcmp (STR, "include") ? 1 : \
- !strcmp (STR, "imacros") ? 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, "aux-info") ? 1 : \
- 0)
+#undef STACK_BOUNDARY
+#define STACK_BOUNDARY 32
/* Names to predefine in the preprocessor for this target machine. */
-#define CPP_PREDEFINES "-Dmc68000 -Dm68k -DNeXT -Dunix -D__MACH__ -D__ARCHITECTURE__=\"m68k\""
-
-/* Machine dependent ccp options. */
-
-/* This option used to be called -bsd, but that conflicts with the
- general -b option. */
-#define CPP_SPEC "%{strict-bsd:-D__STRICT_BSD__}"
-
-/* Machine dependent ld options. */
-
-#define LINK_SPEC "%{Z} %{M} \
-%{execute*} %{object*} %{preload*} %{fvmlib*} \
-%{segalign*} %{seg1addr*} %{segaddr*} %{segprot*} \
-%{seglinkedit*} %{noseglinkedit*} \
-%{sectcreate*} %{sectalign*} %{sectobjectsymbols}\
-%{segcreate*} %{Mach*} %{whyload} %{w} \
-%{sectorder*} %{whatsloaded}"
-
-/* Machine dependent libraries. */
-
-#define LIB_SPEC "%{!p:%{!pg:-lsys_s}} %{pg:-lsys_p}"
-
-/* We specify crt0.o as -lcrt0.o so that ld will search the library path. */
-#define STARTFILE_SPEC \
- "%{pg:-lgcrt0.o}%{!pg: \
- %{p:%e-p profiling is no longer supported. Use -pg instead.} \
- %{!p:-lcrt0.o}}"
+#define CPP_PREDEFINES "-Dmc68000 -Dm68k -DNeXT -Dunix -D__MACH__ -D__BIG_ENDIAN__ -D__ARCHITECTURE__=\"m68k\""
/* Every structure or union's size must be a multiple of 2 bytes.
(Why isn't this in m68k.h?) */
#define STRUCTURE_SIZE_BOUNDARY 16
-
-/* Why not? */
-
-#define DOLLARS_IN_IDENTIFIERS 2
-
-/* Allow #sscs (but don't do anything). */
-
-#define SCCS_DIRECTIVE
-
-/* We use Dbx symbol format. */
-
-#define DBX_DEBUGGING_INFO
-
-/* This saves a fair amount of space. */
-
-#define DBX_CONTIN_LENGTH 0
-
-/* These screw up NeXT's gdb at the moment, so don't use them. */
-
-#define DBX_OUTPUT_MAIN_SOURCE_DIRECTORY(FILE, FILENAME)
-
-/* gdb needs a null N_SO at the end of each file for scattered loading. */
-
-#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. */
-
-#define ASM_IDENTIFY_GCC(asm_out_file)
-
/* This is how to output an assembler line defining a `double' constant. */
-#undef ASM_OUTPUT_DOUBLE
+#undef ASM_OUTPUT_DOUBLE
+#ifdef REAL_VALUE_TO_TARGET_DOUBLE
+#define ASM_OUTPUT_DOUBLE(FILE,VALUE) \
+ do { \
+ long hex[2]; \
+ REAL_VALUE_TO_TARGET_DOUBLE (VALUE, hex); \
+ fprintf (FILE, "\t.long 0x%x\n\t.long 0x%x\n", hex[0], hex[1]); \
+ } while (0)
+#else
#define ASM_OUTPUT_DOUBLE(FILE,VALUE) \
do { if (REAL_VALUE_ISINF (VALUE)) \
{ \
@@ -199,10 +64,19 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
fprintf (FILE, "\t.double 0r%s\n", dstr); \
} \
} while (0)
+#endif
/* This is how to output an assembler line defining a `float' constant. */
-#undef ASM_OUTPUT_FLOAT
+#undef ASM_OUTPUT_FLOAT
+#ifdef REAL_VALUE_TO_TARGET_SINGLE
+#define ASM_OUTPUT_FLOAT(FILE,VALUE) \
+ do { \
+ long hex; \
+ REAL_VALUE_TO_TARGET_SINGLE (VALUE, hex); \
+ fprintf (FILE, "\t.long 0x%x\n", hex); \
+ } while (0)
+#else
#define ASM_OUTPUT_FLOAT(FILE,VALUE) \
do { if (REAL_VALUE_ISINF (VALUE)) \
{ \
@@ -217,8 +91,17 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
fprintf (FILE, "\t.single 0r%s\n", dstr); \
} \
} while (0)
+#endif
-#undef ASM_OUTPUT_FLOAT_OPERAND
+#undef ASM_OUTPUT_FLOAT_OPERAND
+#ifdef REAL_VALUE_TO_TARGET_SINGLE
+#define ASM_OUTPUT_FLOAT_OPERAND(CODE,FILE,VALUE) \
+ do { \
+ long hex; \
+ REAL_VALUE_TO_TARGET_SINGLE (VALUE, hex); \
+ fprintf (FILE, "#0b%x", hex); \
+ } while (0)
+#else
#define ASM_OUTPUT_FLOAT_OPERAND(CODE,FILE,VALUE) \
do{ if (REAL_VALUE_ISINF (VALUE)) \
{ \
@@ -233,8 +116,17 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
fprintf (FILE, "#0r%s", dstr); \
} \
} while (0)
+#endif
-#undef ASM_OUTPUT_DOUBLE_OPERAND
+#undef ASM_OUTPUT_DOUBLE_OPERAND
+#ifdef REAL_VALUE_TO_TARGET_DOUBLE
+#define ASM_OUTPUT_DOUBLE_OPERAND(FILE,VALUE) \
+ do { \
+ long hex[2]; \
+ REAL_VALUE_TO_TARGET_DOUBLE (VALUE, hex); \
+ fprintf (FILE, "#0b%x%08x", hex[0], hex[1]); \
+ } while (0)
+#else
#define ASM_OUTPUT_DOUBLE_OPERAND(FILE,VALUE) \
do { if (REAL_VALUE_ISINF (VALUE)) \
{ \
@@ -249,224 +141,8 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
fprintf (FILE, "#0r%s", dstr); \
} \
} while (0)
-
-#if 0 /* This is for system verson 3.0, which isn't out yet. */
-#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"); } while (0)
-
-#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"); } while (0)
#endif
-/* How to parse #pragma's */
-
-#define HANDLE_PRAGMA(finput) handle_pragma (finput, &get_directive_line)
-
-/* Create new Mach-O sections. */
-
-#define SECTION_FUNCTION(FUNCTION, SECTION, DIRECTIVE, WAS_TEXT) \
-void \
-FUNCTION () \
-{ \
- extern void text_section (); \
- extern int flag_no_mach_text_sections; \
- \
- if (WAS_TEXT && flag_no_mach_text_sections) \
- text_section (); \
- else if (in_section != SECTION) \
- { \
- fprintf (asm_out_file, "%s\n", DIRECTIVE); \
- in_section = SECTION; \
- } \
-} \
-
-#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_strs, in_objc_selector_refs, \
- in_objc_symbols, in_objc_module_info
-
-#define EXTRA_SECTION_FUNCTIONS \
-SECTION_FUNCTION (const_section, \
- in_const, \
- ".const", 1) \
-SECTION_FUNCTION (cstring_section, \
- in_cstring, \
- ".cstring", 1) \
-SECTION_FUNCTION (literal4_section, \
- in_literal4, \
- ".literal4", 1) \
-SECTION_FUNCTION (literal8_section, \
- in_literal8, \
- ".literal8", 1) \
-SECTION_FUNCTION (constructor_section, \
- in_constructor, \
- ".constructor", 0) \
-SECTION_FUNCTION (destructor_section, \
- in_destructor, \
- ".destructor", 0) \
-SECTION_FUNCTION (objc_class_section, \
- in_objc_class, \
- ".objc_class", 0) \
-SECTION_FUNCTION (objc_meta_class_section, \
- in_objc_meta_class, \
- ".objc_meta_class", 0) \
-SECTION_FUNCTION (objc_category_section, \
- in_objc_category, \
- ".objc_category", 0) \
-SECTION_FUNCTION (objc_class_vars_section, \
- in_objc_class_vars, \
- ".objc_class_vars", 0) \
-SECTION_FUNCTION (objc_instance_vars_section, \
- in_objc_instance_vars, \
- ".objc_instance_vars", 0) \
-SECTION_FUNCTION (objc_cls_meth_section, \
- in_objc_cls_meth, \
- ".objc_cls_meth", 0) \
-SECTION_FUNCTION (objc_inst_meth_section, \
- in_objc_inst_meth, \
- ".objc_inst_meth", 0) \
-SECTION_FUNCTION (objc_cat_cls_meth_section, \
- in_objc_cat_cls_meth, \
- ".objc_cat_cls_meth", 0) \
-SECTION_FUNCTION (objc_cat_inst_meth_section, \
- in_objc_cat_inst_meth, \
- ".objc_cat_inst_meth", 0) \
-SECTION_FUNCTION (objc_selector_strs_section, \
- in_objc_selector_strs, \
- ".objc_selector_strs", 0) \
-SECTION_FUNCTION (objc_selector_refs_section, \
- in_objc_selector_refs, \
- ".objc_selector_refs", 0) \
-SECTION_FUNCTION (objc_symbols_section, \
- in_objc_symbols, \
- ".objc_symbols", 0) \
-SECTION_FUNCTION (objc_module_info_section, \
- in_objc_module_info, \
- ".objc_module_info", 0)
-
-#define READONLY_DATA_SECTION const_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_READONLY (exp) || TREE_CONSTANT (exp)) \
- && !TREE_SIDE_EFFECTS (exp)) \
- readonly_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_", 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_STRINGS", 13)) \
- objc_selector_strs_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 \
- data_section (); \
- } \
- else \
- data_section (); \
- } \
- while (0)
-
-/* Force the assembler to create all the Objective-C sections,
- so that their order is guaranteed. */
-
-#define OBJC_PROLOGUE \
- do { \
- extern void objc_class_section (); \
- extern void objc_meta_class_section (); \
- extern void objc_cat_cls_meth_section (); \
- extern void objc_cat_inst_meth_section (); \
- extern void objc_cls_meth_section (); \
- extern void objc_inst_meth_section (); \
- extern void objc_selector_refs_section (); \
- extern void objc_symbols_section (); \
- extern void objc_category_section (); \
- extern void objc_class_vars_section (); \
- extern void objc_instance_vars_section (); \
- extern void objc_module_info_section (); \
- extern void objc_selector_strs_section (); \
- \
- 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_class_vars_section (); \
- objc_instance_vars_section (); \
- objc_module_info_section (); \
- objc_selector_strs_section (); \
- } while (0)
-
/* We do not define JUMP_TABLES_IN_TEXT_SECTION, since we wish to keep
the text section pure. There is no point in addressing the jump
tables using pc relative addressing, since they are not in the text
@@ -474,31 +150,24 @@ SECTION_FUNCTION (objc_module_info_section, \
causes the compiler to use absolute addresses in the jump table,
so we redefine CASE_VECTOR_MODE to be SImode. */
-#undef CASE_VECTOR_MODE
+#undef CASE_VECTOR_MODE
#define CASE_VECTOR_MODE SImode
+#undef CASE_VECTOR_PC_RELATIVE
+
+/* Make sure jump tables have the same alignment as other pointers. */
-#undef CASE_VECTOR_PC_RELATIVE
+#define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLEINSN) \
+{ ASM_OUTPUT_ALIGN (FILE, 1); ASM_OUTPUT_INTERNAL_LABEL (FILE, PREFIX, NUM); }
/* Don't treat addresses involving labels differently from symbol names.
Previously, references to labels generated pc-relative addressing modes
while references to symbol names generated absolute addressing modes. */
-#undef GO_IF_INDEXABLE_BASE(X, ADDR)
+#undef GO_IF_INDEXABLE_BASE(X, ADDR)
#define GO_IF_INDEXABLE_BASE(X, ADDR) \
{ if (GET_CODE (X) == REG && REG_OK_FOR_BASE_P (X)) goto ADDR; }
-#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))
-
-/* The maximum alignment which the object file format can support.
- For NeXT's Mach-O format, this is 2^15. */
-
-#define MAX_OFILE_ALIGNMENT 0x8000
+/* This accounts for the return pc and saved fp on the m68k. */
-/* Don't default to pcc-struct-return, because gcc is the only compiler, and
- we want to retain compatibility with older gcc versions. */
-#define DEFAULT_PCC_STRUCT_RETURN 0
+#define OBJC_FORWARDING_STACK_OFFSET 8
+#define OBJC_FORWARDING_MIN_OFFSET 8