[gcc.git] / gcc / gcc-ar.c

/* Wrapper for ar/ranlib/nm to pass the LTO plugin.
   Copyright (C) 2011-2018 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;
  char *plugin;
  int k, status, err;
  const char *err_msg;
  const char **nargv;
  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 (!strncmp (av[i], "-B", 2))
	{
	  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;
	}


  /* 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);
    }

  /* 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);
	}
    }

  /* Create new command line with plugin */
  nargv = XCNEWVEC (const char *, ac + 4);
  nargv[0] = exe_name;
  nargv[1] = "--plugin";
  nargv[2] = plugin;
  if (is_ar && av[1] && av[1][0] != '-')
    av[1] = concat ("-", av[1], NULL);
  for (k = 1; k < ac; k++)
    nargv[2 + k] = av[k];
  nargv[2 + k] = NULL;

  /* 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;

  return exit_code;
}
Commit	Line	Data
b6b89215	1	/* Wrapper for ar/ranlib/nm to pass the LTO plugin.
85ec4feb	2	Copyright (C) 2011-2018 Free Software Foundation, Inc.
b6b89215 AK	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
b6b89215 AK	21	#include "config.h"
	22	#include "system.h"
	23	#include "libiberty.h"
c2a73de2	24	#include "file-find.h"
b6b89215 AK	25
	26	#ifndef PERSONALITY
	27	#error "Please set personality"
	28	#endif
	29
c2a73de2 MI	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
b6b89215	36	static const char standard_libexec_prefix[] = STANDARD_LIBEXEC_PREFIX;
c2a73de2 MI	37
	38	/* The bindir prefix as derived at compile-time from --prefix. */
	39
b6b89215	40	static const char standard_bin_prefix[] = STANDARD_BINDIR_PREFIX;
c2a73de2 MI	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. */
b6b89215 AK	76
	77	static const char dir_separator[] = { DIR_SEPARATOR, 0 };
	78
c2a73de2 MI	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
b6b89215	125	int
c3284718	126	main (int ac, char **av)
b6b89215	127	{
b6b89215 AK	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");
33adc2a3	134	int exit_code = FATAL_EXIT_CODE;
b5617e5f	135	int i;
b6b89215	136
c2a73de2	137	setup_prefixes (av[0]);
b6b89215	138
b5617e5f AK	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)
730c9e75	165	len--;
b5617e5f AK	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
c2a73de2	181	/* Find the GCC LTO plugin */
a09f1a76	182	plugin = find_a_file (&target_path, LTOPLUGINSONAME, R_OK);
c2a73de2 MI	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. */
a09f1a76	190	exe_name = find_a_file (&target_path, PERSONALITY, X_OK);
c2a73de2	191	if (!exe_name)
b6b89215	192	{
216c12ab	193	const char *real_exe_name = PERSONALITY;
c2a73de2	194	#ifdef CROSS_DIRECTORY_STRUCTURE
216c12ab JJ	195	real_exe_name = concat (target_machine, "-", PERSONALITY, NULL);
216c12ab JJ	196	#endif
a09f1a76	197	exe_name = find_a_file (&path, real_exe_name, X_OK);
c2a73de2 MI	198	if (!exe_name)
	199	{
	200	fprintf (stderr, "%s: Cannot find binary '%s'\n", av[0],
216c12ab	201	real_exe_name);
c2a73de2 MI	202	exit (1);
c2a73de2 MI	203	}
b6b89215 AK	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] != '-')
c3284718	212	av[1] = concat ("-", av[1], NULL);
b6b89215 AK	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),
c3284718	222	concat ("gcc-", exe_name, NULL),
b6b89215 AK	223	NULL,NULL, &status, &err);
b6b89215 AK	224	if (err_msg)
c3284718	225	fprintf (stderr, "Error running %s: %s\n", exe_name, err_msg);
33adc2a3 MI	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",
c3284718 RS	232	exe_name, sig, strsignal (sig),
c3284718 RS	233	WCOREDUMP (status) ? ", core dumped" : "");
33adc2a3 MI	234	}
	235	else if (WIFEXITED (status))
	236	exit_code = WEXITSTATUS (status);
	237	}
	238	else
	239	exit_code = SUCCESS_EXIT_CODE;
b6b89215	240
33adc2a3	241	return exit_code;
b6b89215	242	}