initial commit

1 files changed, 348 insertions, 0 deletions

diff --git a/gcc/config/winnt/ld.c b/gcc/config/winnt/ld.c
new file mode 100755
index 0000000..67d53e7
--- /dev/null
+++ b/gcc/config/winnt/ld.c
@@ -0,0 +1,348 @@
+/* Call Windows NT 3.x linker.
+   Copyright (C) 1994, 1995 Free Software Foundation, Inc.
+   Contributed by Douglas B. Rupp (drupp@cs.washington.edu).
+
+This file is part of GNU CC.
+
+GNU CC is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU CC 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 GNU CC; see the file COPYING.  If not, write to
+the Free Software Foundation, 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+#include "config.h"
+#include <stdio.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <stdlib.h>
+#include <string.h>
+#include <process.h>
+
+static char *concat ();
+static char *concat3 ();
+
+/* These can be set by command line arguments */
+char *linker_path = 0;
+int verbose = 0;
+int subsystem = 0;
+int entry = 0;
+
+int link_arg_max = -1;
+char **link_args = (char **) 0;
+int link_arg_index = -1;
+
+char *search_dirs = ".";
+
+static int is_regular_file (char *name);
+
+/* Add the argument contained in STR to the list of arguments to pass to the
+   linker */
+
+static void
+addarg (str)
+     char *str;
+{
+  int i;
+
+  if (++link_arg_index >= link_arg_max)
+    {
+      char **new_link_args
+	= (char **) calloc (link_arg_max + 1000, sizeof (char *));
+
+      for (i = 0; i <= link_arg_max; i++)
+	new_link_args [i] = link_args [i];
+
+      if (link_args)
+	free (link_args);
+
+      link_arg_max += 1000;
+      link_args = new_link_args;
+    }
+
+  link_args [link_arg_index] = str;
+}
+
+/* Locate the file named in FILE_NAME in the set of paths contained in
+   PATH_VAL */
+
+static char *
+locate_file (file_name, path_val)
+     char *file_name;
+     char *path_val;
+{
+  char buf [1000];
+  int file_len = strlen (file_name);
+  char *end_path = path_val + strlen (path_val);
+  char *ptr;
+
+  /* Handle absolute pathnames */
+  if (file_name [0] == '/' || file_name [0] == DIR_SEPARATOR
+      || isalpha (file_name [0]) && file_name [1] == ':')
+    {
+      strncpy (buf, file_name, sizeof buf);
+      buf[sizeof buf - 1] = '\0';
+      if (is_regular_file (buf))
+	return strdup (buf);
+      else
+	return 0;
+  }
+
+  if (! path_val)
+    return 0;
+
+  for (;;)
+    {
+      for (; *path_val == PATH_SEPARATOR ; path_val++)
+	;
+      if (! *path_val)
+	return 0;
+
+      for (ptr = buf; *path_val && *path_val != PATH_SEPARATOR; )
+	*ptr++ = *path_val++;
+
+      ptr--;
+      if (*ptr != '/' && *ptr != DIR_SEPARATOR)
+	*++ptr = DIR_SEPARATOR;
+
+      strcpy (++ptr, file_name);
+
+      if (is_regular_file (buf))
+	return strdup (buf);
+    }
+
+  return 0;
+}
+
+/* Given a library name in NAME, i.e. foo.  Look first for libfoo.lib and then
+   libfoo.a in the set of directories we are allowed to search in */
+
+static char *
+expand_lib (name)
+     char *name;
+{
+  char *lib, *lib_path;
+
+  lib = malloc (strlen (name) + 8);
+  strcpy (lib, "lib");
+  strcat (lib, name);
+  strcat (lib, ".lib");
+  lib_path = locate_file (lib, search_dirs);
+  if (!lib_path)
+    {
+      strcpy (lib, "lib");
+      strcat (lib, name);
+      strcat (lib, ".a");
+      lib_path = locate_file (lib, search_dirs);
+      if (!lib_path)
+        {
+          fprintf
+            (stderr, 
+             "Couldn't locate library: lib%s.a or lib%s.lib\n", name, name);
+          exit (1);
+        }
+    }
+
+  return lib_path;
+}
+
+/* Check to see if the file named in NAME is a regular file, i.e. not a
+   directory */
+
+static int
+is_regular_file (name)
+     char *name;
+{
+  int ret;
+  struct stat statbuf;
+
+  ret = stat(name, &statbuf);
+  return !ret && S_ISREG (statbuf.st_mode);
+}
+
+/* Process the number of args in P_ARGC and contained in ARGV.  Look for
+   special flags, etc. that must be handled for the Microsoft linker */
+
+static void
+process_args (p_argc, argv)
+     int *p_argc;
+     char *argv[];
+{
+  int i, j;
+
+  for (i = 1; i < *p_argc; i++)
+    {
+      /* -v turns on verbose option here and is passed on to gcc */
+      if (! strcmp (argv [i], "-v"))
+	verbose = 1;
+      else if (! strncmp (argv [i], "-g", 2))
+      {
+        addarg ("-debugtype:coff -debug:full");
+      }
+      else if (! strncmp (argv [i], "-stack", 6))
+      {
+        i++;
+        addarg (concat ("-stack:",argv[i]));
+      }
+      else if (! strncmp (argv [i], "-subsystem", 10))
+      {
+	subsystem = 1;
+        i++;
+        addarg (concat ("-subsystem:",argv[i]));
+      }
+      else if (! strncmp (argv [i], "-e", 2))
+      {
+	entry = 1;
+        i++;
+        addarg (concat ("-entry:",&argv[i][1]));
+      }
+    }
+}
+
+/* The main program.  Spawn the Microsoft linker after fixing up the
+   Unix-like flags and args to be what the Microsoft linker wants */
+
+main (argc, argv)
+     int argc;
+     char *argv[];
+{
+  int i;
+  int done_an_ali = 0;
+  int file_name_index;
+  char *pathval = getenv ("PATH");
+  char *spawn_args [5];
+  char *tmppathval = malloc (strlen (pathval) + 3);
+
+  strcpy (tmppathval, ".;");
+  pathval = strcat (tmppathval, pathval);
+
+  linker_path = locate_file ("link32.exe", pathval);
+  if (!linker_path)
+    {
+      linker_path = locate_file ("link.exe", pathval);
+      if (!linker_path)
+	{
+	  fprintf (stderr, "Couldn't locate link32 or link\n");
+	  exit (1);
+	}
+    }
+
+  addarg (linker_path);
+
+  process_args (&argc , argv);
+  if (! subsystem) addarg ("-subsystem:console");
+  if (! entry) addarg ("-entry:mainCRTStartup");
+
+  for (i = 1; i < argc; i++)
+    {
+      int arg_len = strlen (argv [i]);
+
+      if (!strcmp (argv [i], "-o"))
+	{
+	  char *buff, *ptr;
+	  int out_len;
+
+	  i++;
+	  out_len = strlen (argv[i]) + 10;
+	  buff = malloc (out_len);
+	  strcpy (buff, "-out:");
+	  strcat (buff, argv[i]);
+	  ptr = strstr (buff, ".exe");
+	  if (ptr == NULL || strlen (ptr) != 4)
+	    strcat (buff, ".exe");
+	  addarg (buff);
+	}
+      else if (arg_len > 2 && !strncmp (argv [i], "-L", 2))
+	{
+	  char *nbuff, *sdbuff;
+	  int j, new_len, search_dirs_len;
+
+	  new_len = strlen (&argv[i][2]);
+	  search_dirs_len = strlen (search_dirs);
+
+	  nbuff = malloc (new_len + 1);
+	  strcpy (nbuff, &argv[i][2]);
+
+	  for (j = 0; j < new_len; j++)
+	    if (nbuff[j] == '/') nbuff[j] = DIR_SEPARATOR;
+
+	  sdbuff = malloc (search_dirs_len + new_len + 2);
+	  strcpy (sdbuff, search_dirs);
+	  sdbuff[search_dirs_len] = PATH_SEPARATOR;
+	  sdbuff[search_dirs_len+1] = 0;
+	  strcat (sdbuff, nbuff);
+
+	  search_dirs = sdbuff;
+	}
+
+      else if (arg_len > 2 && !strncmp (argv [i], "-l", 2))
+        {
+	  addarg (expand_lib (&argv[i][2]));
+        }
+      else if (!strcmp (argv [i], "-v") 
+            || !strcmp (argv [i], "-g")
+            || !strcmp (argv [i], "-noinhibit-exec"))
+        {
+          ;
+        }
+      else if (!strcmp (argv [i], "-stack")
+            || !strcmp (argv [i], "-subsystem")
+            || !strcmp (argv [i], "-e"))
+        {
+          i++;
+        }
+      else
+        {
+          addarg (argv [i]);
+        }
+    }
+
+  addarg (NULL);
+
+  if (verbose)
+    {
+      int i;
+
+      for (i = 0; i < link_arg_index; i++)
+	printf ("%s ", link_args [i]);
+      putchar ('\n');
+    }
+
+  if (spawnvp (P_WAIT, linker_path, (const char * const *)link_args) != 0)
+    {
+      fprintf (stderr, "Error executing %s\n", link_args[0]);
+      exit (1);
+    }
+
+  exit (0);
+}
+
+static char *
+concat (s1, s2)
+     char *s1, *s2;
+{
+  int len1 = strlen (s1);
+  int len2 = strlen (s2);
+  char *result = malloc (len1 + len2 + 1);
+
+  strcpy (result, s1);
+  strcpy (result + len1, s2);
+  *(result + len1 + len2) = 0;
+
+  return result;
+}
+
+static char *
+concat3 (s1, s2, s3)
+     char *s1, *s2, *s3;
+{
+  return concat (concat (s1, s2), s3);
+}