abort ();
}
-#ifdef THUMB_PE /* CYGNUS LOCAL nickc/thumb-pe */
-/* Return non-zero if FUNC is a naked function. */
-
-static int
-arm_naked_function_p (func)
- tree func;
-{
- tree a;
-
- if (TREE_CODE (func) != FUNCTION_DECL)
- abort ();
-
- a = lookup_attribute ("naked", DECL_MACHINE_ATTRIBUTES (func));
- return a != NULL_TREE;
-}
-#endif /* END CYGNUS LOCAL nickc/thumb-pe */
-
-/* CYGNUS LOCAL nickc/super-interworking */
/* Return non-zero if FUNC must be entered in ARM mode. */
int
is_called_in_ARM_mode (func)
if (TARGET_CALLEE_INTERWORKING && TREE_PUBLIC (func))
return TRUE;
-#ifdef THUMB_PE
- return lookup_attribute ("interfacearm", DECL_MACHINE_ATTRIBUTES (func)) != NULL_TREE;
-#else
return FALSE;
-#endif
}
-/* END CYGNUS LOCAL */
+
\f
/* Routines for emitting code */
else if ( ! TARGET_THUMB_INTERWORK
&& ! TARGET_BACKTRACE
-/* CYGNUS LOCAL nickc/super-interworking */
- && ! is_called_in_ARM_mode (current_function_decl)
-/* END CYGNUS LOCAL */
- )
+ && ! is_called_in_ARM_mode (current_function_decl))
{
asm_fprintf (f, "\tpop\t{pc}\n" );
}
else if ( TARGET_THUMB_INTERWORK
|| TARGET_BACKTRACE
-/* CYGNUS LOCAL nickc/super-interworking */
- || is_called_in_ARM_mode (current_function_decl)
-/* END CYGNUS LOCAL */
- )
+ || is_called_in_ARM_mode (current_function_decl))
{
thumb_exit (asm_out_file, -1);
}
if ( TARGET_THUMB_INTERWORK
|| TARGET_BACKTRACE
-/* CYGNUS LOCAL nickc/super-interworking */
- || is_called_in_ARM_mode (current_function_decl)
-/* END CYGNUS LOCAL */
- )
+ || is_called_in_ARM_mode (current_function_decl))
{
asm_fprintf (asm_out_file, "}\n");
thumb_exit (asm_out_file, -1);
int store_arg_regs = 0;
int regno;
-#ifdef THUMB_PE /* CYGNUS LOCAL nickc/thumb-pe */
- if (arm_naked_function_p (current_function_decl))
- return;
-#endif /* CYGNUS LOCAL nickc/thumb-pe */
-
-/* CYGNUS LOCAL nickc/super-interworking */
if (is_called_in_ARM_mode (current_function_decl))
{
char * name;
asm_fprintf (f, "\t.thumb_func\n");
asm_fprintf (f, "%s%U%s:\n", STUB_NAME, name);
}
-/* END CYGNUS LOCAL nickc/super-interworking */
if (current_function_anonymous_args && current_function_pretend_args_size)
store_arg_regs = 1;
if (current_function_pretend_args_size == 0 || TARGET_BACKTRACE)
{
if (had_to_push_lr
-/* CYGNUS LOCAL nickc/super-interworking */
- && ! is_called_in_ARM_mode (current_function_decl)
-/* END CYGNUS LOCAL nickc/super-interworking */
- )
+ && ! is_called_in_ARM_mode (current_function_decl))
live_regs_mask |= 1 << PROGRAM_COUNTER;
/* Either no argument registers were pushed or a backtrace
if ((live_regs_mask & (1 << PROGRAM_COUNTER)) == 0)
thumb_exit (asm_out_file,
- (
- had_to_push_lr
-/* CYGNUS LOCAL nickc/super-interworking */
- && is_called_in_ARM_mode (current_function_decl)
-/* END CYGNUS LOCAL */
- ) ? -1 : LINK_REGISTER
- );
+ (had_to_push_lr
+ && is_called_in_ARM_mode (current_function_decl)) ? -1 : LINK_REGISTER);
}
else
{
warning ("Structure size boundary can only be set to 8 or 32");
}
}
-\f
-#ifdef THUMB_PE /* CYGNUS LOCAL nickc/thumb-pe */
-/* Return nonzero if ATTR is a valid attribute for DECL.
- ATTRIBUTES are any existing attributes and ARGS are the arguments
- supplied with ATTR.
-
- Supported attributes:
-
- naked: don't output any prologue or epilogue code, the user is assumed
- to do the right thing.
-
- interfacearm: Always assume that this function will be entered in ARM
- mode, not Thumb mode, and that the caller wishes to be returned to in
- ARM mode. */
-int
-arm_valid_machine_decl_attribute (decl, attributes, attr, args)
- tree decl;
- tree attributes;
- tree attr;
- tree args;
-{
- if (args != NULL_TREE)
- return 0;
-
- if (is_attribute_p ("naked", attr))
- return TREE_CODE (decl) == FUNCTION_DECL;
-
- if (is_attribute_p ("interfacearm", attr))
- return TREE_CODE (decl) == FUNCTION_DECL;
-
- return 0;
-}
-#endif /* END CYGNUS LOCAL nickc/thumb-pe */
+++ /dev/null
-/* CYGNUS LOCAL (entire file) nickc/thumb-pe */
-/* Definitions of target machine for GNU compiler,
- for Thumb with PE object format.
- Copyright (C) 1998 Free Software Foundation, Inc.
- Derived from arm/coff.h and arm/pe.h originally by Doug Evans (evans@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. */
-
-#include "arm/thumb.h"
-\f
-#define THUMB_PE 1
-
-/* Run-time Target Specification. */
-#undef TARGET_VERSION
-#define TARGET_VERSION fputs (" (Thumb/pe)", stderr)
-\f
-/* Support the __declspec keyword by turning them into attributes.
- We currently only support: naked, dllimport, and dllexport.
- Note that the current way we do this may result in a collision with
- predefined attributes later on. This can be solved by using one attribute,
- say __declspec__, and passing args to it. The problem with that approach
- is that args are not accumulated: each new appearance would clobber any
- existing args. */
-#undef CPP_PREDEFINES
-#define CPP_PREDEFINES "\
--Dthumb -D__thumb -D__pe__ -Acpu(arm) -Amachine(arm) \
--D__declspec(x)=__attribute__((x)) \
-"
-
-/* Experimental addition for pr 7885.
- Ignore dllimport for functions. */
-#define ARM_FLAG_NOP_FUN_IMPORT 0x20000
-#define TARGET_NOP_FUN_DLLIMPORT (target_flags & ARM_FLAG_NOP_FUN_IMPORT)
-
-#undef SUBTARGET_SWITCHES
-#define SUBTARGET_SWITCHES \
-{ "nop-fun-dllimport", ARM_FLAG_NOP_FUN_IMPORT }, \
-{ "no-nop-fun-dllimport", -ARM_FLAG_NOP_FUN_IMPORT },
-
-#undef TARGET_DEFAULT
-#define TARGET_DEFAULT ARM_FLAG_NOP_FUN_IMPORT
-\f
-/* 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;
-\f
-/* This is COFF, but prefer stabs. */
-#define SDB_DEBUGGING_INFO
-
-#define PREFERRED_DEBUGGING_TYPE DBX_DEBUG
-
-#include "dbxcoff.h"
-\f
-/* Note - it is important that these definitions match those in semi.h for the ARM port. */
-#undef LOCAL_LABEL_PREFIX
-#define LOCAL_LABEL_PREFIX "."
-
-#undef USER_LABEL_PREFIX
-#define USER_LABEL_PREFIX "_"
-
-/* 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 ASM_IDENTIFY_GCC(STREAM) \
- fprintf (STREAM, "%sgcc2_compiled.:\n%s", LOCAL_LABEL_PREFIX, ASM_APP_OFF )
-
-#undef ASM_FILE_START
-#define ASM_FILE_START(STREAM) \
-do { \
- extern char *version_string; \
- fprintf ((STREAM), "%s Generated by gcc %s for Thumb/coff\n", \
- ASM_COMMENT_START, version_string); \
- fprintf ((STREAM), ASM_APP_OFF); \
-} 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(STREAM, DECL, NAME, RELOC) \
-do { \
- if ((DECL) && TREE_CODE (DECL) == FUNCTION_DECL) \
- fprintf (STREAM, "\t.section %s,\"x\"\n", (NAME)); \
- else if ((DECL) && DECL_READONLY_SECTION (DECL, RELOC)) \
- fprintf (STREAM, "\t.section %s,\"\"\n", (NAME)); \
- else \
- fprintf (STREAM, "\t.section %s,\"w\"\n", (NAME)); \
-} while (0)
-\f
-/* Support the ctors/dtors and other sections. */
-
-#undef INIT_SECTION_ASM_OP
-
-/* 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
-
-#undef READONLY_DATA_SECTION
-#define READONLY_DATA_SECTION rdata_section
-#undef RDATA_SECTION_ASM_OP
-#define RDATA_SECTION_ASM_OP "\t.section .rdata"
-
-#undef CTORS_SECTION_ASM_OP
-#define CTORS_SECTION_ASM_OP "\t.section .ctors,\"x\""
-#undef DTORS_SECTION_ASM_OP
-#define DTORS_SECTION_ASM_OP "\t.section .dtors,\"x\""
-
-/* A list of other sections which the compiler might be "in" at any
- given time. */
-
-#undef EXTRA_SECTIONS
-#define EXTRA_SECTIONS SUBTARGET_EXTRA_SECTIONS in_rdata, in_ctors, in_dtors
-
-#define SUBTARGET_EXTRA_SECTIONS
-
-/* A list of extra section function definitions. */
-
-#undef EXTRA_SECTION_FUNCTIONS
-#define EXTRA_SECTION_FUNCTIONS \
- RDATA_SECTION_FUNCTION \
- CTORS_SECTION_FUNCTION \
- DTORS_SECTION_FUNCTION \
- SUBTARGET_EXTRA_SECTION_FUNCTIONS
-
-#define SUBTARGET_EXTRA_SECTION_FUNCTIONS
-
-#define RDATA_SECTION_FUNCTION \
-void \
-rdata_section () \
-{ \
- if (in_section != in_rdata) \
- { \
- fprintf (asm_out_file, "%s\n", RDATA_SECTION_ASM_OP); \
- in_section = in_rdata; \
- } \
-}
-
-#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; \
- } \
-}
-
-#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; \
- } \
-}
-\f
-/* Support the ctors/dtors sections for g++. */
-
-#define INT_ASM_OP ".word"
-
-/* A C statement (sans semicolon) to output an element in the table of
- global constructors. */
-#undef 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)
-
-/* A C statement (sans semicolon) to output an element in the table of
- global destructors. */
-#undef 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)
-
-/* __CTOR_LIST__ and __DTOR_LIST__ must be defined by the linker script. */
-#define CTOR_LISTS_DEFINED_EXTERNALLY
-
-#undef DO_GLOBAL_CTORS_BODY
-#undef DO_GLOBAL_DTORS_BODY
-
-/* The ARM development system has atexit and doesn't have _exit,
- so define this for now. */
-#define HAVE_ATEXIT
-
-/* The ARM development system defines __main. */
-#define NAME__MAIN "__gccmain"
-#define SYMBOL__MAIN __gccmain
-\f
-/* This is to better conform to the ARM PCS.
- Richard Earnshaw hasn't put this into FSF sources yet so it's here. */
-#undef RETURN_IN_MEMORY
-#define RETURN_IN_MEMORY(TYPE) \
- ((TYPE_MODE ((TYPE)) == BLKmode && ! TYPE_NO_FORCE_BLK (TYPE)) \
- || (AGGREGATE_TYPE_P ((TYPE)) && arm_pe_return_in_memory ((TYPE))))
-\f
-/* 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_pe_valid_machine_decl_attribute ();
-extern int arm_valid_machine_decl_attribute ();
-#undef VALID_MACHINE_DECL_ATTRIBUTE
-#define VALID_MACHINE_DECL_ATTRIBUTE(DECL, ATTRIBUTES, IDENTIFIER, ARGS) \
- arm_pe_valid_machine_decl_attribute (DECL, ATTRIBUTES, IDENTIFIER, ARGS)
-
-extern union tree_node * arm_pe_merge_machine_decl_attributes ();
-#define MERGE_MACHINE_DECL_ATTRIBUTES(OLD, NEW) \
- arm_pe_merge_machine_decl_attributes ((OLD), (NEW))
-
-/* In addition to the stuff done in arm.h, we must mark dll symbols specially.
- Definitions of dllexport'd objects install some info in the .drectve
- section. References to dllimport'd objects are fetched indirectly via
- __imp_. If both are declared, dllexport overrides.
- This is also needed to implement one-only vtables: they go into their own
- section and we need to set DECL_SECTION_NAME so we do that here.
- Note that we can be called twice on the same decl. */
-extern void arm_pe_encode_section_info ();
-#undef ENCODE_SECTION_INFO
-#define ENCODE_SECTION_INFO(DECL) \
- arm_pe_encode_section_info (DECL)
-
- /* Utility used only in this file. */
-#define ARM_STRIP_NAME_ENCODING(SYM_NAME) \
-((SYM_NAME) + ((SYM_NAME)[0] == '@' ? 3 : 0))
-
-/* Strip any text from SYM_NAME added by ENCODE_SECTION_INFO and store
- the result in VAR. */
-#undef STRIP_NAME_ENCODING
-#define STRIP_NAME_ENCODING(VAR, SYM_NAME) \
-(VAR) = ARM_STRIP_NAME_ENCODING (SYM_NAME)
-
-/* Define this macro if in some cases global symbols from one translation
- unit may not be bound to undefined symbols in another translation unit
- without user intervention. For instance, under Microsoft Windows
- symbols must be explicitly imported from shared libraries (DLLs). */
-#define MULTIPLE_SYMBOL_SPACES
-
-#define UNIQUE_SECTION_P(DECL) DECL_ONE_ONLY (DECL)
-extern void arm_pe_unique_section ();
-#define UNIQUE_SECTION(DECL,RELOC) arm_pe_unique_section (DECL, RELOC)
-
-#define SUPPORTS_ONE_ONLY 1
-
-/* 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. */
-#undef ASM_OUTPUT_SECTION_NAME
-#define ASM_OUTPUT_SECTION_NAME(STREAM, DECL, NAME, RELOC) \
-do { \
- if ((DECL) && TREE_CODE (DECL) == FUNCTION_DECL) \
- fprintf (STREAM, "\t.section %s,\"x\"\n", (NAME)); \
- else if ((DECL) && DECL_READONLY_SECTION (DECL, RELOC)) \
- fprintf (STREAM, "\t.section %s,\"\"\n", (NAME)); \
- else \
- fprintf (STREAM, "\t.section %s,\"w\"\n", (NAME)); \
- /* Functions may have been compiled at various levels of \
- optimization so we can't use `same_size' here. Instead, \
- have the linker pick one. */ \
- if ((DECL) && DECL_ONE_ONLY (DECL)) \
- fprintf (STREAM, "\t.linkonce %s\n", \
- TREE_CODE (DECL) == FUNCTION_DECL \
- ? "discard" : "same_size"); \
-} while (0)
-\f
-/* This outputs a lot of .req's to define alias for various registers.
- Let's try to avoid this. */
-#undef ASM_FILE_START
-#define ASM_FILE_START(STREAM) \
-do { \
- extern char *version_string; \
- fprintf (STREAM, "%s Generated by gcc %s for ARM/pe\n", \
- ASM_COMMENT_START, version_string); \
- output_file_directive ((STREAM), main_input_filename); \
-} while (0)
-
-/* Output a reference to a label. */
-#undef ASM_OUTPUT_LABELREF
-#define ASM_OUTPUT_LABELREF(STREAM, NAME) \
-fprintf (STREAM, "%s%s", USER_LABEL_PREFIX, ARM_STRIP_NAME_ENCODING (NAME))
-
-/* Output a function definition label. */
-#undef ASM_DECLARE_FUNCTION_NAME
-#define ASM_DECLARE_FUNCTION_NAME(STREAM, NAME, DECL) \
-do { \
- if (arm_dllexport_name_p (NAME)) \
- { \
- drectve_section (); \
- fprintf (STREAM, "\t.ascii \" -export:%s\"\n", \
- ARM_STRIP_NAME_ENCODING (NAME)); \
- function_section (DECL); \
- } \
- if (! is_called_in_ARM_mode (decl)) \
- fprintf (STREAM, "\t.thumb_func\n") ; \
- else \
- fprintf (STREAM, "\t.code\t32\n") ; \
- ASM_OUTPUT_LABEL ((STREAM), (NAME)); \
-} while (0)
-
-/* Output a common block. */
-#undef ASM_OUTPUT_COMMON
-#define ASM_OUTPUT_COMMON(STREAM, NAME, SIZE, ROUNDED) \
-do { \
- if (arm_dllexport_name_p (NAME)) \
- { \
- drectve_section (); \
- fprintf ((STREAM), "\t.ascii \" -export:%s\"\n", \
- ARM_STRIP_NAME_ENCODING (NAME)); \
- } \
- if (! arm_dllimport_name_p (NAME)) \
- { \
- fprintf ((STREAM), "\t.comm\t"); \
- assemble_name ((STREAM), (NAME)); \
- fprintf ((STREAM), ", %d\t%s %d\n", \
- (ROUNDED), ASM_COMMENT_START, (SIZE)); \
- } \
-} while (0)
-
-/* Output the label for an initialized variable. */
-#undef ASM_DECLARE_OBJECT_NAME
-#define ASM_DECLARE_OBJECT_NAME(STREAM, NAME, DECL) \
-do { \
- if (arm_dllexport_name_p (NAME)) \
- { \
- enum in_section save_section = in_section; \
- drectve_section (); \
- fprintf (STREAM, "\t.ascii \" -export:%s\"\n", \
- ARM_STRIP_NAME_ENCODING (NAME)); \
- switch_to_section (save_section, (DECL)); \
- } \
- ASM_OUTPUT_LABEL ((STREAM), (NAME)); \
-} while (0)
-\f
-/* Support the ctors/dtors and other sections. */
-
-#define DRECTVE_SECTION_ASM_OP "\t.section .drectve"
-
-/* A list of other sections which the compiler might be "in" at any
- given time. */
-
-#undef SUBTARGET_EXTRA_SECTIONS
-#define SUBTARGET_EXTRA_SECTIONS in_drectve,
-
-/* A list of extra section function definitions. */
-
-#undef SUBTARGET_EXTRA_SECTION_FUNCTIONS
-#define SUBTARGET_EXTRA_SECTION_FUNCTIONS \
- DRECTVE_SECTION_FUNCTION \
- SWITCH_TO_SECTION_FUNCTION
-
-#define DRECTVE_SECTION_FUNCTION \
-void \
-drectve_section () \
-{ \
- if (in_section != in_drectve) \
- { \
- fprintf (asm_out_file, "%s\n", DRECTVE_SECTION_ASM_OP); \
- in_section = in_drectve; \
- } \
-}
-
-/* Switch to SECTION (an `enum in_section').
-
- ??? This facility should be provided by GCC proper.
- The problem is that we want to temporarily switch sections in
- ASM_DECLARE_OBJECT_NAME and then switch back to the original section
- afterwards. */
-#define SWITCH_TO_SECTION_FUNCTION \
-void \
-switch_to_section (section, decl) \
- enum in_section section; \
- tree decl; \
-{ \
- switch (section) \
- { \
- case in_text: text_section (); break; \
- case in_data: data_section (); break; \
- case in_named: named_section (decl, NULL, 0); break; \
- case in_rdata: rdata_section (); break; \
- case in_ctors: ctors_section (); break; \
- case in_dtors: dtors_section (); break; \
- case in_drectve: drectve_section (); break; \
- default: abort (); break; \
- } \
-}
-
-
-\f
-extern int thumb_pe_valid_machine_decl_attribute ();
git://gcc.gnu.org / gcc.git / commitdiff