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