bfd/pef.c

   1 /* PEF support for BFD.
   2    Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
   3    2009, 2011  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 "safe-ctype.h"
  24 #include "pef.h"
  25 #include "pef-traceback.h"
  26 #include "bfd.h"
  27 #include "libbfd.h"
  28 #include "libiberty.h"
  29
  30 #ifndef BFD_IO_FUNCS
  31 #define BFD_IO_FUNCS 0
  32 #endif
  33
  34 #define bfd_pef_close_and_cleanup                   _bfd_generic_close_and_cleanup
  35 #define bfd_pef_bfd_free_cached_info                _bfd_generic_bfd_free_cached_info
  36 #define bfd_pef_new_section_hook                    _bfd_generic_new_section_hook
  37 #define bfd_pef_bfd_is_local_label_name             bfd_generic_is_local_label_name
  38 #define bfd_pef_bfd_is_target_special_symbol ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
  39 #define bfd_pef_get_lineno                          _bfd_nosymbols_get_lineno
  40 #define bfd_pef_find_nearest_line                   _bfd_nosymbols_find_nearest_line
  41 #define bfd_pef_find_inliner_info                   _bfd_nosymbols_find_inliner_info
  42 #define bfd_pef_bfd_make_debug_symbol               _bfd_nosymbols_bfd_make_debug_symbol
  43 #define bfd_pef_read_minisymbols                    _bfd_generic_read_minisymbols
  44 #define bfd_pef_minisymbol_to_symbol                _bfd_generic_minisymbol_to_symbol
  45 #define bfd_pef_set_arch_mach                       _bfd_generic_set_arch_mach
  46 #define bfd_pef_get_section_contents                _bfd_generic_get_section_contents
  47 #define bfd_pef_set_section_contents                _bfd_generic_set_section_contents
  48 #define bfd_pef_bfd_get_relocated_section_contents  bfd_generic_get_relocated_section_contents
  49 #define bfd_pef_bfd_relax_section                   bfd_generic_relax_section
  50 #define bfd_pef_bfd_gc_sections                     bfd_generic_gc_sections
  51 #define bfd_pef_bfd_lookup_section_flags            bfd_generic_lookup_section_flags
  52 #define bfd_pef_bfd_merge_sections                  bfd_generic_merge_sections
  53 #define bfd_pef_bfd_is_group_section                bfd_generic_is_group_section
  54 #define bfd_pef_bfd_discard_group                   bfd_generic_discard_group
  55 #define bfd_pef_section_already_linked              _bfd_generic_section_already_linked
  56 #define bfd_pef_bfd_define_common_symbol            bfd_generic_define_common_symbol
  57 #define bfd_pef_bfd_link_hash_table_create          _bfd_generic_link_hash_table_create
  58 #define bfd_pef_bfd_link_hash_table_free            _bfd_generic_link_hash_table_free
  59 #define bfd_pef_bfd_link_add_symbols                _bfd_generic_link_add_symbols
  60 #define bfd_pef_bfd_link_just_syms                  _bfd_generic_link_just_syms
  61 #define bfd_pef_bfd_copy_link_hash_symbol_type \
  62   _bfd_generic_copy_link_hash_symbol_type
  63 #define bfd_pef_bfd_final_link                      _bfd_generic_final_link
  64 #define bfd_pef_bfd_link_split_section              _bfd_generic_link_split_section
  65 #define bfd_pef_get_section_contents_in_window      _bfd_generic_get_section_contents_in_window
  66
  67 static int
  68 bfd_pef_parse_traceback_table (bfd *abfd,
  69                                asection *section,
  70                                unsigned char *buf,
  71                                size_t len,
  72                                size_t pos,
  73                                asymbol *sym,
  74                                FILE *file)
  75 {
  76   struct traceback_table table;
  77   size_t offset;
  78   const char *s;
  79   asymbol tmpsymbol;
  80
  81   if (sym == NULL)
  82     sym = & tmpsymbol;
  83
  84   sym->name = NULL;
  85   sym->value = 0;
  86   sym->the_bfd = abfd;
  87   sym->section = section;
  88   sym->flags = 0;
  89   sym->udata.i = 0;
  90
  91   /* memcpy is fine since all fields are unsigned char.  */
  92   if ((pos + 8) > len)
  93     return -1;
  94   memcpy (&table, buf + pos, 8);
  95
  96   /* Calling code relies on returned symbols having a name and
  97      correct offset.  */
  98   if ((table.lang != TB_C) && (table.lang != TB_CPLUSPLUS))
  99     return -1;
 100
 101   if (! (table.flags2 & TB_NAME_PRESENT))
 102     return -1;
 103
 104   if (! (table.flags1 & TB_HAS_TBOFF))
 105     return -1;
 106
 107   offset = 8;
 108
 109   if ((table.flags5 & TB_FLOATPARAMS) || (table.fixedparams))
 110     offset += 4;
 111
 112   if (table.flags1 & TB_HAS_TBOFF)
 113     {
 114       struct traceback_table_tboff off;
 115
 116       if ((pos + offset + 4) > len)
 117         return -1;
 118       off.tb_offset = bfd_getb32 (buf + pos + offset);
 119       offset += 4;
 120
 121       /* Need to subtract 4 because the offset includes the 0x0L
 122          preceding the table.  */
 123       if (file != NULL)
 124         fprintf (file, " [offset = 0x%lx]", off.tb_offset);
 125
 126       if ((file == NULL) && ((off.tb_offset + 4) > (pos + offset)))
 127         return -1;
 128
 129       sym->value = pos - off.tb_offset - 4;
 130     }
 131
 132   if (table.flags2 & TB_INT_HNDL)
 133     offset += 4;
 134
 135   if (table.flags1 & TB_HAS_CTL)
 136     {
 137       struct traceback_table_anchors anchors;
 138
 139       if ((pos + offset + 4) > len)
 140         return -1;
 141       anchors.ctl_info = bfd_getb32 (buf + pos + offset);
 142       offset += 4;
 143
 144       if (anchors.ctl_info > 1024)
 145         return -1;
 146
 147       offset += anchors.ctl_info * 4;
 148     }
 149
 150   if (table.flags2 & TB_NAME_PRESENT)
 151     {
 152       struct traceback_table_routine name;
 153       char *namebuf;
 154
 155       if ((pos + offset + 2) > len)
 156         return -1;
 157       name.name_len = bfd_getb16 (buf + pos + offset);
 158       offset += 2;
 159
 160       if (name.name_len > 4096)
 161         return -1;
 162
 163       if ((pos + offset + name.name_len) > len)
 164         return -1;
 165
 166       namebuf = bfd_alloc (abfd, name.name_len + 1);
 167       if (namebuf == NULL)
 168         return -1;
 169
 170       memcpy (namebuf, buf + pos + offset, name.name_len);
 171       namebuf[name.name_len] = '\0';
 172
 173       /* Strip leading period inserted by compiler.  */
 174       if (namebuf[0] == '.')
 175         memmove (namebuf, namebuf + 1, name.name_len + 1);
 176
 177       sym->name = namebuf;
 178
 179       for (s = sym->name; (*s != '\0'); s++)
 180         if (! ISPRINT (*s))
 181           return -1;
 182
 183       offset += name.name_len;
 184     }
 185
 186   if (table.flags2 & TB_USES_ALLOCA)
 187     offset += 4;
 188
 189   if (table.flags4 & TB_HAS_VEC_INFO)
 190     offset += 4;
 191
 192   if (file != NULL)
 193     fprintf (file, " [length = 0x%lx]", (unsigned long) offset);
 194
 195   return offset;
 196 }
 197
 198 static void
 199 bfd_pef_print_symbol (bfd *abfd,
 200                       void * afile,
 201                       asymbol *symbol,
 202                       bfd_print_symbol_type how)
 203 {
 204   FILE *file = (FILE *) afile;
 205
 206   switch (how)
 207     {
 208     case bfd_print_symbol_name:
 209       fprintf (file, "%s", symbol->name);
 210       break;
 211     default:
 212       bfd_print_symbol_vandf (abfd, (void *) file, symbol);
 213       fprintf (file, " %-5s %s", symbol->section->name, symbol->name);
 214       if (CONST_STRNEQ (symbol->name, "__traceback_"))
 215         {
 216           unsigned char *buf = alloca (symbol->udata.i);
 217           size_t offset = symbol->value + 4;
 218           size_t len = symbol->udata.i;
 219           int ret;
 220
 221           bfd_get_section_contents (abfd, symbol->section, buf, offset, len);
 222           ret = bfd_pef_parse_traceback_table (abfd, symbol->section, buf,
 223                                                len, 0, NULL, file);
 224           if (ret < 0)
 225             fprintf (file, " [ERROR]");
 226         }
 227     }
 228 }
 229
 230 static void
 231 bfd_pef_convert_architecture (unsigned long architecture,
 232                               enum bfd_architecture *type,
 233                               unsigned long *subtype)
 234 {
 235   const unsigned long ARCH_POWERPC = 0x70777063; /* 'pwpc'.  */
 236   const unsigned long ARCH_M68K = 0x6d36386b; /* 'm68k'.  */
 237
 238   *subtype = bfd_arch_unknown;
 239   *type = bfd_arch_unknown;
 240
 241   if (architecture == ARCH_POWERPC)
 242     *type = bfd_arch_powerpc;
 243   else if (architecture == ARCH_M68K)
 244     *type = bfd_arch_m68k;
 245 }
 246
 247 static bfd_boolean
 248 bfd_pef_mkobject (bfd *abfd ATTRIBUTE_UNUSED)
 249 {
 250   return TRUE;
 251 }
 252
 253 static const char *bfd_pef_section_name (bfd_pef_section *section)
 254 {
 255   switch (section->section_kind)
 256     {
 257     case BFD_PEF_SECTION_CODE: return "code";
 258     case BFD_PEF_SECTION_UNPACKED_DATA: return "unpacked-data";
 259     case BFD_PEF_SECTION_PACKED_DATA: return "packed-data";
 260     case BFD_PEF_SECTION_CONSTANT: return "constant";
 261     case BFD_PEF_SECTION_LOADER: return "loader";
 262     case BFD_PEF_SECTION_DEBUG: return "debug";
 263     case BFD_PEF_SECTION_EXEC_DATA: return "exec-data";
 264     case BFD_PEF_SECTION_EXCEPTION: return "exception";
 265     case BFD_PEF_SECTION_TRACEBACK: return "traceback";
 266     default: return "unknown";
 267     }
 268 }
 269
 270 static unsigned long bfd_pef_section_flags (bfd_pef_section *section)
 271 {
 272   switch (section->section_kind)
 273     {
 274     case BFD_PEF_SECTION_CODE:
 275       return SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC | SEC_CODE;
 276     case BFD_PEF_SECTION_UNPACKED_DATA:
 277     case BFD_PEF_SECTION_PACKED_DATA:
 278     case BFD_PEF_SECTION_CONSTANT:
 279     case BFD_PEF_SECTION_LOADER:
 280     case BFD_PEF_SECTION_DEBUG:
 281     case BFD_PEF_SECTION_EXEC_DATA:
 282     case BFD_PEF_SECTION_EXCEPTION:
 283     case BFD_PEF_SECTION_TRACEBACK:
 284     default:
 285       return SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC;
 286     }
 287 }
 288
 289 static asection *
 290 bfd_pef_make_bfd_section (bfd *abfd, bfd_pef_section *section)
 291 {
 292   asection *bfdsec;
 293   const char *name = bfd_pef_section_name (section);
 294
 295   bfdsec = bfd_make_section_anyway (abfd, name);
 296   if (bfdsec == NULL)
 297     return NULL;
 298
 299   bfdsec->vma = section->default_address + section->container_offset;
 300   bfdsec->lma = section->default_address + section->container_offset;
 301   bfdsec->size = section->container_length;
 302   bfdsec->filepos = section->container_offset;
 303   bfdsec->alignment_power = section->alignment;
 304
 305   bfdsec->flags = bfd_pef_section_flags (section);
 306
 307   return bfdsec;
 308 }
 309
 310 int
 311 bfd_pef_parse_loader_header (bfd *abfd ATTRIBUTE_UNUSED,
 312                              unsigned char *buf,
 313                              size_t len,
 314                              bfd_pef_loader_header *header)
 315 {
 316   BFD_ASSERT (len == 56);
 317
 318   header->main_section = bfd_getb32 (buf);
 319   header->main_offset = bfd_getb32 (buf + 4);
 320   header->init_section = bfd_getb32 (buf + 8);
 321   header->init_offset = bfd_getb32 (buf + 12);
 322   header->term_section = bfd_getb32 (buf + 16);
 323   header->term_offset = bfd_getb32 (buf + 20);
 324   header->imported_library_count = bfd_getb32 (buf + 24);
 325   header->total_imported_symbol_count = bfd_getb32 (buf + 28);
 326   header->reloc_section_count = bfd_getb32 (buf + 32);
 327   header->reloc_instr_offset = bfd_getb32 (buf + 36);
 328   header->loader_strings_offset = bfd_getb32 (buf + 40);
 329   header->export_hash_offset = bfd_getb32 (buf + 44);
 330   header->export_hash_table_power = bfd_getb32 (buf + 48);
 331   header->exported_symbol_count = bfd_getb32 (buf + 52);
 332
 333   return 0;
 334 }
 335
 336 int
 337 bfd_pef_parse_imported_library (bfd *abfd ATTRIBUTE_UNUSED,
 338                                 unsigned char *buf,
 339                                 size_t len,
 340                                 bfd_pef_imported_library *header)
 341 {
 342   BFD_ASSERT (len == 24);
 343
 344   header->name_offset = bfd_getb32 (buf);
 345   header->old_implementation_version = bfd_getb32 (buf + 4);
 346   header->current_version = bfd_getb32 (buf + 8);
 347   header->imported_symbol_count = bfd_getb32 (buf + 12);
 348   header->first_imported_symbol = bfd_getb32 (buf + 16);
 349   header->options = buf[20];
 350   header->reserved_a = buf[21];
 351   header->reserved_b = bfd_getb16 (buf + 22);
 352
 353   return 0;
 354 }
 355
 356 int
 357 bfd_pef_parse_imported_symbol (bfd *abfd ATTRIBUTE_UNUSED,
 358                                unsigned char *buf,
 359                                size_t len,
 360                                bfd_pef_imported_symbol *symbol)
 361 {
 362   unsigned long value;
 363
 364   BFD_ASSERT (len == 4);
 365
 366   value = bfd_getb32 (buf);
 367   symbol->symbol_class = value >> 24;
 368   symbol->name = value & 0x00ffffff;
 369
 370   return 0;
 371 }
 372
 373 int
 374 bfd_pef_scan_section (bfd *abfd, bfd_pef_section *section)
 375 {
 376   unsigned char buf[28];
 377
 378   bfd_seek (abfd, section->header_offset, SEEK_SET);
 379   if (bfd_bread ((void *) buf, 28, abfd) != 28)
 380     return -1;
 381
 382   section->name_offset = bfd_h_get_32 (abfd, buf);
 383   section->default_address = bfd_h_get_32 (abfd, buf + 4);
 384   section->total_length = bfd_h_get_32 (abfd, buf + 8);
 385   section->unpacked_length = bfd_h_get_32 (abfd, buf + 12);
 386   section->container_length = bfd_h_get_32 (abfd, buf + 16);
 387   section->container_offset = bfd_h_get_32 (abfd, buf + 20);
 388   section->section_kind = buf[24];
 389   section->share_kind = buf[25];
 390   section->alignment = buf[26];
 391   section->reserved = buf[27];
 392
 393   section->bfd_section = bfd_pef_make_bfd_section (abfd, section);
 394   if (section->bfd_section == NULL)
 395     return -1;
 396
 397   return 0;
 398 }
 399
 400 void
 401 bfd_pef_print_loader_header (bfd *abfd ATTRIBUTE_UNUSED,
 402                              bfd_pef_loader_header *header,
 403                              FILE *file)
 404 {
 405   fprintf (file, "main_section: %ld\n", header->main_section);
 406   fprintf (file, "main_offset: %lu\n", header->main_offset);
 407   fprintf (file, "init_section: %ld\n", header->init_section);
 408   fprintf (file, "init_offset: %lu\n", header->init_offset);
 409   fprintf (file, "term_section: %ld\n", header->term_section);
 410   fprintf (file, "term_offset: %lu\n", header->term_offset);
 411   fprintf (file, "imported_library_count: %lu\n",
 412            header->imported_library_count);
 413   fprintf (file, "total_imported_symbol_count: %lu\n",
 414            header->total_imported_symbol_count);
 415   fprintf (file, "reloc_section_count: %lu\n", header->reloc_section_count);
 416   fprintf (file, "reloc_instr_offset: %lu\n", header->reloc_instr_offset);
 417   fprintf (file, "loader_strings_offset: %lu\n",
 418            header->loader_strings_offset);
 419   fprintf (file, "export_hash_offset: %lu\n", header->export_hash_offset);
 420   fprintf (file, "export_hash_table_power: %lu\n",
 421            header->export_hash_table_power);
 422   fprintf (file, "exported_symbol_count: %lu\n",
 423            header->exported_symbol_count);
 424 }
 425
 426 int
 427 bfd_pef_print_loader_section (bfd *abfd, FILE *file)
 428 {
 429   bfd_pef_loader_header header;
 430   asection *loadersec = NULL;
 431   unsigned char *loaderbuf = NULL;
 432   size_t loaderlen = 0;
 433
 434   loadersec = bfd_get_section_by_name (abfd, "loader");
 435   if (loadersec == NULL)
 436     return -1;
 437
 438   loaderlen = loadersec->size;
 439   loaderbuf = bfd_malloc (loaderlen);
 440
 441   if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0
 442       || bfd_bread ((void *) loaderbuf, loaderlen, abfd) != loaderlen
 443       || loaderlen < 56
 444       || bfd_pef_parse_loader_header (abfd, loaderbuf, 56, &header) < 0)
 445     {
 446       free (loaderbuf);
 447       return -1;
 448     }
 449
 450   bfd_pef_print_loader_header (abfd, &header, file);
 451   return 0;
 452 }
 453
 454 int
 455 bfd_pef_scan_start_address (bfd *abfd)
 456 {
 457   bfd_pef_loader_header header;
 458   asection *section;
 459
 460   asection *loadersec = NULL;
 461   unsigned char *loaderbuf = NULL;
 462   size_t loaderlen = 0;
 463   int ret;
 464
 465   loadersec = bfd_get_section_by_name (abfd, "loader");
 466   if (loadersec == NULL)
 467     goto end;
 468
 469   loaderlen = loadersec->size;
 470   loaderbuf = bfd_malloc (loaderlen);
 471   if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0)
 472     goto error;
 473   if (bfd_bread ((void *) loaderbuf, loaderlen, abfd) != loaderlen)
 474     goto error;
 475
 476   if (loaderlen < 56)
 477     goto error;
 478   ret = bfd_pef_parse_loader_header (abfd, loaderbuf, 56, &header);
 479   if (ret < 0)
 480     goto error;
 481
 482   if (header.main_section < 0)
 483     goto end;
 484
 485   for (section = abfd->sections; section != NULL; section = section->next)
 486     if ((section->index + 1) == header.main_section)
 487       break;
 488
 489   if (section == NULL)
 490     goto error;
 491
 492   abfd->start_address = section->vma + header.main_offset;
 493
 494  end:
 495   if (loaderbuf != NULL)
 496     free (loaderbuf);
 497   return 0;
 498
 499  error:
 500   if (loaderbuf != NULL)
 501     free (loaderbuf);
 502   return -1;
 503 }
 504
 505 int
 506 bfd_pef_scan (abfd, header, mdata)
 507      bfd *abfd;
 508      bfd_pef_header *header;
 509      bfd_pef_data_struct *mdata;
 510 {
 511   unsigned int i;
 512   enum bfd_architecture cputype;
 513   unsigned long cpusubtype;
 514
 515   mdata->header = *header;
 516
 517   bfd_pef_convert_architecture (header->architecture, &cputype, &cpusubtype);
 518   if (cputype == bfd_arch_unknown)
 519     {
 520       (*_bfd_error_handler) (_("bfd_pef_scan: unknown architecture 0x%lx"),
 521                                header->architecture);
 522       return -1;
 523     }
 524   bfd_set_arch_mach (abfd, cputype, cpusubtype);
 525
 526   mdata->header = *header;
 527
 528   abfd->flags = (abfd->xvec->object_flags
 529                  | (abfd->flags & (BFD_IN_MEMORY | BFD_IO_FUNCS)));
 530
 531   if (header->section_count != 0)
 532     {
 533       mdata->sections = bfd_alloc (abfd, header->section_count * sizeof (bfd_pef_section));
 534
 535       if (mdata->sections == NULL)
 536         return -1;
 537
 538       for (i = 0; i < header->section_count; i++)
 539         {
 540           bfd_pef_section *cur = &mdata->sections[i];
 541           cur->header_offset = 40 + (i * 28);
 542           if (bfd_pef_scan_section (abfd, cur) < 0)
 543             return -1;
 544         }
 545     }
 546
 547   if (bfd_pef_scan_start_address (abfd) < 0)
 548     return -1;
 549
 550   abfd->tdata.pef_data = mdata;
 551
 552   return 0;
 553 }
 554
 555 static int
 556 bfd_pef_read_header (bfd *abfd, bfd_pef_header *header)
 557 {
 558   unsigned char buf[40];
 559
 560   bfd_seek (abfd, 0, SEEK_SET);
 561
 562   if (bfd_bread ((void *) buf, 40, abfd) != 40)
 563     return -1;
 564
 565   header->tag1 = bfd_getb32 (buf);
 566   header->tag2 = bfd_getb32 (buf + 4);
 567   header->architecture = bfd_getb32 (buf + 8);
 568   header->format_version = bfd_getb32 (buf + 12);
 569   header->timestamp = bfd_getb32 (buf + 16);
 570   header->old_definition_version = bfd_getb32 (buf + 20);
 571   header->old_implementation_version = bfd_getb32 (buf + 24);
 572   header->current_version = bfd_getb32 (buf + 28);
 573   header->section_count = bfd_getb32 (buf + 32) + 1;
 574   header->instantiated_section_count = bfd_getb32 (buf + 34);
 575   header->reserved = bfd_getb32 (buf + 36);
 576
 577   return 0;
 578 }
 579
 580 static const bfd_target *
 581 bfd_pef_object_p (bfd *abfd)
 582 {
 583   struct bfd_preserve preserve;
 584   bfd_pef_header header;
 585
 586   preserve.marker = NULL;
 587   if (bfd_pef_read_header (abfd, &header) != 0)
 588     goto wrong;
 589
 590   if (header.tag1 != BFD_PEF_TAG1 || header.tag2 != BFD_PEF_TAG2)
 591     goto wrong;
 592
 593   preserve.marker = bfd_zalloc (abfd, sizeof (bfd_pef_data_struct));
 594   if (preserve.marker == NULL
 595       || !bfd_preserve_save (abfd, &preserve))
 596     goto fail;
 597
 598   if (bfd_pef_scan (abfd, &header,
 599                     (bfd_pef_data_struct *) preserve.marker) != 0)
 600     goto wrong;
 601
 602   bfd_preserve_finish (abfd, &preserve);
 603   return abfd->xvec;
 604
 605  wrong:
 606   bfd_set_error (bfd_error_wrong_format);
 607
 608  fail:
 609   if (preserve.marker != NULL)
 610     bfd_preserve_restore (abfd, &preserve);
 611   return NULL;
 612 }
 613
 614 static int
 615 bfd_pef_parse_traceback_tables (bfd *abfd,
 616                                 asection *sec,
 617                                 unsigned char *buf,
 618                                 size_t len,
 619                                 long *nsym,
 620                                 asymbol **csym)
 621 {
 622   char *name;
 623
 624   asymbol function;
 625   asymbol traceback;
 626
 627   const char *const tbprefix = "__traceback_";
 628   size_t tbnamelen;
 629
 630   size_t pos = 0;
 631   unsigned long count = 0;
 632   int ret;
 633
 634   for (;;)
 635     {
 636       /* We're reading symbols two at a time.  */
 637       if (csym && ((csym[count] == NULL) || (csym[count + 1] == NULL)))
 638         break;
 639
 640       pos += 3;
 641       pos -= (pos % 4);
 642
 643       while ((pos + 4) <= len)
 644         {
 645           if (bfd_getb32 (buf + pos) == 0)
 646             break;
 647           pos += 4;
 648         }
 649
 650       if ((pos + 4) > len)
 651         break;
 652
 653       ret = bfd_pef_parse_traceback_table (abfd, sec, buf, len, pos + 4,
 654                                            &function, 0);
 655       if (ret < 0)
 656         {
 657           /* Skip over 0x0L to advance to next possible traceback table.  */
 658           pos += 4;
 659           continue;
 660         }
 661
 662       BFD_ASSERT (function.name != NULL);
 663
 664       /* Don't bother to compute the name if we are just
 665          counting symbols.  */
 666       if (csym)
 667         {
 668           tbnamelen = strlen (tbprefix) + strlen (function.name);
 669           name = bfd_alloc (abfd, tbnamelen + 1);
 670           if (name == NULL)
 671             {
 672               bfd_release (abfd, (void *) function.name);
 673               function.name = NULL;
 674               break;
 675             }
 676           snprintf (name, tbnamelen + 1, "%s%s", tbprefix, function.name);
 677           traceback.name = name;
 678           traceback.value = pos;
 679           traceback.the_bfd = abfd;
 680           traceback.section = sec;
 681           traceback.flags = 0;
 682           traceback.udata.i = ret;
 683
 684           *(csym[count]) = function;
 685           *(csym[count + 1]) = traceback;
 686         }
 687
 688       pos += ret;
 689       count += 2;
 690     }
 691
 692   *nsym = count;
 693   return 0;
 694 }
 695
 696 static int
 697 bfd_pef_parse_function_stub (bfd *abfd ATTRIBUTE_UNUSED,
 698                              unsigned char *buf,
 699                              size_t len,
 700                              unsigned long *offset)
 701 {
 702   BFD_ASSERT (len == 24);
 703
 704   if ((bfd_getb32 (buf) & 0xffff0000) != 0x81820000)
 705     return -1;
 706   if (bfd_getb32 (buf + 4) != 0x90410014)
 707     return -1;
 708   if (bfd_getb32 (buf + 8) != 0x800c0000)
 709     return -1;
 710   if (bfd_getb32 (buf + 12) != 0x804c0004)
 711     return -1;
 712   if (bfd_getb32 (buf + 16) != 0x7c0903a6)
 713     return -1;
 714   if (bfd_getb32 (buf + 20) != 0x4e800420)
 715     return -1;
 716
 717   if (offset != NULL)
 718     *offset = (bfd_getb32 (buf) & 0x0000ffff) / 4;
 719
 720   return 0;
 721 }
 722
 723 static int
 724 bfd_pef_parse_function_stubs (bfd *abfd,
 725                               asection *codesec,
 726                               unsigned char *codebuf,
 727                               size_t codelen,
 728                               unsigned char *loaderbuf,
 729                               size_t loaderlen,
 730                               unsigned long *nsym,
 731                               asymbol **csym)
 732 {
 733   const char *const sprefix = "__stub_";
 734   size_t codepos = 0;
 735   unsigned long count = 0;
 736   bfd_pef_loader_header header;
 737   bfd_pef_imported_library *libraries = NULL;
 738   bfd_pef_imported_symbol *imports = NULL;
 739   unsigned long i;
 740   int ret;
 741
 742   if (loaderlen < 56)
 743     goto error;
 744
 745   ret = bfd_pef_parse_loader_header (abfd, loaderbuf, 56, &header);
 746   if (ret < 0)
 747     goto error;
 748
 749   libraries = bfd_malloc
 750     (header.imported_library_count * sizeof (bfd_pef_imported_library));
 751   imports = bfd_malloc
 752     (header.total_imported_symbol_count * sizeof (bfd_pef_imported_symbol));
 753
 754   if (loaderlen < (56 + (header.imported_library_count * 24)))
 755     goto error;
 756   for (i = 0; i < header.imported_library_count; i++)
 757     {
 758       ret = bfd_pef_parse_imported_library
 759         (abfd, loaderbuf + 56 + (i * 24), 24, &libraries[i]);
 760       if (ret < 0)
 761         goto error;
 762     }
 763
 764   if (loaderlen < (56 + (header.imported_library_count * 24)
 765                    + (header.total_imported_symbol_count * 4)))
 766     goto error;
 767   for (i = 0; i < header.total_imported_symbol_count; i++)
 768     {
 769       ret = (bfd_pef_parse_imported_symbol
 770              (abfd,
 771               loaderbuf + 56 + (header.imported_library_count * 24) + (i * 4),
 772               4, &imports[i]));
 773       if (ret < 0)
 774         goto error;
 775     }
 776
 777   codepos = 0;
 778
 779   for (;;)
 780     {
 781       asymbol sym;
 782       const char *symname;
 783       char *name;
 784       unsigned long sym_index;
 785
 786       if (csym && (csym[count] == NULL))
 787         break;
 788
 789       codepos += 3;
 790       codepos -= (codepos % 4);
 791
 792       while ((codepos + 4) <= codelen)
 793         {
 794           if ((bfd_getb32 (codebuf + codepos) & 0xffff0000) == 0x81820000)
 795             break;
 796           codepos += 4;
 797         }
 798
 799       if ((codepos + 4) > codelen)
 800         break;
 801
 802       ret = bfd_pef_parse_function_stub (abfd, codebuf + codepos, 24, &sym_index);
 803       if (ret < 0)
 804         {
 805           codepos += 24;
 806           continue;
 807         }
 808
 809       if (sym_index >= header.total_imported_symbol_count)
 810         {
 811           codepos += 24;
 812           continue;
 813         }
 814
 815       {
 816         size_t max, namelen;
 817         const char *s;
 818
 819         if (loaderlen < (header.loader_strings_offset + imports[sym_index].name))
 820           goto error;
 821
 822         max = loaderlen - (header.loader_strings_offset + imports[sym_index].name);
 823         symname = (char *) loaderbuf;
 824         symname += header.loader_strings_offset + imports[sym_index].name;
 825         namelen = 0;
 826         for (s = symname; s < (symname + max); s++)
 827           {
 828             if (*s == '\0')
 829               break;
 830             if (! ISPRINT (*s))
 831               goto error;
 832             namelen++;
 833           }
 834         if (*s != '\0')
 835           goto error;
 836
 837         name = bfd_alloc (abfd, strlen (sprefix) + namelen + 1);
 838         if (name == NULL)
 839           break;
 840
 841         snprintf (name, strlen (sprefix) + namelen + 1, "%s%s",
 842                   sprefix, symname);
 843         sym.name = name;
 844       }
 845
 846       sym.value = codepos;
 847       sym.the_bfd = abfd;
 848       sym.section = codesec;
 849       sym.flags = 0;
 850       sym.udata.i = 0;
 851
 852       codepos += 24;
 853
 854       if (csym != NULL)
 855         *(csym[count]) = sym;
 856
 857       count++;
 858     }
 859
 860   goto end;
 861
 862  end:
 863   if (libraries != NULL)
 864     free (libraries);
 865   if (imports != NULL)
 866     free (imports);
 867   *nsym = count;
 868   return 0;
 869
 870  error:
 871   if (libraries != NULL)
 872     free (libraries);
 873   if (imports != NULL)
 874     free (imports);
 875   *nsym = count;
 876   return -1;
 877 }
 878
 879 static long
 880 bfd_pef_parse_symbols (bfd *abfd, asymbol **csym)
 881 {
 882   unsigned long count = 0;
 883
 884   asection *codesec = NULL;
 885   unsigned char *codebuf = NULL;
 886   size_t codelen = 0;
 887
 888   asection *loadersec = NULL;
 889   unsigned char *loaderbuf = NULL;
 890   size_t loaderlen = 0;
 891
 892   codesec = bfd_get_section_by_name (abfd, "code");
 893   if (codesec != NULL)
 894     {
 895       codelen = codesec->size;
 896       codebuf = bfd_malloc (codelen);
 897       if (bfd_seek (abfd, codesec->filepos, SEEK_SET) < 0)
 898         goto end;
 899       if (bfd_bread ((void *) codebuf, codelen, abfd) != codelen)
 900         goto end;
 901     }
 902
 903   loadersec = bfd_get_section_by_name (abfd, "loader");
 904   if (loadersec != NULL)
 905     {
 906       loaderlen = loadersec->size;
 907       loaderbuf = bfd_malloc (loaderlen);
 908       if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0)
 909         goto end;
 910       if (bfd_bread ((void *) loaderbuf, loaderlen, abfd) != loaderlen)
 911         goto end;
 912     }
 913
 914   count = 0;
 915   if (codesec != NULL)
 916     {
 917       long ncount = 0;
 918       bfd_pef_parse_traceback_tables (abfd, codesec, codebuf, codelen,
 919                                       &ncount, csym);
 920       count += ncount;
 921     }
 922
 923   if ((codesec != NULL) && (loadersec != NULL))
 924     {
 925       unsigned long ncount = 0;
 926       bfd_pef_parse_function_stubs
 927         (abfd, codesec, codebuf, codelen, loaderbuf, loaderlen, &ncount,
 928          (csym != NULL) ? (csym + count) : NULL);
 929       count += ncount;
 930     }
 931
 932   if (csym != NULL)
 933     csym[count] = NULL;
 934
 935  end:
 936   if (codebuf != NULL)
 937     free (codebuf);
 938
 939   if (loaderbuf != NULL)
 940     free (loaderbuf);
 941
 942   return count;
 943 }
 944
 945 static long
 946 bfd_pef_count_symbols (bfd *abfd)
 947 {
 948   return bfd_pef_parse_symbols (abfd, NULL);
 949 }
 950
 951 static long
 952 bfd_pef_get_symtab_upper_bound (bfd *abfd)
 953 {
 954   long nsyms = bfd_pef_count_symbols (abfd);
 955
 956   if (nsyms < 0)
 957     return nsyms;
 958   return ((nsyms + 1) * sizeof (asymbol *));
 959 }
 960
 961 static long
 962 bfd_pef_canonicalize_symtab (bfd *abfd, asymbol **alocation)
 963 {
 964   long i;
 965   asymbol *syms;
 966   long ret;
 967   long nsyms = bfd_pef_count_symbols (abfd);
 968
 969   if (nsyms < 0)
 970     return nsyms;
 971
 972   syms = bfd_alloc (abfd, nsyms * sizeof (asymbol));
 973   if (syms == NULL)
 974     return -1;
 975
 976   for (i = 0; i < nsyms; i++)
 977     alocation[i] = &syms[i];
 978
 979   alocation[nsyms] = NULL;
 980
 981   ret = bfd_pef_parse_symbols (abfd, alocation);
 982   if (ret != nsyms)
 983     return 0;
 984
 985   return ret;
 986 }
 987
 988 #define bfd_pef_make_empty_symbol _bfd_generic_make_empty_symbol
 989
 990 static void
 991 bfd_pef_get_symbol_info (bfd *abfd ATTRIBUTE_UNUSED,
 992                          asymbol *symbol,
 993                          symbol_info *ret)
 994 {
 995   bfd_symbol_info (symbol, ret);
 996 }
 997
 998 static int
 999 bfd_pef_sizeof_headers (bfd *abfd ATTRIBUTE_UNUSED,
1000                         struct bfd_link_info *info ATTRIBUTE_UNUSED)
1001 {
1002   return 0;
1003 }
1004
1005 const bfd_target pef_vec =
1006 {
1007   "pef",                        /* Name.  */
1008   bfd_target_pef_flavour,       /* Flavour.  */
1009   BFD_ENDIAN_BIG,               /* Byteorder.  */
1010   BFD_ENDIAN_BIG,               /* Header_byteorder.  */
1011   (HAS_RELOC | EXEC_P |         /* Object flags.  */
1012    HAS_LINENO | HAS_DEBUG |
1013    HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
1014   (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE | SEC_DATA
1015    | SEC_ROM | SEC_HAS_CONTENTS), /* Section_flags.  */
1016   0,                            /* Symbol_leading_char.  */
1017   ' ',                          /* AR_pad_char.  */
1018   16,                           /* AR_max_namelen.  */
1019   0,                            /* match priority.  */
1020   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1021   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1022   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* Data.  */
1023   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1024   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1025   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* Headers.  */
1026   {                             /* bfd_check_format.  */
1027     _bfd_dummy_target,
1028     bfd_pef_object_p,           /* bfd_check_format.  */
1029     _bfd_dummy_target,
1030     _bfd_dummy_target,
1031   },
1032   {                             /* bfd_set_format.  */
1033     bfd_false,
1034     bfd_pef_mkobject,
1035     bfd_false,
1036     bfd_false,
1037   },
1038   {                             /* bfd_write_contents.  */
1039     bfd_false,
1040     bfd_true,
1041     bfd_false,
1042     bfd_false,
1043   },
1044
1045   BFD_JUMP_TABLE_GENERIC (bfd_pef),
1046   BFD_JUMP_TABLE_COPY (_bfd_generic),
1047   BFD_JUMP_TABLE_CORE (_bfd_nocore),
1048   BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
1049   BFD_JUMP_TABLE_SYMBOLS (bfd_pef),
1050   BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
1051   BFD_JUMP_TABLE_WRITE (bfd_pef),
1052   BFD_JUMP_TABLE_LINK (bfd_pef),
1053   BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
1054
1055   NULL,
1056
1057   NULL
1058 };
1059
1060 #define bfd_pef_xlib_close_and_cleanup              _bfd_generic_close_and_cleanup
1061 #define bfd_pef_xlib_bfd_free_cached_info           _bfd_generic_bfd_free_cached_info
1062 #define bfd_pef_xlib_new_section_hook               _bfd_generic_new_section_hook
1063 #define bfd_pef_xlib_get_section_contents           _bfd_generic_get_section_contents
1064 #define bfd_pef_xlib_set_section_contents           _bfd_generic_set_section_contents
1065 #define bfd_pef_xlib_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
1066 #define bfd_pef_xlib_set_section_contents_in_window _bfd_generic_set_section_contents_in_window
1067
1068 static int
1069 bfd_pef_xlib_read_header (bfd *abfd, bfd_pef_xlib_header *header)
1070 {
1071   unsigned char buf[76];
1072
1073   bfd_seek (abfd, 0, SEEK_SET);
1074
1075   if (bfd_bread ((void *) buf, 76, abfd) != 76)
1076     return -1;
1077
1078   header->tag1 = bfd_getb32 (buf);
1079   header->tag2 = bfd_getb32 (buf + 4);
1080   header->current_format = bfd_getb32 (buf + 8);
1081   header->container_strings_offset = bfd_getb32 (buf + 12);
1082   header->export_hash_offset = bfd_getb32 (buf + 16);
1083   header->export_key_offset = bfd_getb32 (buf + 20);
1084   header->export_symbol_offset = bfd_getb32 (buf + 24);
1085   header->export_names_offset = bfd_getb32 (buf + 28);
1086   header->export_hash_table_power = bfd_getb32 (buf + 32);
1087   header->exported_symbol_count = bfd_getb32 (buf + 36);
1088   header->frag_name_offset = bfd_getb32 (buf + 40);
1089   header->frag_name_length = bfd_getb32 (buf + 44);
1090   header->dylib_path_offset = bfd_getb32 (buf + 48);
1091   header->dylib_path_length = bfd_getb32 (buf + 52);
1092   header->cpu_family = bfd_getb32 (buf + 56);
1093   header->cpu_model = bfd_getb32 (buf + 60);
1094   header->date_time_stamp = bfd_getb32 (buf + 64);
1095   header->current_version = bfd_getb32 (buf + 68);
1096   header->old_definition_version = bfd_getb32 (buf + 72);
1097   header->old_implementation_version = bfd_getb32 (buf + 76);
1098
1099   return 0;
1100 }
1101
1102 static int
1103 bfd_pef_xlib_scan (bfd *abfd, bfd_pef_xlib_header *header)
1104 {
1105   bfd_pef_xlib_data_struct *mdata = NULL;
1106
1107   mdata = bfd_alloc (abfd, sizeof (* mdata));
1108   if (mdata == NULL)
1109     return -1;
1110
1111   mdata->header = *header;
1112
1113   abfd->flags = (abfd->xvec->object_flags
1114                  | (abfd->flags & (BFD_IN_MEMORY | BFD_IO_FUNCS)));
1115
1116   abfd->tdata.pef_xlib_data = mdata;
1117
1118   return 0;
1119 }
1120
1121 static const bfd_target *
1122 bfd_pef_xlib_object_p (bfd *abfd)
1123 {
1124   struct bfd_preserve preserve;
1125   bfd_pef_xlib_header header;
1126
1127   if (bfd_pef_xlib_read_header (abfd, &header) != 0)
1128     {
1129       bfd_set_error (bfd_error_wrong_format);
1130       return NULL;
1131     }
1132
1133   if ((header.tag1 != BFD_PEF_XLIB_TAG1)
1134       || ((header.tag2 != BFD_PEF_VLIB_TAG2)
1135           && (header.tag2 != BFD_PEF_BLIB_TAG2)))
1136     {
1137       bfd_set_error (bfd_error_wrong_format);
1138       return NULL;
1139     }
1140
1141   if (! bfd_preserve_save (abfd, &preserve))
1142     {
1143       bfd_set_error (bfd_error_wrong_format);
1144       return NULL;
1145     }
1146
1147   if (bfd_pef_xlib_scan (abfd, &header) != 0)
1148     {
1149       bfd_preserve_restore (abfd, &preserve);
1150       bfd_set_error (bfd_error_wrong_format);
1151       return NULL;
1152     }
1153
1154   bfd_preserve_finish (abfd, &preserve);
1155   return abfd->xvec;
1156 }
1157
1158 const bfd_target pef_xlib_vec =
1159 {
1160   "pef-xlib",                   /* Name.  */
1161   bfd_target_pef_xlib_flavour,  /* Flavour.  */
1162   BFD_ENDIAN_BIG,               /* Byteorder */
1163   BFD_ENDIAN_BIG,               /* Header_byteorder.  */
1164   (HAS_RELOC | EXEC_P |         /* Object flags.  */
1165    HAS_LINENO | HAS_DEBUG |
1166    HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
1167   (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE | SEC_DATA
1168    | SEC_ROM | SEC_HAS_CONTENTS),/* Section_flags.  */
1169   0,                            /* Symbol_leading_char.  */
1170   ' ',                          /* AR_pad_char.  */
1171   16,                           /* AR_max_namelen.  */
1172   0,                            /* match priority.  */
1173   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1174   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1175   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* Data.  */
1176   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1177   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1178   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* Headers.  */
1179   {                             /* bfd_check_format.  */
1180     _bfd_dummy_target,
1181     bfd_pef_xlib_object_p,      /* bfd_check_format.  */
1182     _bfd_dummy_target,
1183     _bfd_dummy_target,
1184   },
1185   {                             /* bfd_set_format.  */
1186     bfd_false,
1187     bfd_pef_mkobject,
1188     bfd_false,
1189     bfd_false,
1190   },
1191   {                             /* bfd_write_contents.  */
1192     bfd_false,
1193     bfd_true,
1194     bfd_false,
1195     bfd_false,
1196   },
1197
1198   BFD_JUMP_TABLE_GENERIC (bfd_pef_xlib),
1199   BFD_JUMP_TABLE_COPY (_bfd_generic),
1200   BFD_JUMP_TABLE_CORE (_bfd_nocore),
1201   BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
1202   BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols),
1203   BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
1204   BFD_JUMP_TABLE_WRITE (_bfd_nowrite),
1205   BFD_JUMP_TABLE_LINK (_bfd_nolink),
1206   BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
1207
1208   NULL,
1209
1210   NULL
1211 };