ld/
[deliverable/binutils-gdb.git] / ld / emultempl / pe.em
index 87a5bc26d54966e87bd0b67b52c94b4d298f3e2b..8e52b7bc8a01e63c4ffd0a3158725d5097600e2d 100644 (file)
@@ -9,7 +9,7 @@ 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
+   Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
    Free Software Foundation, Inc.
 
    This program is free software; you can redistribute it and/or modify
@@ -62,14 +62,18 @@ cat >>e${EMULATION_NAME}.c <<EOF
 #include "ldctor.h"
 #include "coff/internal.h"
 
+/* FIXME: See bfd/peXXigen.c for why we include an architecture specific
+   header in generic PE code.  */
+#include "coff/i386.h"
+#include "coff/pe.h"
+
 /* FIXME: This is a BFD internal header file, and we should not be
    using it here.  */
 #include "../bfd/libcoff.h"
 
 #include "deffile.h"
 #include "pe-dll.h"
-
-#include <ctype.h>
+#include "safe-ctype.h"
 
 /* Permit the emulation parameters to override the default section
    alignment by setting OVERRIDE_SECTION_ALIGNMENT.  FIXME: This makes
@@ -104,45 +108,10 @@ cat >>e${EMULATION_NAME}.c <<EOF
 #define PE_DEF_FILE_ALIGNMENT          0x00000200
 #endif
 
-static void gld_${EMULATION_NAME}_set_symbols PARAMS ((void));
-static void gld_${EMULATION_NAME}_after_open PARAMS ((void));
-static void gld_${EMULATION_NAME}_before_parse PARAMS ((void));
-static void gld_${EMULATION_NAME}_after_parse PARAMS ((void));
-static void gld_${EMULATION_NAME}_before_allocation PARAMS ((void));
-static asection *output_prev_sec_find
-  PARAMS ((lang_output_section_statement_type *));
-static bfd_boolean gld_${EMULATION_NAME}_place_orphan
-  PARAMS ((lang_input_statement_type *, asection *));
-static char *gld_${EMULATION_NAME}_get_script PARAMS ((int *));
-static int gld_${EMULATION_NAME}_parse_args PARAMS ((int, char **));
-static void gld_${EMULATION_NAME}_finish PARAMS ((void));
-static bfd_boolean gld_${EMULATION_NAME}_open_dynamic_archive
-  PARAMS ((const char *, search_dirs_type *, lang_input_statement_type *));
-static void gld_${EMULATION_NAME}_list_options PARAMS ((FILE *));
-static void set_pe_name PARAMS ((char *, long));
-static void set_pe_subsystem PARAMS ((void));
-static void set_pe_value PARAMS ((char *));
-static void set_pe_stack_heap PARAMS ((char *, char *));
-
-#ifdef DLL_SUPPORT
-static bfd_boolean pe_undef_cdecl_match
-  PARAMS ((struct bfd_link_hash_entry *, PTR));
-static void pe_fixup_stdcalls PARAMS ((void));
-static int make_import_fixup PARAMS ((arelent *, asection *));
-static void pe_find_data_imports PARAMS ((void));
-#endif
-
-static bfd_boolean pr_sym PARAMS ((struct bfd_hash_entry *, PTR));
-static bfd_boolean gld_${EMULATION_NAME}_unrecognized_file
-  PARAMS ((lang_input_statement_type *));
-static bfd_boolean gld_${EMULATION_NAME}_recognized_file
-  PARAMS ((lang_input_statement_type *));
-static int gld_${EMULATION_NAME}_find_potential_libraries
-  PARAMS ((char *, lang_input_statement_type *));
-
 
 static struct internal_extra_pe_aouthdr pe;
 static int dll;
+static flagword real_flags = 0;
 static int support_old_code = 0;
 static char * thumb_entry_symbol = NULL;
 static lang_assignment_statement_type *image_base_statement = 0;
@@ -158,17 +127,9 @@ static char *pe_dll_search_prefix = NULL;
 extern const char *output_filename;
 
 static void
-gld_${EMULATION_NAME}_before_parse()
+gld_${EMULATION_NAME}_before_parse (void)
 {
-  const bfd_arch_info_type *arch = bfd_scan_arch ("${OUTPUT_ARCH}");
-  if (arch)
-    {
-      ldfile_output_architecture = arch->arch;
-      ldfile_output_machine = arch->mach;
-      ldfile_output_machine_name = arch->printable_name;
-    }
-  else
-    ldfile_output_architecture = bfd_arch_${ARCH};
+  ldfile_set_output_arch ("${OUTPUT_ARCH}", bfd_arch_`echo ${ARCH} | sed -e 's/:.*//'`);
   output_filename = "${EXECUTABLE_NAME:-a.exe}";
 #ifdef DLL_SUPPORT
   config.dynamic_link = TRUE;
@@ -178,9 +139,9 @@ gld_${EMULATION_NAME}_before_parse()
 
 #if (PE_DEF_SUBSYSTEM == 9) || (PE_DEF_SUBSYSTEM == 2)
 #if defined TARGET_IS_mipspe || defined TARGET_IS_armpe
-  lang_add_entry ("WinMainCRTStartup", 1);
+  lang_add_entry ("WinMainCRTStartup", FALSE);
 #else
-  lang_add_entry ("_WinMainCRTStartup", 1);
+  lang_add_entry ("_WinMainCRTStartup", FALSE);
 #endif
 #endif
 #endif
@@ -200,8 +161,8 @@ gld_${EMULATION_NAME}_before_parse()
 #define OPTION_MINOR_OS_VERSION                (OPTION_MINOR_IMAGE_VERSION + 1)
 #define OPTION_MINOR_SUBSYSTEM_VERSION (OPTION_MINOR_OS_VERSION + 1)
 #define OPTION_SECTION_ALIGNMENT       (OPTION_MINOR_SUBSYSTEM_VERSION + 1)
-#define OPTION_STACK                    (OPTION_SECTION_ALIGNMENT + 1)
-#define OPTION_SUBSYSTEM                (OPTION_STACK + 1)
+#define OPTION_STACK                   (OPTION_SECTION_ALIGNMENT + 1)
+#define OPTION_SUBSYSTEM               (OPTION_STACK + 1)
 #define OPTION_HEAP                    (OPTION_SUBSYSTEM + 1)
 #define OPTION_SUPPORT_OLD_CODE                (OPTION_HEAP + 1)
 #define OPTION_OUT_DEF                 (OPTION_SUPPORT_OLD_CODE + 1)
@@ -227,56 +188,69 @@ gld_${EMULATION_NAME}_before_parse()
                                        (OPTION_EXCLUDE_LIBS + 1)
 #define OPTION_DLL_DISABLE_RUNTIME_PSEUDO_RELOC        \
                                        (OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC + 1)
+#define OPTION_LARGE_ADDRESS_AWARE \
+                                       (OPTION_DLL_DISABLE_RUNTIME_PSEUDO_RELOC + 1)
 
-static struct option longopts[] = {
-  /* PE options */
-  {"base-file", required_argument, NULL, OPTION_BASE_FILE},
-  {"dll", no_argument, NULL, OPTION_DLL},
-  {"file-alignment", required_argument, NULL, OPTION_FILE_ALIGNMENT},
-  {"heap", required_argument, NULL, OPTION_HEAP},
-  {"image-base", required_argument, NULL, OPTION_IMAGE_BASE},
-  {"major-image-version", required_argument, NULL, OPTION_MAJOR_IMAGE_VERSION},
-  {"major-os-version", required_argument, NULL, OPTION_MAJOR_OS_VERSION},
-  {"major-subsystem-version", required_argument, NULL, OPTION_MAJOR_SUBSYSTEM_VERSION},
-  {"minor-image-version", required_argument, NULL, OPTION_MINOR_IMAGE_VERSION},
-  {"minor-os-version", required_argument, NULL, OPTION_MINOR_OS_VERSION},
-  {"minor-subsystem-version", required_argument, NULL, OPTION_MINOR_SUBSYSTEM_VERSION},
-  {"section-alignment", required_argument, NULL, OPTION_SECTION_ALIGNMENT},
-  {"stack", required_argument, NULL, OPTION_STACK},
-  {"subsystem", required_argument, NULL, OPTION_SUBSYSTEM},
-  {"support-old-code", no_argument, NULL, OPTION_SUPPORT_OLD_CODE},
-  {"thumb-entry", required_argument, NULL, OPTION_THUMB_ENTRY},
+static void
+gld${EMULATION_NAME}_add_options
+  (int ns ATTRIBUTE_UNUSED, char **shortopts ATTRIBUTE_UNUSED, int nl,
+    struct option **longopts, int nrl ATTRIBUTE_UNUSED,
+    struct option **really_longopts ATTRIBUTE_UNUSED)
+{
+  static const struct option xtra_long[] = {
+    /* PE options */
+    {"base-file", required_argument, NULL, OPTION_BASE_FILE},
+    {"dll", no_argument, NULL, OPTION_DLL},
+    {"file-alignment", required_argument, NULL, OPTION_FILE_ALIGNMENT},
+    {"heap", required_argument, NULL, OPTION_HEAP},
+    {"image-base", required_argument, NULL, OPTION_IMAGE_BASE},
+    {"major-image-version", required_argument, NULL, OPTION_MAJOR_IMAGE_VERSION},
+    {"major-os-version", required_argument, NULL, OPTION_MAJOR_OS_VERSION},
+    {"major-subsystem-version", required_argument, NULL, OPTION_MAJOR_SUBSYSTEM_VERSION},
+    {"minor-image-version", required_argument, NULL, OPTION_MINOR_IMAGE_VERSION},
+    {"minor-os-version", required_argument, NULL, OPTION_MINOR_OS_VERSION},
+    {"minor-subsystem-version", required_argument, NULL, OPTION_MINOR_SUBSYSTEM_VERSION},
+    {"section-alignment", required_argument, NULL, OPTION_SECTION_ALIGNMENT},
+    {"stack", required_argument, NULL, OPTION_STACK},
+    {"subsystem", required_argument, NULL, OPTION_SUBSYSTEM},
+    {"support-old-code", no_argument, NULL, OPTION_SUPPORT_OLD_CODE},
+    {"thumb-entry", required_argument, NULL, OPTION_THUMB_ENTRY},
 #ifdef DLL_SUPPORT
-  /* getopt allows abbreviations, so we do this to stop it from treating -o
-     as an abbreviation for this option */
-  {"output-def", required_argument, NULL, OPTION_OUT_DEF},
-  {"output-def", required_argument, NULL, OPTION_OUT_DEF},
-  {"export-all-symbols", no_argument, NULL, OPTION_EXPORT_ALL},
-  {"exclude-symbols", required_argument, NULL, OPTION_EXCLUDE_SYMBOLS},
-  {"exclude-libs", required_argument, NULL, OPTION_EXCLUDE_LIBS},
-  {"kill-at", no_argument, NULL, OPTION_KILL_ATS},
-  {"add-stdcall-alias", no_argument, NULL, OPTION_STDCALL_ALIASES},
-  {"enable-stdcall-fixup", no_argument, NULL, OPTION_ENABLE_STDCALL_FIXUP},
-  {"disable-stdcall-fixup", no_argument, NULL, OPTION_DISABLE_STDCALL_FIXUP},
-  {"out-implib", required_argument, NULL, OPTION_IMPLIB_FILENAME},
-  {"warn-duplicate-exports", no_argument, NULL, OPTION_WARN_DUPLICATE_EXPORTS},
-  /* getopt() allows abbreviations, so we do this to stop it from
-     treating -c as an abbreviation for these --compat-implib.  */
-  {"compat-implib", no_argument, NULL, OPTION_IMP_COMPAT},
-  {"compat-implib", no_argument, NULL, OPTION_IMP_COMPAT},
-  {"enable-auto-image-base", no_argument, NULL, OPTION_ENABLE_AUTO_IMAGE_BASE},
-  {"disable-auto-image-base", no_argument, NULL, OPTION_DISABLE_AUTO_IMAGE_BASE},
-  {"dll-search-prefix", required_argument, NULL, OPTION_DLL_SEARCH_PREFIX},
-  {"no-default-excludes", no_argument, NULL, OPTION_NO_DEFAULT_EXCLUDES},
-  {"enable-auto-import", no_argument, NULL, OPTION_DLL_ENABLE_AUTO_IMPORT},
-  {"disable-auto-import", no_argument, NULL, OPTION_DLL_DISABLE_AUTO_IMPORT},
-  {"enable-extra-pe-debug", no_argument, NULL, OPTION_ENABLE_EXTRA_PE_DEBUG},
-  {"enable-runtime-pseudo-reloc", no_argument, NULL, OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC},
-  {"disable-runtime-pseudo-reloc", no_argument, NULL, OPTION_DLL_DISABLE_RUNTIME_PSEUDO_RELOC},
+    /* getopt allows abbreviations, so we do this to stop it from treating -o
+       as an abbreviation for this option */
+    {"output-def", required_argument, NULL, OPTION_OUT_DEF},
+    {"output-def", required_argument, NULL, OPTION_OUT_DEF},
+    {"export-all-symbols", no_argument, NULL, OPTION_EXPORT_ALL},
+    {"exclude-symbols", required_argument, NULL, OPTION_EXCLUDE_SYMBOLS},
+    {"exclude-libs", required_argument, NULL, OPTION_EXCLUDE_LIBS},
+    {"kill-at", no_argument, NULL, OPTION_KILL_ATS},
+    {"add-stdcall-alias", no_argument, NULL, OPTION_STDCALL_ALIASES},
+    {"enable-stdcall-fixup", no_argument, NULL, OPTION_ENABLE_STDCALL_FIXUP},
+    {"disable-stdcall-fixup", no_argument, NULL, OPTION_DISABLE_STDCALL_FIXUP},
+    {"out-implib", required_argument, NULL, OPTION_IMPLIB_FILENAME},
+    {"warn-duplicate-exports", no_argument, NULL, OPTION_WARN_DUPLICATE_EXPORTS},
+    /* getopt() allows abbreviations, so we do this to stop it from
+       treating -c as an abbreviation for these --compat-implib.  */
+    {"compat-implib", no_argument, NULL, OPTION_IMP_COMPAT},
+    {"compat-implib", no_argument, NULL, OPTION_IMP_COMPAT},
+    {"enable-auto-image-base", no_argument, NULL, OPTION_ENABLE_AUTO_IMAGE_BASE},
+    {"disable-auto-image-base", no_argument, NULL, OPTION_DISABLE_AUTO_IMAGE_BASE},
+    {"dll-search-prefix", required_argument, NULL, OPTION_DLL_SEARCH_PREFIX},
+    {"no-default-excludes", no_argument, NULL, OPTION_NO_DEFAULT_EXCLUDES},
+    {"enable-auto-import", no_argument, NULL, OPTION_DLL_ENABLE_AUTO_IMPORT},
+    {"disable-auto-import", no_argument, NULL, OPTION_DLL_DISABLE_AUTO_IMPORT},
+    {"enable-extra-pe-debug", no_argument, NULL, OPTION_ENABLE_EXTRA_PE_DEBUG},
+    {"enable-runtime-pseudo-reloc", no_argument, NULL, OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC},
+    {"disable-runtime-pseudo-reloc", no_argument, NULL, OPTION_DLL_DISABLE_RUNTIME_PSEUDO_RELOC},
 #endif
-  {NULL, no_argument, NULL, 0}
-};
+    {"large-address-aware", no_argument, NULL, OPTION_LARGE_ADDRESS_AWARE},
+    {NULL, no_argument, NULL, 0}
+  };
 
+  *longopts = (struct option *)
+    xrealloc (*longopts, nl * sizeof (struct option) + sizeof (xtra_long));
+  memcpy (*longopts + nl, &xtra_long, sizeof (xtra_long));
+}
 
 /* PE/WIN32; added routines to get the subsystem type, heap and/or stack
    parameters which may be input from the command line.  */
@@ -322,8 +296,7 @@ static definfo init[] =
 
 
 static void
-gld_${EMULATION_NAME}_list_options (file)
-     FILE * file;
+gld_${EMULATION_NAME}_list_options (FILE *file)
 {
   fprintf (file, _("  --base_file <basefile>             Generate a base file for relocatable DLLs\n"));
   fprintf (file, _("  --dll                              Set image base to the default for DLLs\n"));
@@ -357,26 +330,27 @@ gld_${EMULATION_NAME}_list_options (file)
   fprintf (file, _("  --enable-auto-image-base           Automatically choose image base for DLLs\n\
                                        unless user specifies one\n"));
   fprintf (file, _("  --disable-auto-image-base          Do not auto-choose image base. (default)\n"));
-  fprintf (file, _("  --dll-search-prefix=<string>       When linking dynamically to a dll without an\n\
-                                       importlib, use <string><basename>.dll \n\
+  fprintf (file, _("  --dll-search-prefix=<string>       When linking dynamically to a dll without\n\
+                                       an importlib, use <string><basename>.dll\n\
                                        in preference to lib<basename>.dll \n"));
-  fprintf (file, _("  --enable-auto-import               Do sophistcated linking of _sym to \n\
+  fprintf (file, _("  --enable-auto-import               Do sophistcated linking of _sym to\n\
                                        __imp_sym for DATA references\n"));
   fprintf (file, _("  --disable-auto-import              Do not auto-import DATA items from DLLs\n"));
   fprintf (file, _("  --enable-runtime-pseudo-reloc      Work around auto-import limitations by\n\
-                                       adding pseudo-relocations resolved at runtime.\n"));
+                                       adding pseudo-relocations resolved at\n\
+                                       runtime.\n"));
   fprintf (file, _("  --disable-runtime-pseudo-reloc     Do not add runtime pseudo-relocations for\n\
                                        auto-imported DATA.\n"));
   fprintf (file, _("  --enable-extra-pe-debug            Enable verbose debug output when building\n\
                                        or linking to DLLs (esp. auto-import)\n"));
 #endif
+  fprintf (file, _("  --large-address-aware              Executable supports virtual addresses\n\
+                                       greater than 2 gigabytes\n"));
 }
 
 
 static void
-set_pe_name (name, val)
-     char *name;
-     long val;
+set_pe_name (char *name, long val)
 {
   int i;
 
@@ -395,7 +369,7 @@ set_pe_name (name, val)
 
 
 static void
-set_pe_subsystem ()
+set_pe_subsystem (void)
 {
   const char *sver;
   int len;
@@ -468,7 +442,7 @@ set_pe_subsystem ()
              entry = alc_entry;
            }
 
-         lang_add_entry (entry, 0);
+         lang_add_entry (entry, TRUE);
 
          return;
        }
@@ -479,9 +453,7 @@ set_pe_subsystem ()
 
 
 static void
-set_pe_value (name)
-     char *name;
-
+set_pe_value (char *name)
 {
   char *end;
 
@@ -495,9 +467,7 @@ set_pe_value (name)
 
 
 static void
-set_pe_stack_heap (resname, comname)
-     char *resname;
-     char *comname;
+set_pe_stack_heap (char *resname, char *comname)
 {
   set_pe_value (resname);
 
@@ -511,37 +481,16 @@ set_pe_stack_heap (resname, comname)
 }
 
 
-static int
-gld_${EMULATION_NAME}_parse_args (argc, argv)
-     int argc;
-     char **argv;
+static bfd_boolean
+gld${EMULATION_NAME}_handle_option (int optc)
 {
-  int longind;
-  int optc;
-  int prevoptind = optind;
-  int prevopterr = opterr;
-  int wanterror;
-  static int lastoptind = -1;
-
-  if (lastoptind != optind)
-    opterr = 0;
-  wanterror = opterr;
-
-  lastoptind = optind;
-
-  optc = getopt_long_only (argc, argv, "-", longopts, &longind);
-  opterr = prevopterr;
-
   switch (optc)
     {
     default:
-      if (wanterror)
-       xexit (1);
-      optind =  prevoptind;
-      return 0;
+      return FALSE;
 
     case OPTION_BASE_FILE:
-      link_info.base_file = (PTR) fopen (optarg, FOPEN_WB);
+      link_info.base_file = fopen (optarg, FOPEN_WB);
       if (link_info.base_file == NULL)
        {
          /* xgettext:c-format */
@@ -659,8 +608,11 @@ gld_${EMULATION_NAME}_parse_args (argc, argv)
       pe_dll_extra_pe_debug = 1;
       break;
 #endif
+    case OPTION_LARGE_ADDRESS_AWARE:
+      real_flags |= IMAGE_FILE_LARGE_ADDRESS_AWARE;
+      break;
     }
-  return 1;
+  return TRUE;
 }
 \f
 
@@ -702,7 +654,7 @@ compute_dll_image_base (const char *ofile)
    read.  */
 
 static void
-gld_${EMULATION_NAME}_set_symbols ()
+gld_${EMULATION_NAME}_set_symbols (void)
 {
   /* Run through and invent symbols for all the
      names and insert the defaults.  */
@@ -711,9 +663,9 @@ gld_${EMULATION_NAME}_set_symbols ()
 
   if (!init[IMAGEBASEOFF].inited)
     {
-      if (link_info.relocateable)
+      if (link_info.relocatable)
        init[IMAGEBASEOFF].value = 0;
-      else if (init[DLLOFF].value || link_info.shared)
+      else if (init[DLLOFF].value || (link_info.shared && !link_info.pie))
 #ifdef DLL_SUPPORT
        init[IMAGEBASEOFF].value = (pe_enable_auto_image_base) ?
          compute_dll_image_base (output_filename) : NT_DLL_IMAGE_BASE;
@@ -724,8 +676,8 @@ gld_${EMULATION_NAME}_set_symbols ()
        init[IMAGEBASEOFF].value = NT_EXE_IMAGE_BASE;
     }
 
-  /* Don't do any symbol assignments if this is a relocateable link.  */
-  if (link_info.relocateable)
+  /* Don't do any symbol assignments if this is a relocatable link.  */
+  if (link_info.relocatable)
     return;
 
   /* Glue the assignments into the abs section.  */
@@ -766,7 +718,7 @@ gld_${EMULATION_NAME}_set_symbols ()
    have been read.  */
 
 static void
-gld_${EMULATION_NAME}_after_parse ()
+gld_${EMULATION_NAME}_after_parse (void)
 {
   /* The Windows libraries are designed for the linker to treat the
      entry point as an undefined symbol.  Otherwise, the .obj that
@@ -781,7 +733,7 @@ gld_${EMULATION_NAME}_after_parse ()
      opened, so registering the symbol as undefined will make a
      difference.  */
 
-  if (! link_info.relocateable && entry_symbol.name != NULL)
+  if (! link_info.relocatable && entry_symbol.name != NULL)
     ldlang_add_undef (entry_symbol.name);
 }
 
@@ -796,13 +748,12 @@ char * pe_data_import_dll;
 static struct bfd_link_hash_entry *pe_undef_found_sym;
 
 static bfd_boolean
-pe_undef_cdecl_match (h, string)
-  struct bfd_link_hash_entry *h;
-  PTR string;
+pe_undef_cdecl_match (struct bfd_link_hash_entry *h, void *inf)
 {
   int sl;
+  char *string = inf;
 
-  sl = strlen (string); /* Silence compiler warning.  */
+  sl = strlen (string);
   if (h->type == bfd_link_hash_defined
       && strncmp (h->root.string, string, sl) == 0
       && h->root.string[sl] == '@')
@@ -814,7 +765,7 @@ pe_undef_cdecl_match (h, string)
 }
 
 static void
-pe_fixup_stdcalls ()
+pe_fixup_stdcalls (void)
 {
   static int gave_warning_message = 0;
   struct bfd_link_hash_entry *undef, *sym;
@@ -822,7 +773,7 @@ pe_fixup_stdcalls ()
   if (pe_dll_extra_pe_debug)
     printf ("%s\n", __FUNCTION__);
 
-  for (undef = link_info.hash->undefs; undef; undef=undef->next)
+  for (undef = link_info.hash->undefs; undef; undef=undef->u.undef.next)
     if (undef->type == bfd_link_hash_undefined)
       {
        char* at = strchr (undef->root.string, '@');
@@ -863,7 +814,7 @@ pe_fixup_stdcalls ()
               symbols - which means scanning the whole symbol table.  */
            pe_undef_found_sym = 0;
            bfd_link_hash_traverse (link_info.hash, pe_undef_cdecl_match,
-                                   (PTR) undef->root.string);
+                                   (char *) undef->root.string);
            sym = pe_undef_found_sym;
            if (sym)
              {
@@ -888,50 +839,48 @@ pe_fixup_stdcalls ()
 }
 
 static int
-make_import_fixup (rel, s)
-  arelent *rel;
-  asection *s;
+make_import_fixup (arelent *rel, asection *s)
 {
-  struct symbol_cache_entry *sym = *rel->sym_ptr_ptr;
-  int addend = 0;
+  struct bfd_symbol *sym = *rel->sym_ptr_ptr;
+  char addend[4];
 
   if (pe_dll_extra_pe_debug)
     printf ("arelent: %s@%#lx: add=%li\n", sym->name,
            (long) rel->address, (long) rel->addend);
 
-  if (! bfd_get_section_contents (s->owner, s, &addend, rel->address, sizeof (addend)))
+  if (! bfd_get_section_contents (s->owner, s, addend, rel->address, sizeof (addend)))
     einfo (_("%C: Cannot get section contents - auto-import exception\n"),
           s->owner, s, rel->address);
 
-  pe_create_import_fixup (rel, s, addend);
+  pe_create_import_fixup (rel, s, bfd_get_32 (s->owner, addend));
 
   return 1;
 }
 
 static void
-pe_find_data_imports ()
+pe_find_data_imports (void)
 {
   struct bfd_link_hash_entry *undef, *sym;
 
   if (link_info.pei386_auto_import == 0)
     return;
 
-  for (undef = link_info.hash->undefs; undef; undef=undef->next)
+  for (undef = link_info.hash->undefs; undef; undef=undef->u.undef.next)
     {
       if (undef->type == bfd_link_hash_undefined)
-        {
-          /* C++ symbols are *long*.  */
-          char buf[4096];
+       {
+         /* C++ symbols are *long*.  */
+         char buf[4096];
 
          if (pe_dll_extra_pe_debug)
            printf ("%s:%s\n", __FUNCTION__, undef->root.string);
 
-          sprintf (buf, "__imp_%s", undef->root.string);
+         sprintf (buf, "__imp_%s", undef->root.string);
 
-          sym = bfd_link_hash_lookup (link_info.hash, buf, 0, 0, 1);
+         sym = bfd_link_hash_lookup (link_info.hash, buf, 0, 0, 1);
 
-          if (sym && sym->type == bfd_link_hash_defined)
-            {
+         if (sym && sym->type == bfd_link_hash_defined)
+           {
              bfd *b = sym->u.def.section->owner;
              asymbol **symbols;
              int nsyms, symsize, i;
@@ -969,27 +918,26 @@ pe_find_data_imports ()
              undef->root.string = sym->root.string;
              undef->u.def.value = sym->u.def.value;
              undef->u.def.section = sym->u.def.section;
-            }
-        }
+           }
+       }
     }
 }
-#endif /* DLL_SUPPORT */
 
 static bfd_boolean
-pr_sym (h, string)
-  struct bfd_hash_entry *h;
-  PTR string ATTRIBUTE_UNUSED;
+pr_sym (struct bfd_hash_entry *h, void *inf ATTRIBUTE_UNUSED)
 {
   if (pe_dll_extra_pe_debug)
-    printf ("+%s\n",h->string);
+    printf ("+%s\n", h->string);
 
   return TRUE;
 }
+#endif /* DLL_SUPPORT */
 
 
 static void
-gld_${EMULATION_NAME}_after_open ()
+gld_${EMULATION_NAME}_after_open (void)
 {
+#ifdef DLL_SUPPORT
   if (pe_dll_extra_pe_debug)
     {
       bfd *a;
@@ -997,13 +945,14 @@ gld_${EMULATION_NAME}_after_open ()
 
       printf ("%s()\n", __FUNCTION__);
 
-      for (sym = link_info.hash->undefs; sym; sym=sym->next)
-        printf ("-%s\n", sym->root.string);
-      bfd_hash_traverse (&link_info.hash->table, pr_sym,NULL);
+      for (sym = link_info.hash->undefs; sym; sym=sym->u.undef.next)
+       printf ("-%s\n", sym->root.string);
+      bfd_hash_traverse (&link_info.hash->table, pr_sym, NULL);
 
       for (a = link_info.input_bfds; a; a = a->link_next)
        printf ("*%s\n",a->filename);
     }
+#endif
 
   /* Pass the wacky PE command line options into the output bfd.
      FIXME: This should be done via a function, rather than by
@@ -1014,6 +963,7 @@ gld_${EMULATION_NAME}_after_open ()
 
   pe_data (output_bfd)->pe_opthdr = pe;
   pe_data (output_bfd)->dll = init[DLLOFF].value;
+  pe_data (output_bfd)->real_flags |= real_flags;
 
 #ifdef DLL_SUPPORT
   if (pe_enable_stdcall_fixup) /* -1=warn or 1=disable */
@@ -1023,7 +973,11 @@ gld_${EMULATION_NAME}_after_open ()
 
   pe_find_data_imports ();
 
+#if ! (defined (TARGET_IS_i386pe) || defined (TARGET_IS_armpe))
   if (link_info.shared)
+#else
+  if (!link_info.relocatable)
+#endif
     pe_dll_build_sections (output_bfd, &link_info);
 
 #ifndef TARGET_IS_i386pe
@@ -1112,7 +1066,7 @@ gld_${EMULATION_NAME}_after_open ()
 
                    relocs = (arelent **) xmalloc ((size_t) relsize);
                    nrelocs = bfd_canonicalize_reloc (is->the_bfd, sec,
-                                                         relocs, symbols);
+                                                     relocs, symbols);
                    if (nrelocs < 0)
                      {
                        free (relocs);
@@ -1122,7 +1076,7 @@ gld_${EMULATION_NAME}_after_open ()
 
                    for (i = 0; i < nrelocs; i++)
                      {
-                       struct symbol_cache_entry *s;
+                       struct bfd_symbol *s;
                        struct bfd_link_hash_entry * blhe;
                        bfd *other_bfd;
                        char *n;
@@ -1142,17 +1096,19 @@ gld_${EMULATION_NAME}_after_open ()
                          continue;
 
                        other_bfd = blhe->u.def.section->owner;
+#define bfd_filename(bfd) ((bfd)->my_archive ? bfd_get_filename ((bfd)->my_archive) : bfd_get_filename (bfd))
 
-                       if (strcmp (is->the_bfd->my_archive->filename,
-                                   other_bfd->my_archive->filename) == 0)
+                       if (strcmp (bfd_filename (is->the_bfd),
+                                   bfd_filename (other_bfd)) == 0)
                          continue;
 
-                       /* Rename this implib to match the other.  */
-                       n = (char *) xmalloc (strlen (other_bfd->my_archive->filename) + 1);
+                       /* Rename this implib to match the other one.  */
+                       n = xmalloc (strlen (bfd_filename (other_bfd)) + 1);
 
-                       strcpy (n, other_bfd->my_archive->filename);
+                       strcpy (n, bfd_filename (other_bfd));
 
-                       is->the_bfd->my_archive->filename = n;
+                       bfd_filename (is->the_bfd) = n;
+#undef bfd_filename
                      }
 
                    free (relocs);
@@ -1168,6 +1124,7 @@ gld_${EMULATION_NAME}_after_open ()
     int is_ms_arch = 0;
     bfd *cur_arch = 0;
     lang_input_statement_type *is2;
+    lang_input_statement_type *is3;
 
     /* Careful - this is a shell script.  Watch those dollar signs! */
     /* Microsoft import libraries have every member named the same,
@@ -1182,21 +1139,59 @@ gld_${EMULATION_NAME}_after_open ()
       {
        if (is->the_bfd->my_archive)
          {
+           char *pnt;
            bfd *arch = is->the_bfd->my_archive;
+
            if (cur_arch != arch)
              {
                cur_arch = arch;
                is_ms_arch = 1;
-               for (is2 = is;
-                    is2 && is2->the_bfd->my_archive == arch;
-                    is2 = (lang_input_statement_type *)is2->next)
+
+               for (is3 = is;
+                    is3 && is3->the_bfd->my_archive == arch;
+                    is3 = (lang_input_statement_type *) is3->next)
                  {
-                   if (strcmp (is->the_bfd->filename, is2->the_bfd->filename))
-                     is_ms_arch = 0;
+                   /* A MS dynamic import library can also contain static
+                      members, so look for the first element with a .dll
+                      extension, and use that for the remainder of the
+                      comparisons.  */
+                   pnt = strrchr (is3->the_bfd->filename, '.');
+                   if (pnt != NULL && strcmp (pnt, ".dll") == 0)
+                     break;
+                 }
+
+               if (is3 == NULL)
+                 is_ms_arch = 0;
+               else
+                 {
+                   /* OK, found one.  Now look to see if the remaining
+                      (dynamic import) members use the same name.  */
+                   for (is2 = is;
+                        is2 && is2->the_bfd->my_archive == arch;
+                        is2 = (lang_input_statement_type *) is2->next)
+                     {
+                       /* Skip static members, ie anything with a .obj
+                          extension.  */
+                       pnt = strrchr (is2->the_bfd->filename, '.');
+                       if (pnt != NULL && strcmp (pnt, ".obj") == 0)
+                         continue;
+
+                       if (strcmp (is3->the_bfd->filename,
+                                   is2->the_bfd->filename))
+                         {
+                           is_ms_arch = 0;
+                           break;
+                         }
+                     }
                  }
              }
 
-           if (is_ms_arch)
+           /* This fragment might have come from an .obj file in a Microsoft
+              import, and not an actual import record. If this is the case,
+              then leave the filename alone.  */
+           pnt = strrchr (is->the_bfd->filename, '.');
+
+           if (is_ms_arch && (strcmp (pnt, ".dll") == 0))
              {
                int idata2 = 0, reloc_count=0;
                asection *sec;
@@ -1230,7 +1225,7 @@ gld_${EMULATION_NAME}_after_open ()
 }
 \f
 static void
-gld_${EMULATION_NAME}_before_allocation ()
+gld_${EMULATION_NAME}_before_allocation (void)
 {
 #ifdef TARGET_IS_ppcpe
   /* Here we rummage through the found bfds to collect toc information.  */
@@ -1279,7 +1274,7 @@ gld_${EMULATION_NAME}_before_allocation ()
    check here for .DEF files and pull them in automatically.  */
 
 static int
-saw_option (char * option)
+saw_option (char *option)
 {
   int i;
 
@@ -1291,18 +1286,14 @@ saw_option (char * option)
 #endif /* DLL_SUPPORT */
 
 static bfd_boolean
-gld_${EMULATION_NAME}_unrecognized_file (entry)
-     lang_input_statement_type *entry ATTRIBUTE_UNUSED;
+gld_${EMULATION_NAME}_unrecognized_file (lang_input_statement_type *entry ATTRIBUTE_UNUSED)
 {
 #ifdef DLL_SUPPORT
   const char *ext = entry->filename + strlen (entry->filename) - 4;
 
   if (strcmp (ext, ".def") == 0 || strcmp (ext, ".DEF") == 0)
     {
-      if (pe_def_file == 0)
-       pe_def_file = def_file_empty ();
-
-      def_file_parse (entry->filename, pe_def_file);
+      pe_def_file = def_file_parse (entry->filename, pe_def_file);
 
       if (pe_def_file)
        {
@@ -1381,8 +1372,7 @@ gld_${EMULATION_NAME}_unrecognized_file (entry)
 }
 
 static bfd_boolean
-gld_${EMULATION_NAME}_recognized_file (entry)
-  lang_input_statement_type *entry ATTRIBUTE_UNUSED;
+gld_${EMULATION_NAME}_recognized_file (lang_input_statement_type *entry ATTRIBUTE_UNUSED)
 {
 #ifdef DLL_SUPPORT
 #ifdef TARGET_IS_i386pe
@@ -1415,7 +1405,7 @@ gld_${EMULATION_NAME}_recognized_file (entry)
 }
 
 static void
-gld_${EMULATION_NAME}_finish ()
+gld_${EMULATION_NAME}_finish (void)
 {
 #if defined(TARGET_IS_armpe) || defined(TARGET_IS_arm_epoc_pe)
   struct bfd_link_hash_entry * h;
@@ -1460,7 +1450,11 @@ gld_${EMULATION_NAME}_finish ()
 #endif /* defined(TARGET_IS_armpe) || defined(TARGET_IS_arm_epoc_pe) */
 
 #ifdef DLL_SUPPORT
-  if (link_info.shared)
+  if (link_info.shared
+#if !defined(TARGET_IS_shpe) && !defined(TARGET_IS_mipspe)
+    || (!link_info.relocatable && pe_def_file->num_exports != 0)
+#endif
+    )
     {
       pe_dll_fill_sections (output_bfd, &link_info);
       if (pe_implib_filename)
@@ -1484,39 +1478,13 @@ gld_${EMULATION_NAME}_finish ()
 
     if (asec)
       {
-        asec->flags &= ~SEC_CODE;
-        asec->flags |= SEC_DATA;
+       asec->flags &= ~SEC_CODE;
+       asec->flags |= SEC_DATA;
       }
   }
 }
 
 \f
-/* Find the last output section before given output statement.
-   Used by place_orphan.  */
-
-static asection *
-output_prev_sec_find (os)
-     lang_output_section_statement_type *os;
-{
-  asection *s = (asection *) NULL;
-  lang_statement_union_type *u;
-  lang_output_section_statement_type *lookup;
-
-  for (u = lang_output_section_statement.head;
-       u != (lang_statement_union_type *) NULL;
-       u = lookup->next)
-    {
-      lookup = &u->output_section_statement;
-      if (lookup == os)
-       return s;
-
-      if (lookup->bfd_section != NULL && lookup->bfd_section->owner != NULL)
-       s = lookup->bfd_section;
-    }
-
-  return NULL;
-}
-
 /* Place an orphan section.
 
    We use this to put sections in a reasonable place in the file, and
@@ -1530,247 +1498,132 @@ output_prev_sec_find (os)
    default linker script using wildcards, and are sorted by
    sort_sections.  */
 
-struct orphan_save
-{
-  lang_output_section_statement_type *os;
-  asection **section;
-  lang_statement_union_type **stmt;
-};
-
 static bfd_boolean
-gld_${EMULATION_NAME}_place_orphan (file, s)
-     lang_input_statement_type *file;
-     asection *s;
+gld_${EMULATION_NAME}_place_orphan (lang_input_statement_type *file, asection *s)
 {
   const char *secname;
-  char *hold_section_name;
+  const char *orig_secname;
   char *dollar = NULL;
-  const char *ps = 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.  */
-  hold_section_name = xstrdup (secname);
-  if (!link_info.relocateable)
+  orig_secname = secname;
+  if (!link_info.relocatable
+      && (dollar = strchr (secname, '$')) != NULL)
     {
-      dollar = strchr (hold_section_name, '$');
-      if (dollar != NULL)
-       *dollar = '\0';
+      size_t len = dollar - orig_secname;
+      char *newname = xmalloc (len + 1);
+      memcpy (newname, orig_secname, len);
+      newname[len] = '\0';
+      secname = newname;
     }
 
-  os = lang_output_section_find (hold_section_name);
+  os = lang_output_section_find (secname);
 
   lang_list_init (&add_child);
 
   if (os != NULL
       && (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, if any, 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);
     }
   else
     {
+      static struct orphan_save hold[] =
+       {
+         { ".text",
+           SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE,
+           0, 0, 0, 0 },
+         { ".rdata",
+           SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_DATA,
+           0, 0, 0, 0 },
+         { ".data",
+           SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_DATA,
+           0, 0, 0, 0 },
+         { ".bss",
+           SEC_ALLOC,
+           0, 0, 0, 0 }
+       };
+      enum orphan_save_index
+       {
+         orphan_text = 0,
+         orphan_rodata,
+         orphan_data,
+         orphan_bss
+       };
+      static int orphan_init_done = 0;
       struct orphan_save *place;
-      static struct orphan_save hold_text;
-      static struct orphan_save hold_rdata;
-      static struct orphan_save hold_data;
-      static struct orphan_save hold_bss;
-      char *outsecname;
-      lang_statement_list_type *old;
-      lang_statement_list_type add;
+      lang_output_section_statement_type *after;
       etree_type *address;
 
+      if (!orphan_init_done)
+       {
+         struct orphan_save *ho;
+         for (ho = hold; ho < hold + sizeof (hold) / sizeof (hold[0]); ++ho)
+           if (ho->name != NULL)
+             {
+               ho->os = lang_output_section_find (ho->name);
+               if (ho->os != NULL && ho->os->flags == 0)
+                 ho->os->flags = ho->flags;
+             }
+         orphan_init_done = 1;
+       }
+
       /* Try to put the new output section in a reasonable place based
         on the section name and section flags.  */
-#define HAVE_SECTION(hold, name) \
-(hold.os != NULL || (hold.os = lang_output_section_find (name)) != NULL)
 
       place = NULL;
       if ((s->flags & SEC_ALLOC) == 0)
        ;
-      else if ((s->flags & SEC_HAS_CONTENTS) == 0
-              && HAVE_SECTION (hold_bss, ".bss"))
-       place = &hold_bss;
-      else if ((s->flags & SEC_READONLY) == 0
-              && HAVE_SECTION (hold_data, ".data"))
-       place = &hold_data;
-      else if ((s->flags & SEC_CODE) == 0
-              && (s->flags & SEC_READONLY) != 0
-              && HAVE_SECTION (hold_rdata, ".rdata"))
-       place = &hold_rdata;
-      else if ((s->flags & SEC_READONLY) != 0
-              && HAVE_SECTION (hold_text, ".text"))
-       place = &hold_text;
-
-#undef HAVE_SECTION
-
-      /* 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.  */
-      outsecname = xstrdup (hold_section_name);
-      if (bfd_get_section_by_name (output_bfd, outsecname) != NULL)
-       {
-         unsigned int len;
-         char *newname;
-         unsigned int i;
-
-         len = strlen (outsecname);
-         newname = xmalloc (len + 5);
-         strcpy (newname, outsecname);
-         i = 0;
-         do
-           {
-             sprintf (newname + len, "%d", i);
-             ++i;
-           }
-         while (bfd_get_section_by_name (output_bfd, newname) != NULL);
-
-         free (outsecname);
-         outsecname = newname;
-       }
-
-      /* Start building a list of statements for this section.  */
-      old = stat_ptr;
-      stat_ptr = &add;
-      lang_list_init (stat_ptr);
+      else if ((s->flags & (SEC_LOAD | SEC_HAS_CONTENTS)) == 0)
+       place = &hold[orphan_bss];
+      else if ((s->flags & SEC_READONLY) == 0)
+       place = &hold[orphan_data];
+      else if ((s->flags & SEC_CODE) == 0)
+       place = &hold[orphan_rodata];
+      else
+       place = &hold[orphan_text];
 
-      if (config.build_constructors)
+      after = NULL;
+      if (place != NULL)
        {
-         /* If the name of the section is representable in C, then create
-            symbols to mark the start and the end of the section.  */
-         for (ps = outsecname; *ps != '\0'; ps++)
-           if (! isalnum ((unsigned char) *ps) && *ps != '_')
-             break;
-         if (*ps == '\0')
-           {
-             char *symname;
-             etree_type *e_align;
-
-             symname = (char *) xmalloc (ps - outsecname + sizeof "___start_");
-             sprintf (symname, "___start_%s", outsecname);
-             e_align = exp_unop (ALIGN_K,
-                                 exp_intop ((bfd_vma) 1 << s->alignment_power));
-             lang_add_assignment (exp_assop ('=', symname, e_align));
-           }
+         if (place->os == NULL)
+           place->os = lang_output_section_find (place->name);
+         after = place->os;
+         if (after == NULL)
+           after = lang_output_section_find_by_flags (s, &place->os);
+         if (after == NULL)
+           /* *ABS* is always the first output section statement.  */
+           after = (&lang_output_section_statement.head
+                    ->output_section_statement);
        }
 
-      if (link_info.relocateable || (s->flags & (SEC_LOAD | SEC_ALLOC)) == 0)
-       address = exp_intop ((bfd_vma) 0);
-      else
+      /* 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)
        {
-         /* All sections in an executable must be aligned to a page
-            boundary.  */
-         address = exp_unop (ALIGN_K,
-                             exp_nameop (NAME, "__section_alignment__"));
-       }
-
-      os = lang_enter_output_section_statement (outsecname, address, 0,
-                                               (bfd_vma) 0,
-                                               (etree_type *) NULL,
-                                               (etree_type *) NULL,
-                                               (etree_type *) NULL);
-
-      lang_add_section (&add_child, s, os, file);
-
-      lang_leave_output_section_statement
-       ((bfd_vma) 0, "*default*",
-        (struct lang_output_section_phdr_list *) NULL, NULL);
-
-      if (config.build_constructors && *ps == '\0')
-        {
-         char *symname;
-
-         /* lang_leave_ouput_section_statement resets stat_ptr.
-            Put stat_ptr back where we want it.  */
-         if (place != NULL)
-           stat_ptr = &add;
-
-         symname = (char *) xmalloc (ps - outsecname + sizeof "___stop_");
-         sprintf (symname, "___stop_%s", outsecname);
-         lang_add_assignment (exp_assop ('=', symname,
-                                         exp_nameop (NAME, ".")));
+         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");
        }
 
-      stat_ptr = old;
-
-      if (place != NULL && os->bfd_section != NULL)
-       {
-         asection *snew, **pps;
-
-         snew = os->bfd_section;
-
-         /* Shuffle the bfd section list to make the output file look
-            neater.  This is really only cosmetic.  */
-         if (place->section == NULL)
-           {
-             asection *bfd_section = place->os->bfd_section;
-
-             /* If the output statement hasn't been used to place
-                any input sections (and thus doesn't have an output
-                bfd_section), look for the closest prior output statement
-                having an output section.  */
-             if (bfd_section == NULL)
-               bfd_section = output_prev_sec_find (place->os);
-
-             if (bfd_section != NULL && bfd_section != snew)
-               place->section = &bfd_section->next;
-           }
-
-         if (place->section != NULL)
-           {
-             /* Unlink the section.  */
-             for (pps = &output_bfd->sections;
-                  *pps != snew;
-                  pps = &(*pps)->next)
-               ;
-             bfd_section_list_remove (output_bfd, pps);
-
-             /* Now tack it on to the "place->os" section list.  */
-             bfd_section_list_insert (output_bfd, place->section, snew);
-           }
-
-         /* Save the end of this list.  Further ophans of this type will
-            follow the one we've just added.  */
-         place->section = &snew->next;
-
-         /* The following is non-cosmetic.  We try to put the output
-            statements in some sort of reasonable order here, because
-            they determine the final load addresses of the orphan
-            sections.  In addition, placing output statements in the
-            wrong order may require extra segments.  For instance,
-            given a typical situation of all read-only sections placed
-            in one segment and following that a segment containing all
-            the read-write sections, we wouldn't want to place an orphan
-            read/write section before or amongst the read-only ones.  */
-         if (add.head != NULL)
-           {
-             if (place->stmt == NULL)
-               {
-                 /* Put the new statement list right at the head.  */
-                 *add.tail = place->os->header.next;
-                 place->os->header.next = add.head;
-               }
-             else
-               {
-                 /* Put it after the last orphan statement we added.  */
-                 *add.tail = *place->stmt;
-                 *place->stmt = add.head;
-               }
-
-             /* Fix the global list pointer if we happened to tack our
-                new list at the tail.  */
-             if (*old->tail == add.head)
-               old->tail = add.tail;
-
-             /* Save the end of this list.  */
-             place->stmt = add.tail;
-           }
-       }
+      /* 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);
     }
 
   {
@@ -1802,7 +1655,7 @@ gld_${EMULATION_NAME}_place_orphan (file, s)
            else
              {
                found_dollar = TRUE;
-               if (strcmp (secname, lname) < 0)
+               if (strcmp (orig_secname, lname) < 0)
                  break;
              }
          }
@@ -1815,16 +1668,13 @@ gld_${EMULATION_NAME}_place_orphan (file, s)
       }
   }
 
-  free (hold_section_name);
-
   return TRUE;
 }
 
 static bfd_boolean
-gld_${EMULATION_NAME}_open_dynamic_archive (arch, search, entry)
-     const char * arch ATTRIBUTE_UNUSED;
-     search_dirs_type * search;
-     lang_input_statement_type * entry;
+gld_${EMULATION_NAME}_open_dynamic_archive
+  (const char *arch ATTRIBUTE_UNUSED, search_dirs_type *search,
+   lang_input_statement_type *entry)
 {
   const char * filename;
   char * string;
@@ -1835,12 +1685,12 @@ gld_${EMULATION_NAME}_open_dynamic_archive (arch, search, entry)
   filename = entry->filename;
 
   string = (char *) xmalloc (strlen (search->name)
-                             + strlen (filename)
-                             + sizeof "/lib.a.dll"
+                            + strlen (filename)
+                            + sizeof "/lib.a.dll"
 #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);
+                            + 1);
 
   /* Try "libfoo.dll.a" first (preferred explicit import library for dll's.  */
   sprintf (string, "%s/lib%s.dll.a", search->name, filename);
@@ -1850,7 +1700,7 @@ gld_${EMULATION_NAME}_open_dynamic_archive (arch, search, entry)
       /* 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,
@@ -1860,50 +1710,50 @@ gld_${EMULATION_NAME}_open_dynamic_archive (arch, search, entry)
             -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))
-            {
+         /* 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.  */
+             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;
-                        }
-                    }
-                }
-            }
-        }
+               {
+                 /* 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;
+                       }
+                   }
+               }
+           }
+       }
     }
 
   entry->filename = string;
@@ -1912,16 +1762,14 @@ gld_${EMULATION_NAME}_open_dynamic_archive (arch, search, entry)
 }
 
 static int
-gld_${EMULATION_NAME}_find_potential_libraries (name, entry)
-     char * name;
-     lang_input_statement_type * entry;
+gld_${EMULATION_NAME}_find_potential_libraries
+  (char *name, lang_input_statement_type *entry)
 {
   return ldfile_open_file_search (name, entry, "", ".lib");
 }
 \f
 static char *
-gld_${EMULATION_NAME}_get_script (isfile)
-     int *isfile;
+gld_${EMULATION_NAME}_get_script (int *isfile)
 EOF
 # Scripts compiled in.
 # sed commands to quote an ld script as a C string.
@@ -1931,19 +1779,19 @@ cat >>e${EMULATION_NAME}.c <<EOF
 {
   *isfile = 0;
 
-  if (link_info.relocateable && config.build_constructors)
+  if (link_info.relocatable && config.build_constructors)
     return
 EOF
-sed $sc ldscripts/${EMULATION_NAME}.xu                 >> e${EMULATION_NAME}.c
-echo '  ; else if (link_info.relocateable) return'     >> e${EMULATION_NAME}.c
-sed $sc ldscripts/${EMULATION_NAME}.xr                 >> e${EMULATION_NAME}.c
-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
-echo '  ; else return'                                 >> e${EMULATION_NAME}.c
-sed $sc ldscripts/${EMULATION_NAME}.x                  >> e${EMULATION_NAME}.c
-echo '; }'                                             >> e${EMULATION_NAME}.c
+sed $sc ldscripts/${EMULATION_NAME}.xu                 >> e${EMULATION_NAME}.c
+echo '  ; else if (link_info.relocatable) return'      >> e${EMULATION_NAME}.c
+sed $sc ldscripts/${EMULATION_NAME}.xr                 >> e${EMULATION_NAME}.c
+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
+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
 
@@ -1967,7 +1815,9 @@ struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
   gld_${EMULATION_NAME}_open_dynamic_archive,
   gld_${EMULATION_NAME}_place_orphan,
   gld_${EMULATION_NAME}_set_symbols,
-  gld_${EMULATION_NAME}_parse_args,
+  NULL, /* parse_args */
+  gld${EMULATION_NAME}_add_options,
+  gld${EMULATION_NAME}_handle_option,
   gld_${EMULATION_NAME}_unrecognized_file,
   gld_${EMULATION_NAME}_list_options,
   gld_${EMULATION_NAME}_recognized_file,
This page took 0.0438 seconds and 4 git commands to generate.