OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [bfd/] [pef.c] - Blame information for rev 827

Go to most recent revision | Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.