gcc/gcc-ar.cc

   1 /* Wrapper for ar/ranlib/nm to pass the LTO plugin.
   2    Copyright (C) 2011-2023 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 #if HAVE_LTO_PLUGIN > 0
 130   char *plugin;
 131   const int j = 2; /* Two extra args, --plugin <plugin>  */
 132 #else
 133   const int j = 0; /* No extra args.  */
 134 #endif
 135   int k, status, err;
 136   const char *err_msg;
 137   const char **nargv;
 138   bool is_ar = !strcmp (PERSONALITY, "ar");
 139   int exit_code = FATAL_EXIT_CODE;
 140   int i;
 141
 142   setup_prefixes (av[0]);
 143
 144   /* Not using getopt for now.  */
 145   for (i = 0; i < ac; i++)
 146       if (startswith (av[i], "-B"))
 147         {
 148           const char *arg = av[i] + 2;
 149           const char *end;
 150           size_t len;
 151
 152           memmove (av + i, av + i + 1, sizeof (char *) * ((ac + 1) - i));
 153           ac--;
 154           if (*arg == 0)
 155             {
 156               arg = av[i];
 157               if (!arg)
 158                 {
 159                   fprintf (stderr, "Usage: gcc-ar [-B prefix] ar arguments ...\n");
 160                   exit (EXIT_FAILURE);
 161                 }
 162               memmove (av + i, av + i + 1, sizeof (char *) * ((ac + 1) - i));
 163               ac--;
 164               i++;
 165             }
 166           /* else it's a joined argument  */
 167
 168           len = strlen (arg);
 169           if (len > 0)
 170             len--;
 171           end = arg + len;
 172
 173           /* Always add a dir separator for the prefix list.  */
 174           if (end > arg && !IS_DIR_SEPARATOR (*end))
 175             {
 176               static const char dir_separator_str[] = { DIR_SEPARATOR, 0 };
 177               arg = concat (arg, dir_separator_str, NULL);
 178             }
 179
 180           add_prefix_begin (&path, arg);
 181           add_prefix_begin (&target_path, arg);
 182           break;
 183         }
 184
 185 #if HAVE_LTO_PLUGIN > 0
 186   /* Find the GCC LTO plugin */
 187   plugin = find_a_file (&target_path, LTOPLUGINSONAME, R_OK);
 188   if (!plugin)
 189     {
 190       fprintf (stderr, "%s: Cannot find plugin '%s'\n", av[0], LTOPLUGINSONAME);
 191       exit (1);
 192     }
 193 #endif
 194
 195   /* Find the wrapped binutils program.  */
 196   exe_name = find_a_file (&target_path, PERSONALITY, X_OK);
 197   if (!exe_name)
 198     {
 199       const char *real_exe_name = PERSONALITY;
 200 #ifdef CROSS_DIRECTORY_STRUCTURE
 201       real_exe_name = concat (target_machine, "-", PERSONALITY, NULL);
 202 #endif
 203       exe_name = find_a_file (&path, real_exe_name, X_OK);
 204       if (!exe_name)
 205         {
 206           fprintf (stderr, "%s: Cannot find binary '%s'\n", av[0],
 207                    real_exe_name);
 208           exit (1);
 209         }
 210     }
 211
 212   /* Prepend - if necessary.  */
 213   if (is_ar && av[1] && av[1][0] != '-')
 214     av[1] = concat ("-", av[1], NULL);
 215
 216   /* Create new command line with plugin - if we have one, otherwise just
 217      copy the command through.  */
 218   nargv = XCNEWVEC (const char *, ac + j + 1); /* +j plugin args +1 for NULL.  */
 219   nargv[0] = exe_name;
 220 #if HAVE_LTO_PLUGIN > 0
 221   nargv[1] = "--plugin";
 222   nargv[2] = plugin;
 223 #endif
 224   for (k = 1; k < ac; k++)
 225     nargv[j + k] = av[k];
 226   nargv[j + k] = NULL;
 227
 228   /* Run utility */
 229   /* ??? the const is misplaced in pex_one's argv? */
 230   err_msg = pex_one (PEX_LAST|PEX_SEARCH,
 231                      exe_name,
 232                      CONST_CAST2 (char * const *, const char **, nargv),
 233                      concat ("gcc-", exe_name, NULL),
 234                      NULL,NULL,  &status, &err);
 235   if (err_msg)
 236     fprintf (stderr, "Error running %s: %s\n", exe_name, err_msg);
 237   else if (status)
 238     {
 239       if (WIFSIGNALED (status))
 240         {
 241           int sig = WTERMSIG (status);
 242           fprintf (stderr, "%s terminated with signal %d [%s]%s\n",
 243                    exe_name, sig, strsignal (sig),
 244                    WCOREDUMP (status) ? ", core dumped" : "");
 245         }
 246       else if (WIFEXITED (status))
 247         exit_code = WEXITSTATUS (status);
 248     }
 249   else
 250     exit_code = SUCCESS_EXIT_CODE;
 251
 252   return exit_code;
 253 }