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
);
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 if ((loaderlen
- 56) / 24 < header
.imported_library_count
)
757 if ((loaderlen
- 56 - header
.imported_library_count
* 24) / 4
758 < header
.total_imported_symbol_count
)
761 libraries
= bfd_malloc
762 (header
.imported_library_count
* sizeof (bfd_pef_imported_library
));
764 (header
.total_imported_symbol_count
* sizeof (bfd_pef_imported_symbol
));
765 if (libraries
== NULL
|| imports
== NULL
)
768 for (i
= 0; i
< header
.imported_library_count
; i
++)
770 ret
= bfd_pef_parse_imported_library
771 (abfd
, loaderbuf
+ 56 + (i
* 24), 24, &libraries
[i
]);
776 for (i
= 0; i
< header
.total_imported_symbol_count
; i
++)
778 ret
= (bfd_pef_parse_imported_symbol
780 loaderbuf
+ 56 + (header
.imported_library_count
* 24) + (i
* 4),
793 unsigned long sym_index
;
795 if (csym
&& (csym
[count
] == NULL
))
799 codepos
-= (codepos
% 4);
801 while ((codepos
+ 4) <= codelen
)
803 if ((bfd_getb32 (codebuf
+ codepos
) & 0xffff0000) == 0x81820000)
808 if ((codepos
+ 24) > codelen
)
811 ret
= bfd_pef_parse_function_stub (abfd
, codebuf
+ codepos
, 24, &sym_index
);
818 if (sym_index
>= header
.total_imported_symbol_count
)
828 if (loaderlen
< (header
.loader_strings_offset
+ imports
[sym_index
].name
))
831 max
= loaderlen
- (header
.loader_strings_offset
+ imports
[sym_index
].name
);
832 symname
= (char *) loaderbuf
;
833 symname
+= header
.loader_strings_offset
+ imports
[sym_index
].name
;
835 for (s
= symname
; s
< (symname
+ max
); s
++)
846 name
= bfd_alloc (abfd
, strlen (sprefix
) + namelen
+ 1);
850 snprintf (name
, strlen (sprefix
) + namelen
+ 1, "%s%s",
857 sym
.section
= codesec
;
864 *(csym
[count
]) = sym
;
885 bfd_pef_parse_symbols (bfd
*abfd
, asymbol
**csym
)
887 unsigned long count
= 0;
889 asection
*codesec
= NULL
;
890 unsigned char *codebuf
= NULL
;
893 asection
*loadersec
= NULL
;
894 unsigned char *loaderbuf
= NULL
;
895 size_t loaderlen
= 0;
897 codesec
= bfd_get_section_by_name (abfd
, "code");
900 codelen
= codesec
->size
;
901 if (bfd_seek (abfd
, codesec
->filepos
, SEEK_SET
) != 0)
903 codebuf
= _bfd_malloc_and_read (abfd
, codelen
, codelen
);
908 loadersec
= bfd_get_section_by_name (abfd
, "loader");
909 if (loadersec
!= NULL
)
911 loaderlen
= loadersec
->size
;
912 if (bfd_seek (abfd
, loadersec
->filepos
, SEEK_SET
) != 0)
914 loaderbuf
= _bfd_malloc_and_read (abfd
, loaderlen
, loaderlen
);
915 if (loaderbuf
== NULL
)
923 bfd_pef_parse_traceback_tables (abfd
, codesec
, codebuf
, codelen
,
928 if ((codesec
!= NULL
) && (loadersec
!= NULL
))
930 unsigned long ncount
= 0;
931 bfd_pef_parse_function_stubs
932 (abfd
, codesec
, codebuf
, codelen
, loaderbuf
, loaderlen
, &ncount
,
933 (csym
!= NULL
) ? (csym
+ count
) : NULL
);
947 bfd_pef_count_symbols (bfd
*abfd
)
949 return bfd_pef_parse_symbols (abfd
, NULL
);
953 bfd_pef_get_symtab_upper_bound (bfd
*abfd
)
955 long nsyms
= bfd_pef_count_symbols (abfd
);
959 return ((nsyms
+ 1) * sizeof (asymbol
*));
963 bfd_pef_canonicalize_symtab (bfd
*abfd
, asymbol
**alocation
)
968 long nsyms
= bfd_pef_count_symbols (abfd
);
973 syms
= bfd_alloc (abfd
, nsyms
* sizeof (asymbol
));
977 for (i
= 0; i
< nsyms
; i
++)
978 alocation
[i
] = &syms
[i
];
980 alocation
[nsyms
] = NULL
;
982 ret
= bfd_pef_parse_symbols (abfd
, alocation
);
989 #define bfd_pef_make_empty_symbol _bfd_generic_make_empty_symbol
992 bfd_pef_get_symbol_info (bfd
*abfd ATTRIBUTE_UNUSED
,
996 bfd_symbol_info (symbol
, ret
);
1000 bfd_pef_sizeof_headers (bfd
*abfd ATTRIBUTE_UNUSED
,
1001 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
1006 const bfd_target pef_vec
=
1009 bfd_target_pef_flavour
, /* Flavour. */
1010 BFD_ENDIAN_BIG
, /* Byteorder. */
1011 BFD_ENDIAN_BIG
, /* Header_byteorder. */
1012 (HAS_RELOC
| EXEC_P
| /* Object flags. */
1013 HAS_LINENO
| HAS_DEBUG
|
1014 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
| D_PAGED
),
1015 (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
| SEC_DATA
1016 | SEC_ROM
| SEC_HAS_CONTENTS
), /* Section_flags. */
1017 0, /* Symbol_leading_char. */
1018 ' ', /* AR_pad_char. */
1019 16, /* AR_max_namelen. */
1020 0, /* match priority. */
1021 TARGET_KEEP_UNUSED_SECTION_SYMBOLS
, /* keep unused section symbols. */
1022 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
1023 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
1024 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* Data. */
1025 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
1026 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
1027 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* Headers. */
1028 { /* bfd_check_format. */
1030 bfd_pef_object_p
, /* bfd_check_format. */
1034 { /* bfd_set_format. */
1035 _bfd_bool_bfd_false_error
,
1037 _bfd_bool_bfd_false_error
,
1038 _bfd_bool_bfd_false_error
,
1040 { /* bfd_write_contents. */
1041 _bfd_bool_bfd_false_error
,
1043 _bfd_bool_bfd_false_error
,
1044 _bfd_bool_bfd_false_error
,
1047 BFD_JUMP_TABLE_GENERIC (bfd_pef
),
1048 BFD_JUMP_TABLE_COPY (_bfd_generic
),
1049 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
1050 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive
),
1051 BFD_JUMP_TABLE_SYMBOLS (bfd_pef
),
1052 BFD_JUMP_TABLE_RELOCS (_bfd_norelocs
),
1053 BFD_JUMP_TABLE_WRITE (bfd_pef
),
1054 BFD_JUMP_TABLE_LINK (bfd_pef
),
1055 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic
),
1062 #define bfd_pef_xlib_close_and_cleanup _bfd_generic_close_and_cleanup
1063 #define bfd_pef_xlib_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
1064 #define bfd_pef_xlib_new_section_hook _bfd_generic_new_section_hook
1065 #define bfd_pef_xlib_get_section_contents _bfd_generic_get_section_contents
1066 #define bfd_pef_xlib_set_section_contents _bfd_generic_set_section_contents
1067 #define bfd_pef_xlib_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
1068 #define bfd_pef_xlib_set_section_contents_in_window _bfd_generic_set_section_contents_in_window
1071 bfd_pef_xlib_read_header (bfd
*abfd
, bfd_pef_xlib_header
*header
)
1073 unsigned char buf
[80];
1075 bfd_seek (abfd
, 0, SEEK_SET
);
1077 if (bfd_bread ((void *) buf
, sizeof buf
, abfd
) != sizeof buf
)
1080 header
->tag1
= bfd_getb32 (buf
);
1081 header
->tag2
= bfd_getb32 (buf
+ 4);
1082 header
->current_format
= bfd_getb32 (buf
+ 8);
1083 header
->container_strings_offset
= bfd_getb32 (buf
+ 12);
1084 header
->export_hash_offset
= bfd_getb32 (buf
+ 16);
1085 header
->export_key_offset
= bfd_getb32 (buf
+ 20);
1086 header
->export_symbol_offset
= bfd_getb32 (buf
+ 24);
1087 header
->export_names_offset
= bfd_getb32 (buf
+ 28);
1088 header
->export_hash_table_power
= bfd_getb32 (buf
+ 32);
1089 header
->exported_symbol_count
= bfd_getb32 (buf
+ 36);
1090 header
->frag_name_offset
= bfd_getb32 (buf
+ 40);
1091 header
->frag_name_length
= bfd_getb32 (buf
+ 44);
1092 header
->dylib_path_offset
= bfd_getb32 (buf
+ 48);
1093 header
->dylib_path_length
= bfd_getb32 (buf
+ 52);
1094 header
->cpu_family
= bfd_getb32 (buf
+ 56);
1095 header
->cpu_model
= bfd_getb32 (buf
+ 60);
1096 header
->date_time_stamp
= bfd_getb32 (buf
+ 64);
1097 header
->current_version
= bfd_getb32 (buf
+ 68);
1098 header
->old_definition_version
= bfd_getb32 (buf
+ 72);
1099 header
->old_implementation_version
= bfd_getb32 (buf
+ 76);
1105 bfd_pef_xlib_scan (bfd
*abfd
, bfd_pef_xlib_header
*header
)
1107 bfd_pef_xlib_data_struct
*mdata
= NULL
;
1109 mdata
= bfd_alloc (abfd
, sizeof (* mdata
));
1113 mdata
->header
= *header
;
1115 abfd
->flags
= (abfd
->xvec
->object_flags
1116 | (abfd
->flags
& (BFD_IN_MEMORY
| BFD_IO_FUNCS
)));
1118 abfd
->tdata
.pef_xlib_data
= mdata
;
1124 bfd_pef_xlib_object_p (bfd
*abfd
)
1126 bfd_pef_xlib_header header
;
1128 if (bfd_pef_xlib_read_header (abfd
, &header
) != 0)
1130 bfd_set_error (bfd_error_wrong_format
);
1134 if ((header
.tag1
!= BFD_PEF_XLIB_TAG1
)
1135 || ((header
.tag2
!= BFD_PEF_VLIB_TAG2
)
1136 && (header
.tag2
!= BFD_PEF_BLIB_TAG2
)))
1138 bfd_set_error (bfd_error_wrong_format
);
1142 if (bfd_pef_xlib_scan (abfd
, &header
) != 0)
1144 bfd_set_error (bfd_error_wrong_format
);
1148 return _bfd_no_cleanup
;
1151 const bfd_target pef_xlib_vec
=
1153 "pef-xlib", /* Name. */
1154 bfd_target_pef_xlib_flavour
, /* Flavour. */
1155 BFD_ENDIAN_BIG
, /* Byteorder */
1156 BFD_ENDIAN_BIG
, /* Header_byteorder. */
1157 (HAS_RELOC
| EXEC_P
| /* Object flags. */
1158 HAS_LINENO
| HAS_DEBUG
|
1159 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
| D_PAGED
),
1160 (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_CODE
| SEC_DATA
1161 | SEC_ROM
| SEC_HAS_CONTENTS
),/* Section_flags. */
1162 0, /* Symbol_leading_char. */
1163 ' ', /* AR_pad_char. */
1164 16, /* AR_max_namelen. */
1165 0, /* match priority. */
1166 TARGET_KEEP_UNUSED_SECTION_SYMBOLS
, /* keep unused section symbols. */
1167 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
1168 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
1169 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* Data. */
1170 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
1171 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
1172 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* Headers. */
1173 { /* bfd_check_format. */
1175 bfd_pef_xlib_object_p
, /* bfd_check_format. */
1179 { /* bfd_set_format. */
1180 _bfd_bool_bfd_false_error
,
1182 _bfd_bool_bfd_false_error
,
1183 _bfd_bool_bfd_false_error
,
1185 { /* bfd_write_contents. */
1186 _bfd_bool_bfd_false_error
,
1188 _bfd_bool_bfd_false_error
,
1189 _bfd_bool_bfd_false_error
,
1192 BFD_JUMP_TABLE_GENERIC (bfd_pef_xlib
),
1193 BFD_JUMP_TABLE_COPY (_bfd_generic
),
1194 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
1195 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive
),
1196 BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols
),
1197 BFD_JUMP_TABLE_RELOCS (_bfd_norelocs
),
1198 BFD_JUMP_TABLE_WRITE (_bfd_nowrite
),
1199 BFD_JUMP_TABLE_LINK (_bfd_nolink
),
1200 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic
),