bfd/plugin.c

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