daily update
[binutils.git] / bfd / pef.c
blob6630a770b92417078695a1c414736ae846d4e4aa
1 /* PEF support for BFD.
2 Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
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 3 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., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
22 #include "sysdep.h"
23 #include "safe-ctype.h"
24 #include "pef.h"
25 #include "pef-traceback.h"
26 #include "bfd.h"
27 #include "libbfd.h"
28 #include "libiberty.h"
30 #ifndef BFD_IO_FUNCS
31 #define BFD_IO_FUNCS 0
32 #endif
34 #define bfd_pef_close_and_cleanup _bfd_generic_close_and_cleanup
35 #define bfd_pef_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
36 #define bfd_pef_new_section_hook _bfd_generic_new_section_hook
37 #define bfd_pef_bfd_is_local_label_name bfd_generic_is_local_label_name
38 #define bfd_pef_bfd_is_target_special_symbol ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
39 #define bfd_pef_get_lineno _bfd_nosymbols_get_lineno
40 #define bfd_pef_find_nearest_line _bfd_nosymbols_find_nearest_line
41 #define bfd_pef_find_inliner_info _bfd_nosymbols_find_inliner_info
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
45 #define bfd_pef_set_arch_mach _bfd_generic_set_arch_mach
46 #define bfd_pef_get_section_contents _bfd_generic_get_section_contents
47 #define bfd_pef_set_section_contents _bfd_generic_set_section_contents
48 #define bfd_pef_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents
49 #define bfd_pef_bfd_relax_section bfd_generic_relax_section
50 #define bfd_pef_bfd_gc_sections bfd_generic_gc_sections
51 #define bfd_pef_bfd_merge_sections bfd_generic_merge_sections
52 #define bfd_pef_bfd_is_group_section bfd_generic_is_group_section
53 #define bfd_pef_bfd_discard_group bfd_generic_discard_group
54 #define bfd_pef_section_already_linked _bfd_generic_section_already_linked
55 #define bfd_pef_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
56 #define bfd_pef_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
57 #define bfd_pef_bfd_link_add_symbols _bfd_generic_link_add_symbols
58 #define bfd_pef_bfd_link_just_syms _bfd_generic_link_just_syms
59 #define bfd_pef_bfd_final_link _bfd_generic_final_link
60 #define bfd_pef_bfd_link_split_section _bfd_generic_link_split_section
61 #define bfd_pef_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
63 static int
64 bfd_pef_parse_traceback_table (bfd *abfd,
65 asection *section,
66 unsigned char *buf,
67 size_t len,
68 size_t pos,
69 asymbol *sym,
70 FILE *file)
72 struct traceback_table table;
73 size_t offset;
74 const char *s;
75 asymbol tmpsymbol;
77 if (sym == NULL)
78 sym = & tmpsymbol;
80 sym->name = NULL;
81 sym->value = 0;
82 sym->the_bfd = abfd;
83 sym->section = section;
84 sym->flags = 0;
85 sym->udata.i = 0;
87 /* memcpy is fine since all fields are unsigned char. */
88 if ((pos + 8) > len)
89 return -1;
90 memcpy (&table, buf + pos, 8);
92 /* Calling code relies on returned symbols having a name and
93 correct offset. */
94 if ((table.lang != TB_C) && (table.lang != TB_CPLUSPLUS))
95 return -1;
97 if (! (table.flags2 & TB_NAME_PRESENT))
98 return -1;
100 if (! table.flags1 & TB_HAS_TBOFF)
101 return -1;
103 offset = 8;
105 if ((table.flags5 & TB_FLOATPARAMS) || (table.fixedparams))
106 offset += 4;
108 if (table.flags1 & TB_HAS_TBOFF)
110 struct traceback_table_tboff off;
112 if ((pos + offset + 4) > len)
113 return -1;
114 off.tb_offset = bfd_getb32 (buf + pos + offset);
115 offset += 4;
117 /* Need to subtract 4 because the offset includes the 0x0L
118 preceding the table. */
119 if (file != NULL)
120 fprintf (file, " [offset = 0x%lx]", off.tb_offset);
122 if ((file == NULL) && ((off.tb_offset + 4) > (pos + offset)))
123 return -1;
125 sym->value = pos - off.tb_offset - 4;
128 if (table.flags2 & TB_INT_HNDL)
129 offset += 4;
131 if (table.flags1 & TB_HAS_CTL)
133 struct traceback_table_anchors anchors;
135 if ((pos + offset + 4) > len)
136 return -1;
137 anchors.ctl_info = bfd_getb32 (buf + pos + offset);
138 offset += 4;
140 if (anchors.ctl_info > 1024)
141 return -1;
143 offset += anchors.ctl_info * 4;
146 if (table.flags2 & TB_NAME_PRESENT)
148 struct traceback_table_routine name;
149 char *namebuf;
151 if ((pos + offset + 2) > len)
152 return -1;
153 name.name_len = bfd_getb16 (buf + pos + offset);
154 offset += 2;
156 if (name.name_len > 4096)
157 return -1;
159 if ((pos + offset + name.name_len) > len)
160 return -1;
162 namebuf = bfd_alloc (abfd, name.name_len + 1);
163 if (namebuf == NULL)
164 return -1;
166 memcpy (namebuf, buf + pos + offset, name.name_len);
167 namebuf[name.name_len] = '\0';
169 /* Strip leading period inserted by compiler. */
170 if (namebuf[0] == '.')
171 memmove (namebuf, namebuf + 1, name.name_len + 1);
173 sym->name = namebuf;
175 for (s = sym->name; (*s != '\0'); s++)
176 if (! ISPRINT (*s))
177 return -1;
179 offset += name.name_len;
182 if (table.flags2 & TB_USES_ALLOCA)
183 offset += 4;
185 if (table.flags4 & TB_HAS_VEC_INFO)
186 offset += 4;
188 if (file != NULL)
189 fprintf (file, " [length = 0x%lx]", (unsigned long) offset);
191 return offset;
194 static void
195 bfd_pef_print_symbol (bfd *abfd,
196 void * afile,
197 asymbol *symbol,
198 bfd_print_symbol_type how)
200 FILE *file = (FILE *) afile;
202 switch (how)
204 case bfd_print_symbol_name:
205 fprintf (file, "%s", symbol->name);
206 break;
207 default:
208 bfd_print_symbol_vandf (abfd, (void *) file, symbol);
209 fprintf (file, " %-5s %s", symbol->section->name, symbol->name);
210 if (CONST_STRNEQ (symbol->name, "__traceback_"))
212 unsigned char *buf = alloca (symbol->udata.i);
213 size_t offset = symbol->value + 4;
214 size_t len = symbol->udata.i;
215 int ret;
217 bfd_get_section_contents (abfd, symbol->section, buf, offset, len);
218 ret = bfd_pef_parse_traceback_table (abfd, symbol->section, buf,
219 len, 0, NULL, file);
220 if (ret < 0)
221 fprintf (file, " [ERROR]");
226 static void
227 bfd_pef_convert_architecture (unsigned long architecture,
228 enum bfd_architecture *type,
229 unsigned long *subtype)
231 const unsigned long ARCH_POWERPC = 0x70777063; /* 'pwpc'. */
232 const unsigned long ARCH_M68K = 0x6d36386b; /* 'm68k'. */
234 *subtype = bfd_arch_unknown;
235 *type = bfd_arch_unknown;
237 if (architecture == ARCH_POWERPC)
238 *type = bfd_arch_powerpc;
239 else if (architecture == ARCH_M68K)
240 *type = bfd_arch_m68k;
243 static bfd_boolean
244 bfd_pef_mkobject (bfd *abfd ATTRIBUTE_UNUSED)
246 return TRUE;
249 static const char *bfd_pef_section_name (bfd_pef_section *section)
251 switch (section->section_kind)
253 case BFD_PEF_SECTION_CODE: return "code";
254 case BFD_PEF_SECTION_UNPACKED_DATA: return "unpacked-data";
255 case BFD_PEF_SECTION_PACKED_DATA: return "packed-data";
256 case BFD_PEF_SECTION_CONSTANT: return "constant";
257 case BFD_PEF_SECTION_LOADER: return "loader";
258 case BFD_PEF_SECTION_DEBUG: return "debug";
259 case BFD_PEF_SECTION_EXEC_DATA: return "exec-data";
260 case BFD_PEF_SECTION_EXCEPTION: return "exception";
261 case BFD_PEF_SECTION_TRACEBACK: return "traceback";
262 default: return "unknown";
266 static unsigned long bfd_pef_section_flags (bfd_pef_section *section)
268 switch (section->section_kind)
270 case BFD_PEF_SECTION_CODE:
271 return SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC | SEC_CODE;
272 case BFD_PEF_SECTION_UNPACKED_DATA:
273 case BFD_PEF_SECTION_PACKED_DATA:
274 case BFD_PEF_SECTION_CONSTANT:
275 case BFD_PEF_SECTION_LOADER:
276 case BFD_PEF_SECTION_DEBUG:
277 case BFD_PEF_SECTION_EXEC_DATA:
278 case BFD_PEF_SECTION_EXCEPTION:
279 case BFD_PEF_SECTION_TRACEBACK:
280 default:
281 return SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC;
285 static asection *
286 bfd_pef_make_bfd_section (bfd *abfd, bfd_pef_section *section)
288 asection *bfdsec;
289 const char *name = bfd_pef_section_name (section);
291 bfdsec = bfd_make_section_anyway (abfd, name);
292 if (bfdsec == NULL)
293 return NULL;
295 bfdsec->vma = section->default_address + section->container_offset;
296 bfdsec->lma = section->default_address + section->container_offset;
297 bfdsec->size = section->container_length;
298 bfdsec->filepos = section->container_offset;
299 bfdsec->alignment_power = section->alignment;
301 bfdsec->flags = bfd_pef_section_flags (section);
303 return bfdsec;
307 bfd_pef_parse_loader_header (bfd *abfd ATTRIBUTE_UNUSED,
308 unsigned char *buf,
309 size_t len,
310 bfd_pef_loader_header *header)
312 BFD_ASSERT (len == 56);
314 header->main_section = bfd_getb32 (buf);
315 header->main_offset = bfd_getb32 (buf + 4);
316 header->init_section = bfd_getb32 (buf + 8);
317 header->init_offset = bfd_getb32 (buf + 12);
318 header->term_section = bfd_getb32 (buf + 16);
319 header->term_offset = bfd_getb32 (buf + 20);
320 header->imported_library_count = bfd_getb32 (buf + 24);
321 header->total_imported_symbol_count = bfd_getb32 (buf + 28);
322 header->reloc_section_count = bfd_getb32 (buf + 32);
323 header->reloc_instr_offset = bfd_getb32 (buf + 36);
324 header->loader_strings_offset = bfd_getb32 (buf + 40);
325 header->export_hash_offset = bfd_getb32 (buf + 44);
326 header->export_hash_table_power = bfd_getb32 (buf + 48);
327 header->exported_symbol_count = bfd_getb32 (buf + 52);
329 return 0;
333 bfd_pef_parse_imported_library (bfd *abfd ATTRIBUTE_UNUSED,
334 unsigned char *buf,
335 size_t len,
336 bfd_pef_imported_library *header)
338 BFD_ASSERT (len == 24);
340 header->name_offset = bfd_getb32 (buf);
341 header->old_implementation_version = bfd_getb32 (buf + 4);
342 header->current_version = bfd_getb32 (buf + 8);
343 header->imported_symbol_count = bfd_getb32 (buf + 12);
344 header->first_imported_symbol = bfd_getb32 (buf + 16);
345 header->options = buf[20];
346 header->reserved_a = buf[21];
347 header->reserved_b = bfd_getb16 (buf + 22);
349 return 0;
353 bfd_pef_parse_imported_symbol (bfd *abfd ATTRIBUTE_UNUSED,
354 unsigned char *buf,
355 size_t len,
356 bfd_pef_imported_symbol *symbol)
358 unsigned long value;
360 BFD_ASSERT (len == 4);
362 value = bfd_getb32 (buf);
363 symbol->class = value >> 24;
364 symbol->name = value & 0x00ffffff;
366 return 0;
370 bfd_pef_scan_section (bfd *abfd, bfd_pef_section *section)
372 unsigned char buf[28];
374 bfd_seek (abfd, section->header_offset, SEEK_SET);
375 if (bfd_bread ((void *) buf, 28, abfd) != 28)
376 return -1;
378 section->name_offset = bfd_h_get_32 (abfd, buf);
379 section->default_address = bfd_h_get_32 (abfd, buf + 4);
380 section->total_length = bfd_h_get_32 (abfd, buf + 8);
381 section->unpacked_length = bfd_h_get_32 (abfd, buf + 12);
382 section->container_length = bfd_h_get_32 (abfd, buf + 16);
383 section->container_offset = bfd_h_get_32 (abfd, buf + 20);
384 section->section_kind = buf[24];
385 section->share_kind = buf[25];
386 section->alignment = buf[26];
387 section->reserved = buf[27];
389 section->bfd_section = bfd_pef_make_bfd_section (abfd, section);
390 if (section->bfd_section == NULL)
391 return -1;
393 return 0;
396 void
397 bfd_pef_print_loader_header (bfd *abfd ATTRIBUTE_UNUSED,
398 bfd_pef_loader_header *header,
399 FILE *file)
401 fprintf (file, "main_section: %ld\n", header->main_section);
402 fprintf (file, "main_offset: %lu\n", header->main_offset);
403 fprintf (file, "init_section: %ld\n", header->init_section);
404 fprintf (file, "init_offset: %lu\n", header->init_offset);
405 fprintf (file, "term_section: %ld\n", header->term_section);
406 fprintf (file, "term_offset: %lu\n", header->term_offset);
407 fprintf (file, "imported_library_count: %lu\n",
408 header->imported_library_count);
409 fprintf (file, "total_imported_symbol_count: %lu\n",
410 header->total_imported_symbol_count);
411 fprintf (file, "reloc_section_count: %lu\n", header->reloc_section_count);
412 fprintf (file, "reloc_instr_offset: %lu\n", header->reloc_instr_offset);
413 fprintf (file, "loader_strings_offset: %lu\n",
414 header->loader_strings_offset);
415 fprintf (file, "export_hash_offset: %lu\n", header->export_hash_offset);
416 fprintf (file, "export_hash_table_power: %lu\n",
417 header->export_hash_table_power);
418 fprintf (file, "exported_symbol_count: %lu\n",
419 header->exported_symbol_count);
423 bfd_pef_print_loader_section (bfd *abfd, FILE *file)
425 bfd_pef_loader_header header;
426 asection *loadersec = NULL;
427 unsigned char *loaderbuf = NULL;
428 size_t loaderlen = 0;
430 loadersec = bfd_get_section_by_name (abfd, "loader");
431 if (loadersec == NULL)
432 return -1;
434 loaderlen = loadersec->size;
435 loaderbuf = bfd_malloc (loaderlen);
437 if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0
438 || bfd_bread ((void *) loaderbuf, loaderlen, abfd) != loaderlen
439 || loaderlen < 56
440 || bfd_pef_parse_loader_header (abfd, loaderbuf, 56, &header) < 0)
442 free (loaderbuf);
443 return -1;
446 bfd_pef_print_loader_header (abfd, &header, file);
447 return 0;
451 bfd_pef_scan_start_address (bfd *abfd)
453 bfd_pef_loader_header header;
454 asection *section;
456 asection *loadersec = NULL;
457 unsigned char *loaderbuf = NULL;
458 size_t loaderlen = 0;
459 int ret;
461 loadersec = bfd_get_section_by_name (abfd, "loader");
462 if (loadersec == NULL)
463 goto end;
465 loaderlen = loadersec->size;
466 loaderbuf = bfd_malloc (loaderlen);
467 if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0)
468 goto error;
469 if (bfd_bread ((void *) loaderbuf, loaderlen, abfd) != loaderlen)
470 goto error;
472 if (loaderlen < 56)
473 goto error;
474 ret = bfd_pef_parse_loader_header (abfd, loaderbuf, 56, &header);
475 if (ret < 0)
476 goto error;
478 if (header.main_section < 0)
479 goto end;
481 for (section = abfd->sections; section != NULL; section = section->next)
482 if ((section->index + 1) == header.main_section)
483 break;
485 if (section == NULL)
486 goto error;
488 abfd->start_address = section->vma + header.main_offset;
490 end:
491 if (loaderbuf != NULL)
492 free (loaderbuf);
493 return 0;
495 error:
496 if (loaderbuf != NULL)
497 free (loaderbuf);
498 return -1;
502 bfd_pef_scan (abfd, header, mdata)
503 bfd *abfd;
504 bfd_pef_header *header;
505 bfd_pef_data_struct *mdata;
507 unsigned int i;
508 enum bfd_architecture cputype;
509 unsigned long cpusubtype;
511 mdata->header = *header;
513 bfd_pef_convert_architecture (header->architecture, &cputype, &cpusubtype);
514 if (cputype == bfd_arch_unknown)
516 fprintf (stderr, "bfd_pef_scan: unknown architecture 0x%lx\n",
517 header->architecture);
518 return -1;
520 bfd_set_arch_mach (abfd, cputype, cpusubtype);
522 mdata->header = *header;
524 abfd->flags = (abfd->xvec->object_flags
525 | (abfd->flags & (BFD_IN_MEMORY | BFD_IO_FUNCS)));
527 if (header->section_count != 0)
529 mdata->sections = bfd_alloc (abfd, header->section_count * sizeof (bfd_pef_section));
531 if (mdata->sections == NULL)
532 return -1;
534 for (i = 0; i < header->section_count; i++)
536 bfd_pef_section *cur = &mdata->sections[i];
537 cur->header_offset = 40 + (i * 28);
538 if (bfd_pef_scan_section (abfd, cur) < 0)
539 return -1;
543 if (bfd_pef_scan_start_address (abfd) < 0)
544 return -1;
546 abfd->tdata.pef_data = mdata;
548 return 0;
551 static int
552 bfd_pef_read_header (bfd *abfd, bfd_pef_header *header)
554 unsigned char buf[40];
556 bfd_seek (abfd, 0, SEEK_SET);
558 if (bfd_bread ((void *) buf, 40, abfd) != 40)
559 return -1;
561 header->tag1 = bfd_getb32 (buf);
562 header->tag2 = bfd_getb32 (buf + 4);
563 header->architecture = bfd_getb32 (buf + 8);
564 header->format_version = bfd_getb32 (buf + 12);
565 header->timestamp = bfd_getb32 (buf + 16);
566 header->old_definition_version = bfd_getb32 (buf + 20);
567 header->old_implementation_version = bfd_getb32 (buf + 24);
568 header->current_version = bfd_getb32 (buf + 28);
569 header->section_count = bfd_getb32 (buf + 32) + 1;
570 header->instantiated_section_count = bfd_getb32 (buf + 34);
571 header->reserved = bfd_getb32 (buf + 36);
573 return 0;
576 static const bfd_target *
577 bfd_pef_object_p (bfd *abfd)
579 struct bfd_preserve preserve;
580 bfd_pef_header header;
582 preserve.marker = NULL;
583 if (bfd_pef_read_header (abfd, &header) != 0)
584 goto wrong;
586 if (header.tag1 != BFD_PEF_TAG1 || header.tag2 != BFD_PEF_TAG2)
587 goto wrong;
589 preserve.marker = bfd_zalloc (abfd, sizeof (bfd_pef_data_struct));
590 if (preserve.marker == NULL
591 || !bfd_preserve_save (abfd, &preserve))
592 goto fail;
594 if (bfd_pef_scan (abfd, &header,
595 (bfd_pef_data_struct *) preserve.marker) != 0)
596 goto wrong;
598 bfd_preserve_finish (abfd, &preserve);
599 return abfd->xvec;
601 wrong:
602 bfd_set_error (bfd_error_wrong_format);
604 fail:
605 if (preserve.marker != NULL)
606 bfd_preserve_restore (abfd, &preserve);
607 return NULL;
610 static int
611 bfd_pef_parse_traceback_tables (bfd *abfd,
612 asection *sec,
613 unsigned char *buf,
614 size_t len,
615 long *nsym,
616 asymbol **csym)
618 char *name;
620 asymbol function;
621 asymbol traceback;
623 const char *const tbprefix = "__traceback_";
624 size_t tbnamelen;
626 size_t pos = 0;
627 unsigned long count = 0;
628 int ret;
630 for (;;)
632 /* We're reading symbols two at a time. */
633 if (csym && ((csym[count] == NULL) || (csym[count + 1] == NULL)))
634 break;
636 pos += 3;
637 pos -= (pos % 4);
639 while ((pos + 4) <= len)
641 if (bfd_getb32 (buf + pos) == 0)
642 break;
643 pos += 4;
646 if ((pos + 4) > len)
647 break;
649 ret = bfd_pef_parse_traceback_table (abfd, sec, buf, len, pos + 4,
650 &function, 0);
651 if (ret < 0)
653 /* Skip over 0x0L to advance to next possible traceback table. */
654 pos += 4;
655 continue;
658 BFD_ASSERT (function.name != NULL);
660 /* Don't bother to compute the name if we are just
661 counting symbols. */
662 if (csym)
664 tbnamelen = strlen (tbprefix) + strlen (function.name);
665 name = bfd_alloc (abfd, tbnamelen + 1);
666 if (name == NULL)
668 bfd_release (abfd, (void *) function.name);
669 function.name = NULL;
670 break;
672 snprintf (name, tbnamelen + 1, "%s%s", tbprefix, function.name);
673 traceback.name = name;
674 traceback.value = pos;
675 traceback.the_bfd = abfd;
676 traceback.section = sec;
677 traceback.flags = 0;
678 traceback.udata.i = ret;
680 *(csym[count]) = function;
681 *(csym[count + 1]) = traceback;
684 pos += ret;
685 count += 2;
688 *nsym = count;
689 return 0;
692 static int
693 bfd_pef_parse_function_stub (bfd *abfd ATTRIBUTE_UNUSED,
694 unsigned char *buf,
695 size_t len,
696 unsigned long *offset)
698 BFD_ASSERT (len == 24);
700 if ((bfd_getb32 (buf) & 0xffff0000) != 0x81820000)
701 return -1;
702 if (bfd_getb32 (buf + 4) != 0x90410014)
703 return -1;
704 if (bfd_getb32 (buf + 8) != 0x800c0000)
705 return -1;
706 if (bfd_getb32 (buf + 12) != 0x804c0004)
707 return -1;
708 if (bfd_getb32 (buf + 16) != 0x7c0903a6)
709 return -1;
710 if (bfd_getb32 (buf + 20) != 0x4e800420)
711 return -1;
713 if (offset != NULL)
714 *offset = (bfd_getb32 (buf) & 0x0000ffff) / 4;
716 return 0;
719 static int
720 bfd_pef_parse_function_stubs (bfd *abfd,
721 asection *codesec,
722 unsigned char *codebuf,
723 size_t codelen,
724 unsigned char *loaderbuf,
725 size_t loaderlen,
726 unsigned long *nsym,
727 asymbol **csym)
729 const char *const sprefix = "__stub_";
731 size_t codepos = 0;
732 unsigned long count = 0;
734 bfd_pef_loader_header header;
735 bfd_pef_imported_library *libraries = NULL;
736 bfd_pef_imported_symbol *imports = NULL;
738 unsigned long i;
739 int ret;
741 if (loaderlen < 56)
742 goto error;
744 ret = bfd_pef_parse_loader_header (abfd, loaderbuf, 56, &header);
745 if (ret < 0)
746 goto error;
748 libraries = bfd_malloc
749 (header.imported_library_count * sizeof (bfd_pef_imported_library));
750 imports = bfd_malloc
751 (header.total_imported_symbol_count * sizeof (bfd_pef_imported_symbol));
753 if (loaderlen < (56 + (header.imported_library_count * 24)))
754 goto error;
755 for (i = 0; i < header.imported_library_count; i++)
757 ret = bfd_pef_parse_imported_library
758 (abfd, loaderbuf + 56 + (i * 24), 24, &libraries[i]);
759 if (ret < 0)
760 goto error;
763 if (loaderlen < (56 + (header.imported_library_count * 24)
764 + (header.total_imported_symbol_count * 4)))
765 goto error;
766 for (i = 0; i < header.total_imported_symbol_count; i++)
768 ret = (bfd_pef_parse_imported_symbol
769 (abfd,
770 loaderbuf + 56 + (header.imported_library_count * 24) + (i * 4),
771 4, &imports[i]));
772 if (ret < 0)
773 goto error;
776 codepos = 0;
778 for (;;)
780 asymbol sym;
781 const char *symname;
782 char *name;
783 unsigned long index;
784 int ret;
786 if (csym && (csym[count] == NULL))
787 break;
789 codepos += 3;
790 codepos -= (codepos % 4);
792 while ((codepos + 4) <= codelen)
794 if ((bfd_getb32 (codebuf + codepos) & 0xffff0000) == 0x81820000)
795 break;
796 codepos += 4;
799 if ((codepos + 4) > codelen)
800 break;
802 ret = bfd_pef_parse_function_stub (abfd, codebuf + codepos, 24, &index);
803 if (ret < 0)
805 codepos += 24;
806 continue;
809 if (index >= header.total_imported_symbol_count)
811 codepos += 24;
812 continue;
816 size_t max, namelen;
817 const char *s;
819 if (loaderlen < (header.loader_strings_offset + imports[index].name))
820 goto error;
822 max = loaderlen - (header.loader_strings_offset + imports[index].name);
823 symname = (char *) loaderbuf;
824 symname += header.loader_strings_offset + imports[index].name;
825 namelen = 0;
826 for (s = symname; s < (symname + max); s++)
828 if (*s == '\0')
829 break;
830 if (! ISPRINT (*s))
831 goto error;
832 namelen++;
834 if (*s != '\0')
835 goto error;
837 name = bfd_alloc (abfd, strlen (sprefix) + namelen + 1);
838 if (name == NULL)
839 break;
841 snprintf (name, strlen (sprefix) + namelen + 1, "%s%s",
842 sprefix, symname);
843 sym.name = name;
846 sym.value = codepos;
847 sym.the_bfd = abfd;
848 sym.section = codesec;
849 sym.flags = 0;
850 sym.udata.i = 0;
852 codepos += 24;
854 if (csym != NULL)
855 *(csym[count]) = sym;
857 count++;
860 goto end;
862 end:
863 if (libraries != NULL)
864 free (libraries);
865 if (imports != NULL)
866 free (imports);
867 *nsym = count;
868 return 0;
870 error:
871 if (libraries != NULL)
872 free (libraries);
873 if (imports != NULL)
874 free (imports);
875 *nsym = count;
876 return -1;
879 static long
880 bfd_pef_parse_symbols (bfd *abfd, asymbol **csym)
882 unsigned long count = 0;
884 asection *codesec = NULL;
885 unsigned char *codebuf = NULL;
886 size_t codelen = 0;
888 asection *loadersec = NULL;
889 unsigned char *loaderbuf = NULL;
890 size_t loaderlen = 0;
892 codesec = bfd_get_section_by_name (abfd, "code");
893 if (codesec != NULL)
895 codelen = codesec->size;
896 codebuf = bfd_malloc (codelen);
897 if (bfd_seek (abfd, codesec->filepos, SEEK_SET) < 0)
898 goto end;
899 if (bfd_bread ((void *) codebuf, codelen, abfd) != codelen)
900 goto end;
903 loadersec = bfd_get_section_by_name (abfd, "loader");
904 if (loadersec != NULL)
906 loaderlen = loadersec->size;
907 loaderbuf = bfd_malloc (loaderlen);
908 if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0)
909 goto end;
910 if (bfd_bread ((void *) loaderbuf, loaderlen, abfd) != loaderlen)
911 goto end;
914 count = 0;
915 if (codesec != NULL)
917 long ncount = 0;
918 bfd_pef_parse_traceback_tables (abfd, codesec, codebuf, codelen,
919 &ncount, csym);
920 count += ncount;
923 if ((codesec != NULL) && (loadersec != NULL))
925 unsigned long ncount = 0;
926 bfd_pef_parse_function_stubs
927 (abfd, codesec, codebuf, codelen, loaderbuf, loaderlen, &ncount,
928 (csym != NULL) ? (csym + count) : NULL);
929 count += ncount;
932 if (csym != NULL)
933 csym[count] = NULL;
935 end:
936 if (codebuf != NULL)
937 free (codebuf);
939 if (loaderbuf != NULL)
940 free (loaderbuf);
942 return count;
945 static long
946 bfd_pef_count_symbols (bfd *abfd)
948 return bfd_pef_parse_symbols (abfd, NULL);
951 static long
952 bfd_pef_get_symtab_upper_bound (bfd *abfd)
954 long nsyms = bfd_pef_count_symbols (abfd);
956 if (nsyms < 0)
957 return nsyms;
958 return ((nsyms + 1) * sizeof (asymbol *));
961 static long
962 bfd_pef_canonicalize_symtab (bfd *abfd, asymbol **alocation)
964 long i;
965 asymbol *syms;
966 long ret;
967 long nsyms = bfd_pef_count_symbols (abfd);
969 if (nsyms < 0)
970 return nsyms;
972 syms = bfd_alloc (abfd, nsyms * sizeof (asymbol));
973 if (syms == NULL)
974 return -1;
976 for (i = 0; i < nsyms; i++)
977 alocation[i] = &syms[i];
979 alocation[nsyms] = NULL;
981 ret = bfd_pef_parse_symbols (abfd, alocation);
982 if (ret != nsyms)
983 return 0;
985 return ret;
988 #define bfd_pef_make_empty_symbol _bfd_generic_make_empty_symbol
990 static void
991 bfd_pef_get_symbol_info (bfd *abfd ATTRIBUTE_UNUSED,
992 asymbol *symbol,
993 symbol_info *ret)
995 bfd_symbol_info (symbol, ret);
998 static int
999 bfd_pef_sizeof_headers (bfd *abfd ATTRIBUTE_UNUSED,
1000 struct bfd_link_info *info ATTRIBUTE_UNUSED)
1002 return 0;
1005 const bfd_target pef_vec =
1007 "pef", /* Name. */
1008 bfd_target_pef_flavour, /* Flavour. */
1009 BFD_ENDIAN_BIG, /* Byteorder. */
1010 BFD_ENDIAN_BIG, /* Header_byteorder. */
1011 (HAS_RELOC | EXEC_P | /* Object flags. */
1012 HAS_LINENO | HAS_DEBUG |
1013 HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
1014 (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE | SEC_DATA
1015 | SEC_ROM | SEC_HAS_CONTENTS), /* Section_flags. */
1016 0, /* Symbol_leading_char. */
1017 ' ', /* AR_pad_char. */
1018 16, /* AR_max_namelen. */
1019 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1020 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1021 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Data. */
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, /* Headers. */
1025 { /* bfd_check_format. */
1026 _bfd_dummy_target,
1027 bfd_pef_object_p, /* bfd_check_format. */
1028 _bfd_dummy_target,
1029 _bfd_dummy_target,
1031 { /* bfd_set_format. */
1032 bfd_false,
1033 bfd_pef_mkobject,
1034 bfd_false,
1035 bfd_false,
1037 { /* bfd_write_contents. */
1038 bfd_false,
1039 bfd_true,
1040 bfd_false,
1041 bfd_false,
1044 BFD_JUMP_TABLE_GENERIC (bfd_pef),
1045 BFD_JUMP_TABLE_COPY (_bfd_generic),
1046 BFD_JUMP_TABLE_CORE (_bfd_nocore),
1047 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
1048 BFD_JUMP_TABLE_SYMBOLS (bfd_pef),
1049 BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
1050 BFD_JUMP_TABLE_WRITE (bfd_pef),
1051 BFD_JUMP_TABLE_LINK (bfd_pef),
1052 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
1054 NULL,
1056 NULL
1059 #define bfd_pef_xlib_close_and_cleanup _bfd_generic_close_and_cleanup
1060 #define bfd_pef_xlib_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
1061 #define bfd_pef_xlib_new_section_hook _bfd_generic_new_section_hook
1062 #define bfd_pef_xlib_get_section_contents _bfd_generic_get_section_contents
1063 #define bfd_pef_xlib_set_section_contents _bfd_generic_set_section_contents
1064 #define bfd_pef_xlib_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
1065 #define bfd_pef_xlib_set_section_contents_in_window _bfd_generic_set_section_contents_in_window
1067 static int
1068 bfd_pef_xlib_read_header (bfd *abfd, bfd_pef_xlib_header *header)
1070 unsigned char buf[76];
1072 bfd_seek (abfd, 0, SEEK_SET);
1074 if (bfd_bread ((void *) buf, 76, abfd) != 76)
1075 return -1;
1077 header->tag1 = bfd_getb32 (buf);
1078 header->tag2 = bfd_getb32 (buf + 4);
1079 header->current_format = bfd_getb32 (buf + 8);
1080 header->container_strings_offset = bfd_getb32 (buf + 12);
1081 header->export_hash_offset = bfd_getb32 (buf + 16);
1082 header->export_key_offset = bfd_getb32 (buf + 20);
1083 header->export_symbol_offset = bfd_getb32 (buf + 24);
1084 header->export_names_offset = bfd_getb32 (buf + 28);
1085 header->export_hash_table_power = bfd_getb32 (buf + 32);
1086 header->exported_symbol_count = bfd_getb32 (buf + 36);
1087 header->frag_name_offset = bfd_getb32 (buf + 40);
1088 header->frag_name_length = bfd_getb32 (buf + 44);
1089 header->dylib_path_offset = bfd_getb32 (buf + 48);
1090 header->dylib_path_length = bfd_getb32 (buf + 52);
1091 header->cpu_family = bfd_getb32 (buf + 56);
1092 header->cpu_model = bfd_getb32 (buf + 60);
1093 header->date_time_stamp = bfd_getb32 (buf + 64);
1094 header->current_version = bfd_getb32 (buf + 68);
1095 header->old_definition_version = bfd_getb32 (buf + 72);
1096 header->old_implementation_version = bfd_getb32 (buf + 76);
1098 return 0;
1101 static int
1102 bfd_pef_xlib_scan (bfd *abfd, bfd_pef_xlib_header *header)
1104 bfd_pef_xlib_data_struct *mdata = NULL;
1106 mdata = bfd_alloc (abfd, sizeof (* mdata));
1107 if (mdata == NULL)
1108 return -1;
1110 mdata->header = *header;
1112 abfd->flags = (abfd->xvec->object_flags
1113 | (abfd->flags & (BFD_IN_MEMORY | BFD_IO_FUNCS)));
1115 abfd->tdata.pef_xlib_data = mdata;
1117 return 0;
1120 static const bfd_target *
1121 bfd_pef_xlib_object_p (bfd *abfd)
1123 struct bfd_preserve preserve;
1124 bfd_pef_xlib_header header;
1126 if (bfd_pef_xlib_read_header (abfd, &header) != 0)
1128 bfd_set_error (bfd_error_wrong_format);
1129 return NULL;
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);
1137 return NULL;
1140 if (! bfd_preserve_save (abfd, &preserve))
1142 bfd_set_error (bfd_error_wrong_format);
1143 return NULL;
1146 if (bfd_pef_xlib_scan (abfd, &header) != 0)
1148 bfd_preserve_restore (abfd, &preserve);
1149 bfd_set_error (bfd_error_wrong_format);
1150 return NULL;
1153 bfd_preserve_finish (abfd, &preserve);
1154 return abfd->xvec;
1157 const bfd_target pef_xlib_vec =
1159 "pef-xlib", /* Name. */
1160 bfd_target_pef_xlib_flavour, /* Flavour. */
1161 BFD_ENDIAN_BIG, /* Byteorder */
1162 BFD_ENDIAN_BIG, /* Header_byteorder. */
1163 (HAS_RELOC | EXEC_P | /* Object flags. */
1164 HAS_LINENO | HAS_DEBUG |
1165 HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
1166 (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE | SEC_DATA
1167 | SEC_ROM | SEC_HAS_CONTENTS),/* Section_flags. */
1168 0, /* Symbol_leading_char. */
1169 ' ', /* AR_pad_char. */
1170 16, /* AR_max_namelen. */
1171 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1172 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1173 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Data. */
1174 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1175 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1176 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Headers. */
1177 { /* bfd_check_format. */
1178 _bfd_dummy_target,
1179 bfd_pef_xlib_object_p, /* bfd_check_format. */
1180 _bfd_dummy_target,
1181 _bfd_dummy_target,
1183 { /* bfd_set_format. */
1184 bfd_false,
1185 bfd_pef_mkobject,
1186 bfd_false,
1187 bfd_false,
1189 { /* bfd_write_contents. */
1190 bfd_false,
1191 bfd_true,
1192 bfd_false,
1193 bfd_false,
1196 BFD_JUMP_TABLE_GENERIC (bfd_pef_xlib),
1197 BFD_JUMP_TABLE_COPY (_bfd_generic),
1198 BFD_JUMP_TABLE_CORE (_bfd_nocore),
1199 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
1200 BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols),
1201 BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
1202 BFD_JUMP_TABLE_WRITE (_bfd_nowrite),
1203 BFD_JUMP_TABLE_LINK (_bfd_nolink),
1204 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
1206 NULL,
1208 NULL