summaryrefslogtreecommitdiff
path: root/gcc/config/winnt/ld.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/config/winnt/ld.c')
-rwxr-xr-xgcc/config/winnt/ld.c348
1 files changed, 0 insertions, 348 deletions
diff --git a/gcc/config/winnt/ld.c b/gcc/config/winnt/ld.c
deleted file mode 100755
index 67d53e7..0000000
--- a/gcc/config/winnt/ld.c
+++ /dev/null
@@ -1,348 +0,0 @@
-/* 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);
-}
generated by cgit v1.2.3 (git 2.25.1) at 2025-06-27 16:31:31 +0000