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