bfd, ld: add CTF section linking
[deliverable/binutils-gdb.git] / ld / emultempl / pep.em
index ad48426ae226aeb17eee0aec96a0ed5e13708eaf..ec2d83fa633527589a60ff03ed5eb36b8c57f068 100644 (file)
@@ -18,7 +18,7 @@ esac
 rm -f e${EMULATION_NAME}.c
 (echo;echo;echo;echo;echo)>e${EMULATION_NAME}.c # there, now line numbers match ;-)
 fragment <<EOF
-/* Copyright (C) 2006-2018 Free Software Foundation, Inc.
+/* Copyright (C) 2006-2019 Free Software Foundation, Inc.
    Written by Kai Tietz, OneVision Software GmbH&CoKg.
 
    This file is part of the GNU Binutils.
@@ -51,6 +51,7 @@ fragment <<EOF
 #include "sysdep.h"
 #include "bfd.h"
 #include "bfdlink.h"
+#include "ctf-api.h"
 #include "getopt.h"
 #include "libiberty.h"
 #include "filenames.h"
@@ -356,11 +357,6 @@ typedef struct
 #define U(CSTR) \
   ((is_underscoring () == 0) ? CSTR : "_" CSTR)
 
-/* Get size of constant string for a possible underscore prefixed
-   C visible symbol.  */
-#define U_SIZE(CSTR) \
-  (sizeof (CSTR) + (is_underscoring () == 0 ? 0 : 1))
-
 #define D(field,symbol,def,usc)  {&pep.field, sizeof (pep.field), def, symbol, 0, usc}
 
 static definfo init[] =
@@ -410,7 +406,7 @@ gld_${EMULATION_NAME}_list_options (FILE *file)
   fprintf (file, _("  --subsystem <name>[:<version>]     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, _("  --[no-]insert-timestamp            Use a real timestamp rather than zero. (default)\n"));
+  fprintf (file, _("  --[no-]insert-timestamp            Use a real timestamp rather than zero (default)\n"));
   fprintf (file, _("                                     This makes binaries non-deterministic\n"));
 #ifdef DLL_SUPPORT
   fprintf (file, _("  --add-stdcall-alias                Export symbols with and without @nn\n"));
@@ -421,16 +417,16 @@ gld_${EMULATION_NAME}_list_options (FILE *file)
   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, 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, _("  --output-def <file>                Generate a .DEF file for the built DLL\n"));
-  fprintf (file, _("  --warn-duplicate-exports           Warn about duplicate exports.\n"));
+  fprintf (file, _("  --warn-duplicate-exports           Warn about duplicate exports\n"));
   fprintf (file, _("  --compat-implib                    Create backward compatible import libs;\n\
-                                       create __imp_<SYMBOL> as well.\n"));
+                                       create __imp_<SYMBOL> 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, _("  --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\n\
                                        an importlib, use <string><basename>.dll\n\
                                        in preference to lib<basename>.dll \n"));
@@ -439,9 +435,9 @@ gld_${EMULATION_NAME}_list_options (FILE *file)
   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"));
+                                       runtime\n"));
   fprintf (file, _("  --disable-runtime-pseudo-reloc     Do not add runtime pseudo-relocations for\n\
-                                       auto-imported DATA.\n"));
+                                       auto-imported DATA\n"));
   fprintf (file, _("  --enable-extra-pep-debug            Enable verbose debug output when building\n\
                                        or linking to DLLs (esp. auto-import)\n"));
   fprintf (file, _("  --enable-long-section-names        Use long COFF section names even in\n\
@@ -450,15 +446,15 @@ gld_${EMULATION_NAME}_list_options (FILE *file)
                                        in object files\n"));
   fprintf (file, _("  --high-entropy-va                  Image is compatible with 64-bit address space\n\
                                        layout randomization (ASLR)\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, _("  --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"));
   fprintf (file, _("  --build-id[=STYLE]         Generate build ID\n"));
 #endif
@@ -610,7 +606,7 @@ set_pep_subsystem (void)
 
       if (v[i].name == NULL)
        {
-         einfo (_("%P%F: invalid subsystem type %s\n"), optarg);
+         einfo (_("%F%P: invalid subsystem type %s\n"), optarg);
          return;
        }
 
@@ -631,7 +627,7 @@ set_pep_value (char *name)
   set_pep_name (name,  (bfd_vma) strtoull (optarg, &end, 0));
 
   if (end == optarg)
-    einfo (_("%P%F: invalid hex number for PE parameter '%s'\n"), optarg);
+    einfo (_("%F%P: invalid hex number for PE parameter '%s'\n"), optarg);
 
   optarg = end;
 }
@@ -648,7 +644,7 @@ set_pep_stack_heap (char *resname, char *comname)
       set_pep_value (comname);
     }
   else if (*optarg)
-    einfo (_("%P%F: strange hex info for PE parameter '%s'\n"), optarg);
+    einfo (_("%F%P: strange hex info for PE parameter '%s'\n"), optarg);
 }
 
 #define DEFAULT_BUILD_ID_STYLE "md5"
@@ -945,7 +941,7 @@ gld_${EMULATION_NAME}_set_symbols (void)
 
   if (pep.FileAlignment > pep.SectionAlignment)
     {
-      einfo (_("%P: warning, file alignment > section alignment.\n"));
+      einfo (_("%P: warning, file alignment > section alignment\n"));
     }
 }
 
@@ -966,13 +962,6 @@ gld_${EMULATION_NAME}_after_parse (void)
   after_parse_default ();
 }
 
-/* pep-dll.c directly accesses pep_data_import_dll,
-   so it must be defined outside of #ifdef DLL_SUPPORT.
-   Note - this variable is deliberately not initialised.
-   This allows it to be treated as a common varaible, and only
-   exist in one incarnation in a multiple target enabled linker.  */
-char * pep_data_import_dll;
-
 #ifdef DLL_SUPPORT
 static struct bfd_link_hash_entry *pep_undef_found_sym;
 
@@ -1033,7 +1022,7 @@ pep_fixup_stdcalls (void)
 
                if (pep_enable_stdcall_fixup == -1)
                  {
-                   einfo (_("Warning: resolving %s by linking to %s\n"),
+                   einfo (_("warning: resolving %s by linking to %s\n"),
                           undef->root.string, cname);
                    if (! gave_warning_message)
                      {
@@ -1060,7 +1049,7 @@ pep_fixup_stdcalls (void)
 
                if (pep_enable_stdcall_fixup == -1)
                  {
-                   einfo (_("Warning: resolving %s by linking to %s\n"),
+                   einfo (_("warning: resolving %s by linking to %s\n"),
                           undef->root.string, sym->root.string);
                    if (! gave_warning_message)
                      {
@@ -1074,8 +1063,8 @@ pep_fixup_stdcalls (void)
       }
 }
 
-static int
-make_import_fixup (arelent *rel, asection *s, char *name)
+static void
+make_import_fixup (arelent *rel, asection *s, char *name, const char *symname)
 {
   struct bfd_symbol *sym = *rel->sym_ptr_ptr;
   char addend[8];
@@ -1117,7 +1106,7 @@ make_import_fixup (arelent *rel, asection *s, char *name)
       break;
     }
   if (! suc)
-    einfo (_("%C: Cannot get section contents - auto-import exception\n"),
+    einfo (_("%P: %C: cannot get section contents - auto-import exception\n"),
           s->owner, s, rel->address);
 
   if (pep_dll_extra_pe_debug)
@@ -1128,98 +1117,8 @@ make_import_fixup (arelent *rel, asection *s, char *name)
        printf (" pcrel");
       printf (" %d bit rel.\n", (int) rel->howto->bitsize);
     }
-  pep_create_import_fixup (rel, s, _addend, name);
 
-  return 1;
-}
-
-static void
-pep_find_data_imports (void)
-{
-  struct bfd_link_hash_entry *undef, *sym;
-  size_t namelen;
-  char *buf, *name;
-
-  if (link_info.pei386_auto_import == 0)
-    return;
-
-  namelen = 0;
-  for (undef = link_info.hash->undefs; undef; undef = undef->u.undef.next)
-    {
-      if (undef->type == bfd_link_hash_undefined)
-       {
-         size_t len = strlen (undef->root.string);
-         if (namelen < len)
-           namelen = len;
-       }
-    }
-  if (namelen == 0)
-    return;
-
-  /* We are being a bit cunning here.  The buffer will have space for
-     prefixes at the beginning.  The prefix is modified here and in a
-     number of functions called from this function.  */
-#define PREFIX_LEN 32
-  buf = xmalloc (PREFIX_LEN + namelen + 1);
-  name = buf + PREFIX_LEN;
-
-  for (undef = link_info.hash->undefs; undef; undef = undef->u.undef.next)
-    {
-      if (undef->type == bfd_link_hash_undefined)
-       {
-         char *impname;
-
-         if (pep_dll_extra_pe_debug)
-           printf ("%s:%s\n", __FUNCTION__, undef->root.string);
-
-         strcpy (name, undef->root.string);
-         impname = name - (sizeof "__imp_" - 1);
-         memcpy (impname, "__imp_", sizeof "__imp_" - 1);
-
-         sym = bfd_link_hash_lookup (link_info.hash, impname, 0, 0, 1);
-
-         if (sym && sym->type == bfd_link_hash_defined)
-           {
-             bfd *b = sym->u.def.section->owner;
-             asymbol **symbols;
-             int nsyms, i;
-
-             if (!bfd_generic_link_read_symbols (b))
-               {
-                 einfo (_("%pB%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_")))
-                   continue;
-
-                 if (pep_dll_extra_pe_debug)
-                   printf ("->%s\n", symbols[i]->name);
-
-                 pep_data_import_dll = (char *) (symbols[i]->name
-                                                 + U_SIZE ("_head_") - 1);
-                 break;
-               }
-
-             pep_walk_relocs_of_symbol (&link_info, name, make_import_fixup);
-
-             /* Let's differentiate it somehow from defined.  */
-             undef->type = bfd_link_hash_defweak;
-             /* We replace original name with __imp_ prefixed, this
-                1) may trash memory 2) leads to duplicate symbol generation.
-                Still, IMHO it's better than having name polluted.  */
-             undef->root.string = sym->root.string;
-             undef->u.def.value = sym->u.def.value;
-             undef->u.def.section = sym->u.def.section;
-           }
-       }
-    }
-  free (buf);
+  pep_create_import_fixup (rel, s, _addend, name, symname);
 }
 
 static bfd_boolean
@@ -1302,7 +1201,7 @@ write_build_id (bfd *abfd)
   if (!link_order)
     {
       einfo (_("%P: warning: .buildid section discarded,"
-              " --build-id ignored.\n"));
+              " --build-id ignored\n"));
       return TRUE;
     }
 
@@ -1374,7 +1273,7 @@ setup_build_id (bfd *ibfd)
 
   if (!validate_build_id_style (emit_build_id))
     {
-      einfo (_("%P: warning: unrecognized --build-id style ignored.\n"));
+      einfo (_("%P: warning: unrecognized --build-id style ignored\n"));
       return FALSE;
     }
 
@@ -1398,8 +1297,8 @@ setup_build_id (bfd *ibfd)
       return TRUE;
     }
 
-  einfo (_("%P: warning: Cannot create .buildid section,"
-          " --build-id ignored.\n"));
+  einfo (_("%P: warning: cannot create .buildid section,"
+          " --build-id ignored\n"));
   return FALSE;
 }
 
@@ -1450,9 +1349,10 @@ 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 (link_info.output_bfd) == NULL
+  if (bfd_get_flavour (link_info.output_bfd) != bfd_target_coff_flavour
+      || 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 '%pB'.\n"),
+    einfo (_("%F%P: cannot perform PE operations on non PE output file '%pB'\n"),
           link_info.output_bfd);
 
   pe_data (link_info.output_bfd)->pe_opthdr = pep;
@@ -1491,16 +1391,15 @@ gld_${EMULATION_NAME}_after_open (void)
   pep_output_file_set_long_section_names (link_info.output_bfd);
 
 #ifdef DLL_SUPPORT
-  if (pep_enable_stdcall_fixup) /* -1=warn or 1=disable */
-    pep_fixup_stdcalls ();
-
   pep_process_import_defs (link_info.output_bfd, &link_info);
 
-  pep_find_data_imports ();
+  if (link_info.pei386_auto_import) /* -1=warn or 1=enable */
+    pep_find_data_imports (U ("_head_"), make_import_fixup);
 
-  /* As possibly new symbols are added by imports, we rerun
-     stdcall/fastcall fixup here.  */
-  if (pep_enable_stdcall_fixup) /* -1=warn or 1=disable */
+  /* The implementation of the feature is rather dumb and would cause the
+     compilation time to go through the roof if there are many undefined
+     symbols in the link, so it needs to be run after auto-import.  */
+  if (pep_enable_stdcall_fixup) /* -1=warn or 1=enable */
     pep_fixup_stdcalls ();
 
 #ifndef TARGET_IS_i386pep
@@ -1562,7 +1461,7 @@ gld_${EMULATION_NAME}_after_open (void)
 
                    if (!bfd_generic_link_read_symbols (is->the_bfd))
                      {
-                       einfo (_("%pB%F: could not read symbols: %E\n"),
+                       einfo (_("%F%P: %pB: could not read symbols: %E\n"),
                               is->the_bfd);
                        return;
                      }
@@ -1582,7 +1481,7 @@ gld_${EMULATION_NAME}_after_open (void)
                      {
                        struct bfd_symbol *s;
                        struct bfd_link_hash_entry * blhe;
-                       char *other_bfd_filename;
+                       const char *other_bfd_filename;
                        char *n;
 
                        s = (relocs[i]->sym_ptr_ptr)[0];
@@ -1612,7 +1511,7 @@ gld_${EMULATION_NAME}_after_open (void)
                        /* Rename this implib to match the other one.  */
                        n = xmalloc (strlen (other_bfd_filename) + 1);
                        strcpy (n, other_bfd_filename);
-                       is->the_bfd->my_archive->filename = n;
+                       bfd_set_filename (is->the_bfd->my_archive, n);
                      }
 
                    free (relocs);
@@ -1717,7 +1616,7 @@ gld_${EMULATION_NAME}_after_open (void)
 
                new_name = xmalloc (strlen (is->the_bfd->filename) + 3);
                sprintf (new_name, "%s.%c", is->the_bfd->filename, seq);
-               is->the_bfd->filename = new_name;
+               bfd_set_filename (is->the_bfd, new_name);
 
                new_name = xmalloc (strlen (is->filename) + 3);
                sprintf (new_name, "%s.%c", is->filename, seq);
@@ -1786,7 +1685,7 @@ gld_${EMULATION_NAME}_unrecognized_file (lang_input_statement_type *entry ATTRIB
 
              h = bfd_link_hash_lookup (link_info.hash, buf, TRUE, TRUE, TRUE);
              if (h == (struct bfd_link_hash_entry *) NULL)
-               einfo (_("%P%F: bfd_link_hash_lookup failed: %E\n"));
+               einfo (_("%F%P: bfd_link_hash_lookup failed: %E\n"));
              if (h->type == bfd_link_hash_new)
                {
                  h->type = bfd_link_hash_undefined;
@@ -2016,9 +1915,7 @@ gld_${EMULATION_NAME}_place_orphan (asection *s,
                && (nexts->flags & SEC_EXCLUDE) == 0
                && ((nexts->flags ^ flags) & (SEC_LOAD | SEC_ALLOC)) == 0
                && (nexts->owner->flags & DYNAMIC) == 0
-               && nexts->owner->usrdata != NULL
-               && !(((lang_input_statement_type *) nexts->owner->usrdata)
-                    ->flags.just_syms))
+               && !bfd_input_just_syms (nexts->owner))
              flags = (((flags ^ SEC_READONLY)
                        | (nexts->flags ^ SEC_READONLY))
                       ^ SEC_READONLY);
@@ -2053,8 +1950,7 @@ gld_${EMULATION_NAME}_place_orphan (asection *s,
                                                       NULL);
          if (after == NULL)
            /* *ABS* is always the first output section statement.  */
-           after = (&lang_output_section_statement.head
-                    ->output_section_statement);
+           after = &lang_os_list.head->output_section_statement;
        }
 
       /* All sections in an executable must be aligned to a page boundary.
@@ -2065,7 +1961,7 @@ gld_${EMULATION_NAME}_place_orphan (asection *s,
                               &add_child);
       if (bfd_link_relocatable (&link_info))
        {
-         os->section_alignment = s->alignment_power;
+         os->section_alignment = exp_intop (1U << s->alignment_power);
          os->bfd_section->alignment_power = s->alignment_power;
        }
     }
@@ -2082,7 +1978,7 @@ gld_${EMULATION_NAME}_place_orphan (asection *s,
 
       ls = &(*pl)->input_section;
 
-      lname = bfd_get_section_name (ls->section->owner, ls->section);
+      lname = bfd_section_name (ls->section);
       if (strchr (lname, '\$') != NULL
          && (dollar == NULL || strcmp (orig_secname, lname) < 0))
        break;
@@ -2120,6 +2016,8 @@ gld_${EMULATION_NAME}_open_dynamic_archive
       { "lib%s.a", FALSE },
       /* The 'native' spelling of an import lib name is "foo.lib".  */
       { "%s.lib", FALSE },
+      /* PR 22948 - Check for an import library.  */
+      { "lib%s.lib", FALSE },
 #ifdef DLL_SUPPORT
       /* Try "<prefix>foo.dll" (preferred dll name, if specified).  */
       {        "%s%s.dll", TRUE },
@@ -2268,6 +2166,8 @@ struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
   gld_${EMULATION_NAME}_recognized_file,
   gld_${EMULATION_NAME}_find_potential_libraries,
   NULL,        /* new_vers_pattern.  */
-  NULL /* extra_map_file_text */
+  NULL,        /* extra_map_file_text */
+  ${LDEMUL_EMIT_CTF_EARLY-NULL},
+  ${LDEMUL_EXAMINE_STRTAB_FOR_CTF-NULL}
 };
 EOF
This page took 0.030145 seconds and 4 git commands to generate.