tweak
[binutils-gdb.git] / ld / lexsup.c
index a397574c67b595f9dff4cdb4b1c57dfd26fc4563..bf61c74793355114c74d0213f4b80966f1005ac8 100644 (file)
@@ -1,5 +1,5 @@
 /* Parse options for the GNU linker.
-   Copyright (C) 1991, 92, 93, 94 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.
 
@@ -15,15 +15,16 @@ GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 along with GLD; see the file COPYING.  If not, write to
-the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 #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"
@@ -33,6 +34,12 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #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)
+#define        S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
+#endif
 
 /* Omit args to avoid the possibility of clashing with a system header
    that might disagree about consts.  */
@@ -40,84 +47,342 @@ 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));
+
+/* Non-zero if we are processing a --defsym from the command line.  */
+int parsing_defsym = 0;
+
+/* Codes used for the long options with no short synonyms.  150 isn't
+   special; it's just an arbitrary non-ASCII char value.  */
+
+#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_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)
+#define OPTION_MAP                     (OPTION_IGNORE + 1)
+#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_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_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)
+#define OPTION_SYMBOLIC                        (OPTION_STATS + 1)
+#define OPTION_TBSS                    (OPTION_SYMBOLIC + 1)
+#define OPTION_TDATA                   (OPTION_TBSS + 1)
+#define OPTION_TTEXT                   (OPTION_TDATA + 1)
+#define OPTION_TRADITIONAL_FORMAT      (OPTION_TTEXT + 1)
+#define OPTION_UR                      (OPTION_TRADITIONAL_FORMAT + 1)
+#define OPTION_VERBOSE                 (OPTION_UR + 1)
+#define OPTION_VERSION                 (OPTION_VERBOSE + 1)
+#define OPTION_WARN_COMMON             (OPTION_VERSION + 1)
+#define OPTION_WARN_CONSTRUCTORS       (OPTION_WARN_COMMON + 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)
+
+/* 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
+     section.  Sometimes it is equivalent to --shared.  Unfortunately,
+     the first form takes an argument, while the second does not.
 
-  const char *shortopts = "-A:B::b:cde:F::G:giL:l:Mm:NnO:o:R:rSsT:tu:VvXxY:y:";
-
-  /* 150 isn't special; it's just an arbitrary non-ASCII char value.  */
-
-  static struct option longopts[] = {
-#define OPTION_CALL_SHARED 150
-#define OPTION_NON_SHARED 151
-    {"call_shared", no_argument, NULL, OPTION_CALL_SHARED},
-    {"dc", no_argument, NULL, 'd'},
-#define OPTION_DEFSYM 152
-    {"defsym", required_argument, NULL, OPTION_DEFSYM},
-    {"dn", no_argument, NULL, OPTION_NON_SHARED},
-    {"dp", no_argument, NULL, 'd'},
-    {"dy", no_argument, NULL, OPTION_CALL_SHARED},
-#define OPTION_EB 153
-    {"EB", no_argument, NULL, OPTION_EB},
-#define OPTION_EL 154
-    {"EL", no_argument, NULL, OPTION_EL},
-    {"format", required_argument, NULL, 'b'},
-#define OPTION_HELP 155
-    {"help", no_argument, NULL, OPTION_HELP},
-#define OPTION_MAP 156
-    {"Map", required_argument, NULL, OPTION_MAP},
-#define OPTION_NO_KEEP_MEMORY 157
-    {"no-keep-memory", no_argument, NULL, OPTION_NO_KEEP_MEMORY},
-#define OPTION_NOINHIBIT_EXEC 158
-    {"noinhibit-exec", no_argument, NULL, OPTION_NOINHIBIT_EXEC},
-    {"noinhibit_exec", no_argument, NULL, OPTION_NOINHIBIT_EXEC},
-    {"non_shared", no_argument, NULL, OPTION_NON_SHARED},
-#define OPTION_OFORMAT 159
-    {"oformat", required_argument, NULL, OPTION_OFORMAT},
-#define OPTION_IGNORE 160
-    {"Qy", no_argument, NULL, OPTION_IGNORE},
-#define OPTION_RELAX 161
-    {"relax", no_argument, NULL, OPTION_RELAX},
-#define OPTION_RETAIN_SYMBOLS_FILE 162
-    {"retain-symbols-file", no_argument, NULL, OPTION_RETAIN_SYMBOLS_FILE},
-#define OPTION_SORT_COMMON 163
-    {"sort-common", no_argument, NULL, OPTION_SORT_COMMON},
-    {"sort_common", no_argument, NULL, OPTION_SORT_COMMON},
-#define OPTION_STATS 164
-    {"stats", no_argument, NULL, OPTION_STATS},
-#define OPTION_TBSS 165
-    {"Tbss", required_argument, NULL, OPTION_TBSS},
-#define OPTION_TDATA 166
-    {"Tdata", required_argument, NULL, OPTION_TDATA},
-#define OPTION_TTEXT 167
-    {"Ttext", required_argument, NULL, OPTION_TTEXT},
-#define OPTION_UR 168
-    {"Ur", no_argument, NULL, OPTION_UR},
-#define OPTION_VERSION 169
-    {"version", no_argument, NULL, OPTION_VERSION},
-#define OPTION_WARN_COMMON 170
-    {"warn-common", no_argument, NULL, OPTION_WARN_COMMON},
-    {NULL, no_argument, NULL, 0}
-  };
+     We need to permit the --shared form because on some platforms,
+     such as Solaris, gcc -shared will pass -G to the linker.
+
+     To permit either usage, we look through the argument list.  If we
+     find -G not followed by a number, we change it into --shared.
+     This will work for most normal cases.  */
+  for (i = 1; i < argc; i++)
+    if (strcmp (argv[i], "-G") == 0
+       && (i + 1 >= argc
+           || ! isdigit (argv[i + 1][0])))
+      argv[i] = (char *) "--shared";
 
   while (1)
     {
       /* 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:
@@ -129,12 +394,34 @@ parse_args (argc, argv)
 
        case OPTION_IGNORE:
          break;
+       case 'a':
+         /* For HP/UX compatibility.  Actually -a shared should mean
+             ``use only shared libraries'' but, then, we don't
+             currently support shared libraries on HP/UX anyhow.  */
+         if (strcmp (optarg, "archive") == 0)
+           config.dynamic_link = false;
+         else if (strcmp (optarg, "shared") == 0
+                  || strcmp (optarg, "default") == 0)
+           config.dynamic_link = true;
+         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;
-       case 'B':
-         /* Ignore.  */
-         break;
        case 'b':
          lang_add_target (optarg);
          break;
@@ -149,30 +436,47 @@ 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;
          break;
        case OPTION_EB:
-         /* FIXME: This is currently ignored.  It means
-            ``produce a big-endian object file''.  It could
-            be used to select an output format.  */
+         command_line.endian = ENDIAN_BIG;
          break;
        case OPTION_EL:
-         /* FIXME: This is currently ignored.  It means
-            ``produce a little-endian object file''.  It could
-            be used to select an output format.  */
+         command_line.endian = ENDIAN_LITTLE;
+         break;
+       case OPTION_EMBEDDED_RELOCS:
+         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);
+         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;
@@ -189,7 +493,7 @@ parse_args (argc, argv)
          xexit (0);
          break;
        case 'L':
-         ldfile_add_library_path (optarg);
+         ldfile_add_library_path (optarg, true);
          break;
        case 'l':
          lang_add_input_file (optarg, lang_input_file_is_l_enum,
@@ -207,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;
@@ -217,20 +523,23 @@ 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); 
          break;
        case OPTION_OFORMAT:
-         lang_add_output_format (optarg, 0);
+         lang_add_output_format (optarg, (char *) NULL, (char *) NULL, 0);
          break;
+       case 'i':
        case 'r':
          link_info.relocateable = true;
          config.build_constructors = false;
@@ -239,9 +548,55 @@ parse_args (argc, argv)
          config.dynamic_link = false;
          break;
        case 'R':
-         lang_add_input_file (optarg,
-                              lang_input_file_is_symbols_only_enum,
-                              (char *) NULL);
+         /* The GNU linker traditionally uses -R to mean to include
+            only the symbols from a file.  The Solaris linker uses -R
+            to set the path used by the runtime linker to find
+            libraries.  This is the GNU linker -rpath argument.  We
+            try to support both simultaneously by checking the file
+            named.  If it is a directory, rather than a regular file,
+            we assume -rpath was meant.  */
+         {
+           struct stat s;
+
+           if (stat (optarg, &s) >= 0
+               && ! S_ISDIR (s.st_mode))
+             {
+               lang_add_input_file (optarg,
+                                    lang_input_file_is_symbols_only_enum,
+                                    (char *) NULL);
+               break;
+             }
+         }
+         /* Fall through.  */
+       case OPTION_RPATH:
+         if (command_line.rpath == NULL)
+           command_line.rpath = buystring (optarg);
+         else
+           {
+             char *buf;
+
+             buf = xmalloc (strlen (command_line.rpath)
+                            + strlen (optarg)
+                            + 2);
+             sprintf (buf, "%s:%s", command_line.rpath, optarg);
+             free (command_line.rpath);
+             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;
@@ -255,12 +610,22 @@ parse_args (argc, argv)
        case 's':
          link_info.strip = strip_all;
          break;
+       case OPTION_SHARED:
+         link_info.shared = true;
+         break;
+       case 'h':               /* Used on Solaris.  */
+       case OPTION_SONAME:
+         command_line.soname = optarg;
+         break;
        case OPTION_SORT_COMMON:
          config.sort_common = true;
          break;
        case OPTION_STATS:
          config.stats = true;
          break;
+       case OPTION_SYMBOLIC:
+         link_info.symbolic = true;
+         break;
        case 't':
          trace_files = true;
          break;
@@ -278,6 +643,9 @@ parse_args (argc, argv)
        case OPTION_TTEXT:
          set_section_start (".text", optarg);
          break;
+       case OPTION_TRADITIONAL_FORMAT:
+         link_info.traditional_format = true;
+         break;
        case OPTION_UR:
          link_info.relocateable = true;
          config.build_constructors = true;
@@ -288,7 +656,7 @@ parse_args (argc, argv)
        case 'u':
          ldlang_add_undef (optarg);
          break;
-       case 'V':
+       case OPTION_VERBOSE:
          ldversion (1);
          version_printed = true;
          trace_file_tries = true;
@@ -297,13 +665,47 @@ parse_args (argc, argv)
          ldversion (0);
          version_printed = true;
          break;
-       case OPTION_VERSION:
-         ldversion (0);
+       case 'V':
+         ldversion (1);
          version_printed = true;
          break;
+       case OPTION_VERSION:
+         /* 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;
          break;
+       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;
@@ -311,13 +713,56 @@ 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);
          break;
+       case 'z':
+         /* We accept and ignore this option for Solaris
+             compatibility.  Actually, on Solaris, optarg is not
+             ignored.  Someday we should handle it correctly.  FIXME.  */
+         break;
+       case OPTION_SPLIT_BY_RELOC:
+         config.split_by_reloc = atoi (optarg);
+         break; 
+       case OPTION_SPLIT_BY_FILE:
+         config.split_by_file = true;
+         break; 
+       case '(':
+         if (ingroup)
+           {
+             fprintf (stderr,
+                      "%s: may not nest groups (--help for usage)\n",
+                      program_name);
+             xexit (1);
+           }
+         lang_enter_group ();
+         ingroup = 1;
+         break;
+       case ')':
+         if (! ingroup)
+           {
+             fprintf (stderr,
+                      "%s: group ended before it began (--help for usage)\n",
+                      program_name);
+             xexit (1);
+           }
+         lang_leave_group ();
+         ingroup = 0;
+         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
@@ -333,12 +778,11 @@ set_default_dirlist (dirlist_ptr)
     {
       p = strchr (dirlist_ptr, ':');
       if (p != NULL)
-       *p = 0;
-      if (*dirlist_ptr)
-       ldfile_add_library_path (dirlist_ptr);
+       *p = '\0';
+      if (*dirlist_ptr != '\0')
+       ldfile_add_library_path (dirlist_ptr, true);
       if (p == NULL)
        break;
-      *p = ':';
       dirlist_ptr = p + 1;
     }
 }
@@ -353,3 +797,102 @@ set_section_start (sect, valstr)
     einfo ("%P%F: invalid hex number `%s'\n", valstr);
   lang_section_start (sect, exp_intop (val));
 }
+\f
+/* Print help messages for the options.  */
+
+static void
+help ()
+{
+  int i;
+  const char **targets, **pp;
+
+  printf ("Usage: %s [options] file...\n", program_name);
+
+  printf ("Options:\n");
+  for (i = 0; i < OPTION_COUNT; i++)
+    {
+      if (ld_options[i].doc != NULL)
+       {
+         boolean comma;
+         int len;
+         int j;
+
+         printf ("  ");
+
+         comma = false;
+         len = 2;
+
+         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);
+
+         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");
+}