gcc/gcc-ar.c

   1 /* Wrapper for ar/ranlib/nm to pass the LTO plugin.
   2    Copyright (C) 2011-2018 Free Software Foundation, Inc.
   3    Contributed by Andi Kleen.
   4
   5 This file is part of GCC.
   6
   7 GCC is free software; you can redistribute it and/or modify it under
   8 the terms of the GNU General Public License as published by the Free
   9 Software Foundation; either version 3, or (at your option) any later
  10 version.
  11
  12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GCC; see the file COPYING3.  If not see
  19 <http://www.gnu.org/licenses/>.  */
  20
  21 #include "config.h"
  22 #include "system.h"
  23 #include "libiberty.h"
  24 #include "file-find.h"
  25
  26 #ifndef PERSONALITY
  27 #error "Please set personality"
  28 #endif
  29
  30 /* The exec prefix as derived at compile-time from --prefix.  */
  31
  32 static const char standard_exec_prefix[] = STANDARD_EXEC_PREFIX;
  33
  34 /* The libexec prefix as derived at compile-time from --prefix.  */
  35
  36 static const char standard_libexec_prefix[] = STANDARD_LIBEXEC_PREFIX;
  37
  38 /* The bindir prefix as derived at compile-time from --prefix.  */
  39
  40 static const char standard_bin_prefix[] = STANDARD_BINDIR_PREFIX;
  41
  42 /* A relative path to be used in finding the location of tools
  43    relative to this program.  */
  44
  45 static const char *const tooldir_base_prefix = TOOLDIR_BASE_PREFIX;
  46
  47 /* The exec prefix as relocated from the location of this program.  */
  48
  49 static const char *self_exec_prefix;
  50
  51 /* The libexec prefix as relocated from the location of this program.  */
  52
  53 static const char *self_libexec_prefix;
  54
  55 /* The tools prefix as relocated from the location of this program.  */
  56
  57 static const char *self_tooldir_prefix;
  58
  59 /* The name of the machine that is being targeted.  */
  60
  61 static const char *const target_machine = DEFAULT_TARGET_MACHINE;
  62
  63 /* The target version.  */
  64
  65 static const char *const target_version = DEFAULT_TARGET_VERSION;
  66
  67 /* The collection of target specific path prefixes.  */
  68
  69 static struct path_prefix target_path;
  70
  71 /* The collection path prefixes.  */
  72
  73 static struct path_prefix path;
  74
  75 /* The directory separator.  */
  76
  77 static const char dir_separator[] = { DIR_SEPARATOR, 0 };
  78
  79 static void
  80 setup_prefixes (const char *exec_path)
  81 {
  82   const char *self;
  83
  84   self = getenv ("GCC_EXEC_PREFIX");
  85   if (!self)
  86     self = exec_path;
  87   else
  88     self = concat (self, "gcc-" PERSONALITY, NULL);
  89
  90   /* Relocate the exec prefix.  */
  91   self_exec_prefix = make_relative_prefix (self,
  92                                            standard_bin_prefix,
  93                                            standard_exec_prefix);
  94   if (self_exec_prefix == NULL)
  95     self_exec_prefix = standard_exec_prefix;
  96
  97   /* Relocate libexec prefix.  */
  98   self_libexec_prefix = make_relative_prefix (self,
  99                                               standard_bin_prefix,
 100                                               standard_libexec_prefix);
 101   if (self_libexec_prefix == NULL)
 102     self_libexec_prefix = standard_libexec_prefix;
 103
 104
 105   /* Build the relative path to the target-specific tool directory.  */
 106   self_tooldir_prefix = concat (tooldir_base_prefix, target_machine,
 107                                 dir_separator, NULL);
 108   self_tooldir_prefix = concat (self_exec_prefix, target_machine,
 109                                 dir_separator, target_version, dir_separator,
 110                                 self_tooldir_prefix, NULL);
 111
 112   /* Add the target-specific tool bin prefix.  */
 113   prefix_from_string (concat (self_tooldir_prefix, "bin", NULL), &target_path);
 114
 115   /* Add the target-specific libexec prefix.  */
 116   self_libexec_prefix = concat (self_libexec_prefix, target_machine,
 117                                 dir_separator, target_version,
 118                                 dir_separator, NULL);
 119   prefix_from_string (self_libexec_prefix, &target_path);
 120
 121   /* Add path as a last resort.  */
 122   prefix_from_env ("PATH", &path);
 123 }
 124
 125 int
 126 main (int ac, char **av)
 127 {
 128   const char *exe_name;
 129   char *plugin;
 130   int k, status, err;
 131   const char *err_msg;
 132   const char **nargv;
 133   bool is_ar = !strcmp (PERSONALITY, "ar");
 134   int exit_code = FATAL_EXIT_CODE;
 135   int i;
 136
 137   setup_prefixes (av[0]);
 138
 139   /* Not using getopt for now.  */
 140   for (i = 0; i < ac; i++)
 141       if (!strncmp (av[i], "-B", 2))
 142         {
 143           const char *arg = av[i] + 2;
 144           const char *end;
 145           size_t len;
 146
 147           memmove (av + i, av + i + 1, sizeof (char *) * ((ac + 1) - i));
 148           ac--;
 149           if (*arg == 0)
 150             {
 151               arg = av[i];
 152               if (!arg)
 153                 {
 154                   fprintf (stderr, "Usage: gcc-ar [-B prefix] ar arguments ...\n");
 155                   exit (EXIT_FAILURE);
 156                 }
 157               memmove (av + i, av + i + 1, sizeof (char *) * ((ac + 1) - i));
 158               ac--;
 159               i++;
 160             }
 161           /* else it's a joined argument  */
 162
 163           len = strlen (arg);
 164           if (len > 0)
 165             len--;
 166           end = arg + len;
 167
 168           /* Always add a dir separator for the prefix list.  */
 169           if (end > arg && !IS_DIR_SEPARATOR (*end))
 170             {
 171               static const char dir_separator_str[] = { DIR_SEPARATOR, 0 };
 172               arg = concat (arg, dir_separator_str, NULL);
 173             }
 174
 175           add_prefix_begin (&path, arg);
 176           add_prefix_begin (&target_path, arg);
 177           break;
 178         }
 179
 180
 181   /* Find the GCC LTO plugin */
 182   plugin = find_a_file (&target_path, LTOPLUGINSONAME, R_OK);
 183   if (!plugin)
 184     {
 185       fprintf (stderr, "%s: Cannot find plugin '%s'\n", av[0], LTOPLUGINSONAME);
 186       exit (1);
 187     }
 188
 189   /* Find the wrapped binutils program.  */
 190   exe_name = find_a_file (&target_path, PERSONALITY, X_OK);
 191   if (!exe_name)
 192     {
 193       const char *real_exe_name = PERSONALITY;
 194 #ifdef CROSS_DIRECTORY_STRUCTURE
 195       real_exe_name = concat (target_machine, "-", PERSONALITY, NULL);
 196 #endif
 197       exe_name = find_a_file (&path, real_exe_name, X_OK);
 198       if (!exe_name)
 199         {
 200           fprintf (stderr, "%s: Cannot find binary '%s'\n", av[0],
 201                    real_exe_name);
 202           exit (1);
 203         }
 204     }
 205
 206   /* Create new command line with plugin */
 207   nargv = XCNEWVEC (const char *, ac + 4);
 208   nargv[0] = exe_name;
 209   nargv[1] = "--plugin";
 210   nargv[2] = plugin;
 211   if (is_ar && av[1] && av[1][0] != '-')
 212     av[1] = concat ("-", av[1], NULL);
 213   for (k = 1; k < ac; k++)
 214     nargv[2 + k] = av[k];
 215   nargv[2 + k] = NULL;
 216
 217   /* Run utility */
 218   /* ??? the const is misplaced in pex_one's argv? */
 219   err_msg = pex_one (PEX_LAST|PEX_SEARCH,
 220                      exe_name,
 221                      CONST_CAST2 (char * const *, const char **, nargv),
 222                      concat ("gcc-", exe_name, NULL),
 223                      NULL,NULL,  &status, &err);
 224   if (err_msg)
 225     fprintf (stderr, "Error running %s: %s\n", exe_name, err_msg);
 226   else if (status)
 227     {
 228       if (WIFSIGNALED (status))
 229         {
 230           int sig = WTERMSIG (status);
 231           fprintf (stderr, "%s terminated with signal %d [%s]%s\n",
 232                    exe_name, sig, strsignal (sig),
 233                    WCOREDUMP (status) ? ", core dumped" : "");
 234         }
 235       else if (WIFEXITED (status))
 236         exit_code = WEXITSTATUS (status);
 237     }
 238   else
 239     exit_code = SUCCESS_EXIT_CODE;
 240
 241   return exit_code;
 242 }