| /* Definitions of target machine for GNU compiler. MIPS R4000 version with |
| GOFAST floating point library. |
| Copyright (C) 1994, 1995, 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. */ |
| |
| #define OBJECT_FORMAT_ELF |
| |
| /* Default to -mips3. */ |
| #define TARGET_DEFAULT MASK_FLOAT64|MASK_64BIT |
| #define MIPS_ISA_DEFAULT 3 |
| |
| /* Until we figure out what MIPS ELF targets normally use, just do |
| stabs in ELF. */ |
| #ifndef PREFERRED_DEBUGGING_TYPE |
| #define PREFERRED_DEBUGGING_TYPE DBX_DEBUG |
| #endif |
| |
| /* US Software GOFAST library support. */ |
| #include "gofast.h" |
| #define INIT_SUBTARGET_OPTABS INIT_GOFAST_OPTABS |
| |
| #include "mips/mips.h" |
| |
| /* This must be done after mips.h, because mips.h defines |
| TARGET_ENDIAN_DEFAULT. */ |
| #undef MULTILIB_DEFAULTS |
| #if TARGET_ENDIAN_DEFAULT == 0 |
| #define MULTILIB_DEFAULTS { "EL", "mips3" } |
| #else |
| #define MULTILIB_DEFAULTS { "EB", "mips3" } |
| #endif |
| |
| #undef CPP_PREDEFINES |
| #define CPP_PREDEFINES "-Dmips -DMIPSEB -DR4000 -D_mips -D_MIPSEB -D_R4000" |
| |
| /* I would rather put this in CPP_PREDEFINES, but the gcc driver |
| doesn't handle -U options in CPP_PREDEFINES. */ |
| #undef SUBTARGET_CPP_SPEC |
| #define SUBTARGET_CPP_SPEC "\ |
| %{!mips1:%{!mips2:-U__mips -D__mips=3 -D__mips64}}" |
| |
| /* Use memcpy, et. al., rather than bcopy. */ |
| #define TARGET_MEM_FUNCTIONS |
| |
| /* Biggest alignment supported by the object file format of this |
| machine. Use this macro to limit the alignment which can be |
| specified using the `__attribute__ ((aligned (N)))' construct. If |
| not defined, the default value is `BIGGEST_ALIGNMENT'. */ |
| |
| #define MAX_OFILE_ALIGNMENT (32768*8) |
| |
| /* We need to use .esize and .etype instead of .size and .type to |
| avoid conflicting with ELF directives. */ |
| #undef PUT_SDB_SIZE |
| #define PUT_SDB_SIZE(a) \ |
| do { \ |
| extern FILE *asm_out_text_file; \ |
| fprintf (asm_out_text_file, "\t.esize\t%d;", (a)); \ |
| } while (0) |
| |
| #undef PUT_SDB_TYPE |
| #define PUT_SDB_TYPE(a) \ |
| do { \ |
| extern FILE *asm_out_text_file; \ |
| fprintf (asm_out_text_file, "\t.etype\t0x%x;", (a)); \ |
| } while (0) |
| |
| /* A C statement to output something to the assembler file to switch to section |
| NAME for object DECL which is either a FUNCTION_DECL, a VAR_DECL or |
| NULL_TREE. Some target formats do not support arbitrary sections. Do not |
| define this macro in such cases. */ |
| |
| #define ASM_OUTPUT_SECTION_NAME(F, DECL, NAME, RELOC) \ |
| do { \ |
| extern FILE *asm_out_text_file; \ |
| if ((DECL) && TREE_CODE (DECL) == FUNCTION_DECL) \ |
| fprintf (asm_out_text_file, "\t.section %s,\"ax\",@progbits\n", (NAME)); \ |
| else if ((DECL) && DECL_READONLY_SECTION (DECL, RELOC)) \ |
| fprintf (F, "\t.section %s,\"a\",@progbits\n", (NAME)); \ |
| else \ |
| fprintf (F, "\t.section %s,\"aw\",@progbits\n", (NAME)); \ |
| } while (0) |
| |
| /* The following macro defines the format used to output the second |
| operand of the .type assembler directive. Different svr4 assemblers |
| expect various different forms for this operand. The one given here |
| is just a default. You may need to override it in your machine- |
| specific tm.h file (depending upon the particulars of your assembler). */ |
| |
| #define TYPE_OPERAND_FMT "@%s" |
| |
| /* Define the strings used for the special svr4 .type and .size directives. |
| These strings generally do not vary from one system running svr4 to |
| another, but if a given system (e.g. m88k running svr) needs to use |
| different pseudo-op names for these, they may be overridden in the |
| file which includes this one. */ |
| |
| #undef TYPE_ASM_OP |
| #undef SIZE_ASM_OP |
| #define TYPE_ASM_OP ".type" |
| #define SIZE_ASM_OP ".size" |
| |
| /* These macros generate the special .type and .size directives which |
| are used to set the corresponding fields of the linker symbol table |
| entries in an ELF object file under SVR4. These macros also output |
| the starting labels for the relevant functions/objects. */ |
| |
| /* Write the extra assembler code needed to declare an object properly. */ |
| |
| #undef ASM_DECLARE_OBJECT_NAME |
| #define ASM_DECLARE_OBJECT_NAME(FILE, NAME, DECL) \ |
| do { \ |
| fprintf (FILE, "\t%s\t ", TYPE_ASM_OP); \ |
| assemble_name (FILE, NAME); \ |
| putc (',', FILE); \ |
| fprintf (FILE, TYPE_OPERAND_FMT, "object"); \ |
| putc ('\n', FILE); \ |
| size_directive_output = 0; \ |
| if (!flag_inhibit_size_directive && DECL_SIZE (DECL)) \ |
| { \ |
| size_directive_output = 1; \ |
| fprintf (FILE, "\t%s\t ", SIZE_ASM_OP); \ |
| assemble_name (FILE, NAME); \ |
| fprintf (FILE, ",%d\n", int_size_in_bytes (TREE_TYPE (DECL))); \ |
| } \ |
| mips_declare_object (FILE, NAME, "", ":\n", 0); \ |
| } while (0) |
| |
| /* Output the size directive for a decl in rest_of_decl_compilation |
| in the case where we did not do so before the initializer. |
| Once we find the error_mark_node, we know that the value of |
| size_directive_output was set |
| by ASM_DECLARE_OBJECT_NAME when it was run for the same decl. */ |
| |
| #undef ASM_FINISH_DECLARE_OBJECT |
| #define ASM_FINISH_DECLARE_OBJECT(FILE, DECL, TOP_LEVEL, AT_END) \ |
| do { \ |
| char *name = XSTR (XEXP (DECL_RTL (DECL), 0), 0); \ |
| if (!flag_inhibit_size_directive && DECL_SIZE (DECL) \ |
| && ! AT_END && TOP_LEVEL \ |
| && DECL_INITIAL (DECL) == error_mark_node \ |
| && !size_directive_output) \ |
| { \ |
| size_directive_output = 1; \ |
| fprintf (FILE, "\t%s\t ", SIZE_ASM_OP); \ |
| assemble_name (FILE, name); \ |
| fprintf (FILE, ",%d\n", int_size_in_bytes (TREE_TYPE (DECL))); \ |
| } \ |
| } while (0) |
| |
| #define ASM_OUTPUT_DEF(FILE,LABEL1,LABEL2) \ |
| do { fputc ( '\t', FILE); \ |
| assemble_name (FILE, LABEL1); \ |
| fputs ( " = ", FILE); \ |
| assemble_name (FILE, LABEL2); \ |
| fputc ( '\n', FILE); \ |
| } while (0) |
| |
| /* Note about .weak vs. .weakext |
| The mips native assemblers support .weakext, but not .weak. |
| mips-elf gas supports .weak, but not .weakext. |
| mips-elf gas has been changed to support both .weak and .weakext, |
| but until that support is generally available, the 'if' below |
| should serve. */ |
| |
| #define ASM_WEAKEN_LABEL(FILE,NAME) ASM_OUTPUT_WEAK_ALIAS(FILE,NAME,0) |
| #define ASM_OUTPUT_WEAK_ALIAS(FILE,NAME,VALUE) \ |
| do { \ |
| if (TARGET_GAS) \ |
| fputs ("\t.weak\t", FILE); \ |
| else \ |
| fputs ("\t.weakext\t", FILE); \ |
| assemble_name (FILE, NAME); \ |
| if (VALUE) \ |
| { \ |
| fputc (' ', FILE); \ |
| assemble_name (FILE, VALUE); \ |
| } \ |
| fputc ('\n', FILE); \ |
| } while (0) |
| |
| #define UNIQUE_SECTION(DECL,RELOC) \ |
| do { \ |
| int len, size, sec; \ |
| char *name, *string, *prefix; \ |
| static char *prefixes[4][2] = { \ |
| { ".text.", ".gnu.linkonce.t." }, \ |
| { ".rodata.", ".gnu.linkonce.r." }, \ |
| { ".data.", ".gnu.linkonce.d." }, \ |
| { ".sdata.", ".gnu.linkonce.s." } \ |
| }; \ |
| \ |
| name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (DECL)); \ |
| size = int_size_in_bytes (TREE_TYPE (decl)); \ |
| \ |
| /* Determine the base section we are interested in: \ |
| 0=text, 1=rodata, 2=data, 3=sdata. */ \ |
| if (TREE_CODE (DECL) == FUNCTION_DECL) \ |
| sec = 0; \ |
| else if ((TARGET_EMBEDDED_PIC || TARGET_MIPS16) \ |
| && TREE_CODE (decl) == STRING_CST \ |
| && !flag_writable_strings) \ |
| { \ |
| /* For embedded position independent code, put constant strings \ |
| in the text section, because the data section is limited to \ |
| 64K in size. For mips16 code, put strings in the text \ |
| section so that a PC relative load instruction can be used to \ |
| get their address. */ \ |
| sec = 0; \ |
| } \ |
| else if (TARGET_EMBEDDED_DATA) \ |
| { \ |
| /* For embedded applications, always put an object in read-only data \ |
| if possible, in order to reduce RAM usage. */ \ |
| \ |
| if (DECL_READONLY_SECTION (DECL, RELOC)) \ |
| sec = 1; \ |
| else if (size > 0 && size <= mips_section_threshold) \ |
| sec = 3; \ |
| else \ |
| sec = 2; \ |
| } \ |
| else \ |
| { \ |
| /* For hosted applications, always put an object in small data if \ |
| possible, as this gives the best performance. */ \ |
| \ |
| if (size > 0 && size <= mips_section_threshold) \ |
| sec = 3; \ |
| else if (DECL_READONLY_SECTION (DECL, RELOC)) \ |
| sec = 1; \ |
| else \ |
| sec = 2; \ |
| } \ |
| \ |
| prefix = prefixes[sec][DECL_ONE_ONLY (DECL)]; \ |
| len = strlen (name) + strlen (prefix); \ |
| string = alloca (len + 1); \ |
| sprintf (string, "%s%s", prefix, name); \ |
| \ |
| DECL_SECTION_NAME (DECL) = build_string (len, string); \ |
| } while (0) |
