Subversion Repositories Kolibri OS

   it under the terms of the GNU General Public License as published by

   (at your option) any later version.

   This program is distributed in the hope that it will be useful,

   but WITHOUT ANY WARRANTY; without even the implied warranty of

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License

   along with this program; if not, write to the Free Software

   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,

   MA 02110-1301, USA.  */

/* For WINDOWS_NT */

/* The original file generated returned different default scripts depending

   on whether certain switches were set, but these switches pertain to the

   the correct entry point by default. */

#define TARGET_IS_i386pe

/* Do this before including bfd.h, so we prototype the right functions.  */

#define bfd_arm_allocate_interworking_sections 	bfd_i386pe_allocate_interworking_sections

#define bfd_arm_process_before_allocation 	bfd_i386pe_process_before_allocation

#include "sysdep.h"

#include "bfd.h"

#include "bfdlink.h"

#include "getopt.h"

#include "filenames.h"

#include "ld.h"

#include "ldmain.h"

#include "ldexp.h"

#include "ldlang.h"

#include "ldfile.h"

#include "ldemul.h"

#include 

#include "ldlex.h"

#include "ldmisc.h"

#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 "pe-dll.h"

#include "safe-ctype.h"

   alignment by setting OVERRIDE_SECTION_ALIGNMENT.  FIXME: This makes

   it seem that include/coff/internal.h should not define

   PE_DEF_SECTION_ALIGNMENT.  */

#undef PE_DEF_SECTION_ALIGNMENT

#define PE_DEF_SECTION_ALIGNMENT

#endif

#if defined(TARGET_IS_i386pe)     || defined(TARGET_IS_shpe)     || defined(TARGET_IS_armpe)     || defined(TARGET_IS_arm_epoc_pe)     || defined(TARGET_IS_arm_wince_pe)

#define DLL_SUPPORT

#endif

#define DEFAULT_PSEUDO_RELOC_VERSION 2

#else

#define DEFAULT_PSEUDO_RELOC_VERSION 1

#if defined(TARGET_IS_i386pe) || ! defined(DLL_SUPPORT)

#define	PE_DEF_SUBSYSTEM		3

#else

#undef NT_EXE_IMAGE_BASE

#undef PE_DEF_FILE_ALIGNMENT

#define NT_EXE_IMAGE_BASE		0x00010000

#if defined(TARGET_IS_armpe) || defined(TARGET_IS_arm_wince_pe)

#define PE_DEF_SECTION_ALIGNMENT	0x00001000

#define	PE_DEF_SUBSYSTEM		9

#else

#define	PE_DEF_SUBSYSTEM		2

#endif

#define PE_DEF_FILE_ALIGNMENT		0x00000200

#endif

static struct internal_extra_pe_aouthdr pe;

static int dll;

static int pe_subsystem = PE_DEF_SUBSYSTEM;

static flagword real_flags = 0;

static char * thumb_entry_symbol = NULL;

static lang_assignment_statement_type *image_base_statement = 0;

static unsigned short pe_dll_characteristics = 0;

static bfd_boolean insert_timestamp = FALSE;

#ifdef DLL_SUPPORT

static int pe_enable_stdcall_fixup = -1; /* 0=disable 1=enable.  */

static char *pe_out_def_filename = NULL;

static char *pe_implib_filename = NULL;

static char *pe_dll_search_prefix = NULL;

#endif

extern const char *output_filename;

static int is_underscoring (void)

{

  if (pe_leading_underscore != -1)

  if (!bfd_get_target_info ("pei-i386", NULL, NULL, &u, NULL))

    bfd_get_target_info ("pe-i386", NULL, NULL, &u, NULL);

  if (u == -1)

    abort ();

  pe_leading_underscore = (u != 0 ? 1 : 0);

  return pe_leading_underscore;

static void

gld_i386pe_before_parse (void)

{

  is_underscoring ();

  output_filename = "a.exe";

#ifdef DLL_SUPPORT

  input_flags.dynamic = TRUE;

  config.has_shared = 1;

  link_info.pei386_auto_import = 1;

  /* Use by default version.  */

  link_info.pei386_runtime_pseudo_reloc = DEFAULT_PSEUDO_RELOC_VERSION;

#endif

}

/* Indicates if RDATA shall be merged into DATA when pseudo-relocation

   version 2 is used and auto-import is enabled.  */

#define MERGE_RDATA_V2 0

/* Used for setting flags in the PE header.  */

#define OPTION_BASE_FILE		(300  + 1)

#define OPTION_FILE_ALIGNMENT		(OPTION_DLL + 1)

#define OPTION_MAJOR_IMAGE_VERSION	(OPTION_IMAGE_BASE + 1)

#define OPTION_MAJOR_OS_VERSION		(OPTION_MAJOR_IMAGE_VERSION + 1)

#define OPTION_MAJOR_SUBSYSTEM_VERSION	(OPTION_MAJOR_OS_VERSION + 1)

#define OPTION_MINOR_IMAGE_VERSION	(OPTION_MAJOR_SUBSYSTEM_VERSION + 1)

#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_HEAP			(OPTION_SUBSYSTEM + 1)

#define OPTION_SUPPORT_OLD_CODE		(OPTION_HEAP + 1)

#define OPTION_OUT_DEF			(OPTION_SUPPORT_OLD_CODE + 1)

#define OPTION_EXPORT_ALL		(OPTION_OUT_DEF + 1)

#define OPTION_EXCLUDE_SYMBOLS		(OPTION_EXPORT_ALL + 1)

#define OPTION_EXCLUDE_ALL_SYMBOLS	(OPTION_EXCLUDE_SYMBOLS + 1)

#define OPTION_KILL_ATS			(OPTION_EXCLUDE_ALL_SYMBOLS + 1)

#define OPTION_STDCALL_ALIASES		(OPTION_KILL_ATS + 1)

#define OPTION_ENABLE_STDCALL_FIXUP	(OPTION_STDCALL_ALIASES + 1)

#define OPTION_DISABLE_STDCALL_FIXUP	(OPTION_ENABLE_STDCALL_FIXUP + 1)

#define OPTION_IMPLIB_FILENAME		(OPTION_DISABLE_STDCALL_FIXUP + 1)

#define OPTION_THUMB_ENTRY		(OPTION_IMPLIB_FILENAME + 1)

#define OPTION_WARN_DUPLICATE_EXPORTS	(OPTION_THUMB_ENTRY + 1)

#define OPTION_IMP_COMPAT		(OPTION_WARN_DUPLICATE_EXPORTS + 1)

#define OPTION_ENABLE_AUTO_IMAGE_BASE	(OPTION_IMP_COMPAT + 1)

#define OPTION_DISABLE_AUTO_IMAGE_BASE	(OPTION_ENABLE_AUTO_IMAGE_BASE + 1)

#define OPTION_DLL_SEARCH_PREFIX	(OPTION_DISABLE_AUTO_IMAGE_BASE + 1)

#define OPTION_NO_DEFAULT_EXCLUDES	(OPTION_DLL_SEARCH_PREFIX + 1)

#define OPTION_DLL_ENABLE_AUTO_IMPORT	(OPTION_NO_DEFAULT_EXCLUDES + 1)

#define OPTION_DLL_DISABLE_AUTO_IMPORT	(OPTION_DLL_ENABLE_AUTO_IMPORT + 1)

#define OPTION_ENABLE_EXTRA_PE_DEBUG	(OPTION_DLL_DISABLE_AUTO_IMPORT + 1)

#define OPTION_EXCLUDE_LIBS		(OPTION_ENABLE_EXTRA_PE_DEBUG + 1)

#define OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC						(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)

#define OPTION_DISABLE_LARGE_ADDRESS_AWARE  					(OPTION_LARGE_ADDRESS_AWARE + 1)

#define OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC_V1						(OPTION_DISABLE_LARGE_ADDRESS_AWARE + 1)

#define OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC_V2						(OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC_V1 + 1)

#define OPTION_EXCLUDE_MODULES_FOR_IMPLIB 					(OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC_V2 + 1)

#define OPTION_USE_NUL_PREFIXED_IMPORT_TABLES 					(OPTION_EXCLUDE_MODULES_FOR_IMPLIB + 1)

#define OPTION_NO_LEADING_UNDERSCORE 	(OPTION_USE_NUL_PREFIXED_IMPORT_TABLES + 1)

#define OPTION_LEADING_UNDERSCORE 	(OPTION_NO_LEADING_UNDERSCORE + 1)

#define OPTION_ENABLE_LONG_SECTION_NAMES 					(OPTION_LEADING_UNDERSCORE + 1)

#define OPTION_DISABLE_LONG_SECTION_NAMES 					(OPTION_ENABLE_LONG_SECTION_NAMES + 1)

/* DLLCharacteristics flags.  */

#define OPTION_DYNAMIC_BASE		(OPTION_DISABLE_LONG_SECTION_NAMES + 1)

#define OPTION_FORCE_INTEGRITY		(OPTION_DYNAMIC_BASE + 1)

#define OPTION_NX_COMPAT		(OPTION_FORCE_INTEGRITY + 1)

#define OPTION_NO_ISOLATION		(OPTION_NX_COMPAT + 1)

#define OPTION_NO_SEH			(OPTION_NO_ISOLATION + 1)

#define OPTION_NO_BIND			(OPTION_NO_SEH + 1)

#define OPTION_WDM_DRIVER		(OPTION_NO_BIND + 1)

#define OPTION_TERMINAL_SERVER_AWARE	(OPTION_WDM_DRIVER + 1)

/* Determinism.  */

#define OPTION_INSERT_TIMESTAMP		(OPTION_TERMINAL_SERVER_AWARE + 1)

static void

gldi386pe_add_options

  (int ns ATTRIBUTE_UNUSED,

   char **shortopts ATTRIBUTE_UNUSED,

   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},

    {"use-nul-prefixed-import-tables", no_argument, NULL,

     OPTION_USE_NUL_PREFIXED_IMPORT_TABLES},

    {"no-leading-underscore", no_argument, NULL, OPTION_NO_LEADING_UNDERSCORE},

    {"leading-underscore", no_argument, NULL, OPTION_LEADING_UNDERSCORE},

    {"insert-timestamp", no_argument, NULL, OPTION_INSERT_TIMESTAMP},

#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-all-symbols", no_argument, NULL, OPTION_EXCLUDE_ALL_SYMBOLS},

    {"exclude-libs", required_argument, NULL, OPTION_EXCLUDE_LIBS},

    {"exclude-modules-for-implib", required_argument, NULL, OPTION_EXCLUDE_MODULES_FOR_IMPLIB},

    {"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},

    {"enable-runtime-pseudo-reloc-v1", no_argument, NULL, OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC_V1},

    {"enable-runtime-pseudo-reloc-v2", no_argument, NULL, OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC_V2},

#endif

    {"large-address-aware", no_argument, NULL, OPTION_LARGE_ADDRESS_AWARE},

    {"disable-large-address-aware", no_argument, NULL, OPTION_DISABLE_LARGE_ADDRESS_AWARE},

    {"enable-long-section-names", no_argument, NULL, OPTION_ENABLE_LONG_SECTION_NAMES},

    {"disable-long-section-names", no_argument, NULL, OPTION_DISABLE_LONG_SECTION_NAMES},

    {"dynamicbase",no_argument, NULL, OPTION_DYNAMIC_BASE},

    {"forceinteg", no_argument, NULL, OPTION_FORCE_INTEGRITY},

    {"nxcompat", no_argument, NULL, OPTION_NX_COMPAT},

    {"no-isolation", no_argument, NULL, OPTION_NO_ISOLATION},

    {"no-seh", no_argument, NULL, OPTION_NO_SEH},

    {"no-bind", no_argument, NULL, OPTION_NO_BIND},

    {"wdmdriver", no_argument, NULL, OPTION_WDM_DRIVER},

    {"tsaware", no_argument, NULL, OPTION_TERMINAL_SERVER_AWARE},

    {NULL, no_argument, NULL, 0}

  };

  *longopts

    = 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.  */

typedef struct

  void *ptr;

  int size;

  char *symbol;

  int inited;

  /* FALSE for an assembly level symbol and TRUE for a C visible symbol.

     C visible symbols can be prefixed by underscore dependent to target's

     settings.  */

  bfd_boolean is_c_symbol;

} definfo;

/* Get symbol name dependent to kind and C visible state of

   underscore.  */

#define GET_INIT_SYMBOL_NAME(IDX)   (init[(IDX)].symbol   + ((init[(IDX)].is_c_symbol == FALSE || (is_underscoring () != 0)) ? 0 : 1))

#define U(CSTR)   ((is_underscoring () == 0) ? CSTR : "_" CSTR)

/* Get size of constant string for a possible underscore prefixed

#define U_SIZE(CSTR)   (sizeof (CSTR) + (is_underscoring () == 0 ? 0 : 1))

static definfo init[] =

{

#define IMAGEBASEOFF 0

#define DLLOFF 1

  {&dll, sizeof(dll), 0, "__dll__", 0, FALSE},

#define MSIMAGEBASEOFF	2

  D(ImageBase, "___ImageBase", NT_EXE_IMAGE_BASE, TRUE),

  D(SectionAlignment,"__section_alignment__", PE_DEF_SECTION_ALIGNMENT, FALSE),

  D(FileAlignment,"__file_alignment__", PE_DEF_FILE_ALIGNMENT, FALSE),

  D(MajorOperatingSystemVersion,"__major_os_version__", 4, FALSE),

  D(MinorOperatingSystemVersion,"__minor_os_version__", 0, FALSE),

  D(MajorImageVersion,"__major_image_version__", 1, FALSE),

  D(MinorImageVersion,"__minor_image_version__", 0, FALSE),

#if defined(TARGET_IS_armpe)  || defined(TARGET_IS_arm_wince_pe)

  D(MajorSubsystemVersion,"__major_subsystem_version__", 3, FALSE),

#else

  D(MajorSubsystemVersion,"__major_subsystem_version__", 4, FALSE),

#endif

  D(MinorSubsystemVersion,"__minor_subsystem_version__", 0, FALSE),

  D(Subsystem,"__subsystem__", PE_DEF_SUBSYSTEM, FALSE),

  D(SizeOfStackReserve,"__size_of_stack_reserve__", 0x200000, FALSE),

  D(SizeOfStackCommit,"__size_of_stack_commit__", 0x1000, FALSE),

  D(SizeOfHeapReserve,"__size_of_heap_reserve__", 0x100000, FALSE),

  D(SizeOfHeapCommit,"__size_of_heap_commit__", 0x1000, FALSE),

  D(LoaderFlags,"__loader_flags__", 0x0, FALSE),

  D(DllCharacteristics, "__dll_characteristics__", 0x0, FALSE),

  { NULL, 0, 0, NULL, 0 , FALSE}

};

static void

gld_i386pe_list_options (FILE *file)

{

  fprintf (file, _("  --file-alignment             Set file alignment\n"));

  fprintf (file, _("  --heap                       Set initial size of the heap\n"));

  fprintf (file, _("  --image-base 
             Set start address of the executable\n"));

  fprintf (file, _("  --major-image-version      Set version number of the executable\n"));

  fprintf (file, _("  --major-os-version         Set minimum required OS version\n"));

  fprintf (file, _("  --major-subsystem-version  Set minimum required OS subsystem version\n"));

  fprintf (file, _("  --minor-image-version      Set revision number of the executable\n"));

  fprintf (file, _("  --minor-os-version         Set minimum required OS revision\n"));

  fprintf (file, _("  --minor-subsystem-version  Set minimum required OS subsystem revision\n"));

  fprintf (file, _("  --section-alignment          Set section alignment\n"));

  fprintf (file, _("  --stack                      Set size of the initial stack\n"));

  fprintf (file, _("  --subsystem [:]     Set required OS subsystem [& version]\n"));

  fprintf (file, _("  --support-old-code                 Support interworking with old code\n"));

  fprintf (file, _("  --[no-]leading-underscore          Set explicit symbol underscore prefix mode\n"));

  fprintf (file, _("  --thumb-entry=             Set the entry point to be Thumb \n"));

  fprintf (file, _("  --insert-timestamp                 Use a real timestamp rather than zero.\n"));

  fprintf (file, _("                                     This makes binaries non-deterministic\n"));

#ifdef DLL_SUPPORT

  fprintf (file, _("  --add-stdcall-alias                Export symbols with and without @nn\n"));

  fprintf (file, _("  --disable-stdcall-fixup            Don't link _sym to _sym@nn\n"));

  fprintf (file, _("  --enable-stdcall-fixup             Link _sym to _sym@nn without warnings\n"));

  fprintf (file, _("  --exclude-symbols sym,sym,...      Exclude symbols from automatic export\n"));

  fprintf (file, _("  --exclude-all-symbols              Exclude all symbols from automatic export\n"));

  fprintf (file, _("  --exclude-libs lib,lib,...         Exclude libraries from automatic export\n"));

  fprintf (file, _("  --exclude-modules-for-implib mod,mod,...\n"));

  fprintf (file, _("                                     Exclude objects, archive members from auto\n"));

  fprintf (file, _("                                     export, place into import library instead.\n"));

  fprintf (file, _("  --export-all-symbols               Automatically export all globals to DLL\n"));

  fprintf (file, _("  --kill-at                          Remove @nn from exported symbols\n"));

  fprintf (file, _("  --out-implib                 Generate import library\n"));

  fprintf (file, _("  --output-def                 Generate a .DEF file for the built DLL\n"));

  fprintf (file, _("  --warn-duplicate-exports           Warn about duplicate exports.\n"));

  fprintf (file, _("  --compat-implib                    Create backward compatible import libs;\n                                       create __imp_ as well.\n"));

  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=       When linking dynamically to a dll without\n                                       an importlib, use .dll\n                                       in preference to lib.dll \n"));

  fprintf (file, _("  --enable-auto-import               Do sophisticated 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\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"));

  fprintf (file, _("  --disable-large-address-aware      Executable does not support virtual\n                                       addresses greater than 2 gigabytes\n"));

  fprintf (file, _("  --enable-long-section-names        Use long COFF section names even in\n                                       executable image files\n"));

  fprintf (file, _("  --disable-long-section-names       Never use long COFF section names, even\n                                       in object files\n"));

  fprintf (file, _("  --dynamicbase			 Image base address may be relocated using\n				       address space layout randomization (ASLR)\n"));

  fprintf (file, _("  --forceinteg		 Code integrity checks are enforced\n"));

  fprintf (file, _("  --nxcompat		 Image is compatible with data execution prevention\n"));

  fprintf (file, _("  --no-isolation		 Image understands isolation but do not isolate the image\n"));

  fprintf (file, _("  --no-seh			 Image does not use SEH. No SE handler may\n				       be called in this image\n"));

  fprintf (file, _("  --no-bind			 Do not bind this image\n"));

  fprintf (file, _("  --wdmdriver		 Driver uses the WDM model\n"));

  fprintf (file, _("  --tsaware                  Image is Terminal Server aware\n"));

}

static void

set_pe_name (char *name, long val)

{

  /* Find the name and set it.  */

  for (i = 0; init[i].ptr; i++)

    {

      if (strcmp (name, GET_INIT_SYMBOL_NAME (i)) == 0)

	  init[i].value = val;

	  init[i].inited = 1;

	  if (strcmp (name,"__image_base__") == 0)

	    set_pe_name (U ("__ImageBase"), val);

	  return;

	}

    }

  abort ();

}

static void

set_entry_point (void)

{

  const char *entry;

  int i;

  static const struct

    {

      const int value;

      const char *entry;

  v[] =

    {

      { 1, "NtProcessStartup"  },

      { 2, "WinMainCRTStartup" },

      { 3, "mainCRTStartup"    },

      { 7, "__PosixProcessStartup"},

      { 9, "WinMainCRTStartup" },

      {14, "mainCRTStartup"    },

      { 0, NULL          }

    };

  /* Entry point name for arbitrary subsystem numbers.  */

  static const char default_entry[] = "mainCRTStartup";

  if (link_info.shared || dll)

#if defined (TARGET_IS_i386pe)

      entry = "DllMainCRTStartup@12";

      entry = "DllMainCRTStartup";

#endif

    }

  else

    {

      for (i = 0; v[i].entry; i++)

        if (v[i].value == pe_subsystem)

          break;

      if (v[i].entry != NULL)

        entry = v[i].entry;

      else

    }

  initial_symbol_char = (is_underscoring () != 0 ? "_" : "");

  if (*initial_symbol_char != '\0')

    {

	 allocated, so we don't free this string.  */

      alc_entry = xmalloc (strlen (initial_symbol_char)

			   + strlen (entry)

      strcpy (alc_entry, initial_symbol_char);

      strcat (alc_entry, entry);

      entry = alc_entry;

    }

  lang_default_entry (entry);

}

static void

{

  const char *sver;

  int len;

  int i;

  unsigned long temp_subsystem;

  static const struct

    {

      const char *name;

      const int value;

    }

  v[] =

    {

      { "native",  1},

      { "windows", 2},

      { "console", 3},

      { "posix",   7},

      { "wince",   9},

      { "xbox",   14},

      { NULL, 0 }

    };

  /* Check for the presence of a version number.  */

  sver = strchr (optarg, ':');

  if (sver == NULL)

    len = strlen (optarg);

    {

      len = sver - optarg;

      set_pe_name ("__major_subsystem_version__",

		    strtoul (sver + 1, &end, 0));

      if (*end == '.')

	set_pe_name ("__minor_subsystem_version__",

		      strtoul (end + 1, &end, 0));

      if (*end != '\0')

	einfo (_("%P: warning: bad version number in -subsystem option\n"));

    }

  /* Check for numeric subsystem.  */

  temp_subsystem = strtoul (optarg, & end, 0);

  if ((*end == ':' || *end == '\0') && (temp_subsystem < 65536))

    {

      for (i = 0; v[i].name; i++)

	if (v[i].value == (int) temp_subsystem)

	  break;

      /* Use this subsystem.  */

      pe_subsystem = (int) temp_subsystem;

    }

  else

      /* Search for subsystem by name.  */

      for (i = 0; v[i].name; i++)

	if (strncmp (optarg, v[i].name, len) == 0

	    && v[i].name[len] == '\0')

	  break;

      if (v[i].name == NULL)

	{

	  einfo (_("%P%F: invalid subsystem type %s\n"), optarg);

	  return;

      pe_subsystem = v[i].value;

    }

  set_pe_name ("__subsystem__", pe_subsystem);

  return;

}

set_pe_value (char *name)

{

  set_pe_name (name,  strtoul (optarg, &end, 0));

  if (end == optarg)

    einfo (_("%P%F: invalid hex number for PE parameter '%s'\n"), optarg);

  optarg = end;

set_pe_stack_heap (char *resname, char *comname)

{

  if (*optarg == ',')

    {

      optarg++;

      set_pe_value (comname);

  else if (*optarg)

    einfo (_("%P%F: strange hex info for PE parameter '%s'\n"), optarg);

}

static bfd_boolean

gldi386pe_handle_option (int optc)

{

    default:

      return FALSE;

    case OPTION_BASE_FILE:

      link_info.base_file = fopen (optarg, FOPEN_WB);

      if (link_info.base_file == NULL)

	einfo (_("%F%P: cannot open base file %s\n"), optarg);

      /* PE options.  */

    case OPTION_HEAP:

      set_pe_stack_heap ("__size_of_heap_reserve__", "__size_of_heap_commit__");

      break;

      set_pe_stack_heap ("__size_of_stack_reserve__", "__size_of_stack_commit__");

      break;

    case OPTION_SUBSYSTEM:

      set_pe_subsystem ();

      break;

    case OPTION_MAJOR_OS_VERSION:

      set_pe_value ("__major_os_version__");

      break;

    case OPTION_MINOR_OS_VERSION:

      set_pe_value ("__minor_os_version__");

      break;

    case OPTION_MAJOR_SUBSYSTEM_VERSION:

      set_pe_value ("__major_subsystem_version__");

      break;

    case OPTION_MINOR_SUBSYSTEM_VERSION:

      set_pe_value ("__minor_subsystem_version__");

      break;

    case OPTION_MAJOR_IMAGE_VERSION:

      set_pe_value ("__major_image_version__");

      break;

    case OPTION_MINOR_IMAGE_VERSION:

      set_pe_value ("__minor_image_version__");

      break;

    case OPTION_FILE_ALIGNMENT:

      set_pe_value ("__file_alignment__");

      break;

    case OPTION_SECTION_ALIGNMENT:

      set_pe_value ("__section_alignment__");

      break;

    case OPTION_DLL:

      set_pe_name ("__dll__", 1);

      break;

    case OPTION_IMAGE_BASE:

      set_pe_value ("__image_base__");

      break;

    case OPTION_SUPPORT_OLD_CODE:

      support_old_code = 1;

      break;

    case OPTION_THUMB_ENTRY:

      thumb_entry_symbol = optarg;

      break;

    case OPTION_USE_NUL_PREFIXED_IMPORT_TABLES:

      pe_use_nul_prefixed_import_tables = TRUE;

      break;

    case OPTION_NO_LEADING_UNDERSCORE:

      pe_leading_underscore = 0;

      break;

    case OPTION_LEADING_UNDERSCORE:

      pe_leading_underscore = 1;

      break;

    case OPTION_INSERT_TIMESTAMP:

      insert_timestamp = TRUE;

      break;

#ifdef DLL_SUPPORT

    case OPTION_OUT_DEF:

      pe_out_def_filename = xstrdup (optarg);

      break;

    case OPTION_EXPORT_ALL:

      pe_dll_export_everything = 1;

      break;

    case OPTION_EXCLUDE_SYMBOLS:

      pe_dll_add_excludes (optarg, EXCLUDESYMS);

      break;

    case OPTION_EXCLUDE_ALL_SYMBOLS:

      pe_dll_exclude_all_symbols = 1;

      break;

    case OPTION_EXCLUDE_LIBS:

      pe_dll_add_excludes (optarg, EXCLUDELIBS);

      break;

    case OPTION_EXCLUDE_MODULES_FOR_IMPLIB:

      pe_dll_add_excludes (optarg, EXCLUDEFORIMPLIB);

      break;

    case OPTION_KILL_ATS:

      pe_dll_kill_ats = 1;

      break;

    case OPTION_STDCALL_ALIASES:

      pe_dll_stdcall_aliases = 1;

      break;

    case OPTION_ENABLE_STDCALL_FIXUP:

      pe_enable_stdcall_fixup = 1;

      break;

    case OPTION_DISABLE_STDCALL_FIXUP:

      pe_enable_stdcall_fixup = 0;

      break;

    case OPTION_IMPLIB_FILENAME:

      pe_implib_filename = xstrdup (optarg);

      break;

    case OPTION_WARN_DUPLICATE_EXPORTS:

      pe_dll_warn_dup_exports = 1;

      break;

    case OPTION_IMP_COMPAT:

      pe_dll_compat_implib = 1;

      break;

    case OPTION_ENABLE_AUTO_IMAGE_BASE:

      pe_enable_auto_image_base = 1;

      break;

    case OPTION_DISABLE_AUTO_IMAGE_BASE:

      pe_enable_auto_image_base = 0;

      break;

    case OPTION_DLL_SEARCH_PREFIX:

      pe_dll_search_prefix = xstrdup (optarg);

      break;

    case OPTION_NO_DEFAULT_EXCLUDES:

      pe_dll_do_default_excludes = 0;

      break;

    case OPTION_DLL_ENABLE_AUTO_IMPORT:

      link_info.pei386_auto_import = 1;

      break;

    case OPTION_DLL_DISABLE_AUTO_IMPORT:

      link_info.pei386_auto_import = 0;

      break;

    case OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC:

      link_info.pei386_runtime_pseudo_reloc =

	DEFAULT_PSEUDO_RELOC_VERSION;

      break;

    case OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC_V1:

      link_info.pei386_runtime_pseudo_reloc = 1;

      break;

    case OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC_V2:

      link_info.pei386_runtime_pseudo_reloc = 2;

      break;

    case OPTION_DLL_DISABLE_RUNTIME_PSEUDO_RELOC:

      link_info.pei386_runtime_pseudo_reloc = 0;

      break;

    case OPTION_ENABLE_EXTRA_PE_DEBUG:

      pe_dll_extra_pe_debug = 1;

      break;

#endif

    case OPTION_LARGE_ADDRESS_AWARE:

      real_flags |= IMAGE_FILE_LARGE_ADDRESS_AWARE;

      break;

    case OPTION_DISABLE_LARGE_ADDRESS_AWARE:

      real_flags &= ~ IMAGE_FILE_LARGE_ADDRESS_AWARE;

      break;

    case OPTION_ENABLE_LONG_SECTION_NAMES:

      pe_use_coff_long_section_names = 1;

      break;

    case OPTION_DISABLE_LONG_SECTION_NAMES:

      pe_use_coff_long_section_names = 0;

      break;

/*  Get DLLCharacteristics bits  */

    case OPTION_DYNAMIC_BASE:

      pe_dll_characteristics |= IMAGE_DLL_CHARACTERISTICS_DYNAMIC_BASE;

      break;

    case OPTION_FORCE_INTEGRITY:

      pe_dll_characteristics |= IMAGE_DLL_CHARACTERISTICS_FORCE_INTEGRITY;

      break;

    case OPTION_NX_COMPAT:

      pe_dll_characteristics |= IMAGE_DLL_CHARACTERISTICS_NX_COMPAT;

      break;

    case OPTION_NO_ISOLATION:

      pe_dll_characteristics |= IMAGE_DLLCHARACTERISTICS_NO_ISOLATION;

      break;

    case OPTION_NO_SEH:

      pe_dll_characteristics |= IMAGE_DLLCHARACTERISTICS_NO_SEH;

      break;

    case OPTION_NO_BIND:

      pe_dll_characteristics |= IMAGE_DLLCHARACTERISTICS_NO_BIND;

      break;

    case OPTION_WDM_DRIVER:

      pe_dll_characteristics |= IMAGE_DLLCHARACTERISTICS_WDM_DRIVER;

      break;

    case OPTION_TERMINAL_SERVER_AWARE:

      pe_dll_characteristics |= IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE;

      break;

    }

  /*  Set DLLCharacteristics bits  */

  set_pe_name ("__dll_characteristics__", pe_dll_characteristics);

  return TRUE;

static unsigned long

strhash (const char *str)

  unsigned long hash;

  unsigned int c;

  unsigned int len;

  hash = 0;

  len = 0;

  s = (const unsigned char *) str;

  while ((c = *s++) != '\0')

      hash += c + (c << 17);

      hash ^= hash >> 2;

      ++len;

    }

  hash += len + (len << 17);

  hash ^= hash >> 2;

  return hash;

}

/* Use the output file to create a image base for relocatable DLLs.  */

static unsigned long

compute_dll_image_base (const char *ofile)

  unsigned long hash = strhash (ofile);

}

#endif

/* Assign values to the special symbols before the linker script is

   read.  */

static void

{

  /* Run through and invent symbols for all the

  int j;

  is_underscoring ();

  if (!init[IMAGEBASEOFF].inited)

    {

	init[IMAGEBASEOFF].value = 0;

	{

#ifdef DLL_SUPPORT

	  init[IMAGEBASEOFF].value = (pe_enable_auto_image_base

				      ? compute_dll_image_base (output_filename)

				      : NT_DLL_IMAGE_BASE);

#else

	  init[IMAGEBASEOFF].value = NT_DLL_IMAGE_BASE;

#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.  */

  if (link_info.relocatable)

    return;

  push_stat_ptr (&abs_output_section->children);

  for (j = 0; init[j].ptr; j++)

      long val = init[j].value;

      lang_assignment_statement_type *rv;

      rv = lang_add_assignment (exp_assign (GET_INIT_SYMBOL_NAME (j),

					    exp_intop (val), FALSE));

      if (init[j].size == sizeof (short))

	*(short *) init[j].ptr = val;

	*(int *) init[j].ptr = val;

      else if (init[j].size == sizeof (long))

	*(long *) init[j].ptr = val;

      /* This might be a long long or other special type.  */

      else if (init[j].size == sizeof (bfd_vma))

	*(bfd_vma *) init[j].ptr = val;

      else	abort ();

      if (j == IMAGEBASEOFF)

	image_base_statement = rv;

    }

  /* Restore the pointer.  */

  pop_stat_ptr ();

  if (pe.FileAlignment > pe.SectionAlignment)

    {

      einfo (_("%P: warning, file alignment > section alignment.\n"));

    }

/* This is called after the linker script and the command line options

   have been read.  */

static void

{

  /* PR ld/6744:  Warn the user if they have used an ELF-only

  if (link_info.export_dynamic)

    einfo (_("%P: warning: --export-dynamic is not supported for PE "

      "targets, did you mean --export-all-symbols?\n"));

  set_entry_point ();

  after_parse_default ();

}

/* pe-dll.c directly accesses pe_data_import_dll,

   Note - this variable is deliberately not initialised.

   This allows it to be treated as a common varaible, and only

char * pe_data_import_dll;

#ifdef DLL_SUPPORT

static struct bfd_link_hash_entry *pe_undef_found_sym;

static bfd_boolean

{

  int sl;

  const char *hs = h->root.string;

  sl = strlen (string);

  if (h->type == bfd_link_hash_defined

      && ((*hs == '@' && *string == '_'

		   && strncmp (hs + 1, string + 1, sl - 1) == 0)

      && h->root.string[sl] == '@')

    {

      pe_undef_found_sym = h;

      return FALSE;

    }

  return TRUE;

}

static void

pe_fixup_stdcalls (void)

{

  static int gave_warning_message = 0;

  if (pe_dll_extra_pe_debug)

    printf ("%s\n", __FUNCTION__);

  for (undef = link_info.hash->undefs; undef; undef=undef->u.undef.next)

      {

	char* at = strchr (undef->root.string, '@');

	if (lead_at)

	  at = strchr (undef->root.string + 1, '@');

	if (at || lead_at)

	  {

	    /* The symbol is a stdcall symbol, so let's look for a

	       cdecl symbol with the same name and resolve to that.  */

	    if (lead_at)

	      *cname = '_';

	    at = strchr (cname, '@');

	    if (at)

	    sym = bfd_link_hash_lookup (link_info.hash, cname, 0, 0, 1);

	    if (sym && sym->type == bfd_link_hash_defined)

	      {

		undef->type = bfd_link_hash_defined;

		undef->u.def.value = sym->u.def.value;

		if (pe_enable_stdcall_fixup == -1)

		  {

		    einfo (_("Warning: resolving %s by linking to %s\n"),

			   undef->root.string, cname);

		      {

			gave_warning_message = 1;

			einfo (_("Use --enable-stdcall-fixup to disable these warnings\n"));

			einfo (_("Use --disable-stdcall-fixup to disable these fixups\n"));

		      }

		  }

	      }

	  }

	else

	  {

	    /* The symbol is a cdecl symbol, so we look for stdcall

	       symbols - which means scanning the whole symbol table.  */

	    pe_undef_found_sym = 0;

	    bfd_link_hash_traverse (link_info.hash, pe_undef_cdecl_match,

				    (char *) undef->root.string);

	    sym = pe_undef_found_sym;

	    if (sym)

	      {

		undef->type = bfd_link_hash_defined;

		undef->u.def.value = sym->u.def.value;

		undef->u.def.section = sym->u.def.section;

		if (pe_enable_stdcall_fixup == -1)

		  {

		    einfo (_("Warning: resolving %s by linking to %s\n"),

			   undef->root.string, sym->root.string);

		      {

			gave_warning_message = 1;

			einfo (_("Use --enable-stdcall-fixup to disable these warnings\n"));

			einfo (_("Use --disable-stdcall-fixup to disable these fixups\n"));

		      }

		  }

	      }

	  }

      }

}

static int

make_import_fixup (arelent *rel, asection *s)

{

  struct bfd_symbol *sym = *rel->sym_ptr_ptr;

  if (pe_dll_extra_pe_debug)

    printf ("arelent: %s@%#lx: add=%li\n", sym->name,

	    (unsigned long) rel->address, (long) rel->addend);

    einfo (_("%C: Cannot get section contents - auto-import exception\n"),

	   s->owner, s, rel->address);

  return 1;

}

static 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->u.undef.next)

      if (undef->type == bfd_link_hash_undefined)

	{

	  char buf[4096];

	  if (pe_dll_extra_pe_debug)

	    printf ("%s:%s\n", __FUNCTION__, undef->root.string);

	  sprintf (buf, "__imp_%s", undef->root.string);

	  sym = bfd_link_hash_lookup (link_info.hash, buf, 0, 0, 1);

	    {

	      asymbol **symbols;

	      if (link_info.pei386_auto_import == -1)

		{

		  static bfd_boolean warned = FALSE;

			    undef->root.string, buf);

		  /* PR linker/4844.  */

		    {

		      warned = TRUE;

		    }

		}

	      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 (! CONST_STRNEQ (symbols[i]->name,

				      U ("_head_")))

		  if (pe_dll_extra_pe_debug)

		    printf ("->%s\n", symbols[i]->name);

		  pe_data_import_dll = (char *) (symbols[i]->name

		  break;

		}

	      pe_walk_relocs_of_symbol (&link_info, undef->root.string,