1 /* PEF support for BFD.
2 Copyright 1999, 2000, 2001, 2002
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. */
24 #include "pef-traceback.h"
30 #include "libiberty.h"
33 #define BFD_IO_FUNCS 0
36 #define bfd_pef_close_and_cleanup _bfd_generic_close_and_cleanup
37 #define bfd_pef_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
38 #define bfd_pef_new_section_hook _bfd_generic_new_section_hook
39 #define bfd_pef_bfd_is_local_label_name bfd_generic_is_local_label_name
40 #define bfd_pef_get_lineno _bfd_nosymbols_get_lineno
41 #define bfd_pef_find_nearest_line _bfd_nosymbols_find_nearest_line
42 #define bfd_pef_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
43 #define bfd_pef_read_minisymbols _bfd_generic_read_minisymbols
44 #define bfd_pef_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
46 #define bfd_pef_get_reloc_upper_bound _bfd_norelocs_get_reloc_upper_bound
47 #define bfd_pef_canonicalize_reloc _bfd_norelocs_canonicalize_reloc
48 #define bfd_pef_bfd_reloc_type_lookup _bfd_norelocs_bfd_reloc_type_lookup
50 #define bfd_pef_set_arch_mach _bfd_generic_set_arch_mach
52 #define bfd_pef_get_section_contents _bfd_generic_get_section_contents
53 #define bfd_pef_set_section_contents _bfd_generic_set_section_contents
55 #define bfd_pef_bfd_get_relocated_section_contents \
56 bfd_generic_get_relocated_section_contents
57 #define bfd_pef_bfd_relax_section bfd_generic_relax_section
58 #define bfd_pef_bfd_gc_sections bfd_generic_gc_sections
59 #define bfd_pef_bfd_merge_sections bfd_generic_merge_sections
60 #define bfd_pef_bfd_discard_group bfd_generic_discard_group
61 #define bfd_pef_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
62 #define bfd_pef_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
63 #define bfd_pef_bfd_link_add_symbols _bfd_generic_link_add_symbols
64 #define bfd_pef_bfd_link_just_syms _bfd_generic_link_just_syms
65 #define bfd_pef_bfd_final_link _bfd_generic_final_link
66 #define bfd_pef_bfd_link_split_section _bfd_generic_link_split_section
67 #define bfd_pef_get_section_contents_in_window \
68 _bfd_generic_get_section_contents_in_window
70 static void bfd_pef_print_symbol
71 PARAMS ((bfd
*abfd
, PTR afile
, asymbol
*symbol
, bfd_print_symbol_type how
));
72 static void bfd_pef_convert_architecture
73 PARAMS ((unsigned long architecture
,
74 enum bfd_architecture
*type
, unsigned long *subtype
));
75 static bfd_boolean bfd_pef_mkobject
PARAMS ((bfd
*abfd
));
76 static int bfd_pef_parse_traceback_table
77 PARAMS ((bfd
*abfd
, asection
*section
, unsigned char *buf
,
78 size_t len
, size_t pos
, asymbol
*sym
, FILE *file
));
79 static const char *bfd_pef_section_name
PARAMS ((bfd_pef_section
*section
));
80 static unsigned long bfd_pef_section_flags
PARAMS ((bfd_pef_section
*section
));
81 static asection
*bfd_pef_make_bfd_section
82 PARAMS ((bfd
*abfd
, bfd_pef_section
*section
));
83 static int bfd_pef_read_header
PARAMS ((bfd
*abfd
, bfd_pef_header
*header
));
84 static const bfd_target
*bfd_pef_object_p
PARAMS ((bfd
*));
85 static int bfd_pef_parse_traceback_tables
86 PARAMS ((bfd
*abfd
, asection
*sec
, unsigned char *buf
,
87 size_t len
, long *nsym
, asymbol
**csym
));
88 static int bfd_pef_parse_function_stub
89 PARAMS ((bfd
*abfd
, unsigned char *buf
, size_t len
, unsigned long *offset
));
90 static int bfd_pef_parse_function_stubs
91 PARAMS ((bfd
*abfd
, asection
*codesec
, unsigned char *codebuf
, size_t codelen
,
92 unsigned char *loaderbuf
, size_t loaderlen
, unsigned long *nsym
,
94 static long bfd_pef_parse_symbols
PARAMS ((bfd
*abfd
, asymbol
**csym
));
95 static long bfd_pef_count_symbols
PARAMS ((bfd
*abfd
));
96 static long bfd_pef_get_symtab_upper_bound
PARAMS ((bfd
*));
97 static long bfd_pef_get_symtab
PARAMS ((bfd
*, asymbol
**));
98 static asymbol
*bfd_pef_make_empty_symbol
PARAMS ((bfd
*));
99 static void bfd_pef_get_symbol_info
PARAMS ((bfd
*, asymbol
*, symbol_info
*));
100 static int bfd_pef_sizeof_headers
PARAMS ((bfd
*, bfd_boolean
));
102 static int bfd_pef_xlib_read_header
103 PARAMS ((bfd
*abfd
, bfd_pef_xlib_header
*header
));
104 static int bfd_pef_xlib_scan
PARAMS ((bfd
*abfd
, bfd_pef_xlib_header
*header
));
105 static const bfd_target
*bfd_pef_xlib_object_p
PARAMS ((bfd
*abfd
));
108 bfd_pef_print_symbol (abfd
, afile
, symbol
, how
)
112 bfd_print_symbol_type how
;
114 FILE *file
= (FILE *) afile
;
117 case bfd_print_symbol_name
:
118 fprintf (file
, "%s", symbol
->name
);
121 bfd_print_symbol_vandf (abfd
, (PTR
) file
, symbol
);
122 fprintf (file
, " %-5s %s", symbol
->section
->name
, symbol
->name
);
123 if (strncmp (symbol
->name
, "__traceback_", strlen ("__traceback_")) == 0)
125 char *buf
= alloca (symbol
->udata
.i
);
126 size_t offset
= symbol
->value
+ 4;
127 size_t len
= symbol
->udata
.i
;
130 bfd_get_section_contents (abfd
, symbol
->section
, buf
, offset
, len
);
131 ret
= bfd_pef_parse_traceback_table (abfd
, symbol
->section
, buf
,
134 fprintf (file
, " [ERROR]");
140 bfd_pef_convert_architecture (architecture
, type
, subtype
)
141 unsigned long architecture
;
142 enum bfd_architecture
*type
;
143 unsigned long *subtype
;
145 const unsigned long ARCH_POWERPC
= 0x70777063; /* 'pwpc' */
146 const unsigned long ARCH_M68K
= 0x6d36386b; /* 'm68k' */
148 *subtype
= bfd_arch_unknown
;
149 *type
= bfd_arch_unknown
;
151 if (architecture
== ARCH_POWERPC
)
152 *type
= bfd_arch_powerpc
;
153 else if (architecture
== ARCH_M68K
)
154 *type
= bfd_arch_m68k
;
158 bfd_pef_mkobject (abfd
)
159 bfd
*abfd ATTRIBUTE_UNUSED
;
165 bfd_pef_parse_traceback_table (abfd
, section
, buf
, len
, pos
, sym
, file
)
174 struct traceback_table table
;
185 sym
->section
= section
;
189 /* memcpy is fine since all fields are unsigned char */
193 memcpy (&table
, buf
+ pos
, 8);
195 /* calling code relies on returned symbols having a name and
198 if ((table
.lang
!= TB_C
) && (table
.lang
!= TB_CPLUSPLUS
))
201 if (! (table
.flags2
& TB_NAME_PRESENT
))
204 if (! table
.flags1
& TB_HAS_TBOFF
)
209 if ((table
.flags5
& TB_FLOATPARAMS
) || (table
.fixedparams
))
212 if (table
.flags1
& TB_HAS_TBOFF
)
214 struct traceback_table_tboff off
;
216 if ((pos
+ offset
+ 4) > len
)
218 off
.tb_offset
= bfd_getb32 (buf
+ pos
+ offset
);
221 /* need to subtract 4 because the offset includes the 0x0L
222 preceding the table */
225 fprintf (file
, " [offset = 0x%lx]", off
.tb_offset
);
227 if ((file
== NULL
) && ((off
.tb_offset
+ 4) > (pos
+ offset
)))
230 sym
->value
= pos
- off
.tb_offset
- 4;
233 if (table
.flags2
& TB_INT_HNDL
)
236 if (table
.flags1
& TB_HAS_CTL
)
238 struct traceback_table_anchors anchors
;
240 if ((pos
+ offset
+ 4) > len
)
242 anchors
.ctl_info
= bfd_getb32 (buf
+ pos
+ offset
);
245 if (anchors
.ctl_info
> 1024)
248 offset
+= anchors
.ctl_info
* 4;
251 if (table
.flags2
& TB_NAME_PRESENT
)
253 struct traceback_table_routine name
;
256 if ((pos
+ offset
+ 2) > len
)
258 name
.name_len
= bfd_getb16 (buf
+ pos
+ offset
);
261 if (name
.name_len
> 4096)
264 if ((pos
+ offset
+ name
.name_len
) > len
)
267 namebuf
= (char *) bfd_alloc (abfd
, name
.name_len
+ 1);
271 memcpy (namebuf
, buf
+ pos
+ offset
, name
.name_len
);
272 namebuf
[name
.name_len
] = '\0';
274 /* strip leading period inserted by compiler */
275 if (namebuf
[0] == '.')
276 memmove (namebuf
, namebuf
+ 1, name
.name_len
+ 1);
280 for (s
= sym
->name
; (*s
!= '\0'); s
++)
284 offset
+= name
.name_len
;
287 if (table
.flags2
& TB_USES_ALLOCA
)
290 if (table
.flags4
& TB_HAS_VEC_INFO
)
294 fprintf (file
, " [length = 0x%lx]", (long) offset
);
299 static const char *bfd_pef_section_name (section
)
300 bfd_pef_section
*section
;
302 switch (section
->section_kind
)
304 case BFD_PEF_SECTION_CODE
: return "code";
305 case BFD_PEF_SECTION_UNPACKED_DATA
: return "unpacked-data";
306 case BFD_PEF_SECTION_PACKED_DATA
: return "packed-data";
307 case BFD_PEF_SECTION_CONSTANT
: return "constant";
308 case BFD_PEF_SECTION_LOADER
: return "loader";
309 case BFD_PEF_SECTION_DEBUG
: return "debug";
310 case BFD_PEF_SECTION_EXEC_DATA
: return "exec-data";
311 case BFD_PEF_SECTION_EXCEPTION
: return "exception";
312 case BFD_PEF_SECTION_TRACEBACK
: return "traceback";
313 default: return "unknown";
317 static unsigned long bfd_pef_section_flags (section
)
318 bfd_pef_section
*section
;
320 switch (section
->section_kind
)
322 case BFD_PEF_SECTION_CODE
:
323 return SEC_HAS_CONTENTS
| SEC_LOAD
| SEC_ALLOC
| SEC_CODE
;
324 case BFD_PEF_SECTION_UNPACKED_DATA
:
325 case BFD_PEF_SECTION_PACKED_DATA
:
326 case BFD_PEF_SECTION_CONSTANT
:
327 case BFD_PEF_SECTION_LOADER
:
328 case BFD_PEF_SECTION_DEBUG
:
329 case BFD_PEF_SECTION_EXEC_DATA
:
330 case BFD_PEF_SECTION_EXCEPTION
:
331 case BFD_PEF_SECTION_TRACEBACK
:
333 return SEC_HAS_CONTENTS
| SEC_LOAD
| SEC_ALLOC
;
338 bfd_pef_make_bfd_section (abfd
, section
)
340 bfd_pef_section
*section
;
343 const char *name
= bfd_pef_section_name (section
);
345 bfdsec
= bfd_make_section_anyway (abfd
, name
);
349 bfdsec
->vma
= section
->default_address
+ section
->container_offset
;
350 bfdsec
->lma
= section
->default_address
+ section
->container_offset
;
351 bfdsec
->_raw_size
= section
->container_length
;
352 bfdsec
->filepos
= section
->container_offset
;
353 bfdsec
->alignment_power
= section
->alignment
;
355 bfdsec
->flags
= bfd_pef_section_flags (section
);
360 int bfd_pef_parse_loader_header (abfd
, buf
, len
, header
)
361 bfd
*abfd ATTRIBUTE_UNUSED
;
364 bfd_pef_loader_header
*header
;
366 BFD_ASSERT (len
== 56);
368 header
->main_section
= bfd_getb32 (buf
);
369 header
->main_offset
= bfd_getb32 (buf
+ 4);
370 header
->init_section
= bfd_getb32 (buf
+ 8);
371 header
->init_offset
= bfd_getb32 (buf
+ 12);
372 header
->term_section
= bfd_getb32 (buf
+ 16);
373 header
->term_offset
= bfd_getb32 (buf
+ 20);
374 header
->imported_library_count
= bfd_getb32 (buf
+ 24);
375 header
->total_imported_symbol_count
= bfd_getb32 (buf
+ 28);
376 header
->reloc_section_count
= bfd_getb32 (buf
+ 32);
377 header
->reloc_instr_offset
= bfd_getb32 (buf
+ 36);
378 header
->loader_strings_offset
= bfd_getb32 (buf
+ 40);
379 header
->export_hash_offset
= bfd_getb32 (buf
+ 44);
380 header
->export_hash_table_power
= bfd_getb32 (buf
+ 48);
381 header
->exported_symbol_count
= bfd_getb32 (buf
+ 52);
386 int bfd_pef_parse_imported_library (abfd
, buf
, len
, header
)
387 bfd
*abfd ATTRIBUTE_UNUSED
;
390 bfd_pef_imported_library
*header
;
392 BFD_ASSERT (len
== 24);
394 header
->name_offset
= bfd_getb32 (buf
);
395 header
->old_implementation_version
= bfd_getb32 (buf
+ 4);
396 header
->current_version
= bfd_getb32 (buf
+ 8);
397 header
->imported_symbol_count
= bfd_getb32 (buf
+ 12);
398 header
->first_imported_symbol
= bfd_getb32 (buf
+ 16);
399 header
->options
= buf
[20];
400 header
->reserved_a
= buf
[21];
401 header
->reserved_b
= bfd_getb16 (buf
+ 22);
406 int bfd_pef_parse_imported_symbol (abfd
, buf
, len
, symbol
)
407 bfd
*abfd ATTRIBUTE_UNUSED
;
410 bfd_pef_imported_symbol
*symbol
;
414 BFD_ASSERT (len
== 4);
416 value
= bfd_getb32 (buf
);
417 symbol
->class = value
>> 24;
418 symbol
->name
= value
& 0x00ffffff;
423 int bfd_pef_scan_section (abfd
, section
)
425 bfd_pef_section
*section
;
427 unsigned char buf
[28];
429 bfd_seek (abfd
, section
->header_offset
, SEEK_SET
);
430 if (bfd_bread ((PTR
) buf
, 28, abfd
) != 28)
433 section
->name_offset
= bfd_h_get_32 (abfd
, buf
);
434 section
->default_address
= bfd_h_get_32 (abfd
, buf
+ 4);
435 section
->total_length
= bfd_h_get_32 (abfd
, buf
+ 8);
436 section
->unpacked_length
= bfd_h_get_32 (abfd
, buf
+ 12);
437 section
->container_length
= bfd_h_get_32 (abfd
, buf
+ 16);
438 section
->container_offset
= bfd_h_get_32 (abfd
, buf
+ 20);
439 section
->section_kind
= buf
[24];
440 section
->share_kind
= buf
[25];
441 section
->alignment
= buf
[26];
442 section
->reserved
= buf
[27];
444 section
->bfd_section
= bfd_pef_make_bfd_section (abfd
, section
);
445 if (section
->bfd_section
== NULL
)
452 bfd_pef_print_loader_header (abfd
, header
, file
)
453 bfd
*abfd ATTRIBUTE_UNUSED
;
454 bfd_pef_loader_header
*header
;
457 fprintf (file
, "main_section: %ld\n", header
->main_section
);
458 fprintf (file
, "main_offset: %lu\n", header
->main_offset
);
459 fprintf (file
, "init_section: %ld\n", header
->init_section
);
460 fprintf (file
, "init_offset: %lu\n", header
->init_offset
);
461 fprintf (file
, "term_section: %ld\n", header
->term_section
);
462 fprintf (file
, "term_offset: %lu\n", header
->term_offset
);
463 fprintf (file
, "imported_library_count: %lu\n",
464 header
->imported_library_count
);
465 fprintf (file
, "total_imported_symbol_count: %lu\n",
466 header
->total_imported_symbol_count
);
467 fprintf (file
, "reloc_section_count: %lu\n", header
->reloc_section_count
);
468 fprintf (file
, "reloc_instr_offset: %lu\n", header
->reloc_instr_offset
);
469 fprintf (file
, "loader_strings_offset: %lu\n",
470 header
->loader_strings_offset
);
471 fprintf (file
, "export_hash_offset: %lu\n", header
->export_hash_offset
);
472 fprintf (file
, "export_hash_table_power: %lu\n",
473 header
->export_hash_table_power
);
474 fprintf (file
, "exported_symbol_count: %lu\n",
475 header
->exported_symbol_count
);
479 bfd_pef_print_loader_section (abfd
, file
)
483 bfd_pef_loader_header header
;
484 asection
*loadersec
= NULL
;
485 unsigned char *loaderbuf
= NULL
;
486 size_t loaderlen
= 0;
489 loadersec
= bfd_get_section_by_name (abfd
, "loader");
490 if (loadersec
== NULL
)
493 loaderlen
= bfd_section_size (abfd
, loadersec
);
494 loaderbuf
= (unsigned char *) bfd_malloc (loaderlen
);
495 if (bfd_seek (abfd
, loadersec
->filepos
, SEEK_SET
) < 0)
500 if (bfd_bread ((PTR
) loaderbuf
, loaderlen
, abfd
) != loaderlen
)
511 ret
= bfd_pef_parse_loader_header (abfd
, loaderbuf
, 56, &header
);
518 bfd_pef_print_loader_header (abfd
, &header
, file
);
523 bfd_pef_scan_start_address (abfd
)
526 bfd_pef_loader_header header
;
529 asection
*loadersec
= NULL
;
530 unsigned char *loaderbuf
= NULL
;
531 size_t loaderlen
= 0;
534 loadersec
= bfd_get_section_by_name (abfd
, "loader");
535 if (loadersec
== NULL
)
538 loaderlen
= bfd_section_size (abfd
, loadersec
);
539 loaderbuf
= (unsigned char *) bfd_malloc (loaderlen
);
540 if (bfd_seek (abfd
, loadersec
->filepos
, SEEK_SET
) < 0)
542 if (bfd_bread ((PTR
) loaderbuf
, loaderlen
, abfd
) != loaderlen
)
547 ret
= bfd_pef_parse_loader_header (abfd
, loaderbuf
, 56, &header
);
551 if (header
.main_section
< 0)
554 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
555 if ((section
->index
+ 1) == header
.main_section
)
561 abfd
->start_address
= section
->vma
+ header
.main_offset
;
564 if (loaderbuf
!= NULL
)
569 if (loaderbuf
!= NULL
)
575 bfd_pef_scan (abfd
, header
, mdata
)
577 bfd_pef_header
*header
;
578 bfd_pef_data_struct
*mdata
;
581 enum bfd_architecture cputype
;
582 unsigned long cpusubtype
;
584 mdata
->header
= *header
;
586 bfd_pef_convert_architecture (header
->architecture
, &cputype
, &cpusubtype
);
587 if (cputype
== bfd_arch_unknown
)
589 fprintf (stderr
, "bfd_pef_scan: unknown architecture 0x%lx\n",
590 header
->architecture
);
593 bfd_set_arch_mach (abfd
, cputype
, cpusubtype
);
595 mdata
->header
= *header
;
597 abfd
->flags
= (abfd
->xvec
->object_flags
598 | (abfd
->flags
& (BFD_IN_MEMORY
| BFD_IO_FUNCS
)));
600 if (header
->section_count
!= 0)
604 bfd_alloc (abfd
, header
->section_count
* sizeof (bfd_pef_section
)));
606 if (mdata
->sections
== NULL
)
609 for (i
= 0; i
< header
->section_count
; i
++)
611 bfd_pef_section
*cur
= &mdata
->sections
[i
];
612 cur
->header_offset
= 40 + (i
* 28);
613 if (bfd_pef_scan_section (abfd
, cur
) < 0)
618 if (bfd_pef_scan_start_address (abfd
) < 0)
621 fprintf (stderr
, "bfd_pef_scan: unable to scan start address: %s\n",
622 bfd_errmsg (bfd_get_error ()));
627 abfd
->tdata
.pef_data
= mdata
;
633 bfd_pef_read_header (abfd
, header
)
635 bfd_pef_header
*header
;
637 unsigned char buf
[40];
639 bfd_seek (abfd
, 0, SEEK_SET
);
641 if (bfd_bread ((PTR
) buf
, 40, abfd
) != 40)
644 header
->tag1
= bfd_getb32 (buf
);
645 header
->tag2
= bfd_getb32 (buf
+ 4);
646 header
->architecture
= bfd_getb32 (buf
+ 8);
647 header
->format_version
= bfd_getb32 (buf
+ 12);
648 header
->timestamp
= bfd_getb32 (buf
+ 16);
649 header
->old_definition_version
= bfd_getb32 (buf
+ 20);
650 header
->old_implementation_version
= bfd_getb32 (buf
+ 24);
651 header
->current_version
= bfd_getb32 (buf
+ 28);
652 header
->section_count
= bfd_getb32 (buf
+ 32) + 1;
653 header
->instantiated_section_count
= bfd_getb32 (buf
+ 34);
654 header
->reserved
= bfd_getb32 (buf
+ 36);
659 static const bfd_target
*
660 bfd_pef_object_p (abfd
)
663 struct bfd_preserve preserve
;
664 bfd_pef_header header
;
666 preserve
.marker
= NULL
;
667 if (bfd_pef_read_header (abfd
, &header
) != 0)
670 if (header
.tag1
!= BFD_PEF_TAG1
|| header
.tag2
!= BFD_PEF_TAG2
)
673 preserve
.marker
= bfd_zalloc (abfd
, sizeof (bfd_pef_data_struct
));
674 if (preserve
.marker
== NULL
675 || !bfd_preserve_save (abfd
, &preserve
))
678 if (bfd_pef_scan (abfd
, &header
,
679 (bfd_pef_data_struct
*) preserve
.marker
) != 0)
682 bfd_preserve_finish (abfd
, &preserve
);
686 bfd_set_error (bfd_error_wrong_format
);
689 if (preserve
.marker
!= NULL
)
690 bfd_preserve_restore (abfd
, &preserve
);
694 static int bfd_pef_parse_traceback_tables (abfd
, sec
, buf
, len
, nsym
, csym
)
707 const char *const tbprefix
= "__traceback_";
711 unsigned long count
= 0;
716 /* we're reading symbols two at a time */
718 if (csym
&& ((csym
[count
] == NULL
) || (csym
[count
+ 1] == NULL
)))
724 while ((pos
+ 4) <= len
)
726 if (bfd_getb32 (buf
+ pos
) == 0)
734 ret
= bfd_pef_parse_traceback_table (abfd
, sec
, buf
, len
, pos
+ 4,
738 /* skip over 0x0L to advance to next possible traceback table */
743 BFD_ASSERT (function
.name
!= NULL
);
745 /* Don't bother to compute the name if we are just
750 tbnamelen
= strlen (tbprefix
) + strlen (function
.name
);
751 name
= bfd_alloc (abfd
, tbnamelen
+ 1);
754 bfd_release (abfd
, (PTR
) function
.name
);
755 function
.name
= NULL
;
758 snprintf (name
, tbnamelen
+ 1, "%s%s", tbprefix
, function
.name
);
759 traceback
.name
= name
;
760 traceback
.value
= pos
;
761 traceback
.the_bfd
= abfd
;
762 traceback
.section
= sec
;
764 traceback
.udata
.i
= ret
;
766 *(csym
[count
]) = function
;
767 *(csym
[count
+ 1]) = traceback
;
778 static int bfd_pef_parse_function_stub (abfd
, buf
, len
, offset
)
779 bfd
*abfd ATTRIBUTE_UNUSED
;
782 unsigned long *offset
;
784 BFD_ASSERT (len
== 24);
786 if ((bfd_getb32 (buf
) & 0xffff0000) != 0x81820000)
788 if (bfd_getb32 (buf
+ 4) != 0x90410014)
790 if (bfd_getb32 (buf
+ 8) != 0x800c0000)
792 if (bfd_getb32 (buf
+ 12) != 0x804c0004)
794 if (bfd_getb32 (buf
+ 16) != 0x7c0903a6)
796 if (bfd_getb32 (buf
+ 20) != 0x4e800420)
800 *offset
= (bfd_getb32 (buf
) & 0x0000ffff) / 4;
805 static int bfd_pef_parse_function_stubs (abfd
, codesec
, codebuf
, codelen
,
806 loaderbuf
, loaderlen
, nsym
, csym
)
809 unsigned char *codebuf
;
811 unsigned char *loaderbuf
;
816 const char *const sprefix
= "__stub_";
819 unsigned long count
= 0;
821 bfd_pef_loader_header header
;
822 bfd_pef_imported_library
*libraries
= NULL
;
823 bfd_pef_imported_symbol
*imports
= NULL
;
831 ret
= bfd_pef_parse_loader_header (abfd
, loaderbuf
, 56, &header
);
835 libraries
= (bfd_pef_imported_library
*) bfd_malloc
836 (header
.imported_library_count
* sizeof (bfd_pef_imported_library
));
837 imports
= (bfd_pef_imported_symbol
*) bfd_malloc
838 (header
.total_imported_symbol_count
* sizeof (bfd_pef_imported_symbol
));
840 if (loaderlen
< (56 + (header
.imported_library_count
* 24)))
842 for (i
= 0; i
< header
.imported_library_count
; i
++)
844 ret
= bfd_pef_parse_imported_library
845 (abfd
, loaderbuf
+ 56 + (i
* 24), 24, &libraries
[i
]);
850 if (loaderlen
< (56 + (header
.imported_library_count
* 24)
851 + (header
.total_imported_symbol_count
* 4)))
853 for (i
= 0; i
< header
.total_imported_symbol_count
; i
++)
855 ret
= (bfd_pef_parse_imported_symbol
857 loaderbuf
+ 56 + (header
.imported_library_count
* 24) + (i
* 4),
873 if (csym
&& (csym
[count
] == NULL
))
877 codepos
-= (codepos
% 4);
879 while ((codepos
+ 4) <= codelen
)
881 if ((bfd_getb32 (codebuf
+ codepos
) & 0xffff0000) == 0x81820000)
886 if ((codepos
+ 4) > codelen
)
889 ret
= bfd_pef_parse_function_stub (abfd
, codebuf
+ codepos
, 24, &index
);
896 if (index
>= header
.total_imported_symbol_count
)
906 if (loaderlen
< (header
.loader_strings_offset
+ imports
[index
].name
))
909 max
= loaderlen
- (header
.loader_strings_offset
+ imports
[index
].name
);
910 symname
= loaderbuf
+ header
.loader_strings_offset
+ imports
[index
].name
;
912 for (s
= symname
; s
< (symname
+ max
); s
++)
923 name
= bfd_alloc (abfd
, strlen (sprefix
) + namelen
+ 1);
927 snprintf (name
, strlen (sprefix
) + namelen
+ 1, "%s%s",
934 sym
.section
= codesec
;
941 *(csym
[count
]) = sym
;
949 if (libraries
!= NULL
)
957 if (libraries
!= NULL
)
965 static long bfd_pef_parse_symbols (abfd
, csym
)
969 unsigned long count
= 0;
971 asection
*codesec
= NULL
;
972 unsigned char *codebuf
= NULL
;
975 asection
*loadersec
= NULL
;
976 unsigned char *loaderbuf
= NULL
;
977 size_t loaderlen
= 0;
979 codesec
= bfd_get_section_by_name (abfd
, "code");
982 codelen
= bfd_section_size (abfd
, codesec
);
983 codebuf
= (unsigned char *) bfd_malloc (codelen
);
984 if (bfd_seek (abfd
, codesec
->filepos
, SEEK_SET
) < 0)
986 if (bfd_bread ((PTR
) codebuf
, codelen
, abfd
) != codelen
)
990 loadersec
= bfd_get_section_by_name (abfd
, "loader");
991 if (loadersec
!= NULL
)
993 loaderlen
= bfd_section_size (abfd
, loadersec
);
994 loaderbuf
= (unsigned char *) bfd_malloc (loaderlen
);
995 if (bfd_seek (abfd
, loadersec
->filepos
, SEEK_SET
) < 0)
997 if (bfd_bread ((PTR
) loaderbuf
, loaderlen
, abfd
) != loaderlen
)
1002 if (codesec
!= NULL
)
1004 unsigned long ncount
= 0;
1005 bfd_pef_parse_traceback_tables (abfd
, codesec
, codebuf
, codelen
,
1010 if ((codesec
!= NULL
) && (loadersec
!= NULL
))
1012 unsigned long ncount
= 0;
1013 bfd_pef_parse_function_stubs
1014 (abfd
, codesec
, codebuf
, codelen
, loaderbuf
, loaderlen
, &ncount
,
1015 (csym
!= NULL
) ? (csym
+ count
) : NULL
);
1023 if (codebuf
!= NULL
)
1026 if (loaderbuf
!= NULL
)
1033 bfd_pef_count_symbols (abfd
)
1036 return bfd_pef_parse_symbols (abfd
, NULL
);
1040 bfd_pef_get_symtab_upper_bound (abfd
)
1043 long nsyms
= bfd_pef_count_symbols (abfd
);
1046 return ((nsyms
+ 1) * sizeof (asymbol
*));
1050 bfd_pef_get_symtab (abfd
, alocation
)
1052 asymbol
**alocation
;
1058 long nsyms
= bfd_pef_count_symbols (abfd
);
1062 syms
= bfd_alloc (abfd
, nsyms
* sizeof (asymbol
));
1066 for (i
= 0; i
< nsyms
; i
++)
1067 alocation
[i
] = &syms
[i
];
1069 alocation
[nsyms
] = NULL
;
1071 ret
= bfd_pef_parse_symbols (abfd
, alocation
);
1079 bfd_pef_make_empty_symbol (abfd
)
1082 return (asymbol
*) bfd_alloc (abfd
, sizeof (asymbol
));
1086 bfd_pef_get_symbol_info (abfd
, symbol
, ret
)
1087 bfd
*abfd ATTRIBUTE_UNUSED
;
1091 bfd_symbol_info (symbol
, ret
);
1095 bfd_pef_sizeof_headers (abfd
, exec
)
1096 bfd
*abfd ATTRIBUTE_UNUSED
;
1097 bfd_boolean exec ATTRIBUTE_UNUSED
;
1102 const bfd_target pef_vec
=
1105 bfd_target_pef_flavour
, /* flavour */
1106 BFD_ENDIAN_BIG
, /* byteorder */
1107 BFD_ENDIAN_BIG
, /* header_byteorder */
1108 (HAS_RELOC
| EXEC_P
| /* object flags */
1109 HAS_LINENO
| HAS_DEBUG
|
1110 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
| D_PAGED
),
1111 (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
| SEC_DATA
1112 | SEC_ROM
| SEC_HAS_CONTENTS
), /* section_flags */
1113 0, /* symbol_leading_char */
1114 ' ', /* ar_pad_char */
1115 16, /* ar_max_namelen */
1116 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
1117 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
1118 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* data */
1119 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
1120 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
1121 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* hdrs */
1122 { /* bfd_check_format */
1124 bfd_pef_object_p
, /* bfd_check_format */
1128 { /* bfd_set_format */
1134 { /* bfd_write_contents */
1141 BFD_JUMP_TABLE_GENERIC (bfd_pef
),
1142 BFD_JUMP_TABLE_COPY (_bfd_generic
),
1143 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
1144 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive
),
1145 BFD_JUMP_TABLE_SYMBOLS (bfd_pef
),
1146 BFD_JUMP_TABLE_RELOCS (bfd_pef
),
1147 BFD_JUMP_TABLE_WRITE (bfd_pef
),
1148 BFD_JUMP_TABLE_LINK (bfd_pef
),
1149 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic
),
1156 #define bfd_pef_xlib_close_and_cleanup _bfd_generic_close_and_cleanup
1157 #define bfd_pef_xlib_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
1158 #define bfd_pef_xlib_new_section_hook _bfd_generic_new_section_hook
1159 #define bfd_pef_xlib_get_section_contents _bfd_generic_get_section_contents
1160 #define bfd_pef_xlib_set_section_contents _bfd_generic_set_section_contents
1161 #define bfd_pef_xlib_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
1162 #define bfd_pef_xlib_set_section_contents_in_window _bfd_generic_set_section_contents_in_window
1165 bfd_pef_xlib_read_header (abfd
, header
)
1167 bfd_pef_xlib_header
*header
;
1169 unsigned char buf
[76];
1171 bfd_seek (abfd
, 0, SEEK_SET
);
1173 if (bfd_bread ((PTR
) buf
, 76, abfd
) != 76)
1176 header
->tag1
= bfd_getb32 (buf
);
1177 header
->tag2
= bfd_getb32 (buf
+ 4);
1178 header
->current_format
= bfd_getb32 (buf
+ 8);
1179 header
->container_strings_offset
= bfd_getb32 (buf
+ 12);
1180 header
->export_hash_offset
= bfd_getb32 (buf
+ 16);
1181 header
->export_key_offset
= bfd_getb32 (buf
+ 20);
1182 header
->export_symbol_offset
= bfd_getb32 (buf
+ 24);
1183 header
->export_names_offset
= bfd_getb32 (buf
+ 28);
1184 header
->export_hash_table_power
= bfd_getb32 (buf
+ 32);
1185 header
->exported_symbol_count
= bfd_getb32 (buf
+ 36);
1186 header
->frag_name_offset
= bfd_getb32 (buf
+ 40);
1187 header
->frag_name_length
= bfd_getb32 (buf
+ 44);
1188 header
->dylib_path_offset
= bfd_getb32 (buf
+ 48);
1189 header
->dylib_path_length
= bfd_getb32 (buf
+ 52);
1190 header
->cpu_family
= bfd_getb32 (buf
+ 56);
1191 header
->cpu_model
= bfd_getb32 (buf
+ 60);
1192 header
->date_time_stamp
= bfd_getb32 (buf
+ 64);
1193 header
->current_version
= bfd_getb32 (buf
+ 68);
1194 header
->old_definition_version
= bfd_getb32 (buf
+ 72);
1195 header
->old_implementation_version
= bfd_getb32 (buf
+ 76);
1201 bfd_pef_xlib_scan (abfd
, header
)
1203 bfd_pef_xlib_header
*header
;
1205 bfd_pef_xlib_data_struct
*mdata
= NULL
;
1207 mdata
= ((bfd_pef_xlib_data_struct
*)
1208 bfd_alloc (abfd
, sizeof (bfd_pef_xlib_data_struct
)));
1212 mdata
->header
= *header
;
1214 abfd
->flags
= (abfd
->xvec
->object_flags
1215 | (abfd
->flags
& (BFD_IN_MEMORY
| BFD_IO_FUNCS
)));
1217 abfd
->tdata
.pef_xlib_data
= mdata
;
1222 static const bfd_target
*
1223 bfd_pef_xlib_object_p (abfd
)
1226 struct bfd_preserve preserve
;
1227 bfd_pef_xlib_header header
;
1229 if (bfd_pef_xlib_read_header (abfd
, &header
) != 0)
1231 bfd_set_error (bfd_error_wrong_format
);
1235 if ((header
.tag1
!= BFD_PEF_XLIB_TAG1
)
1236 || ((header
.tag2
!= BFD_PEF_VLIB_TAG2
)
1237 && (header
.tag2
!= BFD_PEF_BLIB_TAG2
)))
1239 bfd_set_error (bfd_error_wrong_format
);
1243 if (! bfd_preserve_save (abfd
, &preserve
))
1245 bfd_set_error (bfd_error_wrong_format
);
1249 if (bfd_pef_xlib_scan (abfd
, &header
) != 0)
1251 bfd_preserve_restore (abfd
, &preserve
);
1252 bfd_set_error (bfd_error_wrong_format
);
1256 bfd_preserve_finish (abfd
, &preserve
);
1260 const bfd_target pef_xlib_vec
=
1262 "pef-xlib", /* name */
1263 bfd_target_pef_xlib_flavour
, /* flavour */
1264 BFD_ENDIAN_BIG
, /* byteorder */
1265 BFD_ENDIAN_BIG
, /* header_byteorder */
1266 (HAS_RELOC
| EXEC_P
| /* object flags */
1267 HAS_LINENO
| HAS_DEBUG
|
1268 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
| D_PAGED
),
1269 (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
| SEC_DATA
1270 | SEC_ROM
| SEC_HAS_CONTENTS
), /* section_flags */
1271 0, /* symbol_leading_char */
1272 ' ', /* ar_pad_char */
1273 16, /* ar_max_namelen */
1274 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
1275 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
1276 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* data */
1277 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
1278 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
1279 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* hdrs */
1280 { /* bfd_check_format */
1282 bfd_pef_xlib_object_p
, /* bfd_check_format */
1286 { /* bfd_set_format */
1292 { /* bfd_write_contents */
1299 BFD_JUMP_TABLE_GENERIC (bfd_pef_xlib
),
1300 BFD_JUMP_TABLE_COPY (_bfd_generic
),
1301 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
1302 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive
),
1303 BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols
),
1304 BFD_JUMP_TABLE_RELOCS (_bfd_norelocs
),
1305 BFD_JUMP_TABLE_WRITE (_bfd_nowrite
),
1306 BFD_JUMP_TABLE_LINK (_bfd_nolink
),
1307 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic
),