| /* Definitions of target machine for GNU compiler, |
| for ARM with ELF obj format. |
| Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc. |
| Contributed by Philip Blundell <philb@gnu.org> and |
| Catherine Moore <clm@cygnus.com> |
| |
| 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 |
| |
| #ifndef LOCAL_LABEL_PREFIX |
| #define LOCAL_LABEL_PREFIX "." |
| #endif |
| |
| #ifndef USER_LABEL_PREFIX |
| #define USER_LABEL_PREFIX "" |
| #endif |
| |
| #ifndef CPP_PREDEFINES |
| #define CPP_PREDEFINES "-Darm -Darm_elf -Acpu(arm) -Amachine(arm) -D__ELF__" |
| #endif |
| |
| /* 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" |
| |
| /* Write the extra assembler code needed to declare a function's result. |
| Most svr4 assemblers don't require any special declaration of the |
| result value, but there are exceptions. */ |
| #ifndef ASM_DECLARE_RESULT |
| #define ASM_DECLARE_RESULT(FILE, RESULT) |
| #endif |
| |
| /* 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. */ |
| #define TYPE_ASM_OP ".type" |
| #define SIZE_ASM_OP ".size" |
| |
| /* Write the extra assembler code needed to declare a function properly. |
| Some svr4 assemblers need to also have something extra said about the |
| function's return value. We allow for that here. */ |
| #define ASM_DECLARE_FUNCTION_NAME(FILE, NAME, DECL) \ |
| do { \ |
| fprintf (FILE, "\t%s\t ", TYPE_ASM_OP); \ |
| assemble_name (FILE, NAME); \ |
| putc (',', FILE); \ |
| fprintf (FILE, TYPE_OPERAND_FMT, "function"); \ |
| putc ('\n', FILE); \ |
| ASM_DECLARE_RESULT (FILE, DECL_RESULT (DECL)); \ |
| ASM_OUTPUT_LABEL(FILE, NAME); \ |
| } while (0) |
| |
| /* Write the extra assembler code needed to declare an object properly. */ |
| #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); \ |
| putc (',', FILE); \ |
| fprintf (FILE, HOST_WIDE_INT_PRINT_DEC, \ |
| int_size_in_bytes (TREE_TYPE (DECL))); \ |
| fputc ('\n', FILE); \ |
| } \ |
| ASM_OUTPUT_LABEL(FILE, NAME); \ |
| } 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. */ |
| #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); \ |
| putc (',', FILE); \ |
| fprintf (FILE, HOST_WIDE_INT_PRINT_DEC, \ |
| int_size_in_bytes (TREE_TYPE (DECL))); \ |
| fputc ('\n', FILE); \ |
| } \ |
| } while (0) |
| |
| /* This is how to declare the size of a function. */ |
| #define ASM_DECLARE_FUNCTION_SIZE(FILE, FNAME, DECL) \ |
| do { \ |
| if (!flag_inhibit_size_directive) \ |
| { \ |
| char label[256]; \ |
| static int labelno; \ |
| labelno ++; \ |
| ASM_GENERATE_INTERNAL_LABEL (label, "Lfe", labelno); \ |
| ASM_OUTPUT_INTERNAL_LABEL (FILE, "Lfe", labelno); \ |
| fprintf (FILE, "\t%s\t ", SIZE_ASM_OP); \ |
| assemble_name (FILE, (FNAME)); \ |
| fprintf (FILE, ","); \ |
| assemble_name (FILE, label); \ |
| fprintf (FILE, "-"); \ |
| assemble_name (FILE, (FNAME)); \ |
| putc ('\n', FILE); \ |
| } \ |
| } while (0) |
| |
| /* Define this macro if jump tables (for `tablejump' insns) should be |
| output in the text section, along with the assembler instructions. |
| Otherwise, the readonly data section is used. */ |
| #define JUMP_TABLES_IN_TEXT_SECTION 1 |
| |
| #ifndef ASM_SPEC |
| #define ASM_SPEC "%{mbig-endian:-EB} %{mcpu=*:-m%*} %{march=*:-m%*} \ |
| %{mapcs-*:-mapcs-%*} %{mthumb-interwork:-mthumb-interwork} %{mapcs-float:mfloat}" |
| #endif |
| |
| #ifndef LINK_SPEC |
| #define LINK_SPEC "%{mbig-endian:-EB} -X" |
| #endif |
| |
| /* Run-time Target Specification. */ |
| #ifndef TARGET_VERSION |
| #define TARGET_VERSION fputs (" (ARM/elf)", stderr) |
| #endif |
| |
| #ifndef TARGET_DEFAULT |
| #define TARGET_DEFAULT (ARM_FLAG_SOFT_FLOAT | ARM_FLAG_APCS_32) |
| #endif |
| |
| #ifndef MULTILIB_DEFAULTS |
| #define MULTILIB_DEFAULTS { "mlittle-endian", "msoft-float", "mapcs-32", "mno-thumb-interwork" } |
| #endif |
| |
| /* Setting this to 32 produces more efficient code, but the value set in previous |
| versions of this toolchain was 8, which produces more compact structures. The |
| command line option -mstructure_size_boundary=<n> can be used to change this |
| value. */ |
| #undef STRUCTURE_SIZE_BOUNDARY |
| #define STRUCTURE_SIZE_BOUNDARY arm_structure_size_boundary |
| |
| extern int arm_structure_size_boundary; |
| |
| /* A C expression whose value is nonzero if IDENTIFIER with arguments ARGS |
| is a valid machine specific attribute for DECL. |
| The attributes in ATTRIBUTES have previously been assigned to DECL. */ |
| #define VALID_MACHINE_DECL_ATTRIBUTE(DECL, ATTRIBUTES, IDENTIFIER, ARGS) \ |
| arm_valid_machine_decl_attribute (DECL, IDENTIFIER, ARGS) |
| |
| |
| /* A C statement to output assembler commands which will identify the |
| object file as having been compiled with GNU CC (or another GNU |
| compiler). */ |
| /* Define this to NULL so we don't get anything. |
| We have ASM_IDENTIFY_LANGUAGE. |
| Also, when using stabs, gcc2_compiled must be a stabs entry, not an |
| ordinary symbol, or gdb won't see it. The stabs entry must be |
| before the N_SO in order for gdb to find it. */ |
| #ifndef ASM_IDENTIFY_GCC |
| #define ASM_IDENTIFY_GCC(STREAM) \ |
| fprintf (STREAM, "%sgcc2_compiled.:\n", LOCAL_LABEL_PREFIX ) |
| #endif |
| |
| /* This outputs a lot of .req's to define alias for various registers. |
| Let's try to avoid this. */ |
| #ifndef ASM_FILE_START |
| #define ASM_FILE_START(STREAM) \ |
| do { \ |
| extern char * version_string; \ |
| fprintf (STREAM, "%s Generated by gcc %s for ARM/elf\n", \ |
| ASM_COMMENT_START, version_string); \ |
| output_file_directive ((STREAM), main_input_filename); \ |
| } while (0) |
| #endif |
| |
| /* Output an internal label definition. */ |
| #ifndef ASM_OUTPUT_INTERNAL_LABEL |
| #define ASM_OUTPUT_INTERNAL_LABEL(STREAM, PREFIX, NUM) \ |
| do \ |
| { \ |
| char * s = (char *) alloca (40 + strlen (PREFIX)); \ |
| extern int arm_target_label, arm_ccfsm_state; \ |
| extern rtx arm_target_insn; \ |
| \ |
| if (arm_ccfsm_state == 3 && arm_target_label == (NUM) \ |
| && !strcmp (PREFIX, "L")) \ |
| { \ |
| arm_ccfsm_state = 0; \ |
| arm_target_insn = NULL; \ |
| } \ |
| ASM_GENERATE_INTERNAL_LABEL (s, (PREFIX), (NUM)); \ |
| ASM_OUTPUT_LABEL (STREAM, s); \ |
| } while (0) |
| #endif |
| |
| /* Support the ctors/dtors and other sections. */ |
| |
| /* Define the pseudo-ops used to switch to the .ctors and .dtors sections. |
| |
| Note that we want to give these sections the SHF_WRITE attribute |
| because these sections will actually contain data (i.e. tables of |
| addresses of functions in the current root executable or shared library |
| file) and, in the case of a shared library, the relocatable addresses |
| will have to be properly resolved/relocated (and then written into) by |
| the dynamic linker when it actually attaches the given shared library |
| to the executing process. (Note that on SVR4, you may wish to use the |
| `-z text' option to the ELF linker, when building a shared library, as |
| an additional check that you are doing everything right. But if you do |
| use the `-z text' option when building a shared library, you will get |
| errors unless the .ctors and .dtors sections are marked as writable |
| via the SHF_WRITE attribute.) */ |
| #ifndef CTORS_SECTION_ASM_OP |
| #define CTORS_SECTION_ASM_OP "\t.section\t.ctors,\"aw\"" |
| #endif |
| |
| #ifndef DTORS_SECTION_ASM_OP |
| #define DTORS_SECTION_ASM_OP "\t.section\t.dtors,\"aw\"" |
| #endif |
| |
| /* A list of other sections which the compiler might be "in" at any |
| given time. */ |
| #ifndef SUBTARGET_EXTRA_SECTIONS |
| #define SUBTARGET_EXTRA_SECTIONS |
| #endif |
| |
| #ifndef EXTRA_SECTIONS |
| #define EXTRA_SECTIONS SUBTARGET_EXTRA_SECTIONS in_ctors, in_dtors |
| #endif |
| |
| /* A list of extra section function definitions. */ |
| #ifndef SUBTARGET_EXTRA_SECTION_FUNCTIONS |
| #define SUBTARGET_EXTRA_SECTION_FUNCTIONS |
| #endif |
| |
| #ifndef EXTRA_SECTION_FUNCTIONS |
| #define EXTRA_SECTION_FUNCTIONS \ |
| SUBTARGET_EXTRA_SECTION_FUNCTIONS \ |
| CTORS_SECTION_FUNCTION \ |
| DTORS_SECTION_FUNCTION |
| #endif |
| |
| #ifndef CTORS_SECTION_FUNCTION |
| #define CTORS_SECTION_FUNCTION \ |
| void \ |
| ctors_section () \ |
| { \ |
| if (in_section != in_ctors) \ |
| { \ |
| fprintf (asm_out_file, "%s\n", CTORS_SECTION_ASM_OP); \ |
| in_section = in_ctors; \ |
| } \ |
| } |
| #endif |
| |
| #ifndef DTORS_SECTION_FUNCTION |
| #define DTORS_SECTION_FUNCTION \ |
| void \ |
| dtors_section () \ |
| { \ |
| if (in_section != in_dtors) \ |
| { \ |
| fprintf (asm_out_file, "%s\n", DTORS_SECTION_ASM_OP); \ |
| in_section = in_dtors; \ |
| } \ |
| } |
| #endif |
| |
| /* Support the ctors/dtors sections for g++. */ |
| #ifndef INT_ASM_OP |
| #define INT_ASM_OP ".word" |
| #endif |
| |
| /* A C statement (sans semicolon) to output an element in the table of |
| global constructors. */ |
| #ifndef ASM_OUTPUT_CONSTRUCTOR |
| #define ASM_OUTPUT_CONSTRUCTOR(STREAM,NAME) \ |
| do { \ |
| ctors_section (); \ |
| fprintf (STREAM, "\t%s\t ", INT_ASM_OP); \ |
| assemble_name (STREAM, NAME); \ |
| fprintf (STREAM, "\n"); \ |
| } while (0) |
| #endif |
| |
| /* A C statement (sans semicolon) to output an element in the table of |
| global destructors. */ |
| #ifndef ASM_OUTPUT_DESTRUCTOR |
| #define ASM_OUTPUT_DESTRUCTOR(STREAM,NAME) \ |
| do { \ |
| dtors_section (); \ |
| fprintf (STREAM, "\t%s\t ", INT_ASM_OP); \ |
| assemble_name (STREAM, NAME); \ |
| fprintf (STREAM, "\n"); \ |
| } while (0) |
| #endif |
| |
| /* This is how we tell the assembler that a symbol is weak. */ |
| |
| #define ASM_WEAKEN_LABEL(FILE,NAME) \ |
| do { fputs ("\t.weak\t", FILE); assemble_name (FILE, NAME); \ |
| fputc ('\n', FILE); } while (0) |
| |
| #include "arm/aout.h" |