bfd/xsym.c

   1 /* xSYM symbol-file support for BFD.
   2    Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005
   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 2 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., 59 Temple Place - Suite 330, Boston, MA 02110-1301, USA.  */
  20
  21 #include "xsym.h"
  22 #include "bfd.h"
  23 #include "sysdep.h"
  24 #include "libbfd.h"
  25
  26 #define bfd_sym_close_and_cleanup                   _bfd_generic_close_and_cleanup
  27 #define bfd_sym_bfd_free_cached_info                _bfd_generic_bfd_free_cached_info
  28 #define bfd_sym_new_section_hook                    _bfd_generic_new_section_hook
  29 #define bfd_sym_bfd_is_local_label_name             bfd_generic_is_local_label_name
  30 #define bfd_sym_bfd_is_target_special_symbol       ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
  31 #define bfd_sym_get_lineno                          _bfd_nosymbols_get_lineno
  32 #define bfd_sym_find_nearest_line                   _bfd_nosymbols_find_nearest_line
  33 #define bfd_sym_bfd_make_debug_symbol               _bfd_nosymbols_bfd_make_debug_symbol
  34 #define bfd_sym_read_minisymbols                    _bfd_generic_read_minisymbols
  35 #define bfd_sym_minisymbol_to_symbol                _bfd_generic_minisymbol_to_symbol
  36 #define bfd_sym_get_reloc_upper_bound               _bfd_norelocs_get_reloc_upper_bound
  37 #define bfd_sym_canonicalize_reloc                  _bfd_norelocs_canonicalize_reloc
  38 #define bfd_sym_bfd_reloc_type_lookup               _bfd_norelocs_bfd_reloc_type_lookup
  39 #define bfd_sym_set_arch_mach                       _bfd_generic_set_arch_mach
  40 #define bfd_sym_get_section_contents                _bfd_generic_get_section_contents
  41 #define bfd_sym_set_section_contents                _bfd_generic_set_section_contents
  42 #define bfd_sym_bfd_get_relocated_section_contents  bfd_generic_get_relocated_section_contents
  43 #define bfd_sym_bfd_relax_section                   bfd_generic_relax_section
  44 #define bfd_sym_bfd_gc_sections                     bfd_generic_gc_sections
  45 #define bfd_sym_bfd_merge_sections                  bfd_generic_merge_sections
  46 #define bfd_sym_bfd_is_group_section                bfd_generic_is_group_section
  47 #define bfd_sym_bfd_discard_group                   bfd_generic_discard_group
  48 #define bfd_sym_section_already_linked              _bfd_generic_section_already_linked
  49 #define bfd_sym_bfd_link_hash_table_create          _bfd_generic_link_hash_table_create
  50 #define bfd_sym_bfd_link_hash_table_free            _bfd_generic_link_hash_table_free
  51 #define bfd_sym_bfd_link_add_symbols                _bfd_generic_link_add_symbols
  52 #define bfd_sym_bfd_link_just_syms                  _bfd_generic_link_just_syms
  53 #define bfd_sym_bfd_final_link                      _bfd_generic_final_link
  54 #define bfd_sym_bfd_link_split_section              _bfd_generic_link_split_section
  55 #define bfd_sym_get_section_contents_in_window      _bfd_generic_get_section_contents_in_window
  56
  57 extern const bfd_target sym_vec;
  58
  59 static int
  60 pstrcmp (const char *as, const char *bs)
  61 {
  62   const unsigned char *a = (const unsigned char *) as;
  63   const unsigned char *b = (const unsigned char *) bs;
  64   unsigned char clen;
  65   int ret;
  66
  67   clen = (a[0] > b[0]) ? b[0] : a[0];
  68   ret = memcmp (a + 1, b + 1, clen);
  69   if (ret != 0)
  70     return ret;
  71
  72   if (a[0] == b[0])
  73     return 0;
  74   else if (a[0] < b[0])
  75     return -1;
  76   else
  77     return 1;
  78 }
  79
  80 static unsigned long
  81 compute_offset (unsigned long first_page,
  82                 unsigned long page_size,
  83                 unsigned long entry_size,
  84                 unsigned long index)
  85 {
  86   unsigned long entries_per_page = page_size / entry_size;
  87   unsigned long page_number = first_page + (index / entries_per_page);
  88   unsigned long page_offset = (index % entries_per_page) * entry_size;
  89
  90   return (page_number * page_size) + page_offset;
  91 }
  92
  93 bfd_boolean
  94 bfd_sym_mkobject (bfd *abfd ATTRIBUTE_UNUSED)
  95 {
  96   return 1;
  97 }
  98
  99 void
 100 bfd_sym_print_symbol (bfd *abfd ATTRIBUTE_UNUSED,
 101                       void * afile ATTRIBUTE_UNUSED,
 102                       asymbol *symbol ATTRIBUTE_UNUSED,
 103                       bfd_print_symbol_type how ATTRIBUTE_UNUSED)
 104 {
 105   return;
 106 }
 107
 108 bfd_boolean
 109 bfd_sym_valid (bfd *abfd)
 110 {
 111   if (abfd == NULL || abfd->xvec == NULL)
 112     return 0;
 113
 114   return abfd->xvec == &sym_vec;
 115 }
 116
 117 unsigned char *
 118 bfd_sym_read_name_table (bfd *abfd, bfd_sym_header_block *dshb)
 119 {
 120   unsigned char *rstr;
 121   long ret;
 122   size_t table_size = dshb->dshb_nte.dti_page_count * dshb->dshb_page_size;
 123   size_t table_offset = dshb->dshb_nte.dti_first_page * dshb->dshb_page_size;
 124
 125   rstr = bfd_alloc (abfd, table_size);
 126   if (rstr == NULL)
 127     return rstr;
 128
 129   bfd_seek (abfd, table_offset, SEEK_SET);
 130   ret = bfd_bread (rstr, table_size, abfd);
 131   if (ret < 0 || (unsigned long) ret != table_size)
 132     {
 133       bfd_release (abfd, rstr);
 134       return NULL;
 135     }
 136
 137   return rstr;
 138 }
 139
 140 void
 141 bfd_sym_parse_file_reference_v32 (unsigned char *buf,
 142                                   size_t len,
 143                                   bfd_sym_file_reference *entry)
 144 {
 145   BFD_ASSERT (len == 6);
 146
 147   entry->fref_frte_index = bfd_getb16 (buf);
 148   entry->fref_offset = bfd_getb32 (buf + 2);
 149 }
 150
 151 void
 152 bfd_sym_parse_disk_table_v32 (unsigned char *buf,
 153                               size_t len,
 154                               bfd_sym_table_info *table)
 155 {
 156   BFD_ASSERT (len == 8);
 157
 158   table->dti_first_page = bfd_getb16 (buf);
 159   table->dti_page_count = bfd_getb16 (buf + 2);
 160   table->dti_object_count = bfd_getb32 (buf + 4);
 161 }
 162
 163 void
 164 bfd_sym_parse_header_v32 (unsigned char *buf,
 165                           size_t len,
 166                           bfd_sym_header_block *header)
 167 {
 168   BFD_ASSERT (len == 154);
 169
 170   memcpy (header->dshb_id, buf, 32);
 171   header->dshb_page_size = bfd_getb16 (buf + 32);
 172   header->dshb_hash_page = bfd_getb16 (buf + 34);
 173   header->dshb_root_mte = bfd_getb16 (buf + 36);
 174   header->dshb_mod_date = bfd_getb32 (buf + 38);
 175
 176   bfd_sym_parse_disk_table_v32 (buf + 42, 8, &header->dshb_frte);
 177   bfd_sym_parse_disk_table_v32 (buf + 50, 8, &header->dshb_rte);
 178   bfd_sym_parse_disk_table_v32 (buf + 58, 8, &header->dshb_mte);
 179   bfd_sym_parse_disk_table_v32 (buf + 66, 8, &header->dshb_cmte);
 180   bfd_sym_parse_disk_table_v32 (buf + 74, 8, &header->dshb_cvte);
 181   bfd_sym_parse_disk_table_v32 (buf + 82, 8, &header->dshb_csnte);
 182   bfd_sym_parse_disk_table_v32 (buf + 90, 8, &header->dshb_clte);
 183   bfd_sym_parse_disk_table_v32 (buf + 98, 8, &header->dshb_ctte);
 184   bfd_sym_parse_disk_table_v32 (buf + 106, 8, &header->dshb_tte);
 185   bfd_sym_parse_disk_table_v32 (buf + 114, 8, &header->dshb_nte);
 186   bfd_sym_parse_disk_table_v32 (buf + 122, 8, &header->dshb_tinfo);
 187   bfd_sym_parse_disk_table_v32 (buf + 130, 8, &header->dshb_fite);
 188   bfd_sym_parse_disk_table_v32 (buf + 138, 8, &header->dshb_const);
 189
 190   memcpy (&header->dshb_file_creator, buf + 146, 4);
 191   memcpy (&header->dshb_file_type, buf + 150, 4);
 192 }
 193
 194 int
 195 bfd_sym_read_header_v32 (bfd *abfd, bfd_sym_header_block *header)
 196 {
 197   unsigned char buf[154];
 198   long ret;
 199
 200   ret = bfd_bread (buf, 154, abfd);
 201   if (ret != 154)
 202     return -1;
 203
 204   bfd_sym_parse_header_v32 (buf, 154, header);
 205
 206   return 0;
 207 }
 208
 209 int
 210 bfd_sym_read_header_v34 (bfd *abfd ATTRIBUTE_UNUSED,
 211                          bfd_sym_header_block *header ATTRIBUTE_UNUSED)
 212 {
 213   abort ();
 214 }
 215
 216 int
 217 bfd_sym_read_header (bfd *abfd,
 218                      bfd_sym_header_block *header,
 219                      bfd_sym_version version)
 220 {
 221   switch (version)
 222     {
 223     case BFD_SYM_VERSION_3_5:
 224     case BFD_SYM_VERSION_3_4:
 225       return bfd_sym_read_header_v34 (abfd, header);
 226     case BFD_SYM_VERSION_3_3:
 227     case BFD_SYM_VERSION_3_2:
 228       return bfd_sym_read_header_v32 (abfd, header);
 229     case BFD_SYM_VERSION_3_1:
 230     default:
 231       return 0;
 232     }
 233 }
 234
 235 int
 236 bfd_sym_read_version (bfd *abfd, bfd_sym_version *version)
 237 {
 238   char version_string[32];
 239   long ret;
 240
 241   ret = bfd_bread (version_string, sizeof (version_string), abfd);
 242   if (ret != sizeof (version_string))
 243     return -1;
 244
 245   if (pstrcmp (version_string, BFD_SYM_VERSION_STR_3_1) == 0)
 246     *version = BFD_SYM_VERSION_3_1;
 247   else if (pstrcmp (version_string, BFD_SYM_VERSION_STR_3_2) == 0)
 248     *version = BFD_SYM_VERSION_3_2;
 249   else if (pstrcmp (version_string, BFD_SYM_VERSION_STR_3_3) == 0)
 250     *version = BFD_SYM_VERSION_3_3;
 251   else if (pstrcmp (version_string, BFD_SYM_VERSION_STR_3_4) == 0)
 252     *version = BFD_SYM_VERSION_3_4;
 253   else if (pstrcmp (version_string, BFD_SYM_VERSION_STR_3_5) == 0)
 254     *version = BFD_SYM_VERSION_3_5;
 255   else
 256     return -1;
 257
 258   return 0;
 259 }
 260
 261 void
 262 bfd_sym_display_table_summary (FILE *f,
 263                                bfd_sym_table_info *dti,
 264                                const char *name)
 265 {
 266   fprintf (f, "%-6s %13ld %13ld %13ld\n",
 267            name,
 268            dti->dti_first_page,
 269            dti->dti_page_count,
 270            dti->dti_object_count);
 271 }
 272
 273 void
 274 bfd_sym_display_header (FILE *f, bfd_sym_header_block *dshb)
 275 {
 276   fprintf (f, "            Version: %.*s\n", dshb->dshb_id[0], dshb->dshb_id + 1);
 277   fprintf (f, "          Page Size: 0x%x\n", dshb->dshb_page_size);
 278   fprintf (f, "          Hash Page: %lu\n", dshb->dshb_hash_page);
 279   fprintf (f, "           Root MTE: %lu\n", dshb->dshb_root_mte);
 280   fprintf (f, "  Modification Date: ");
 281   fprintf (f, "[unimplemented]");
 282   fprintf (f, " (0x%lx)\n", dshb->dshb_mod_date);
 283
 284   fprintf (f, "       File Creator:  %.4s  Type: %.4s\n\n",
 285            dshb->dshb_file_creator, dshb->dshb_file_type);
 286
 287   fprintf (f, "Table Name   First Page    Page Count   Object Count\n");
 288   fprintf (f, "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
 289
 290   bfd_sym_display_table_summary (f, &dshb->dshb_nte, "NTE");
 291   bfd_sym_display_table_summary (f, &dshb->dshb_rte, "RTE");
 292   bfd_sym_display_table_summary (f, &dshb->dshb_mte, "MTE");
 293   bfd_sym_display_table_summary (f, &dshb->dshb_frte, "FRTE");
 294   bfd_sym_display_table_summary (f, &dshb->dshb_cmte, "CMTE");
 295   bfd_sym_display_table_summary (f, &dshb->dshb_cvte, "CVTE");
 296   bfd_sym_display_table_summary (f, &dshb->dshb_csnte, "CSNTE");
 297   bfd_sym_display_table_summary (f, &dshb->dshb_clte, "CLTE");
 298   bfd_sym_display_table_summary (f, &dshb->dshb_ctte, "CTTE");
 299   bfd_sym_display_table_summary (f, &dshb->dshb_tte, "TTE");
 300   bfd_sym_display_table_summary (f, &dshb->dshb_tinfo, "TINFO");
 301   bfd_sym_display_table_summary (f, &dshb->dshb_fite, "FITE");
 302   bfd_sym_display_table_summary (f, &dshb->dshb_const, "CONST");
 303
 304   fprintf (f, "\n");
 305 }
 306
 307 void
 308 bfd_sym_parse_resources_table_entry_v32 (unsigned char *buf,
 309                                          size_t len,
 310                                          bfd_sym_resources_table_entry *entry)
 311 {
 312   BFD_ASSERT (len == 18);
 313
 314   memcpy (&entry->rte_res_type, buf, 4);
 315   entry->rte_res_number = bfd_getb16 (buf + 4);
 316   entry->rte_nte_index = bfd_getb32 (buf + 6);
 317   entry->rte_mte_first = bfd_getb16 (buf + 10);
 318   entry->rte_mte_last = bfd_getb16 (buf + 12);
 319   entry->rte_res_size = bfd_getb32 (buf + 14);
 320 }
 321
 322 void
 323 bfd_sym_parse_modules_table_entry_v33 (unsigned char *buf,
 324                                        size_t len,
 325                                        bfd_sym_modules_table_entry *entry)
 326 {
 327   BFD_ASSERT (len == 46);
 328
 329   entry->mte_rte_index = bfd_getb16 (buf);
 330   entry->mte_res_offset = bfd_getb32 (buf + 2);
 331   entry->mte_size = bfd_getb32 (buf + 6);
 332   entry->mte_kind = buf[10];
 333   entry->mte_scope = buf[11];
 334   entry->mte_parent = bfd_getb16 (buf + 12);
 335   bfd_sym_parse_file_reference_v32 (buf + 14, 6, &entry->mte_imp_fref);
 336   entry->mte_imp_end = bfd_getb32 (buf + 20);
 337   entry->mte_nte_index = bfd_getb32 (buf + 24);
 338   entry->mte_cmte_index = bfd_getb16 (buf + 28);
 339   entry->mte_cvte_index = bfd_getb32 (buf + 30);
 340   entry->mte_clte_index = bfd_getb16 (buf + 34);
 341   entry->mte_ctte_index = bfd_getb16 (buf + 36);
 342   entry->mte_csnte_idx_1 = bfd_getb32 (buf + 38);
 343   entry->mte_csnte_idx_2 = bfd_getb32 (buf + 42);
 344 }
 345
 346 void
 347 bfd_sym_parse_file_references_table_entry_v32 (unsigned char *buf,
 348                                                size_t len,
 349                                                bfd_sym_file_references_table_entry *entry)
 350 {
 351   unsigned int type;
 352
 353   BFD_ASSERT (len == 10);
 354
 355   memset (entry, 0, sizeof (bfd_sym_file_references_table_entry));
 356   type = bfd_getb16 (buf);
 357
 358   switch (type)
 359     {
 360     case BFD_SYM_END_OF_LIST_3_2:
 361       entry->generic.type = BFD_SYM_END_OF_LIST;
 362       break;
 363
 364     case BFD_SYM_FILE_NAME_INDEX_3_2:
 365       entry->filename.type = BFD_SYM_FILE_NAME_INDEX;
 366       entry->filename.nte_index = bfd_getb32 (buf + 2);
 367       entry->filename.mod_date = bfd_getb32 (buf + 6);
 368       break;
 369
 370     default:
 371       entry->entry.mte_index = type;
 372       entry->entry.file_offset = bfd_getb32 (buf + 2);
 373     }
 374 }
 375
 376 void
 377 bfd_sym_parse_contained_modules_table_entry_v32 (unsigned char *buf,
 378                                                  size_t len,
 379                                                  bfd_sym_contained_modules_table_entry *entry)
 380 {
 381   unsigned int type;
 382
 383   BFD_ASSERT (len == 6);
 384
 385   memset (entry, 0, sizeof (bfd_sym_contained_modules_table_entry));
 386   type = bfd_getb16 (buf);
 387
 388   switch (type)
 389     {
 390     case BFD_SYM_END_OF_LIST_3_2:
 391       entry->generic.type = BFD_SYM_END_OF_LIST;
 392       break;
 393
 394     default:
 395       entry->entry.mte_index = type;
 396       entry->entry.nte_index = bfd_getb32 (buf + 2);
 397       break;
 398     }
 399 }
 400
 401 void
 402 bfd_sym_parse_contained_variables_table_entry_v32 (unsigned char *buf,
 403                                                    size_t len,
 404                                                    bfd_sym_contained_variables_table_entry *entry)
 405 {
 406   unsigned int type;
 407
 408   BFD_ASSERT (len == 26);
 409
 410   memset (entry, 0, sizeof (bfd_sym_contained_variables_table_entry));
 411   type = bfd_getb16 (buf);
 412
 413   switch (type)
 414     {
 415     case BFD_SYM_END_OF_LIST_3_2:
 416       entry->generic.type = BFD_SYM_END_OF_LIST;
 417       break;
 418
 419     case BFD_SYM_SOURCE_FILE_CHANGE_3_2:
 420       entry->file.type = BFD_SYM_SOURCE_FILE_CHANGE;
 421       bfd_sym_parse_file_reference_v32 (buf + 2, 6, &entry->file.fref);
 422       break;
 423
 424     default:
 425       entry->entry.tte_index = type;
 426       entry->entry.nte_index = bfd_getb32 (buf + 2);
 427       entry->entry.file_delta = bfd_getb16 (buf + 6);
 428       entry->entry.scope = buf[8];
 429       entry->entry.la_size = buf[9];
 430
 431       if (entry->entry.la_size == BFD_SYM_CVTE_SCA)
 432         {
 433           entry->entry.address.scstruct.sca_kind = buf[10];
 434           entry->entry.address.scstruct.sca_class = buf[11];
 435           entry->entry.address.scstruct.sca_offset = bfd_getb32 (buf + 12);
 436         }
 437       else if (entry->entry.la_size <= BFD_SYM_CVTE_SCA)
 438         {
 439 #if BFD_SYM_CVTE_SCA > 0
 440           memcpy (&entry->entry.address.lastruct.la, buf + 10,
 441                   BFD_SYM_CVTE_SCA);
 442 #endif
 443           entry->entry.address.lastruct.la_kind = buf[23];
 444         }
 445       else if (entry->entry.la_size == BFD_SYM_CVTE_BIG_LA)
 446         {
 447           entry->entry.address.biglastruct.big_la = bfd_getb32 (buf + 10);
 448           entry->entry.address.biglastruct.big_la_kind = buf[12];
 449         }
 450     }
 451 }
 452
 453 void
 454 bfd_sym_parse_contained_statements_table_entry_v32 (unsigned char *buf,
 455                                                     size_t len,
 456                                                     bfd_sym_contained_statements_table_entry *entry)
 457 {
 458   unsigned int type;
 459
 460   BFD_ASSERT (len == 8);
 461
 462   memset (entry, 0, sizeof (bfd_sym_contained_statements_table_entry));
 463   type = bfd_getb16 (buf);
 464
 465   switch (type)
 466     {
 467     case BFD_SYM_END_OF_LIST_3_2:
 468       entry->generic.type = BFD_SYM_END_OF_LIST;
 469       break;
 470
 471     case BFD_SYM_SOURCE_FILE_CHANGE_3_2:
 472       entry->file.type = BFD_SYM_SOURCE_FILE_CHANGE;
 473       bfd_sym_parse_file_reference_v32 (buf + 2, 6, &entry->file.fref);
 474       break;
 475
 476     default:
 477       entry->entry.mte_index = type;
 478       entry->entry.mte_offset = bfd_getb16 (buf + 2);
 479       entry->entry.file_delta = bfd_getb32 (buf + 4);
 480       break;
 481     }
 482 }
 483
 484 void
 485 bfd_sym_parse_contained_labels_table_entry_v32 (unsigned char *buf,
 486                                                 size_t len,
 487                                                 bfd_sym_contained_labels_table_entry *entry)
 488 {
 489   unsigned int type;
 490
 491   BFD_ASSERT (len == 12);
 492
 493   memset (entry, 0, sizeof (bfd_sym_contained_labels_table_entry));
 494   type = bfd_getb16 (buf);
 495
 496   switch (type)
 497     {
 498     case BFD_SYM_END_OF_LIST_3_2:
 499       entry->generic.type = BFD_SYM_END_OF_LIST;
 500       break;
 501
 502     case BFD_SYM_SOURCE_FILE_CHANGE_3_2:
 503       entry->file.type = BFD_SYM_SOURCE_FILE_CHANGE;
 504       bfd_sym_parse_file_reference_v32 (buf + 2, 6, &entry->file.fref);
 505       break;
 506
 507     default:
 508       entry->entry.mte_index = type;
 509       entry->entry.mte_offset = bfd_getb16 (buf + 2);
 510       entry->entry.nte_index = bfd_getb32 (buf + 4);
 511       entry->entry.file_delta = bfd_getb16 (buf + 8);
 512       entry->entry.scope = bfd_getb16 (buf + 10);
 513       break;
 514     }
 515 }
 516
 517 void
 518 bfd_sym_parse_type_table_entry_v32 (unsigned char *buf,
 519                                     size_t len,
 520                                     bfd_sym_type_table_entry *entry)
 521 {
 522   BFD_ASSERT (len == 4);
 523
 524   *entry = bfd_getb32 (buf);
 525 }
 526
 527 int
 528 bfd_sym_fetch_resources_table_entry (bfd *abfd,
 529                                      bfd_sym_resources_table_entry *entry,
 530                                      unsigned long index)
 531 {
 532   void (*parser) (unsigned char *, size_t, bfd_sym_resources_table_entry *);
 533   unsigned long offset;
 534   unsigned long entry_size;
 535   unsigned char buf[18];
 536   bfd_sym_data_struct *sdata = NULL;
 537
 538   parser = NULL;
 539   BFD_ASSERT (bfd_sym_valid (abfd));
 540   sdata = abfd->tdata.sym_data;
 541
 542   if (index == 0)
 543     return -1;
 544
 545   switch (sdata->version)
 546     {
 547     case BFD_SYM_VERSION_3_5:
 548     case BFD_SYM_VERSION_3_4:
 549       return -1;
 550
 551     case BFD_SYM_VERSION_3_3:
 552     case BFD_SYM_VERSION_3_2:
 553       entry_size = 18;
 554       parser = bfd_sym_parse_resources_table_entry_v32;
 555       break;
 556
 557     case BFD_SYM_VERSION_3_1:
 558     default:
 559       return -1;
 560     }
 561   if (parser == NULL)
 562     return -1;
 563
 564   offset = compute_offset (sdata->header.dshb_rte.dti_first_page,
 565                            sdata->header.dshb_page_size,
 566                            entry_size, index);
 567
 568   if (bfd_seek (abfd, offset, SEEK_SET) < 0)
 569     return -1;
 570   if (bfd_bread (buf, entry_size, abfd) != entry_size)
 571     return -1;
 572
 573   (*parser) (buf, entry_size, entry);
 574
 575   return 0;
 576 }
 577
 578 int
 579 bfd_sym_fetch_modules_table_entry (bfd *abfd,
 580                                    bfd_sym_modules_table_entry *entry,
 581                                    unsigned long index)
 582 {
 583   void (*parser) (unsigned char *, size_t, bfd_sym_modules_table_entry *);
 584   unsigned long offset;
 585   unsigned long entry_size;
 586   unsigned char buf[46];
 587   bfd_sym_data_struct *sdata = NULL;
 588
 589   parser = NULL;
 590   BFD_ASSERT (bfd_sym_valid (abfd));
 591   sdata = abfd->tdata.sym_data;
 592
 593   if (index == 0)
 594     return -1;
 595
 596   switch (sdata->version)
 597     {
 598     case BFD_SYM_VERSION_3_5:
 599     case BFD_SYM_VERSION_3_4:
 600       return -1;
 601
 602     case BFD_SYM_VERSION_3_3:
 603       entry_size = 46;
 604       parser = bfd_sym_parse_modules_table_entry_v33;
 605       break;
 606
 607     case BFD_SYM_VERSION_3_2:
 608     case BFD_SYM_VERSION_3_1:
 609     default:
 610       return -1;
 611     }
 612   if (parser == NULL)
 613     return -1;
 614
 615   offset = compute_offset (sdata->header.dshb_mte.dti_first_page,
 616                            sdata->header.dshb_page_size,
 617                            entry_size, index);
 618
 619   if (bfd_seek (abfd, offset, SEEK_SET) < 0)
 620     return -1;
 621   if (bfd_bread (buf, entry_size, abfd) != entry_size)
 622     return -1;
 623
 624   (*parser) (buf, entry_size, entry);
 625
 626   return 0;
 627 }
 628
 629 int
 630 bfd_sym_fetch_file_references_table_entry (bfd *abfd,
 631                                            bfd_sym_file_references_table_entry *entry,
 632                                            unsigned long index)
 633 {
 634   void (*parser) (unsigned char *, size_t, bfd_sym_file_references_table_entry *);
 635   unsigned long offset;
 636   unsigned long entry_size = 0;
 637   unsigned char buf[8];
 638   bfd_sym_data_struct *sdata = NULL;
 639
 640   parser = NULL;
 641   BFD_ASSERT (bfd_sym_valid (abfd));
 642   sdata = abfd->tdata.sym_data;
 643
 644   if (index == 0)
 645     return -1;
 646
 647   switch (sdata->version)
 648     {
 649     case BFD_SYM_VERSION_3_3:
 650     case BFD_SYM_VERSION_3_2:
 651       entry_size = 10;
 652       parser = bfd_sym_parse_file_references_table_entry_v32;
 653       break;
 654
 655     case BFD_SYM_VERSION_3_5:
 656     case BFD_SYM_VERSION_3_4:
 657     case BFD_SYM_VERSION_3_1:
 658     default:
 659       break;
 660     }
 661
 662   if (parser == NULL)
 663     return -1;
 664
 665   offset = compute_offset (sdata->header.dshb_frte.dti_first_page,
 666                            sdata->header.dshb_page_size,
 667                            entry_size, index);
 668
 669   if (bfd_seek (abfd, offset, SEEK_SET) < 0)
 670     return -1;
 671   if (bfd_bread (buf, entry_size, abfd) != entry_size)
 672     return -1;
 673
 674   (*parser) (buf, entry_size, entry);
 675
 676   return 0;
 677 }
 678
 679 int
 680 bfd_sym_fetch_contained_modules_table_entry (bfd *abfd,
 681                                              bfd_sym_contained_modules_table_entry *entry,
 682                                              unsigned long index)
 683 {
 684   void (*parser) (unsigned char *, size_t, bfd_sym_contained_modules_table_entry *);
 685   unsigned long offset;
 686   unsigned long entry_size = 0;
 687   unsigned char buf[6];
 688   bfd_sym_data_struct *sdata = NULL;
 689
 690   parser = NULL;
 691   BFD_ASSERT (bfd_sym_valid (abfd));
 692   sdata = abfd->tdata.sym_data;
 693
 694   if (index == 0)
 695     return -1;
 696
 697   switch (sdata->version)
 698     {
 699     case BFD_SYM_VERSION_3_3:
 700     case BFD_SYM_VERSION_3_2:
 701       entry_size = 6;
 702       parser = bfd_sym_parse_contained_modules_table_entry_v32;
 703       break;
 704
 705     case BFD_SYM_VERSION_3_5:
 706     case BFD_SYM_VERSION_3_4:
 707     case BFD_SYM_VERSION_3_1:
 708     default:
 709       break;
 710     }
 711
 712   if (parser == NULL)
 713     return -1;
 714
 715   offset = compute_offset (sdata->header.dshb_cmte.dti_first_page,
 716                            sdata->header.dshb_page_size,
 717                            entry_size, index);
 718
 719   if (bfd_seek (abfd, offset, SEEK_SET) < 0)
 720     return -1;
 721   if (bfd_bread (buf, entry_size, abfd) != entry_size)
 722     return -1;
 723
 724   (*parser) (buf, entry_size, entry);
 725
 726   return 0;
 727 }
 728
 729 int
 730 bfd_sym_fetch_contained_variables_table_entry (bfd *abfd,
 731                                                bfd_sym_contained_variables_table_entry *entry,
 732                                                unsigned long index)
 733 {
 734   void (*parser) (unsigned char *, size_t, bfd_sym_contained_variables_table_entry *);
 735   unsigned long offset;
 736   unsigned long entry_size = 0;
 737   unsigned char buf[26];
 738   bfd_sym_data_struct *sdata = NULL;
 739
 740   parser = NULL;
 741   BFD_ASSERT (bfd_sym_valid (abfd));
 742   sdata = abfd->tdata.sym_data;
 743
 744   if (index == 0)
 745     return -1;
 746
 747   switch (sdata->version)
 748     {
 749     case BFD_SYM_VERSION_3_3:
 750     case BFD_SYM_VERSION_3_2:
 751       entry_size = 26;
 752       parser = bfd_sym_parse_contained_variables_table_entry_v32;
 753       break;
 754
 755     case BFD_SYM_VERSION_3_5:
 756     case BFD_SYM_VERSION_3_4:
 757     case BFD_SYM_VERSION_3_1:
 758     default:
 759       break;
 760     }
 761
 762   if (parser == NULL)
 763     return -1;
 764
 765   offset = compute_offset (sdata->header.dshb_cvte.dti_first_page,
 766                            sdata->header.dshb_page_size,
 767                            entry_size, index);
 768
 769   if (bfd_seek (abfd, offset, SEEK_SET) < 0)
 770     return -1;
 771   if (bfd_bread (buf, entry_size, abfd) != entry_size)
 772     return -1;
 773
 774   (*parser) (buf, entry_size, entry);
 775
 776   return 0;
 777 }
 778
 779 int
 780 bfd_sym_fetch_contained_statements_table_entry (bfd *abfd,
 781                                                 bfd_sym_contained_statements_table_entry *entry,
 782                                                 unsigned long index)
 783 {
 784   void (*parser) (unsigned char *, size_t, bfd_sym_contained_statements_table_entry *);
 785   unsigned long offset;
 786   unsigned long entry_size = 0;
 787   unsigned char buf[8];
 788   bfd_sym_data_struct *sdata = NULL;
 789
 790   parser = NULL;
 791   BFD_ASSERT (bfd_sym_valid (abfd));
 792   sdata = abfd->tdata.sym_data;
 793
 794   if (index == 0)
 795     return -1;
 796
 797   switch (sdata->version)
 798     {
 799     case BFD_SYM_VERSION_3_3:
 800     case BFD_SYM_VERSION_3_2:
 801       entry_size = 8;
 802       parser = bfd_sym_parse_contained_statements_table_entry_v32;
 803       break;
 804
 805     case BFD_SYM_VERSION_3_5:
 806     case BFD_SYM_VERSION_3_4:
 807     case BFD_SYM_VERSION_3_1:
 808     default:
 809       break;
 810     }
 811
 812   if (parser == NULL)
 813     return -1;
 814
 815   offset = compute_offset (sdata->header.dshb_csnte.dti_first_page,
 816                            sdata->header.dshb_page_size,
 817                            entry_size, index);
 818
 819   if (bfd_seek (abfd, offset, SEEK_SET) < 0)
 820     return -1;
 821   if (bfd_bread (buf, entry_size, abfd) != entry_size)
 822     return -1;
 823
 824   (*parser) (buf, entry_size, entry);
 825
 826   return 0;
 827 }
 828
 829 int
 830 bfd_sym_fetch_contained_labels_table_entry (bfd *abfd,
 831                                             bfd_sym_contained_labels_table_entry *entry,
 832                                             unsigned long index)
 833 {
 834   void (*parser) (unsigned char *, size_t, bfd_sym_contained_labels_table_entry *);
 835   unsigned long offset;
 836   unsigned long entry_size = 0;
 837   unsigned char buf[12];
 838   bfd_sym_data_struct *sdata = NULL;
 839
 840   parser = NULL;
 841   BFD_ASSERT (bfd_sym_valid (abfd));
 842   sdata = abfd->tdata.sym_data;
 843
 844   if (index == 0)
 845     return -1;
 846
 847   switch (sdata->version)
 848     {
 849     case BFD_SYM_VERSION_3_3:
 850     case BFD_SYM_VERSION_3_2:
 851       entry_size = 12;
 852       parser = bfd_sym_parse_contained_labels_table_entry_v32;
 853       break;
 854
 855     case BFD_SYM_VERSION_3_5:
 856     case BFD_SYM_VERSION_3_4:
 857     case BFD_SYM_VERSION_3_1:
 858     default:
 859       break;
 860     }
 861
 862   if (parser == NULL)
 863     return -1;
 864
 865   offset = compute_offset (sdata->header.dshb_clte.dti_first_page,
 866                            sdata->header.dshb_page_size,
 867                            entry_size, index);
 868
 869   if (bfd_seek (abfd, offset, SEEK_SET) < 0)
 870     return -1;
 871   if (bfd_bread (buf, entry_size, abfd) != entry_size)
 872     return -1;
 873
 874   (*parser) (buf, entry_size, entry);
 875
 876   return 0;
 877 }
 878
 879 int
 880 bfd_sym_fetch_contained_types_table_entry (bfd *abfd,
 881                                            bfd_sym_contained_types_table_entry *entry,
 882                                            unsigned long index)
 883 {
 884   void (*parser) (unsigned char *, size_t, bfd_sym_contained_types_table_entry *);
 885   unsigned long offset;
 886   unsigned long entry_size = 0;
 887   unsigned char buf[0];
 888   bfd_sym_data_struct *sdata = NULL;
 889
 890   parser = NULL;
 891   BFD_ASSERT (bfd_sym_valid (abfd));
 892   sdata = abfd->tdata.sym_data;
 893
 894   if (index == 0)
 895     return -1;
 896
 897   switch (sdata->version)
 898     {
 899     case BFD_SYM_VERSION_3_3:
 900     case BFD_SYM_VERSION_3_2:
 901       entry_size = 0;
 902       parser = NULL;
 903       break;
 904
 905     case BFD_SYM_VERSION_3_5:
 906     case BFD_SYM_VERSION_3_4:
 907     case BFD_SYM_VERSION_3_1:
 908     default:
 909       break;
 910     }
 911
 912   if (parser == NULL)
 913     return -1;
 914
 915   offset = compute_offset (sdata->header.dshb_ctte.dti_first_page,
 916                            sdata->header.dshb_page_size,
 917                            entry_size, index);
 918
 919   if (bfd_seek (abfd, offset, SEEK_SET) < 0)
 920     return -1;
 921   if (bfd_bread (buf, entry_size, abfd) != entry_size)
 922     return -1;
 923
 924   (*parser) (buf, entry_size, entry);
 925
 926   return 0;
 927 }
 928
 929 int
 930 bfd_sym_fetch_file_references_index_table_entry (bfd *abfd,
 931                                                  bfd_sym_file_references_index_table_entry *entry,
 932                                                  unsigned long index)
 933 {
 934   void (*parser) (unsigned char *, size_t, bfd_sym_file_references_index_table_entry *);
 935   unsigned long offset;
 936   unsigned long entry_size = 0;
 937   unsigned char buf[0];
 938   bfd_sym_data_struct *sdata = NULL;
 939
 940   parser = NULL;
 941   BFD_ASSERT (bfd_sym_valid (abfd));
 942   sdata = abfd->tdata.sym_data;
 943
 944   if (index == 0)
 945     return -1;
 946
 947   switch (sdata->version)
 948     {
 949     case BFD_SYM_VERSION_3_3:
 950     case BFD_SYM_VERSION_3_2:
 951       entry_size = 0;
 952       parser = NULL;
 953       break;
 954
 955     case BFD_SYM_VERSION_3_5:
 956     case BFD_SYM_VERSION_3_4:
 957     case BFD_SYM_VERSION_3_1:
 958     default:
 959       break;
 960     }
 961
 962   if (parser == NULL)
 963     return -1;
 964
 965   offset = compute_offset (sdata->header.dshb_fite.dti_first_page,
 966                            sdata->header.dshb_page_size,
 967                            entry_size, index);
 968
 969   if (bfd_seek (abfd, offset, SEEK_SET) < 0)
 970     return -1;
 971   if (bfd_bread (buf, entry_size, abfd) != entry_size)
 972     return -1;
 973
 974   (*parser) (buf, entry_size, entry);
 975
 976   return 0;
 977 }
 978
 979 int
 980 bfd_sym_fetch_constant_pool_entry (bfd *abfd,
 981                                    bfd_sym_constant_pool_entry *entry,
 982                                    unsigned long index)
 983 {
 984   void (*parser) (unsigned char *, size_t, bfd_sym_constant_pool_entry *);
 985   unsigned long offset;
 986   unsigned long entry_size = 0;
 987   unsigned char buf[0];
 988   bfd_sym_data_struct *sdata = NULL;
 989
 990   parser = NULL;
 991   BFD_ASSERT (bfd_sym_valid (abfd));
 992   sdata = abfd->tdata.sym_data;
 993
 994   if (index == 0)
 995     return -1;
 996
 997   switch (sdata->version)
 998     {
 999     case BFD_SYM_VERSION_3_3:
1000     case BFD_SYM_VERSION_3_2:
1001       entry_size = 0;
1002       parser = NULL;
1003       break;
1004
1005     case BFD_SYM_VERSION_3_5:
1006     case BFD_SYM_VERSION_3_4:
1007     case BFD_SYM_VERSION_3_1:
1008     default:
1009       break;
1010     }
1011
1012   if (parser == NULL)
1013     return -1;
1014
1015   offset = compute_offset (sdata->header.dshb_fite.dti_first_page,
1016                            sdata->header.dshb_page_size,
1017                            entry_size, index);
1018
1019   if (bfd_seek (abfd, offset, SEEK_SET) < 0)
1020     return -1;
1021   if (bfd_bread (buf, entry_size, abfd) != entry_size)
1022     return -1;
1023
1024   (*parser) (buf, entry_size, entry);
1025
1026   return 0;
1027 }
1028
1029 int
1030 bfd_sym_fetch_type_table_entry (bfd *abfd,
1031                                 bfd_sym_type_table_entry *entry,
1032                                 unsigned long index)
1033 {
1034   void (*parser) (unsigned char *, size_t, bfd_sym_type_table_entry *);
1035   unsigned long offset;
1036   unsigned long entry_size = 0;
1037   unsigned char buf[4];
1038   bfd_sym_data_struct *sdata = NULL;
1039
1040   parser = NULL;
1041   BFD_ASSERT (bfd_sym_valid (abfd));
1042   sdata = abfd->tdata.sym_data;
1043
1044   switch (sdata->version)
1045     {
1046     case BFD_SYM_VERSION_3_3:
1047     case BFD_SYM_VERSION_3_2:
1048       entry_size = 4;
1049       parser = bfd_sym_parse_type_table_entry_v32;
1050       break;
1051
1052     case BFD_SYM_VERSION_3_5:
1053     case BFD_SYM_VERSION_3_4:
1054     case BFD_SYM_VERSION_3_1:
1055     default:
1056       break;
1057     }
1058
1059   if (parser == NULL)
1060     return -1;
1061
1062   offset = compute_offset (sdata->header.dshb_tte.dti_first_page,
1063                            sdata->header.dshb_page_size,
1064                            entry_size, index);
1065
1066   if (bfd_seek (abfd, offset, SEEK_SET) < 0)
1067     return -1;
1068   if (bfd_bread (buf, entry_size, abfd) != entry_size)
1069     return -1;
1070
1071   (*parser) (buf, entry_size, entry);
1072
1073   return 0;
1074 }
1075
1076 int
1077 bfd_sym_fetch_type_information_table_entry (bfd *abfd,
1078                                             bfd_sym_type_information_table_entry *entry,
1079                                             unsigned long offset)
1080 {
1081   unsigned char buf[4];
1082   bfd_sym_data_struct *sdata = NULL;
1083
1084   BFD_ASSERT (bfd_sym_valid (abfd));
1085   sdata = abfd->tdata.sym_data;
1086
1087   if (offset == 0)
1088     return -1;
1089
1090   if (bfd_seek (abfd, offset, SEEK_SET) < 0)
1091     return -1;
1092
1093   if (bfd_bread (buf, 4, abfd) != 4)
1094     return -1;
1095   entry->nte_index = bfd_getb32 (buf);
1096
1097   if (bfd_bread (buf, 2, abfd) != 2)
1098     return -1;
1099   entry->physical_size = bfd_getb16 (buf);
1100
1101   if (entry->physical_size & 0x8000)
1102     {
1103       if (bfd_bread (buf, 4, abfd) != 4)
1104         return -1;
1105       entry->physical_size &= 0x7fff;
1106       entry->logical_size = bfd_getb32 (buf);
1107       entry->offset = offset + 10;
1108     }
1109   else
1110     {
1111       if (bfd_bread (buf, 2, abfd) != 2)
1112         return -1;
1113       entry->physical_size &= 0x7fff;
1114       entry->logical_size = bfd_getb16 (buf);
1115       entry->offset = offset + 8;
1116     }
1117
1118   return 0;
1119 }
1120
1121 int
1122 bfd_sym_fetch_type_table_information (bfd *abfd,
1123                                       bfd_sym_type_information_table_entry *entry,
1124                                       unsigned long index)
1125 {
1126   bfd_sym_type_table_entry tindex;
1127   bfd_sym_data_struct *sdata = NULL;
1128
1129   BFD_ASSERT (bfd_sym_valid (abfd));
1130   sdata = abfd->tdata.sym_data;
1131
1132   if (sdata->header.dshb_tte.dti_object_count <= 99)
1133     return -1;
1134   if (index < 100)
1135     return -1;
1136
1137   if (bfd_sym_fetch_type_table_entry (abfd, &tindex, index - 100) < 0)
1138     return -1;
1139   if (bfd_sym_fetch_type_information_table_entry (abfd, entry, tindex) < 0)
1140     return -1;
1141
1142   return 0;
1143 }
1144
1145 const unsigned char *
1146 bfd_sym_symbol_name (bfd *abfd, unsigned long index)
1147 {
1148   bfd_sym_data_struct *sdata = NULL;
1149
1150   BFD_ASSERT (bfd_sym_valid (abfd));
1151   sdata = abfd->tdata.sym_data;
1152
1153   if (index == 0)
1154     return (const unsigned char *) "";
1155
1156   index *= 2;
1157   if ((index / sdata->header.dshb_page_size)
1158       > sdata->header.dshb_nte.dti_page_count)
1159     return (const unsigned char *) "\09[INVALID]";
1160
1161   return (const unsigned char *) sdata->name_table + index;
1162 }
1163
1164 const unsigned char *
1165 bfd_sym_module_name (bfd *abfd, unsigned long index)
1166 {
1167   bfd_sym_modules_table_entry entry;
1168
1169   if (bfd_sym_fetch_modules_table_entry (abfd, &entry, index) < 0)
1170     return (const unsigned char *) "\09[INVALID]";
1171
1172   return bfd_sym_symbol_name (abfd, entry.mte_nte_index);
1173 }
1174
1175 const char *
1176 bfd_sym_unparse_storage_kind (enum bfd_sym_storage_kind kind)
1177 {
1178   switch (kind)
1179     {
1180     case BFD_SYM_STORAGE_KIND_LOCAL: return "LOCAL";
1181     case BFD_SYM_STORAGE_KIND_VALUE: return "VALUE";
1182     case BFD_SYM_STORAGE_KIND_REFERENCE: return "REFERENCE";
1183     case BFD_SYM_STORAGE_KIND_WITH: return "WITH";
1184     default: return "[UNKNOWN]";
1185     }
1186 }
1187
1188 const char *
1189 bfd_sym_unparse_storage_class (enum bfd_sym_storage_class kind)
1190 {
1191   switch (kind)
1192     {
1193     case BFD_SYM_STORAGE_CLASS_REGISTER: return "REGISTER";
1194     case BFD_SYM_STORAGE_CLASS_GLOBAL: return "GLOBAL";
1195     case BFD_SYM_STORAGE_CLASS_FRAME_RELATIVE: return "FRAME_RELATIVE";
1196     case BFD_SYM_STORAGE_CLASS_STACK_RELATIVE: return "STACK_RELATIVE";
1197     case BFD_SYM_STORAGE_CLASS_ABSOLUTE: return "ABSOLUTE";
1198     case BFD_SYM_STORAGE_CLASS_CONSTANT: return "CONSTANT";
1199     case BFD_SYM_STORAGE_CLASS_RESOURCE: return "RESOURCE";
1200     case BFD_SYM_STORAGE_CLASS_BIGCONSTANT: return "BIGCONSTANT";
1201     default: return "[UNKNOWN]";
1202     }
1203 }
1204
1205 const char *
1206 bfd_sym_unparse_module_kind (enum bfd_sym_module_kind kind)
1207 {
1208   switch (kind)
1209     {
1210     case BFD_SYM_MODULE_KIND_NONE: return "NONE";
1211     case BFD_SYM_MODULE_KIND_PROGRAM: return "PROGRAM";
1212     case BFD_SYM_MODULE_KIND_UNIT: return "UNIT";
1213     case BFD_SYM_MODULE_KIND_PROCEDURE: return "PROCEDURE";
1214     case BFD_SYM_MODULE_KIND_FUNCTION: return "FUNCTION";
1215     case BFD_SYM_MODULE_KIND_DATA: return "DATA";
1216     case BFD_SYM_MODULE_KIND_BLOCK: return "BLOCK";
1217     default: return "[UNKNOWN]";
1218     }
1219 }
1220
1221 const char *
1222 bfd_sym_unparse_symbol_scope (enum bfd_sym_symbol_scope scope)
1223 {
1224   switch (scope)
1225     {
1226     case BFD_SYM_SYMBOL_SCOPE_LOCAL: return "LOCAL";
1227     case BFD_SYM_SYMBOL_SCOPE_GLOBAL: return "GLOBAL";
1228     default:
1229       return "[UNKNOWN]";
1230     }
1231 }
1232
1233 void
1234 bfd_sym_print_file_reference (bfd *abfd,
1235                               FILE *f,
1236                               bfd_sym_file_reference *entry)
1237 {
1238   bfd_sym_file_references_table_entry frtentry;
1239   int ret;
1240
1241   ret = bfd_sym_fetch_file_references_table_entry (abfd, &frtentry,
1242                                                    entry->fref_frte_index);
1243   fprintf (f, "FILE ");
1244
1245   if ((ret < 0) || (frtentry.generic.type != BFD_SYM_FILE_NAME_INDEX))
1246     fprintf (f, "[INVALID]");
1247   else
1248     fprintf (f, "\"%.*s\"",
1249              bfd_sym_symbol_name (abfd, frtentry.filename.nte_index)[0],
1250              &bfd_sym_symbol_name (abfd, frtentry.filename.nte_index)[1]);
1251
1252   fprintf (f, " (FRTE %lu)", entry->fref_frte_index);
1253 }
1254
1255 void
1256 bfd_sym_print_resources_table_entry (bfd *abfd,
1257                                      FILE *f,
1258                                      bfd_sym_resources_table_entry *entry)
1259 {
1260   fprintf (f, " \"%.*s\" (NTE %lu), type \"%.4s\", num %u, size %lu, MTE %lu -- %lu",
1261            bfd_sym_symbol_name (abfd, entry->rte_nte_index)[0],
1262            &bfd_sym_symbol_name (abfd, entry->rte_nte_index)[1],
1263            entry->rte_nte_index, entry->rte_res_type, entry->rte_res_number,
1264            entry->rte_res_size, entry->rte_mte_first, entry->rte_mte_last);
1265 }
1266
1267 void
1268 bfd_sym_print_modules_table_entry (bfd *abfd,
1269                                    FILE *f,
1270                                    bfd_sym_modules_table_entry *entry)
1271 {
1272   fprintf (f, "\"%.*s\" (NTE %lu)",
1273            bfd_sym_symbol_name (abfd, entry->mte_nte_index)[0],
1274            &bfd_sym_symbol_name (abfd, entry->mte_nte_index)[1],
1275            entry->mte_nte_index);
1276
1277   fprintf (f, "\n            ");
1278
1279   bfd_sym_print_file_reference (abfd, f, &entry->mte_imp_fref);
1280   fprintf (f, " range %lu -- %lu",
1281            entry->mte_imp_fref.fref_offset, entry->mte_imp_end);
1282
1283   fprintf (f, "\n            ");
1284
1285   fprintf (f, "kind %s", bfd_sym_unparse_module_kind (entry->mte_kind));
1286   fprintf (f, ", scope %s", bfd_sym_unparse_symbol_scope (entry->mte_scope));
1287
1288   fprintf (f, ", RTE %lu, offset %lu, size %lu",
1289            entry->mte_rte_index, entry->mte_res_offset, entry->mte_size);
1290
1291   fprintf (f, "\n            ");
1292
1293   fprintf (f, "CMTE %lu, CVTE %lu, CLTE %lu, CTTE %lu, CSNTE1 %lu, CSNTE2 %lu",
1294            entry->mte_cmte_index, entry->mte_cvte_index,
1295            entry->mte_clte_index, entry->mte_ctte_index,
1296            entry->mte_csnte_idx_1, entry->mte_csnte_idx_2);
1297
1298   if (entry->mte_parent != 0)
1299     fprintf (f, ", parent %lu", entry->mte_parent);
1300   else
1301     fprintf (f, ", no parent");
1302
1303   if (entry->mte_cmte_index != 0)
1304     fprintf (f, ", child %lu", entry->mte_cmte_index);
1305   else
1306     fprintf (f, ", no child");
1307 }
1308
1309 void
1310 bfd_sym_print_file_references_table_entry (bfd *abfd,
1311                                            FILE *f,
1312                                            bfd_sym_file_references_table_entry *entry)
1313 {
1314   switch (entry->generic.type)
1315     {
1316     case BFD_SYM_FILE_NAME_INDEX:
1317       fprintf (f, "FILE \"%.*s\" (NTE %lu), modtime ",
1318                bfd_sym_symbol_name (abfd, entry->filename.nte_index)[0],
1319                &bfd_sym_symbol_name (abfd, entry->filename.nte_index)[1],
1320                entry->filename.nte_index);
1321
1322       fprintf (f, "[UNIMPLEMENTED]");
1323       /* printModDate (entry->filename.mod_date); */
1324       fprintf (f, " (0x%lx)", entry->filename.mod_date);
1325       break;
1326
1327     case BFD_SYM_END_OF_LIST:
1328       fprintf (f, "END");
1329       break;
1330
1331     default:
1332       fprintf (f, "\"%.*s\" (MTE %lu), offset %lu",
1333                bfd_sym_module_name (abfd, entry->entry.mte_index)[0],
1334                &bfd_sym_module_name (abfd, entry->entry.mte_index)[1],
1335                entry->entry.mte_index,
1336                entry->entry.file_offset);
1337       break;
1338     }
1339 }
1340
1341 void
1342 bfd_sym_print_contained_modules_table_entry (bfd *abfd,
1343                                              FILE *f,
1344                                              bfd_sym_contained_modules_table_entry *entry)
1345 {
1346   switch (entry->generic.type)
1347     {
1348     case BFD_SYM_END_OF_LIST:
1349       fprintf (f, "END");
1350       break;
1351
1352     default:
1353       fprintf (f, "\"%.*s\" (MTE %lu, NTE %lu)",
1354                bfd_sym_module_name (abfd, entry->entry.mte_index)[0],
1355                &bfd_sym_module_name (abfd, entry->entry.mte_index)[1],
1356                entry->entry.mte_index,
1357                entry->entry.nte_index);
1358       break;
1359     }
1360 }
1361
1362 void
1363 bfd_sym_print_contained_variables_table_entry (bfd *abfd,
1364                                                FILE *f,
1365                                                bfd_sym_contained_variables_table_entry *entry)
1366 {
1367   if (entry->generic.type == BFD_SYM_END_OF_LIST)
1368     {
1369       fprintf (f, "END");
1370       return;
1371     }
1372
1373   if (entry->generic.type == BFD_SYM_SOURCE_FILE_CHANGE)
1374     {
1375       bfd_sym_print_file_reference (abfd, f, &entry->file.fref);
1376       fprintf (f, " offset %lu", entry->file.fref.fref_offset);
1377       return;
1378     }
1379
1380   fprintf (f, "\"%.*s\" (NTE %lu)",
1381            bfd_sym_symbol_name (abfd, entry->entry.nte_index)[0],
1382            &bfd_sym_symbol_name (abfd, entry->entry.nte_index)[1],
1383            entry->entry.nte_index);
1384
1385   fprintf (f, ", TTE %lu", entry->entry.tte_index);
1386   fprintf (f, ", offset %lu", entry->entry.file_delta);
1387   fprintf (f, ", scope %s", bfd_sym_unparse_symbol_scope (entry->entry.scope));
1388
1389   if (entry->entry.la_size == BFD_SYM_CVTE_SCA)
1390     fprintf (f, ", latype %s, laclass %s, laoffset %lu",
1391              bfd_sym_unparse_storage_kind (entry->entry.address.scstruct.sca_kind),
1392              bfd_sym_unparse_storage_class (entry->entry.address.scstruct.sca_class),
1393              entry->entry.address.scstruct.sca_offset);
1394   else if (entry->entry.la_size <= BFD_SYM_CVTE_LA_MAX_SIZE)
1395     {
1396       unsigned long i;
1397
1398       fprintf (f, ", la [");
1399       for (i = 0; i < entry->entry.la_size; i++)
1400         fprintf (f, "0x%02x ", entry->entry.address.lastruct.la[i]);
1401       fprintf (f, "]");
1402     }
1403   else if (entry->entry.la_size == BFD_SYM_CVTE_BIG_LA)
1404     fprintf (f, ", bigla %lu, biglakind %u",
1405              entry->entry.address.biglastruct.big_la,
1406              entry->entry.address.biglastruct.big_la_kind);
1407
1408   else
1409     fprintf (f, ", la [INVALID]");
1410 }
1411
1412 void
1413 bfd_sym_print_contained_statements_table_entry (bfd *abfd,
1414                                                 FILE *f,
1415                                                 bfd_sym_contained_statements_table_entry *entry)
1416 {
1417   if (entry->generic.type == BFD_SYM_END_OF_LIST)
1418     {
1419       fprintf (f, "END");
1420       return;
1421     }
1422
1423   if (entry->generic.type == BFD_SYM_SOURCE_FILE_CHANGE)
1424     {
1425       bfd_sym_print_file_reference (abfd, f, &entry->file.fref);
1426       fprintf (f, " offset %lu", entry->file.fref.fref_offset);
1427       return;
1428     }
1429
1430   fprintf (f, "\"%.*s\" (MTE %lu), offset %lu, delta %lu",
1431            bfd_sym_module_name (abfd, entry->entry.mte_index)[0],
1432            &bfd_sym_module_name (abfd, entry->entry.mte_index)[1],
1433            entry->entry.mte_index,
1434            entry->entry.mte_offset,
1435            entry->entry.file_delta);
1436 }
1437
1438 void
1439 bfd_sym_print_contained_labels_table_entry (bfd *abfd,
1440                                             FILE *f,
1441                                             bfd_sym_contained_labels_table_entry *entry)
1442 {
1443   if (entry->generic.type == BFD_SYM_END_OF_LIST)
1444     {
1445       fprintf (f, "END");
1446       return;
1447     }
1448
1449   if (entry->generic.type == BFD_SYM_SOURCE_FILE_CHANGE)
1450     {
1451       bfd_sym_print_file_reference (abfd, f, &entry->file.fref);
1452       fprintf (f, " offset %lu", entry->file.fref.fref_offset);
1453       return;
1454     }
1455
1456   fprintf (f, "\"%.*s\" (MTE %lu), offset %lu, delta %lu, scope %s",
1457            bfd_sym_module_name (abfd, entry->entry.mte_index)[0],
1458            &bfd_sym_module_name (abfd, entry->entry.mte_index)[1],
1459            entry->entry.mte_index,
1460            entry->entry.mte_offset,
1461            entry->entry.file_delta,
1462            bfd_sym_unparse_symbol_scope (entry->entry.scope));
1463 }
1464
1465 void
1466 bfd_sym_print_contained_types_table_entry (bfd *abfd ATTRIBUTE_UNUSED,
1467                                            FILE *f,
1468                                            bfd_sym_contained_types_table_entry *entry ATTRIBUTE_UNUSED)
1469 {
1470   fprintf (f, "[UNIMPLEMENTED]");
1471 }
1472
1473 const char *
1474 bfd_sym_type_operator_name (unsigned char num)
1475 {
1476   switch (num)
1477     {
1478     case 1: return "TTE";
1479     case 2: return "PointerTo";
1480     case 3: return "ScalarOf";
1481     case 4: return "ConstantOf";
1482     case 5: return "EnumerationOf";
1483     case 6: return "VectorOf";
1484     case 7: return "RecordOf";
1485     case 8: return "UnionOf";
1486     case 9: return "SubRangeOf";
1487     case 10: return "SetOf";
1488     case 11: return "NamedTypeOf";
1489     case 12: return "ProcOf";
1490     case 13: return "ValueOf";
1491     case 14: return "ArrayOf";
1492     default: return "[UNKNOWN OPERATOR]";
1493     }
1494 }
1495
1496 const char *
1497 bfd_sym_type_basic_name (unsigned char num)
1498 {
1499   switch (num)
1500     {
1501     case 0: return "void";
1502     case 1: return "pascal string";
1503     case 2: return "unsigned long";
1504     case 3: return "signed long";
1505     case 4: return "extended (10 bytes)";
1506     case 5: return "pascal boolean (1 byte)";
1507     case 6: return "unsigned byte";
1508     case 7: return "signed byte";
1509     case 8: return "character (1 byte)";
1510     case 9: return "wide character (2 bytes)";
1511     case 10: return "unsigned short";
1512     case 11: return "signed short";
1513     case 12: return "singled";
1514     case 13: return "double";
1515     case 14: return "extended (12 bytes)";
1516     case 15: return "computational (8 bytes)";
1517     case 16: return "c string";
1518     case 17: return "as-is string";
1519     default: return "[UNKNOWN BASIC TYPE]";
1520     }
1521 }
1522
1523 int
1524 bfd_sym_fetch_long (unsigned char *buf,
1525                     unsigned long len,
1526                     unsigned long offset,
1527                     unsigned long *offsetptr,
1528                     long *value)
1529 {
1530   int ret;
1531
1532   if (offset >= len)
1533     {
1534       *value = 0;
1535       offset += 0;
1536       ret = -1;
1537     }
1538   else if (! (buf[offset] & 0x80))
1539     {
1540       *value = buf[offset];
1541       offset += 1;
1542       ret = 0;
1543     }
1544   else if (buf[offset] == 0xc0)
1545     {
1546       if ((offset + 5) > len)
1547         {
1548           *value = 0;
1549           offset = len;
1550           ret = -1;
1551         }
1552       else
1553         {
1554           *value = bfd_getb32 (buf + offset + 1);
1555           offset += 5;
1556           ret = 0;
1557         }
1558     }
1559   else if ((buf[offset] & 0xc0) == 0xc0)
1560     {
1561       *value =  -(buf[offset] & 0x3f);
1562       offset += 1;
1563       ret = 0;
1564     }
1565   else if ((buf[offset] & 0xc0) == 0x80)
1566     {
1567       if ((offset + 2) > len)
1568         {
1569           *value = 0;
1570           offset = len;
1571           ret = -1;
1572         }
1573       else
1574         {
1575           *value = bfd_getb16 (buf + offset) & 0x3fff;
1576           offset += 2;
1577           ret = 0;
1578         }
1579     }
1580   else
1581     abort ();
1582
1583   if (offsetptr != NULL)
1584     *offsetptr = offset;
1585
1586   return ret;
1587 }
1588
1589 void
1590 bfd_sym_print_type_information (bfd *abfd,
1591                                 FILE *f,
1592                                 unsigned char *buf,
1593                                 unsigned long len,
1594                                 unsigned long offset,
1595                                 unsigned long *offsetptr)
1596 {
1597   unsigned int type;
1598
1599   if (offset >= len)
1600     {
1601       fprintf (f, "[NULL]");
1602
1603       if (offsetptr != NULL)
1604         *offsetptr = offset;
1605       return;
1606   }
1607
1608   type = buf[offset];
1609   offset++;
1610
1611   if (! (type & 0x80))
1612     {
1613       fprintf (f, "[%s] (0x%x)", bfd_sym_type_basic_name (type & 0x7f), type);
1614
1615       if (offsetptr != NULL)
1616         *offsetptr = offset;
1617       return;
1618     }
1619
1620   if (type & 0x40)
1621     fprintf (f, "[packed ");
1622   else
1623     fprintf (f, "[");
1624
1625   switch (type & 0x3f)
1626     {
1627     case 1:
1628       {
1629         long value;
1630         bfd_sym_type_information_table_entry tinfo;
1631
1632         bfd_sym_fetch_long (buf, len, offset, &offset, &value);
1633         if (value <= 0)
1634           fprintf (f, "[INVALID]");
1635         else
1636           {
1637             if (bfd_sym_fetch_type_table_information (abfd, &tinfo, value) < 0)
1638               fprintf (f, "[INVALID]");
1639             else
1640               fprintf (f, "\"%.*s\"",
1641                        bfd_sym_symbol_name (abfd, tinfo.nte_index)[0],
1642                        &bfd_sym_symbol_name (abfd, tinfo.nte_index)[1]);
1643           }
1644         fprintf (f, " (TTE %lu)", value);
1645         break;
1646       }
1647
1648     case 2:
1649       fprintf (f, "pointer (0x%x) to ", type);
1650       bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
1651       break;
1652
1653     case 3:
1654       {
1655         long value;
1656
1657         fprintf (f, "scalar (0x%x) of ", type);
1658         bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
1659         bfd_sym_fetch_long (buf, len, offset, &offset, &value);
1660         fprintf (f, " (%lu)", (unsigned long) value);
1661         break;
1662       }
1663
1664     case 5:
1665       {
1666         long lower, upper, nelem;
1667         int i;
1668
1669         fprintf (f, "enumeration (0x%x) of ", type);
1670         bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
1671         bfd_sym_fetch_long (buf, len, offset, &offset, &lower);
1672         bfd_sym_fetch_long (buf, len, offset, &offset, &upper);
1673         bfd_sym_fetch_long (buf, len, offset, &offset, &nelem);
1674         fprintf (f, " from %lu to %lu with %lu elements: ",
1675                  (unsigned long) lower, (unsigned long) upper,
1676                  (unsigned long) nelem);
1677
1678         for (i = 0; i < nelem; i++)
1679           {
1680             fprintf (f, "\n                    ");
1681             bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
1682           }
1683         break;
1684       }
1685
1686     case 6:
1687       fprintf (f, "vector (0x%x)", type);
1688       fprintf (f, "\n                index ");
1689       bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
1690       fprintf (f, "\n                target ");
1691       bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
1692       break;
1693
1694     case 7:
1695     case 8:
1696       {
1697         long nrec, eloff, i;
1698
1699         if ((type & 0x3f) == 7)
1700           fprintf (f, "record (0x%x) of ", type);
1701         else
1702           fprintf (f, "union (0x%x) of ", type);
1703
1704         bfd_sym_fetch_long (buf, len, offset, &offset, &nrec);
1705         fprintf (f, "%lu elements: ", nrec);
1706
1707         for (i = 0; i < nrec; i++)
1708           {
1709             bfd_sym_fetch_long (buf, len, offset, &offset, &eloff);
1710             fprintf (f, "\n                ");
1711             fprintf (f, "offset %lu: ", eloff);
1712             bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
1713           }
1714         break;
1715       }
1716
1717     case 9:
1718       fprintf (f, "subrange (0x%x) of ", type);
1719       bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
1720       fprintf (f, " lower ");
1721       bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
1722       fprintf (f, " upper ");
1723       bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
1724       break;
1725
1726   case 11:
1727     {
1728       long value;
1729
1730       fprintf (f, "named type (0x%x) ", type);
1731       bfd_sym_fetch_long (buf, len, offset, &offset, &value);
1732       if (value <= 0)
1733         fprintf (f, "[INVALID]");
1734       else
1735         fprintf (f, "\"%.*s\"",
1736                  bfd_sym_symbol_name (abfd, value)[0],
1737                  &bfd_sym_symbol_name (abfd, value)[1]);
1738
1739       fprintf (f, " (NTE %lu) with type ", value);
1740       bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
1741       break;
1742     }
1743
1744   default:
1745     fprintf (f, "%s (0x%x)", bfd_sym_type_operator_name (type), type);
1746     break;
1747     }
1748
1749   if (type == (0x40 | 0x6))
1750     {
1751       /* Vector.  */
1752       long n, width, m;
1753       long l;
1754       long i;
1755
1756       bfd_sym_fetch_long (buf, len, offset, &offset, &n);
1757       bfd_sym_fetch_long (buf, len, offset, &offset, &width);
1758       bfd_sym_fetch_long (buf, len, offset, &offset, &m);
1759       /* fprintf (f, "\n                "); */
1760       fprintf (f, " N %ld, width %ld, M %ld, ", n, width, m);
1761       for (i = 0; i < m; i++)
1762         {
1763           bfd_sym_fetch_long (buf, len, offset, &offset, &l);
1764           if (i != 0)
1765             fprintf (f, " ");
1766           fprintf (f, "%ld", l);
1767         }
1768     }
1769   else  if (type & 0x40)
1770     {
1771       /* Other packed type.  */
1772       long msb, lsb;
1773
1774       bfd_sym_fetch_long (buf, len, offset, &offset, &msb);
1775       bfd_sym_fetch_long (buf, len, offset, &offset, &lsb);
1776       /* fprintf (f, "\n                "); */
1777       fprintf (f, " msb %ld, lsb %ld", msb, lsb);
1778     }
1779
1780   fprintf (f, "]");
1781
1782   if (offsetptr != NULL)
1783     *offsetptr = offset;
1784 }
1785
1786 void
1787 bfd_sym_print_type_information_table_entry (bfd *abfd,
1788                                             FILE *f,
1789                                             bfd_sym_type_information_table_entry *entry)
1790 {
1791   unsigned char *buf;
1792   unsigned long offset;
1793   unsigned int i;
1794
1795   fprintf (f, "\"%.*s\" (NTE %lu), %lu bytes at %lu, logical size %lu",
1796            bfd_sym_symbol_name (abfd, entry->nte_index)[0],
1797            &bfd_sym_symbol_name (abfd, entry->nte_index)[1],
1798            entry->nte_index,
1799            entry->physical_size, entry->offset, entry->logical_size);
1800
1801   fprintf (f, "\n            ");
1802
1803   buf = alloca (entry->physical_size);
1804   if (buf == NULL)
1805     {
1806       fprintf (f, "[ERROR]\n");
1807       return;
1808     }
1809   if (bfd_seek (abfd, entry->offset, SEEK_SET) < 0)
1810     {
1811       fprintf (f, "[ERROR]\n");
1812       return;
1813     }
1814   if (bfd_bread (buf, entry->physical_size, abfd) != entry->physical_size)
1815     {
1816       fprintf (f, "[ERROR]\n");
1817       return;
1818     }
1819
1820   fprintf (f, "[");
1821   for (i = 0; i < entry->physical_size; i++)
1822     {
1823       if (i == 0)
1824         fprintf (f, "0x%02x", buf[i]);
1825       else
1826         fprintf (f, " 0x%02x", buf[i]);
1827     }
1828
1829   fprintf (f, "]");
1830   fprintf (f, "\n            ");
1831
1832   bfd_sym_print_type_information (abfd, f, buf, entry->physical_size, 0, &offset);
1833
1834   if (offset != entry->physical_size)
1835     fprintf (f, "\n            [parser used %lu bytes instead of %lu]", offset, entry->physical_size);
1836 }
1837
1838 void
1839 bfd_sym_print_file_references_index_table_entry (bfd *abfd ATTRIBUTE_UNUSED,
1840                                                  FILE *f,
1841                                                  bfd_sym_file_references_index_table_entry *entry ATTRIBUTE_UNUSED)
1842 {
1843   fprintf (f, "[UNIMPLEMENTED]");
1844 }
1845
1846 void
1847 bfd_sym_print_constant_pool_entry (bfd *abfd ATTRIBUTE_UNUSED,
1848                                    FILE *f,
1849                                    bfd_sym_constant_pool_entry *entry ATTRIBUTE_UNUSED)
1850 {
1851   fprintf (f, "[UNIMPLEMENTED]");
1852 }
1853
1854 unsigned char *
1855 bfd_sym_display_name_table_entry (bfd *abfd,
1856                                   FILE *f,
1857                                   unsigned char *entry)
1858 {
1859   unsigned long index;
1860   unsigned long offset;
1861   bfd_sym_data_struct *sdata = NULL;
1862
1863   BFD_ASSERT (bfd_sym_valid (abfd));
1864   sdata = abfd->tdata.sym_data;
1865   index = (entry - sdata->name_table) / 2;
1866
1867   if (sdata->version >= BFD_SYM_VERSION_3_4 && entry[0] == 255 && entry[1] == 0)
1868     {
1869       unsigned short length = bfd_getb16 (entry + 2);
1870       fprintf (f, "[%8lu] \"%.*s\"\n", index, length, entry + 4);
1871       offset = 2 + length + 1;
1872     }
1873   else
1874     {
1875       if (! (entry[0] == 0 || (entry[0] == 1 && entry[1] == '\0')))
1876         fprintf (f, "[%8lu] \"%.*s\"\n", index, entry[0], entry + 1);
1877
1878       if (sdata->version >= BFD_SYM_VERSION_3_4)
1879         offset = entry[0] + 2;
1880       else
1881         offset = entry[0] + 1;
1882     }
1883
1884   return (entry + offset + (offset % 2));
1885 }
1886
1887 void
1888 bfd_sym_display_name_table (bfd *abfd, FILE *f)
1889 {
1890   unsigned long name_table_len;
1891   unsigned char *name_table, *name_table_end, *cur;
1892   bfd_sym_data_struct *sdata = NULL;
1893
1894   BFD_ASSERT (bfd_sym_valid (abfd));
1895   sdata = abfd->tdata.sym_data;
1896
1897   name_table_len = sdata->header.dshb_nte.dti_page_count * sdata->header.dshb_page_size;
1898   name_table = sdata->name_table;
1899   name_table_end = name_table + name_table_len;
1900
1901   fprintf (f, "name table (NTE) contains %lu bytes:\n\n", name_table_len);
1902
1903   cur = name_table;
1904   for (;;)
1905     {
1906       cur = bfd_sym_display_name_table_entry (abfd, f, cur);
1907       if (cur >= name_table_end)
1908         break;
1909     }
1910 }
1911
1912 void
1913 bfd_sym_display_resources_table (bfd *abfd, FILE *f)
1914 {
1915   unsigned long i;
1916   bfd_sym_resources_table_entry entry;
1917   bfd_sym_data_struct *sdata = NULL;
1918
1919   BFD_ASSERT (bfd_sym_valid (abfd));
1920   sdata = abfd->tdata.sym_data;
1921
1922   fprintf (f, "resource table (RTE) contains %lu objects:\n\n",
1923            sdata->header.dshb_rte.dti_object_count);
1924
1925   for (i = 1; i <= sdata->header.dshb_rte.dti_object_count; i++)
1926     {
1927       if (bfd_sym_fetch_resources_table_entry (abfd, &entry, i) < 0)
1928         fprintf (f, " [%8lu] [INVALID]\n", i);
1929       else
1930         {
1931           fprintf (f, " [%8lu] ", i);
1932           bfd_sym_print_resources_table_entry (abfd, f, &entry);
1933           fprintf (f, "\n");
1934         }
1935     }
1936 }
1937
1938 void
1939 bfd_sym_display_modules_table (bfd *abfd, FILE *f)
1940 {
1941   unsigned long i;
1942   bfd_sym_modules_table_entry entry;
1943   bfd_sym_data_struct *sdata = NULL;
1944
1945   BFD_ASSERT (bfd_sym_valid (abfd));
1946   sdata = abfd->tdata.sym_data;
1947
1948   fprintf (f, "module table (MTE) contains %lu objects:\n\n",
1949            sdata->header.dshb_mte.dti_object_count);
1950
1951   for (i = 1; i <= sdata->header.dshb_mte.dti_object_count; i++)
1952     {
1953       if (bfd_sym_fetch_modules_table_entry (abfd, &entry, i) < 0)
1954         fprintf (f, " [%8lu] [INVALID]\n", i);
1955       else
1956         {
1957           fprintf (f, " [%8lu] ", i);
1958           bfd_sym_print_modules_table_entry (abfd, f, &entry);
1959           fprintf (f, "\n");
1960         }
1961     }
1962 }
1963
1964 void
1965 bfd_sym_display_file_references_table (bfd *abfd, FILE *f)
1966 {
1967   unsigned long i;
1968   bfd_sym_file_references_table_entry entry;
1969   bfd_sym_data_struct *sdata = NULL;
1970
1971   BFD_ASSERT (bfd_sym_valid (abfd));
1972   sdata = abfd->tdata.sym_data;
1973
1974   fprintf (f, "file reference table (FRTE) contains %lu objects:\n\n",
1975            sdata->header.dshb_frte.dti_object_count);
1976
1977   for (i = 1; i <= sdata->header.dshb_frte.dti_object_count; i++)
1978     {
1979       if (bfd_sym_fetch_file_references_table_entry (abfd, &entry, i) < 0)
1980         fprintf (f, " [%8lu] [INVALID]\n", i);
1981       else
1982         {
1983           fprintf (f, " [%8lu] ", i);
1984           bfd_sym_print_file_references_table_entry (abfd, f, &entry);
1985           fprintf (f, "\n");
1986         }
1987     }
1988 }
1989
1990 void
1991 bfd_sym_display_contained_modules_table (bfd *abfd, FILE *f)
1992 {
1993   unsigned long i;
1994   bfd_sym_contained_modules_table_entry entry;
1995   bfd_sym_data_struct *sdata = NULL;
1996
1997   BFD_ASSERT (bfd_sym_valid (abfd));
1998   sdata = abfd->tdata.sym_data;
1999
2000   fprintf (f, "contained modules table (CMTE) contains %lu objects:\n\n",
2001            sdata->header.dshb_cmte.dti_object_count);
2002
2003   for (i = 1; i <= sdata->header.dshb_cmte.dti_object_count; i++)
2004     {
2005       if (bfd_sym_fetch_contained_modules_table_entry (abfd, &entry, i) < 0)
2006         fprintf (f, " [%8lu] [INVALID]\n", i);
2007       else
2008         {
2009           fprintf (f, " [%8lu] ", i);
2010           bfd_sym_print_contained_modules_table_entry (abfd, f, &entry);
2011           fprintf (f, "\n");
2012         }
2013     }
2014 }
2015
2016 void
2017 bfd_sym_display_contained_variables_table (bfd *abfd, FILE *f)
2018 {
2019   unsigned long i;
2020   bfd_sym_contained_variables_table_entry entry;
2021   bfd_sym_data_struct *sdata = NULL;
2022
2023   BFD_ASSERT (bfd_sym_valid (abfd));
2024   sdata = abfd->tdata.sym_data;
2025
2026   fprintf (f, "contained variables table (CVTE) contains %lu objects:\n\n",
2027            sdata->header.dshb_cvte.dti_object_count);
2028
2029   for (i = 1; i <= sdata->header.dshb_cvte.dti_object_count; i++)
2030     {
2031       if (bfd_sym_fetch_contained_variables_table_entry (abfd, &entry, i) < 0)
2032         fprintf (f, " [%8lu] [INVALID]\n", i);
2033       else
2034         {
2035           fprintf (f, " [%8lu] ", i);
2036           bfd_sym_print_contained_variables_table_entry (abfd, f, &entry);
2037           fprintf (f, "\n");
2038         }
2039     }
2040
2041   fprintf (f, "\n");
2042 }
2043
2044 void
2045 bfd_sym_display_contained_statements_table (bfd *abfd, FILE *f)
2046 {
2047   unsigned long i;
2048   bfd_sym_contained_statements_table_entry entry;
2049   bfd_sym_data_struct *sdata = NULL;
2050
2051   BFD_ASSERT (bfd_sym_valid (abfd));
2052   sdata = abfd->tdata.sym_data;
2053
2054   fprintf (f, "contained statements table (CSNTE) contains %lu objects:\n\n",
2055            sdata->header.dshb_csnte.dti_object_count);
2056
2057   for (i = 1; i <= sdata->header.dshb_csnte.dti_object_count; i++)
2058     {
2059       if (bfd_sym_fetch_contained_statements_table_entry (abfd, &entry, i) < 0)
2060         fprintf (f, " [%8lu] [INVALID]\n", i);
2061       else
2062         {
2063           fprintf (f, " [%8lu] ", i);
2064           bfd_sym_print_contained_statements_table_entry (abfd, f, &entry);
2065           fprintf (f, "\n");
2066         }
2067     }
2068 }
2069
2070 void
2071 bfd_sym_display_contained_labels_table (bfd *abfd, FILE *f)
2072 {
2073   unsigned long i;
2074   bfd_sym_contained_labels_table_entry entry;
2075   bfd_sym_data_struct *sdata = NULL;
2076
2077   BFD_ASSERT (bfd_sym_valid (abfd));
2078   sdata = abfd->tdata.sym_data;
2079
2080   fprintf (f, "contained labels table (CLTE) contains %lu objects:\n\n",
2081            sdata->header.dshb_clte.dti_object_count);
2082
2083   for (i = 1; i <= sdata->header.dshb_clte.dti_object_count; i++)
2084     {
2085       if (bfd_sym_fetch_contained_labels_table_entry (abfd, &entry, i) < 0)
2086         fprintf (f, " [%8lu] [INVALID]\n", i);
2087       else
2088         {
2089           fprintf (f, " [%8lu] ", i);
2090           bfd_sym_print_contained_labels_table_entry (abfd, f, &entry);
2091           fprintf (f, "\n");
2092         }
2093     }
2094 }
2095
2096 void
2097 bfd_sym_display_contained_types_table (bfd *abfd, FILE *f)
2098 {
2099   unsigned long i;
2100   bfd_sym_contained_types_table_entry entry;
2101   bfd_sym_data_struct *sdata = NULL;
2102
2103   BFD_ASSERT (bfd_sym_valid (abfd));
2104   sdata = abfd->tdata.sym_data;
2105
2106   fprintf (f, "contained types table (CTTE) contains %lu objects:\n\n",
2107            sdata->header.dshb_ctte.dti_object_count);
2108
2109   for (i = 1; i <= sdata->header.dshb_ctte.dti_object_count; i++)
2110     {
2111       if (bfd_sym_fetch_contained_types_table_entry (abfd, &entry, i) < 0)
2112         fprintf (f, " [%8lu] [INVALID]\n", i);
2113       else
2114         {
2115           fprintf (f, " [%8lu] ", i);
2116           bfd_sym_print_contained_types_table_entry (abfd, f, &entry);
2117           fprintf (f, "\n");
2118         }
2119     }
2120 }
2121
2122 void
2123 bfd_sym_display_file_references_index_table (bfd *abfd, FILE *f)
2124 {
2125   unsigned long i;
2126   bfd_sym_file_references_index_table_entry entry;
2127   bfd_sym_data_struct *sdata = NULL;
2128
2129   BFD_ASSERT (bfd_sym_valid (abfd));
2130   sdata = abfd->tdata.sym_data;
2131
2132   fprintf (f, "file references index table (FITE) contains %lu objects:\n\n",
2133            sdata->header.dshb_fite.dti_object_count);
2134
2135   for (i = 1; i <= sdata->header.dshb_fite.dti_object_count; i++)
2136     {
2137       if (bfd_sym_fetch_file_references_index_table_entry (abfd, &entry, i) < 0)
2138         fprintf (f, " [%8lu] [INVALID]\n", i);
2139       else
2140         {
2141           fprintf (f, " [%8lu] ", i);
2142           bfd_sym_print_file_references_index_table_entry (abfd, f, &entry);
2143           fprintf (f, "\n");
2144         }
2145     }
2146 }
2147
2148 void
2149 bfd_sym_display_constant_pool (bfd *abfd, FILE *f)
2150 {
2151   unsigned long i;
2152   bfd_sym_constant_pool_entry entry;
2153   bfd_sym_data_struct *sdata = NULL;
2154
2155   BFD_ASSERT (bfd_sym_valid (abfd));
2156   sdata = abfd->tdata.sym_data;
2157
2158   fprintf (f, "constant pool (CONST) contains %lu objects:\n\n",
2159            sdata->header.dshb_const.dti_object_count);
2160
2161   for (i = 1; i <= sdata->header.dshb_const.dti_object_count; i++)
2162     {
2163       if (bfd_sym_fetch_constant_pool_entry (abfd, &entry, i) < 0)
2164         fprintf (f, " [%8lu] [INVALID]\n", i);
2165       else
2166         {
2167           fprintf (f, " [%8lu] ", i);
2168           bfd_sym_print_constant_pool_entry (abfd, f, &entry);
2169           fprintf (f, "\n");
2170         }
2171     }
2172 }
2173
2174 void
2175 bfd_sym_display_type_information_table (bfd *abfd, FILE *f)
2176 {
2177   unsigned long i;
2178   bfd_sym_type_table_entry index;
2179   bfd_sym_type_information_table_entry entry;
2180   bfd_sym_data_struct *sdata = NULL;
2181
2182   BFD_ASSERT (bfd_sym_valid (abfd));
2183   sdata = abfd->tdata.sym_data;
2184
2185   if (sdata->header.dshb_tte.dti_object_count > 99)
2186     fprintf (f, "type table (TINFO) contains %lu objects:\n\n",
2187              sdata->header.dshb_tte.dti_object_count - 99);
2188   else
2189     {
2190       fprintf (f, "type table (TINFO) contains [INVALID] objects:\n\n");
2191       return;
2192     }
2193
2194   for (i = 100; i <= sdata->header.dshb_tte.dti_object_count; i++)
2195     {
2196       if (bfd_sym_fetch_type_table_entry (abfd, &index, i - 100) < 0)
2197         fprintf (f, " [%8lu] [INVALID]\n", i);
2198       else
2199         {
2200           fprintf (f, " [%8lu] (TINFO %lu) ", i, index);
2201
2202           if (bfd_sym_fetch_type_information_table_entry (abfd, &entry, index) < 0)
2203             fprintf (f, "[INVALID]");
2204           else
2205             bfd_sym_print_type_information_table_entry (abfd, f, &entry);
2206
2207           fprintf (f, "\n");
2208         }
2209     }
2210 }
2211
2212 int
2213 bfd_sym_scan (bfd *abfd, bfd_sym_version version, bfd_sym_data_struct *mdata)
2214 {
2215   asection *bfdsec;
2216   const char *name = "symbols";
2217
2218   mdata->name_table = 0;
2219   mdata->sbfd = abfd;
2220   mdata->version = version;
2221
2222   bfd_seek (abfd, 0, SEEK_SET);
2223   if (bfd_sym_read_header (abfd, &mdata->header, mdata->version) != 0)
2224     return -1;
2225
2226   mdata->name_table = bfd_sym_read_name_table (abfd, &mdata->header);
2227   if (mdata->name_table == NULL)
2228     return -1;
2229
2230   bfdsec = bfd_make_section_anyway (abfd, name);
2231   if (bfdsec == NULL)
2232     return -1;
2233
2234   bfdsec->vma = 0;
2235   bfdsec->lma = 0;
2236   bfdsec->size = 0;
2237   bfdsec->filepos = 0;
2238   bfdsec->alignment_power = 0;
2239
2240   bfdsec->flags = SEC_HAS_CONTENTS;
2241
2242   abfd->tdata.sym_data = mdata;
2243
2244   return 0;
2245 }
2246
2247 const bfd_target *
2248 bfd_sym_object_p (bfd *abfd)
2249 {
2250   struct bfd_preserve preserve;
2251   bfd_sym_version version = -1;
2252
2253   preserve.marker = NULL;
2254   bfd_seek (abfd, 0, SEEK_SET);
2255   if (bfd_sym_read_version (abfd, &version) != 0)
2256     goto wrong;
2257
2258   preserve.marker = bfd_alloc (abfd, sizeof (bfd_sym_data_struct));
2259   if (preserve.marker == NULL
2260       || ! bfd_preserve_save (abfd, &preserve))
2261     goto fail;
2262
2263   if (bfd_sym_scan (abfd, version,
2264                     (bfd_sym_data_struct *) preserve.marker) != 0)
2265     goto wrong;
2266
2267   bfd_preserve_finish (abfd, &preserve);
2268   return abfd->xvec;
2269
2270  wrong:
2271   bfd_set_error (bfd_error_wrong_format);
2272
2273  fail:
2274   if (preserve.marker != NULL)
2275     bfd_preserve_restore (abfd, &preserve);
2276   return NULL;
2277 }
2278
2279 asymbol *
2280 bfd_sym_make_empty_symbol (bfd *abfd)
2281 {
2282   return bfd_alloc (abfd, sizeof (asymbol));
2283 }
2284
2285 void
2286 bfd_sym_get_symbol_info (bfd *abfd ATTRIBUTE_UNUSED, asymbol *symbol, symbol_info *ret)
2287 {
2288   bfd_symbol_info (symbol, ret);
2289 }
2290
2291 long
2292 bfd_sym_get_symtab_upper_bound (bfd *abfd ATTRIBUTE_UNUSED)
2293 {
2294   return 0;
2295 }
2296
2297 long
2298 bfd_sym_canonicalize_symtab (bfd *abfd ATTRIBUTE_UNUSED, asymbol **sym ATTRIBUTE_UNUSED)
2299 {
2300   return 0;
2301 }
2302
2303 int
2304 bfd_sym_sizeof_headers (bfd *abfd ATTRIBUTE_UNUSED, bfd_boolean exec ATTRIBUTE_UNUSED)
2305 {
2306   return 0;
2307 }
2308
2309 const bfd_target sym_vec =
2310 {
2311   "sym",                        /* Name.  */
2312   bfd_target_sym_flavour,       /* Flavour.  */
2313   BFD_ENDIAN_BIG,               /* Byteorder.  */
2314   BFD_ENDIAN_BIG,               /* Header byteorder.  */
2315   (HAS_RELOC | EXEC_P |         /* Object flags.  */
2316    HAS_LINENO | HAS_DEBUG |
2317    HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
2318   (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE | SEC_DATA
2319    | SEC_ROM | SEC_HAS_CONTENTS), /* Section_flags.  */
2320   0,                            /* Symbol_leading_char.  */
2321   ' ',                          /* AR_pad_char.  */
2322   16,                           /* AR_max_namelen.  */
2323   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
2324   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
2325   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* Data.  */
2326   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
2327   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
2328   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* Hdrs.  */
2329   {                             /* bfd_check_format.  */
2330     _bfd_dummy_target,
2331     bfd_sym_object_p,           /* bfd_check_format.  */
2332     _bfd_dummy_target,
2333     _bfd_dummy_target,
2334   },
2335   {                             /* bfd_set_format.  */
2336     bfd_false,
2337     bfd_sym_mkobject,
2338     bfd_false,
2339     bfd_false,
2340   },
2341   {                             /* bfd_write_contents.  */
2342     bfd_false,
2343     bfd_true,
2344     bfd_false,
2345     bfd_false,
2346   },
2347
2348   BFD_JUMP_TABLE_GENERIC (bfd_sym),
2349   BFD_JUMP_TABLE_COPY (_bfd_generic),
2350   BFD_JUMP_TABLE_CORE (_bfd_nocore),
2351   BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
2352   BFD_JUMP_TABLE_SYMBOLS (bfd_sym),
2353   BFD_JUMP_TABLE_RELOCS (bfd_sym),
2354   BFD_JUMP_TABLE_WRITE (bfd_sym),
2355   BFD_JUMP_TABLE_LINK (bfd_sym),
2356   BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
2357
2358   NULL,
2359
2360   NULL
2361 };