contrib/gcc/config/arm/pe.h

   1 /* Definitions of target machine for GNU compiler, for ARM with PE obj format.
   2    Copyright (C) 1995, 1996, 1999, 2000, 2002, 2003 Free Software Foundation, Inc.
   3    Contributed by Doug Evans (dje@cygnus.com).
   4
   5    This file is part of GCC.
   6
   7    GCC is free software; you can redistribute it and/or modify it
   8    under the terms of the GNU General Public License as published
   9    by the Free Software Foundation; either version 2, or (at your
  10    option) any later version.
  11
  12    GCC is distributed in the hope that it will be useful, but WITHOUT
  13    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  14    or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
  15    License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with GCC; see the file COPYING.  If not, write to
  19    the Free Software Foundation, 59 Temple Place - Suite 330,
  20    Boston, MA 02111-1307, USA.  */
  21
  22 /* Enable PE specific code.  */
  23 #define ARM_PE          1
  24
  25 #define ARM_PE_FLAG_CHAR '@'
  26
  27 /* Ensure that @x. will be stripped from the function name.  */
  28 #undef SUBTARGET_NAME_ENCODING_LENGTHS
  29 #define SUBTARGET_NAME_ENCODING_LENGTHS  \
  30   case ARM_PE_FLAG_CHAR: return 3;
  31
  32 #undef  USER_LABEL_PREFIX
  33 #define USER_LABEL_PREFIX "_"
  34
  35 \f
  36 /* Run-time Target Specification.  */
  37 #undef  TARGET_VERSION
  38 #define TARGET_VERSION fputs (" (ARM/pe)", stderr)
  39
  40 /* Get tree.c to declare a target-specific specialization of
  41    merge_decl_attributes.  */
  42 #define TARGET_DLLIMPORT_DECL_ATTRIBUTES
  43
  44 /* Support the __declspec keyword by turning them into attributes.
  45    We currently only support: naked, dllimport, and dllexport.
  46    Note that the current way we do this may result in a collision with
  47    predefined attributes later on.  This can be solved by using one attribute,
  48    say __declspec__, and passing args to it.  The problem with that approach
  49    is that args are not accumulated: each new appearance would clobber any
  50    existing args.  */
  51 #undef  SUBTARGET_CPP_SPEC
  52 #define SUBTARGET_CPP_SPEC "-D__pe__ -D__declspec(x)=__attribute__((x))"
  53
  54
  55 /* Experimental addition for pr 7885.
  56    Ignore dllimport for functions.  */
  57 #define TARGET_FLAG_NOP_FUN     (1 << 24)
  58
  59 #undef  TARGET_NOP_FUN_DLLIMPORT
  60 #define TARGET_NOP_FUN_DLLIMPORT (target_flags & TARGET_FLAG_NOP_FUN)
  61
  62 #undef  SUBTARGET_SWITCHES
  63 #define SUBTARGET_SWITCHES                                      \
  64 { "nop-fun-dllimport",            TARGET_FLAG_NOP_FUN,          \
  65   N_("Ignore dllimport attribute for functions") },             \
  66 { "no-nop-fun-dllimport",       - TARGET_FLAG_NOP_FUN, "" },
  67
  68 /* Defaulting to APCS-26 support is a legacy issue.   It has been done
  69    that way for a long time, so changing it will probably break some
  70    people's worlds.  Support for APCS-32 is now enabled as a multilib,
  71    and at some point in the future APCS-32 may become the default.
  72    Possibly when chips that support APCS-26 are no longer made.  */
  73
  74 #undef  TARGET_DEFAULT
  75 #define TARGET_DEFAULT  (ARM_FLAG_SOFT_FLOAT | TARGET_FLAG_NOP_FUN | ARM_FLAG_MMU_TRAPS)
  76
  77 #undef  MULTILIB_DEFAULTS
  78 #define MULTILIB_DEFAULTS \
  79   { "marm", "mlittle-endian", "msoft-float", "mapcs-26", "mno-thumb-interwork" }
  80 \f
  81 #undef  WCHAR_TYPE
  82 #define WCHAR_TYPE      "short unsigned int"
  83 #undef  WCHAR_TYPE_SIZE
  84 #define WCHAR_TYPE_SIZE 16
  85
  86 /* r11 is fixed.  */
  87 #undef  SUBTARGET_CONDITIONAL_REGISTER_USAGE
  88 #define SUBTARGET_CONDITIONAL_REGISTER_USAGE \
  89   fixed_regs [11] = 1; \
  90   call_used_regs [11] = 1;
  91
  92 \f
  93 /* Define this macro if in some cases global symbols from one translation
  94    unit may not be bound to undefined symbols in another translation unit
  95    without user intervention.  For instance, under Microsoft Windows
  96    symbols must be explicitly imported from shared libraries (DLLs).  */
  97 #define MULTIPLE_SYMBOL_SPACES
  98
  99 #define TARGET_ASM_UNIQUE_SECTION arm_pe_unique_section
 100
 101 #define SUPPORTS_ONE_ONLY 1
 102
 103 /* Switch into a generic section.  */
 104 #undef  TARGET_ASM_NAMED_SECTION
 105 #define TARGET_ASM_NAMED_SECTION  default_pe_asm_named_section
 106 \f
 107 #define TARGET_ASM_FILE_START_FILE_DIRECTIVE true
 108
 109 /* Output a reference to a label.  */
 110 #undef  ASM_OUTPUT_LABELREF
 111 #define ASM_OUTPUT_LABELREF(STREAM, NAME)  \
 112   asm_fprintf (STREAM, "%U%s", arm_strip_name_encoding (NAME))
 113
 114 /* Output a function definition label.  */
 115 #undef  ASM_DECLARE_FUNCTION_NAME
 116 #define ASM_DECLARE_FUNCTION_NAME(STREAM, NAME, DECL)           \
 117   do                                                            \
 118     {                                                           \
 119       if (arm_dllexport_name_p (NAME))                          \
 120         {                                                       \
 121           drectve_section ();                                   \
 122           fprintf (STREAM, "\t.ascii \" -export:%s\"\n",        \
 123                    arm_strip_name_encoding (NAME));             \
 124           function_section (DECL);                              \
 125         }                                                       \
 126       ARM_DECLARE_FUNCTION_NAME (STREAM, NAME, DECL);           \
 127       if (TARGET_THUMB)                                         \
 128         fprintf (STREAM, "\t.code 16\n");                       \
 129       ASM_OUTPUT_LABEL (STREAM, NAME);                          \
 130     }                                                           \
 131   while (0)
 132
 133 /* Output a common block.  */
 134 #undef  ASM_OUTPUT_COMMON
 135 #define ASM_OUTPUT_COMMON(STREAM, NAME, SIZE, ROUNDED)  \
 136   do                                                    \
 137     {                                                   \
 138       if (arm_dllexport_name_p (NAME))                  \
 139         {                                               \
 140           drectve_section ();                           \
 141           fprintf ((STREAM), "\t.ascii \" -export:%s\"\n",\
 142                    arm_strip_name_encoding (NAME));     \
 143         }                                               \
 144       if (! arm_dllimport_name_p (NAME))                \
 145         {                                               \
 146           fprintf ((STREAM), "\t.comm\t");              \
 147           assemble_name ((STREAM), (NAME));             \
 148           asm_fprintf ((STREAM), ", %d\t%@ %d\n",       \
 149                    (int)(ROUNDED), (int)(SIZE));        \
 150         }                                               \
 151     }                                                   \
 152   while (0)
 153
 154 /* Output the label for an initialized variable.  */
 155 #undef  ASM_DECLARE_OBJECT_NAME
 156 #define ASM_DECLARE_OBJECT_NAME(STREAM, NAME, DECL)     \
 157   do                                                    \
 158     {                                                   \
 159       if (arm_dllexport_name_p (NAME))                  \
 160         {                                               \
 161           enum in_section save_section = in_section;    \
 162           drectve_section ();                           \
 163           fprintf (STREAM, "\t.ascii \" -export:%s\"\n",\
 164                    arm_strip_name_encoding (NAME));     \
 165           switch_to_section (save_section, (DECL));     \
 166         }                                               \
 167       ASM_OUTPUT_LABEL ((STREAM), (NAME));              \
 168     }                                                   \
 169   while (0)
 170 \f
 171 /* Support the ctors/dtors and other sections.  */
 172
 173 #define DRECTVE_SECTION_ASM_OP  "\t.section .drectve"
 174
 175 /* A list of other sections which the compiler might be "in" at any
 176    given time.  */
 177
 178 #undef  EXTRA_SECTIONS
 179 #define EXTRA_SECTIONS in_drectve
 180
 181 /* A list of extra section function definitions.  */
 182
 183 #undef  EXTRA_SECTION_FUNCTIONS
 184 #define EXTRA_SECTION_FUNCTIONS \
 185   DRECTVE_SECTION_FUNCTION      \
 186   SWITCH_TO_SECTION_FUNCTION
 187
 188 #define DRECTVE_SECTION_FUNCTION \
 189 void                                                                    \
 190 drectve_section (void)                                                  \
 191 {                                                                       \
 192   if (in_section != in_drectve)                                         \
 193     {                                                                   \
 194       fprintf (asm_out_file, "%s\n", DRECTVE_SECTION_ASM_OP);           \
 195       in_section = in_drectve;                                          \
 196     }                                                                   \
 197 }
 198
 199 /* Switch to SECTION (an `enum in_section').
 200
 201    ??? This facility should be provided by GCC proper.
 202    The problem is that we want to temporarily switch sections in
 203    ASM_DECLARE_OBJECT_NAME and then switch back to the original section
 204    afterwards.  */
 205 #define SWITCH_TO_SECTION_FUNCTION                              \
 206 static void                                                     \
 207 switch_to_section (enum in_section section, tree decl)          \
 208 {                                                               \
 209   switch (section)                                              \
 210     {                                                           \
 211       case in_text: text_section (); break;                     \
 212       case in_data: data_section (); break;                     \
 213       case in_named: named_section (decl, NULL, 0); break;      \
 214       case in_readonly_data: readonly_data_section (); break;   \
 215       case in_ctors: ctors_section (); break;                   \
 216       case in_dtors: dtors_section (); break;                   \
 217       case in_drectve: drectve_section (); break;               \
 218       default: abort (); break;                                 \
 219     }                                                           \
 220 }
 221