1 /* xSYM symbol-file support for BFD.
2 Copyright 1999, 2000, 2001, 2002, 2003, 2004
3 Free Software Foundation, Inc.
5 This file is part of BFD, the Binary File Descriptor library.
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.
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.
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 02111-1307, USA. */
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 \
49 _bfd_generic_section_already_linked
50 #define bfd_sym_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
51 #define bfd_sym_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
52 #define bfd_sym_bfd_link_add_symbols _bfd_generic_link_add_symbols
53 #define bfd_sym_bfd_link_just_syms _bfd_generic_link_just_syms
54 #define bfd_sym_bfd_final_link _bfd_generic_final_link
55 #define bfd_sym_bfd_link_split_section _bfd_generic_link_split_section
56 #define bfd_sym_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
58 static int pstrcmp
PARAMS ((unsigned char *, unsigned char *));
59 static unsigned long compute_offset
60 PARAMS ((unsigned long, unsigned long, unsigned long, unsigned long));
62 extern const bfd_target sym_vec
;
72 clen
= (a
[0] > b
[0]) ? a
[0] : b
[0];
73 ret
= memcmp (a
+ 1, b
+ 1, clen
);
86 compute_offset (first_page
, page_size
, entry_size
, index
)
87 unsigned long first_page
;
88 unsigned long page_size
;
89 unsigned long entry_size
;
92 unsigned long entries_per_page
= page_size
/ entry_size
;
93 unsigned long page_number
= first_page
+ (index
/ entries_per_page
);
94 unsigned long page_offset
= (index
% entries_per_page
) * entry_size
;
96 return (page_number
* page_size
) + page_offset
;
100 bfd_sym_mkobject (abfd
)
101 bfd
*abfd ATTRIBUTE_UNUSED
;
107 bfd_sym_print_symbol (abfd
, afile
, symbol
, how
)
108 bfd
*abfd ATTRIBUTE_UNUSED
;
109 PTR afile ATTRIBUTE_UNUSED
;
110 asymbol
*symbol ATTRIBUTE_UNUSED
;
111 bfd_print_symbol_type how ATTRIBUTE_UNUSED
;
120 if (abfd
== NULL
|| abfd
->xvec
== NULL
)
123 return abfd
->xvec
== &sym_vec
;
127 bfd_sym_read_name_table (abfd
, dshb
)
129 bfd_sym_header_block
*dshb
;
133 size_t table_size
= dshb
->dshb_nte
.dti_page_count
* dshb
->dshb_page_size
;
134 size_t table_offset
= dshb
->dshb_nte
.dti_first_page
* dshb
->dshb_page_size
;
136 rstr
= (unsigned char *) bfd_alloc (abfd
, table_size
);
140 bfd_seek (abfd
, table_offset
, SEEK_SET
);
141 ret
= bfd_bread (rstr
, table_size
, abfd
);
142 if (ret
< 0 || (unsigned long) ret
!= table_size
)
144 bfd_release (abfd
, rstr
);
152 bfd_sym_parse_file_reference_v32 (buf
, len
, entry
)
155 bfd_sym_file_reference
*entry
;
157 BFD_ASSERT (len
== 6);
159 entry
->fref_frte_index
= bfd_getb16 (buf
);
160 entry
->fref_offset
= bfd_getb32 (buf
+ 2);
164 bfd_sym_parse_disk_table_v32 (buf
, len
, table
)
167 bfd_sym_table_info
*table
;
169 BFD_ASSERT (len
== 8);
171 table
->dti_first_page
= bfd_getb16 (buf
);
172 table
->dti_page_count
= bfd_getb16 (buf
+ 2);
173 table
->dti_object_count
= bfd_getb32 (buf
+ 4);
177 bfd_sym_parse_header_v32 (buf
, len
, header
)
180 bfd_sym_header_block
*header
;
182 BFD_ASSERT (len
== 154);
184 memcpy (header
->dshb_id
, buf
, 32);
185 header
->dshb_page_size
= bfd_getb16 (buf
+ 32);
186 header
->dshb_hash_page
= bfd_getb16 (buf
+ 34);
187 header
->dshb_root_mte
= bfd_getb16 (buf
+ 36);
188 header
->dshb_mod_date
= bfd_getb32 (buf
+ 38);
190 bfd_sym_parse_disk_table_v32 (buf
+ 42, 8, &header
->dshb_frte
);
191 bfd_sym_parse_disk_table_v32 (buf
+ 50, 8, &header
->dshb_rte
);
192 bfd_sym_parse_disk_table_v32 (buf
+ 58, 8, &header
->dshb_mte
);
193 bfd_sym_parse_disk_table_v32 (buf
+ 66, 8, &header
->dshb_cmte
);
194 bfd_sym_parse_disk_table_v32 (buf
+ 74, 8, &header
->dshb_cvte
);
195 bfd_sym_parse_disk_table_v32 (buf
+ 82, 8, &header
->dshb_csnte
);
196 bfd_sym_parse_disk_table_v32 (buf
+ 90, 8, &header
->dshb_clte
);
197 bfd_sym_parse_disk_table_v32 (buf
+ 98, 8, &header
->dshb_ctte
);
198 bfd_sym_parse_disk_table_v32 (buf
+ 106, 8, &header
->dshb_tte
);
199 bfd_sym_parse_disk_table_v32 (buf
+ 114, 8, &header
->dshb_nte
);
200 bfd_sym_parse_disk_table_v32 (buf
+ 122, 8, &header
->dshb_tinfo
);
201 bfd_sym_parse_disk_table_v32 (buf
+ 130, 8, &header
->dshb_fite
);
202 bfd_sym_parse_disk_table_v32 (buf
+ 138, 8, &header
->dshb_const
);
204 memcpy (&header
->dshb_file_creator
, buf
+ 146, 4);
205 memcpy (&header
->dshb_file_type
, buf
+ 150, 4);
209 bfd_sym_read_header_v32 (abfd
, header
)
211 bfd_sym_header_block
*header
;
213 unsigned char buf
[154];
216 ret
= bfd_bread (buf
, 154, abfd
);
220 bfd_sym_parse_header_v32 (buf
, 154, header
);
226 bfd_sym_read_header_v34 (abfd
, header
)
227 bfd
*abfd ATTRIBUTE_UNUSED
;
228 bfd_sym_header_block
*header ATTRIBUTE_UNUSED
;
234 bfd_sym_read_header (abfd
, header
, version
)
236 bfd_sym_header_block
*header
;
237 bfd_sym_version version
;
241 case BFD_SYM_VERSION_3_5
:
242 case BFD_SYM_VERSION_3_4
:
243 return bfd_sym_read_header_v34 (abfd
, header
);
244 case BFD_SYM_VERSION_3_3
:
245 case BFD_SYM_VERSION_3_2
:
246 return bfd_sym_read_header_v32 (abfd
, header
);
247 case BFD_SYM_VERSION_3_1
:
254 bfd_sym_read_version (abfd
, version
)
256 bfd_sym_version
*version
;
258 unsigned char version_string
[32];
261 ret
= bfd_bread (version_string
, sizeof (version_string
), abfd
);
262 if (ret
!= sizeof (version_string
))
265 if (pstrcmp (version_string
, BFD_SYM_VERSION_STR_3_1
) == 0)
266 *version
= BFD_SYM_VERSION_3_1
;
267 else if (pstrcmp (version_string
, BFD_SYM_VERSION_STR_3_2
) == 0)
268 *version
= BFD_SYM_VERSION_3_2
;
269 else if (pstrcmp (version_string
, BFD_SYM_VERSION_STR_3_3
) == 0)
270 *version
= BFD_SYM_VERSION_3_3
;
271 else if (pstrcmp (version_string
, BFD_SYM_VERSION_STR_3_4
) == 0)
272 *version
= BFD_SYM_VERSION_3_4
;
273 else if (pstrcmp (version_string
, BFD_SYM_VERSION_STR_3_5
) == 0)
274 *version
= BFD_SYM_VERSION_3_5
;
282 bfd_sym_display_table_summary (f
, dti
, name
)
284 bfd_sym_table_info
*dti
;
287 fprintf (f
, "%-6s %13ld %13ld %13ld\n",
291 dti
->dti_object_count
);
295 bfd_sym_display_header (f
, dshb
)
297 bfd_sym_header_block
*dshb
;
299 fprintf (f
, " Version: %.*s\n", dshb
->dshb_id
[0], dshb
->dshb_id
+ 1);
300 fprintf (f
, " Page Size: 0x%x\n", dshb
->dshb_page_size
);
301 fprintf (f
, " Hash Page: %lu\n", dshb
->dshb_hash_page
);
302 fprintf (f
, " Root MTE: %lu\n", dshb
->dshb_root_mte
);
303 fprintf (f
, " Modification Date: ");
304 fprintf (f
, "[unimplemented]");
305 fprintf (f
, " (0x%lx)\n", dshb
->dshb_mod_date
);
307 fprintf (f
, " File Creator: %.4s Type: %.4s\n\n",
308 dshb
->dshb_file_creator
, dshb
->dshb_file_type
);
310 fprintf (f
, "Table Name First Page Page Count Object Count\n");
311 fprintf (f
, "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
313 bfd_sym_display_table_summary (f
, &dshb
->dshb_nte
, "NTE");
314 bfd_sym_display_table_summary (f
, &dshb
->dshb_rte
, "RTE");
315 bfd_sym_display_table_summary (f
, &dshb
->dshb_mte
, "MTE");
316 bfd_sym_display_table_summary (f
, &dshb
->dshb_frte
, "FRTE");
317 bfd_sym_display_table_summary (f
, &dshb
->dshb_cmte
, "CMTE");
318 bfd_sym_display_table_summary (f
, &dshb
->dshb_cvte
, "CVTE");
319 bfd_sym_display_table_summary (f
, &dshb
->dshb_csnte
, "CSNTE");
320 bfd_sym_display_table_summary (f
, &dshb
->dshb_clte
, "CLTE");
321 bfd_sym_display_table_summary (f
, &dshb
->dshb_ctte
, "CTTE");
322 bfd_sym_display_table_summary (f
, &dshb
->dshb_tte
, "TTE");
323 bfd_sym_display_table_summary (f
, &dshb
->dshb_tinfo
, "TINFO");
324 bfd_sym_display_table_summary (f
, &dshb
->dshb_fite
, "FITE");
325 bfd_sym_display_table_summary (f
, &dshb
->dshb_const
, "CONST");
331 bfd_sym_parse_resources_table_entry_v32 (buf
, len
, entry
)
334 bfd_sym_resources_table_entry
*entry
;
336 BFD_ASSERT (len
== 18);
338 memcpy (&entry
->rte_res_type
, buf
, 4);
339 entry
->rte_res_number
= bfd_getb16 (buf
+ 4);
340 entry
->rte_nte_index
= bfd_getb32 (buf
+ 6);
341 entry
->rte_mte_first
= bfd_getb16 (buf
+ 10);
342 entry
->rte_mte_last
= bfd_getb16 (buf
+ 12);
343 entry
->rte_res_size
= bfd_getb32 (buf
+ 14);
347 bfd_sym_parse_modules_table_entry_v33 (buf
, len
, entry
)
350 bfd_sym_modules_table_entry
*entry
;
352 BFD_ASSERT (len
== 46);
354 entry
->mte_rte_index
= bfd_getb16 (buf
);
355 entry
->mte_res_offset
= bfd_getb32 (buf
+ 2);
356 entry
->mte_size
= bfd_getb32 (buf
+ 6);
357 entry
->mte_kind
= buf
[10];
358 entry
->mte_scope
= buf
[11];
359 entry
->mte_parent
= bfd_getb16 (buf
+ 12);
360 bfd_sym_parse_file_reference_v32 (buf
+ 14, 6, &entry
->mte_imp_fref
);
361 entry
->mte_imp_end
= bfd_getb32 (buf
+ 20);
362 entry
->mte_nte_index
= bfd_getb32 (buf
+ 24);
363 entry
->mte_cmte_index
= bfd_getb16 (buf
+ 28);
364 entry
->mte_cvte_index
= bfd_getb32 (buf
+ 30);
365 entry
->mte_clte_index
= bfd_getb16 (buf
+ 34);
366 entry
->mte_ctte_index
= bfd_getb16 (buf
+ 36);
367 entry
->mte_csnte_idx_1
= bfd_getb32 (buf
+ 38);
368 entry
->mte_csnte_idx_2
= bfd_getb32 (buf
+ 42);
372 bfd_sym_parse_file_references_table_entry_v32 (buf
, len
, entry
)
375 bfd_sym_file_references_table_entry
*entry
;
379 BFD_ASSERT (len
== 10);
381 memset (entry
, 0, sizeof (bfd_sym_file_references_table_entry
));
382 type
= bfd_getb16 (buf
);
386 case BFD_SYM_END_OF_LIST_3_2
:
387 entry
->generic
.type
= BFD_SYM_END_OF_LIST
;
390 case BFD_SYM_FILE_NAME_INDEX_3_2
:
391 entry
->filename
.type
= BFD_SYM_FILE_NAME_INDEX
;
392 entry
->filename
.nte_index
= bfd_getb32 (buf
+ 2);
393 entry
->filename
.mod_date
= bfd_getb32 (buf
+ 6);
397 entry
->entry
.mte_index
= type
;
398 entry
->entry
.file_offset
= bfd_getb32 (buf
+ 2);
403 bfd_sym_parse_contained_modules_table_entry_v32 (buf
, len
, entry
)
406 bfd_sym_contained_modules_table_entry
*entry
;
410 BFD_ASSERT (len
== 6);
412 memset (entry
, 0, sizeof (bfd_sym_contained_modules_table_entry
));
413 type
= bfd_getb16 (buf
);
417 case BFD_SYM_END_OF_LIST_3_2
:
418 entry
->generic
.type
= BFD_SYM_END_OF_LIST
;
422 entry
->entry
.mte_index
= type
;
423 entry
->entry
.nte_index
= bfd_getb32 (buf
+ 2);
429 bfd_sym_parse_contained_variables_table_entry_v32 (buf
, len
, entry
)
432 bfd_sym_contained_variables_table_entry
*entry
;
436 BFD_ASSERT (len
== 26);
438 memset (entry
, 0, sizeof (bfd_sym_contained_variables_table_entry
));
439 type
= bfd_getb16 (buf
);
443 case BFD_SYM_END_OF_LIST_3_2
:
444 entry
->generic
.type
= BFD_SYM_END_OF_LIST
;
447 case BFD_SYM_SOURCE_FILE_CHANGE_3_2
:
448 entry
->file
.type
= BFD_SYM_SOURCE_FILE_CHANGE
;
449 bfd_sym_parse_file_reference_v32 (buf
+ 2, 6, &entry
->file
.fref
);
453 entry
->entry
.tte_index
= type
;
454 entry
->entry
.nte_index
= bfd_getb32 (buf
+ 2);
455 entry
->entry
.file_delta
= bfd_getb16 (buf
+ 6);
456 entry
->entry
.scope
= buf
[8];
457 entry
->entry
.la_size
= buf
[9];
459 if (entry
->entry
.la_size
== BFD_SYM_CVTE_SCA
)
461 entry
->entry
.address
.scstruct
.sca_kind
= buf
[10];
462 entry
->entry
.address
.scstruct
.sca_class
= buf
[11];
463 entry
->entry
.address
.scstruct
.sca_offset
= bfd_getb32 (buf
+ 12);
465 else if (entry
->entry
.la_size
<= BFD_SYM_CVTE_SCA
)
467 #if BFD_SYM_CVTE_SCA > 0
468 memcpy (&entry
->entry
.address
.lastruct
.la
, buf
+ 10, BFD_SYM_CVTE_SCA
);
470 entry
->entry
.address
.lastruct
.la_kind
= buf
[23];
472 else if (entry
->entry
.la_size
== BFD_SYM_CVTE_BIG_LA
)
474 entry
->entry
.address
.biglastruct
.big_la
= bfd_getb32 (buf
+ 10);
475 entry
->entry
.address
.biglastruct
.big_la_kind
= buf
[12];
481 bfd_sym_parse_contained_statements_table_entry_v32 (buf
, len
, entry
)
484 bfd_sym_contained_statements_table_entry
*entry
;
488 BFD_ASSERT (len
== 8);
490 memset (entry
, 0, sizeof (bfd_sym_contained_statements_table_entry
));
491 type
= bfd_getb16 (buf
);
495 case BFD_SYM_END_OF_LIST_3_2
:
496 entry
->generic
.type
= BFD_SYM_END_OF_LIST
;
499 case BFD_SYM_SOURCE_FILE_CHANGE_3_2
:
500 entry
->file
.type
= BFD_SYM_SOURCE_FILE_CHANGE
;
501 bfd_sym_parse_file_reference_v32 (buf
+ 2, 6, &entry
->file
.fref
);
505 entry
->entry
.mte_index
= type
;
506 entry
->entry
.mte_offset
= bfd_getb16 (buf
+ 2);
507 entry
->entry
.file_delta
= bfd_getb32 (buf
+ 4);
513 bfd_sym_parse_contained_labels_table_entry_v32 (buf
, len
, entry
)
516 bfd_sym_contained_labels_table_entry
*entry
;
520 BFD_ASSERT (len
== 12);
522 memset (entry
, 0, sizeof (bfd_sym_contained_labels_table_entry
));
523 type
= bfd_getb16 (buf
);
527 case BFD_SYM_END_OF_LIST_3_2
:
528 entry
->generic
.type
= BFD_SYM_END_OF_LIST
;
531 case BFD_SYM_SOURCE_FILE_CHANGE_3_2
:
532 entry
->file
.type
= BFD_SYM_SOURCE_FILE_CHANGE
;
533 bfd_sym_parse_file_reference_v32 (buf
+ 2, 6, &entry
->file
.fref
);
537 entry
->entry
.mte_index
= type
;
538 entry
->entry
.mte_offset
= bfd_getb16 (buf
+ 2);
539 entry
->entry
.nte_index
= bfd_getb32 (buf
+ 4);
540 entry
->entry
.file_delta
= bfd_getb16 (buf
+ 8);
541 entry
->entry
.scope
= bfd_getb16 (buf
+ 10);
547 bfd_sym_parse_type_table_entry_v32 (buf
, len
, entry
)
550 bfd_sym_type_table_entry
*entry
;
552 BFD_ASSERT (len
== 4);
554 *entry
= bfd_getb32 (buf
);
558 bfd_sym_fetch_resources_table_entry (abfd
, entry
, index
)
560 bfd_sym_resources_table_entry
*entry
;
563 void (*parser
) PARAMS ((unsigned char *, size_t,
564 bfd_sym_resources_table_entry
*));
565 unsigned long offset
;
566 unsigned long entry_size
;
567 unsigned char buf
[18];
568 bfd_sym_data_struct
*sdata
= NULL
;
571 BFD_ASSERT (bfd_sym_valid (abfd
));
572 sdata
= abfd
->tdata
.sym_data
;
577 switch (sdata
->version
)
579 case BFD_SYM_VERSION_3_5
:
580 case BFD_SYM_VERSION_3_4
:
583 case BFD_SYM_VERSION_3_3
:
584 case BFD_SYM_VERSION_3_2
:
586 parser
= bfd_sym_parse_resources_table_entry_v32
;
589 case BFD_SYM_VERSION_3_1
:
596 offset
= compute_offset (sdata
->header
.dshb_rte
.dti_first_page
,
597 sdata
->header
.dshb_page_size
,
600 if (bfd_seek (abfd
, offset
, SEEK_SET
) < 0)
602 if (bfd_bread (buf
, entry_size
, abfd
) != entry_size
)
605 (*parser
) (buf
, entry_size
, entry
);
611 bfd_sym_fetch_modules_table_entry (abfd
, entry
, index
)
613 bfd_sym_modules_table_entry
*entry
;
616 void (*parser
) PARAMS ((unsigned char *, size_t,
617 bfd_sym_modules_table_entry
*));
618 unsigned long offset
;
619 unsigned long entry_size
;
620 unsigned char buf
[46];
621 bfd_sym_data_struct
*sdata
= NULL
;
624 BFD_ASSERT (bfd_sym_valid (abfd
));
625 sdata
= abfd
->tdata
.sym_data
;
630 switch (sdata
->version
)
632 case BFD_SYM_VERSION_3_5
:
633 case BFD_SYM_VERSION_3_4
:
636 case BFD_SYM_VERSION_3_3
:
638 parser
= bfd_sym_parse_modules_table_entry_v33
;
641 case BFD_SYM_VERSION_3_2
:
642 case BFD_SYM_VERSION_3_1
:
649 offset
= compute_offset (sdata
->header
.dshb_mte
.dti_first_page
,
650 sdata
->header
.dshb_page_size
,
653 if (bfd_seek (abfd
, offset
, SEEK_SET
) < 0)
655 if (bfd_bread (buf
, entry_size
, abfd
) != entry_size
)
658 (*parser
) (buf
, entry_size
, entry
);
664 bfd_sym_fetch_file_references_table_entry (abfd
, entry
, index
)
666 bfd_sym_file_references_table_entry
*entry
;
669 void (*parser
) PARAMS ((unsigned char *, size_t,
670 bfd_sym_file_references_table_entry
*));
671 unsigned long offset
;
672 unsigned long entry_size
= 0;
673 unsigned char buf
[8];
674 bfd_sym_data_struct
*sdata
= NULL
;
677 BFD_ASSERT (bfd_sym_valid (abfd
));
678 sdata
= abfd
->tdata
.sym_data
;
683 switch (sdata
->version
)
685 case BFD_SYM_VERSION_3_3
:
686 case BFD_SYM_VERSION_3_2
:
688 parser
= bfd_sym_parse_file_references_table_entry_v32
;
691 case BFD_SYM_VERSION_3_5
:
692 case BFD_SYM_VERSION_3_4
:
693 case BFD_SYM_VERSION_3_1
:
701 offset
= compute_offset (sdata
->header
.dshb_frte
.dti_first_page
,
702 sdata
->header
.dshb_page_size
,
705 if (bfd_seek (abfd
, offset
, SEEK_SET
) < 0)
707 if (bfd_bread (buf
, entry_size
, abfd
) != entry_size
)
710 (*parser
) (buf
, entry_size
, entry
);
716 bfd_sym_fetch_contained_modules_table_entry (abfd
, entry
, index
)
718 bfd_sym_contained_modules_table_entry
*entry
;
721 void (*parser
) PARAMS ((unsigned char *, size_t,
722 bfd_sym_contained_modules_table_entry
*));
723 unsigned long offset
;
724 unsigned long entry_size
= 0;
725 unsigned char buf
[6];
726 bfd_sym_data_struct
*sdata
= NULL
;
729 BFD_ASSERT (bfd_sym_valid (abfd
));
730 sdata
= abfd
->tdata
.sym_data
;
735 switch (sdata
->version
)
737 case BFD_SYM_VERSION_3_3
:
738 case BFD_SYM_VERSION_3_2
:
740 parser
= bfd_sym_parse_contained_modules_table_entry_v32
;
743 case BFD_SYM_VERSION_3_5
:
744 case BFD_SYM_VERSION_3_4
:
745 case BFD_SYM_VERSION_3_1
:
753 offset
= compute_offset (sdata
->header
.dshb_cmte
.dti_first_page
,
754 sdata
->header
.dshb_page_size
,
757 if (bfd_seek (abfd
, offset
, SEEK_SET
) < 0)
759 if (bfd_bread (buf
, entry_size
, abfd
) != entry_size
)
762 (*parser
) (buf
, entry_size
, entry
);
768 bfd_sym_fetch_contained_variables_table_entry (abfd
, entry
, index
)
770 bfd_sym_contained_variables_table_entry
*entry
;
773 void (*parser
) PARAMS ((unsigned char *, size_t,
774 bfd_sym_contained_variables_table_entry
*));
775 unsigned long offset
;
776 unsigned long entry_size
= 0;
777 unsigned char buf
[26];
778 bfd_sym_data_struct
*sdata
= NULL
;
781 BFD_ASSERT (bfd_sym_valid (abfd
));
782 sdata
= abfd
->tdata
.sym_data
;
787 switch (sdata
->version
)
789 case BFD_SYM_VERSION_3_3
:
790 case BFD_SYM_VERSION_3_2
:
792 parser
= bfd_sym_parse_contained_variables_table_entry_v32
;
795 case BFD_SYM_VERSION_3_5
:
796 case BFD_SYM_VERSION_3_4
:
797 case BFD_SYM_VERSION_3_1
:
805 offset
= compute_offset (sdata
->header
.dshb_cvte
.dti_first_page
,
806 sdata
->header
.dshb_page_size
,
809 if (bfd_seek (abfd
, offset
, SEEK_SET
) < 0)
811 if (bfd_bread (buf
, entry_size
, abfd
) != entry_size
)
814 (*parser
) (buf
, entry_size
, entry
);
820 bfd_sym_fetch_contained_statements_table_entry (abfd
, entry
, index
)
822 bfd_sym_contained_statements_table_entry
*entry
;
825 void (*parser
) PARAMS ((unsigned char *, size_t,
826 bfd_sym_contained_statements_table_entry
*));
827 unsigned long offset
;
828 unsigned long entry_size
= 0;
829 unsigned char buf
[8];
830 bfd_sym_data_struct
*sdata
= NULL
;
833 BFD_ASSERT (bfd_sym_valid (abfd
));
834 sdata
= abfd
->tdata
.sym_data
;
839 switch (sdata
->version
)
841 case BFD_SYM_VERSION_3_3
:
842 case BFD_SYM_VERSION_3_2
:
844 parser
= bfd_sym_parse_contained_statements_table_entry_v32
;
847 case BFD_SYM_VERSION_3_5
:
848 case BFD_SYM_VERSION_3_4
:
849 case BFD_SYM_VERSION_3_1
:
857 offset
= compute_offset (sdata
->header
.dshb_csnte
.dti_first_page
,
858 sdata
->header
.dshb_page_size
,
861 if (bfd_seek (abfd
, offset
, SEEK_SET
) < 0)
863 if (bfd_bread (buf
, entry_size
, abfd
) != entry_size
)
866 (*parser
) (buf
, entry_size
, entry
);
872 bfd_sym_fetch_contained_labels_table_entry (abfd
, entry
, index
)
874 bfd_sym_contained_labels_table_entry
*entry
;
877 void (*parser
) PARAMS ((unsigned char *, size_t,
878 bfd_sym_contained_labels_table_entry
*));
879 unsigned long offset
;
880 unsigned long entry_size
= 0;
881 unsigned char buf
[12];
882 bfd_sym_data_struct
*sdata
= NULL
;
885 BFD_ASSERT (bfd_sym_valid (abfd
));
886 sdata
= abfd
->tdata
.sym_data
;
891 switch (sdata
->version
)
893 case BFD_SYM_VERSION_3_3
:
894 case BFD_SYM_VERSION_3_2
:
896 parser
= bfd_sym_parse_contained_labels_table_entry_v32
;
899 case BFD_SYM_VERSION_3_5
:
900 case BFD_SYM_VERSION_3_4
:
901 case BFD_SYM_VERSION_3_1
:
909 offset
= compute_offset (sdata
->header
.dshb_clte
.dti_first_page
,
910 sdata
->header
.dshb_page_size
,
913 if (bfd_seek (abfd
, offset
, SEEK_SET
) < 0)
915 if (bfd_bread (buf
, entry_size
, abfd
) != entry_size
)
918 (*parser
) (buf
, entry_size
, entry
);
924 bfd_sym_fetch_contained_types_table_entry (abfd
, entry
, index
)
926 bfd_sym_contained_types_table_entry
*entry
;
929 void (*parser
) PARAMS ((unsigned char *, size_t,
930 bfd_sym_contained_types_table_entry
*));
931 unsigned long offset
;
932 unsigned long entry_size
= 0;
933 unsigned char buf
[0];
934 bfd_sym_data_struct
*sdata
= NULL
;
937 BFD_ASSERT (bfd_sym_valid (abfd
));
938 sdata
= abfd
->tdata
.sym_data
;
943 switch (sdata
->version
)
945 case BFD_SYM_VERSION_3_3
:
946 case BFD_SYM_VERSION_3_2
:
951 case BFD_SYM_VERSION_3_5
:
952 case BFD_SYM_VERSION_3_4
:
953 case BFD_SYM_VERSION_3_1
:
961 offset
= compute_offset (sdata
->header
.dshb_ctte
.dti_first_page
,
962 sdata
->header
.dshb_page_size
,
965 if (bfd_seek (abfd
, offset
, SEEK_SET
) < 0)
967 if (bfd_bread (buf
, entry_size
, abfd
) != entry_size
)
970 (*parser
) (buf
, entry_size
, entry
);
976 bfd_sym_fetch_file_references_index_table_entry (abfd
, entry
, index
)
978 bfd_sym_file_references_index_table_entry
*entry
;
981 void (*parser
) PARAMS ((unsigned char *, size_t,
982 bfd_sym_file_references_index_table_entry
*));
983 unsigned long offset
;
984 unsigned long entry_size
= 0;
985 unsigned char buf
[0];
986 bfd_sym_data_struct
*sdata
= NULL
;
989 BFD_ASSERT (bfd_sym_valid (abfd
));
990 sdata
= abfd
->tdata
.sym_data
;
995 switch (sdata
->version
)
997 case BFD_SYM_VERSION_3_3
:
998 case BFD_SYM_VERSION_3_2
:
1003 case BFD_SYM_VERSION_3_5
:
1004 case BFD_SYM_VERSION_3_4
:
1005 case BFD_SYM_VERSION_3_1
:
1013 offset
= compute_offset (sdata
->header
.dshb_fite
.dti_first_page
,
1014 sdata
->header
.dshb_page_size
,
1017 if (bfd_seek (abfd
, offset
, SEEK_SET
) < 0)
1019 if (bfd_bread (buf
, entry_size
, abfd
) != entry_size
)
1022 (*parser
) (buf
, entry_size
, entry
);
1028 bfd_sym_fetch_constant_pool_entry (abfd
, entry
, index
)
1030 bfd_sym_constant_pool_entry
*entry
;
1031 unsigned long index
;
1033 void (*parser
) PARAMS ((unsigned char *, size_t,
1034 bfd_sym_constant_pool_entry
*));
1035 unsigned long offset
;
1036 unsigned long entry_size
= 0;
1037 unsigned char buf
[0];
1038 bfd_sym_data_struct
*sdata
= NULL
;
1041 BFD_ASSERT (bfd_sym_valid (abfd
));
1042 sdata
= abfd
->tdata
.sym_data
;
1047 switch (sdata
->version
)
1049 case BFD_SYM_VERSION_3_3
:
1050 case BFD_SYM_VERSION_3_2
:
1055 case BFD_SYM_VERSION_3_5
:
1056 case BFD_SYM_VERSION_3_4
:
1057 case BFD_SYM_VERSION_3_1
:
1065 offset
= compute_offset (sdata
->header
.dshb_fite
.dti_first_page
,
1066 sdata
->header
.dshb_page_size
,
1069 if (bfd_seek (abfd
, offset
, SEEK_SET
) < 0)
1071 if (bfd_bread (buf
, entry_size
, abfd
) != entry_size
)
1074 (*parser
) (buf
, entry_size
, entry
);
1080 bfd_sym_fetch_type_table_entry (abfd
, entry
, index
)
1082 bfd_sym_type_table_entry
*entry
;
1083 unsigned long index
;
1085 void (*parser
) PARAMS ((unsigned char *, size_t,
1086 bfd_sym_type_table_entry
*));
1087 unsigned long offset
;
1088 unsigned long entry_size
= 0;
1089 unsigned char buf
[4];
1090 bfd_sym_data_struct
*sdata
= NULL
;
1093 BFD_ASSERT (bfd_sym_valid (abfd
));
1094 sdata
= abfd
->tdata
.sym_data
;
1096 switch (sdata
->version
)
1098 case BFD_SYM_VERSION_3_3
:
1099 case BFD_SYM_VERSION_3_2
:
1101 parser
= bfd_sym_parse_type_table_entry_v32
;
1104 case BFD_SYM_VERSION_3_5
:
1105 case BFD_SYM_VERSION_3_4
:
1106 case BFD_SYM_VERSION_3_1
:
1114 offset
= compute_offset (sdata
->header
.dshb_tte
.dti_first_page
,
1115 sdata
->header
.dshb_page_size
,
1118 if (bfd_seek (abfd
, offset
, SEEK_SET
) < 0)
1120 if (bfd_bread (buf
, entry_size
, abfd
) != entry_size
)
1123 (*parser
) (buf
, entry_size
, entry
);
1129 bfd_sym_fetch_type_information_table_entry (abfd
, entry
, offset
)
1131 bfd_sym_type_information_table_entry
*entry
;
1132 unsigned long offset
;
1134 unsigned char buf
[4];
1135 bfd_sym_data_struct
*sdata
= NULL
;
1137 BFD_ASSERT (bfd_sym_valid (abfd
));
1138 sdata
= abfd
->tdata
.sym_data
;
1143 if (bfd_seek (abfd
, offset
, SEEK_SET
) < 0)
1146 if (bfd_bread (buf
, 4, abfd
) != 4)
1148 entry
->nte_index
= bfd_getb32 (buf
);
1150 if (bfd_bread (buf
, 2, abfd
) != 2)
1152 entry
->physical_size
= bfd_getb16 (buf
);
1154 if (entry
->physical_size
& 0x8000)
1156 if (bfd_bread (buf
, 4, abfd
) != 4)
1158 entry
->physical_size
&= 0x7fff;
1159 entry
->logical_size
= bfd_getb32 (buf
);
1160 entry
->offset
= offset
+ 10;
1164 if (bfd_bread (buf
, 2, abfd
) != 2)
1166 entry
->physical_size
&= 0x7fff;
1167 entry
->logical_size
= bfd_getb16 (buf
);
1168 entry
->offset
= offset
+ 8;
1175 bfd_sym_fetch_type_table_information (abfd
, entry
, index
)
1177 bfd_sym_type_information_table_entry
*entry
;
1178 unsigned long index
;
1180 bfd_sym_type_table_entry tindex
;
1181 bfd_sym_data_struct
*sdata
= NULL
;
1183 BFD_ASSERT (bfd_sym_valid (abfd
));
1184 sdata
= abfd
->tdata
.sym_data
;
1186 if (sdata
->header
.dshb_tte
.dti_object_count
<= 99)
1191 if (bfd_sym_fetch_type_table_entry (abfd
, &tindex
, index
- 100) < 0)
1193 if (bfd_sym_fetch_type_information_table_entry (abfd
, entry
, tindex
) < 0)
1199 const unsigned char *
1200 bfd_sym_symbol_name (abfd
, index
)
1202 unsigned long index
;
1204 bfd_sym_data_struct
*sdata
= NULL
;
1206 BFD_ASSERT (bfd_sym_valid (abfd
));
1207 sdata
= abfd
->tdata
.sym_data
;
1213 if ((index
/ sdata
->header
.dshb_page_size
)
1214 > sdata
->header
.dshb_nte
.dti_page_count
)
1215 return "\009[INVALID]";
1217 return (const unsigned char *) sdata
->name_table
+ index
;
1220 const unsigned char *
1221 bfd_sym_module_name (abfd
, index
)
1223 unsigned long index
;
1225 bfd_sym_modules_table_entry entry
;
1227 if (bfd_sym_fetch_modules_table_entry (abfd
, &entry
, index
) < 0)
1228 return "\011[INVALID]";
1230 return bfd_sym_symbol_name (abfd
, entry
.mte_nte_index
);
1234 bfd_sym_unparse_storage_kind (kind
)
1235 enum bfd_sym_storage_kind kind
;
1239 case BFD_SYM_STORAGE_KIND_LOCAL
: return "LOCAL";
1240 case BFD_SYM_STORAGE_KIND_VALUE
: return "VALUE";
1241 case BFD_SYM_STORAGE_KIND_REFERENCE
: return "REFERENCE";
1242 case BFD_SYM_STORAGE_KIND_WITH
: return "WITH";
1243 default: return "[UNKNOWN]";
1248 bfd_sym_unparse_storage_class (kind
)
1249 enum bfd_sym_storage_class kind
;
1253 case BFD_SYM_STORAGE_CLASS_REGISTER
: return "REGISTER";
1254 case BFD_SYM_STORAGE_CLASS_GLOBAL
: return "GLOBAL";
1255 case BFD_SYM_STORAGE_CLASS_FRAME_RELATIVE
: return "FRAME_RELATIVE";
1256 case BFD_SYM_STORAGE_CLASS_STACK_RELATIVE
: return "STACK_RELATIVE";
1257 case BFD_SYM_STORAGE_CLASS_ABSOLUTE
: return "ABSOLUTE";
1258 case BFD_SYM_STORAGE_CLASS_CONSTANT
: return "CONSTANT";
1259 case BFD_SYM_STORAGE_CLASS_RESOURCE
: return "RESOURCE";
1260 case BFD_SYM_STORAGE_CLASS_BIGCONSTANT
: return "BIGCONSTANT";
1261 default: return "[UNKNOWN]";
1266 bfd_sym_unparse_module_kind (kind
)
1267 enum bfd_sym_module_kind kind
;
1271 case BFD_SYM_MODULE_KIND_NONE
: return "NONE";
1272 case BFD_SYM_MODULE_KIND_PROGRAM
: return "PROGRAM";
1273 case BFD_SYM_MODULE_KIND_UNIT
: return "UNIT";
1274 case BFD_SYM_MODULE_KIND_PROCEDURE
: return "PROCEDURE";
1275 case BFD_SYM_MODULE_KIND_FUNCTION
: return "FUNCTION";
1276 case BFD_SYM_MODULE_KIND_DATA
: return "DATA";
1277 case BFD_SYM_MODULE_KIND_BLOCK
: return "BLOCK";
1278 default: return "[UNKNOWN]";
1283 bfd_sym_unparse_symbol_scope (scope
)
1284 enum bfd_sym_symbol_scope scope
;
1288 case BFD_SYM_SYMBOL_SCOPE_LOCAL
: return "LOCAL";
1289 case BFD_SYM_SYMBOL_SCOPE_GLOBAL
: return "GLOBAL";
1296 bfd_sym_print_file_reference (abfd
, f
, entry
)
1299 bfd_sym_file_reference
*entry
;
1301 bfd_sym_file_references_table_entry frtentry
;
1304 ret
= bfd_sym_fetch_file_references_table_entry (abfd
, &frtentry
,
1305 entry
->fref_frte_index
);
1306 fprintf (f
, "FILE ");
1308 if ((ret
< 0) || (frtentry
.generic
.type
!= BFD_SYM_FILE_NAME_INDEX
))
1309 fprintf (f
, "[INVALID]");
1311 fprintf (f
, "\"%.*s\"",
1312 bfd_sym_symbol_name (abfd
, frtentry
.filename
.nte_index
)[0],
1313 &bfd_sym_symbol_name (abfd
, frtentry
.filename
.nte_index
)[1]);
1315 fprintf (f
, " (FRTE %lu)", entry
->fref_frte_index
);
1319 bfd_sym_print_resources_table_entry (abfd
, f
, entry
)
1322 bfd_sym_resources_table_entry
*entry
;
1324 fprintf (f
, " \"%.*s\" (NTE %lu), type \"%.4s\", num %u, size %lu, MTE %lu -- %lu",
1325 bfd_sym_symbol_name (abfd
, entry
->rte_nte_index
)[0],
1326 &bfd_sym_symbol_name (abfd
, entry
->rte_nte_index
)[1],
1327 entry
->rte_nte_index
, entry
->rte_res_type
, entry
->rte_res_number
,
1328 entry
->rte_res_size
, entry
->rte_mte_first
, entry
->rte_mte_last
);
1332 bfd_sym_print_modules_table_entry (abfd
, f
, entry
)
1335 bfd_sym_modules_table_entry
*entry
;
1337 fprintf (f
, "\"%.*s\" (NTE %lu)",
1338 bfd_sym_symbol_name (abfd
, entry
->mte_nte_index
)[0],
1339 &bfd_sym_symbol_name (abfd
, entry
->mte_nte_index
)[1],
1340 entry
->mte_nte_index
);
1344 bfd_sym_print_file_reference (abfd
, f
, &entry
->mte_imp_fref
);
1345 fprintf (f
, " range %lu -- %lu",
1346 entry
->mte_imp_fref
.fref_offset
, entry
->mte_imp_end
);
1350 fprintf (f
, "kind %s", bfd_sym_unparse_module_kind (entry
->mte_kind
));
1351 fprintf (f
, ", scope %s", bfd_sym_unparse_symbol_scope (entry
->mte_scope
));
1353 fprintf (f
, ", RTE %lu, offset %lu, size %lu",
1354 entry
->mte_rte_index
, entry
->mte_res_offset
, entry
->mte_size
);
1358 fprintf (f
, "CMTE %lu, CVTE %lu, CLTE %lu, CTTE %lu, CSNTE1 %lu, CSNTE2 %lu",
1359 entry
->mte_cmte_index
, entry
->mte_cvte_index
,
1360 entry
->mte_clte_index
, entry
->mte_ctte_index
,
1361 entry
->mte_csnte_idx_1
, entry
->mte_csnte_idx_2
);
1363 if (entry
->mte_parent
!= 0)
1364 fprintf (f
, ", parent %lu", entry
->mte_parent
);
1366 fprintf (f
, ", no parent");
1368 if (entry
->mte_cmte_index
!= 0)
1369 fprintf (f
, ", child %lu", entry
->mte_cmte_index
);
1371 fprintf (f
, ", no child");
1375 bfd_sym_print_file_references_table_entry (abfd
, f
, entry
)
1378 bfd_sym_file_references_table_entry
*entry
;
1380 switch (entry
->generic
.type
)
1382 case BFD_SYM_FILE_NAME_INDEX
:
1383 fprintf (f
, "FILE \"%.*s\" (NTE %lu), modtime ",
1384 bfd_sym_symbol_name (abfd
, entry
->filename
.nte_index
)[0],
1385 &bfd_sym_symbol_name (abfd
, entry
->filename
.nte_index
)[1],
1386 entry
->filename
.nte_index
);
1388 fprintf (f
, "[UNIMPLEMENTED]");
1389 /* printModDate (entry->filename.mod_date); */
1390 fprintf (f
, " (0x%lx)", entry
->filename
.mod_date
);
1393 case BFD_SYM_END_OF_LIST
:
1398 fprintf (f
, "\"%.*s\" (MTE %lu), offset %lu",
1399 bfd_sym_module_name (abfd
, entry
->entry
.mte_index
)[0],
1400 &bfd_sym_module_name (abfd
, entry
->entry
.mte_index
)[1],
1401 entry
->entry
.mte_index
,
1402 entry
->entry
.file_offset
);
1408 bfd_sym_print_contained_modules_table_entry (abfd
, f
, entry
)
1411 bfd_sym_contained_modules_table_entry
*entry
;
1413 switch (entry
->generic
.type
)
1415 case BFD_SYM_END_OF_LIST
:
1420 fprintf (f
, "\"%.*s\" (MTE %lu, NTE %lu)",
1421 bfd_sym_module_name (abfd
, entry
->entry
.mte_index
)[0],
1422 &bfd_sym_module_name (abfd
, entry
->entry
.mte_index
)[1],
1423 entry
->entry
.mte_index
,
1424 entry
->entry
.nte_index
);
1430 bfd_sym_print_contained_variables_table_entry (abfd
, f
, entry
)
1433 bfd_sym_contained_variables_table_entry
*entry
;
1435 if (entry
->generic
.type
== BFD_SYM_END_OF_LIST
)
1441 if (entry
->generic
.type
== BFD_SYM_SOURCE_FILE_CHANGE
)
1443 bfd_sym_print_file_reference (abfd
, f
, &entry
->file
.fref
);
1444 fprintf (f
, " offset %lu", entry
->file
.fref
.fref_offset
);
1448 fprintf (f
, "\"%.*s\" (NTE %lu)",
1449 bfd_sym_symbol_name (abfd
, entry
->entry
.nte_index
)[0],
1450 &bfd_sym_symbol_name (abfd
, entry
->entry
.nte_index
)[1],
1451 entry
->entry
.nte_index
);
1453 fprintf (f
, ", TTE %lu", entry
->entry
.tte_index
);
1454 fprintf (f
, ", offset %lu", entry
->entry
.file_delta
);
1455 fprintf (f
, ", scope %s", bfd_sym_unparse_symbol_scope (entry
->entry
.scope
));
1457 if (entry
->entry
.la_size
== BFD_SYM_CVTE_SCA
)
1458 fprintf (f
, ", latype %s, laclass %s, laoffset %lu",
1459 bfd_sym_unparse_storage_kind (entry
->entry
.address
.scstruct
.sca_kind
),
1460 bfd_sym_unparse_storage_class (entry
->entry
.address
.scstruct
.sca_class
),
1461 entry
->entry
.address
.scstruct
.sca_offset
);
1462 else if (entry
->entry
.la_size
<= BFD_SYM_CVTE_LA_MAX_SIZE
)
1466 fprintf (f
, ", la [");
1467 for (i
= 0; i
< entry
->entry
.la_size
; i
++)
1468 fprintf (f
, "0x%02x ", entry
->entry
.address
.lastruct
.la
[i
]);
1471 else if (entry
->entry
.la_size
== BFD_SYM_CVTE_BIG_LA
)
1472 fprintf (f
, ", bigla %lu, biglakind %u",
1473 entry
->entry
.address
.biglastruct
.big_la
,
1474 entry
->entry
.address
.biglastruct
.big_la_kind
);
1477 fprintf (f
, ", la [INVALID]");
1481 bfd_sym_print_contained_statements_table_entry (abfd
, f
, entry
)
1484 bfd_sym_contained_statements_table_entry
*entry
;
1486 if (entry
->generic
.type
== BFD_SYM_END_OF_LIST
)
1492 if (entry
->generic
.type
== BFD_SYM_SOURCE_FILE_CHANGE
)
1494 bfd_sym_print_file_reference (abfd
, f
, &entry
->file
.fref
);
1495 fprintf (f
, " offset %lu", entry
->file
.fref
.fref_offset
);
1499 fprintf (f
, "\"%.*s\" (MTE %lu), offset %lu, delta %lu",
1500 bfd_sym_module_name (abfd
, entry
->entry
.mte_index
)[0],
1501 &bfd_sym_module_name (abfd
, entry
->entry
.mte_index
)[1],
1502 entry
->entry
.mte_index
,
1503 entry
->entry
.mte_offset
,
1504 entry
->entry
.file_delta
);
1508 bfd_sym_print_contained_labels_table_entry (abfd
, f
, entry
)
1511 bfd_sym_contained_labels_table_entry
*entry
;
1513 if (entry
->generic
.type
== BFD_SYM_END_OF_LIST
)
1519 if (entry
->generic
.type
== BFD_SYM_SOURCE_FILE_CHANGE
)
1521 bfd_sym_print_file_reference (abfd
, f
, &entry
->file
.fref
);
1522 fprintf (f
, " offset %lu", entry
->file
.fref
.fref_offset
);
1526 fprintf (f
, "\"%.*s\" (MTE %lu), offset %lu, delta %lu, scope %s",
1527 bfd_sym_module_name (abfd
, entry
->entry
.mte_index
)[0],
1528 &bfd_sym_module_name (abfd
, entry
->entry
.mte_index
)[1],
1529 entry
->entry
.mte_index
,
1530 entry
->entry
.mte_offset
,
1531 entry
->entry
.file_delta
,
1532 bfd_sym_unparse_symbol_scope (entry
->entry
.scope
));
1536 bfd_sym_print_contained_types_table_entry (abfd
, f
, entry
)
1537 bfd
*abfd ATTRIBUTE_UNUSED
;
1539 bfd_sym_contained_types_table_entry
*entry ATTRIBUTE_UNUSED
;
1541 fprintf (f
, "[UNIMPLEMENTED]");
1545 bfd_sym_type_operator_name (num
)
1550 case 1: return "TTE";
1551 case 2: return "PointerTo";
1552 case 3: return "ScalarOf";
1553 case 4: return "ConstantOf";
1554 case 5: return "EnumerationOf";
1555 case 6: return "VectorOf";
1556 case 7: return "RecordOf";
1557 case 8: return "UnionOf";
1558 case 9: return "SubRangeOf";
1559 case 10: return "SetOf";
1560 case 11: return "NamedTypeOf";
1561 case 12: return "ProcOf";
1562 case 13: return "ValueOf";
1563 case 14: return "ArrayOf";
1564 default: return "[UNKNOWN OPERATOR]";
1569 bfd_sym_type_basic_name (num
)
1574 case 0: return "void";
1575 case 1: return "pascal string";
1576 case 2: return "unsigned long";
1577 case 3: return "signed long";
1578 case 4: return "extended (10 bytes)";
1579 case 5: return "pascal boolean (1 byte)";
1580 case 6: return "unsigned byte";
1581 case 7: return "signed byte";
1582 case 8: return "character (1 byte)";
1583 case 9: return "wide character (2 bytes)";
1584 case 10: return "unsigned short";
1585 case 11: return "signed short";
1586 case 12: return "singled";
1587 case 13: return "double";
1588 case 14: return "extended (12 bytes)";
1589 case 15: return "computational (8 bytes)";
1590 case 16: return "c string";
1591 case 17: return "as-is string";
1592 default: return "[UNKNOWN BASIC TYPE]";
1597 bfd_sym_fetch_long (buf
, len
, offset
, offsetptr
, value
)
1600 unsigned long offset
;
1601 unsigned long *offsetptr
;
1612 else if (! (buf
[offset
] & 0x80))
1614 *value
= buf
[offset
];
1618 else if (buf
[offset
] == 0xc0)
1620 if ((offset
+ 5) > len
)
1628 *value
= bfd_getb32 (buf
+ offset
+ 1);
1633 else if ((buf
[offset
] & 0xc0) == 0xc0)
1635 *value
= -(buf
[offset
] & 0x3f);
1639 else if ((buf
[offset
] & 0xc0) == 0x80)
1641 if ((offset
+ 2) > len
)
1649 *value
= bfd_getb16 (buf
+ offset
) & 0x3fff;
1657 if (offsetptr
!= NULL
)
1658 *offsetptr
= offset
;
1664 bfd_sym_print_type_information (abfd
, f
, buf
, len
, offset
, offsetptr
)
1669 unsigned long offset
;
1670 unsigned long *offsetptr
;
1676 fprintf (f
, "[NULL]");
1678 if (offsetptr
!= NULL
)
1679 *offsetptr
= offset
;
1686 if (! (type
& 0x80))
1688 fprintf (f
, "[%s] (0x%x)", bfd_sym_type_basic_name (type
& 0x7f), type
);
1690 if (offsetptr
!= NULL
)
1691 *offsetptr
= offset
;
1696 fprintf (f
, "[packed ");
1700 switch (type
& 0x3f)
1705 bfd_sym_type_information_table_entry tinfo
;
1707 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &value
);
1709 fprintf (f
, "[INVALID]");
1712 if (bfd_sym_fetch_type_table_information (abfd
, &tinfo
, value
) < 0)
1713 fprintf (f
, "[INVALID]");
1715 fprintf (f
, "\"%.*s\"",
1716 bfd_sym_symbol_name (abfd
, tinfo
.nte_index
)[0],
1717 &bfd_sym_symbol_name (abfd
, tinfo
.nte_index
)[1]);
1719 fprintf (f
, " (TTE %lu)", value
);
1724 fprintf (f
, "pointer (0x%x) to ", type
);
1725 bfd_sym_print_type_information (abfd
, f
, buf
, len
, offset
, &offset
);
1730 unsigned long value
;
1732 fprintf (f
, "scalar (0x%x) of ", type
);
1733 bfd_sym_print_type_information (abfd
, f
, buf
, len
, offset
, &offset
);
1734 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &value
);
1735 fprintf (f
, " (%lu)", value
);
1741 unsigned long lower
, upper
, nelem
;
1744 fprintf (f
, "enumeration (0x%x) of ", type
);
1745 bfd_sym_print_type_information (abfd
, f
, buf
, len
, offset
, &offset
);
1746 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &lower
);
1747 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &upper
);
1748 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &nelem
);
1749 fprintf (f
, " from %lu to %lu with %lu elements: ", lower
, upper
, nelem
);
1751 for (i
= 0; i
< nelem
; i
++)
1754 bfd_sym_print_type_information (abfd
, f
, buf
, len
, offset
, &offset
);
1760 fprintf (f
, "vector (0x%x)", type
);
1761 fprintf (f
, "\n index ");
1762 bfd_sym_print_type_information (abfd
, f
, buf
, len
, offset
, &offset
);
1763 fprintf (f
, "\n target ");
1764 bfd_sym_print_type_information (abfd
, f
, buf
, len
, offset
, &offset
);
1770 long nrec
, eloff
, i
;
1772 if ((type
& 0x3f) == 7)
1773 fprintf (f
, "record (0x%x) of ", type
);
1775 fprintf (f
, "union (0x%x) of ", type
);
1777 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &nrec
);
1778 fprintf (f
, "%lu elements: ", nrec
);
1780 for (i
= 0; i
< nrec
; i
++)
1782 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &eloff
);
1784 fprintf (f
, "offset %lu: ", eloff
);
1785 bfd_sym_print_type_information (abfd
, f
, buf
, len
, offset
, &offset
);
1791 fprintf (f
, "subrange (0x%x) of ", type
);
1792 bfd_sym_print_type_information (abfd
, f
, buf
, len
, offset
, &offset
);
1793 fprintf (f
, " lower ");
1794 bfd_sym_print_type_information (abfd
, f
, buf
, len
, offset
, &offset
);
1795 fprintf (f
, " upper ");
1796 bfd_sym_print_type_information (abfd
, f
, buf
, len
, offset
, &offset
);
1803 fprintf (f
, "named type (0x%x) ", type
);
1804 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &value
);
1806 fprintf (f
, "[INVALID]");
1808 fprintf (f
, "\"%.*s\"",
1809 bfd_sym_symbol_name (abfd
, value
)[0],
1810 &bfd_sym_symbol_name (abfd
, value
)[1]);
1812 fprintf (f
, " (NTE %lu) with type ", value
);
1813 bfd_sym_print_type_information (abfd
, f
, buf
, len
, offset
, &offset
);
1818 fprintf (f
, "%s (0x%x)", bfd_sym_type_operator_name (type
), type
);
1822 if (type
== (0x40 | 0x6))
1829 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &n
);
1830 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &width
);
1831 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &m
);
1832 /* fprintf (f, "\n "); */
1833 fprintf (f
, " N %ld, width %ld, M %ld, ", n
, width
, m
);
1834 for (i
= 0; i
< m
; i
++)
1836 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &l
);
1839 fprintf (f
, "%ld", l
);
1842 else if (type
& 0x40)
1844 /* Other packed type. */
1847 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &msb
);
1848 bfd_sym_fetch_long (buf
, len
, offset
, &offset
, &lsb
);
1849 /* fprintf (f, "\n "); */
1850 fprintf (f
, " msb %ld, lsb %ld", msb
, lsb
);
1855 if (offsetptr
!= NULL
)
1856 *offsetptr
= offset
;
1860 bfd_sym_print_type_information_table_entry (abfd
, f
, entry
)
1863 bfd_sym_type_information_table_entry
*entry
;
1866 unsigned long offset
;
1869 fprintf (f
, "\"%.*s\" (NTE %lu), %lu bytes at %lu, logical size %lu",
1870 bfd_sym_symbol_name (abfd
, entry
->nte_index
)[0],
1871 &bfd_sym_symbol_name (abfd
, entry
->nte_index
)[1],
1873 entry
->physical_size
, entry
->offset
, entry
->logical_size
);
1877 buf
= alloca (entry
->physical_size
);
1880 fprintf (f
, "[ERROR]\n");
1883 if (bfd_seek (abfd
, entry
->offset
, SEEK_SET
) < 0)
1885 fprintf (f
, "[ERROR]\n");
1888 if (bfd_bread (buf
, entry
->physical_size
, abfd
) != entry
->physical_size
)
1890 fprintf (f
, "[ERROR]\n");
1895 for (i
= 0; i
< entry
->physical_size
; i
++)
1898 fprintf (f
, "0x%02x", buf
[i
]);
1900 fprintf (f
, " 0x%02x", buf
[i
]);
1906 bfd_sym_print_type_information (abfd
, f
, buf
, entry
->physical_size
, 0, &offset
);
1908 if (offset
!= entry
->physical_size
)
1909 fprintf (f
, "\n [parser used %lu bytes instead of %lu]", offset
, entry
->physical_size
); }
1912 bfd_sym_print_file_references_index_table_entry (abfd
, f
, entry
)
1913 bfd
*abfd ATTRIBUTE_UNUSED
;
1915 bfd_sym_file_references_index_table_entry
*entry ATTRIBUTE_UNUSED
;
1917 fprintf (f
, "[UNIMPLEMENTED]");
1921 bfd_sym_print_constant_pool_entry (abfd
, f
, entry
)
1922 bfd
*abfd ATTRIBUTE_UNUSED
;
1924 bfd_sym_constant_pool_entry
*entry ATTRIBUTE_UNUSED
;
1926 fprintf (f
, "[UNIMPLEMENTED]");
1930 bfd_sym_display_name_table_entry (abfd
, f
, entry
)
1933 unsigned char *entry
;
1935 unsigned long index
;
1936 unsigned long offset
;
1937 bfd_sym_data_struct
*sdata
= NULL
;
1939 BFD_ASSERT (bfd_sym_valid (abfd
));
1940 sdata
= abfd
->tdata
.sym_data
;
1941 index
= (entry
- sdata
->name_table
) / 2;
1943 if (sdata
->version
>= BFD_SYM_VERSION_3_4
&& entry
[0] == 255 && entry
[1] == 0)
1945 unsigned short length
= bfd_getb16 (entry
+ 2);
1946 fprintf (f
, "[%8lu] \"%.*s\"\n", index
, length
, entry
+ 4);
1947 offset
= 2 + length
+ 1;
1951 if (! (entry
[0] == 0 || (entry
[0] == 1 && entry
[1] == '\0')))
1952 fprintf (f
, "[%8lu] \"%.*s\"\n", index
, entry
[0], entry
+ 1);
1954 if (sdata
->version
>= BFD_SYM_VERSION_3_4
)
1955 offset
= entry
[0] + 2;
1957 offset
= entry
[0] + 1;
1960 return (entry
+ offset
+ (offset
% 2));
1964 bfd_sym_display_name_table (abfd
, f
)
1968 unsigned long name_table_len
;
1969 unsigned char *name_table
, *name_table_end
, *cur
;
1970 bfd_sym_data_struct
*sdata
= NULL
;
1972 BFD_ASSERT (bfd_sym_valid (abfd
));
1973 sdata
= abfd
->tdata
.sym_data
;
1975 name_table_len
= sdata
->header
.dshb_nte
.dti_page_count
* sdata
->header
.dshb_page_size
;
1976 name_table
= sdata
->name_table
;
1977 name_table_end
= name_table
+ name_table_len
;
1979 fprintf (f
, "name table (NTE) contains %lu bytes:\n\n", name_table_len
);
1984 cur
= bfd_sym_display_name_table_entry (abfd
, f
, cur
);
1985 if (cur
>= name_table_end
)
1991 bfd_sym_display_resources_table (abfd
, f
)
1996 bfd_sym_resources_table_entry entry
;
1997 bfd_sym_data_struct
*sdata
= NULL
;
1999 BFD_ASSERT (bfd_sym_valid (abfd
));
2000 sdata
= abfd
->tdata
.sym_data
;
2002 fprintf (f
, "resource table (RTE) contains %lu objects:\n\n",
2003 sdata
->header
.dshb_rte
.dti_object_count
);
2005 for (i
= 1; i
<= sdata
->header
.dshb_rte
.dti_object_count
; i
++)
2007 if (bfd_sym_fetch_resources_table_entry (abfd
, &entry
, i
) < 0)
2008 fprintf (f
, " [%8lu] [INVALID]\n", i
);
2011 fprintf (f
, " [%8lu] ", i
);
2012 bfd_sym_print_resources_table_entry (abfd
, f
, &entry
);
2019 bfd_sym_display_modules_table (abfd
, f
)
2024 bfd_sym_modules_table_entry entry
;
2025 bfd_sym_data_struct
*sdata
= NULL
;
2027 BFD_ASSERT (bfd_sym_valid (abfd
));
2028 sdata
= abfd
->tdata
.sym_data
;
2030 fprintf (f
, "module table (MTE) contains %lu objects:\n\n",
2031 sdata
->header
.dshb_mte
.dti_object_count
);
2033 for (i
= 1; i
<= sdata
->header
.dshb_mte
.dti_object_count
; i
++)
2035 if (bfd_sym_fetch_modules_table_entry (abfd
, &entry
, i
) < 0)
2036 fprintf (f
, " [%8lu] [INVALID]\n", i
);
2039 fprintf (f
, " [%8lu] ", i
);
2040 bfd_sym_print_modules_table_entry (abfd
, f
, &entry
);
2047 bfd_sym_display_file_references_table (abfd
, f
)
2052 bfd_sym_file_references_table_entry entry
;
2053 bfd_sym_data_struct
*sdata
= NULL
;
2055 BFD_ASSERT (bfd_sym_valid (abfd
));
2056 sdata
= abfd
->tdata
.sym_data
;
2058 fprintf (f
, "file reference table (FRTE) contains %lu objects:\n\n",
2059 sdata
->header
.dshb_frte
.dti_object_count
);
2061 for (i
= 1; i
<= sdata
->header
.dshb_frte
.dti_object_count
; i
++)
2063 if (bfd_sym_fetch_file_references_table_entry (abfd
, &entry
, i
) < 0)
2064 fprintf (f
, " [%8lu] [INVALID]\n", i
);
2067 fprintf (f
, " [%8lu] ", i
);
2068 bfd_sym_print_file_references_table_entry (abfd
, f
, &entry
);
2075 bfd_sym_display_contained_modules_table (abfd
, f
)
2080 bfd_sym_contained_modules_table_entry entry
;
2081 bfd_sym_data_struct
*sdata
= NULL
;
2083 BFD_ASSERT (bfd_sym_valid (abfd
));
2084 sdata
= abfd
->tdata
.sym_data
;
2086 fprintf (f
, "contained modules table (CMTE) contains %lu objects:\n\n",
2087 sdata
->header
.dshb_cmte
.dti_object_count
);
2089 for (i
= 1; i
<= sdata
->header
.dshb_cmte
.dti_object_count
; i
++)
2091 if (bfd_sym_fetch_contained_modules_table_entry (abfd
, &entry
, i
) < 0)
2092 fprintf (f
, " [%8lu] [INVALID]\n", i
);
2095 fprintf (f
, " [%8lu] ", i
);
2096 bfd_sym_print_contained_modules_table_entry (abfd
, f
, &entry
);
2103 bfd_sym_display_contained_variables_table (abfd
, f
)
2108 bfd_sym_contained_variables_table_entry entry
;
2109 bfd_sym_data_struct
*sdata
= NULL
;
2111 BFD_ASSERT (bfd_sym_valid (abfd
));
2112 sdata
= abfd
->tdata
.sym_data
;
2114 fprintf (f
, "contained variables table (CVTE) contains %lu objects:\n\n",
2115 sdata
->header
.dshb_cvte
.dti_object_count
);
2117 for (i
= 1; i
<= sdata
->header
.dshb_cvte
.dti_object_count
; i
++)
2119 if (bfd_sym_fetch_contained_variables_table_entry (abfd
, &entry
, i
) < 0)
2120 fprintf (f
, " [%8lu] [INVALID]\n", i
);
2123 fprintf (f
, " [%8lu] ", i
);
2124 bfd_sym_print_contained_variables_table_entry (abfd
, f
, &entry
);
2133 bfd_sym_display_contained_statements_table (abfd
, f
)
2138 bfd_sym_contained_statements_table_entry entry
;
2139 bfd_sym_data_struct
*sdata
= NULL
;
2141 BFD_ASSERT (bfd_sym_valid (abfd
));
2142 sdata
= abfd
->tdata
.sym_data
;
2144 fprintf (f
, "contained statements table (CSNTE) contains %lu objects:\n\n",
2145 sdata
->header
.dshb_csnte
.dti_object_count
);
2147 for (i
= 1; i
<= sdata
->header
.dshb_csnte
.dti_object_count
; i
++)
2149 if (bfd_sym_fetch_contained_statements_table_entry (abfd
, &entry
, i
) < 0)
2150 fprintf (f
, " [%8lu] [INVALID]\n", i
);
2153 fprintf (f
, " [%8lu] ", i
);
2154 bfd_sym_print_contained_statements_table_entry (abfd
, f
, &entry
);
2161 bfd_sym_display_contained_labels_table (abfd
, f
)
2166 bfd_sym_contained_labels_table_entry entry
;
2167 bfd_sym_data_struct
*sdata
= NULL
;
2169 BFD_ASSERT (bfd_sym_valid (abfd
));
2170 sdata
= abfd
->tdata
.sym_data
;
2172 fprintf (f
, "contained labels table (CLTE) contains %lu objects:\n\n",
2173 sdata
->header
.dshb_clte
.dti_object_count
);
2175 for (i
= 1; i
<= sdata
->header
.dshb_clte
.dti_object_count
; i
++)
2177 if (bfd_sym_fetch_contained_labels_table_entry (abfd
, &entry
, i
) < 0)
2178 fprintf (f
, " [%8lu] [INVALID]\n", i
);
2181 fprintf (f
, " [%8lu] ", i
);
2182 bfd_sym_print_contained_labels_table_entry (abfd
, f
, &entry
);
2189 bfd_sym_display_contained_types_table (abfd
, f
)
2194 bfd_sym_contained_types_table_entry entry
;
2195 bfd_sym_data_struct
*sdata
= NULL
;
2197 BFD_ASSERT (bfd_sym_valid (abfd
));
2198 sdata
= abfd
->tdata
.sym_data
;
2200 fprintf (f
, "contained types table (CTTE) contains %lu objects:\n\n",
2201 sdata
->header
.dshb_ctte
.dti_object_count
);
2203 for (i
= 1; i
<= sdata
->header
.dshb_ctte
.dti_object_count
; i
++)
2205 if (bfd_sym_fetch_contained_types_table_entry (abfd
, &entry
, i
) < 0)
2206 fprintf (f
, " [%8lu] [INVALID]\n", i
);
2209 fprintf (f
, " [%8lu] ", i
);
2210 bfd_sym_print_contained_types_table_entry (abfd
, f
, &entry
);
2217 bfd_sym_display_file_references_index_table (abfd
, f
)
2222 bfd_sym_file_references_index_table_entry entry
;
2223 bfd_sym_data_struct
*sdata
= NULL
;
2225 BFD_ASSERT (bfd_sym_valid (abfd
));
2226 sdata
= abfd
->tdata
.sym_data
;
2228 fprintf (f
, "file references index table (FITE) contains %lu objects:\n\n",
2229 sdata
->header
.dshb_fite
.dti_object_count
);
2231 for (i
= 1; i
<= sdata
->header
.dshb_fite
.dti_object_count
; i
++)
2233 if (bfd_sym_fetch_file_references_index_table_entry (abfd
, &entry
, i
) < 0)
2234 fprintf (f
, " [%8lu] [INVALID]\n", i
);
2237 fprintf (f
, " [%8lu] ", i
);
2238 bfd_sym_print_file_references_index_table_entry (abfd
, f
, &entry
);
2245 bfd_sym_display_constant_pool (abfd
, f
)
2250 bfd_sym_constant_pool_entry entry
;
2251 bfd_sym_data_struct
*sdata
= NULL
;
2253 BFD_ASSERT (bfd_sym_valid (abfd
));
2254 sdata
= abfd
->tdata
.sym_data
;
2256 fprintf (f
, "constant pool (CONST) contains %lu objects:\n\n",
2257 sdata
->header
.dshb_const
.dti_object_count
);
2259 for (i
= 1; i
<= sdata
->header
.dshb_const
.dti_object_count
; i
++)
2261 if (bfd_sym_fetch_constant_pool_entry (abfd
, &entry
, i
) < 0)
2262 fprintf (f
, " [%8lu] [INVALID]\n", i
);
2265 fprintf (f
, " [%8lu] ", i
);
2266 bfd_sym_print_constant_pool_entry (abfd
, f
, &entry
);
2273 bfd_sym_display_type_information_table (abfd
, f
)
2278 bfd_sym_type_table_entry index
;
2279 bfd_sym_type_information_table_entry entry
;
2280 bfd_sym_data_struct
*sdata
= NULL
;
2282 BFD_ASSERT (bfd_sym_valid (abfd
));
2283 sdata
= abfd
->tdata
.sym_data
;
2285 if (sdata
->header
.dshb_tte
.dti_object_count
> 99)
2286 fprintf (f
, "type table (TINFO) contains %lu objects:\n\n",
2287 sdata
->header
.dshb_tte
.dti_object_count
- 99);
2290 fprintf (f
, "type table (TINFO) contains [INVALID] objects:\n\n");
2294 for (i
= 100; i
<= sdata
->header
.dshb_tte
.dti_object_count
; i
++)
2296 if (bfd_sym_fetch_type_table_entry (abfd
, &index
, i
- 100) < 0)
2297 fprintf (f
, " [%8lu] [INVALID]\n", i
);
2300 fprintf (f
, " [%8lu] (TINFO %lu) ", i
, index
);
2302 if (bfd_sym_fetch_type_information_table_entry (abfd
, &entry
, index
) < 0)
2303 fprintf (f
, "[INVALID]");
2305 bfd_sym_print_type_information_table_entry (abfd
, f
, &entry
);
2313 bfd_sym_scan (abfd
, version
, mdata
)
2315 bfd_sym_version version
;
2316 bfd_sym_data_struct
*mdata
;
2319 const char *name
= "symbols";
2321 mdata
->name_table
= 0;
2323 mdata
->version
= version
;
2325 bfd_seek (abfd
, 0, SEEK_SET
);
2326 if (bfd_sym_read_header (abfd
, &mdata
->header
, mdata
->version
) != 0)
2329 mdata
->name_table
= bfd_sym_read_name_table (abfd
, &mdata
->header
);
2330 if (mdata
->name_table
== NULL
)
2333 bfdsec
= bfd_make_section_anyway (abfd
, name
);
2340 bfdsec
->filepos
= 0;
2341 bfdsec
->alignment_power
= 0;
2343 bfdsec
->flags
= SEC_HAS_CONTENTS
;
2345 abfd
->tdata
.sym_data
= mdata
;
2351 bfd_sym_object_p (abfd
)
2354 struct bfd_preserve preserve
;
2355 bfd_sym_version version
= -1;
2357 preserve
.marker
= NULL
;
2358 bfd_seek (abfd
, 0, SEEK_SET
);
2359 if (bfd_sym_read_version (abfd
, &version
) != 0)
2362 preserve
.marker
= bfd_alloc (abfd
, sizeof (bfd_sym_data_struct
));
2363 if (preserve
.marker
== NULL
2364 || ! bfd_preserve_save (abfd
, &preserve
))
2367 if (bfd_sym_scan (abfd
, version
,
2368 (bfd_sym_data_struct
*) preserve
.marker
) != 0)
2371 bfd_preserve_finish (abfd
, &preserve
);
2375 bfd_set_error (bfd_error_wrong_format
);
2378 if (preserve
.marker
!= NULL
)
2379 bfd_preserve_restore (abfd
, &preserve
);
2384 bfd_sym_make_empty_symbol (abfd
)
2387 return (asymbol
*) bfd_alloc (abfd
, sizeof (asymbol
));
2391 bfd_sym_get_symbol_info (abfd
, symbol
, ret
)
2392 bfd
*abfd ATTRIBUTE_UNUSED
;
2396 bfd_symbol_info (symbol
, ret
);
2400 bfd_sym_get_symtab_upper_bound (abfd
)
2401 bfd
*abfd ATTRIBUTE_UNUSED
;
2407 bfd_sym_canonicalize_symtab (abfd
, sym
)
2408 bfd
*abfd ATTRIBUTE_UNUSED
;
2409 asymbol
**sym ATTRIBUTE_UNUSED
;
2415 bfd_sym_sizeof_headers (abfd
, exec
)
2416 bfd
*abfd ATTRIBUTE_UNUSED
;
2417 bfd_boolean exec ATTRIBUTE_UNUSED
;
2422 const bfd_target sym_vec
=
2425 bfd_target_sym_flavour
, /* flavour */
2426 BFD_ENDIAN_BIG
, /* byteorder */
2427 BFD_ENDIAN_BIG
, /* header_byteorder */
2428 (HAS_RELOC
| EXEC_P
| /* object flags */
2429 HAS_LINENO
| HAS_DEBUG
|
2430 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
| D_PAGED
),
2431 (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
| SEC_DATA
2432 | SEC_ROM
| SEC_HAS_CONTENTS
), /* section_flags */
2433 0, /* symbol_leading_char */
2434 ' ', /* ar_pad_char */
2435 16, /* ar_max_namelen */
2436 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
2437 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
2438 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* data */
2439 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
2440 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
2441 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* hdrs */
2442 { /* bfd_check_format */
2444 bfd_sym_object_p
, /* bfd_check_format */
2448 { /* bfd_set_format */
2454 { /* bfd_write_contents */
2461 BFD_JUMP_TABLE_GENERIC (bfd_sym
),
2462 BFD_JUMP_TABLE_COPY (_bfd_generic
),
2463 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
2464 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive
),
2465 BFD_JUMP_TABLE_SYMBOLS (bfd_sym
),
2466 BFD_JUMP_TABLE_RELOCS (bfd_sym
),
2467 BFD_JUMP_TABLE_WRITE (bfd_sym
),
2468 BFD_JUMP_TABLE_LINK (bfd_sym
),
2469 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic
),