tweak
[binutils-gdb.git] / ld / lexsup.c
index 30394bf2bb5d1c8b5ae0bc41820011df00bfc0bf..bf61c74793355114c74d0213f4b80966f1005ac8 100644 (file)
@@ -1,5 +1,5 @@
 /* Parse options for the GNU linker.
-   Copyright (C) 1991, 92, 93, 94, 1995 Free Software Foundation, Inc.
+   Copyright (C) 1991, 92, 93, 94, 95, 1996 Free Software Foundation, Inc.
 
 This file is part of GLD, the Gnu Linker.
 
@@ -19,12 +19,12 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307
 
 #include "bfd.h"
 #include "sysdep.h"
+#include "libiberty.h"
 #include <stdio.h>
 #include <string.h>
 #include <ctype.h>
 #include "getopt.h"
 #include "bfdlink.h"
-#include "config.h"
 #include "ld.h"
 #include "ldmain.h"
 #include "ldmisc.h"
@@ -34,6 +34,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307
 #include "ldlex.h"
 #include "ldfile.h"
 #include "ldver.h"
+#include "ldemul.h"
 
 /* Somewhere above, sys/stat.h got included . . . . */
 #if !defined(S_ISDIR) && defined(S_IFDIR)
@@ -46,42 +47,22 @@ unsigned long strtoul ();
 
 static void set_default_dirlist PARAMS ((char *dirlist_ptr));
 static void set_section_start PARAMS ((char *sect, char *valstr));
+static void help PARAMS ((void));
 
-/* PE format; declare additional functions */
-static void set_pe_subsystem PARAMS ((void));
-static void set_pe_stack_heap PARAMS ((bfd_link_pe_info_dval *reserve,
-                                   bfd_link_pe_info_dval *commit));
-static void set_pe_value PARAMS ((bfd_link_pe_info_dval *val));
+/* Non-zero if we are processing a --defsym from the command line.  */
+int parsing_defsym = 0;
 
-/* PE info; passed to bfd if any pe options set. */
-static bfd_link_pe_info pe_info;
+/* Codes used for the long options with no short synonyms.  150 isn't
+   special; it's just an arbitrary non-ASCII char value.  */
 
-
-void
-parse_args (argc, argv)
-     int argc;
-     char **argv;
-{
-  int i;
-  int ingroup = 0;
-
-  /* Starting the short option string with '-' is for programs that
-     expect options and other ARGV-elements in any order and that care about
-     the ordering of the two.  We describe each non-option ARGV-element
-     as if it were the argument of an option with character code 1.  */
-
-  const char *shortopts =
-    "-a:A:B::b:c:de:F::G:gh:iL:l:Mm:NnO:o:R:rSsT:tu:VvXxY:y:z:()";
-
-  /* 150 isn't special; it's just an arbitrary non-ASCII char value.  */
-
-#define OPTION_CALL_SHARED             150
-#define OPTION_DEFSYM                  (OPTION_CALL_SHARED + 1)
+#define OPTION_ASSERT                  150
+#define OPTION_CALL_SHARED             (OPTION_ASSERT + 1)
+#define OPTION_CREF                    (OPTION_CALL_SHARED + 1)
+#define OPTION_DEFSYM                  (OPTION_CREF + 1)
 #define OPTION_DYNAMIC_LINKER          (OPTION_DEFSYM + 1)
 #define OPTION_EB                      (OPTION_DYNAMIC_LINKER + 1)
 #define OPTION_EL                      (OPTION_EB + 1)
-#define OPTION_HEAP                    (OPTION_EL + 1)
-#define OPTION_EMBEDDED_RELOCS         (OPTION_HEAP + 1)
+#define OPTION_EMBEDDED_RELOCS         (OPTION_EL + 1)
 #define OPTION_EXPORT_DYNAMIC          (OPTION_EMBEDDED_RELOCS + 1)
 #define OPTION_HELP                    (OPTION_EXPORT_DYNAMIC + 1)
 #define OPTION_IGNORE                  (OPTION_HELP + 1)
@@ -89,11 +70,13 @@ parse_args (argc, argv)
 #define OPTION_NO_KEEP_MEMORY          (OPTION_MAP + 1)
 #define OPTION_NOINHIBIT_EXEC          (OPTION_NO_KEEP_MEMORY + 1)
 #define OPTION_NON_SHARED              (OPTION_NOINHIBIT_EXEC + 1)
-#define OPTION_OFORMAT                 (OPTION_NON_SHARED + 1)
+#define OPTION_NO_WHOLE_ARCHIVE                (OPTION_NON_SHARED + 1)
+#define OPTION_OFORMAT                 (OPTION_NO_WHOLE_ARCHIVE + 1)
 #define OPTION_RELAX                   (OPTION_OFORMAT + 1)
 #define OPTION_RETAIN_SYMBOLS_FILE     (OPTION_RELAX + 1)
 #define OPTION_RPATH                   (OPTION_RETAIN_SYMBOLS_FILE + 1)
-#define OPTION_SHARED                  (OPTION_RPATH + 1)
+#define OPTION_RPATH_LINK              (OPTION_RPATH + 1)
+#define OPTION_SHARED                  (OPTION_RPATH_LINK + 1)
 #define OPTION_SONAME                  (OPTION_SHARED + 1)
 #define OPTION_SORT_COMMON             (OPTION_SONAME + 1)
 #define OPTION_STATS                   (OPTION_SORT_COMMON + 1)
@@ -107,96 +90,267 @@ parse_args (argc, argv)
 #define OPTION_VERSION                 (OPTION_VERBOSE + 1)
 #define OPTION_WARN_COMMON             (OPTION_VERSION + 1)
 #define OPTION_WARN_CONSTRUCTORS       (OPTION_WARN_COMMON + 1)
-#define OPTION_WARN_ONCE               (OPTION_WARN_CONSTRUCTORS + 1)
+#define OPTION_WARN_MULTIPLE_GP                (OPTION_WARN_CONSTRUCTORS + 1)
+#define OPTION_WARN_ONCE               (OPTION_WARN_MULTIPLE_GP + 1)
 #define OPTION_SPLIT_BY_RELOC          (OPTION_WARN_ONCE + 1)
 #define OPTION_SPLIT_BY_FILE           (OPTION_SPLIT_BY_RELOC + 1)
 #define OPTION_WHOLE_ARCHIVE           (OPTION_SPLIT_BY_FILE + 1)
+#define OPTION_WRAP                    (OPTION_WHOLE_ARCHIVE + 1)
+#define OPTION_FORCE_EXE_SUFFIX                (OPTION_WRAP + 1)
 
-/* Used for setting flags in the PE header. */
-#define OPTION_BASE_FILE               (OPTION_WHOLE_ARCHIVE + 1)
-#define OPTION_DLL                     (OPTION_BASE_FILE + 1)
-#define OPTION_FILE_ALIGNMENT          (OPTION_DLL + 1)
-#define OPTION_IMAGE_BASE              (OPTION_FILE_ALIGNMENT + 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)
-
-  static struct option longopts[] = {
-  /* Sorted alphabeticaly, except for the PE options grouped at the end. */
-    {"Bdynamic", no_argument, NULL, OPTION_CALL_SHARED},
-    {"Bstatic", no_argument, NULL, OPTION_NON_SHARED},
-    {"Bsymbolic", no_argument, NULL, OPTION_SYMBOLIC},
-    {"call_shared", no_argument, NULL, OPTION_CALL_SHARED},
-    {"dc", no_argument, NULL, 'd'},
-    {"defsym", required_argument, NULL, OPTION_DEFSYM},
-    {"dll-verbose", no_argument, NULL, OPTION_VERSION}, /* Linux.  */
-    {"dn", no_argument, NULL, OPTION_NON_SHARED},
-    {"dp", no_argument, NULL, 'd'},
-    {"dy", no_argument, NULL, OPTION_CALL_SHARED},
-    {"dynamic-linker", required_argument, NULL, OPTION_DYNAMIC_LINKER},
-    {"EB", no_argument, NULL, OPTION_EB},
-    {"EL", no_argument, NULL, OPTION_EL},
-    {"embedded-relocs", no_argument, NULL, OPTION_EMBEDDED_RELOCS},
-    {"end-group", no_argument, NULL, ')'},
-    {"export-dynamic", no_argument, NULL, OPTION_EXPORT_DYNAMIC},
-    {"format", required_argument, NULL, 'b'},
-    {"help", no_argument, NULL, OPTION_HELP},
-    {"Map", required_argument, NULL, OPTION_MAP},
-    {"no-keep-memory", no_argument, NULL, OPTION_NO_KEEP_MEMORY},
-    {"noinhibit-exec", no_argument, NULL, OPTION_NOINHIBIT_EXEC},
-    {"noinhibit_exec", no_argument, NULL, OPTION_NOINHIBIT_EXEC},
-    {"non_shared", no_argument, NULL, OPTION_NON_SHARED},
-    {"oformat", required_argument, NULL, OPTION_OFORMAT},
-    {"Qy", no_argument, NULL, OPTION_IGNORE},
-    {"qmagic", no_argument, NULL, OPTION_IGNORE}, /* Linux compatibility.  */
-    {"relax", no_argument, NULL, OPTION_RELAX},
-    {"retain-symbols-file", required_argument, NULL, OPTION_RETAIN_SYMBOLS_FILE},
-    {"rpath", required_argument, NULL, OPTION_RPATH},
-    {"shared", no_argument, NULL, OPTION_SHARED},
-    {"soname", required_argument, NULL, OPTION_SONAME},
-    {"sort-common", no_argument, NULL, OPTION_SORT_COMMON},
-    {"sort_common", no_argument, NULL, OPTION_SORT_COMMON},
-    {"start-group", no_argument, NULL, '('},
-    {"stats", no_argument, NULL, OPTION_STATS},
-    {"static", no_argument, NULL, OPTION_NON_SHARED},
-    {"Tbss", required_argument, NULL, OPTION_TBSS},
-    {"Tdata", required_argument, NULL, OPTION_TDATA},
-    {"Ttext", required_argument, NULL, OPTION_TTEXT},
-    {"traditional-format", no_argument, NULL, OPTION_TRADITIONAL_FORMAT},
-    {"Ur", no_argument, NULL, OPTION_UR},
-    {"verbose", no_argument, NULL, OPTION_VERBOSE},
-    {"version", no_argument, NULL, OPTION_VERSION},
-    {"warn-common", no_argument, NULL, OPTION_WARN_COMMON},
-    {"warn-constructors", no_argument, NULL, OPTION_WARN_CONSTRUCTORS},
-    {"warn-once", no_argument, NULL, OPTION_WARN_ONCE},
-    {"split-by-reloc", required_argument, NULL, OPTION_SPLIT_BY_RELOC},
-    {"split-by-file", no_argument, NULL, OPTION_SPLIT_BY_FILE},
-    {"whole-archive", no_argument, NULL, OPTION_WHOLE_ARCHIVE},
-
-  /* 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},
-      
-    {NULL, no_argument, NULL, 0}
-  };
+/* The long options.  This structure is used for both the option
+   parsing and the help text.  */
+
+struct ld_option
+{
+  /* The long option information.  */
+  struct option opt;
+  /* The short option with the same meaning ('\0' if none).  */
+  char shortopt;
+  /* The name of the argument (NULL if none).  */
+  const char *arg;
+  /* The documentation string.  If this is NULL, this is a synonym for
+     the previous option.  */
+  const char *doc;
+  enum
+    {
+      /* Use one dash before long option name.  */
+      ONE_DASH,
+      /* Use two dashes before long option name.  */
+      TWO_DASHES,
+      /* Don't mention this option in --help output.  */
+      NO_HELP
+    } control;
+};
+
+static const struct ld_option ld_options[] =
+{
+  { {NULL, required_argument, NULL, '\0'},
+      'a', "KEYWORD", "Shared library control for HP/UX compatibility",
+      ONE_DASH },
+  { {"architecture", required_argument, NULL, 'A'},
+      'A', "ARCH", "Set architecture" , TWO_DASHES },
+  { {"format", required_argument, NULL, 'b'},
+      'b', "TARGET", "Specify target for following input files", TWO_DASHES },
+  { {"mri-script", required_argument, NULL, 'c'},
+      'c', "FILE", "Read MRI format linker script", TWO_DASHES },
+  { {"dc", no_argument, NULL, 'd'},
+      'd', NULL, "Force common symbols to be defined", ONE_DASH },
+  { {"dp", no_argument, NULL, 'd'},
+      '\0', NULL, NULL, ONE_DASH },
+  { {"entry", required_argument, NULL, 'e'},
+      'e', "ADDRESS", "Set start address", TWO_DASHES },
+  { {"export-dynamic", no_argument, NULL, OPTION_EXPORT_DYNAMIC},
+      'E', NULL, "Export all dynamic symbols", TWO_DASHES },
+  { {NULL, optional_argument, NULL, '\0'},
+      'F', "[FORMAT]", "Ignored", ONE_DASH },
+  { {NULL, no_argument, NULL, '\0'},
+      'g', NULL, "Ignored", ONE_DASH },
+  { {"gpsize", required_argument, NULL, 'G'},
+      'G', "SIZE", "Small data size (if no size, same as --shared)",
+      TWO_DASHES },
+  { {"soname", required_argument, NULL, OPTION_SONAME},
+      'h', "FILENAME", "Set internal name of shared library", ONE_DASH },
+  { {"library", required_argument, NULL, 'l'},
+      'l', "LIBNAME", "Search for library LIBNAME", TWO_DASHES },
+  { {"library-path", required_argument, NULL, 'L'},
+      'L', "DIRECTORY", "Add DIRECTORY to library search path", TWO_DASHES },
+  { {NULL, required_argument, NULL, '\0'},
+      'm', "EMULATION", "Set emulation", ONE_DASH },
+  { {"print-map", no_argument, NULL, 'M'},
+      'M', NULL, "Print map file on standard output", TWO_DASHES },
+  { {"nmagic", no_argument, NULL, 'n'},
+      'n', NULL, "Do not page align data", TWO_DASHES },
+  { {"omagic", no_argument, NULL, 'N'},
+      'N', NULL, "Do not page align data, do not make text readonly",
+      TWO_DASHES },
+  { {"output", required_argument, NULL, 'o'},
+      'o', "FILE", "Set output file name", TWO_DASHES },
+  { {NULL, required_argument, NULL, '\0'},
+      'O', NULL, "Ignored", ONE_DASH },
+  { {"relocateable", no_argument, NULL, 'r'},
+      'r', NULL, "Generate relocateable output", TWO_DASHES },
+  { {NULL, no_argument, NULL, '\0'},
+      'i', NULL, NULL, ONE_DASH },
+  { {"just-symbols", required_argument, NULL, 'R'},
+      'R', "FILE", "Just link symbols (if directory, same as --rpath)",
+      TWO_DASHES },
+  { {"strip-all", no_argument, NULL, 's'},
+      's', NULL, "Strip all symbols", TWO_DASHES },
+  { {"strip-debug", no_argument, NULL, 'S'},
+      'S', NULL, "Strip debugging symbols", TWO_DASHES },
+  { {"trace", no_argument, NULL, 't'},
+      't', NULL, "Trace file opens", TWO_DASHES },
+  { {"script", required_argument, NULL, 'T'},
+      'T', "FILE", "Read linker script", TWO_DASHES },
+  { {"undefined", required_argument, NULL, 'u'},
+      'u', "SYMBOL", "Start with undefined reference to SYMBOL", TWO_DASHES },
+  { {"version", no_argument, NULL, OPTION_VERSION},
+      'v', NULL, "Print version information", TWO_DASHES },
+  { {NULL, no_argument, NULL, '\0'},
+      'V', NULL, "Print version and emulation information", ONE_DASH },
+  { {"discard-all", no_argument, NULL, 'x'},
+      'x', NULL, "Discard all local symbols", TWO_DASHES },
+  { {"discard-locals", no_argument, NULL, 'X'},
+      'X', NULL, "Discard temporary local symbols", TWO_DASHES },
+  { {"trace-symbol", required_argument, NULL, 'y'},
+      'y', "SYMBOL", "Trace mentions of SYMBOL", TWO_DASHES },
+  { {NULL, required_argument, NULL, '\0'},
+      'Y', "PATH", "Default search path for Solaris compatibility", ONE_DASH },
+  { {NULL, required_argument, NULL, '\0'},
+      'z', "KEYWORD", "Ignored for Solaris compatibility", ONE_DASH },
+  { {"start-group", no_argument, NULL, '('},
+      '(', NULL, "Start a group", TWO_DASHES },
+  { {"end-group", no_argument, NULL, ')'},
+      ')', NULL, "End a group", TWO_DASHES },
+  { {"assert", required_argument, NULL, OPTION_ASSERT},
+      '\0', "KEYWORD", "Ignored for SunOS compatibility", ONE_DASH },
+  { {"Bdynamic", no_argument, NULL, OPTION_CALL_SHARED},
+      '\0', NULL, "Link against shared libraries", ONE_DASH },
+  { {"dy", no_argument, NULL, OPTION_CALL_SHARED},
+      '\0', NULL, NULL, ONE_DASH },
+  { {"call_shared", no_argument, NULL, OPTION_CALL_SHARED},
+      '\0', NULL, NULL, ONE_DASH },
+  { {"Bstatic", no_argument, NULL, OPTION_NON_SHARED},
+      '\0', NULL, "Do not link against shared libraries", ONE_DASH },
+  { {"dn", no_argument, NULL, OPTION_NON_SHARED},
+      '\0', NULL, NULL, ONE_DASH },
+  { {"non_shared", no_argument, NULL, OPTION_NON_SHARED},
+      '\0', NULL, NULL, ONE_DASH },
+  { {"static", no_argument, NULL, OPTION_NON_SHARED},
+      '\0', NULL, NULL, ONE_DASH },
+  { {"Bsymbolic", no_argument, NULL, OPTION_SYMBOLIC},
+      '\0', NULL, "Bind global references locally", ONE_DASH },
+  { {"cref", no_argument, NULL, OPTION_CREF},
+      '\0', NULL, "Output cross reference table", TWO_DASHES },
+  { {"defsym", required_argument, NULL, OPTION_DEFSYM},
+      '\0', "SYMBOL=EXPRESSION", "Define a symbol", TWO_DASHES },
+  { {"dynamic-linker", required_argument, NULL, OPTION_DYNAMIC_LINKER},
+      '\0', "PROGRAM", "Set the dynamic linker to use", TWO_DASHES },
+  { {"EB", no_argument, NULL, OPTION_EB},
+      '\0', NULL, "Link big-endian objects", ONE_DASH },
+  { {"EL", no_argument, NULL, OPTION_EL},
+      '\0', NULL, "Link little-endian objects", ONE_DASH },
+  { {"embedded-relocs", no_argument, NULL, OPTION_EMBEDDED_RELOCS},
+      '\0', NULL, "Generate embedded relocs", TWO_DASHES},
+  { {"force-exe-suffix", no_argument, NULL, OPTION_FORCE_EXE_SUFFIX},
+      '\0', NULL, "Force generation of file with .exe suffix", TWO_DASHES},
+  { {"help", no_argument, NULL, OPTION_HELP},
+      '\0', NULL, "Print option help", TWO_DASHES },
+  { {"Map", required_argument, NULL, OPTION_MAP},
+      '\0', "FILE", "Write a map file", ONE_DASH },
+  { {"no-keep-memory", no_argument, NULL, OPTION_NO_KEEP_MEMORY},
+      '\0', NULL, "Use less memory and more disk I/O", TWO_DASHES },
+  { {"no-whole-archive", no_argument, NULL, OPTION_NO_WHOLE_ARCHIVE},
+      '\0', NULL, "Turn off --whole-archive", TWO_DASHES },
+  { {"noinhibit-exec", no_argument, NULL, OPTION_NOINHIBIT_EXEC},
+      '\0', NULL, "Create an output file even if errors occur", TWO_DASHES },
+  { {"noinhibit_exec", no_argument, NULL, OPTION_NOINHIBIT_EXEC},
+      '\0', NULL, NULL, NO_HELP },
+  { {"oformat", required_argument, NULL, OPTION_OFORMAT},
+      '\0', "TARGET", "Specify target of output file", TWO_DASHES },
+  { {"qmagic", no_argument, NULL, OPTION_IGNORE},
+      '\0', NULL, "Ignored for Linux compatibility", ONE_DASH },
+  { {"Qy", no_argument, NULL, OPTION_IGNORE},
+      '\0', NULL, "Ignored for SVR4 compatibility", ONE_DASH },
+  { {"relax", no_argument, NULL, OPTION_RELAX},
+      '\0', NULL, "Relax branches on certain targets", TWO_DASHES },
+  { {"retain-symbols-file", required_argument, NULL,
+       OPTION_RETAIN_SYMBOLS_FILE},
+      '\0', "FILE", "Keep only symbols listed in FILE", TWO_DASHES },
+  { {"rpath", required_argument, NULL, OPTION_RPATH},
+      '\0', "PATH", "Set runtime shared library search path", ONE_DASH },
+  { {"rpath-link", required_argument, NULL, OPTION_RPATH_LINK},
+      '\0', "PATH", "Set link time shared library search path", ONE_DASH },
+  { {"shared", no_argument, NULL, OPTION_SHARED},
+      '\0', NULL, "Create a shared library", ONE_DASH },
+  { {"Bshareable", no_argument, NULL, OPTION_SHARED }, /* FreeBSD.  */
+      '\0', NULL, NULL, ONE_DASH },
+  { {"sort-common", no_argument, NULL, OPTION_SORT_COMMON},
+      '\0', NULL, "Sort common symbols by size", TWO_DASHES },
+  { {"sort_common", no_argument, NULL, OPTION_SORT_COMMON},
+      '\0', NULL, NULL, NO_HELP },
+  { {"split-by-file", no_argument, NULL, OPTION_SPLIT_BY_FILE},
+      '\0', NULL, "Split output sections for each file", TWO_DASHES },
+  { {"split-by-reloc", required_argument, NULL, OPTION_SPLIT_BY_RELOC},
+      '\0', "COUNT", "Split output sections every COUNT relocs", TWO_DASHES },
+  { {"stats", no_argument, NULL, OPTION_STATS},
+      '\0', NULL, "Print memory usage statistics", TWO_DASHES },
+  { {"traditional-format", no_argument, NULL, OPTION_TRADITIONAL_FORMAT},
+      '\0', NULL, "Use same format as native linker", TWO_DASHES },
+  { {"Tbss", required_argument, NULL, OPTION_TBSS},
+      '\0', "ADDRESS", "Set address of .bss section", ONE_DASH },
+  { {"Tdata", required_argument, NULL, OPTION_TDATA},
+      '\0', "ADDRESS", "Set address of .data section", ONE_DASH },
+  { {"Ttext", required_argument, NULL, OPTION_TTEXT},
+      '\0', "ADDRESS", "Set address of .text section", ONE_DASH },
+  { {"Ur", no_argument, NULL, OPTION_UR},
+      '\0', NULL, "Build global constructor/destructor tables", ONE_DASH },
+  { {"verbose", no_argument, NULL, OPTION_VERBOSE},
+      '\0', NULL, "Output lots of information during link", TWO_DASHES },
+  { {"dll-verbose", no_argument, NULL, OPTION_VERBOSE}, /* Linux.  */
+      '\0', NULL, NULL, NO_HELP },
+  { {"warn-common", no_argument, NULL, OPTION_WARN_COMMON},
+      '\0', NULL, "Warn about duplicate common symbols", TWO_DASHES },
+  { {"warn-constructors", no_argument, NULL, OPTION_WARN_CONSTRUCTORS},
+      '\0', NULL, "Warn if global constructors/destructors are seen",
+      TWO_DASHES },
+  { {"warn-multiple-gp", no_argument, NULL, OPTION_WARN_MULTIPLE_GP},
+      '\0', NULL, "Warn if the multiple GP values are used", TWO_DASHES },
+  { {"warn-once", no_argument, NULL, OPTION_WARN_ONCE},
+      '\0', NULL, "Warn only once per undefined symbol", TWO_DASHES },
+  { {"whole-archive", no_argument, NULL, OPTION_WHOLE_ARCHIVE},
+      '\0', NULL, "Include all objects from following archives", TWO_DASHES },
+  { {"wrap", required_argument, NULL, OPTION_WRAP},
+      '\0', "SYMBOL", "Use wrapper functions for SYMBOL", TWO_DASHES }
+};
+
+#define OPTION_COUNT (sizeof ld_options / sizeof ld_options[0])
+
+void
+parse_args (argc, argv)
+     int argc;
+     char **argv;
+{
+  int i, is, il;
+  int ingroup = 0;
+  char *default_dirlist = NULL;
+  char shortopts[OPTION_COUNT * 3 + 2];
+  struct option longopts[OPTION_COUNT + 1];
+
+  /* Starting the short option string with '-' is for programs that
+     expect options and other ARGV-elements in any order and that care about
+     the ordering of the two.  We describe each non-option ARGV-element
+     as if it were the argument of an option with character code 1.  */
+  shortopts[0] = '-';
+  is = 1;
+  il = 0;
+  for (i = 0; i < OPTION_COUNT; i++)
+    {
+      if (ld_options[i].shortopt != '\0')
+       {
+         shortopts[is] = ld_options[i].shortopt;
+         ++is;
+         if (ld_options[i].opt.has_arg == required_argument
+             || ld_options[i].opt.has_arg == optional_argument)
+           {
+             shortopts[is] = ':';
+             ++is;
+             if (ld_options[i].opt.has_arg == optional_argument)
+               {
+                 shortopts[is] = ':';
+                 ++is;
+               }
+           }
+       }
+      if (ld_options[i].opt.name != NULL)
+       {
+         longopts[il] = ld_options[i].opt;
+         ++il;
+       }
+    }
+  shortopts[is] = '\0';
+  longopts[il].name = NULL;
 
   /* The -G option is ambiguous on different platforms.  Sometimes it
      specifies the largest data size to put into the small data
@@ -220,11 +374,15 @@ parse_args (argc, argv)
       /* getopt_long_only is like getopt_long, but '-' as well as '--' can
         indicate a long option.  */
       int longind;
-      int optc = getopt_long_only (argc, argv, shortopts, longopts, &longind);
+      int optc;
+
+      if (ldemul_parse_args (argc, argv))
+       continue;
+
+      optc = getopt_long_only (argc, argv, shortopts, longopts, &longind);
 
       if (optc == -1)
        break;
-
       switch (optc)
        {
        default:
@@ -248,6 +406,19 @@ parse_args (argc, argv)
          else
            einfo ("%P%F: unrecognized -a option `%s'\n", optarg);
          break;
+       case OPTION_ASSERT:
+         /* FIXME: We just ignore these, but we should handle them.  */
+         if (strcmp (optarg, "definitions") == 0)
+           ;
+         else if (strcmp (optarg, "nodefinitions") == 0)
+           ;
+         else if (strcmp (optarg, "nosymbolic") == 0)
+           ;
+         else if (strcmp (optarg, "pure-text") == 0)
+           ;
+         else
+           einfo ("%P%F: unrecognized -assert option `%s'\n", optarg);
+         break;
        case 'A':
          ldfile_add_arch (optarg);
          break;
@@ -265,13 +436,21 @@ parse_args (argc, argv)
        case OPTION_NON_SHARED:
          config.dynamic_link = false;
          break;
+       case OPTION_CREF:
+         command_line.cref = true;
+         link_info.notice_all = true;
+         break;
        case 'd':
          command_line.force_common_definition = true;
          break;
        case OPTION_DEFSYM:
+         lex_string = optarg;
          lex_redirect (optarg);
          parser_input = input_defsym;
+         parsing_defsym = 1;
          yyparse ();
+         parsing_defsym = 0;
+         lex_string = NULL;
          break;
        case OPTION_DYNAMIC_LINKER:
          command_line.interpreter = optarg;
@@ -286,14 +465,18 @@ parse_args (argc, argv)
          command_line.embedded_relocs = true;
          break;
        case OPTION_EXPORT_DYNAMIC:
+       case 'E': /* HP/UX compatibility.  */
          command_line.export_dynamic = true;
          break;
        case 'e':
-         lang_add_entry (optarg, 1);
+         lang_add_entry (optarg, true);
          break;
        case 'F':
          /* Ignore.  */
          break;
+       case OPTION_FORCE_EXE_SUFFIX:
+         command_line.force_exe_suffix = true;
+         break;
        case 'G':
          {
            char *end;
@@ -328,9 +511,11 @@ parse_args (argc, argv)
        case 'N':
          config.text_read_only = false;
          config.magic_demand_paged = false;
+         config.dynamic_link = false;
          break;
        case 'n':
          config.magic_demand_paged = false;
+         config.dynamic_link = false;
          break;
        case OPTION_NO_KEEP_MEMORY:
          link_info.keep_memory = false;
@@ -338,13 +523,15 @@ parse_args (argc, argv)
        case OPTION_NOINHIBIT_EXEC:
          force_make_executable = true;
          break;
+       case OPTION_NO_WHOLE_ARCHIVE:
+         whole_archive = false;
+         break;
        case 'O':
          /* FIXME "-O<non-digits> <value>" used to set the address of
             section <non-digits>.  Was this for compatibility with
             something, or can we create a new option to do that
             (with a syntax similar to -defsym)?
             getopt can't handle two args to an option without kludges.  */
-         set_default_dirlist (optarg);
          break;
        case 'o':
          lang_add_output (optarg, 0); 
@@ -396,6 +583,21 @@ parse_args (argc, argv)
              command_line.rpath = buf;
            }
          break;
+       case OPTION_RPATH_LINK:
+         if (command_line.rpath_link == NULL)
+           command_line.rpath_link = buystring (optarg);
+         else
+           {
+             char *buf;
+
+             buf = xmalloc (strlen (command_line.rpath_link)
+                            + strlen (optarg)
+                            + 2);
+             sprintf (buf, "%s:%s", command_line.rpath_link, optarg);
+             free (command_line.rpath_link);
+             command_line.rpath_link = buf;
+           }
+         break;
        case OPTION_RELAX:
          command_line.relax = true;
          break;
@@ -411,7 +613,7 @@ parse_args (argc, argv)
        case OPTION_SHARED:
          link_info.shared = true;
          break;
-       case 'h': /* Used on Solaris.  */
+       case 'h':               /* Used on Solaris.  */
        case OPTION_SONAME:
          command_line.soname = optarg;
          break;
@@ -442,7 +644,7 @@ parse_args (argc, argv)
          set_section_start (".text", optarg);
          break;
        case OPTION_TRADITIONAL_FORMAT:
-         config.traditional_format = true;
+         link_info.traditional_format = true;
          break;
        case OPTION_UR:
          link_info.relocateable = true;
@@ -468,8 +670,23 @@ parse_args (argc, argv)
          version_printed = true;
          break;
        case OPTION_VERSION:
-         ldversion (0);
-         version_printed = true;
+         /* This output is intended to follow the GNU standards document.  */
+         printf ("GNU ld %s\n", ld_program_version);
+         printf ("Copyright 1996 Free Software Foundation, Inc.\n");
+         printf ("\
+This program is free software; you may redistribute it under the terms of\n\
+the GNU General Public License.  This program has absolutely no warranty.\n");
+         {
+           ld_emulation_xfer_type **ptr = ld_emulations;
+    
+           printf ("  Supported emulations:\n");
+           while (*ptr) 
+             {
+               printf ("   %s\n", (*ptr)->emulation_name);
+               ptr++;
+             }
+         }
+         xexit (0);
          break;
        case OPTION_WARN_COMMON:
          config.warn_common = true;
@@ -477,12 +694,18 @@ parse_args (argc, argv)
        case OPTION_WARN_CONSTRUCTORS:
          config.warn_constructors = true;
          break;
+       case OPTION_WARN_MULTIPLE_GP:
+         config.warn_multiple_gp = true;
+         break;
        case OPTION_WARN_ONCE:
          config.warn_once = true;
          break;
        case OPTION_WHOLE_ARCHIVE:
          whole_archive = true;
          break;
+       case OPTION_WRAP:
+         add_wrap (optarg);
+         break;
        case 'X':
          link_info.discard = discard_l;
          break;
@@ -490,7 +713,9 @@ parse_args (argc, argv)
          link_info.discard = discard_all;
          break;
        case 'Y':
-         set_default_dirlist (optarg);
+         if (strncmp (optarg, "P,", 2) == 0)
+           optarg += 2;
+         default_dirlist = xstrdup (optarg);
          break;
        case 'y':
          add_ysym (optarg);
@@ -529,64 +754,15 @@ parse_args (argc, argv)
          ingroup = 0;
          break;
 
-
-
-       case OPTION_BASE_FILE:
-         link_info.base_file = (PTR) fopen (optarg,"w");
-         if (link_info.base_file == NULL)
-           {
-             fprintf (stderr, "%s: Can't open base file %s\n",
-                      program_name, optarg);
-             xexit (1);
-           }
-         break;
-
-         /* PE options */
-       case OPTION_HEAP: 
-         set_pe_stack_heap (&pe_info.heap_reserve,  &pe_info.heap_commit);
-         break;
-       case OPTION_STACK: 
-         set_pe_stack_heap (&pe_info.stack_reserve,  &pe_info.stack_commit);
-         break;
-       case OPTION_SUBSYSTEM:
-         set_pe_subsystem ();
-         break;
-       case OPTION_MAJOR_OS_VERSION:
-         set_pe_value (&pe_info.major_os_version);
-         break;
-       case OPTION_MINOR_OS_VERSION:
-         set_pe_value (&pe_info.minor_os_version);
-         break;
-       case OPTION_MAJOR_SUBSYSTEM_VERSION:
-         set_pe_value (&pe_info.major_subsystem_version);
-         break;
-       case OPTION_MINOR_SUBSYSTEM_VERSION:
-         set_pe_value (&pe_info.minor_subsystem_version);
-         break;
-       case OPTION_MAJOR_IMAGE_VERSION:
-         set_pe_value (&pe_info.major_image_version);
-         break;
-       case OPTION_MINOR_IMAGE_VERSION:
-         set_pe_value (&pe_info.minor_image_version);
-         break;
-       case OPTION_FILE_ALIGNMENT:
-         set_pe_value (&pe_info.file_alignment);
-         break;
-       case OPTION_SECTION_ALIGNMENT:
-         set_pe_value (&pe_info.section_alignment);
-         break;
-       case OPTION_DLL:
-         pe_info.dll.defined = 1;
-         pe_info.dll.value = 1;
-         break;
-       case OPTION_IMAGE_BASE:
-         set_pe_value (&pe_info.image_base);
-         break;
        }
     }
 
   if (ingroup)
     lang_leave_group ();
+
+  if (default_dirlist != NULL)
+    set_default_dirlist (default_dirlist);
+
 }
 
 /* Add the (colon-separated) elements of DIRLIST_PTR to the
@@ -602,12 +778,11 @@ set_default_dirlist (dirlist_ptr)
     {
       p = strchr (dirlist_ptr, ':');
       if (p != NULL)
-       *p = 0;
-      if (*dirlist_ptr)
+       *p = '\0';
+      if (*dirlist_ptr != '\0')
        ldfile_add_library_path (dirlist_ptr, true);
       if (p == NULL)
        break;
-      *p = ':';
       dirlist_ptr = p + 1;
     }
 }
@@ -623,75 +798,101 @@ set_section_start (sect, valstr)
   lang_section_start (sect, exp_intop (val));
 }
 \f
-/* PE/WIN32; added routines to get the subsystem type, heap and/or stack
-   parameters which may be input from the command line */
+/* Print help messages for the options.  */
 
 static void
-set_pe_subsystem ()
+help ()
 {
   int i;
-  static struct 
-    {
-      char *name ;
-      int value;
-    }
-  v[] =
-    {
-      {"native", BFD_PE_NATIVE},
-      {"windows",BFD_PE_WINDOWS},
-      {"console",BFD_PE_CONSOLE},
-      {"os2",BFD_PE_OS2},
-      {"posix", BFD_PE_POSIX},
-      {0,0}
-    };
-
-  for (i = 0; v[i].name; i++)
+  const char **targets, **pp;
+
+  printf ("Usage: %s [options] file...\n", program_name);
+
+  printf ("Options:\n");
+  for (i = 0; i < OPTION_COUNT; i++)
     {
-      if (!strcmp (optarg, v[i].name)) 
+      if (ld_options[i].doc != NULL)
        {
-         link_info.pe_info = &pe_info;   
-         pe_info.subsystem.value = v[i].value;
-         pe_info.subsystem.defined = 1;
-         return;
-       }
-    }
-  einfo ("%P%F: invalid subsystem type `%s'\n", optarg);
-}
+         boolean comma;
+         int len;
+         int j;
 
-static void 
-set_pe_value (ptr)
-     bfd_link_pe_info_dval *ptr;
-{
-  char *end;
-  ptr->value = strtoul (optarg, &end, 16);
-  if (end == optarg)
-    {
-      einfo ("%P%F: invalid hex number for PE parameter '%s'\n", optarg);
-    }
+         printf ("  ");
 
-  optarg = end;
-  ptr->defined = 1;
-  link_info.pe_info = &pe_info;
-}
+         comma = false;
+         len = 2;
 
-static void
-set_pe_stack_heap (reserve, commit)
-     bfd_link_pe_info_dval *reserve;
-     bfd_link_pe_info_dval *commit;
-{
-  char *begin_commit;
-  char *end;
+         j = i;
+         do
+           {
+             if (ld_options[j].shortopt != '\0'
+                 && ld_options[j].control != NO_HELP)
+               {
+                 printf ("%s-%c", comma ? ", " : "", ld_options[j].shortopt);
+                 len += (comma ? 2 : 0) + 2;
+                 if (ld_options[j].arg != NULL)
+                   {
+                     if (ld_options[j].opt.has_arg != optional_argument)
+                       {
+                         printf (" ");
+                         ++len;
+                       }
+                     printf ("%s", ld_options[j].arg);
+                     len += strlen (ld_options[j].arg);
+                   }
+                 comma = true;
+               }
+             ++j;
+           }
+         while (j < OPTION_COUNT && ld_options[j].doc == NULL);
 
-  set_pe_value (reserve);
-  if (*optarg == ',')
-    {
-      optarg++;
-      set_pe_value (commit);
-    }
-  else if (*optarg)
-    {
-      einfo ("%P%F: strange hex info for PE parameter '%s'\n", optarg);
-    }
-}
+         j = i;
+         do
+           {
+             if (ld_options[j].opt.name != NULL
+                 && ld_options[j].control != NO_HELP)
+               {
+                 printf ("%s-%s%s",
+                         comma ? ", " : "",
+                         ld_options[j].control == TWO_DASHES ? "-" : "",
+                         ld_options[j].opt.name);
+                 len += ((comma ? 2 : 0)
+                         + 1
+                         + (ld_options[j].control == TWO_DASHES ? 1 : 0)
+                         + strlen (ld_options[j].opt.name));
+                 if (ld_options[j].arg != NULL)
+                   {
+                     printf (" %s", ld_options[j].arg);
+                     len += 1 + strlen (ld_options[j].arg);
+                   }
+                 comma = true;
+               }
+             ++j;
+           }
+         while (j < OPTION_COUNT && ld_options[j].doc == NULL);
 
+         if (len >= 30)
+           {
+             printf ("\n");
+             len = 0;
+           }
 
+         for (; len < 30; len++)
+           putchar (' ');
+
+         printf ("%s\n", ld_options[i].doc);
+       }
+    }
+
+  printf ("%s: supported targets:", program_name);
+  targets = bfd_target_list ();
+  for (pp = targets; *pp != NULL; pp++)
+    printf (" %s", *pp);
+  free (targets);
+  printf ("\n");
+
+  printf ("%s: supported emulations: ", program_name);
+  ldemul_list_emulations (stdout);
+  printf ("\n");
+  printf ("\nReport bugs to bug-gnu-utils@prep.ai.mit.edu\n");
+}