blob: 479939fb0bf1f8289510f2ea335eb06187038672 [file] [log] [blame]
/* Wrapper for ar/ranlib/nm to pass the LTO plugin.
Copyright (C) 2011-2024 Free Software Foundation, Inc.
Contributed by Andi Kleen.
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/>. */
#include "config.h"
#include "system.h"
#include "libiberty.h"
#include "file-find.h"
#ifndef PERSONALITY
#error "Please set personality"
#endif
/* The exec prefix as derived at compile-time from --prefix. */
static const char standard_exec_prefix[] = STANDARD_EXEC_PREFIX;
/* The libexec prefix as derived at compile-time from --prefix. */
static const char standard_libexec_prefix[] = STANDARD_LIBEXEC_PREFIX;
/* The bindir prefix as derived at compile-time from --prefix. */
static const char standard_bin_prefix[] = STANDARD_BINDIR_PREFIX;
/* A relative path to be used in finding the location of tools
relative to this program. */
static const char *const tooldir_base_prefix = TOOLDIR_BASE_PREFIX;
/* The exec prefix as relocated from the location of this program. */
static const char *self_exec_prefix;
/* The libexec prefix as relocated from the location of this program. */
static const char *self_libexec_prefix;
/* The tools prefix as relocated from the location of this program. */
static const char *self_tooldir_prefix;
/* The name of the machine that is being targeted. */
static const char *const target_machine = DEFAULT_TARGET_MACHINE;
/* The target version. */
static const char *const target_version = DEFAULT_TARGET_VERSION;
/* The collection of target specific path prefixes. */
static struct path_prefix target_path;
/* The collection path prefixes. */
static struct path_prefix path;
/* The directory separator. */
static const char dir_separator[] = { DIR_SEPARATOR, 0 };
static void
setup_prefixes (const char *exec_path)
{
const char *self;
self = getenv ("GCC_EXEC_PREFIX");
if (!self)
self = exec_path;
else
self = concat (self, "gcc-" PERSONALITY, NULL);
/* Relocate the exec prefix. */
self_exec_prefix = make_relative_prefix (self,
standard_bin_prefix,
standard_exec_prefix);
if (self_exec_prefix == NULL)
self_exec_prefix = standard_exec_prefix;
/* Relocate libexec prefix. */
self_libexec_prefix = make_relative_prefix (self,
standard_bin_prefix,
standard_libexec_prefix);
if (self_libexec_prefix == NULL)
self_libexec_prefix = standard_libexec_prefix;
/* Build the relative path to the target-specific tool directory. */
self_tooldir_prefix = concat (tooldir_base_prefix, target_machine,
dir_separator, NULL);
self_tooldir_prefix = concat (self_exec_prefix, target_machine,
dir_separator, target_version, dir_separator,
self_tooldir_prefix, NULL);
/* Add the target-specific tool bin prefix. */
prefix_from_string (concat (self_tooldir_prefix, "bin", NULL), &target_path);
/* Add the target-specific libexec prefix. */
self_libexec_prefix = concat (self_libexec_prefix, target_machine,
dir_separator, target_version,
dir_separator, NULL);
prefix_from_string (self_libexec_prefix, &target_path);
/* Add path as a last resort. */
prefix_from_env ("PATH", &path);
}
int
main (int ac, char **av)
{
const char *exe_name;
#if HAVE_LTO_PLUGIN > 0
char *plugin;
const int j = 2; /* Two extra args, --plugin <plugin> */
#else
const int j = 0; /* No extra args. */
#endif
int k, status, err;
const char *err_msg;
const char **nargv;
char **old_argv;
const char *rsp_file = NULL;
const char *rsp_arg = NULL;
const char *rsp_argv[3];
bool is_ar = !strcmp (PERSONALITY, "ar");
int exit_code = FATAL_EXIT_CODE;
int i;
setup_prefixes (av[0]);
/* Not using getopt for now. */
for (i = 0; i < ac; i++)
if (startswith (av[i], "-B"))
{
const char *arg = av[i] + 2;
const char *end;
size_t len;
memmove (av + i, av + i + 1, sizeof (char *) * ((ac + 1) - i));
ac--;
if (*arg == 0)
{
arg = av[i];
if (!arg)
{
fprintf (stderr, "Usage: gcc-ar [-B prefix] ar arguments ...\n");
exit (EXIT_FAILURE);
}
memmove (av + i, av + i + 1, sizeof (char *) * ((ac + 1) - i));
ac--;
i++;
}
/* else it's a joined argument */
len = strlen (arg);
if (len > 0)
len--;
end = arg + len;
/* Always add a dir separator for the prefix list. */
if (end > arg && !IS_DIR_SEPARATOR (*end))
{
static const char dir_separator_str[] = { DIR_SEPARATOR, 0 };
arg = concat (arg, dir_separator_str, NULL);
}
add_prefix_begin (&path, arg);
add_prefix_begin (&target_path, arg);
break;
}
#if HAVE_LTO_PLUGIN > 0
/* Find the GCC LTO plugin */
plugin = find_a_file (&target_path, LTOPLUGINSONAME, R_OK);
if (!plugin)
{
fprintf (stderr, "%s: Cannot find plugin '%s'\n", av[0], LTOPLUGINSONAME);
exit (1);
}
#endif
/* Find the wrapped binutils program. */
exe_name = find_a_file (&target_path, PERSONALITY, X_OK);
if (!exe_name)
{
const char *real_exe_name = PERSONALITY;
#ifdef CROSS_DIRECTORY_STRUCTURE
real_exe_name = concat (target_machine, "-", PERSONALITY, NULL);
#endif
exe_name = find_a_file (&path, real_exe_name, X_OK);
if (!exe_name)
{
fprintf (stderr, "%s: Cannot find binary '%s'\n", av[0],
real_exe_name);
exit (1);
}
}
/* Expand any @files before modifying the command line
and use a temporary response file if there were any. */
old_argv = av;
expandargv (&ac, &av);
if (av != old_argv)
rsp_file = make_temp_file ("");
/* Prepend - if necessary. */
if (is_ar && av[1] && av[1][0] != '-')
av[1] = concat ("-", av[1], NULL);
/* Create new command line with plugin - if we have one, otherwise just
copy the command through. */
nargv = XCNEWVEC (const char *, ac + j + 1); /* +j plugin args +1 for NULL. */
nargv[0] = exe_name;
#if HAVE_LTO_PLUGIN > 0
nargv[1] = "--plugin";
nargv[2] = plugin;
#endif
for (k = 1; k < ac; k++)
nargv[j + k] = av[k];
nargv[j + k] = NULL;
/* If @file was passed, put nargv into the temporary response
file and then change it to a single @FILE argument, where
FILE is the temporary filename. */
if (rsp_file)
{
FILE *f;
int status;
f = fopen (rsp_file, "w");
if (f == NULL)
{
fprintf (stderr, "Cannot open temporary file %s\n", rsp_file);
exit (1);
}
status = writeargv (
CONST_CAST2 (char * const *, const char **, nargv) + 1, f);
if (status)
{
fprintf (stderr, "Cannot write to temporary file %s\n", rsp_file);
exit (1);
}
status = fclose (f);
if (EOF == status)
{
fprintf (stderr, "Cannot close temporary file %s\n", rsp_file);
exit (1);
}
rsp_arg = concat ("@", rsp_file, NULL);
rsp_argv[0] = nargv[0];
rsp_argv[1] = rsp_arg;
rsp_argv[2] = NULL;
nargv = rsp_argv;
}
/* Run utility */
/* ??? the const is misplaced in pex_one's argv? */
err_msg = pex_one (PEX_LAST|PEX_SEARCH,
exe_name,
CONST_CAST2 (char * const *, const char **, nargv),
concat ("gcc-", exe_name, NULL),
NULL,NULL, &status, &err);
if (err_msg)
fprintf (stderr, "Error running %s: %s\n", exe_name, err_msg);
else if (status)
{
if (WIFSIGNALED (status))
{
int sig = WTERMSIG (status);
fprintf (stderr, "%s terminated with signal %d [%s]%s\n",
exe_name, sig, strsignal (sig),
WCOREDUMP (status) ? ", core dumped" : "");
}
else if (WIFEXITED (status))
exit_code = WEXITSTATUS (status);
}
else
exit_code = SUCCESS_EXIT_CODE;
if (rsp_file)
unlink (rsp_file);
return exit_code;
}