URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [config/] [alpha/] [vms-ld.c] - Rev 856
Go to most recent revision | Compare with Previous | Blame | View Log
/* VMS linker wrapper. Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2007 Free Software Foundation, Inc. Contributed by Douglas B. Rupp (rupp@gnat.com). This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC 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 GCC; see the file COPYING3. If not see <http://www.gnu.org/licenses/>. */ /* This program is a wrapper around the VMS linker. It translates Unix style command line options into corresponding VMS style qualifiers and then spawns the VMS linker. */ #include "config.h" #include "system.h" #include "coretypes.h" #include "tm.h" typedef struct dsc {unsigned short len, mbz; char *adr; } Descr; #undef PATH_SEPARATOR #undef PATH_SEPARATOR_STR #define PATH_SEPARATOR ',' #define PATH_SEPARATOR_STR "," /* Local variable declarations. */ /* File specification for vms-dwarf2.o. */ static char *vmsdwarf2spec = 0; /* File specification for vms-dwarf2eh.o. */ static char *vmsdwarf2ehspec = 0; /* verbose = 1 if -v passed. */ static int verbose = 0; /* save_temps = 1 if -save-temps passed. */ static int save_temps = 0; /* By default don't generate executable file if there are errors in the link. Override with --noinhibit-exec. */ static int inhibit_exec = 1; /* debug = 1 if -g passed. */ static int debug = 0; /* By default prefer to link with shareable image libraries. Override with -static. */ static int staticp = 0; /* By default generate an executable, not a shareable image library. Override with -shared. */ static int share = 0; /* Remember if IDENTIFICATION given on command line. */ static int ident = 0; /* Keep track of arg translations. */ static int link_arg_max = -1; static const char **link_args = 0; static int link_arg_index = -1; /* Keep track of filenames */ static char optfilefullname [267]; static char *sharefilename = 0; static char *exefilename = 0; /* System search dir list. Leave blank since link handles this internally. */ static char *system_search_dirs = ""; /* Search dir list passed on command line (with -L). */ static char *search_dirs; /* Local function declarations. */ /* Add STR to the list of arguments to pass to the linker. Expand the list as necessary to accommodate. */ static void addarg (const char *); /* Check to see if NAME is a regular file, i.e. not a directory */ static int is_regular_file (char *); /* Translate a Unix syntax file specification FILESPEC into VMS syntax. If indicators of VMS syntax found, return input string. */ static char *to_host_file_spec (char *); /* Locate the library named LIB_NAME in the set of paths PATH_VAL. */ static char *locate_lib (char *, char *); /* Given a library name NAME, i.e. foo, Look for libfoo.lib and then libfoo.a in the set of directories we are allowed to search in. */ static const char *expand_lib (char *); /* Preprocess the number of args P_ARGC in ARGV. Look for special flags, etc. that must be handled first. */ static void preprocess_args (int *, char **); /* Preprocess the number of args P_ARGC in ARGV. Look for special flags, etc. that must be handled for the VMS linker. */ static void process_args (int *, char **); /* Action routine called by decc$to_vms. NAME is a file name or directory name. TYPE is unused. */ static int translate_unix (char *, int); int main (int, char **); static void addarg (const char *str) { int i; if (++link_arg_index >= link_arg_max) { const char **new_link_args = (const char **) xcalloc (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; } static char * locate_lib (char *lib_name, char *path_val) { int lib_len = strlen (lib_name); char *eptr, *sptr; for (sptr = path_val; *sptr; sptr = eptr) { char *buf, *ptr; while (*sptr == PATH_SEPARATOR) sptr ++; eptr = strchr (sptr, PATH_SEPARATOR); if (eptr == 0) eptr = strchr (sptr, 0); buf = alloca ((eptr-sptr) + lib_len + 4 + 2); strncpy (buf, sptr, eptr-sptr); buf [eptr-sptr] = 0; strcat (buf, "/"); strcat (buf, lib_name); ptr = strchr (buf, 0); if (debug || staticp) { /* For debug or static links, look for shareable image libraries last. */ strcpy (ptr, ".a"); if (is_regular_file (buf)) return xstrdup (to_host_file_spec (buf)); strcpy (ptr, ".olb"); if (is_regular_file (buf)) return xstrdup (to_host_file_spec (buf)); strcpy (ptr, ".exe"); if (is_regular_file (buf)) return xstrdup (to_host_file_spec (buf)); } else { /* Otherwise look for shareable image libraries first. */ strcpy (ptr, ".exe"); if (is_regular_file (buf)) return xstrdup (to_host_file_spec (buf)); strcpy (ptr, ".a"); if (is_regular_file (buf)) return xstrdup (to_host_file_spec (buf)); strcpy (ptr, ".olb"); if (is_regular_file (buf)) return xstrdup (to_host_file_spec (buf)); } } return 0; } static const char * expand_lib (char *name) { char *lib, *lib_path; if (strcmp (name, "c") == 0) /* IEEE VAX C compatible library for non-prefixed (e.g. no DECC$) C RTL functions. */ return "sys$library:vaxcrtltx.olb"; else if (strcmp (name, "m") == 0) /* No separate library for math functions */ return ""; else { lib = xmalloc (strlen (name) + 14); strcpy (lib, "lib"); strcat (lib, name); lib_path = locate_lib (lib, search_dirs); if (lib_path) return lib_path; } fprintf (stderr, "Couldn't locate library: lib%s.exe, lib%s.a or lib%s.olb\n", name, name, name); exit (1); } static int is_regular_file (char *name) { int ret; struct stat statbuf; ret = stat (name, &statbuf); return !ret && S_ISREG (statbuf.st_mode); } static void preprocess_args (int *p_argc, char **argv) { int i; for (i = 1; i < *p_argc; i++) if (strlen (argv[i]) >= 6 && strncmp (argv[i], "-shared", 7) == 0) share = 1; for (i = 1; i < *p_argc; i++) if (strcmp (argv[i], "-o") == 0) { char *buff, *ptr; int out_len; int len; i++; ptr = to_host_file_spec (argv[i]); exefilename = xstrdup (ptr); out_len = strlen (ptr); buff = xmalloc (out_len + 18); if (share) strcpy (buff, "/share="); else strcpy (buff, "/exe="); strcat (buff, ptr); addarg (buff); if (share) { sharefilename = xmalloc (out_len+5); if (ptr == strchr (argv[i], ']')) strcpy (sharefilename, ++ptr); else if (ptr == strchr (argv[i], ':')) strcpy (sharefilename, ++ptr); else if (ptr == strrchr (argv[i], '/')) strcpy (sharefilename, ++ptr); else strcpy (sharefilename, argv[i]); len = strlen (sharefilename); if (strncasecmp (&sharefilename[len-4], ".exe", 4) == 0) sharefilename[len-4] = 0; for (ptr = sharefilename; *ptr; ptr++) *ptr = TOUPPER (*ptr); } } } static void process_args (int *p_argc, char **argv) { int i; for (i = 1; i < *p_argc; i++) { if (strlen (argv[i]) < 2) continue; if (strncmp (argv[i], "-L", 2) == 0) { char *nbuff, *ptr; int new_len, search_dirs_len; ptr = &argv[i][2]; new_len = strlen (ptr); search_dirs_len = strlen (search_dirs); nbuff = xmalloc (new_len + 1); strcpy (nbuff, ptr); /* Remove trailing slashes. */ while (new_len > 1 && nbuff [new_len - 1] == '/') { nbuff [new_len - 1] = 0; new_len--; } search_dirs = xrealloc (search_dirs, search_dirs_len + new_len + 2); if (search_dirs_len > 0) strcat (search_dirs, PATH_SEPARATOR_STR); strcat (search_dirs, nbuff); free (nbuff); } /* -v turns on verbose option here and is passed on to gcc. */ else if (strcmp (argv[i], "-v") == 0) verbose = 1; else if (strcmp (argv[i], "-g0") == 0) addarg ("/notraceback"); else if (strncmp (argv[i], "-g", 2) == 0) { addarg ("/debug"); debug = 1; } else if (strcmp (argv[i], "-static") == 0) staticp = 1; else if (strcmp (argv[i], "-map") == 0) { char *buff, *ptr; buff = xmalloc (strlen (exefilename) + 5); strcpy (buff, exefilename); ptr = strchr (buff, '.'); if (ptr) *ptr = 0; strcat (buff, ".map"); addarg ("/map="); addarg (buff); addarg ("/full"); } else if (strcmp (argv[i], "-save-temps") == 0) save_temps = 1; else if (strcmp (argv[i], "--noinhibit-exec") == 0) inhibit_exec = 0; } } /* The main program. Spawn the VMS linker after fixing up the Unix-like flags and args to be what the VMS linker wants. */ int main (int argc, char **argv) { int i; char cwdev [128], *devptr; int devlen; int optfd; FILE *optfile; char *cwd = getcwd (0, 1024); char *optfilename; devptr = strchr (cwd, ':'); devlen = (devptr - cwd) + 1; strncpy (cwdev, cwd, devlen); cwdev [devlen] = '\0'; search_dirs = xstrdup (system_search_dirs); addarg ("link"); /* Pass to find args that have to be append first. */ preprocess_args (&argc , argv); /* Pass to find the rest of the args. */ process_args (&argc , argv); /* Create a temp file to hold args, otherwise we can easily exceed the VMS command line length limits. */ optfilename = alloca (strlen ("LDXXXXXX") + 1); strcpy (optfilename, "LDXXXXXX"); optfd = mkstemp (optfilename); getcwd (optfilefullname, 256, 1); /* VMS style cwd. */ strcat (optfilefullname, optfilename); strcat (optfilefullname, "."); optfile = fdopen (optfd, "w"); /* Write out the IDENTIFICATION argument first so that it can be overridden by an options file. */ for (i = 1; i < argc; i++) { int arg_len = strlen (argv[i]); if (arg_len > 6 && strncasecmp (argv[i], "IDENT=", 6) == 0) { /* Comes from command line. If present will always appear before IDENTIFICATION=... and will override. */ if (!ident) ident = 1; } else if (arg_len > 15 && strncasecmp (argv[i], "IDENTIFICATION=", 15) == 0) { /* Comes from pragma Ident (). */ if (!ident) { fprintf (optfile, "case_sensitive=yes\n"); fprintf (optfile, "IDENTIFICATION=\"%15.15s\"\n", &argv[i][15]); fprintf (optfile, "case_sensitive=NO\n"); ident = 1; } } } for (i = 1; i < argc; i++) { int arg_len = strlen (argv[i]); if (strcmp (argv[i], "-o") == 0) i++; else if (arg_len > 2 && strncmp (argv[i], "-l", 2) == 0) { const char *libname = expand_lib (&argv[i][2]); const char *ext; int len; if ((len = strlen (libname)) > 0) { char buff [256]; if (len > 4 && strcasecmp (&libname [len-4], ".exe") == 0) ext = "/shareable"; else ext = "/library"; if (libname[0] == '[') sprintf (buff, "%s%s", cwdev, libname); else sprintf (buff, "%s", libname); fprintf (optfile, "%s%s\n", buff, ext); } } else if (strcmp (argv[i], "-v" ) == 0 || strncmp (argv[i], "-g", 2 ) == 0 || strcmp (argv[i], "-static" ) == 0 || strcmp (argv[i], "-map" ) == 0 || strcmp (argv[i], "-save-temps") == 0 || strcmp (argv[i], "--noinhibit-exec") == 0 || (arg_len > 2 && strncmp (argv[i], "-L", 2) == 0) || (arg_len >= 6 && strncmp (argv[i], "-share", 6) == 0)) ; else if (arg_len > 1 && argv[i][0] == '@') { FILE *atfile; char *ptr, *ptr1; struct stat statbuf; char *buff; int len; if (stat (&argv[i][1], &statbuf)) { fprintf (stderr, "Couldn't open linker response file: %s\n", &argv[i][1]); exit (1); } buff = xmalloc (statbuf.st_size + 1); atfile = fopen (&argv[i][1], "r"); fgets (buff, statbuf.st_size + 1, atfile); fclose (atfile); len = strlen (buff); if (buff [len - 1] == '\n') { buff [len - 1] = 0; len--; } ptr = buff; do { ptr1 = strchr (ptr, ' '); if (ptr1) *ptr1 = 0; ptr = to_host_file_spec (ptr); if (ptr[0] == '[') fprintf (optfile, "%s%s\n", cwdev, ptr); else fprintf (optfile, "%s\n", ptr); ptr = ptr1 + 1; } while (ptr1); } /* Unix style file specs and VMS style switches look alike, so assume an arg consisting of one and only one slash, and that being first, is really a switch. */ else if ((argv[i][0] == '/') && (strchr (&argv[i][1], '/') == 0)) addarg (argv[i]); else if (arg_len > 4 && strncasecmp (&argv[i][arg_len-4], ".OPT", 4) == 0) { FILE *optfile1; char buff [256]; optfile1 = fopen (argv[i], "r"); while (fgets (buff, 256, optfile1)) fputs (buff, optfile); fclose (optfile1); } else if (arg_len > 7 && strncasecmp (argv[i], "GSMATCH", 7) == 0) fprintf (optfile, "%s\n", argv[i]); else if (arg_len > 6 && strncasecmp (argv[i], "IDENT=", 6) == 0) { /* Comes from command line and will override pragma. */ fprintf (optfile, "case_sensitive=yes\n"); fprintf (optfile, "IDENT=\"%15.15s\"\n", &argv[i][6]); fprintf (optfile, "case_sensitive=NO\n"); ident = 1; } else if (arg_len > 15 && strncasecmp (argv[i], "IDENTIFICATION=", 15) == 0) ; else { /* Assume filename arg. */ const char *addswitch = ""; char buff [256]; int buff_len; int is_cld = 0; argv[i] = to_host_file_spec (argv[i]); arg_len = strlen (argv[i]); if (arg_len > 4 && strcasecmp (&argv[i][arg_len-4], ".exe") == 0) addswitch = "/shareable"; if (arg_len > 4 && strcasecmp (&argv[i][arg_len-4], ".cld") == 0) { addswitch = "/shareable"; is_cld = 1; } if (arg_len > 2 && strcasecmp (&argv[i][arg_len-2], ".a") == 0) addswitch = "/lib"; if (arg_len > 4 && strcasecmp (&argv[i][arg_len-4], ".olb") == 0) addswitch = "/lib"; if (argv[i][0] == '[') sprintf (buff, "%s%s%s\n", cwdev, argv[i], addswitch); else if (strchr (argv[i], ':')) sprintf (buff, "%s%s\n", argv[i], addswitch); else sprintf (buff, "%s%s%s\n", cwd, argv[i], addswitch); buff_len = strlen (buff); if (buff_len >= 15 && strcasecmp (&buff[buff_len - 15], "vms-dwarf2eh.o\n") == 0) vmsdwarf2ehspec = xstrdup (buff); else if (buff_len >= 13 && strcasecmp (&buff[buff_len - 13],"vms-dwarf2.o\n") == 0) vmsdwarf2spec = xstrdup (buff); else if (is_cld) { addarg (buff); addarg (","); } else fprintf (optfile, buff); } } #if 0 if (share) fprintf (optfile, "symbol_vector=(main=procedure)\n"); #endif if (vmsdwarf2ehspec) { fprintf (optfile, "case_sensitive=yes\n"); fprintf (optfile, "cluster=DWARF2eh,,,%s", vmsdwarf2ehspec); fprintf (optfile, "collect=DWARF2eh,eh_frame\n"); fprintf (optfile, "case_sensitive=NO\n"); } if (debug && vmsdwarf2spec) { fprintf (optfile, "case_sensitive=yes\n"); fprintf (optfile, "cluster=DWARF2debug,,,%s", vmsdwarf2spec); fprintf (optfile, "collect=DWARF2debug,debug_abbrev,debug_aranges,-\n"); fprintf (optfile, " debug_frame,debug_info,debug_line,debug_loc,-\n"); fprintf (optfile, " debug_macinfo,debug_pubnames,debug_str,-\n"); fprintf (optfile, " debug_zzzzzz\n"); fprintf (optfile, "case_sensitive=NO\n"); } if (debug && share) { fprintf (optfile, "case_sensitive=yes\n"); fprintf (optfile, "symbol_vector=(-\n"); fprintf (optfile, "%s$DWARF2.DEBUG_ABBREV/$dwarf2.debug_abbrev=DATA,-\n", sharefilename); fprintf (optfile, "%s$DWARF2.DEBUG_ARANGES/$dwarf2.debug_aranges=DATA,-\n", sharefilename); fprintf (optfile, "%s$DWARF2.DEBUG_FRAME/$dwarf2.debug_frame=DATA,-\n", sharefilename); fprintf (optfile, "%s$DWARF2.DEBUG_INFO/$dwarf2.debug_info=DATA,-\n", sharefilename); fprintf (optfile, "%s$DWARF2.DEBUG_LINE/$dwarf2.debug_line=DATA,-\n", sharefilename); fprintf (optfile, "%s$DWARF2.DEBUG_LOC/$dwarf2.debug_loc=DATA,-\n", sharefilename); fprintf (optfile, "%s$DWARF2.DEBUG_MACINFO/$dwarf2.debug_macinfo=DATA,-\n", sharefilename); fprintf (optfile, "%s$DWARF2.DEBUG_PUBNAMES/$dwarf2.debug_pubnames=DATA,-\n", sharefilename); fprintf (optfile, "%s$DWARF2.DEBUG_STR/$dwarf2.debug_str=DATA,-\n", sharefilename); fprintf (optfile, "%s$DWARF2.DEBUG_ZZZZZZ/$dwarf2.debug_zzzzzz=DATA)\n", sharefilename); fprintf (optfile, "case_sensitive=NO\n"); } fclose (optfile); addarg (optfilefullname); addarg ("/opt"); addarg (NULL); if (verbose) { int i; for (i = 0; i < link_arg_index; i++) printf ("%s ", link_args [i]); putchar ('\n'); } { int i; int len = 0; for (i = 0; link_args[i]; i++) len = len + strlen (link_args[i]) + 1; { char *allargs = (char *) alloca (len + 1); Descr cmd; int status; int status1 = 1; for (i = 0; i < len + 1; i++) allargs [i] = 0; for (i = 0; link_args [i]; i++) { strcat (allargs, link_args [i]); strcat (allargs, " "); } cmd.adr = allargs; cmd.len = len; cmd.mbz = 0; i = LIB$SPAWN (&cmd, 0, 0, 0, 0, 0, &status); if ((i & 1) != 1) { LIB$SIGNAL (i); exit (1); } if (debug && !share) { strcpy (allargs, "@gnu:[bin]set_exe "); strcat (allargs, exefilename); strcat (allargs, " /nodebug /silent"); len = strlen (allargs); cmd.adr = allargs; cmd.len = len; cmd.mbz = 0; if (verbose) printf (allargs); i = LIB$SPAWN (&cmd, 0, 0, 0, 0, 0, &status1); if ((i & 1) != 1) { LIB$SIGNAL (i); exit (1); } } if (!save_temps) remove (optfilefullname); if ((status & 1) == 1 && (status1 & 1) == 1) exit (0); if (exefilename && inhibit_exec == 1) remove (exefilename); exit (1); } } } static char new_host_filespec [255]; static char filename_buff [256]; static int translate_unix (char *name, int type ATTRIBUTE_UNUSED) { strcpy (filename_buff, name); return 0; } static char * to_host_file_spec (char *filespec) { strcpy (new_host_filespec, ""); if (strchr (filespec, ']') || strchr (filespec, ':')) strcpy (new_host_filespec, filespec); else { decc$to_vms (filespec, translate_unix, 1, 1); strcpy (new_host_filespec, filename_buff); } return new_host_filespec; }
Go to most recent revision | Compare with Previous | Blame | View Log