projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
* elf64-x86-64.c (elf64_x86_64_relocate_section): For -fno-pic
[deliverable/binutils-gdb.git] / bfd / pef.c
CommitLineData
3af9a47b 1/* PEF support for BFD.
72adc230 2 Copyright 1999, 2000, 2001, 2002, 2003, 2004
3af9a47b
NC		 3 Free Software Foundation, Inc.
4
5 This file is part of BFD, the Binary File Descriptor library.
6
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.
11
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.
16
17 You should have received a copy of the GNU General Public License
e84d6fca 18 along with this program; if not, write to the Free Software
3af9a47b
NC		 19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
20
29e1a6e4 21#include "safe-ctype.h"
3af9a47b
NC		 22
23#include "pef.h"
24#include "pef-traceback.h"
25
26#include "bfd.h"
27#include "sysdep.h"
28#include "libbfd.h"
29
30#include "libiberty.h"
31
32#ifndef BFD_IO_FUNCS
33#define BFD_IO_FUNCS 0
34#endif
35
29e1a6e4
NC		 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
45#define bfd_pef_get_reloc_upper_bound _bfd_norelocs_get_reloc_upper_bound
46#define bfd_pef_canonicalize_reloc _bfd_norelocs_canonicalize_reloc
47#define bfd_pef_bfd_reloc_type_lookup _bfd_norelocs_bfd_reloc_type_lookup
48#define bfd_pef_set_arch_mach _bfd_generic_set_arch_mach
49#define bfd_pef_get_section_contents _bfd_generic_get_section_contents
50#define bfd_pef_set_section_contents _bfd_generic_set_section_contents
51#define bfd_pef_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents
52#define bfd_pef_bfd_relax_section bfd_generic_relax_section
53#define bfd_pef_bfd_gc_sections bfd_generic_gc_sections
54#define bfd_pef_bfd_merge_sections bfd_generic_merge_sections
72adc230 55#define bfd_pef_bfd_is_group_section bfd_generic_is_group_section
29e1a6e4 56#define bfd_pef_bfd_discard_group bfd_generic_discard_group
082b7297 57#define bfd_pef_section_already_linked _bfd_generic_section_already_linked
29e1a6e4
NC		 58#define bfd_pef_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
59#define bfd_pef_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
60#define bfd_pef_bfd_link_add_symbols _bfd_generic_link_add_symbols
61#define bfd_pef_bfd_link_just_syms _bfd_generic_link_just_syms
62#define bfd_pef_bfd_final_link _bfd_generic_final_link
63#define bfd_pef_bfd_link_split_section _bfd_generic_link_split_section
64#define bfd_pef_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
65
66static void bfd_pef_print_symbol PARAMS ((bfd *, PTR, asymbol *, bfd_print_symbol_type));
67static void bfd_pef_convert_architecture PARAMS ((unsigned long, enum bfd_architecture *, unsigned long *));
68static bfd_boolean bfd_pef_mkobject PARAMS ((bfd *));
69static int bfd_pef_parse_traceback_table PARAMS ((bfd *, asection *, unsigned char *, size_t, size_t, asymbol *, FILE *));
70static const char *bfd_pef_section_name PARAMS ((bfd_pef_section *));
71static unsigned long bfd_pef_section_flags PARAMS ((bfd_pef_section *));
72static asection *bfd_pef_make_bfd_section PARAMS ((bfd *, bfd_pef_section *));
73static int bfd_pef_read_header PARAMS ((bfd *, bfd_pef_header *));
74static const bfd_target *bfd_pef_object_p PARAMS ((bfd *));
75static int bfd_pef_parse_traceback_tables PARAMS ((bfd *, asection *, unsigned char *, size_t, long *, asymbol **));
76static int bfd_pef_parse_function_stub PARAMS ((bfd *, unsigned char *, size_t, unsigned long *));
77static int bfd_pef_parse_function_stubs PARAMS ((bfd *, asection *, unsigned char *, size_t, unsigned char *, size_t, unsigned long *, asymbol **));
78static long bfd_pef_parse_symbols PARAMS ((bfd *, asymbol **));
79static long bfd_pef_count_symbols PARAMS ((bfd *));
80static long bfd_pef_get_symtab_upper_bound PARAMS ((bfd *));
6cee3f79 81static long bfd_pef_canonicalize_symtab PARAMS ((bfd *, asymbol **));
29e1a6e4
NC		 82static asymbol *bfd_pef_make_empty_symbol PARAMS ((bfd *));
83static void bfd_pef_get_symbol_info PARAMS ((bfd *, asymbol *, symbol_info *));
84static int bfd_pef_sizeof_headers PARAMS ((bfd *, bfd_boolean));
85static int bfd_pef_xlib_read_header PARAMS ((bfd *, bfd_pef_xlib_header *));
86static int bfd_pef_xlib_scan PARAMS ((bfd *, bfd_pef_xlib_header *));
87static const bfd_target *bfd_pef_xlib_object_p PARAMS ((bfd *));
3af9a47b
NC		 88
89static void
90bfd_pef_print_symbol (abfd, afile, symbol, how)
91 bfd *abfd;
92 PTR afile;
93 asymbol *symbol;
94 bfd_print_symbol_type how;
95{
96 FILE *file = (FILE *) afile;
29e1a6e4 97
e84d6fca
AM		 98 switch (how)
99 {
100 case bfd_print_symbol_name:
101 fprintf (file, "%s", symbol->name);
102 break;
103 default:
104 bfd_print_symbol_vandf (abfd, (PTR) file, symbol);
105 fprintf (file, " %-5s %s", symbol->section->name, symbol->name);
106 if (strncmp (symbol->name, "__traceback_", strlen ("__traceback_")) == 0)
107 {
108 char *buf = alloca (symbol->udata.i);
109 size_t offset = symbol->value + 4;
110 size_t len = symbol->udata.i;
111 int ret;
112
113 bfd_get_section_contents (abfd, symbol->section, buf, offset, len);
114 ret = bfd_pef_parse_traceback_table (abfd, symbol->section, buf,
115 len, 0, NULL, file);
116 if (ret < 0)
117 fprintf (file, " [ERROR]");
118 }
3af9a47b 119 }
3af9a47b
NC		 120}
121
e84d6fca
AM		 122static void
123bfd_pef_convert_architecture (architecture, type, subtype)
3af9a47b
NC		 124 unsigned long architecture;
125 enum bfd_architecture *type;
126 unsigned long *subtype;
127{
3af9a47b
NC		 128 const unsigned long ARCH_POWERPC = 0x70777063; /* 'pwpc' */
129 const unsigned long ARCH_M68K = 0x6d36386b; /* 'm68k' */
e84d6fca 130
eddc4f81
KD		 131 *subtype = bfd_arch_unknown;
132 *type = bfd_arch_unknown;
133
3af9a47b
NC		 134 if (architecture == ARCH_POWERPC)
135 *type = bfd_arch_powerpc;
136 else if (architecture == ARCH_M68K)
137 *type = bfd_arch_m68k;
138}
139
b34976b6 140static bfd_boolean
3af9a47b
NC		 141bfd_pef_mkobject (abfd)
142 bfd *abfd ATTRIBUTE_UNUSED;
143{
b34976b6 144 return TRUE;
3af9a47b
NC		 145}
146
147static int
148bfd_pef_parse_traceback_table (abfd, section, buf, len, pos, sym, file)
149 bfd *abfd;
150 asection *section;
151 unsigned char *buf;
152 size_t len;
153 size_t pos;
154 asymbol *sym;
155 FILE *file;
156{
157 struct traceback_table table;
158 size_t offset;
159 const char *s;
160 asymbol tmpsymbol;
e84d6fca
AM		 161
162 if (sym == NULL)
163 sym = &tmpsymbol;
3af9a47b
NC		 164
165 sym->name = NULL;
166 sym->value = 0;
167 sym->the_bfd = abfd;
168 sym->section = section;
169 sym->flags = 0;
170 sym->udata.i = 0;
171
29e1a6e4 172 /* memcpy is fine since all fields are unsigned char. */
3af9a47b 173
e84d6fca
AM		 174 if ((pos + 8) > len)
175 return -1;
3af9a47b 176 memcpy (&table, buf + pos, 8);
3af9a47b 177
29e1a6e4
NC		 178 /* Calling code relies on returned symbols having a name and
179 correct offset. */
e84d6fca
AM		 180
181 if ((table.lang != TB_C) && (table.lang != TB_CPLUSPLUS))
3af9a47b 182 return -1;
e84d6fca
AM		 183
184 if (! (table.flags2 & TB_NAME_PRESENT))
3af9a47b 185 return -1;
e84d6fca
AM		 186
187 if (! table.flags1 & TB_HAS_TBOFF)
3af9a47b 188 return -1;
3af9a47b
NC		 189
190 offset = 8;
191
e84d6fca
AM		 192 if ((table.flags5 & TB_FLOATPARAMS) || (table.fixedparams))
193 offset += 4;
3af9a47b 194
e84d6fca
AM		 195 if (table.flags1 & TB_HAS_TBOFF)
196 {
197 struct traceback_table_tboff off;
3af9a47b 198
e84d6fca
AM		 199 if ((pos + offset + 4) > len)
200 return -1;
201 off.tb_offset = bfd_getb32 (buf + pos + offset);
202 offset += 4;
3af9a47b 203
29e1a6e4
NC		 204 /* Need to subtract 4 because the offset includes the 0x0L
205 preceding the table. */
3af9a47b 206
e84d6fca
AM		 207 if (file != NULL)
208 fprintf (file, " [offset = 0x%lx]", off.tb_offset);
3af9a47b 209
e84d6fca
AM		 210 if ((file == NULL) && ((off.tb_offset + 4) > (pos + offset)))
211 return -1;
212
213 sym->value = pos - off.tb_offset - 4;
3af9a47b 214 }
3af9a47b 215
e84d6fca 216 if (table.flags2 & TB_INT_HNDL)
3af9a47b 217 offset += 4;
3af9a47b 218
e84d6fca
AM		 219 if (table.flags1 & TB_HAS_CTL)
220 {
221 struct traceback_table_anchors anchors;
3af9a47b 222
e84d6fca
AM		 223 if ((pos + offset + 4) > len)
224 return -1;
225 anchors.ctl_info = bfd_getb32 (buf + pos + offset);
226 offset += 4;
3af9a47b 227
e84d6fca
AM		 228 if (anchors.ctl_info > 1024)
229 return -1;
3af9a47b 230
e84d6fca 231 offset += anchors.ctl_info * 4;
3af9a47b
NC		 232 }
233
e84d6fca
AM		 234 if (table.flags2 & TB_NAME_PRESENT)
235 {
236 struct traceback_table_routine name;
237 char *namebuf;
3af9a47b 238
e84d6fca
AM		 239 if ((pos + offset + 2) > len)
240 return -1;
241 name.name_len = bfd_getb16 (buf + pos + offset);
242 offset += 2;
3af9a47b 243
e84d6fca
AM		 244 if (name.name_len > 4096)
245 return -1;
3af9a47b 246
e84d6fca
AM		 247 if ((pos + offset + name.name_len) > len)
248 return -1;
3af9a47b 249
e84d6fca
AM		 250 namebuf = (char *) bfd_alloc (abfd, name.name_len + 1);
251 if (namebuf == NULL)
252 return -1;
3af9a47b 253
e84d6fca
AM		 254 memcpy (namebuf, buf + pos + offset, name.name_len);
255 namebuf[name.name_len] = '\0';
3af9a47b 256
29e1a6e4 257 /* Strip leading period inserted by compiler. */
e84d6fca
AM		 258 if (namebuf[0] == '.')
259 memmove (namebuf, namebuf + 1, name.name_len + 1);
3af9a47b 260
e84d6fca 261 sym->name = namebuf;
3af9a47b 262
e84d6fca 263 for (s = sym->name; (*s != '\0'); s++)
29e1a6e4 264 if (! ISPRINT (*s))
e84d6fca 265 return -1;
3af9a47b 266
e84d6fca 267 offset += name.name_len;
3af9a47b
NC		 268 }
269
e84d6fca 270 if (table.flags2 & TB_USES_ALLOCA)
3af9a47b 271 offset += 4;
3af9a47b 272
e84d6fca 273 if (table.flags4 & TB_HAS_VEC_INFO)
3af9a47b 274 offset += 4;
3af9a47b 275
e84d6fca 276 if (file != NULL)
3af9a47b 277 fprintf (file, " [length = 0x%lx]", (long) offset);
e84d6fca 278
3af9a47b
NC		 279 return offset;
280}
281
282static const char *bfd_pef_section_name (section)
283 bfd_pef_section *section;
284{
e84d6fca
AM		 285 switch (section->section_kind)
286 {
287 case BFD_PEF_SECTION_CODE: return "code";
288 case BFD_PEF_SECTION_UNPACKED_DATA: return "unpacked-data";
289 case BFD_PEF_SECTION_PACKED_DATA: return "packed-data";
290 case BFD_PEF_SECTION_CONSTANT: return "constant";
291 case BFD_PEF_SECTION_LOADER: return "loader";
292 case BFD_PEF_SECTION_DEBUG: return "debug";
293 case BFD_PEF_SECTION_EXEC_DATA: return "exec-data";
294 case BFD_PEF_SECTION_EXCEPTION: return "exception";
295 case BFD_PEF_SECTION_TRACEBACK: return "traceback";
296 default: return "unknown";
297 }
3af9a47b
NC		 298}
299
300static unsigned long bfd_pef_section_flags (section)
301 bfd_pef_section *section;
302{
e84d6fca
AM		 303 switch (section->section_kind)
304 {
305 case BFD_PEF_SECTION_CODE:
306 return SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC | SEC_CODE;
307 case BFD_PEF_SECTION_UNPACKED_DATA:
308 case BFD_PEF_SECTION_PACKED_DATA:
309 case BFD_PEF_SECTION_CONSTANT:
310 case BFD_PEF_SECTION_LOADER:
311 case BFD_PEF_SECTION_DEBUG:
312 case BFD_PEF_SECTION_EXEC_DATA:
313 case BFD_PEF_SECTION_EXCEPTION:
314 case BFD_PEF_SECTION_TRACEBACK:
315 default:
316 return SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC;
317 }
3af9a47b
NC		 318}
319
320static asection *
321bfd_pef_make_bfd_section (abfd, section)
322 bfd *abfd;
323 bfd_pef_section *section;
324{
325 asection *bfdsec;
326 const char *name = bfd_pef_section_name (section);
327
328 bfdsec = bfd_make_section_anyway (abfd, name);
e84d6fca
AM		 329 if (bfdsec == NULL)
330 return NULL;
331
3af9a47b
NC		 332 bfdsec->vma = section->default_address + section->container_offset;
333 bfdsec->lma = section->default_address + section->container_offset;
eea6121a 334 bfdsec->size = section->container_length;
3af9a47b
NC		 335 bfdsec->filepos = section->container_offset;
336 bfdsec->alignment_power = section->alignment;
337
338 bfdsec->flags = bfd_pef_section_flags (section);
339
340 return bfdsec;
341}
342
343int bfd_pef_parse_loader_header (abfd, buf, len, header)
344 bfd *abfd ATTRIBUTE_UNUSED;
345 unsigned char *buf;
346 size_t len;
347 bfd_pef_loader_header *header;
348{
349 BFD_ASSERT (len == 56);
350
351 header->main_section = bfd_getb32 (buf);
352 header->main_offset = bfd_getb32 (buf + 4);
353 header->init_section = bfd_getb32 (buf + 8);
354 header->init_offset = bfd_getb32 (buf + 12);
355 header->term_section = bfd_getb32 (buf + 16);
356 header->term_offset = bfd_getb32 (buf + 20);
357 header->imported_library_count = bfd_getb32 (buf + 24);
358 header->total_imported_symbol_count = bfd_getb32 (buf + 28);
359 header->reloc_section_count = bfd_getb32 (buf + 32);
360 header->reloc_instr_offset = bfd_getb32 (buf + 36);
361 header->loader_strings_offset = bfd_getb32 (buf + 40);
362 header->export_hash_offset = bfd_getb32 (buf + 44);
363 header->export_hash_table_power = bfd_getb32 (buf + 48);
364 header->exported_symbol_count = bfd_getb32 (buf + 52);
365
366 return 0;
367}
368
369int bfd_pef_parse_imported_library (abfd, buf, len, header)
370 bfd *abfd ATTRIBUTE_UNUSED;
371 unsigned char *buf;
372 size_t len;
373 bfd_pef_imported_library *header;
374{
375 BFD_ASSERT (len == 24);
376
377 header->name_offset = bfd_getb32 (buf);
378 header->old_implementation_version = bfd_getb32 (buf + 4);
379 header->current_version = bfd_getb32 (buf + 8);
380 header->imported_symbol_count = bfd_getb32 (buf + 12);
381 header->first_imported_symbol = bfd_getb32 (buf + 16);
382 header->options = buf[20];
383 header->reserved_a = buf[21];
384 header->reserved_b = bfd_getb16 (buf + 22);
385
386 return 0;
387}
388
389int bfd_pef_parse_imported_symbol (abfd, buf, len, symbol)
390 bfd *abfd ATTRIBUTE_UNUSED;
391 unsigned char *buf;
392 size_t len;
393 bfd_pef_imported_symbol *symbol;
394{
395 unsigned long value;
396
397 BFD_ASSERT (len == 4);
398
399 value = bfd_getb32 (buf);
400 symbol->class = value >> 24;
401 symbol->name = value & 0x00ffffff;
402
403 return 0;
404}
405
406int bfd_pef_scan_section (abfd, section)
407 bfd *abfd;
408 bfd_pef_section *section;
409{
410 unsigned char buf[28];
e84d6fca 411
3af9a47b 412 bfd_seek (abfd, section->header_offset, SEEK_SET);
e84d6fca
AM		 413 if (bfd_bread ((PTR) buf, 28, abfd) != 28)
414 return -1;
3af9a47b
NC		 415
416 section->name_offset = bfd_h_get_32 (abfd, buf);
417 section->default_address = bfd_h_get_32 (abfd, buf + 4);
418 section->total_length = bfd_h_get_32 (abfd, buf + 8);
419 section->unpacked_length = bfd_h_get_32 (abfd, buf + 12);
420 section->container_length = bfd_h_get_32 (abfd, buf + 16);
421 section->container_offset = bfd_h_get_32 (abfd, buf + 20);
422 section->section_kind = buf[24];
423 section->share_kind = buf[25];
424 section->alignment = buf[26];
425 section->reserved = buf[27];
426
427 section->bfd_section = bfd_pef_make_bfd_section (abfd, section);
e84d6fca
AM		 428 if (section->bfd_section == NULL)
429 return -1;
3af9a47b
NC		 430
431 return 0;
432}
433
434void
435bfd_pef_print_loader_header (abfd, header, file)
436 bfd *abfd ATTRIBUTE_UNUSED;
437 bfd_pef_loader_header *header;
438 FILE *file;
439{
440 fprintf (file, "main_section: %ld\n", header->main_section);
441 fprintf (file, "main_offset: %lu\n", header->main_offset);
442 fprintf (file, "init_section: %ld\n", header->init_section);
443 fprintf (file, "init_offset: %lu\n", header->init_offset);
444 fprintf (file, "term_section: %ld\n", header->term_section);
445 fprintf (file, "term_offset: %lu\n", header->term_offset);
e84d6fca
AM		 446 fprintf (file, "imported_library_count: %lu\n",
447 header->imported_library_count);
448 fprintf (file, "total_imported_symbol_count: %lu\n",
449 header->total_imported_symbol_count);
3af9a47b
NC		 450 fprintf (file, "reloc_section_count: %lu\n", header->reloc_section_count);
451 fprintf (file, "reloc_instr_offset: %lu\n", header->reloc_instr_offset);
e84d6fca
AM		 452 fprintf (file, "loader_strings_offset: %lu\n",
453 header->loader_strings_offset);
3af9a47b 454 fprintf (file, "export_hash_offset: %lu\n", header->export_hash_offset);
e84d6fca
AM		 455 fprintf (file, "export_hash_table_power: %lu\n",
456 header->export_hash_table_power);
457 fprintf (file, "exported_symbol_count: %lu\n",
458 header->exported_symbol_count);
3af9a47b
NC		 459}
460
461int
462bfd_pef_print_loader_section (abfd, file)
463 bfd *abfd;
464 FILE *file;
465{
466 bfd_pef_loader_header header;
467 asection *loadersec = NULL;
468 unsigned char *loaderbuf = NULL;
469 size_t loaderlen = 0;
470 int ret;
471
472 loadersec = bfd_get_section_by_name (abfd, "loader");
e84d6fca
AM		 473 if (loadersec == NULL)
474 return -1;
475
eea6121a 476 loaderlen = loadersec->size;
3af9a47b
NC		 477 loaderbuf = (unsigned char *) bfd_malloc (loaderlen);
478 if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0)
e84d6fca
AM		 479 {
480 free (loaderbuf);
481 return -1;
482 }
3af9a47b 483 if (bfd_bread ((PTR) loaderbuf, loaderlen, abfd) != loaderlen)
e84d6fca
AM		 484 {
485 free (loaderbuf);
486 return -1;
487 }
3af9a47b 488
e84d6fca
AM		 489 if (loaderlen < 56)
490 {
491 free (loaderbuf);
492 return -1;
493 }
3af9a47b 494 ret = bfd_pef_parse_loader_header (abfd, loaderbuf, 56, &header);
e84d6fca
AM		 495 if (ret < 0)
496 {
497 free (loaderbuf);
498 return -1;
499 }
3af9a47b
NC		 500
501 bfd_pef_print_loader_header (abfd, &header, file);
502 return 0;
503}
504
505int
506bfd_pef_scan_start_address (abfd)
507 bfd *abfd;
508{
509 bfd_pef_loader_header header;
510 asection *section;
511
512 asection *loadersec = NULL;
513 unsigned char *loaderbuf = NULL;
514 size_t loaderlen = 0;
515 int ret;
516
517 loadersec = bfd_get_section_by_name (abfd, "loader");
e84d6fca
AM		 518 if (loadersec == NULL)
519 goto end;
520
eea6121a 521 loaderlen = loadersec->size;
3af9a47b 522 loaderbuf = (unsigned char *) bfd_malloc (loaderlen);
e84d6fca
AM		 523 if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0)
524 goto error;
525 if (bfd_bread ((PTR) loaderbuf, loaderlen, abfd) != loaderlen)
526 goto error;
3af9a47b 527
e84d6fca
AM		 528 if (loaderlen < 56)
529 goto error;
3af9a47b 530 ret = bfd_pef_parse_loader_header (abfd, loaderbuf, 56, &header);
e84d6fca
AM		 531 if (ret < 0)
532 goto error;
533
534 if (header.main_section < 0)
535 goto end;
536
537 for (section = abfd->sections; section != NULL; section = section->next)
538 if ((section->index + 1) == header.main_section)
539 break;
3af9a47b 540
e84d6fca
AM		 541 if (section == NULL)
542 goto error;
3af9a47b 543
3af9a47b
NC		 544 abfd->start_address = section->vma + header.main_offset;
545
546 end:
e84d6fca
AM		 547 if (loaderbuf != NULL)
548 free (loaderbuf);
3af9a47b
NC		 549 return 0;
550
551 error:
e84d6fca
AM		 552 if (loaderbuf != NULL)
553 free (loaderbuf);
3af9a47b
NC		 554 return -1;
555}
556
557int
e84d6fca 558bfd_pef_scan (abfd, header, mdata)
3af9a47b
NC		 559 bfd *abfd;
560 bfd_pef_header *header;
e84d6fca 561 bfd_pef_data_struct *mdata;
3af9a47b
NC		 562{
563 unsigned int i;
3af9a47b
NC		 564 enum bfd_architecture cputype;
565 unsigned long cpusubtype;
566
e84d6fca 567 mdata->header = *header;
3af9a47b 568
3af9a47b 569 bfd_pef_convert_architecture (header->architecture, &cputype, &cpusubtype);
e84d6fca
AM		 570 if (cputype == bfd_arch_unknown)
571 {
572 fprintf (stderr, "bfd_pef_scan: unknown architecture 0x%lx\n",
573 header->architecture);
574 return -1;
575 }
3af9a47b
NC		 576 bfd_set_arch_mach (abfd, cputype, cpusubtype);
577
578 mdata->header = *header;
579
e84d6fca
AM		 580 abfd->flags = (abfd->xvec->object_flags
581 | (abfd->flags & (BFD_IN_MEMORY | BFD_IO_FUNCS)));
3af9a47b 582
e84d6fca
AM		 583 if (header->section_count != 0)
584 {
585 mdata->sections =
586 ((bfd_pef_section *)
587 bfd_alloc (abfd, header->section_count * sizeof (bfd_pef_section)));
3af9a47b 588
e84d6fca 589 if (mdata->sections == NULL)
3af9a47b 590 return -1;
e84d6fca
AM		 591
592 for (i = 0; i < header->section_count; i++)
593 {
594 bfd_pef_section *cur = &mdata->sections[i];
595 cur->header_offset = 40 + (i * 28);
596 if (bfd_pef_scan_section (abfd, cur) < 0)
597 return -1;
598 }
3af9a47b 599 }
3af9a47b 600
e84d6fca
AM		 601 if (bfd_pef_scan_start_address (abfd) < 0)
602 {
3af9a47b 603#if 0
e84d6fca
AM		 604 fprintf (stderr, "bfd_pef_scan: unable to scan start address: %s\n",
605 bfd_errmsg (bfd_get_error ()));
606 return -1;
3af9a47b 607#endif
e84d6fca 608 }
3af9a47b
NC		 609
610 abfd->tdata.pef_data = mdata;
611
612 return 0;
613}
614
615static int
616bfd_pef_read_header (abfd, header)
617 bfd *abfd;
618 bfd_pef_header *header;
619{
620 unsigned char buf[40];
621
622 bfd_seek (abfd, 0, SEEK_SET);
623
e84d6fca
AM		 624 if (bfd_bread ((PTR) buf, 40, abfd) != 40)
625 return -1;
3af9a47b
NC		 626
627 header->tag1 = bfd_getb32 (buf);
628 header->tag2 = bfd_getb32 (buf + 4);
629 header->architecture = bfd_getb32 (buf + 8);
630 header->format_version = bfd_getb32 (buf + 12);
631 header->timestamp = bfd_getb32 (buf + 16);
632 header->old_definition_version = bfd_getb32 (buf + 20);
633 header->old_implementation_version = bfd_getb32 (buf + 24);
634 header->current_version = bfd_getb32 (buf + 28);
635 header->section_count = bfd_getb32 (buf + 32) + 1;
636 header->instantiated_section_count = bfd_getb32 (buf + 34);
637 header->reserved = bfd_getb32 (buf + 36);
638
639 return 0;
640}
641
642static const bfd_target *
643bfd_pef_object_p (abfd)
644 bfd *abfd;
645{
e84d6fca 646 struct bfd_preserve preserve;
3af9a47b 647 bfd_pef_header header;
3af9a47b 648
e84d6fca
AM		 649 preserve.marker = NULL;
650 if (bfd_pef_read_header (abfd, &header) != 0)
651 goto wrong;
3af9a47b 652
e84d6fca
AM		 653 if (header.tag1 != BFD_PEF_TAG1 || header.tag2 != BFD_PEF_TAG2)
654 goto wrong;
655
656 preserve.marker = bfd_zalloc (abfd, sizeof (bfd_pef_data_struct));
657 if (preserve.marker == NULL
658 || !bfd_preserve_save (abfd, &preserve))
659 goto fail;
3af9a47b 660
e84d6fca
AM		 661 if (bfd_pef_scan (abfd, &header,
662 (bfd_pef_data_struct *) preserve.marker) != 0)
663 goto wrong;
664
665 bfd_preserve_finish (abfd, &preserve);
3af9a47b 666 return abfd->xvec;
e84d6fca
AM		 667
668 wrong:
669 bfd_set_error (bfd_error_wrong_format);
670
671 fail:
672 if (preserve.marker != NULL)
673 bfd_preserve_restore (abfd, &preserve);
674 return NULL;
3af9a47b
NC		 675}
676
677static int bfd_pef_parse_traceback_tables (abfd, sec, buf, len, nsym, csym)
678 bfd *abfd;
679 asection *sec;
680 unsigned char *buf;
681 size_t len;
682 long *nsym;
683 asymbol **csym;
684{
685 char *name;
686
687 asymbol function;
688 asymbol traceback;
689
690 const char *const tbprefix = "__traceback_";
691 size_t tbnamelen;
692
693 size_t pos = 0;
694 unsigned long count = 0;
695 int ret;
696
e84d6fca
AM		 697 for (;;)
698 {
29e1a6e4 699 /* We're reading symbols two at a time. */
e84d6fca
AM		 700 if (csym && ((csym[count] == NULL) || (csym[count + 1] == NULL)))
701 break;
3af9a47b 702
e84d6fca
AM		 703 pos += 3;
704 pos -= (pos % 4);
3af9a47b 705
e84d6fca
AM		 706 while ((pos + 4) <= len)
707 {
708 if (bfd_getb32 (buf + pos) == 0)
709 break;
710 pos += 4;
711 }
3af9a47b 712
e84d6fca
AM		 713 if ((pos + 4) > len)
714 break;
3af9a47b 715
e84d6fca
AM		 716 ret = bfd_pef_parse_traceback_table (abfd, sec, buf, len, pos + 4,
717 &function, 0);
718 if (ret < 0)
719 {
29e1a6e4 720 /* Skip over 0x0L to advance to next possible traceback table. */
e84d6fca
AM		 721 pos += 4;
722 continue;
723 }
3af9a47b 724
e84d6fca
AM		 725 BFD_ASSERT (function.name != NULL);
726
727 /* Don't bother to compute the name if we are just
29e1a6e4 728 counting symbols. */
e84d6fca
AM		 729
730 if (csym)
731 {
732 tbnamelen = strlen (tbprefix) + strlen (function.name);
733 name = bfd_alloc (abfd, tbnamelen + 1);
734 if (name == NULL)
735 {
736 bfd_release (abfd, (PTR) function.name);
737 function.name = NULL;
738 break;
739 }
740 snprintf (name, tbnamelen + 1, "%s%s", tbprefix, function.name);
741 traceback.name = name;
742 traceback.value = pos;
743 traceback.the_bfd = abfd;
744 traceback.section = sec;
745 traceback.flags = 0;
746 traceback.udata.i = ret;
747
748 *(csym[count]) = function;
749 *(csym[count + 1]) = traceback;
3af9a47b 750 }
3af9a47b 751
e84d6fca
AM		 752 pos += ret;
753 count += 2;
754 }
3af9a47b
NC		 755
756 *nsym = count;
757 return 0;
758}
759
760static int bfd_pef_parse_function_stub (abfd, buf, len, offset)
761 bfd *abfd ATTRIBUTE_UNUSED;
762 unsigned char *buf;
763 size_t len;
764 unsigned long *offset;
765{
766 BFD_ASSERT (len == 24);
767
e84d6fca
AM		 768 if ((bfd_getb32 (buf) & 0xffff0000) != 0x81820000)
769 return -1;
770 if (bfd_getb32 (buf + 4) != 0x90410014)
771 return -1;
772 if (bfd_getb32 (buf + 8) != 0x800c0000)
773 return -1;
774 if (bfd_getb32 (buf + 12) != 0x804c0004)
775 return -1;
776 if (bfd_getb32 (buf + 16) != 0x7c0903a6)
777 return -1;
778 if (bfd_getb32 (buf + 20) != 0x4e800420)
779 return -1;
780
781 if (offset != NULL)
3af9a47b 782 *offset = (bfd_getb32 (buf) & 0x0000ffff) / 4;
3af9a47b
NC		 783
784 return 0;
785}
786
e84d6fca
AM		 787static int bfd_pef_parse_function_stubs (abfd, codesec, codebuf, codelen,
788 loaderbuf, loaderlen, nsym, csym)
3af9a47b
NC		 789 bfd *abfd;
790 asection *codesec;
791 unsigned char *codebuf;
792 size_t codelen;
793 unsigned char *loaderbuf;
794 size_t loaderlen;
795 unsigned long *nsym;
796 asymbol **csym;
797{
798 const char *const sprefix = "__stub_";
799
800 size_t codepos = 0;
801 unsigned long count = 0;
802
803 bfd_pef_loader_header header;
804 bfd_pef_imported_library *libraries = NULL;
805 bfd_pef_imported_symbol *imports = NULL;
806
807 unsigned long i;
808 int ret;
809
e84d6fca
AM		 810 if (loaderlen < 56)
811 goto error;
3af9a47b
NC		 812
813 ret = bfd_pef_parse_loader_header (abfd, loaderbuf, 56, &header);
e84d6fca
AM		 814 if (ret < 0)
815 goto error;
3af9a47b
NC		 816
817 libraries = (bfd_pef_imported_library *) bfd_malloc
818 (header.imported_library_count * sizeof (bfd_pef_imported_library));
819 imports = (bfd_pef_imported_symbol *) bfd_malloc
820 (header.total_imported_symbol_count * sizeof (bfd_pef_imported_symbol));
e84d6fca
AM		 821
822 if (loaderlen < (56 + (header.imported_library_count * 24)))
823 goto error;
824 for (i = 0; i < header.imported_library_count; i++)
825 {
826 ret = bfd_pef_parse_imported_library
827 (abfd, loaderbuf + 56 + (i * 24), 24, &libraries[i]);
828 if (ret < 0)
829 goto error;
830 }
831
832 if (loaderlen < (56 + (header.imported_library_count * 24)
833 + (header.total_imported_symbol_count * 4)))
834 goto error;
835 for (i = 0; i < header.total_imported_symbol_count; i++)
836 {
837 ret = (bfd_pef_parse_imported_symbol
838 (abfd,
839 loaderbuf + 56 + (header.imported_library_count * 24) + (i * 4),
840 4, &imports[i]));
841 if (ret < 0)
842 goto error;
843 }
844
3af9a47b
NC		 845 codepos = 0;
846
e84d6fca
AM		 847 for (;;)
848 {
849 asymbol sym;
850 const char *symname;
851 char *name;
852 unsigned long index;
853 int ret;
3af9a47b 854
e84d6fca
AM		 855 if (csym && (csym[count] == NULL))
856 break;
3af9a47b 857
e84d6fca
AM		 858 codepos += 3;
859 codepos -= (codepos % 4);
3af9a47b 860
e84d6fca
AM		 861 while ((codepos + 4) <= codelen)
862 {
863 if ((bfd_getb32 (codebuf + codepos) & 0xffff0000) == 0x81820000)
864 break;
865 codepos += 4;
866 }
3af9a47b 867
e84d6fca 868 if ((codepos + 4) > codelen)
3af9a47b 869 break;
3af9a47b 870
e84d6fca
AM		 871 ret = bfd_pef_parse_function_stub (abfd, codebuf + codepos, 24, &index);
872 if (ret < 0)
873 {
874 codepos += 24;
875 continue;
876 }
3af9a47b 877
e84d6fca
AM		 878 if (index >= header.total_imported_symbol_count)
879 {
880 codepos += 24;
881 continue;
882 }
3af9a47b 883
e84d6fca
AM		 884 {
885 size_t max, namelen;
886 const char *s;
887
888 if (loaderlen < (header.loader_strings_offset + imports[index].name))
889 goto error;
890
891 max = loaderlen - (header.loader_strings_offset + imports[index].name);
892 symname = loaderbuf + header.loader_strings_offset + imports[index].name;
893 namelen = 0;
894 for (s = symname; s < (symname + max); s++)
895 {
896 if (*s == '\0')
897 break;
29e1a6e4 898 if (! ISPRINT (*s))
e84d6fca
AM		 899 goto error;
900 namelen++;
901 }
902 if (*s != '\0')
903 goto error;
904
905 name = bfd_alloc (abfd, strlen (sprefix) + namelen + 1);
906 if (name == NULL)
907 break;
3af9a47b 908
e84d6fca
AM		 909 snprintf (name, strlen (sprefix) + namelen + 1, "%s%s",
910 sprefix, symname);
911 sym.name = name;
912 }
3af9a47b 913
e84d6fca
AM		 914 sym.value = codepos;
915 sym.the_bfd = abfd;
916 sym.section = codesec;
917 sym.flags = 0;
918 sym.udata.i = 0;
3af9a47b 919
e84d6fca 920 codepos += 24;
3af9a47b 921
e84d6fca
AM		 922 if (csym != NULL)
923 *(csym[count]) = sym;
3af9a47b 924
e84d6fca 925 count++;
3af9a47b 926 }
3af9a47b
NC		 927
928 goto end;
929
930 end:
e84d6fca
AM		 931 if (libraries != NULL)
932 free (libraries);
933 if (imports != NULL)
934 free (imports);
3af9a47b
NC		 935 *nsym = count;
936 return 0;
937
938 error:
e84d6fca
AM		 939 if (libraries != NULL)
940 free (libraries);
941 if (imports != NULL)
942 free (imports);
3af9a47b
NC		 943 *nsym = count;
944 return -1;
e84d6fca 945}
3af9a47b
NC		 946
947static long bfd_pef_parse_symbols (abfd, csym)
948 bfd *abfd;
949 asymbol **csym;
950{
951 unsigned long count = 0;
952
953 asection *codesec = NULL;
954 unsigned char *codebuf = NULL;
955 size_t codelen = 0;
956
957 asection *loadersec = NULL;
958 unsigned char *loaderbuf = NULL;
959 size_t loaderlen = 0;
960
961 codesec = bfd_get_section_by_name (abfd, "code");
962 if (codesec != NULL)
963 {
eea6121a 964 codelen = codesec->size;
3af9a47b 965 codebuf = (unsigned char *) bfd_malloc (codelen);
e84d6fca
AM		 966 if (bfd_seek (abfd, codesec->filepos, SEEK_SET) < 0)
967 goto end;
968 if (bfd_bread ((PTR) codebuf, codelen, abfd) != codelen)
969 goto end;
3af9a47b
NC		 970 }
971
972 loadersec = bfd_get_section_by_name (abfd, "loader");
973 if (loadersec != NULL)
974 {
eea6121a 975 loaderlen = loadersec->size;
3af9a47b 976 loaderbuf = (unsigned char *) bfd_malloc (loaderlen);
e84d6fca
AM		 977 if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0)
978 goto end;
979 if (bfd_bread ((PTR) loaderbuf, loaderlen, abfd) != loaderlen)
980 goto end;
3af9a47b 981 }
e84d6fca 982
3af9a47b
NC		 983 count = 0;
984 if (codesec != NULL)
985 {
986 unsigned long ncount = 0;
e84d6fca
AM		 987 bfd_pef_parse_traceback_tables (abfd, codesec, codebuf, codelen,
988 &ncount, csym);
3af9a47b
NC		 989 count += ncount;
990 }
991
992 if ((codesec != NULL) && (loadersec != NULL))
993 {
994 unsigned long ncount = 0;
995 bfd_pef_parse_function_stubs
996 (abfd, codesec, codebuf, codelen, loaderbuf, loaderlen, &ncount,
997 (csym != NULL) ? (csym + count) : NULL);
998 count += ncount;
999 }
e84d6fca
AM		 1000
1001 if (csym != NULL)
3af9a47b 1002 csym[count] = NULL;
e84d6fca 1003
3af9a47b 1004 end:
e84d6fca 1005 if (codebuf != NULL)
3af9a47b
NC		 1006 free (codebuf);
1007
e84d6fca
AM		 1008 if (loaderbuf != NULL)
1009 free (loaderbuf);
1010
3af9a47b
NC		 1011 return count;
1012}
1013
1014static long
1015bfd_pef_count_symbols (abfd)
1016 bfd *abfd;
1017{
1018 return bfd_pef_parse_symbols (abfd, NULL);
1019}
1020
1021static long
1022bfd_pef_get_symtab_upper_bound (abfd)
1023 bfd *abfd;
1024{
1025 long nsyms = bfd_pef_count_symbols (abfd);
e84d6fca
AM		 1026 if (nsyms < 0)
1027 return nsyms;
3af9a47b
NC		 1028 return ((nsyms + 1) * sizeof (asymbol *));
1029}
1030
1031static long
6cee3f79 1032bfd_pef_canonicalize_symtab (abfd, alocation)
3af9a47b
NC		 1033 bfd *abfd;
1034 asymbol **alocation;
1035{
1036 long i;
1037 asymbol *syms;
1038 long ret;
1039
1040 long nsyms = bfd_pef_count_symbols (abfd);
e84d6fca
AM		 1041 if (nsyms < 0)
1042 return nsyms;
3af9a47b
NC		 1043
1044 syms = bfd_alloc (abfd, nsyms * sizeof (asymbol));
e84d6fca
AM		 1045 if (syms == NULL)
1046 return -1;
3af9a47b 1047
e84d6fca 1048 for (i = 0; i < nsyms; i++)
3af9a47b 1049 alocation[i] = &syms[i];
e84d6fca 1050
3af9a47b
NC		 1051 alocation[nsyms] = NULL;
1052
1053 ret = bfd_pef_parse_symbols (abfd, alocation);
e84d6fca 1054 if (ret != nsyms)
3af9a47b 1055 return 0;
3af9a47b
NC		 1056
1057 return ret;
1058}
1059
1060static asymbol *
1061bfd_pef_make_empty_symbol (abfd)
1062 bfd *abfd;
1063{
1064 return (asymbol *) bfd_alloc (abfd, sizeof (asymbol));
1065}
1066
1067static void
1068bfd_pef_get_symbol_info (abfd, symbol, ret)
1069 bfd *abfd ATTRIBUTE_UNUSED;
1070 asymbol *symbol;
1071 symbol_info *ret;
1072{
1073 bfd_symbol_info (symbol, ret);
1074}
1075
1076static int
1077bfd_pef_sizeof_headers (abfd, exec)
1078 bfd *abfd ATTRIBUTE_UNUSED;
b34976b6 1079 bfd_boolean exec ATTRIBUTE_UNUSED;
3af9a47b
NC		 1080{
1081 return 0;
1082}
1083
1084const bfd_target pef_vec =
1085{
1086 "pef", /* name */
1087 bfd_target_pef_flavour, /* flavour */
1088 BFD_ENDIAN_BIG, /* byteorder */
1089 BFD_ENDIAN_BIG, /* header_byteorder */
1090 (HAS_RELOC | EXEC_P | /* object flags */
1091 HAS_LINENO | HAS_DEBUG |
1092 HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
1093 (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE | SEC_DATA
1094 | SEC_ROM | SEC_HAS_CONTENTS), /* section_flags */
1095 0, /* symbol_leading_char */
1096 ' ', /* ar_pad_char */
1097 16, /* ar_max_namelen */
1098 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1099 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1100 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
1101 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1102 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1103 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
1104 { /* bfd_check_format */
1105 _bfd_dummy_target,
1106 bfd_pef_object_p, /* bfd_check_format */
1107 _bfd_dummy_target,
1108 _bfd_dummy_target,
1109 },
1110 { /* bfd_set_format */
1111 bfd_false,
1112 bfd_pef_mkobject,
1113 bfd_false,
1114 bfd_false,
1115 },
1116 { /* bfd_write_contents */
1117 bfd_false,
1118 bfd_true,
1119 bfd_false,
1120 bfd_false,
1121 },
1122
1123 BFD_JUMP_TABLE_GENERIC (bfd_pef),
1124 BFD_JUMP_TABLE_COPY (_bfd_generic),
1125 BFD_JUMP_TABLE_CORE (_bfd_nocore),
1126 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
1127 BFD_JUMP_TABLE_SYMBOLS (bfd_pef),
1128 BFD_JUMP_TABLE_RELOCS (bfd_pef),
1129 BFD_JUMP_TABLE_WRITE (bfd_pef),
1130 BFD_JUMP_TABLE_LINK (bfd_pef),
1131 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
1132
1133 NULL,
e84d6fca 1134
3af9a47b
NC		 1135 NULL
1136};
1137
1138#define bfd_pef_xlib_close_and_cleanup _bfd_generic_close_and_cleanup
1139#define bfd_pef_xlib_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
1140#define bfd_pef_xlib_new_section_hook _bfd_generic_new_section_hook
1141#define bfd_pef_xlib_get_section_contents _bfd_generic_get_section_contents
1142#define bfd_pef_xlib_set_section_contents _bfd_generic_set_section_contents
1143#define bfd_pef_xlib_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
1144#define bfd_pef_xlib_set_section_contents_in_window _bfd_generic_set_section_contents_in_window
1145
1146static int
1147bfd_pef_xlib_read_header (abfd, header)
1148 bfd *abfd;
1149 bfd_pef_xlib_header *header;
1150{
1151 unsigned char buf[76];
1152
1153 bfd_seek (abfd, 0, SEEK_SET);
1154
e84d6fca
AM		 1155 if (bfd_bread ((PTR) buf, 76, abfd) != 76)
1156 return -1;
3af9a47b
NC		 1157
1158 header->tag1 = bfd_getb32 (buf);
1159 header->tag2 = bfd_getb32 (buf + 4);
1160 header->current_format = bfd_getb32 (buf + 8);
1161 header->container_strings_offset = bfd_getb32 (buf + 12);
1162 header->export_hash_offset = bfd_getb32 (buf + 16);
1163 header->export_key_offset = bfd_getb32 (buf + 20);
1164 header->export_symbol_offset = bfd_getb32 (buf + 24);
1165 header->export_names_offset = bfd_getb32 (buf + 28);
1166 header->export_hash_table_power = bfd_getb32 (buf + 32);
1167 header->exported_symbol_count = bfd_getb32 (buf + 36);
1168 header->frag_name_offset = bfd_getb32 (buf + 40);
1169 header->frag_name_length = bfd_getb32 (buf + 44);
1170 header->dylib_path_offset = bfd_getb32 (buf + 48);
1171 header->dylib_path_length = bfd_getb32 (buf + 52);
1172 header->cpu_family = bfd_getb32 (buf + 56);
1173 header->cpu_model = bfd_getb32 (buf + 60);
1174 header->date_time_stamp = bfd_getb32 (buf + 64);
1175 header->current_version = bfd_getb32 (buf + 68);
1176 header->old_definition_version = bfd_getb32 (buf + 72);
1177 header->old_implementation_version = bfd_getb32 (buf + 76);
1178
1179 return 0;
1180}
1181
1182int
1183bfd_pef_xlib_scan (abfd, header)
1184 bfd *abfd;
1185 bfd_pef_xlib_header *header;
1186{
1187 bfd_pef_xlib_data_struct *mdata = NULL;
1188
e84d6fca
AM		 1189 mdata = ((bfd_pef_xlib_data_struct *)
1190 bfd_alloc (abfd, sizeof (bfd_pef_xlib_data_struct)));
1191 if (mdata == NULL)
3af9a47b 1192 return -1;
3af9a47b 1193
3af9a47b
NC		 1194 mdata->header = *header;
1195
e84d6fca
AM		 1196 abfd->flags = (abfd->xvec->object_flags
1197 | (abfd->flags & (BFD_IN_MEMORY | BFD_IO_FUNCS)));
3af9a47b
NC		 1198
1199 abfd->tdata.pef_xlib_data = mdata;
1200
1201 return 0;
1202}
1203
1204static const bfd_target *
1205bfd_pef_xlib_object_p (abfd)
1206 bfd *abfd;
1207{
e84d6fca 1208 struct bfd_preserve preserve;
3af9a47b 1209 bfd_pef_xlib_header header;
3af9a47b 1210
e84d6fca
AM		 1211 if (bfd_pef_xlib_read_header (abfd, &header) != 0)
1212 {
1213 bfd_set_error (bfd_error_wrong_format);
1214 return NULL;
1215 }
3af9a47b 1216
e84d6fca
AM		 1217 if ((header.tag1 != BFD_PEF_XLIB_TAG1)
1218 || ((header.tag2 != BFD_PEF_VLIB_TAG2)
1219 && (header.tag2 != BFD_PEF_BLIB_TAG2)))
1220 {
1221 bfd_set_error (bfd_error_wrong_format);
1222 return NULL;
1223 }
3af9a47b 1224
e84d6fca
AM		 1225 if (! bfd_preserve_save (abfd, &preserve))
1226 {
1227 bfd_set_error (bfd_error_wrong_format);
1228 return NULL;
1229 }
1230
1231 if (bfd_pef_xlib_scan (abfd, &header) != 0)
1232 {
1233 bfd_preserve_restore (abfd, &preserve);
1234 bfd_set_error (bfd_error_wrong_format);
1235 return NULL;
1236 }
1237
1238 bfd_preserve_finish (abfd, &preserve);
3af9a47b
NC		 1239 return abfd->xvec;
1240}
1241
1242const bfd_target pef_xlib_vec =
1243{
1244 "pef-xlib", /* name */
1245 bfd_target_pef_xlib_flavour, /* flavour */
1246 BFD_ENDIAN_BIG, /* byteorder */
1247 BFD_ENDIAN_BIG, /* header_byteorder */
1248 (HAS_RELOC | EXEC_P | /* object flags */
1249 HAS_LINENO | HAS_DEBUG |
1250 HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
1251 (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE | SEC_DATA
1252 | SEC_ROM | SEC_HAS_CONTENTS), /* section_flags */
1253 0, /* symbol_leading_char */
1254 ' ', /* ar_pad_char */
1255 16, /* ar_max_namelen */
1256 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1257 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1258 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
1259 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1260 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1261 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
1262 { /* bfd_check_format */
1263 _bfd_dummy_target,
1264 bfd_pef_xlib_object_p, /* bfd_check_format */
1265 _bfd_dummy_target,
1266 _bfd_dummy_target,
1267 },
1268 { /* bfd_set_format */
1269 bfd_false,
1270 bfd_pef_mkobject,
1271 bfd_false,
1272 bfd_false,
1273 },
1274 { /* bfd_write_contents */
1275 bfd_false,
1276 bfd_true,
1277 bfd_false,
1278 bfd_false,
1279 },
1280
1281 BFD_JUMP_TABLE_GENERIC (bfd_pef_xlib),
1282 BFD_JUMP_TABLE_COPY (_bfd_generic),
1283 BFD_JUMP_TABLE_CORE (_bfd_nocore),
1284 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
1285 BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols),
1286 BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
1287 BFD_JUMP_TABLE_WRITE (_bfd_nowrite),
1288 BFD_JUMP_TABLE_LINK (_bfd_nolink),
1289 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
1290
1291 NULL,
e84d6fca 1292
3af9a47b
NC		 1293 NULL
1294};
GDB Binutils - Deliverables
This page took 0.220823 seconds and 4 git commands to generate.