[deliverable/binutils-gdb.git] / bfd / plugin.c

/* Plugin support for BFD.
   Copyright (C) 2009-2017 Free Software Foundation, Inc.

   This file is part of BFD, the Binary File Descriptor library.

   This program 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 of the License, or
   (at your option) any later version.

   This program 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 this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
   MA 02110-1301, USA.  */

#include "sysdep.h"
#include "bfd.h"

#if BFD_SUPPORTS_PLUGINS

#include <assert.h>
#ifdef HAVE_DLFCN_H
#include <dlfcn.h>
#elif defined (HAVE_WINDOWS_H)
#include <windows.h>
#else
#error Unknown how to handle dynamic-load-libraries.
#endif
#include <stdarg.h>
#include "plugin-api.h"
#include "plugin.h"
#include "libbfd.h"
#include "libiberty.h"
#include <dirent.h>

#if !defined (HAVE_DLFCN_H) && defined (HAVE_WINDOWS_H)

#define RTLD_NOW 0      /* Dummy value.  */

static void *
dlopen (const char *file, int mode ATTRIBUTE_UNUSED)
{
  return LoadLibrary (file);
}

static void *
dlsym (void *handle, const char *name)
{
  return GetProcAddress (handle, name);
}

static int ATTRIBUTE_UNUSED
dlclose (void *handle)
{
  FreeLibrary (handle);
  return 0;
}

static const char *
dlerror (void)
{
  return "Unable to load DLL.";
}

#endif /* !defined (HAVE_DLFCN_H) && defined (HAVE_WINDOWS_H)  */

#define bfd_plugin_close_and_cleanup                  _bfd_generic_close_and_cleanup
#define bfd_plugin_bfd_free_cached_info               _bfd_generic_bfd_free_cached_info
#define bfd_plugin_new_section_hook                   _bfd_generic_new_section_hook
#define bfd_plugin_get_section_contents               _bfd_generic_get_section_contents
#define bfd_plugin_get_section_contents_in_window     _bfd_generic_get_section_contents_in_window
#define bfd_plugin_bfd_copy_private_header_data       _bfd_generic_bfd_copy_private_header_data
#define bfd_plugin_bfd_merge_private_bfd_data         _bfd_generic_bfd_merge_private_bfd_data
#define bfd_plugin_bfd_copy_private_header_data       _bfd_generic_bfd_copy_private_header_data
#define bfd_plugin_bfd_set_private_flags              _bfd_generic_bfd_set_private_flags
#define bfd_plugin_core_file_matches_executable_p     generic_core_file_matches_executable_p
#define bfd_plugin_bfd_is_local_label_name            _bfd_nosymbols_bfd_is_local_label_name
#define bfd_plugin_bfd_is_target_special_symbol       ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
#define bfd_plugin_get_lineno                         _bfd_nosymbols_get_lineno
#define bfd_plugin_find_nearest_line                  _bfd_nosymbols_find_nearest_line
#define bfd_plugin_find_line                          _bfd_nosymbols_find_line
#define bfd_plugin_find_inliner_info                  _bfd_nosymbols_find_inliner_info
#define bfd_plugin_get_symbol_version_string	      _bfd_nosymbols_get_symbol_version_string
#define bfd_plugin_bfd_make_debug_symbol              _bfd_nosymbols_bfd_make_debug_symbol
#define bfd_plugin_read_minisymbols                   _bfd_generic_read_minisymbols
#define bfd_plugin_minisymbol_to_symbol               _bfd_generic_minisymbol_to_symbol
#define bfd_plugin_set_arch_mach                      bfd_default_set_arch_mach
#define bfd_plugin_set_section_contents               _bfd_generic_set_section_contents
#define bfd_plugin_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents
#define bfd_plugin_bfd_relax_section                  bfd_generic_relax_section
#define bfd_plugin_bfd_link_hash_table_create         _bfd_generic_link_hash_table_create
#define bfd_plugin_bfd_link_add_symbols               _bfd_generic_link_add_symbols
#define bfd_plugin_bfd_link_just_syms                 _bfd_generic_link_just_syms
#define bfd_plugin_bfd_final_link                     _bfd_generic_final_link
#define bfd_plugin_bfd_link_split_section             _bfd_generic_link_split_section
#define bfd_plugin_bfd_gc_sections                    bfd_generic_gc_sections
#define bfd_plugin_bfd_lookup_section_flags           bfd_generic_lookup_section_flags
#define bfd_plugin_bfd_merge_sections                 bfd_generic_merge_sections
#define bfd_plugin_bfd_is_group_section               bfd_generic_is_group_section
#define bfd_plugin_bfd_discard_group                  bfd_generic_discard_group
#define bfd_plugin_section_already_linked             _bfd_generic_section_already_linked
#define bfd_plugin_bfd_define_common_symbol           bfd_generic_define_common_symbol
#define bfd_plugin_bfd_define_start_stop              bfd_generic_define_start_stop
#define bfd_plugin_bfd_copy_link_hash_symbol_type     _bfd_generic_copy_link_hash_symbol_type
#define bfd_plugin_bfd_link_check_relocs              _bfd_generic_link_check_relocs

static enum ld_plugin_status
message (int level ATTRIBUTE_UNUSED,
	 const char * format, ...)
{
  va_list args;
  va_start (args, format);
  printf ("bfd plugin: ");
  vprintf (format, args);
  putchar ('\n');
  va_end (args);
  return LDPS_OK;
}

/* Register a claim-file handler. */
static ld_plugin_claim_file_handler claim_file;

static enum ld_plugin_status
register_claim_file (ld_plugin_claim_file_handler handler)
{
  claim_file = handler;
  return LDPS_OK;
}

static enum ld_plugin_status
add_symbols (void * handle,
	     int nsyms,
	     const struct ld_plugin_symbol * syms)
{
  bfd *abfd = handle;
  struct plugin_data_struct *plugin_data =
    bfd_alloc (abfd, sizeof (plugin_data_struct));

  plugin_data->nsyms = nsyms;
  plugin_data->syms = syms;

  if (nsyms != 0)
    abfd->flags |= HAS_SYMS;

  abfd->tdata.plugin_data = plugin_data;
  return LDPS_OK;
}

static const char *plugin_program_name;

void
bfd_plugin_set_program_name (const char *program_name)
{
  plugin_program_name = program_name;
}

int
bfd_plugin_open_input (bfd *ibfd, struct ld_plugin_input_file *file)
{
  bfd *iobfd;

  iobfd = ibfd;
  if (ibfd->my_archive && !bfd_is_thin_archive (ibfd->my_archive))
    iobfd = ibfd->my_archive;
  file->name = iobfd->filename;

  if (!iobfd->iostream && !bfd_open_file (iobfd))
    return 0;

  file->fd = fileno ((FILE *) iobfd->iostream);

  if (iobfd == ibfd)
    {
      struct stat stat_buf;
      if (fstat (file->fd, &stat_buf))
        return 0;
      file->offset = 0;
      file->filesize = stat_buf.st_size;
    }
  else
    {
      file->offset = ibfd->origin;
      file->filesize = arelt_size (ibfd);
    }
  return 1;
}

static int
try_claim (bfd *abfd)
{
  int claimed = 0;
  struct ld_plugin_input_file file;

  if (!bfd_plugin_open_input (abfd, &file))
    return 0;
  file.handle = abfd;
  off_t cur_offset = lseek (file.fd, 0, SEEK_CUR);
  claim_file (&file, &claimed);
  lseek (file.fd, cur_offset, SEEK_SET);
  return claimed;
}

static int
try_load_plugin (const char *pname, bfd *abfd, int *has_plugin_p)
{
  void *plugin_handle;
  struct ld_plugin_tv tv[4];
  int i;
  ld_plugin_onload onload;
  enum ld_plugin_status status;

  *has_plugin_p = 0;

  plugin_handle = dlopen (pname, RTLD_NOW);
  if (!plugin_handle)
    {
      _bfd_error_handler ("%s\n", dlerror ());
      return 0;
    }

  onload = dlsym (plugin_handle, "onload");
  if (!onload)
    goto err;

  i = 0;
  tv[i].tv_tag = LDPT_MESSAGE;
  tv[i].tv_u.tv_message = message;

  ++i;
  tv[i].tv_tag = LDPT_REGISTER_CLAIM_FILE_HOOK;
  tv[i].tv_u.tv_register_claim_file = register_claim_file;

  ++i;
  tv[i].tv_tag = LDPT_ADD_SYMBOLS;
  tv[i].tv_u.tv_add_symbols = add_symbols;

  ++i;
  tv[i].tv_tag = LDPT_NULL;
  tv[i].tv_u.tv_val = 0;

  status = (*onload)(tv);

  if (status != LDPS_OK)
    goto err;

  *has_plugin_p = 1;

  abfd->plugin_format = bfd_plugin_no;

  if (!claim_file)
    goto err;

  if (!try_claim (abfd))
    goto err;

  abfd->plugin_format = bfd_plugin_yes;

  return 1;

 err:
  return 0;
}

/* There may be plugin libraries in lib/bfd-plugins.  */

static int has_plugin = -1;

static const bfd_target *(*ld_plugin_object_p) (bfd *);

static const char *plugin_name;

void
bfd_plugin_set_plugin (const char *p)
{
  plugin_name = p;
  has_plugin = p != NULL;
}

/* Return TRUE if a plugin library is used.  */

bfd_boolean
bfd_plugin_specified_p (void)
{
  return has_plugin > 0;
}

/* Return TRUE if ABFD can be claimed by linker LTO plugin.  */

bfd_boolean
bfd_link_plugin_object_p (bfd *abfd)
{
  if (ld_plugin_object_p)
    return ld_plugin_object_p (abfd) != NULL;
  return FALSE;
}

extern const bfd_target plugin_vec;

/* Return TRUE if TARGET is a pointer to plugin_vec.  */

bfd_boolean
bfd_plugin_target_p (const bfd_target *target)
{
  return target == &plugin_vec;
}

/* Register OBJECT_P to be used by bfd_plugin_object_p.  */

void
register_ld_plugin_object_p (const bfd_target *(*object_p) (bfd *))
{
  ld_plugin_object_p = object_p;
}

static int
load_plugin (bfd *abfd)
{
  char *plugin_dir;
  char *p;
  DIR *d;
  struct dirent *ent;
  int found = 0;

  if (!has_plugin)
    return found;

  if (plugin_name)
    return try_load_plugin (plugin_name, abfd, &has_plugin);

  if (plugin_program_name == NULL)
    return found;

  plugin_dir = concat (BINDIR, "/../lib/bfd-plugins", NULL);
  p = make_relative_prefix (plugin_program_name,
			    BINDIR,
			    plugin_dir);
  free (plugin_dir);
  plugin_dir = NULL;

  d = opendir (p);
  if (!d)
    goto out;

  while ((ent = readdir (d)))
    {
      char *full_name;
      struct stat s;
      int valid_plugin;

      full_name = concat (p, "/", ent->d_name, NULL);
      if (stat(full_name, &s) == 0 && S_ISREG (s.st_mode))
	found = try_load_plugin (full_name, abfd, &valid_plugin);
      if (has_plugin <= 0)
	has_plugin = valid_plugin;
      free (full_name);
      if (found)
	break;
    }

 out:
  free (p);
  if (d)
    closedir (d);

  return found;
}


static const bfd_target *
bfd_plugin_object_p (bfd *abfd)
{
  if (ld_plugin_object_p)
    return ld_plugin_object_p (abfd);

  if (abfd->plugin_format == bfd_plugin_unknown && !load_plugin (abfd))
    return NULL;

  return abfd->plugin_format == bfd_plugin_yes ? abfd->xvec : NULL;
}

/* Copy any private info we understand from the input bfd
   to the output bfd.  */

static bfd_boolean
bfd_plugin_bfd_copy_private_bfd_data (bfd *ibfd ATTRIBUTE_UNUSED,
				      bfd *obfd ATTRIBUTE_UNUSED)
{
  BFD_ASSERT (0);
  return TRUE;
}

/* Copy any private info we understand from the input section
   to the output section.  */

static bfd_boolean
bfd_plugin_bfd_copy_private_section_data (bfd *ibfd ATTRIBUTE_UNUSED,
					  asection *isection ATTRIBUTE_UNUSED,
					  bfd *obfd ATTRIBUTE_UNUSED,
					  asection *osection ATTRIBUTE_UNUSED)
{
  BFD_ASSERT (0);
  return TRUE;
}

/* Copy any private info we understand from the input symbol
   to the output symbol.  */

static bfd_boolean
bfd_plugin_bfd_copy_private_symbol_data (bfd *ibfd ATTRIBUTE_UNUSED,
					 asymbol *isymbol ATTRIBUTE_UNUSED,
					 bfd *obfd ATTRIBUTE_UNUSED,
					 asymbol *osymbol ATTRIBUTE_UNUSED)
{
  BFD_ASSERT (0);
  return TRUE;
}

static bfd_boolean
bfd_plugin_bfd_print_private_bfd_data (bfd *abfd ATTRIBUTE_UNUSED, PTR ptr ATTRIBUTE_UNUSED)
{
  BFD_ASSERT (0);
  return TRUE;
}

static char *
bfd_plugin_core_file_failing_command (bfd *abfd ATTRIBUTE_UNUSED)
{
  BFD_ASSERT (0);
  return NULL;
}

static int
bfd_plugin_core_file_failing_signal (bfd *abfd ATTRIBUTE_UNUSED)
{
  BFD_ASSERT (0);
  return 0;
}

static int
bfd_plugin_core_file_pid (bfd *abfd ATTRIBUTE_UNUSED)
{
  BFD_ASSERT (0);
  return 0;
}

static long
bfd_plugin_get_symtab_upper_bound (bfd *abfd)
{
  struct plugin_data_struct *plugin_data = abfd->tdata.plugin_data;
  long nsyms = plugin_data->nsyms;

  BFD_ASSERT (nsyms >= 0);

  return ((nsyms + 1) * sizeof (asymbol *));
}

static flagword
convert_flags (const struct ld_plugin_symbol *sym)
{
 switch (sym->def)
   {
   case LDPK_DEF:
   case LDPK_COMMON:
   case LDPK_UNDEF:
     return BSF_GLOBAL;

   case LDPK_WEAKUNDEF:
   case LDPK_WEAKDEF:
     return BSF_GLOBAL | BSF_WEAK;

   default:
     BFD_ASSERT (0);
     return 0;
   }
}

static long
bfd_plugin_canonicalize_symtab (bfd *abfd,
				asymbol **alocation)
{
  struct plugin_data_struct *plugin_data = abfd->tdata.plugin_data;
  long nsyms = plugin_data->nsyms;
  const struct ld_plugin_symbol *syms = plugin_data->syms;
  static asection fake_section;
  static asection fake_common_section;
  int i;

  fake_section.name = ".text";
  fake_common_section.flags = SEC_IS_COMMON;

  for (i = 0; i < nsyms; i++)
    {
      asymbol *s = bfd_alloc (abfd, sizeof (asymbol));

      BFD_ASSERT (s);
      alocation[i] = s;

      s->the_bfd = abfd;
      s->name = syms[i].name;
      s->value = 0;
      s->flags = convert_flags (&syms[i]);
      switch (syms[i].def)
	{
	case LDPK_COMMON:
	  s->section = &fake_common_section;
	  break;
	case LDPK_UNDEF:
	case LDPK_WEAKUNDEF:
	  s->section = bfd_und_section_ptr;
	  break;
	case LDPK_DEF:
	case LDPK_WEAKDEF:
	  s->section = &fake_section;
	  break;
	default:
	  BFD_ASSERT (0);
	}

      s->udata.p = (void *) &syms[i];
    }

  return nsyms;
}

static void
bfd_plugin_print_symbol (bfd *abfd ATTRIBUTE_UNUSED,
			 PTR afile ATTRIBUTE_UNUSED,
			 asymbol *symbol ATTRIBUTE_UNUSED,
			 bfd_print_symbol_type how ATTRIBUTE_UNUSED)
{
  BFD_ASSERT (0);
}

static void
bfd_plugin_get_symbol_info (bfd *abfd ATTRIBUTE_UNUSED,
			    asymbol *symbol,
			    symbol_info *ret)
{
  bfd_symbol_info (symbol, ret);
}

/* Make an empty symbol. */

static asymbol *
bfd_plugin_make_empty_symbol (bfd *abfd)
{
  asymbol *new_symbol = bfd_zalloc (abfd, sizeof (asymbol));
  if (new_symbol == NULL)
    return new_symbol;
  new_symbol->the_bfd = abfd;
  return new_symbol;
}

static int
bfd_plugin_sizeof_headers (bfd *a ATTRIBUTE_UNUSED,
			   struct bfd_link_info *info ATTRIBUTE_UNUSED)
{
  BFD_ASSERT (0);
  return 0;
}

const bfd_target plugin_vec =
{
  "plugin",			/* Name.  */
  bfd_target_unknown_flavour,
  BFD_ENDIAN_LITTLE,		/* Target byte order.  */
  BFD_ENDIAN_LITTLE,		/* Target headers byte order.  */
  (HAS_RELOC | EXEC_P |		/* Object flags.  */
   HAS_LINENO | HAS_DEBUG |
   HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
  (SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS
   | SEC_ALLOC | SEC_LOAD | SEC_RELOC),	/* Section flags.  */
  0,				/* symbol_leading_char.  */
  '/',				/* ar_pad_char.  */
  15,				/* ar_max_namelen.  */
  255,				/* match priority.  */

  bfd_getl64, bfd_getl_signed_64, bfd_putl64,
  bfd_getl32, bfd_getl_signed_32, bfd_putl32,
  bfd_getl16, bfd_getl_signed_16, bfd_putl16,	/* data */
  bfd_getl64, bfd_getl_signed_64, bfd_putl64,
  bfd_getl32, bfd_getl_signed_32, bfd_putl32,
  bfd_getl16, bfd_getl_signed_16, bfd_putl16,	/* hdrs */

  {				/* bfd_check_format.  */
    _bfd_dummy_target,
    bfd_plugin_object_p,
    bfd_generic_archive_p,
    _bfd_dummy_target
  },
  {				/* bfd_set_format.  */
    bfd_false,
    bfd_false,
    _bfd_generic_mkarchive,
    bfd_false,
  },
  {				/* bfd_write_contents.  */
    bfd_false,
    bfd_false,
    _bfd_write_archive_contents,
    bfd_false,
  },

  BFD_JUMP_TABLE_GENERIC (bfd_plugin),
  BFD_JUMP_TABLE_COPY (bfd_plugin),
  BFD_JUMP_TABLE_CORE (bfd_plugin),
#ifdef USE_64_BIT_ARCHIVE
  BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_64_bit),
#else
  BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
#endif
  BFD_JUMP_TABLE_SYMBOLS (bfd_plugin),
  BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
  BFD_JUMP_TABLE_WRITE (bfd_plugin),
  BFD_JUMP_TABLE_LINK (bfd_plugin),
  BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),

  NULL,

  NULL  			/* backend_data.  */
};
#endif /* BFD_SUPPORTS_PLUGIN */
Commit	Line	Data
ce3c775b	1	/* Plugin support for BFD.
2571583a	2	Copyright (C) 2009-2017 Free Software Foundation, Inc.
ce3c775b NC	3
	4	This file is part of BFD, the Binary File Descriptor library.
	5
	6	This program is free software; you can redistribute it and/or modify
	7	it under the terms of the GNU General Public License as published by
	8	the Free Software Foundation; either version 3 of the License, or
	9	(at your option) any later version.
	10
	11	This program is distributed in the hope that it will be useful,
	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	GNU General Public License for more details.
	15
	16	You should have received a copy of the GNU General Public License
	17	along with this program; if not, write to the Free Software
	18	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
	19	MA 02110-1301, USA. */
	20
691bf19c	21	#include "sysdep.h"
98950613 AM	22	#include "bfd.h"
	23
	24	#if BFD_SUPPORTS_PLUGINS
	25
ce3c775b	26	#include <assert.h>
17d5dae2	27	#ifdef HAVE_DLFCN_H
ce3c775b	28	#include <dlfcn.h>
17d5dae2 KT	29	#elif defined (HAVE_WINDOWS_H)
	30	#include <windows.h>
	31	#else
	32	#error Unknown how to handle dynamic-load-libraries.
	33	#endif
ce3c775b NC	34	#include <stdarg.h>
ce3c775b NC	35	#include "plugin-api.h"
ce3c775b NC	36	#include "plugin.h"
	37	#include "libbfd.h"
	38	#include "libiberty.h"
	39	#include <dirent.h>
	40
17d5dae2 KT	41	#if !defined (HAVE_DLFCN_H) && defined (HAVE_WINDOWS_H)
	42
	43	#define RTLD_NOW 0 /* Dummy value. */
	44
	45	static void *
	46	dlopen (const char *file, int mode ATTRIBUTE_UNUSED)
	47	{
	48	return LoadLibrary (file);
	49	}
	50
	51	static void *
	52	dlsym (void handle, const char name)
	53	{
	54	return GetProcAddress (handle, name);
	55	}
	56
	57	static int ATTRIBUTE_UNUSED
	58	dlclose (void *handle)
	59	{
	60	FreeLibrary (handle);
	61	return 0;
	62	}
	63
	64	static const char *
	65	dlerror (void)
	66	{
	67	return "Unable to load DLL.";
	68	}
	69
	70	#endif /* !defined (HAVE_DLFCN_H) && defined (HAVE_WINDOWS_H) */
	71
ce3c775b NC	72	#define bfd_plugin_close_and_cleanup _bfd_generic_close_and_cleanup
	73	#define bfd_plugin_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
	74	#define bfd_plugin_new_section_hook _bfd_generic_new_section_hook
	75	#define bfd_plugin_get_section_contents _bfd_generic_get_section_contents
	76	#define bfd_plugin_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
	77	#define bfd_plugin_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
	78	#define bfd_plugin_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
	79	#define bfd_plugin_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
	80	#define bfd_plugin_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
	81	#define bfd_plugin_core_file_matches_executable_p generic_core_file_matches_executable_p
	82	#define bfd_plugin_bfd_is_local_label_name _bfd_nosymbols_bfd_is_local_label_name
	83	#define bfd_plugin_bfd_is_target_special_symbol ((bfd_boolean () (bfd , asymbol *)) bfd_false)
	84	#define bfd_plugin_get_lineno _bfd_nosymbols_get_lineno
	85	#define bfd_plugin_find_nearest_line _bfd_nosymbols_find_nearest_line
9c461f7d	86	#define bfd_plugin_find_line _bfd_nosymbols_find_line
ce3c775b	87	#define bfd_plugin_find_inliner_info _bfd_nosymbols_find_inliner_info
60bb06bc	88	#define bfd_plugin_get_symbol_version_string _bfd_nosymbols_get_symbol_version_string
ce3c775b NC	89	#define bfd_plugin_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
	90	#define bfd_plugin_read_minisymbols _bfd_generic_read_minisymbols
	91	#define bfd_plugin_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
	92	#define bfd_plugin_set_arch_mach bfd_default_set_arch_mach
	93	#define bfd_plugin_set_section_contents _bfd_generic_set_section_contents
	94	#define bfd_plugin_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents
	95	#define bfd_plugin_bfd_relax_section bfd_generic_relax_section
	96	#define bfd_plugin_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
ce3c775b NC	97	#define bfd_plugin_bfd_link_add_symbols _bfd_generic_link_add_symbols
	98	#define bfd_plugin_bfd_link_just_syms _bfd_generic_link_just_syms
	99	#define bfd_plugin_bfd_final_link _bfd_generic_final_link
	100	#define bfd_plugin_bfd_link_split_section _bfd_generic_link_split_section
	101	#define bfd_plugin_bfd_gc_sections bfd_generic_gc_sections
ae17ab41	102	#define bfd_plugin_bfd_lookup_section_flags bfd_generic_lookup_section_flags
ce3c775b NC	103	#define bfd_plugin_bfd_merge_sections bfd_generic_merge_sections
	104	#define bfd_plugin_bfd_is_group_section bfd_generic_is_group_section
	105	#define bfd_plugin_bfd_discard_group bfd_generic_discard_group
	106	#define bfd_plugin_section_already_linked _bfd_generic_section_already_linked
	107	#define bfd_plugin_bfd_define_common_symbol bfd_generic_define_common_symbol
7dba9362	108	#define bfd_plugin_bfd_define_start_stop bfd_generic_define_start_stop
69a630b5	109	#define bfd_plugin_bfd_copy_link_hash_symbol_type _bfd_generic_copy_link_hash_symbol_type
4f3b23b3	110	#define bfd_plugin_bfd_link_check_relocs _bfd_generic_link_check_relocs
ce3c775b NC	111
	112	static enum ld_plugin_status
	113	message (int level ATTRIBUTE_UNUSED,
	114	const char * format, ...)
	115	{
	116	va_list args;
	117	va_start (args, format);
	118	printf ("bfd plugin: ");
	119	vprintf (format, args);
d9b21463	120	putchar ('\n');
ce3c775b NC	121	va_end (args);
	122	return LDPS_OK;
	123	}
	124
	125	/* Register a claim-file handler. */
	126	static ld_plugin_claim_file_handler claim_file;
	127
	128	static enum ld_plugin_status
	129	register_claim_file (ld_plugin_claim_file_handler handler)
	130	{
	131	claim_file = handler;
	132	return LDPS_OK;
	133	}
	134
	135	static enum ld_plugin_status
	136	add_symbols (void * handle,
	137	int nsyms,
	138	const struct ld_plugin_symbol * syms)
	139	{
	140	bfd *abfd = handle;
	141	struct plugin_data_struct *plugin_data =
5bb3703f	142	bfd_alloc (abfd, sizeof (plugin_data_struct));
ce3c775b NC	143
	144	plugin_data->nsyms = nsyms;
	145	plugin_data->syms = syms;
	146
	147	if (nsyms != 0)
	148	abfd->flags \|= HAS_SYMS;
	149
	150	abfd->tdata.plugin_data = plugin_data;
	151	return LDPS_OK;
	152	}
	153
fc579192 NC	154	static const char *plugin_program_name;
	155
	156	void
	157	bfd_plugin_set_program_name (const char *program_name)
	158	{
	159	plugin_program_name = program_name;
	160	}
ce3c775b	161
7d0b9ebc AM	162	int
7d0b9ebc AM	163	bfd_plugin_open_input (bfd ibfd, struct ld_plugin_input_file file)
ce3c775b	164	{
e44f5bef MT	165	bfd *iobfd;
e44f5bef MT	166
7d0b9ebc AM	167	iobfd = ibfd;
	168	if (ibfd->my_archive && !bfd_is_thin_archive (ibfd->my_archive))
	169	iobfd = ibfd->my_archive;
	170	file->name = iobfd->filename;
e44f5bef MT	171
	172	if (!iobfd->iostream && !bfd_open_file (iobfd))
	173	return 0;
	174
7d0b9ebc	175	file->fd = fileno ((FILE *) iobfd->iostream);
e44f5bef	176
7d0b9ebc	177	if (iobfd == ibfd)
e44f5bef MT	178	{
e44f5bef MT	179	struct stat stat_buf;
7d0b9ebc	180	if (fstat (file->fd, &stat_buf))
e44f5bef	181	return 0;
7d0b9ebc AM	182	file->offset = 0;
	183	file->filesize = stat_buf.st_size;
	184	}
	185	else
	186	{
	187	file->offset = ibfd->origin;
	188	file->filesize = arelt_size (ibfd);
e44f5bef	189	}
7d0b9ebc AM	190	return 1;
	191	}
	192
	193	static int
	194	try_claim (bfd *abfd)
	195	{
	196	int claimed = 0;
	197	struct ld_plugin_input_file file;
e44f5bef	198
7d0b9ebc AM	199	if (!bfd_plugin_open_input (abfd, &file))
7d0b9ebc AM	200	return 0;
e44f5bef	201	file.handle = abfd;
7d0b9ebc	202	off_t cur_offset = lseek (file.fd, 0, SEEK_CUR);
e44f5bef	203	claim_file (&file, &claimed);
7d0b9ebc AM	204	lseek (file.fd, cur_offset, SEEK_SET);
7d0b9ebc AM	205	return claimed;
e44f5bef MT	206	}
	207
	208	static int
5ae0078c	209	try_load_plugin (const char pname, bfd abfd, int *has_plugin_p)
e44f5bef MT	210	{
e44f5bef MT	211	void *plugin_handle;
6f4c0a42	212	struct ld_plugin_tv tv[4];
ce3c775b NC	213	int i;
	214	ld_plugin_onload onload;
	215	enum ld_plugin_status status;
	216
5ae0078c L	217	*has_plugin_p = 0;
5ae0078c L	218
ce3c775b NC	219	plugin_handle = dlopen (pname, RTLD_NOW);
	220	if (!plugin_handle)
	221	{
4eca0228	222	_bfd_error_handler ("%s\n", dlerror ());
ce3c775b NC	223	return 0;
	224	}
	225
	226	onload = dlsym (plugin_handle, "onload");
	227	if (!onload)
	228	goto err;
	229
	230	i = 0;
	231	tv[i].tv_tag = LDPT_MESSAGE;
	232	tv[i].tv_u.tv_message = message;
	233
	234	++i;
	235	tv[i].tv_tag = LDPT_REGISTER_CLAIM_FILE_HOOK;
	236	tv[i].tv_u.tv_register_claim_file = register_claim_file;
	237
	238	++i;
	239	tv[i].tv_tag = LDPT_ADD_SYMBOLS;
	240	tv[i].tv_u.tv_add_symbols = add_symbols;
	241
	242	++i;
	243	tv[i].tv_tag = LDPT_NULL;
	244	tv[i].tv_u.tv_val = 0;
	245
	246	status = (*onload)(tv);
	247
	248	if (status != LDPS_OK)
	249	goto err;
	250
5ae0078c L	251	*has_plugin_p = 1;
	252
	253	abfd->plugin_format = bfd_plugin_no;
	254
ce3c775b NC	255	if (!claim_file)
	256	goto err;
	257
e44f5bef MT	258	if (!try_claim (abfd))
	259	goto err;
	260
5ae0078c L	261	abfd->plugin_format = bfd_plugin_yes;
5ae0078c L	262
ce3c775b NC	263	return 1;
	264
	265	err:
ce3c775b NC	266	return 0;
	267	}
	268
5ae0078c L	269	/* There may be plugin libraries in lib/bfd-plugins. */
	270
	271	static int has_plugin = -1;
	272
	273	static const bfd_target (ld_plugin_object_p) (bfd *);
	274
ce3c775b NC	275	static const char *plugin_name;
	276
	277	void
	278	bfd_plugin_set_plugin (const char *p)
	279	{
	280	plugin_name = p;
5ae0078c L	281	has_plugin = p != NULL;
	282	}
	283
	284	/* Return TRUE if a plugin library is used. */
	285
	286	bfd_boolean
	287	bfd_plugin_specified_p (void)
	288	{
	289	return has_plugin > 0;
	290	}
	291
7dc3990e L	292	/* Return TRUE if ABFD can be claimed by linker LTO plugin. */
	293
	294	bfd_boolean
	295	bfd_link_plugin_object_p (bfd *abfd)
	296	{
	297	if (ld_plugin_object_p)
	298	return ld_plugin_object_p (abfd) != NULL;
	299	return FALSE;
	300	}
	301
5ae0078c L	302	extern const bfd_target plugin_vec;
	303
	304	/* Return TRUE if TARGET is a pointer to plugin_vec. */
	305
	306	bfd_boolean
	307	bfd_plugin_target_p (const bfd_target *target)
	308	{
	309	return target == &plugin_vec;
	310	}
	311
	312	/* Register OBJECT_P to be used by bfd_plugin_object_p. */
	313
	314	void
	315	register_ld_plugin_object_p (const bfd_target (object_p) (bfd *))
	316	{
	317	ld_plugin_object_p = object_p;
ce3c775b NC	318	}
	319
	320	static int
e44f5bef	321	load_plugin (bfd *abfd)
ce3c775b NC	322	{
	323	char *plugin_dir;
	324	char *p;
	325	DIR *d;
	326	struct dirent *ent;
	327	int found = 0;
	328
5ae0078c L	329	if (!has_plugin)
	330	return found;
	331
ce3c775b	332	if (plugin_name)
5ae0078c	333	return try_load_plugin (plugin_name, abfd, &has_plugin);
ce3c775b	334
fc579192	335	if (plugin_program_name == NULL)
5ae0078c	336	return found;
ce3c775b NC	337
ce3c775b NC	338	plugin_dir = concat (BINDIR, "/../lib/bfd-plugins", NULL);
fc579192	339	p = make_relative_prefix (plugin_program_name,
ce3c775b NC	340	BINDIR,
	341	plugin_dir);
	342	free (plugin_dir);
	343	plugin_dir = NULL;
	344
	345	d = opendir (p);
	346	if (!d)
	347	goto out;
	348
	349	while ((ent = readdir (d)))
	350	{
	351	char *full_name;
c41ba836	352	struct stat s;
5ae0078c	353	int valid_plugin;
ce3c775b NC	354
ce3c775b NC	355	full_name = concat (p, "/", ent->d_name, NULL);
c41ba836	356	if (stat(full_name, &s) == 0 && S_ISREG (s.st_mode))
5ae0078c L	357	found = try_load_plugin (full_name, abfd, &valid_plugin);
	358	if (has_plugin <= 0)
	359	has_plugin = valid_plugin;
ce3c775b NC	360	free (full_name);
	361	if (found)
	362	break;
	363	}
	364
	365	out:
	366	free (p);
	367	if (d)
	368	closedir (d);
	369
	370	return found;
	371	}
	372
	373
	374	static const bfd_target *
	375	bfd_plugin_object_p (bfd *abfd)
	376	{
5ae0078c L	377	if (ld_plugin_object_p)
	378	return ld_plugin_object_p (abfd);
	379
49f30d83	380	if (abfd->plugin_format == bfd_plugin_unknown && !load_plugin (abfd))
ce3c775b NC	381	return NULL;
ce3c775b NC	382
5ae0078c	383	return abfd->plugin_format == bfd_plugin_yes ? abfd->xvec : NULL;
ce3c775b NC	384	}
	385
	386	/* Copy any private info we understand from the input bfd
	387	to the output bfd. */
	388
	389	static bfd_boolean
	390	bfd_plugin_bfd_copy_private_bfd_data (bfd *ibfd ATTRIBUTE_UNUSED,
	391	bfd *obfd ATTRIBUTE_UNUSED)
	392	{
	393	BFD_ASSERT (0);
	394	return TRUE;
	395	}
	396
	397	/* Copy any private info we understand from the input section
	398	to the output section. */
	399
	400	static bfd_boolean
	401	bfd_plugin_bfd_copy_private_section_data (bfd *ibfd ATTRIBUTE_UNUSED,
	402	asection *isection ATTRIBUTE_UNUSED,
	403	bfd *obfd ATTRIBUTE_UNUSED,
	404	asection *osection ATTRIBUTE_UNUSED)
	405	{
	406	BFD_ASSERT (0);
	407	return TRUE;
	408	}
	409
	410	/* Copy any private info we understand from the input symbol
	411	to the output symbol. */
	412
	413	static bfd_boolean
	414	bfd_plugin_bfd_copy_private_symbol_data (bfd *ibfd ATTRIBUTE_UNUSED,
	415	asymbol *isymbol ATTRIBUTE_UNUSED,
	416	bfd *obfd ATTRIBUTE_UNUSED,
	417	asymbol *osymbol ATTRIBUTE_UNUSED)
	418	{
	419	BFD_ASSERT (0);
	420	return TRUE;
	421	}
	422
	423	static bfd_boolean
	424	bfd_plugin_bfd_print_private_bfd_data (bfd *abfd ATTRIBUTE_UNUSED, PTR ptr ATTRIBUTE_UNUSED)
	425	{
	426	BFD_ASSERT (0);
	427	return TRUE;
	428	}
	429
	430	static char *
	431	bfd_plugin_core_file_failing_command (bfd *abfd ATTRIBUTE_UNUSED)
	432	{
	433	BFD_ASSERT (0);
	434	return NULL;
	435	}
	436
	437	static int
	438	bfd_plugin_core_file_failing_signal (bfd *abfd ATTRIBUTE_UNUSED)
261b8d08 PA	439	{
	440	BFD_ASSERT (0);
	441	return 0;
	442	}
	443
	444	static int
	445	bfd_plugin_core_file_pid (bfd *abfd ATTRIBUTE_UNUSED)
ce3c775b NC	446	{
	447	BFD_ASSERT (0);
	448	return 0;
	449	}
	450
	451	static long
	452	bfd_plugin_get_symtab_upper_bound (bfd *abfd)
	453	{
	454	struct plugin_data_struct *plugin_data = abfd->tdata.plugin_data;
	455	long nsyms = plugin_data->nsyms;
	456
	457	BFD_ASSERT (nsyms >= 0);
	458
	459	return ((nsyms + 1) * sizeof (asymbol *));
	460	}
	461
	462	static flagword
	463	convert_flags (const struct ld_plugin_symbol *sym)
	464	{
	465	switch (sym->def)
68ffbac6	466	{
ce3c775b NC	467	case LDPK_DEF:
	468	case LDPK_COMMON:
	469	case LDPK_UNDEF:
	470	return BSF_GLOBAL;
	471
	472	case LDPK_WEAKUNDEF:
	473	case LDPK_WEAKDEF:
	474	return BSF_GLOBAL \| BSF_WEAK;
	475
	476	default:
	477	BFD_ASSERT (0);
	478	return 0;
	479	}
	480	}
	481
	482	static long
	483	bfd_plugin_canonicalize_symtab (bfd *abfd,
	484	asymbol **alocation)
	485	{
	486	struct plugin_data_struct *plugin_data = abfd->tdata.plugin_data;
	487	long nsyms = plugin_data->nsyms;
	488	const struct ld_plugin_symbol *syms = plugin_data->syms;
	489	static asection fake_section;
	490	static asection fake_common_section;
	491	int i;
	492
	493	fake_section.name = ".text";
	494	fake_common_section.flags = SEC_IS_COMMON;
	495
	496	for (i = 0; i < nsyms; i++)
	497	{
68ffbac6	498	asymbol *s = bfd_alloc (abfd, sizeof (asymbol));
ce3c775b NC	499
	500	BFD_ASSERT (s);
	501	alocation[i] = s;
	502
	503	s->the_bfd = abfd;
	504	s->name = syms[i].name;
	505	s->value = 0;
	506	s->flags = convert_flags (&syms[i]);
	507	switch (syms[i].def)
	508	{
	509	case LDPK_COMMON:
	510	s->section = &fake_common_section;
	511	break;
	512	case LDPK_UNDEF:
	513	case LDPK_WEAKUNDEF:
	514	s->section = bfd_und_section_ptr;
	515	break;
	516	case LDPK_DEF:
	517	case LDPK_WEAKDEF:
	518	s->section = &fake_section;
	519	break;
	520	default:
	521	BFD_ASSERT (0);
	522	}
	523
	524	s->udata.p = (void *) &syms[i];
	525	}
	526
	527	return nsyms;
	528	}
	529
	530	static void
	531	bfd_plugin_print_symbol (bfd *abfd ATTRIBUTE_UNUSED,
	532	PTR afile ATTRIBUTE_UNUSED,
	533	asymbol *symbol ATTRIBUTE_UNUSED,
	534	bfd_print_symbol_type how ATTRIBUTE_UNUSED)
	535	{
	536	BFD_ASSERT (0);
	537	}
	538
	539	static void
	540	bfd_plugin_get_symbol_info (bfd *abfd ATTRIBUTE_UNUSED,
	541	asymbol *symbol,
	542	symbol_info *ret)
	543	{
	544	bfd_symbol_info (symbol, ret);
	545	}
	546
	547	/* Make an empty symbol. */
	548
	549	static asymbol *
	550	bfd_plugin_make_empty_symbol (bfd *abfd)
	551	{
d3ce72d0 NC	552	asymbol *new_symbol = bfd_zalloc (abfd, sizeof (asymbol));
	553	if (new_symbol == NULL)
	554	return new_symbol;
	555	new_symbol->the_bfd = abfd;
	556	return new_symbol;
ce3c775b NC	557	}
	558
	559	static int
	560	bfd_plugin_sizeof_headers (bfd *a ATTRIBUTE_UNUSED,
	561	struct bfd_link_info *info ATTRIBUTE_UNUSED)
	562	{
	563	BFD_ASSERT (0);
	564	return 0;
	565	}
	566
ce3c775b NC	567	const bfd_target plugin_vec =
	568	{
	569	"plugin", /* Name. */
	570	bfd_target_unknown_flavour,
	571	BFD_ENDIAN_LITTLE, /* Target byte order. */
	572	BFD_ENDIAN_LITTLE, /* Target headers byte order. */
	573	(HAS_RELOC \| EXEC_P \| /* Object flags. */
	574	HAS_LINENO \| HAS_DEBUG \|
	575	HAS_SYMS \| HAS_LOCALS \| DYNAMIC \| WP_TEXT \| D_PAGED),
	576	(SEC_CODE \| SEC_DATA \| SEC_ROM \| SEC_HAS_CONTENTS
	577	\| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC), /* Section flags. */
	578	0, /* symbol_leading_char. */
	579	'/', /* ar_pad_char. */
	580	15, /* ar_max_namelen. */
64bfc258	581	255, /* match priority. */
ce3c775b NC	582
	583	bfd_getl64, bfd_getl_signed_64, bfd_putl64,
	584	bfd_getl32, bfd_getl_signed_32, bfd_putl32,
	585	bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
	586	bfd_getl64, bfd_getl_signed_64, bfd_putl64,
	587	bfd_getl32, bfd_getl_signed_32, bfd_putl32,
	588	bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
	589
	590	{ /* bfd_check_format. */
	591	_bfd_dummy_target,
	592	bfd_plugin_object_p,
	593	bfd_generic_archive_p,
	594	_bfd_dummy_target
	595	},
	596	{ /* bfd_set_format. */
	597	bfd_false,
4846b70a	598	bfd_false,
ce3c775b NC	599	_bfd_generic_mkarchive,
	600	bfd_false,
	601	},
	602	{ /* bfd_write_contents. */
	603	bfd_false,
	604	bfd_false,
	605	_bfd_write_archive_contents,
	606	bfd_false,
	607	},
	608
	609	BFD_JUMP_TABLE_GENERIC (bfd_plugin),
	610	BFD_JUMP_TABLE_COPY (bfd_plugin),
	611	BFD_JUMP_TABLE_CORE (bfd_plugin),
e6cc316a L	612	#ifdef USE_64_BIT_ARCHIVE
	613	BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_64_bit),
	614	#else
ce3c775b	615	BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
e6cc316a	616	#endif
ce3c775b NC	617	BFD_JUMP_TABLE_SYMBOLS (bfd_plugin),
	618	BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
	619	BFD_JUMP_TABLE_WRITE (bfd_plugin),
	620	BFD_JUMP_TABLE_LINK (bfd_plugin),
	621	BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
	622
	623	NULL,
	624
	625	NULL /* backend_data. */
	626	};
98950613	627	#endif /* BFD_SUPPORTS_PLUGIN */