ld/emultempl/armcoff.em

   1 # This shell script emits a C file. -*- C -*-
   2 # It does some substitutions.
   3 fragment <<EOF
   4 /* This file is is generated by a shell script.  DO NOT EDIT! */
   5
   6 /* emulate the original gld for the given ${EMULATION_NAME}
   7    Copyright 1991, 1993, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
   8    2004, 2005, 2007, 2008 Free Software Foundation, Inc.
   9    Written by Steve Chamberlain steve@cygnus.com
  10
  11    This file is part of the GNU Binutils.
  12
  13    This program is free software; you can redistribute it and/or modify
  14    it under the terms of the GNU General Public License as published by
  15    the Free Software Foundation; either version 3 of the License, or
  16    (at your option) any later version.
  17
  18    This program is distributed in the hope that it will be useful,
  19    but WITHOUT ANY WARRANTY; without even the implied warranty of
  20    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21    GNU General Public License for more details.
  22
  23    You should have received a copy of the GNU General Public License
  24    along with this program; if not, write to the Free Software
  25    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  26    MA 02110-1301, USA.  */
  27
  28 #define TARGET_IS_${EMULATION_NAME}
  29
  30 #include "sysdep.h"
  31 #include "bfd.h"
  32 #include "bfdlink.h"
  33 #include "getopt.h"
  34
  35 #include "ld.h"
  36 #include "ldmain.h"
  37 #include "ldmisc.h"
  38
  39 #include "ldexp.h"
  40 #include "ldlang.h"
  41 #include "ldfile.h"
  42 #include "ldemul.h"
  43
  44 /* If TRUE, then interworking stubs which support calls to old,
  45    non-interworking aware ARM code should be generated.  */
  46
  47 static int support_old_code = 0;
  48 static char * thumb_entry_symbol = NULL;
  49
  50 #define OPTION_SUPPORT_OLD_CODE         300
  51 #define OPTION_THUMB_ENTRY              301
  52
  53 static void
  54 gld${EMULATION_NAME}_add_options
  55   (int ns ATTRIBUTE_UNUSED, char **shortopts ATTRIBUTE_UNUSED, int nl,
  56    struct option **longopts, int nrl ATTRIBUTE_UNUSED,
  57    struct option **really_longopts ATTRIBUTE_UNUSED)
  58 {
  59   static const struct option xtra_long[] = {
  60     {"support-old-code", no_argument, NULL, OPTION_SUPPORT_OLD_CODE},
  61     {"thumb-entry", required_argument, NULL, OPTION_THUMB_ENTRY},
  62     {NULL, no_argument, NULL, 0}
  63   };
  64
  65   *longopts = xrealloc (*longopts,
  66                         nl * sizeof (struct option) + sizeof (xtra_long));
  67   memcpy (*longopts + nl, &xtra_long, sizeof (xtra_long));
  68 }
  69
  70 static void
  71 gld${EMULATION_NAME}_list_options (FILE *file)
  72 {
  73   fprintf (file, _("  --support-old-code          Support interworking with old code\n"));
  74   fprintf (file, _("  --thumb-entry=<sym>         Set the entry point to be Thumb symbol <sym>\n"));
  75 }
  76
  77 static bfd_boolean
  78 gld${EMULATION_NAME}_handle_option (int optc)
  79 {
  80   switch (optc)
  81     {
  82     default:
  83       return FALSE;
  84
  85     case OPTION_SUPPORT_OLD_CODE:
  86       support_old_code = 1;
  87       break;
  88
  89     case OPTION_THUMB_ENTRY:
  90       thumb_entry_symbol = optarg;
  91       break;
  92     }
  93
  94   return TRUE;
  95 }
  96 \f
  97 static void
  98 gld${EMULATION_NAME}_before_parse (void)
  99 {
 100 #ifndef TARGET_                 /* I.e., if not generic.  */
 101   ldfile_set_output_arch ("`echo ${ARCH}`", bfd_arch_unknown);
 102 #endif /* not TARGET_ */
 103 }
 104
 105 /* This is called after the sections have been attached to output
 106    sections, but before any sizes or addresses have been set.  */
 107
 108 static void
 109 gld${EMULATION_NAME}_before_allocation (void)
 110 {
 111   /* we should be able to set the size of the interworking stub section */
 112
 113   /* Here we rummage through the found bfds to collect glue information */
 114   /* FIXME: should this be based on a command line option? krk@cygnus.com */
 115   {
 116     LANG_FOR_EACH_INPUT_STATEMENT (is)
 117       {
 118         if (! bfd_arm_process_before_allocation
 119             (is->the_bfd, & link_info, support_old_code))
 120           {
 121             /* xgettext:c-format */
 122             einfo (_("Errors encountered processing file %s"), is->filename);
 123           }
 124       }
 125   }
 126
 127   /* We have seen it all. Allocate it, and carry on */
 128   bfd_arm_allocate_interworking_sections (& link_info);
 129
 130   before_allocation_default ();
 131 }
 132
 133 static void
 134 gld${EMULATION_NAME}_after_open (void)
 135 {
 136   if (strstr (bfd_get_target (link_info.output_bfd), "arm") == NULL)
 137     {
 138       /* The arm backend needs special fields in the output hash structure.
 139          These will only be created if the output format is an arm format,
 140          hence we do not support linking and changing output formats at the
 141          same time.  Use a link followed by objcopy to change output formats.  */
 142       einfo ("%F%X%P: error: cannot change output format whilst linking ARM binaries\n");
 143       return;
 144     }
 145
 146   {
 147     LANG_FOR_EACH_INPUT_STATEMENT (is)
 148       {
 149         if (bfd_arm_get_bfd_for_interworking (is->the_bfd, & link_info))
 150           break;
 151       }
 152   }
 153 }
 154
 155 static void
 156 gld${EMULATION_NAME}_finish (void)
 157 {
 158   if (thumb_entry_symbol != NULL)
 159     {
 160       struct bfd_link_hash_entry * h;
 161
 162       h = bfd_link_hash_lookup (link_info.hash, thumb_entry_symbol,
 163                                 FALSE, FALSE, TRUE);
 164
 165       if (h != (struct bfd_link_hash_entry *) NULL
 166           && (h->type == bfd_link_hash_defined
 167               || h->type == bfd_link_hash_defweak)
 168           && h->u.def.section->output_section != NULL)
 169         {
 170           static char buffer[32];
 171           bfd_vma val;
 172
 173           /* Special procesing is required for a Thumb entry symbol.  The
 174              bottom bit of its address must be set.  */
 175           val = (h->u.def.value
 176                  + bfd_get_section_vma (link_info.output_bfd,
 177                                         h->u.def.section->output_section)
 178                  + h->u.def.section->output_offset);
 179
 180           val |= 1;
 181
 182           /* Now convert this value into a string and store it in entry_symbol
 183              where the lang_finish() function will pick it up.  */
 184           buffer[0] = '0';
 185           buffer[1] = 'x';
 186
 187           sprintf_vma (buffer + 2, val);
 188
 189           if (entry_symbol.name != NULL && entry_from_cmdline)
 190             einfo (_("%P: warning: '--thumb-entry %s' is overriding '-e %s'\n"),
 191                    thumb_entry_symbol, entry_symbol.name);
 192           entry_symbol.name = buffer;
 193         }
 194       else
 195         einfo (_("%P: warning: cannot find thumb start symbol %s\n"),
 196                thumb_entry_symbol);
 197     }
 198
 199   finish_default ();
 200 }
 201
 202 static char *
 203 gld${EMULATION_NAME}_get_script (int *isfile)
 204 EOF
 205
 206 if test -n "$COMPILE_IN"
 207 then
 208 # Scripts compiled in.
 209
 210 # sed commands to quote an ld script as a C string.
 211 sc="-f stringify.sed"
 212
 213 fragment <<EOF
 214 {
 215   *isfile = 0;
 216
 217   if (link_info.relocatable && config.build_constructors)
 218     return
 219 EOF
 220 sed $sc ldscripts/${EMULATION_NAME}.xu                 >> e${EMULATION_NAME}.c
 221 echo '  ; else if (link_info.relocatable) return'     >> e${EMULATION_NAME}.c
 222 sed $sc ldscripts/${EMULATION_NAME}.xr                 >> e${EMULATION_NAME}.c
 223 echo '  ; else if (!config.text_read_only) return'     >> e${EMULATION_NAME}.c
 224 sed $sc ldscripts/${EMULATION_NAME}.xbn                >> e${EMULATION_NAME}.c
 225 echo '  ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c
 226 sed $sc ldscripts/${EMULATION_NAME}.xn                 >> e${EMULATION_NAME}.c
 227 echo '  ; else return'                                 >> e${EMULATION_NAME}.c
 228 sed $sc ldscripts/${EMULATION_NAME}.x                  >> e${EMULATION_NAME}.c
 229 echo '; }'                                             >> e${EMULATION_NAME}.c
 230
 231 else
 232 # Scripts read from the filesystem.
 233
 234 fragment <<EOF
 235 {
 236   *isfile = 1;
 237
 238   if (link_info.relocatable && config.build_constructors)
 239     return "ldscripts/${EMULATION_NAME}.xu";
 240   else if (link_info.relocatable)
 241     return "ldscripts/${EMULATION_NAME}.xr";
 242   else if (!config.text_read_only)
 243     return "ldscripts/${EMULATION_NAME}.xbn";
 244   else if (!config.magic_demand_paged)
 245     return "ldscripts/${EMULATION_NAME}.xn";
 246   else
 247     return "ldscripts/${EMULATION_NAME}.x";
 248 }
 249 EOF
 250
 251 fi
 252
 253 fragment <<EOF
 254
 255 struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
 256 {
 257   gld${EMULATION_NAME}_before_parse,
 258   syslib_default,
 259   hll_default,
 260   after_parse_default,
 261   gld${EMULATION_NAME}_after_open,
 262   after_allocation_default,
 263   set_output_arch_default,
 264   ldemul_default_target,
 265   gld${EMULATION_NAME}_before_allocation,
 266   gld${EMULATION_NAME}_get_script,
 267   "${EMULATION_NAME}",
 268   "${OUTPUT_FORMAT}",
 269   gld${EMULATION_NAME}_finish,
 270   NULL, /* create output section statements */
 271   NULL, /* open dynamic archive */
 272   NULL, /* place orphan */
 273   NULL, /* set symbols */
 274   NULL, /* parse_args */
 275   gld${EMULATION_NAME}_add_options,
 276   gld${EMULATION_NAME}_handle_option,
 277   NULL, /* unrecognised file */
 278   gld${EMULATION_NAME}_list_options,
 279   NULL, /* recognized file */
 280   NULL, /* find_potential_libraries */
 281   NULL  /* new_vers_pattern */
 282 };
 283 EOF