bfd/
[deliverable/binutils-gdb.git] / ld / emultempl / pe.em
index 7152055024e14fea8be4b122e4d92c648a829286..89c521d9e9e5a73a1959ebc0f5869ce38f6a9ef5 100644 (file)
@@ -1,5 +1,6 @@
 # This shell script emits a C file. -*- C -*-
 # It does some substitutions.
+test -z "${ENTRY}" && ENTRY="_mainCRTStartup"
 if [ -z "$MACHINE" ]; then
   OUTPUT_ARCH=${ARCH}
 else
@@ -7,14 +8,15 @@ else
 fi
 rm -f e${EMULATION_NAME}.c
 (echo;echo;echo;echo;echo)>e${EMULATION_NAME}.c # there, now line numbers match ;-)
-cat >>e${EMULATION_NAME}.c <<EOF
-/* This file is part of GLD, the Gnu Linker.
-   Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
-   Free Software Foundation, Inc.
+fragment <<EOF
+/* Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+
+   This file is part of the GNU Binutils.
 
    This program 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 of the License, or
+   the Free Software Foundation; either version 3 of the License, or
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,
@@ -24,7 +26,9 @@ cat >>e${EMULATION_NAME}.c <<EOF
 
    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
-   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
+   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
+   MA 02110-1301, USA.  */
+
 
 /* For WINDOWS_NT */
 /* The original file generated returned different default scripts depending
@@ -36,17 +40,20 @@ cat >>e${EMULATION_NAME}.c <<EOF
 #define TARGET_IS_${EMULATION_NAME}
 
 /* Do this before including bfd.h, so we prototype the right functions.  */
-#ifdef TARGET_IS_arm_epoc_pe
-#define bfd_arm_pe_allocate_interworking_sections \
-       bfd_arm_epoc_pe_allocate_interworking_sections
-#define bfd_arm_pe_get_bfd_for_interworking \
-       bfd_arm_epoc_pe_get_bfd_for_interworking
-#define bfd_arm_pe_process_before_allocation \
-       bfd_arm_epoc_pe_process_before_allocation
+
+#if defined(TARGET_IS_armpe) \
+    || defined(TARGET_IS_arm_epoc_pe) \
+    || defined(TARGET_IS_arm_wince_pe)
+#define bfd_arm_allocate_interworking_sections \
+       bfd_${EMULATION_NAME}_allocate_interworking_sections
+#define bfd_arm_get_bfd_for_interworking \
+       bfd_${EMULATION_NAME}_get_bfd_for_interworking
+#define bfd_arm_process_before_allocation \
+       bfd_${EMULATION_NAME}_process_before_allocation
 #endif
 
-#include "bfd.h"
 #include "sysdep.h"
+#include "bfd.h"
 #include "bfdlink.h"
 #include "getopt.h"
 #include "libiberty.h"
@@ -84,10 +91,12 @@ cat >>e${EMULATION_NAME}.c <<EOF
 #define PE_DEF_SECTION_ALIGNMENT ${OVERRIDE_SECTION_ALIGNMENT}
 #endif
 
-#if defined(TARGET_IS_i386pe)
-#define DLL_SUPPORT
-#endif
-#if defined(TARGET_IS_shpe) || defined(TARGET_IS_mipspe) || defined(TARGET_IS_armpe)
+#if defined(TARGET_IS_i386pe) \
+    || defined(TARGET_IS_shpe) \
+    || defined(TARGET_IS_mipspe) \
+    || defined(TARGET_IS_armpe) \
+    || defined(TARGET_IS_arm_epoc_pe) \
+    || defined(TARGET_IS_arm_wince_pe)
 #define DLL_SUPPORT
 #endif
 
@@ -98,7 +107,8 @@ cat >>e${EMULATION_NAME}.c <<EOF
 #undef PE_DEF_SECTION_ALIGNMENT
 #undef PE_DEF_FILE_ALIGNMENT
 #define NT_EXE_IMAGE_BASE              0x00010000
-#ifdef TARGET_IS_armpe
+
+#if defined(TARGET_IS_armpe) || defined(TARGET_IS_arm_wince_pe)
 #define PE_DEF_SECTION_ALIGNMENT       0x00001000
 #define        PE_DEF_SUBSYSTEM                9
 #else
@@ -108,6 +118,7 @@ cat >>e${EMULATION_NAME}.c <<EOF
 #define PE_DEF_FILE_ALIGNMENT          0x00000200
 #endif
 
+#define U(S) ${INITIAL_SYMBOL_CHAR} S
 
 static struct internal_extra_pe_aouthdr pe;
 static int dll;
@@ -135,14 +146,16 @@ gld_${EMULATION_NAME}_before_parse (void)
   config.dynamic_link = TRUE;
   config.has_shared = 1;
   link_info.pei386_auto_import = -1;
-  link_info.pei386_runtime_pseudo_reloc = FALSE;
+  link_info.pei386_runtime_pseudo_reloc = -1;
 
 #if (PE_DEF_SUBSYSTEM == 9) || (PE_DEF_SUBSYSTEM == 2)
-#if defined TARGET_IS_mipspe || defined TARGET_IS_armpe
-  lang_add_entry ("WinMainCRTStartup", FALSE);
+#if defined TARGET_IS_mipspe || defined TARGET_IS_armpe || defined TARGET_IS_arm_wince_pe
+  lang_default_entry ("WinMainCRTStartup");
 #else
-  lang_add_entry ("_WinMainCRTStartup", FALSE);
+  lang_default_entry ("_WinMainCRTStartup");
 #endif
+#else
+  lang_default_entry ("${ENTRY}");
 #endif
 #endif
 }
@@ -273,14 +286,16 @@ static definfo init[] =
   D(ImageBase,"__image_base__", NT_EXE_IMAGE_BASE),
 #define DLLOFF 1
   {&dll, sizeof(dll), 0, "__dll__", 0},
+#define MSIMAGEBASEOFF 2
+  D(ImageBase, U ("__ImageBase"), NT_EXE_IMAGE_BASE),
   D(SectionAlignment,"__section_alignment__", PE_DEF_SECTION_ALIGNMENT),
   D(FileAlignment,"__file_alignment__", PE_DEF_FILE_ALIGNMENT),
   D(MajorOperatingSystemVersion,"__major_os_version__", 4),
   D(MinorOperatingSystemVersion,"__minor_os_version__", 0),
   D(MajorImageVersion,"__major_image_version__", 1),
   D(MinorImageVersion,"__minor_image_version__", 0),
-#ifdef TARGET_IS_armpe
-  D(MajorSubsystemVersion,"__major_subsystem_version__", 2),
+#if defined(TARGET_IS_armpe)  || defined(TARGET_IS_arm_wince_pe)
+  D(MajorSubsystemVersion,"__major_subsystem_version__", 3),
 #else
   D(MajorSubsystemVersion,"__major_subsystem_version__", 4),
 #endif
@@ -361,6 +376,8 @@ set_pe_name (char *name, long val)
        {
          init[i].value = val;
          init[i].inited = 1;
+         if (strcmp (name,"__image_base__") == 0)
+           set_pe_name (U ("__ImageBase"), val);
          return;
        }
     }
@@ -391,7 +408,7 @@ set_pe_subsystem (void)
       { "windows", 2, "WinMainCRTStartup" },
       { "console", 3, "mainCRTStartup" },
       { "posix",   7, "__PosixProcessStartup"},
-      { "wince",   9, "_WinMainCRTStartup" },
+      { "wince",   9, "WinMainCRTStartup" },
       { "xbox",   14, "mainCRTStartup" },
       { NULL, 0, NULL }
     };
@@ -457,7 +474,7 @@ set_pe_subsystem (void)
     {
       char *alc_entry;
 
-      /* lang_add_entry expects its argument to be permanently
+      /* lang_default_entry expects its argument to be permanently
         allocated, so we don't free this string.  */
       alc_entry = xmalloc (strlen (initial_symbol_char)
                           + strlen (entry)
@@ -467,7 +484,7 @@ set_pe_subsystem (void)
       entry = alc_entry;
     }
 
-  lang_add_entry (entry, TRUE);
+  lang_default_entry (entry);
 
   return;
 }
@@ -667,7 +684,7 @@ static unsigned long
 compute_dll_image_base (const char *ofile)
 {
   unsigned long hash = strhash (ofile);
-  return 0x60000000 | ((hash << 16) & 0x0FFC0000);
+  return 0x61300000 + ((hash << 16) & 0x0FFC0000);
 }
 #endif
 
@@ -695,6 +712,7 @@ gld_${EMULATION_NAME}_set_symbols (void)
 #endif
       else
        init[IMAGEBASEOFF].value = NT_EXE_IMAGE_BASE;
+      init[MSIMAGEBASEOFF].value = init[IMAGEBASEOFF].value;
     }
 
   /* Don't do any symbol assignments if this is a relocatable link.  */
@@ -867,7 +885,7 @@ make_import_fixup (arelent *rel, asection *s)
 
   if (pe_dll_extra_pe_debug)
     printf ("arelent: %s@%#lx: add=%li\n", sym->name,
-           (long) rel->address, (long) rel->addend);
+           (unsigned long) rel->address, (long) rel->addend);
 
   if (! bfd_get_section_contents (s->owner, s, addend, rel->address, sizeof (addend)))
     einfo (_("%C: Cannot get section contents - auto-import exception\n"),
@@ -904,27 +922,43 @@ pe_find_data_imports (void)
            {
              bfd *b = sym->u.def.section->owner;
              asymbol **symbols;
-             int nsyms, symsize, i;
+             int nsyms, i;
 
              if (link_info.pei386_auto_import == -1)
-               info_msg (_("Info: resolving %s by linking to %s (auto-import)\n"),
-                         undef->root.string, buf);
+               {
+                 static bfd_boolean warned = FALSE;
 
-             symsize = bfd_get_symtab_upper_bound (b);
-             symbols = (asymbol **) xmalloc (symsize);
-             nsyms = bfd_canonicalize_symtab (b, symbols);
+                 info_msg (_("Info: resolving %s by linking to %s (auto-import)\n"),
+                           undef->root.string, buf);
+
+                 /* PR linker/4844.  */
+                 if (! warned)
+                   {
+                     warned = TRUE;
+                     einfo (_("%P: warning: auto-importing has been activated without --enable-auto-import specified on the command line.\n\
+This should work unless it involves constant data structures referencing symbols from auto-imported DLLs.\n"));
+                   }
+               }
+
+             if (!bfd_generic_link_read_symbols (b))
+               {
+                 einfo (_("%B%F: could not read symbols: %E\n"), b);
+                 return;
+               }
+
+             symbols = bfd_get_outsymbols (b);
+             nsyms = bfd_get_symcount (b);
 
              for (i = 0; i < nsyms; i++)
                {
-                 if (memcmp (symbols[i]->name, "__head_",
-                             sizeof ("__head_") - 1))
+                 if (! CONST_STRNEQ (symbols[i]->name, U ("_head_")))
                    continue;
 
                  if (pe_dll_extra_pe_debug)
                    printf ("->%s\n", symbols[i]->name);
 
                  pe_data_import_dll = (char*) (symbols[i]->name +
-                                               sizeof ("__head_") - 1);
+                                               sizeof (U ("_head_")) - 1);
                  break;
                }
 
@@ -979,38 +1013,39 @@ gld_${EMULATION_NAME}_after_open (void)
      FIXME: This should be done via a function, rather than by
      including an internal BFD header.  */
 
-  if (coff_data (output_bfd) == NULL || coff_data (output_bfd)->pe == 0)
-    einfo (_("%F%P: PE operations on non PE file.\n"));
+  if (coff_data (link_info.output_bfd) == NULL
+      || coff_data (link_info.output_bfd)->pe == 0)
+    einfo (_("%F%P: cannot perform PE operations on non PE output file '%B'.\n"),
+          link_info.output_bfd);
 
-  pe_data (output_bfd)->pe_opthdr = pe;
-  pe_data (output_bfd)->dll = init[DLLOFF].value;
-  pe_data (output_bfd)->real_flags |= real_flags;
+  pe_data (link_info.output_bfd)->pe_opthdr = pe;
+  pe_data (link_info.output_bfd)->dll = init[DLLOFF].value;
+  pe_data (link_info.output_bfd)->real_flags |= real_flags;
 
 #ifdef DLL_SUPPORT
   if (pe_enable_stdcall_fixup) /* -1=warn or 1=disable */
     pe_fixup_stdcalls ();
 
-  pe_process_import_defs (output_bfd, & link_info);
+  pe_process_import_defs (link_info.output_bfd, &link_info);
 
   pe_find_data_imports ();
 
-#if ! (defined (TARGET_IS_i386pe) || defined (TARGET_IS_armpe))
-  if (link_info.shared)
-#else
+#if defined (TARGET_IS_i386pe) \
+    || defined (TARGET_IS_armpe) \
+    || defined (TARGET_IS_arm_epoc_pe) \
+    || defined (TARGET_IS_arm_wince_pe)
   if (!link_info.relocatable)
-#endif
-    pe_dll_build_sections (output_bfd, &link_info);
-
-#ifndef TARGET_IS_i386pe
-#ifndef TARGET_IS_armpe
+    pe_dll_build_sections (link_info.output_bfd, &link_info);
   else
-    pe_exe_build_sections (output_bfd, &link_info);
-#endif
-#endif
+    pe_exe_build_sections (link_info.output_bfd, &link_info);
+#else
+  if (link_info.shared)
+    pe_dll_build_sections (link_info.output_bfd, &link_info);
 #endif
+#endif /* DLL_SUPPORT */
 
-#if defined(TARGET_IS_armpe) || defined(TARGET_IS_arm_epoc_pe)
-  if (strstr (bfd_get_target (output_bfd), "arm") == NULL)
+#if defined(TARGET_IS_armpe) || defined(TARGET_IS_arm_epoc_pe) || defined(TARGET_IS_arm_wince_pe)
+  if (strstr (bfd_get_target (link_info.output_bfd), "arm") == NULL)
     {
       /* The arm backend needs special fields in the output hash structure.
         These will only be created if the output format is an arm format,
@@ -1023,7 +1058,7 @@ gld_${EMULATION_NAME}_after_open (void)
     /* Find a BFD that can hold the interworking stubs.  */
     LANG_FOR_EACH_INPUT_STATEMENT (is)
       {
-       if (bfd_arm_pe_get_bfd_for_interworking (is->the_bfd, & link_info))
+       if (bfd_arm_get_bfd_for_interworking (is->the_bfd, & link_info))
          break;
       }
   }
@@ -1052,7 +1087,7 @@ gld_${EMULATION_NAME}_after_open (void)
              {
                if (strcmp (sec->name, ".idata\$2") == 0)
                  idata2 = 1;
-               if (strncmp (sec->name, ".idata\$", 7) == 0)
+               if (CONST_STRNEQ (sec->name, ".idata\$"))
                  is_imp = 1;
                reloc_count += sec->reloc_count;
              }
@@ -1064,26 +1099,22 @@ gld_${EMULATION_NAME}_after_open (void)
                for (sec = is->the_bfd->sections; sec; sec = sec->next)
                  {
                    int i;
-                   long symsize;
                    long relsize;
                    asymbol **symbols;
                    arelent **relocs;
                    int nrelocs;
 
-                   symsize = bfd_get_symtab_upper_bound (is->the_bfd);
-                   if (symsize < 1)
-                     break;
                    relsize = bfd_get_reloc_upper_bound (is->the_bfd, sec);
                    if (relsize < 1)
                      break;
 
-                   symbols = (asymbol **) xmalloc (symsize);
-                   symsize = bfd_canonicalize_symtab (is->the_bfd, symbols);
-                   if (symsize < 0)
+                   if (!bfd_generic_link_read_symbols (is->the_bfd))
                      {
-                       einfo ("%X%P: unable to process symbols: %E");
+                       einfo (_("%B%F: could not read symbols: %E\n"),
+                              is->the_bfd);
                        return;
                      }
+                   symbols = bfd_get_outsymbols (is->the_bfd);
 
                    relocs = (arelent **) xmalloc ((size_t) relsize);
                    nrelocs = bfd_canonicalize_reloc (is->the_bfd, sec,
@@ -1091,7 +1122,7 @@ gld_${EMULATION_NAME}_after_open (void)
                    if (nrelocs < 0)
                      {
                        free (relocs);
-                       einfo ("%X%P: unable to process relocs: %E");
+                       einfo ("%X%P: unable to process relocs: %E\n");
                        return;
                      }
 
@@ -1242,6 +1273,77 @@ gld_${EMULATION_NAME}_after_open (void)
          }
       }
   }
+
+  {
+    /* The following chunk of code tries to identify jump stubs in
+       import libraries which are dead code and eliminates them
+       from the final link. For each exported symbol <sym>, there
+       is a object file in the import library with a .text section
+       and several .idata$* sections. The .text section contains the
+       symbol definition for <sym> which is a jump stub of the form
+       jmp *__imp_<sym>. The .idata$5 contains the symbol definition
+       for __imp_<sym> which is the address of the slot for <sym> in
+       the import address table. When a symbol is imported explicitly
+       using __declspec(dllimport) declaration, the compiler generates
+       a reference to __imp_<sym> which directly resolves to the
+       symbol in .idata$5, in which case the jump stub code is not
+       needed. The following code tries to identify jump stub sections
+       in import libraries which are not referred to by anyone and
+       marks them for exclusion from the final link.  */
+    LANG_FOR_EACH_INPUT_STATEMENT (is)
+      {
+       if (is->the_bfd->my_archive)
+         {
+           int is_imp = 0;
+           asection *sec, *stub_sec = NULL;
+
+           /* See if this is an import library thunk.  */
+           for (sec = is->the_bfd->sections; sec; sec = sec->next)
+             {
+               if (strncmp (sec->name, ".idata\$", 7) == 0)
+                 is_imp = 1;
+               /* The section containing the jmp stub has code
+                  and has a reloc.  */
+               if ((sec->flags & SEC_CODE) && sec->reloc_count)
+                 stub_sec = sec;
+             }
+
+           if (is_imp && stub_sec)
+             {
+               asymbol **symbols;
+               long nsyms, src_count;
+               struct bfd_link_hash_entry * blhe;
+
+               if (!bfd_generic_link_read_symbols (is->the_bfd))
+                 {
+                   einfo (_("%B%F: could not read symbols: %E\n"),
+                          is->the_bfd);
+                   return;
+                 }
+               symbols = bfd_get_outsymbols (is->the_bfd);
+               nsyms = bfd_get_symcount (is->the_bfd);
+
+               for (src_count = 0; src_count < nsyms; src_count++)
+                 {
+                   if (symbols[src_count]->section->id == stub_sec->id)
+                     {
+                       /* This symbol belongs to the section containing
+                          the stub.  */
+                       blhe = bfd_link_hash_lookup (link_info.hash,
+                                                    symbols[src_count]->name,
+                                                    FALSE, FALSE, TRUE);
+                       /* If the symbol in the stub section has no other
+                          undefined references, exclude the stub section
+                          from the final link.  */
+                       if (blhe && (blhe->type == bfd_link_hash_defined)
+                           && (blhe->u.undef.next == NULL))
+                         stub_sec->flags |= SEC_EXCLUDE;
+                     }
+                 }
+             }
+         }
+      }
+  }
 }
 \f
 static void
@@ -1264,7 +1366,7 @@ gld_${EMULATION_NAME}_before_allocation (void)
   ppc_allocate_toc_section (&link_info);
 #endif /* TARGET_IS_ppcpe */
 
-#if defined(TARGET_IS_armpe) || defined(TARGET_IS_arm_epoc_pe)
+#if defined(TARGET_IS_armpe) || defined(TARGET_IS_arm_epoc_pe) || defined(TARGET_IS_arm_wince_pe)
   /* FIXME: we should be able to set the size of the interworking stub
      section.
 
@@ -1274,19 +1376,21 @@ gld_${EMULATION_NAME}_before_allocation (void)
   {
     LANG_FOR_EACH_INPUT_STATEMENT (is)
       {
-       if (! bfd_arm_pe_process_before_allocation
+       if (! bfd_arm_process_before_allocation
            (is->the_bfd, & link_info, support_old_code))
          {
            /* xgettext:c-format */
-           einfo (_("Errors encountered processing file %s for interworking"),
+           einfo (_("Errors encountered processing file %s for interworking\n"),
                   is->filename);
          }
       }
   }
 
   /* We have seen it all. Allocate it, and carry on.  */
-  bfd_arm_pe_allocate_interworking_sections (& link_info);
-#endif /* TARGET_IS_armpe */
+  bfd_arm_allocate_interworking_sections (& link_info);
+#endif /* TARGET_IS_armpe || TARGET_IS_arm_epoc_pe || TARGET_IS_arm_wince_pe */
+
+  before_allocation_default ();
 }
 \f
 #ifdef DLL_SUPPORT
@@ -1333,7 +1437,7 @@ gld_${EMULATION_NAME}_unrecognized_file (lang_input_statement_type *entry ATTRIB
            {
              struct bfd_link_hash_entry *h;
 
-             sprintf (buf, "_%s", pe_def_file->exports[i].internal_name);
+             sprintf (buf, "%s%s", U (""), pe_def_file->exports[i].internal_name);
 
              h = bfd_link_hash_lookup (link_info.hash, buf, TRUE, TRUE, TRUE);
              if (h == (struct bfd_link_hash_entry *) NULL)
@@ -1353,23 +1457,16 @@ gld_${EMULATION_NAME}_unrecognized_file (lang_input_statement_type *entry ATTRIB
 
          if (pe_def_file->base_address != (bfd_vma)(-1))
            {
-             pe.ImageBase =
-               pe_data (output_bfd)->pe_opthdr.ImageBase =
-               init[IMAGEBASEOFF].value = pe_def_file->base_address;
+             pe.ImageBase
+               = pe_data (link_info.output_bfd)->pe_opthdr.ImageBase
+               = init[IMAGEBASEOFF].value
+               = pe_def_file->base_address;
              init[IMAGEBASEOFF].inited = 1;
              if (image_base_statement)
-               image_base_statement->exp =
-                 exp_assop ('=', "__image_base__", exp_intop (pe.ImageBase));
+               image_base_statement->exp = exp_assop ('=', "__image_base__",
+                                                      exp_intop (pe.ImageBase));
            }
 
-#if 0
-         /* Not sure if these *should* be set.  */
-         if (pe_def_file->version_major != -1)
-           {
-             pe.MajorImageVersion = pe_def_file->version_major;
-             pe.MinorImageVersion = pe_def_file->version_minor;
-           }
-#endif
          if (pe_def_file->stack_reserve != -1
              && ! saw_option ("__size_of_stack_reserve__"))
            {
@@ -1407,19 +1504,14 @@ gld_${EMULATION_NAME}_recognized_file (lang_input_statement_type *entry ATTRIBUT
 #ifdef TARGET_IS_armpe
   pe_dll_id_target ("pei-arm-little");
 #endif
-  if (bfd_get_format (entry->the_bfd) == bfd_object)
-    {
-      char fbuf[LD_PATHMAX + 1];
-      const char *ext;
-
-      if (REALPATH (entry->filename, fbuf) == NULL)
-       strncpy (fbuf, entry->filename, sizeof (fbuf));
-
-      ext = fbuf + strlen (fbuf) - 4;
-
-      if (strcmp (ext, ".dll") == 0 || strcmp (ext, ".DLL") == 0)
-       return pe_implied_import_dll (fbuf);
-    }
+#ifdef TARGET_IS_arm_epoc_pe
+  pe_dll_id_target ("epoc-pei-arm-little");
+#endif
+#ifdef TARGET_IS_arm_wince_pe
+  pe_dll_id_target ("pei-arm-wince-little");
+#endif
+  if (pe_bfd_is_dll (entry->the_bfd))
+    return pe_implied_import_dll (entry->filename);
 #endif
   return FALSE;
 }
@@ -1427,7 +1519,7 @@ gld_${EMULATION_NAME}_recognized_file (lang_input_statement_type *entry ATTRIBUT
 static void
 gld_${EMULATION_NAME}_finish (void)
 {
-#if defined(TARGET_IS_armpe) || defined(TARGET_IS_arm_epoc_pe)
+#if defined(TARGET_IS_armpe) || defined(TARGET_IS_arm_epoc_pe) || defined(TARGET_IS_arm_wince_pe)
   struct bfd_link_hash_entry * h;
 
   if (thumb_entry_symbol != NULL)
@@ -1446,7 +1538,7 @@ gld_${EMULATION_NAME}_finish (void)
          /* Special procesing is required for a Thumb entry symbol.  The
             bottom bit of its address must be set.  */
          val = (h->u.def.value
-                + bfd_get_section_vma (output_bfd,
+                + bfd_get_section_vma (link_info.output_bfd,
                                        h->u.def.section->output_section)
                 + h->u.def.section->output_offset);
 
@@ -1465,9 +1557,11 @@ gld_${EMULATION_NAME}_finish (void)
          entry_symbol.name = buffer;
        }
       else
-       einfo (_("%P: warning: connot find thumb start symbol %s\n"), thumb_entry_symbol);
+       einfo (_("%P: warning: cannot find thumb start symbol %s\n"), thumb_entry_symbol);
     }
-#endif /* defined(TARGET_IS_armpe) || defined(TARGET_IS_arm_epoc_pe) */
+#endif /* defined(TARGET_IS_armpe) || defined(TARGET_IS_arm_epoc_pe) || defined(TARGET_IS_arm_wince_pe) */
+
+  finish_default ();
 
 #ifdef DLL_SUPPORT
   if (link_info.shared
@@ -1476,7 +1570,7 @@ gld_${EMULATION_NAME}_finish (void)
 #endif
     )
     {
-      pe_dll_fill_sections (output_bfd, &link_info);
+      pe_dll_fill_sections (link_info.output_bfd, &link_info);
       if (pe_implib_filename)
        pe_dll_generate_implib (pe_def_file, pe_implib_filename);
     }
@@ -1484,7 +1578,7 @@ gld_${EMULATION_NAME}_finish (void)
   /* ARM doesn't need relocs.  */
   else
     {
-      pe_exe_fill_sections (output_bfd, &link_info);
+      pe_exe_fill_sections (link_info.output_bfd, &link_info);
     }
 #endif
 
@@ -1494,7 +1588,7 @@ gld_${EMULATION_NAME}_finish (void)
 
   /* I don't know where .idata gets set as code, but it shouldn't be.  */
   {
-    asection *asec = bfd_get_section_by_name (output_bfd, ".idata");
+    asection *asec = bfd_get_section_by_name (link_info.output_bfd, ".idata");
 
     if (asec)
       {
@@ -1519,24 +1613,20 @@ gld_${EMULATION_NAME}_finish (void)
    sort_sections.  */
 
 static bfd_boolean
-gld_${EMULATION_NAME}_place_orphan (lang_input_statement_type *file, asection *s)
+gld_${EMULATION_NAME}_place_orphan (asection *s, const char *secname)
 {
-  const char *secname;
-  const char *orig_secname;
+  const char *orig_secname = secname;
   char *dollar = NULL;
   lang_output_section_statement_type *os;
   lang_statement_list_type add_child;
 
-  secname = bfd_get_section_name (s->owner, s);
-
   /* Look through the script to see where to place this section.  */
-  orig_secname = secname;
   if (!link_info.relocatable
       && (dollar = strchr (secname, '$')) != NULL)
     {
-      size_t len = dollar - orig_secname;
+      size_t len = dollar - secname;
       char *newname = xmalloc (len + 1);
-      memcpy (newname, orig_secname, len);
+      memcpy (newname, secname, len);
       newname[len] = '\0';
       secname = newname;
     }
@@ -1546,17 +1636,17 @@ gld_${EMULATION_NAME}_place_orphan (lang_input_statement_type *file, asection *s
   lang_list_init (&add_child);
 
   if (os != NULL
-      && (os->bfd_section == NULL
-         || os->bfd_section->flags == 0
+      && os->bfd_section != NULL
+      && (os->bfd_section->flags == 0
          || ((s->flags ^ os->bfd_section->flags)
              & (SEC_LOAD | SEC_ALLOC)) == 0))
     {
       /* We already have an output section statement with this
-        name, and its bfd section, if any, has compatible flags.
+        name, and its bfd section has compatible flags.
         If the section already exists but does not have any flags set,
         then it has been created by the linker, probably as a result of
         a --section-start command line switch.  */
-      lang_add_section (&add_child, s, os, file);
+      lang_add_section (&add_child, s, os);
     }
   else
     {
@@ -1622,28 +1712,16 @@ gld_${EMULATION_NAME}_place_orphan (lang_input_statement_type *file, asection *s
            place->os = lang_output_section_find (place->name);
          after = place->os;
          if (after == NULL)
-           after = lang_output_section_find_by_flags (s, &place->os);
+           after = lang_output_section_find_by_flags (s, &place->os, NULL);
          if (after == NULL)
            /* *ABS* is always the first output section statement.  */
            after = (&lang_output_section_statement.head
                     ->output_section_statement);
        }
 
-      /* Choose a unique name for the section.  This will be needed if the
-        same section name appears in the input file with different
-        loadable or allocatable characteristics.  */
-      if (bfd_get_section_by_name (output_bfd, secname) != NULL)
-       {
-         static int count = 1;
-         secname = bfd_get_unique_section_name (output_bfd, secname, &count);
-         if (secname == NULL)
-           einfo ("%F%P: place_orphan failed: %E\n");
-       }
-
       /* All sections in an executable must be aligned to a page boundary.  */
       address = exp_unop (ALIGN_K, exp_nameop (NAME, "__section_alignment__"));
-      os = lang_insert_orphan (file, s, secname, after, place, address,
-                              &add_child);
+      os = lang_insert_orphan (s, secname, after, place, address, &add_child);
     }
 
   {
@@ -1666,7 +1744,7 @@ gld_${EMULATION_NAME}_place_orphan (lang_input_statement_type *file, asection *s
 
            ls = &(*pl)->input_section;
 
-           lname = bfd_get_section_name (ls->ifile->the_bfd, ls->section);
+           lname = bfd_get_section_name (ls->section->owner, ls->section);
            if (strchr (lname, '$') == NULL)
              {
                if (found_dollar)
@@ -1696,87 +1774,100 @@ gld_${EMULATION_NAME}_open_dynamic_archive
   (const char *arch ATTRIBUTE_UNUSED, search_dirs_type *search,
    lang_input_statement_type *entry)
 {
+  static const struct
+    {
+      const char * format;
+      bfd_boolean use_prefix;
+    }
+  libname_fmt [] =
+    {
+      /* Preferred explicit import library for dll's.  */
+      { "lib%s.dll.a", FALSE },
+      /* Alternate explicit import library for dll's.  */
+      { "%s.dll.a", FALSE },
+      /* "libfoo.a" could be either an import lib or a static lib.
+          For backwards compatibility, libfoo.a needs to precede
+          libfoo.dll and foo.dll in the search.  */
+      { "lib%s.a", FALSE },
+      /* The 'native' spelling of an import lib name is "foo.lib".  */
+      { "%s.lib", FALSE },
+#ifdef DLL_SUPPORT
+      /* Try "<prefix>foo.dll" (preferred dll name, if specified).  */
+      {        "%s%s.dll", TRUE },
+#endif
+      /* Try "libfoo.dll" (default preferred dll name).  */
+      {        "lib%s.dll", FALSE },
+      /* Finally try 'native' dll name "foo.dll".  */
+      {  "%s.dll", FALSE },
+      /* Note: If adding more formats to this table, make sure to check to
+        see if their length is longer than libname_fmt[0].format, and if
+        so, update the call to xmalloc() below.  */
+      { NULL, FALSE }
+    };
+  static unsigned int format_max_len = 0;
   const char * filename;
-  char * string;
+  char * full_string;
+  char * base_string;
+  unsigned int i;
+
 
   if (! entry->is_archive)
     return FALSE;
 
   filename = entry->filename;
 
-  string = (char *) xmalloc (strlen (search->name)
-                            + strlen (filename)
-                            + sizeof "/lib.a.dll"
+  if (format_max_len == 0)
+    /* We need to allow space in the memory that we are going to allocate
+       for the characters in the format string.  Since the format array is
+       static we only need to calculate this information once.  In theory
+       this value could also be computed statically, but this introduces
+       the possibility for a discrepancy and hence a possible memory
+       corruption.  The lengths we compute here will be too long because
+       they will include any formating characters (%s) in the strings, but
+       this will not matter.  */
+    for (i = 0; libname_fmt[i].format; i++)
+      if (format_max_len < strlen (libname_fmt[i].format))
+       format_max_len = strlen (libname_fmt[i].format);
+
+  full_string = xmalloc (strlen (search->name)
+                        + strlen (filename)
+                        + format_max_len
 #ifdef DLL_SUPPORT
-                            + (pe_dll_search_prefix ? strlen (pe_dll_search_prefix) : 0)
+                        + (pe_dll_search_prefix
+                           ? strlen (pe_dll_search_prefix) : 0)
 #endif
-                            + 1);
+                        /* Allow for the terminating NUL and for the path
+                           separator character that is inserted between
+                           search->name and the start of the format string.  */
+                        + 2);
 
-  /* Try "libfoo.dll.a" first (preferred explicit import library for dll's.  */
-  sprintf (string, "%s/lib%s.dll.a", search->name, filename);
+  sprintf (full_string, "%s/", search->name);
+  base_string = full_string + strlen (full_string);
 
-  if (! ldfile_try_open_bfd (string, entry))
+  for (i = 0; libname_fmt[i].format; i++)
     {
-      /* Try "foo.dll.a" next (alternate explicit import library for dll's.  */
-      sprintf (string, "%s/%s.dll.a", search->name, filename);
-      if (! ldfile_try_open_bfd (string, entry))
-       {
-         /* Try libfoo.a next. Normally, this would be interpreted as a static
-            library, but it *could* be an import library. For backwards compatibility,
-            libfoo.a needs to ==precede== libfoo.dll and foo.dll in the search,
-            or sometimes errors occur when building legacy packages.
-
-            Putting libfoo.a here means that in a failure case (i.e. the library
-            -lfoo is not found) we will search for libfoo.a twice before
-            giving up -- once here, and once when searching for a "static" lib.
-            for a "static" lib.  */
-         /* Try "libfoo.a" (import lib, or static lib, but must
-            take precedence over dll's).  */
-         sprintf (string, "%s/lib%s.a", search->name, filename);
-         if (! ldfile_try_open_bfd (string, entry))
-           {
 #ifdef DLL_SUPPORT
-             if (pe_dll_search_prefix)
-               {
-                 /* Try "<prefix>foo.dll" (preferred dll name, if specified).  */
-                 sprintf (string, "%s/%s%s.dll", search->name, pe_dll_search_prefix, filename);
-                 if (! ldfile_try_open_bfd (string, entry))
-                   {
-                     /* Try "libfoo.dll" (default preferred dll name).  */
-                     sprintf (string, "%s/lib%s.dll", search->name, filename);
-                     if (! ldfile_try_open_bfd (string, entry))
-                       {
-                         /* Finally, try "foo.dll" (alternate dll name).  */
-                         sprintf (string, "%s/%s.dll", search->name, filename);
-                         if (! ldfile_try_open_bfd (string, entry))
-                           {
-                             free (string);
-                             return FALSE;
-                           }
-                       }
-                   }
-               }
-             else /* pe_dll_search_prefix not specified.  */
-#endif
-               {
-                 /* Try "libfoo.dll" (preferred dll name).  */
-                 sprintf (string, "%s/lib%s.dll", search->name, filename);
-                 if (! ldfile_try_open_bfd (string, entry))
-                   {
-                     /* Finally, try "foo.dll" (alternate dll name).  */
-                     sprintf (string, "%s/%s.dll", search->name, filename);
-                     if (! ldfile_try_open_bfd (string, entry))
-                       {
-                         free (string);
-                         return FALSE;
-                       }
-                   }
-               }
-           }
+      if (libname_fmt[i].use_prefix)
+       {
+         if (!pe_dll_search_prefix)
+           continue;
+         sprintf (base_string, libname_fmt[i].format, pe_dll_search_prefix, filename);
        }
+      else
+#endif
+       sprintf (base_string, libname_fmt[i].format, filename);
+
+      if (ldfile_try_open_bfd (full_string, entry))
+       break;
+    }
+
+  if (!libname_fmt[i].format)
+    {
+      free (full_string);
+      return FALSE;
     }
 
-  entry->filename = string;
+  entry->filename = full_string;
 
   return TRUE;
 }
@@ -1795,7 +1886,7 @@ EOF
 # sed commands to quote an ld script as a C string.
 sc="-f stringify.sed"
 
-cat >>e${EMULATION_NAME}.c <<EOF
+fragment <<EOF
 {
   *isfile = 0;
 
@@ -1809,11 +1900,15 @@ echo '  ; else if (!config.text_read_only) return'      >> e${EMULATION_NAME}.c
 sed $sc ldscripts/${EMULATION_NAME}.xbn                        >> e${EMULATION_NAME}.c
 echo '  ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c
 sed $sc ldscripts/${EMULATION_NAME}.xn                 >> e${EMULATION_NAME}.c
+if test -n "$GENERATE_AUTO_IMPORT_SCRIPT" ; then
+echo '  ; else if (link_info.pei386_auto_import == 1) return'  >> e${EMULATION_NAME}.c
+sed $sc ldscripts/${EMULATION_NAME}.xa                 >> e${EMULATION_NAME}.c
+fi
 echo '  ; else return'                                 >> e${EMULATION_NAME}.c
 sed $sc ldscripts/${EMULATION_NAME}.x                  >> e${EMULATION_NAME}.c
 echo '; }'                                             >> e${EMULATION_NAME}.c
 
-cat >>e${EMULATION_NAME}.c <<EOF
+fragment <<EOF
 
 
 struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
This page took 0.035413 seconds and 4 git commands to generate.