1 /* PEF support for BFD.
2 Copyright (C) 1999-2022 Free Software Foundation, Inc.
4 This file is part of BFD, the Binary File Descriptor library.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19 MA 02110-1301, USA. */
21 /* PEF (Preferred Executable Format) is the binary file format for late
22 classic Mac OS versions (before Darwin). It is supported by both m68k
23 and PowerPc. It is also called CFM (Code Fragment Manager). */
26 #include "safe-ctype.h"
28 #include "pef-traceback.h"
31 #include "libiberty.h"
34 #define BFD_IO_FUNCS 0
37 #define bfd_pef_close_and_cleanup _bfd_generic_close_and_cleanup
38 #define bfd_pef_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
39 #define bfd_pef_new_section_hook _bfd_generic_new_section_hook
40 #define bfd_pef_bfd_is_local_label_name bfd_generic_is_local_label_name
41 #define bfd_pef_bfd_is_target_special_symbol _bfd_bool_bfd_asymbol_false
42 #define bfd_pef_get_lineno _bfd_nosymbols_get_lineno
43 #define bfd_pef_find_nearest_line _bfd_nosymbols_find_nearest_line
44 #define bfd_pef_find_nearest_line_with_alt _bfd_nosymbols_find_nearest_line_with_alt
45 #define bfd_pef_find_line _bfd_nosymbols_find_line
46 #define bfd_pef_find_inliner_info _bfd_nosymbols_find_inliner_info
47 #define bfd_pef_get_symbol_version_string _bfd_nosymbols_get_symbol_version_string
48 #define bfd_pef_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
49 #define bfd_pef_read_minisymbols _bfd_generic_read_minisymbols
50 #define bfd_pef_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
51 #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
54 #define bfd_pef_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents
55 #define bfd_pef_bfd_relax_section bfd_generic_relax_section
56 #define bfd_pef_bfd_gc_sections bfd_generic_gc_sections
57 #define bfd_pef_bfd_lookup_section_flags bfd_generic_lookup_section_flags
58 #define bfd_pef_bfd_merge_sections bfd_generic_merge_sections
59 #define bfd_pef_bfd_is_group_section bfd_generic_is_group_section
60 #define bfd_pef_bfd_group_name bfd_generic_group_name
61 #define bfd_pef_bfd_discard_group bfd_generic_discard_group
62 #define bfd_pef_section_already_linked _bfd_generic_section_already_linked
63 #define bfd_pef_bfd_define_common_symbol bfd_generic_define_common_symbol
64 #define bfd_pef_bfd_link_hide_symbol _bfd_generic_link_hide_symbol
65 #define bfd_pef_bfd_define_start_stop bfd_generic_define_start_stop
66 #define bfd_pef_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
67 #define bfd_pef_bfd_link_add_symbols _bfd_generic_link_add_symbols
68 #define bfd_pef_bfd_link_just_syms _bfd_generic_link_just_syms
69 #define bfd_pef_bfd_copy_link_hash_symbol_type \
70 _bfd_generic_copy_link_hash_symbol_type
71 #define bfd_pef_bfd_final_link _bfd_generic_final_link
72 #define bfd_pef_bfd_link_split_section _bfd_generic_link_split_section
73 #define bfd_pef_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
74 #define bfd_pef_bfd_link_check_relocs _bfd_generic_link_check_relocs
77 bfd_pef_parse_traceback_table (bfd
*abfd
,
85 struct traceback_table table
;
96 sym
->section
= section
;
100 /* memcpy is fine since all fields are unsigned char. */
103 memcpy (&table
, buf
+ pos
, 8);
105 /* Calling code relies on returned symbols having a name and
107 if ((table
.lang
!= TB_C
) && (table
.lang
!= TB_CPLUSPLUS
))
110 if (! (table
.flags2
& TB_NAME_PRESENT
))
113 if (! (table
.flags1
& TB_HAS_TBOFF
))
118 if ((table
.flags5
& TB_FLOATPARAMS
) || (table
.fixedparams
))
121 if (table
.flags1
& TB_HAS_TBOFF
)
123 struct traceback_table_tboff off
;
125 if ((pos
+ offset
+ 4) > len
)
127 off
.tb_offset
= bfd_getb32 (buf
+ pos
+ offset
);
130 /* Need to subtract 4 because the offset includes the 0x0L
131 preceding the table. */
133 fprintf (file
, " [offset = 0x%lx]", off
.tb_offset
);
135 if ((file
== NULL
) && ((off
.tb_offset
+ 4) > (pos
+ offset
)))
138 sym
->value
= pos
- off
.tb_offset
- 4;
141 if (table
.flags2
& TB_INT_HNDL
)
144 if (table
.flags1
& TB_HAS_CTL
)
146 struct traceback_table_anchors anchors
;
148 if ((pos
+ offset
+ 4) > len
)
150 anchors
.ctl_info
= bfd_getb32 (buf
+ pos
+ offset
);
153 if (anchors
.ctl_info
> 1024)
156 offset
+= anchors
.ctl_info
* 4;
159 if (table
.flags2
& TB_NAME_PRESENT
)
161 struct traceback_table_routine name
;
164 if ((pos
+ offset
+ 2) > len
)
166 name
.name_len
= bfd_getb16 (buf
+ pos
+ offset
);
169 if (name
.name_len
> 4096)
172 if ((pos
+ offset
+ name
.name_len
) > len
)
175 namebuf
= bfd_alloc (abfd
, name
.name_len
+ 1);
179 memcpy (namebuf
, buf
+ pos
+ offset
, name
.name_len
);
180 namebuf
[name
.name_len
] = '\0';
182 /* Strip leading period inserted by compiler. */
183 if (namebuf
[0] == '.')
184 memmove (namebuf
, namebuf
+ 1, name
.name_len
+ 1);
188 for (s
= sym
->name
; (*s
!= '\0'); s
++)
192 offset
+= name
.name_len
;
195 if (table
.flags2
& TB_USES_ALLOCA
)
198 if (table
.flags4
& TB_HAS_VEC_INFO
)
202 fprintf (file
, " [length = 0x%lx]", (unsigned long) offset
);
208 bfd_pef_print_symbol (bfd
*abfd
,
211 bfd_print_symbol_type how
)
213 FILE *file
= (FILE *) afile
;
217 case bfd_print_symbol_name
:
218 fprintf (file
, "%s", symbol
->name
);
221 bfd_print_symbol_vandf (abfd
, (void *) file
, symbol
);
222 fprintf (file
, " %-5s %s", symbol
->section
->name
, symbol
->name
);
223 if (startswith (symbol
->name
, "__traceback_"))
226 size_t offset
= symbol
->value
+ 4;
227 size_t len
= symbol
->udata
.i
;
229 buf
= bfd_malloc (len
);
231 || !bfd_get_section_contents (abfd
, symbol
->section
, buf
,
233 || bfd_pef_parse_traceback_table (abfd
, symbol
->section
, buf
,
234 len
, 0, NULL
, file
) < 0)
235 fprintf (file
, " [ERROR]");
242 bfd_pef_convert_architecture (unsigned long architecture
,
243 enum bfd_architecture
*type
,
244 unsigned long *subtype
)
246 const unsigned long ARCH_POWERPC
= 0x70777063; /* 'pwpc'. */
247 const unsigned long ARCH_M68K
= 0x6d36386b; /* 'm68k'. */
249 *subtype
= bfd_arch_unknown
;
250 *type
= bfd_arch_unknown
;
252 if (architecture
== ARCH_POWERPC
)
253 *type
= bfd_arch_powerpc
;
254 else if (architecture
== ARCH_M68K
)
255 *type
= bfd_arch_m68k
;
259 bfd_pef_mkobject (bfd
*abfd ATTRIBUTE_UNUSED
)
264 static const char *bfd_pef_section_name (bfd_pef_section
*section
)
266 switch (section
->section_kind
)
268 case BFD_PEF_SECTION_CODE
: return "code";
269 case BFD_PEF_SECTION_UNPACKED_DATA
: return "unpacked-data";
270 case BFD_PEF_SECTION_PACKED_DATA
: return "packed-data";
271 case BFD_PEF_SECTION_CONSTANT
: return "constant";
272 case BFD_PEF_SECTION_LOADER
: return "loader";
273 case BFD_PEF_SECTION_DEBUG
: return "debug";
274 case BFD_PEF_SECTION_EXEC_DATA
: return "exec-data";
275 case BFD_PEF_SECTION_EXCEPTION
: return "exception";
276 case BFD_PEF_SECTION_TRACEBACK
: return "traceback";
277 default: return "unknown";
281 static unsigned long bfd_pef_section_flags (bfd_pef_section
*section
)
283 switch (section
->section_kind
)
285 case BFD_PEF_SECTION_CODE
:
286 return SEC_HAS_CONTENTS
| SEC_LOAD
| SEC_ALLOC
| SEC_CODE
;
287 case BFD_PEF_SECTION_UNPACKED_DATA
:
288 case BFD_PEF_SECTION_PACKED_DATA
:
289 case BFD_PEF_SECTION_CONSTANT
:
290 case BFD_PEF_SECTION_LOADER
:
291 case BFD_PEF_SECTION_DEBUG
:
292 case BFD_PEF_SECTION_EXEC_DATA
:
293 case BFD_PEF_SECTION_EXCEPTION
:
294 case BFD_PEF_SECTION_TRACEBACK
:
296 return SEC_HAS_CONTENTS
| SEC_LOAD
| SEC_ALLOC
;
301 bfd_pef_make_bfd_section (bfd
*abfd
, bfd_pef_section
*section
)
304 const char *name
= bfd_pef_section_name (section
);
306 bfdsec
= bfd_make_section_anyway (abfd
, name
);
310 bfdsec
->vma
= section
->default_address
+ section
->container_offset
;
311 bfdsec
->lma
= section
->default_address
+ section
->container_offset
;
312 bfdsec
->size
= section
->container_length
;
313 bfdsec
->filepos
= section
->container_offset
;
314 bfdsec
->alignment_power
= section
->alignment
;
316 bfdsec
->flags
= bfd_pef_section_flags (section
);
322 bfd_pef_parse_loader_header (bfd
*abfd ATTRIBUTE_UNUSED
,
325 bfd_pef_loader_header
*header
)
327 BFD_ASSERT (len
== 56);
329 header
->main_section
= bfd_getb32 (buf
);
330 header
->main_offset
= bfd_getb32 (buf
+ 4);
331 header
->init_section
= bfd_getb32 (buf
+ 8);
332 header
->init_offset
= bfd_getb32 (buf
+ 12);
333 header
->term_section
= bfd_getb32 (buf
+ 16);
334 header
->term_offset
= bfd_getb32 (buf
+ 20);
335 header
->imported_library_count
= bfd_getb32 (buf
+ 24);
336 header
->total_imported_symbol_count
= bfd_getb32 (buf
+ 28);
337 header
->reloc_section_count
= bfd_getb32 (buf
+ 32);
338 header
->reloc_instr_offset
= bfd_getb32 (buf
+ 36);
339 header
->loader_strings_offset
= bfd_getb32 (buf
+ 40);
340 header
->export_hash_offset
= bfd_getb32 (buf
+ 44);
341 header
->export_hash_table_power
= bfd_getb32 (buf
+ 48);
342 header
->exported_symbol_count
= bfd_getb32 (buf
+ 52);
348 bfd_pef_parse_imported_library (bfd
*abfd ATTRIBUTE_UNUSED
,
351 bfd_pef_imported_library
*header
)
353 BFD_ASSERT (len
== 24);
355 header
->name_offset
= bfd_getb32 (buf
);
356 header
->old_implementation_version
= bfd_getb32 (buf
+ 4);
357 header
->current_version
= bfd_getb32 (buf
+ 8);
358 header
->imported_symbol_count
= bfd_getb32 (buf
+ 12);
359 header
->first_imported_symbol
= bfd_getb32 (buf
+ 16);
360 header
->options
= buf
[20];
361 header
->reserved_a
= buf
[21];
362 header
->reserved_b
= bfd_getb16 (buf
+ 22);
368 bfd_pef_parse_imported_symbol (bfd
*abfd ATTRIBUTE_UNUSED
,
371 bfd_pef_imported_symbol
*symbol
)
375 BFD_ASSERT (len
== 4);
377 value
= bfd_getb32 (buf
);
378 symbol
->symbol_class
= value
>> 24;
379 symbol
->name
= value
& 0x00ffffff;
385 bfd_pef_scan_section (bfd
*abfd
, bfd_pef_section
*section
)
387 unsigned char buf
[28];
389 bfd_seek (abfd
, section
->header_offset
, SEEK_SET
);
390 if (bfd_bread ((void *) buf
, 28, abfd
) != 28)
393 section
->name_offset
= bfd_h_get_32 (abfd
, buf
);
394 section
->default_address
= bfd_h_get_32 (abfd
, buf
+ 4);
395 section
->total_length
= bfd_h_get_32 (abfd
, buf
+ 8);
396 section
->unpacked_length
= bfd_h_get_32 (abfd
, buf
+ 12);
397 section
->container_length
= bfd_h_get_32 (abfd
, buf
+ 16);
398 section
->container_offset
= bfd_h_get_32 (abfd
, buf
+ 20);
399 section
->section_kind
= buf
[24];
400 section
->share_kind
= buf
[25];
401 section
->alignment
= buf
[26];
402 section
->reserved
= buf
[27];
404 section
->bfd_section
= bfd_pef_make_bfd_section (abfd
, section
);
405 if (section
->bfd_section
== NULL
)
412 bfd_pef_print_loader_header (bfd
*abfd ATTRIBUTE_UNUSED
,
413 bfd_pef_loader_header
*header
,
416 fprintf (file
, "main_section: %ld\n", header
->main_section
);
417 fprintf (file
, "main_offset: %lu\n", header
->main_offset
);
418 fprintf (file
, "init_section: %ld\n", header
->init_section
);
419 fprintf (file
, "init_offset: %lu\n", header
->init_offset
);
420 fprintf (file
, "term_section: %ld\n", header
->term_section
);
421 fprintf (file
, "term_offset: %lu\n", header
->term_offset
);
422 fprintf (file
, "imported_library_count: %lu\n",
423 header
->imported_library_count
);
424 fprintf (file
, "total_imported_symbol_count: %lu\n",
425 header
->total_imported_symbol_count
);
426 fprintf (file
, "reloc_section_count: %lu\n", header
->reloc_section_count
);
427 fprintf (file
, "reloc_instr_offset: %lu\n", header
->reloc_instr_offset
);
428 fprintf (file
, "loader_strings_offset: %lu\n",
429 header
->loader_strings_offset
);
430 fprintf (file
, "export_hash_offset: %lu\n", header
->export_hash_offset
);
431 fprintf (file
, "export_hash_table_power: %lu\n",
432 header
->export_hash_table_power
);
433 fprintf (file
, "exported_symbol_count: %lu\n",
434 header
->exported_symbol_count
);
438 bfd_pef_print_loader_section (bfd
*abfd
, FILE *file
)
440 bfd_pef_loader_header header
;
441 asection
*loadersec
= NULL
;
442 unsigned char *loaderbuf
= NULL
;
443 size_t loaderlen
= 0;
445 loadersec
= bfd_get_section_by_name (abfd
, "loader");
446 if (loadersec
== NULL
)
449 loaderlen
= loadersec
->size
;
452 if (bfd_seek (abfd
, loadersec
->filepos
, SEEK_SET
) != 0)
454 loaderbuf
= _bfd_malloc_and_read (abfd
, loaderlen
, loaderlen
);
455 if (loaderbuf
== NULL
)
458 if (bfd_pef_parse_loader_header (abfd
, loaderbuf
, 56, &header
) < 0)
464 bfd_pef_print_loader_header (abfd
, &header
, file
);
469 bfd_pef_scan_start_address (bfd
*abfd
)
471 bfd_pef_loader_header header
;
474 asection
*loadersec
= NULL
;
475 unsigned char *loaderbuf
= NULL
;
476 size_t loaderlen
= 0;
479 loadersec
= bfd_get_section_by_name (abfd
, "loader");
480 if (loadersec
== NULL
)
483 loaderlen
= loadersec
->size
;
486 if (bfd_seek (abfd
, loadersec
->filepos
, SEEK_SET
) != 0)
488 loaderbuf
= _bfd_malloc_and_read (abfd
, loaderlen
, loaderlen
);
489 if (loaderbuf
== NULL
)
492 ret
= bfd_pef_parse_loader_header (abfd
, loaderbuf
, 56, &header
);
496 if (header
.main_section
< 0)
499 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
500 if ((long) (section
->index
+ 1) == header
.main_section
)
506 abfd
->start_address
= section
->vma
+ header
.main_offset
;
518 bfd_pef_scan (bfd
*abfd
,
519 bfd_pef_header
*header
,
520 bfd_pef_data_struct
*mdata
)
523 enum bfd_architecture cputype
;
524 unsigned long cpusubtype
;
526 mdata
->header
= *header
;
528 bfd_pef_convert_architecture (header
->architecture
, &cputype
, &cpusubtype
);
529 if (cputype
== bfd_arch_unknown
)
531 _bfd_error_handler (_("bfd_pef_scan: unknown architecture 0x%lx"),
532 header
->architecture
);
535 bfd_set_arch_mach (abfd
, cputype
, cpusubtype
);
537 mdata
->header
= *header
;
539 abfd
->flags
= (abfd
->xvec
->object_flags
540 | (abfd
->flags
& (BFD_IN_MEMORY
| BFD_IO_FUNCS
)));
542 if (header
->section_count
!= 0)
544 mdata
->sections
= bfd_alloc (abfd
, header
->section_count
* sizeof (bfd_pef_section
));
546 if (mdata
->sections
== NULL
)
549 for (i
= 0; i
< header
->section_count
; i
++)
551 bfd_pef_section
*cur
= &mdata
->sections
[i
];
552 cur
->header_offset
= 40 + (i
* 28);
553 if (bfd_pef_scan_section (abfd
, cur
) < 0)
558 if (bfd_pef_scan_start_address (abfd
) < 0)
561 abfd
->tdata
.pef_data
= mdata
;
567 bfd_pef_read_header (bfd
*abfd
, bfd_pef_header
*header
)
569 unsigned char buf
[40];
571 bfd_seek (abfd
, 0, SEEK_SET
);
573 if (bfd_bread ((void *) buf
, 40, abfd
) != 40)
576 header
->tag1
= bfd_getb32 (buf
);
577 header
->tag2
= bfd_getb32 (buf
+ 4);
578 header
->architecture
= bfd_getb32 (buf
+ 8);
579 header
->format_version
= bfd_getb32 (buf
+ 12);
580 header
->timestamp
= bfd_getb32 (buf
+ 16);
581 header
->old_definition_version
= bfd_getb32 (buf
+ 20);
582 header
->old_implementation_version
= bfd_getb32 (buf
+ 24);
583 header
->current_version
= bfd_getb32 (buf
+ 28);
584 header
->section_count
= bfd_getb32 (buf
+ 32) + 1;
585 header
->instantiated_section_count
= bfd_getb32 (buf
+ 34);
586 header
->reserved
= bfd_getb32 (buf
+ 36);
592 bfd_pef_object_p (bfd
*abfd
)
594 bfd_pef_header header
;
595 bfd_pef_data_struct
*mdata
;
597 if (bfd_pef_read_header (abfd
, &header
) != 0)
600 if (header
.tag1
!= BFD_PEF_TAG1
|| header
.tag2
!= BFD_PEF_TAG2
)
603 mdata
= (bfd_pef_data_struct
*) bfd_zalloc (abfd
, sizeof (*mdata
));
607 if (bfd_pef_scan (abfd
, &header
, mdata
))
610 return _bfd_no_cleanup
;
613 bfd_set_error (bfd_error_wrong_format
);
620 bfd_pef_parse_traceback_tables (bfd
*abfd
,
632 const char *const tbprefix
= "__traceback_";
636 unsigned long count
= 0;
641 /* We're reading symbols two at a time. */
642 if (csym
&& ((csym
[count
] == NULL
) || (csym
[count
+ 1] == NULL
)))
648 while ((pos
+ 4) <= len
)
650 if (bfd_getb32 (buf
+ pos
) == 0)
658 ret
= bfd_pef_parse_traceback_table (abfd
, sec
, buf
, len
, pos
+ 4,
662 /* Skip over 0x0L to advance to next possible traceback table. */
667 BFD_ASSERT (function
.name
!= NULL
);
669 /* Don't bother to compute the name if we are just
673 tbnamelen
= strlen (tbprefix
) + strlen (function
.name
);
674 name
= bfd_alloc (abfd
, tbnamelen
+ 1);
677 bfd_release (abfd
, (void *) function
.name
);
678 function
.name
= NULL
;
681 snprintf (name
, tbnamelen
+ 1, "%s%s", tbprefix
, function
.name
);
682 traceback
.name
= name
;
683 traceback
.value
= pos
;
684 traceback
.the_bfd
= abfd
;
685 traceback
.section
= sec
;
687 traceback
.udata
.i
= ret
;
689 *(csym
[count
]) = function
;
690 *(csym
[count
+ 1]) = traceback
;
702 bfd_pef_parse_function_stub (bfd
*abfd ATTRIBUTE_UNUSED
,
705 unsigned long *offset
)
707 BFD_ASSERT (len
== 24);
709 if ((bfd_getb32 (buf
) & 0xffff0000) != 0x81820000)
711 if (bfd_getb32 (buf
+ 4) != 0x90410014)
713 if (bfd_getb32 (buf
+ 8) != 0x800c0000)
715 if (bfd_getb32 (buf
+ 12) != 0x804c0004)
717 if (bfd_getb32 (buf
+ 16) != 0x7c0903a6)
719 if (bfd_getb32 (buf
+ 20) != 0x4e800420)
723 *offset
= (bfd_getb32 (buf
) & 0x0000ffff) / 4;
729 bfd_pef_parse_function_stubs (bfd
*abfd
,
731 unsigned char *codebuf
,
733 unsigned char *loaderbuf
,
738 const char *const sprefix
= "__stub_";
740 unsigned long count
= 0;
741 bfd_pef_loader_header header
;
742 bfd_pef_imported_library
*libraries
= NULL
;
743 bfd_pef_imported_symbol
*imports
= NULL
;
750 ret
= bfd_pef_parse_loader_header (abfd
, loaderbuf
, 56, &header
);
754 libraries
= bfd_malloc
755 (header
.imported_library_count
* sizeof (bfd_pef_imported_library
));
757 (header
.total_imported_symbol_count
* sizeof (bfd_pef_imported_symbol
));
758 if (libraries
== NULL
|| imports
== NULL
)
761 if (loaderlen
< (56 + (header
.imported_library_count
* 24)))
763 for (i
= 0; i
< header
.imported_library_count
; i
++)
765 ret
= bfd_pef_parse_imported_library
766 (abfd
, loaderbuf
+ 56 + (i
* 24), 24, &libraries
[i
]);
771 if (loaderlen
< (56 + (header
.imported_library_count
* 24)
772 + (header
.total_imported_symbol_count
* 4)))
774 for (i
= 0; i
< header
.total_imported_symbol_count
; i
++)
776 ret
= (bfd_pef_parse_imported_symbol
778 loaderbuf
+ 56 + (header
.imported_library_count
* 24) + (i
* 4),
791 unsigned long sym_index
;
793 if (csym
&& (csym
[count
] == NULL
))
797 codepos
-= (codepos
% 4);
799 while ((codepos
+ 4) <= codelen
)
801 if ((bfd_getb32 (codebuf
+ codepos
) & 0xffff0000) == 0x81820000)
806 if ((codepos
+ 24) > codelen
)
809 ret
= bfd_pef_parse_function_stub (abfd
, codebuf
+ codepos
, 24, &sym_index
);
816 if (sym_index
>= header
.total_imported_symbol_count
)
826 if (loaderlen
< (header
.loader_strings_offset
+ imports
[sym_index
].name
))
829 max
= loaderlen
- (header
.loader_strings_offset
+ imports
[sym_index
].name
);
830 symname
= (char *) loaderbuf
;
831 symname
+= header
.loader_strings_offset
+ imports
[sym_index
].name
;
833 for (s
= symname
; s
< (symname
+ max
); s
++)
844 name
= bfd_alloc (abfd
, strlen (sprefix
) + namelen
+ 1);
848 snprintf (name
, strlen (sprefix
) + namelen
+ 1, "%s%s",
855 sym
.section
= codesec
;
862 *(csym
[count
]) = sym
;
883 bfd_pef_parse_symbols (bfd
*abfd
, asymbol
**csym
)
885 unsigned long count
= 0;
887 asection
*codesec
= NULL
;
888 unsigned char *codebuf
= NULL
;
891 asection
*loadersec
= NULL
;
892 unsigned char *loaderbuf
= NULL
;
893 size_t loaderlen
= 0;
895 codesec
= bfd_get_section_by_name (abfd
, "code");
898 codelen
= codesec
->size
;
899 if (bfd_seek (abfd
, codesec
->filepos
, SEEK_SET
) != 0)
901 codebuf
= _bfd_malloc_and_read (abfd
, codelen
, codelen
);
906 loadersec
= bfd_get_section_by_name (abfd
, "loader");
907 if (loadersec
!= NULL
)
909 loaderlen
= loadersec
->size
;
910 if (bfd_seek (abfd
, loadersec
->filepos
, SEEK_SET
) != 0)
912 loaderbuf
= _bfd_malloc_and_read (abfd
, loaderlen
, loaderlen
);
913 if (loaderbuf
== NULL
)
921 bfd_pef_parse_traceback_tables (abfd
, codesec
, codebuf
, codelen
,
926 if ((codesec
!= NULL
) && (loadersec
!= NULL
))
928 unsigned long ncount
= 0;
929 bfd_pef_parse_function_stubs
930 (abfd
, codesec
, codebuf
, codelen
, loaderbuf
, loaderlen
, &ncount
,
931 (csym
!= NULL
) ? (csym
+ count
) : NULL
);
945 bfd_pef_count_symbols (bfd
*abfd
)
947 return bfd_pef_parse_symbols (abfd
, NULL
);
951 bfd_pef_get_symtab_upper_bound (bfd
*abfd
)
953 long nsyms
= bfd_pef_count_symbols (abfd
);
957 return ((nsyms
+ 1) * sizeof (asymbol
*));
961 bfd_pef_canonicalize_symtab (bfd
*abfd
, asymbol
**alocation
)
966 long nsyms
= bfd_pef_count_symbols (abfd
);
971 syms
= bfd_alloc (abfd
, nsyms
* sizeof (asymbol
));
975 for (i
= 0; i
< nsyms
; i
++)
976 alocation
[i
] = &syms
[i
];
978 alocation
[nsyms
] = NULL
;
980 ret
= bfd_pef_parse_symbols (abfd
, alocation
);
987 #define bfd_pef_make_empty_symbol _bfd_generic_make_empty_symbol
990 bfd_pef_get_symbol_info (bfd
*abfd ATTRIBUTE_UNUSED
,
994 bfd_symbol_info (symbol
, ret
);
998 bfd_pef_sizeof_headers (bfd
*abfd ATTRIBUTE_UNUSED
,
999 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
1004 const bfd_target pef_vec
=
1007 bfd_target_pef_flavour
, /* Flavour. */
1008 BFD_ENDIAN_BIG
, /* Byteorder. */
1009 BFD_ENDIAN_BIG
, /* Header_byteorder. */
1010 (HAS_RELOC
| EXEC_P
| /* Object flags. */
1011 HAS_LINENO
| HAS_DEBUG
|
1012 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
| D_PAGED
),
1013 (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
| SEC_DATA
1014 | SEC_ROM
| SEC_HAS_CONTENTS
), /* Section_flags. */
1015 0, /* Symbol_leading_char. */
1016 ' ', /* AR_pad_char. */
1017 16, /* AR_max_namelen. */
1018 0, /* match priority. */
1019 TARGET_KEEP_UNUSED_SECTION_SYMBOLS
, /* keep unused section symbols. */
1020 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
1021 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
1022 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* Data. */
1023 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
1024 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
1025 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* Headers. */
1026 { /* bfd_check_format. */
1028 bfd_pef_object_p
, /* bfd_check_format. */
1032 { /* bfd_set_format. */
1033 _bfd_bool_bfd_false_error
,
1035 _bfd_bool_bfd_false_error
,
1036 _bfd_bool_bfd_false_error
,
1038 { /* bfd_write_contents. */
1039 _bfd_bool_bfd_false_error
,
1041 _bfd_bool_bfd_false_error
,
1042 _bfd_bool_bfd_false_error
,
1045 BFD_JUMP_TABLE_GENERIC (bfd_pef
),
1046 BFD_JUMP_TABLE_COPY (_bfd_generic
),
1047 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
1048 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive
),
1049 BFD_JUMP_TABLE_SYMBOLS (bfd_pef
),
1050 BFD_JUMP_TABLE_RELOCS (_bfd_norelocs
),
1051 BFD_JUMP_TABLE_WRITE (bfd_pef
),
1052 BFD_JUMP_TABLE_LINK (bfd_pef
),
1053 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic
),
1060 #define bfd_pef_xlib_close_and_cleanup _bfd_generic_close_and_cleanup
1061 #define bfd_pef_xlib_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
1062 #define bfd_pef_xlib_new_section_hook _bfd_generic_new_section_hook
1063 #define bfd_pef_xlib_get_section_contents _bfd_generic_get_section_contents
1064 #define bfd_pef_xlib_set_section_contents _bfd_generic_set_section_contents
1065 #define bfd_pef_xlib_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
1066 #define bfd_pef_xlib_set_section_contents_in_window _bfd_generic_set_section_contents_in_window
1069 bfd_pef_xlib_read_header (bfd
*abfd
, bfd_pef_xlib_header
*header
)
1071 unsigned char buf
[80];
1073 bfd_seek (abfd
, 0, SEEK_SET
);
1075 if (bfd_bread ((void *) buf
, sizeof buf
, abfd
) != sizeof buf
)
1078 header
->tag1
= bfd_getb32 (buf
);
1079 header
->tag2
= bfd_getb32 (buf
+ 4);
1080 header
->current_format
= bfd_getb32 (buf
+ 8);
1081 header
->container_strings_offset
= bfd_getb32 (buf
+ 12);
1082 header
->export_hash_offset
= bfd_getb32 (buf
+ 16);
1083 header
->export_key_offset
= bfd_getb32 (buf
+ 20);
1084 header
->export_symbol_offset
= bfd_getb32 (buf
+ 24);
1085 header
->export_names_offset
= bfd_getb32 (buf
+ 28);
1086 header
->export_hash_table_power
= bfd_getb32 (buf
+ 32);
1087 header
->exported_symbol_count
= bfd_getb32 (buf
+ 36);
1088 header
->frag_name_offset
= bfd_getb32 (buf
+ 40);
1089 header
->frag_name_length
= bfd_getb32 (buf
+ 44);
1090 header
->dylib_path_offset
= bfd_getb32 (buf
+ 48);
1091 header
->dylib_path_length
= bfd_getb32 (buf
+ 52);
1092 header
->cpu_family
= bfd_getb32 (buf
+ 56);
1093 header
->cpu_model
= bfd_getb32 (buf
+ 60);
1094 header
->date_time_stamp
= bfd_getb32 (buf
+ 64);
1095 header
->current_version
= bfd_getb32 (buf
+ 68);
1096 header
->old_definition_version
= bfd_getb32 (buf
+ 72);
1097 header
->old_implementation_version
= bfd_getb32 (buf
+ 76);
1103 bfd_pef_xlib_scan (bfd
*abfd
, bfd_pef_xlib_header
*header
)
1105 bfd_pef_xlib_data_struct
*mdata
= NULL
;
1107 mdata
= bfd_alloc (abfd
, sizeof (* mdata
));
1111 mdata
->header
= *header
;
1113 abfd
->flags
= (abfd
->xvec
->object_flags
1114 | (abfd
->flags
& (BFD_IN_MEMORY
| BFD_IO_FUNCS
)));
1116 abfd
->tdata
.pef_xlib_data
= mdata
;
1122 bfd_pef_xlib_object_p (bfd
*abfd
)
1124 bfd_pef_xlib_header header
;
1126 if (bfd_pef_xlib_read_header (abfd
, &header
) != 0)
1128 bfd_set_error (bfd_error_wrong_format
);
1132 if ((header
.tag1
!= BFD_PEF_XLIB_TAG1
)
1133 || ((header
.tag2
!= BFD_PEF_VLIB_TAG2
)
1134 && (header
.tag2
!= BFD_PEF_BLIB_TAG2
)))
1136 bfd_set_error (bfd_error_wrong_format
);
1140 if (bfd_pef_xlib_scan (abfd
, &header
) != 0)
1142 bfd_set_error (bfd_error_wrong_format
);
1146 return _bfd_no_cleanup
;
1149 const bfd_target pef_xlib_vec
=
1151 "pef-xlib", /* Name. */
1152 bfd_target_pef_xlib_flavour
, /* Flavour. */
1153 BFD_ENDIAN_BIG
, /* Byteorder */
1154 BFD_ENDIAN_BIG
, /* Header_byteorder. */
1155 (HAS_RELOC
| EXEC_P
| /* Object flags. */
1156 HAS_LINENO
| HAS_DEBUG
|
1157 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
| D_PAGED
),
1158 (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
| SEC_DATA
1159 | SEC_ROM
| SEC_HAS_CONTENTS
),/* Section_flags. */
1160 0, /* Symbol_leading_char. */
1161 ' ', /* AR_pad_char. */
1162 16, /* AR_max_namelen. */
1163 0, /* match priority. */
1164 TARGET_KEEP_UNUSED_SECTION_SYMBOLS
, /* keep unused section symbols. */
1165 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
1166 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
1167 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* Data. */
1168 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
1169 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
1170 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* Headers. */
1171 { /* bfd_check_format. */
1173 bfd_pef_xlib_object_p
, /* bfd_check_format. */
1177 { /* bfd_set_format. */
1178 _bfd_bool_bfd_false_error
,
1180 _bfd_bool_bfd_false_error
,
1181 _bfd_bool_bfd_false_error
,
1183 { /* bfd_write_contents. */
1184 _bfd_bool_bfd_false_error
,
1186 _bfd_bool_bfd_false_error
,
1187 _bfd_bool_bfd_false_error
,
1190 BFD_JUMP_TABLE_GENERIC (bfd_pef_xlib
),
1191 BFD_JUMP_TABLE_COPY (_bfd_generic
),
1192 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
1193 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive
),
1194 BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols
),
1195 BFD_JUMP_TABLE_RELOCS (_bfd_norelocs
),
1196 BFD_JUMP_TABLE_WRITE (_bfd_nowrite
),
1197 BFD_JUMP_TABLE_LINK (_bfd_nolink
),
1198 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic
),