375 lines
13 KiB
C
375 lines
13 KiB
C
|
/* Definitions of target machine for GNU compiler,
|
|||
|
|
for ARM with ELF obj format.
|
|||
|
|
Copyright (C) 1995, 1996, 1997, 1998 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}"
|
|||
|
|
#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", "fno-leading-underscore" }
|
|||
|
|
#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. */
|
|||
|
|
extern int arm_valid_machine_decl_attribute ();
|
|||
|
|
#define VALID_MACHINE_DECL_ATTRIBUTE(DECL, ATTRIBUTES, IDENTIFIER, ARGS) \
|
|||
|
|
arm_valid_machine_decl_attribute (DECL, ATTRIBUTES, 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); \
|
|||
|
|
} 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)); \
|
|||
|
|
/* CYGNUS LOCAL nickc */ \
|
|||
|
|
arm_asm_output_label (STREAM, s); \
|
|||
|
|
/* END CYGNUS LOCAL */ \
|
|||
|
|
} 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"
|
|||
|
|
|
|||
|
|
#define ASM_OUTPUT_UNIQUE_BSS(file, decl, name, size) \
|
|||
|
|
{ \
|
|||
|
|
int len = strlen (name) + 5; \
|
|||
|
|
char * string; \
|
|||
|
|
\
|
|||
|
|
string = alloca (len + 1); \
|
|||
|
|
sprintf (string, ".bss.%s", name); \
|
|||
|
|
\
|
|||
|
|
named_section (NULL, string, 0); \
|
|||
|
|
\
|
|||
|
|
ASM_GLOBALIZE_LABEL (file, name); \
|
|||
|
|
\
|
|||
|
|
ASM_OUTPUT_ALIGN (file, \
|
|||
|
|
floor_log2 (DECL_ALIGN (decl) / BITS_PER_UNIT)); \
|
|||
|
|
\
|
|||
|
|
last_assemble_variable_decl = decl; \
|
|||
|
|
ASM_DECLARE_OBJECT_NAME (file, name, decl); \
|
|||
|
|
ASM_OUTPUT_SKIP (file, size ? size : 1); \
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
#define ASM_OUTPUT_UNIQUE_LOCAL(file, decl, name, size) \
|
|||
|
|
do \
|
|||
|
|
{ \
|
|||
|
|
int len = strlen (name) + 5; \
|
|||
|
|
char * string; \
|
|||
|
|
\
|
|||
|
|
string = alloca (len + 1); \
|
|||
|
|
sprintf (string, ".bss.%s", name); \
|
|||
|
|
\
|
|||
|
|
named_section (NULL, string, 0); \
|
|||
|
|
\
|
|||
|
|
ASM_OUTPUT_ALIGN (file, \
|
|||
|
|
floor_log2 (DECL_ALIGN (decl) / BITS_PER_UNIT)); \
|
|||
|
|
ASM_OUTPUT_LABEL (file, name); \
|
|||
|
|
fprintf (file, "\t.space\t%d\n", size); \
|
|||
|
|
} \
|
|||
|
|
while (0)
|