daily update
[binutils.git] / binutils / readelf.c
blob77694cb80773b1ba47ce566e83db60627d225a65
1 /* readelf.c -- display contents of an ELF format file
2 Copyright 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
4 Originally developed by Eric Youngdale <eric@andante.jic.com>
5 Modifications by Nick Clifton <nickc@redhat.com>
7 This file is part of GNU Binutils.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
22 02111-1307, USA. */
25 #include <assert.h>
26 #include <sys/types.h>
27 #include <sys/stat.h>
28 #include <stdio.h>
29 #include <time.h>
31 #if __GNUC__ >= 2
32 /* Define BFD64 here, even if our default architecture is 32 bit ELF
33 as this will allow us to read in and parse 64bit and 32bit ELF files.
34 Only do this if we belive that the compiler can support a 64 bit
35 data type. For now we only rely on GCC being able to do this. */
36 #define BFD64
37 #endif
39 #include "bfd.h"
41 #include "elf/common.h"
42 #include "elf/external.h"
43 #include "elf/internal.h"
44 #include "elf/dwarf2.h"
46 /* The following headers use the elf/reloc-macros.h file to
47 automatically generate relocation recognition functions
48 such as elf_mips_reloc_type() */
50 #define RELOC_MACROS_GEN_FUNC
52 #include "elf/alpha.h"
53 #include "elf/arc.h"
54 #include "elf/arm.h"
55 #include "elf/avr.h"
56 #include "elf/cris.h"
57 #include "elf/d10v.h"
58 #include "elf/d30v.h"
59 #include "elf/fr30.h"
60 #include "elf/h8.h"
61 #include "elf/hppa.h"
62 #include "elf/i386.h"
63 #include "elf/i860.h"
64 #include "elf/i960.h"
65 #include "elf/ia64.h"
66 #include "elf/m32r.h"
67 #include "elf/m68k.h"
68 #include "elf/mcore.h"
69 #include "elf/mips.h"
70 #include "elf/mmix.h"
71 #include "elf/mn10200.h"
72 #include "elf/mn10300.h"
73 #include "elf/or32.h"
74 #include "elf/pj.h"
75 #include "elf/ppc.h"
76 #include "elf/s390.h"
77 #include "elf/sh.h"
78 #include "elf/sparc.h"
79 #include "elf/v850.h"
80 #include "elf/x86-64.h"
81 #include "elf/xstormy16.h"
83 #include "bucomm.h"
84 #include "getopt.h"
86 char * program_name = "readelf";
87 unsigned int dynamic_addr;
88 bfd_size_type dynamic_size;
89 unsigned int rela_addr;
90 unsigned int rela_size;
91 char * dynamic_strings;
92 char * string_table;
93 unsigned long string_table_length;
94 unsigned long num_dynamic_syms;
95 Elf_Internal_Sym * dynamic_symbols;
96 Elf_Internal_Syminfo * dynamic_syminfo;
97 unsigned long dynamic_syminfo_offset;
98 unsigned int dynamic_syminfo_nent;
99 char program_interpreter [64];
100 int dynamic_info[DT_JMPREL + 1];
101 int version_info[16];
102 int loadaddr = 0;
103 Elf_Internal_Ehdr elf_header;
104 Elf_Internal_Shdr * section_headers;
105 Elf_Internal_Dyn * dynamic_segment;
106 Elf_Internal_Shdr * symtab_shndx_hdr;
107 int show_name;
108 int do_dynamic;
109 int do_syms;
110 int do_reloc;
111 int do_sections;
112 int do_segments;
113 int do_unwind;
114 int do_using_dynamic;
115 int do_header;
116 int do_dump;
117 int do_version;
118 int do_wide;
119 int do_histogram;
120 int do_debugging;
121 int do_debug_info;
122 int do_debug_abbrevs;
123 int do_debug_lines;
124 int do_debug_pubnames;
125 int do_debug_aranges;
126 int do_debug_frames;
127 int do_debug_frames_interp;
128 int do_debug_macinfo;
129 int do_debug_str;
130 int do_debug_loc;
131 int do_arch;
132 int do_notes;
133 int is_32bit_elf;
135 /* A dynamic array of flags indicating which sections require dumping. */
136 char * dump_sects = NULL;
137 unsigned int num_dump_sects = 0;
139 #define HEX_DUMP (1 << 0)
140 #define DISASS_DUMP (1 << 1)
141 #define DEBUG_DUMP (1 << 2)
143 /* How to rpint a vma value. */
144 typedef enum print_mode
146 HEX,
147 DEC,
148 DEC_5,
149 UNSIGNED,
150 PREFIX_HEX,
151 FULL_HEX,
152 LONG_HEX
154 print_mode;
156 /* Forward declarations for dumb compilers. */
157 static void print_vma PARAMS ((bfd_vma, print_mode));
158 static void print_symbol PARAMS ((int, char *));
159 static bfd_vma (* byte_get) PARAMS ((unsigned char *, int));
160 static bfd_vma byte_get_little_endian PARAMS ((unsigned char *, int));
161 static bfd_vma byte_get_big_endian PARAMS ((unsigned char *, int));
162 static const char * get_mips_dynamic_type PARAMS ((unsigned long));
163 static const char * get_sparc64_dynamic_type PARAMS ((unsigned long));
164 static const char * get_ppc64_dynamic_type PARAMS ((unsigned long));
165 static const char * get_parisc_dynamic_type PARAMS ((unsigned long));
166 static const char * get_dynamic_type PARAMS ((unsigned long));
167 static int slurp_rela_relocs PARAMS ((FILE *, unsigned long, unsigned long, Elf_Internal_Rela **, unsigned long *));
168 static int slurp_rel_relocs PARAMS ((FILE *, unsigned long, unsigned long, Elf_Internal_Rel **, unsigned long *));
169 static int dump_relocations PARAMS ((FILE *, unsigned long, unsigned long, Elf_Internal_Sym *, unsigned long, char *, int));
170 static char * get_file_type PARAMS ((unsigned));
171 static char * get_machine_name PARAMS ((unsigned));
172 static void decode_ARM_machine_flags PARAMS ((unsigned, char []));
173 static char * get_machine_flags PARAMS ((unsigned, unsigned));
174 static const char * get_mips_segment_type PARAMS ((unsigned long));
175 static const char * get_parisc_segment_type PARAMS ((unsigned long));
176 static const char * get_ia64_segment_type PARAMS ((unsigned long));
177 static const char * get_segment_type PARAMS ((unsigned long));
178 static const char * get_mips_section_type_name PARAMS ((unsigned int));
179 static const char * get_parisc_section_type_name PARAMS ((unsigned int));
180 static const char * get_ia64_section_type_name PARAMS ((unsigned int));
181 static const char * get_section_type_name PARAMS ((unsigned int));
182 static const char * get_symbol_binding PARAMS ((unsigned int));
183 static const char * get_symbol_type PARAMS ((unsigned int));
184 static const char * get_symbol_visibility PARAMS ((unsigned int));
185 static const char * get_symbol_index_type PARAMS ((unsigned int));
186 static const char * get_dynamic_flags PARAMS ((bfd_vma));
187 static void usage PARAMS ((void));
188 static void parse_args PARAMS ((int, char **));
189 static int process_file_header PARAMS ((void));
190 static int process_program_headers PARAMS ((FILE *));
191 static int process_section_headers PARAMS ((FILE *));
192 static int process_unwind PARAMS ((FILE *));
193 static void dynamic_segment_mips_val PARAMS ((Elf_Internal_Dyn *));
194 static void dynamic_segment_parisc_val PARAMS ((Elf_Internal_Dyn *));
195 static int process_dynamic_segment PARAMS ((FILE *));
196 static int process_symbol_table PARAMS ((FILE *));
197 static int process_syminfo PARAMS ((FILE *));
198 static int process_section_contents PARAMS ((FILE *));
199 static void process_mips_fpe_exception PARAMS ((int));
200 static int process_mips_specific PARAMS ((FILE *));
201 static int process_file PARAMS ((char *));
202 static int process_relocs PARAMS ((FILE *));
203 static int process_version_sections PARAMS ((FILE *));
204 static char * get_ver_flags PARAMS ((unsigned int));
205 static int get_32bit_section_headers PARAMS ((FILE *, unsigned int));
206 static int get_64bit_section_headers PARAMS ((FILE *, unsigned int));
207 static int get_32bit_program_headers PARAMS ((FILE *, Elf_Internal_Phdr *));
208 static int get_64bit_program_headers PARAMS ((FILE *, Elf_Internal_Phdr *));
209 static int get_file_header PARAMS ((FILE *));
210 static Elf_Internal_Sym * get_32bit_elf_symbols PARAMS ((FILE *, Elf_Internal_Shdr *));
211 static Elf_Internal_Sym * get_64bit_elf_symbols PARAMS ((FILE *, Elf_Internal_Shdr *));
212 static const char * get_elf_section_flags PARAMS ((bfd_vma));
213 static int * get_dynamic_data PARAMS ((FILE *, unsigned int));
214 static int get_32bit_dynamic_segment PARAMS ((FILE *));
215 static int get_64bit_dynamic_segment PARAMS ((FILE *));
216 #ifdef SUPPORT_DISASSEMBLY
217 static int disassemble_section PARAMS ((Elf32_Internal_Shdr *, FILE *));
218 #endif
219 static int dump_section PARAMS ((Elf32_Internal_Shdr *, FILE *));
220 static int display_debug_section PARAMS ((Elf32_Internal_Shdr *, FILE *));
221 static int display_debug_info PARAMS ((Elf32_Internal_Shdr *, unsigned char *, FILE *));
222 static int display_debug_not_supported PARAMS ((Elf32_Internal_Shdr *, unsigned char *, FILE *));
223 static int prescan_debug_info PARAMS ((Elf32_Internal_Shdr *, unsigned char *, FILE *));
224 static int display_debug_lines PARAMS ((Elf32_Internal_Shdr *, unsigned char *, FILE *));
225 static int display_debug_pubnames PARAMS ((Elf32_Internal_Shdr *, unsigned char *, FILE *));
226 static int display_debug_abbrev PARAMS ((Elf32_Internal_Shdr *, unsigned char *, FILE *));
227 static int display_debug_aranges PARAMS ((Elf32_Internal_Shdr *, unsigned char *, FILE *));
228 static int display_debug_frames PARAMS ((Elf32_Internal_Shdr *, unsigned char *, FILE *));
229 static int display_debug_macinfo PARAMS ((Elf32_Internal_Shdr *, unsigned char *, FILE *));
230 static int display_debug_str PARAMS ((Elf32_Internal_Shdr *, unsigned char *, FILE *));
231 static int display_debug_loc PARAMS ((Elf32_Internal_Shdr *, unsigned char *, FILE *));
232 static unsigned char * process_abbrev_section PARAMS ((unsigned char *, unsigned char *));
233 static void load_debug_str PARAMS ((FILE *));
234 static void free_debug_str PARAMS ((void));
235 static const char * fetch_indirect_string PARAMS ((unsigned long));
236 static void load_debug_loc PARAMS ((FILE *));
237 static void free_debug_loc PARAMS ((void));
238 static unsigned long read_leb128 PARAMS ((unsigned char *, int *, int));
239 static int process_extended_line_op PARAMS ((unsigned char *, int, int));
240 static void reset_state_machine PARAMS ((int));
241 static char * get_TAG_name PARAMS ((unsigned long));
242 static char * get_AT_name PARAMS ((unsigned long));
243 static char * get_FORM_name PARAMS ((unsigned long));
244 static void free_abbrevs PARAMS ((void));
245 static void add_abbrev PARAMS ((unsigned long, unsigned long, int));
246 static void add_abbrev_attr PARAMS ((unsigned long, unsigned long));
247 static unsigned char * read_and_display_attr PARAMS ((unsigned long, unsigned long, unsigned char *, unsigned long, unsigned long));
248 static unsigned char * read_and_display_attr_value PARAMS ((unsigned long, unsigned long, unsigned char *, unsigned long, unsigned long));
249 static unsigned char * display_block PARAMS ((unsigned char *, unsigned long));
250 static void decode_location_expression PARAMS ((unsigned char *, unsigned int, unsigned long));
251 static void request_dump PARAMS ((unsigned int, int));
252 static const char * get_elf_class PARAMS ((unsigned int));
253 static const char * get_data_encoding PARAMS ((unsigned int));
254 static const char * get_osabi_name PARAMS ((unsigned int));
255 static int guess_is_rela PARAMS ((unsigned long));
256 static const char * get_note_type PARAMS ((unsigned int));
257 static const char * get_netbsd_elfcore_note_type PARAMS ((unsigned int));
258 static int process_note PARAMS ((Elf32_Internal_Note *));
259 static int process_corefile_note_segment PARAMS ((FILE *, bfd_vma, bfd_vma));
260 static int process_corefile_note_segments PARAMS ((FILE *));
261 static int process_corefile_contents PARAMS ((FILE *));
262 static int process_arch_specific PARAMS ((FILE *));
264 typedef int Elf32_Word;
266 #ifndef TRUE
267 #define TRUE 1
268 #define FALSE 0
269 #endif
270 #define UNKNOWN -1
272 #define SECTION_NAME(X) ((X) == NULL ? "<none>" : \
273 ((X)->sh_name >= string_table_length \
274 ? "<corrupt>" : string_table + (X)->sh_name))
276 /* Given st_shndx I, map to section_headers index. */
277 #define SECTION_HEADER_INDEX(I) \
278 ((I) < SHN_LORESERVE \
279 ? (I) \
280 : ((I) <= SHN_HIRESERVE \
281 ? 0 \
282 : (I) - (SHN_HIRESERVE + 1 - SHN_LORESERVE)))
284 /* Reverse of the above. */
285 #define SECTION_HEADER_NUM(N) \
286 ((N) < SHN_LORESERVE \
287 ? (N) \
288 : (N) + (SHN_HIRESERVE + 1 - SHN_LORESERVE))
290 #define SECTION_HEADER(I) (section_headers + SECTION_HEADER_INDEX (I))
292 #define DT_VERSIONTAGIDX(tag) (DT_VERNEEDNUM - (tag)) /* Reverse order! */
294 #define BYTE_GET(field) byte_get (field, sizeof (field))
296 /* If we can support a 64 bit data type then BFD64 should be defined
297 and sizeof (bfd_vma) == 8. In this case when translating from an
298 external 8 byte field to an internal field, we can assume that the
299 internal field is also 8 bytes wide and so we can extract all the data.
300 If, however, BFD64 is not defined, then we must assume that the
301 internal data structure only has 4 byte wide fields that are the
302 equivalent of the 8 byte wide external counterparts, and so we must
303 truncate the data. */
304 #ifdef BFD64
305 #define BYTE_GET8(field) byte_get (field, -8)
306 #else
307 #define BYTE_GET8(field) byte_get (field, 8)
308 #endif
310 #define NUM_ELEM(array) (sizeof (array) / sizeof ((array)[0]))
312 #define GET_ELF_SYMBOLS(file, section) \
313 (is_32bit_elf ? get_32bit_elf_symbols (file, section) \
314 : get_64bit_elf_symbols (file, section))
317 static void
318 error VPARAMS ((const char *message, ...))
320 VA_OPEN (args, message);
321 VA_FIXEDARG (args, const char *, message);
323 fprintf (stderr, _("%s: Error: "), program_name);
324 vfprintf (stderr, message, args);
325 VA_CLOSE (args);
328 static void
329 warn VPARAMS ((const char *message, ...))
331 VA_OPEN (args, message);
332 VA_FIXEDARG (args, const char *, message);
334 fprintf (stderr, _("%s: Warning: "), program_name);
335 vfprintf (stderr, message, args);
336 VA_CLOSE (args);
339 static PTR get_data PARAMS ((PTR, FILE *, long, size_t, const char *));
341 static PTR
342 get_data (var, file, offset, size, reason)
343 PTR var;
344 FILE *file;
345 long offset;
346 size_t size;
347 const char *reason;
349 PTR mvar;
351 if (size == 0)
352 return NULL;
354 if (fseek (file, offset, SEEK_SET))
356 error (_("Unable to seek to %x for %s\n"), offset, reason);
357 return NULL;
360 mvar = var;
361 if (mvar == NULL)
363 mvar = (PTR) malloc (size);
365 if (mvar == NULL)
367 error (_("Out of memory allocating %d bytes for %s\n"),
368 size, reason);
369 return NULL;
373 if (fread (mvar, size, 1, file) != 1)
375 error (_("Unable to read in %d bytes of %s\n"), size, reason);
376 if (mvar != var)
377 free (mvar);
378 return NULL;
381 return mvar;
384 static bfd_vma
385 byte_get_little_endian (field, size)
386 unsigned char * field;
387 int size;
389 switch (size)
391 case 1:
392 return * field;
394 case 2:
395 return ((unsigned int) (field [0]))
396 | (((unsigned int) (field [1])) << 8);
398 #ifndef BFD64
399 case 8:
400 /* We want to extract data from an 8 byte wide field and
401 place it into a 4 byte wide field. Since this is a little
402 endian source we can juts use the 4 byte extraction code. */
403 /* Fall through. */
404 #endif
405 case 4:
406 return ((unsigned long) (field [0]))
407 | (((unsigned long) (field [1])) << 8)
408 | (((unsigned long) (field [2])) << 16)
409 | (((unsigned long) (field [3])) << 24);
411 #ifdef BFD64
412 case 8:
413 case -8:
414 /* This is a special case, generated by the BYTE_GET8 macro.
415 It means that we are loading an 8 byte value from a field
416 in an external structure into an 8 byte value in a field
417 in an internal strcuture. */
418 return ((bfd_vma) (field [0]))
419 | (((bfd_vma) (field [1])) << 8)
420 | (((bfd_vma) (field [2])) << 16)
421 | (((bfd_vma) (field [3])) << 24)
422 | (((bfd_vma) (field [4])) << 32)
423 | (((bfd_vma) (field [5])) << 40)
424 | (((bfd_vma) (field [6])) << 48)
425 | (((bfd_vma) (field [7])) << 56);
426 #endif
427 default:
428 error (_("Unhandled data length: %d\n"), size);
429 abort ();
433 /* Print a VMA value. */
434 static void
435 print_vma (vma, mode)
436 bfd_vma vma;
437 print_mode mode;
439 #ifdef BFD64
440 if (is_32bit_elf)
441 #endif
443 switch (mode)
445 case FULL_HEX: printf ("0x"); /* drop through */
446 case LONG_HEX: printf ("%8.8lx", (unsigned long) vma); break;
447 case PREFIX_HEX: printf ("0x"); /* drop through */
448 case HEX: printf ("%lx", (unsigned long) vma); break;
449 case DEC: printf ("%ld", (unsigned long) vma); break;
450 case DEC_5: printf ("%5ld", (long) vma); break;
451 case UNSIGNED: printf ("%lu", (unsigned long) vma); break;
454 #ifdef BFD64
455 else
457 switch (mode)
459 case FULL_HEX:
460 printf ("0x");
461 /* drop through */
463 case LONG_HEX:
464 printf_vma (vma);
465 break;
467 case PREFIX_HEX:
468 printf ("0x");
469 /* drop through */
471 case HEX:
472 #if BFD_HOST_64BIT_LONG
473 printf ("%lx", vma);
474 #else
475 if (_bfd_int64_high (vma))
476 printf ("%lx%8.8lx", _bfd_int64_high (vma), _bfd_int64_low (vma));
477 else
478 printf ("%lx", _bfd_int64_low (vma));
479 #endif
480 break;
482 case DEC:
483 #if BFD_HOST_64BIT_LONG
484 printf ("%ld", vma);
485 #else
486 if (_bfd_int64_high (vma))
487 /* ugg */
488 printf ("++%ld", _bfd_int64_low (vma));
489 else
490 printf ("%ld", _bfd_int64_low (vma));
491 #endif
492 break;
494 case DEC_5:
495 #if BFD_HOST_64BIT_LONG
496 printf ("%5ld", vma);
497 #else
498 if (_bfd_int64_high (vma))
499 /* ugg */
500 printf ("++%ld", _bfd_int64_low (vma));
501 else
502 printf ("%5ld", _bfd_int64_low (vma));
503 #endif
504 break;
506 case UNSIGNED:
507 #if BFD_HOST_64BIT_LONG
508 printf ("%lu", vma);
509 #else
510 if (_bfd_int64_high (vma))
511 /* ugg */
512 printf ("++%lu", _bfd_int64_low (vma));
513 else
514 printf ("%lu", _bfd_int64_low (vma));
515 #endif
516 break;
519 #endif
522 /* Display a symbol on stdout. If do_wide is not true then
523 format the symbol to be at most WIDTH characters,
524 truhncating as necessary. If WIDTH is negative then
525 format the string to be exactly - WIDTH characters,
526 truncating or padding as necessary. */
528 static void
529 print_symbol (width, symbol)
530 int width;
531 char * symbol;
533 if (do_wide)
534 printf (symbol);
535 else if (width < 0)
536 printf ("%-*.*s", width, width, symbol);
537 else
538 printf ("%-.*s", width, symbol);
541 static bfd_vma
542 byte_get_big_endian (field, size)
543 unsigned char * field;
544 int size;
546 switch (size)
548 case 1:
549 return * field;
551 case 2:
552 return ((unsigned int) (field [1])) | (((int) (field [0])) << 8);
554 case 4:
555 return ((unsigned long) (field [3]))
556 | (((unsigned long) (field [2])) << 8)
557 | (((unsigned long) (field [1])) << 16)
558 | (((unsigned long) (field [0])) << 24);
560 #ifndef BFD64
561 case 8:
562 /* Although we are extracing data from an 8 byte wide field, we
563 are returning only 4 bytes of data. */
564 return ((unsigned long) (field [7]))
565 | (((unsigned long) (field [6])) << 8)
566 | (((unsigned long) (field [5])) << 16)
567 | (((unsigned long) (field [4])) << 24);
568 #else
569 case 8:
570 case -8:
571 /* This is a special case, generated by the BYTE_GET8 macro.
572 It means that we are loading an 8 byte value from a field
573 in an external structure into an 8 byte value in a field
574 in an internal strcuture. */
575 return ((bfd_vma) (field [7]))
576 | (((bfd_vma) (field [6])) << 8)
577 | (((bfd_vma) (field [5])) << 16)
578 | (((bfd_vma) (field [4])) << 24)
579 | (((bfd_vma) (field [3])) << 32)
580 | (((bfd_vma) (field [2])) << 40)
581 | (((bfd_vma) (field [1])) << 48)
582 | (((bfd_vma) (field [0])) << 56);
583 #endif
585 default:
586 error (_("Unhandled data length: %d\n"), size);
587 abort ();
591 /* Guess the relocation size commonly used by the specific machines. */
593 static int
594 guess_is_rela (e_machine)
595 unsigned long e_machine;
597 switch (e_machine)
599 /* Targets that use REL relocations. */
600 case EM_ARM:
601 case EM_386:
602 case EM_486:
603 case EM_960:
604 case EM_OPENRISC:
605 case EM_OR32:
606 case EM_M32R:
607 case EM_CYGNUS_M32R:
608 case EM_D10V:
609 case EM_CYGNUS_D10V:
610 case EM_MIPS:
611 case EM_MIPS_RS3_LE:
612 return FALSE;
614 /* Targets that use RELA relocations. */
615 case EM_68K:
616 case EM_H8_300:
617 case EM_H8_300H:
618 case EM_H8S:
619 case EM_SPARC32PLUS:
620 case EM_SPARCV9:
621 case EM_SPARC:
622 case EM_PPC:
623 case EM_PPC64:
624 case EM_V850:
625 case EM_CYGNUS_V850:
626 case EM_D30V:
627 case EM_CYGNUS_D30V:
628 case EM_MN10200:
629 case EM_CYGNUS_MN10200:
630 case EM_MN10300:
631 case EM_CYGNUS_MN10300:
632 case EM_FR30:
633 case EM_CYGNUS_FR30:
634 case EM_SH:
635 case EM_ALPHA:
636 case EM_MCORE:
637 case EM_IA_64:
638 case EM_AVR:
639 case EM_AVR_OLD:
640 case EM_CRIS:
641 case EM_860:
642 case EM_X86_64:
643 case EM_S390:
644 case EM_S390_OLD:
645 case EM_MMIX:
646 case EM_XSTORMY16:
647 return TRUE;
649 case EM_MMA:
650 case EM_PCP:
651 case EM_NCPU:
652 case EM_NDR1:
653 case EM_STARCORE:
654 case EM_ME16:
655 case EM_ST100:
656 case EM_TINYJ:
657 case EM_FX66:
658 case EM_ST9PLUS:
659 case EM_ST7:
660 case EM_68HC16:
661 case EM_68HC11:
662 case EM_68HC08:
663 case EM_68HC05:
664 case EM_SVX:
665 case EM_ST19:
666 case EM_VAX:
667 default:
668 warn (_("Don't know about relocations on this machine architecture\n"));
669 return FALSE;
673 static int
674 slurp_rela_relocs (file, rel_offset, rel_size, relasp, nrelasp)
675 FILE *file;
676 unsigned long rel_offset;
677 unsigned long rel_size;
678 Elf_Internal_Rela **relasp;
679 unsigned long *nrelasp;
681 Elf_Internal_Rela *relas;
682 unsigned long nrelas;
683 unsigned int i;
685 if (is_32bit_elf)
687 Elf32_External_Rela * erelas;
689 erelas = (Elf32_External_Rela *) get_data (NULL, file, rel_offset,
690 rel_size, _("relocs"));
691 if (!erelas)
692 return 0;
694 nrelas = rel_size / sizeof (Elf32_External_Rela);
696 relas = (Elf_Internal_Rela *)
697 malloc (nrelas * sizeof (Elf_Internal_Rela));
699 if (relas == NULL)
701 error(_("out of memory parsing relocs"));
702 return 0;
705 for (i = 0; i < nrelas; i++)
707 relas[i].r_offset = BYTE_GET (erelas[i].r_offset);
708 relas[i].r_info = BYTE_GET (erelas[i].r_info);
709 relas[i].r_addend = BYTE_GET (erelas[i].r_addend);
712 free (erelas);
714 else
716 Elf64_External_Rela * erelas;
718 erelas = (Elf64_External_Rela *) get_data (NULL, file, rel_offset,
719 rel_size, _("relocs"));
720 if (!erelas)
721 return 0;
723 nrelas = rel_size / sizeof (Elf64_External_Rela);
725 relas = (Elf_Internal_Rela *)
726 malloc (nrelas * sizeof (Elf_Internal_Rela));
728 if (relas == NULL)
730 error(_("out of memory parsing relocs"));
731 return 0;
734 for (i = 0; i < nrelas; i++)
736 relas[i].r_offset = BYTE_GET8 (erelas[i].r_offset);
737 relas[i].r_info = BYTE_GET8 (erelas[i].r_info);
738 relas[i].r_addend = BYTE_GET8 (erelas[i].r_addend);
741 free (erelas);
743 *relasp = relas;
744 *nrelasp = nrelas;
745 return 1;
748 static int
749 slurp_rel_relocs (file, rel_offset, rel_size, relsp, nrelsp)
750 FILE *file;
751 unsigned long rel_offset;
752 unsigned long rel_size;
753 Elf_Internal_Rel **relsp;
754 unsigned long *nrelsp;
756 Elf_Internal_Rel *rels;
757 unsigned long nrels;
758 unsigned int i;
760 if (is_32bit_elf)
762 Elf32_External_Rel * erels;
764 erels = (Elf32_External_Rel *) get_data (NULL, file, rel_offset,
765 rel_size, _("relocs"));
766 if (!erels)
767 return 0;
769 nrels = rel_size / sizeof (Elf32_External_Rel);
771 rels = (Elf_Internal_Rel *) malloc (nrels * sizeof (Elf_Internal_Rel));
773 if (rels == NULL)
775 error(_("out of memory parsing relocs"));
776 return 0;
779 for (i = 0; i < nrels; i++)
781 rels[i].r_offset = BYTE_GET (erels[i].r_offset);
782 rels[i].r_info = BYTE_GET (erels[i].r_info);
785 free (erels);
787 else
789 Elf64_External_Rel * erels;
791 erels = (Elf64_External_Rel *) get_data (NULL, file, rel_offset,
792 rel_size, _("relocs"));
793 if (!erels)
794 return 0;
796 nrels = rel_size / sizeof (Elf64_External_Rel);
798 rels = (Elf_Internal_Rel *) malloc (nrels * sizeof (Elf_Internal_Rel));
800 if (rels == NULL)
802 error(_("out of memory parsing relocs"));
803 return 0;
806 for (i = 0; i < nrels; i++)
808 rels[i].r_offset = BYTE_GET8 (erels[i].r_offset);
809 rels[i].r_info = BYTE_GET8 (erels[i].r_info);
812 free (erels);
814 *relsp = rels;
815 *nrelsp = nrels;
816 return 1;
819 /* Display the contents of the relocation data found at the specified offset. */
820 static int
821 dump_relocations (file, rel_offset, rel_size, symtab, nsyms, strtab, is_rela)
822 FILE * file;
823 unsigned long rel_offset;
824 unsigned long rel_size;
825 Elf_Internal_Sym * symtab;
826 unsigned long nsyms;
827 char * strtab;
828 int is_rela;
830 unsigned int i;
831 Elf_Internal_Rel * rels;
832 Elf_Internal_Rela * relas;
835 if (is_rela == UNKNOWN)
836 is_rela = guess_is_rela (elf_header.e_machine);
838 if (is_rela)
840 if (!slurp_rela_relocs (file, rel_offset, rel_size, &relas, &rel_size))
841 return 0;
843 else
845 if (!slurp_rel_relocs (file, rel_offset, rel_size, &rels, &rel_size))
846 return 0;
849 if (is_32bit_elf)
851 if (is_rela)
853 if (do_wide)
854 printf (_(" Offset Info Type Sym. Value Symbol's Name + Addend\n"));
855 else
856 printf (_(" Offset Info Type Sym.Value Sym. Name + Addend\n"));
858 else
860 if (do_wide)
861 printf (_(" Offset Info Type Sym. Value Symbol's Name\n"));
862 else
863 printf (_(" Offset Info Type Sym.Value Sym. Name\n"));
866 else
868 if (is_rela)
870 if (do_wide)
871 printf (_(" Offset Info Type Symbol's Value Symbol's Name + Addend\n"));
872 else
873 printf (_(" Offset Info Type Sym. Value Sym. Name + Addend\n"));
875 else
877 if (do_wide)
878 printf (_(" Offset Info Type Symbol's Value Symbol's Name\n"));
879 else
880 printf (_(" Offset Info Type Sym. Value Sym. Name\n"));
884 for (i = 0; i < rel_size; i++)
886 const char * rtype;
887 const char * rtype2 = NULL;
888 const char * rtype3 = NULL;
889 bfd_vma offset;
890 bfd_vma info;
891 bfd_vma symtab_index;
892 bfd_vma type;
893 bfd_vma type2 = (bfd_vma) NULL;
894 bfd_vma type3 = (bfd_vma) NULL;
896 if (is_rela)
898 offset = relas [i].r_offset;
899 info = relas [i].r_info;
901 else
903 offset = rels [i].r_offset;
904 info = rels [i].r_info;
907 if (is_32bit_elf)
909 type = ELF32_R_TYPE (info);
910 symtab_index = ELF32_R_SYM (info);
912 else
914 if (elf_header.e_machine == EM_MIPS)
916 type = ELF64_MIPS_R_TYPE (info);
917 type2 = ELF64_MIPS_R_TYPE2 (info);
918 type3 = ELF64_MIPS_R_TYPE3 (info);
920 else if (elf_header.e_machine == EM_SPARCV9)
921 type = ELF64_R_TYPE_ID (info);
922 else
923 type = ELF64_R_TYPE (info);
924 /* The #ifdef BFD64 below is to prevent a compile time warning.
925 We know that if we do not have a 64 bit data type that we
926 will never execute this code anyway. */
927 #ifdef BFD64
928 symtab_index = ELF64_R_SYM (info);
929 #endif
932 if (is_32bit_elf)
934 #ifdef _bfd_int64_low
935 printf ("%8.8lx %8.8lx ", _bfd_int64_low (offset), _bfd_int64_low (info));
936 #else
937 printf ("%8.8lx %8.8lx ", offset, info);
938 #endif
940 else
942 #ifdef _bfd_int64_low
943 printf (do_wide
944 ? "%8.8lx%8.8lx %8.8lx%8.8lx "
945 : "%4.4lx%8.8lx %4.4lx%8.8lx ",
946 _bfd_int64_high (offset),
947 _bfd_int64_low (offset),
948 _bfd_int64_high (info),
949 _bfd_int64_low (info));
950 #else
951 printf (do_wide
952 ? "%16.16lx %16.16lx "
953 : "%12.12lx %12.12lx ",
954 offset, info);
955 #endif
958 switch (elf_header.e_machine)
960 default:
961 rtype = NULL;
962 break;
964 case EM_M32R:
965 case EM_CYGNUS_M32R:
966 rtype = elf_m32r_reloc_type (type);
967 break;
969 case EM_386:
970 case EM_486:
971 rtype = elf_i386_reloc_type (type);
972 break;
974 case EM_68K:
975 rtype = elf_m68k_reloc_type (type);
976 break;
978 case EM_960:
979 rtype = elf_i960_reloc_type (type);
980 break;
982 case EM_AVR:
983 case EM_AVR_OLD:
984 rtype = elf_avr_reloc_type (type);
985 break;
987 case EM_OLD_SPARCV9:
988 case EM_SPARC32PLUS:
989 case EM_SPARCV9:
990 case EM_SPARC:
991 rtype = elf_sparc_reloc_type (type);
992 break;
994 case EM_V850:
995 case EM_CYGNUS_V850:
996 rtype = v850_reloc_type (type);
997 break;
999 case EM_D10V:
1000 case EM_CYGNUS_D10V:
1001 rtype = elf_d10v_reloc_type (type);
1002 break;
1004 case EM_D30V:
1005 case EM_CYGNUS_D30V:
1006 rtype = elf_d30v_reloc_type (type);
1007 break;
1009 case EM_SH:
1010 rtype = elf_sh_reloc_type (type);
1011 break;
1013 case EM_MN10300:
1014 case EM_CYGNUS_MN10300:
1015 rtype = elf_mn10300_reloc_type (type);
1016 break;
1018 case EM_MN10200:
1019 case EM_CYGNUS_MN10200:
1020 rtype = elf_mn10200_reloc_type (type);
1021 break;
1023 case EM_FR30:
1024 case EM_CYGNUS_FR30:
1025 rtype = elf_fr30_reloc_type (type);
1026 break;
1028 case EM_MCORE:
1029 rtype = elf_mcore_reloc_type (type);
1030 break;
1032 case EM_MMIX:
1033 rtype = elf_mmix_reloc_type (type);
1034 break;
1036 case EM_PPC:
1037 case EM_PPC64:
1038 rtype = elf_ppc_reloc_type (type);
1039 break;
1041 case EM_MIPS:
1042 case EM_MIPS_RS3_LE:
1043 rtype = elf_mips_reloc_type (type);
1044 if (!is_32bit_elf)
1046 rtype2 = elf_mips_reloc_type (type2);
1047 rtype3 = elf_mips_reloc_type (type3);
1049 break;
1051 case EM_ALPHA:
1052 rtype = elf_alpha_reloc_type (type);
1053 break;
1055 case EM_ARM:
1056 rtype = elf_arm_reloc_type (type);
1057 break;
1059 case EM_ARC:
1060 rtype = elf_arc_reloc_type (type);
1061 break;
1063 case EM_PARISC:
1064 rtype = elf_hppa_reloc_type (type);
1065 break;
1067 case EM_H8_300:
1068 case EM_H8_300H:
1069 case EM_H8S:
1070 rtype = elf_h8_reloc_type (type);
1071 break;
1073 case EM_OPENRISC:
1074 case EM_OR32:
1075 rtype = elf_or32_reloc_type (type);
1076 break;
1078 case EM_PJ:
1079 case EM_PJ_OLD:
1080 rtype = elf_pj_reloc_type (type);
1081 break;
1082 case EM_IA_64:
1083 rtype = elf_ia64_reloc_type (type);
1084 break;
1086 case EM_CRIS:
1087 rtype = elf_cris_reloc_type (type);
1088 break;
1090 case EM_860:
1091 rtype = elf_i860_reloc_type (type);
1092 break;
1094 case EM_X86_64:
1095 rtype = elf_x86_64_reloc_type (type);
1096 break;
1098 case EM_S390_OLD:
1099 case EM_S390:
1100 rtype = elf_s390_reloc_type (type);
1101 break;
1103 case EM_XSTORMY16:
1104 rtype = elf_xstormy16_reloc_type (type);
1105 break;
1108 if (rtype == NULL)
1109 #ifdef _bfd_int64_low
1110 printf (_("unrecognized: %-7lx"), _bfd_int64_low (type));
1111 #else
1112 printf (_("unrecognized: %-7lx"), type);
1113 #endif
1114 else
1115 printf (do_wide ? "%-21.21s" : "%-17.17s", rtype);
1117 if (symtab_index)
1119 if (symtab == NULL || symtab_index >= nsyms)
1120 printf (" bad symbol index: %08lx", (unsigned long) symtab_index);
1121 else
1123 Elf_Internal_Sym * psym;
1125 psym = symtab + symtab_index;
1127 printf (" ");
1128 print_vma (psym->st_value, LONG_HEX);
1129 printf (is_32bit_elf ? " " : " ");
1131 if (psym->st_name == 0)
1132 print_symbol (22, SECTION_NAME (section_headers + psym->st_shndx));
1133 else if (strtab == NULL)
1134 printf (_("<string table index %3ld>"), psym->st_name);
1135 else
1136 print_symbol (22, strtab + psym->st_name);
1138 if (is_rela)
1139 printf (" + %lx", (unsigned long) relas [i].r_addend);
1142 else if (is_rela)
1144 printf ("%*c", is_32bit_elf ? (do_wide ? 34 : 28) : (do_wide ? 26 : 20), ' ');
1145 print_vma (relas[i].r_addend, LONG_HEX);
1148 if (elf_header.e_machine == EM_SPARCV9
1149 && !strcmp (rtype, "R_SPARC_OLO10"))
1150 printf (" + %lx", (unsigned long) ELF64_R_TYPE_DATA (info));
1152 putchar ('\n');
1154 if (! is_32bit_elf && elf_header.e_machine == EM_MIPS)
1156 printf (" Type2: ");
1158 if (rtype2 == NULL)
1159 #ifdef _bfd_int64_low
1160 printf (_("unrecognized: %-7lx"), _bfd_int64_low (type2));
1161 #else
1162 printf (_("unrecognized: %-7lx"), type2);
1163 #endif
1164 else
1165 printf ("%-17.17s", rtype2);
1167 printf("\n Type3: ");
1169 if (rtype3 == NULL)
1170 #ifdef _bfd_int64_low
1171 printf (_("unrecognized: %-7lx"), _bfd_int64_low (type3));
1172 #else
1173 printf (_("unrecognized: %-7lx"), type3);
1174 #endif
1175 else
1176 printf ("%-17.17s", rtype3);
1178 putchar ('\n');
1182 if (is_rela)
1183 free (relas);
1184 else
1185 free (rels);
1187 return 1;
1190 static const char *
1191 get_mips_dynamic_type (type)
1192 unsigned long type;
1194 switch (type)
1196 case DT_MIPS_RLD_VERSION: return "MIPS_RLD_VERSION";
1197 case DT_MIPS_TIME_STAMP: return "MIPS_TIME_STAMP";
1198 case DT_MIPS_ICHECKSUM: return "MIPS_ICHECKSUM";
1199 case DT_MIPS_IVERSION: return "MIPS_IVERSION";
1200 case DT_MIPS_FLAGS: return "MIPS_FLAGS";
1201 case DT_MIPS_BASE_ADDRESS: return "MIPS_BASE_ADDRESS";
1202 case DT_MIPS_MSYM: return "MIPS_MSYM";
1203 case DT_MIPS_CONFLICT: return "MIPS_CONFLICT";
1204 case DT_MIPS_LIBLIST: return "MIPS_LIBLIST";
1205 case DT_MIPS_LOCAL_GOTNO: return "MIPS_LOCAL_GOTNO";
1206 case DT_MIPS_CONFLICTNO: return "MIPS_CONFLICTNO";
1207 case DT_MIPS_LIBLISTNO: return "MIPS_LIBLISTNO";
1208 case DT_MIPS_SYMTABNO: return "MIPS_SYMTABNO";
1209 case DT_MIPS_UNREFEXTNO: return "MIPS_UNREFEXTNO";
1210 case DT_MIPS_GOTSYM: return "MIPS_GOTSYM";
1211 case DT_MIPS_HIPAGENO: return "MIPS_HIPAGENO";
1212 case DT_MIPS_RLD_MAP: return "MIPS_RLD_MAP";
1213 case DT_MIPS_DELTA_CLASS: return "MIPS_DELTA_CLASS";
1214 case DT_MIPS_DELTA_CLASS_NO: return "MIPS_DELTA_CLASS_NO";
1215 case DT_MIPS_DELTA_INSTANCE: return "MIPS_DELTA_INSTANCE";
1216 case DT_MIPS_DELTA_INSTANCE_NO: return "MIPS_DELTA_INSTANCE_NO";
1217 case DT_MIPS_DELTA_RELOC: return "MIPS_DELTA_RELOC";
1218 case DT_MIPS_DELTA_RELOC_NO: return "MIPS_DELTA_RELOC_NO";
1219 case DT_MIPS_DELTA_SYM: return "MIPS_DELTA_SYM";
1220 case DT_MIPS_DELTA_SYM_NO: return "MIPS_DELTA_SYM_NO";
1221 case DT_MIPS_DELTA_CLASSSYM: return "MIPS_DELTA_CLASSSYM";
1222 case DT_MIPS_DELTA_CLASSSYM_NO: return "MIPS_DELTA_CLASSSYM_NO";
1223 case DT_MIPS_CXX_FLAGS: return "MIPS_CXX_FLAGS";
1224 case DT_MIPS_PIXIE_INIT: return "MIPS_PIXIE_INIT";
1225 case DT_MIPS_SYMBOL_LIB: return "MIPS_SYMBOL_LIB";
1226 case DT_MIPS_LOCALPAGE_GOTIDX: return "MIPS_LOCALPAGE_GOTIDX";
1227 case DT_MIPS_LOCAL_GOTIDX: return "MIPS_LOCAL_GOTIDX";
1228 case DT_MIPS_HIDDEN_GOTIDX: return "MIPS_HIDDEN_GOTIDX";
1229 case DT_MIPS_PROTECTED_GOTIDX: return "MIPS_PROTECTED_GOTIDX";
1230 case DT_MIPS_OPTIONS: return "MIPS_OPTIONS";
1231 case DT_MIPS_INTERFACE: return "MIPS_INTERFACE";
1232 case DT_MIPS_DYNSTR_ALIGN: return "MIPS_DYNSTR_ALIGN";
1233 case DT_MIPS_INTERFACE_SIZE: return "MIPS_INTERFACE_SIZE";
1234 case DT_MIPS_RLD_TEXT_RESOLVE_ADDR: return "MIPS_RLD_TEXT_RESOLVE_ADDR";
1235 case DT_MIPS_PERF_SUFFIX: return "MIPS_PERF_SUFFIX";
1236 case DT_MIPS_COMPACT_SIZE: return "MIPS_COMPACT_SIZE";
1237 case DT_MIPS_GP_VALUE: return "MIPS_GP_VALUE";
1238 case DT_MIPS_AUX_DYNAMIC: return "MIPS_AUX_DYNAMIC";
1239 default:
1240 return NULL;
1244 static const char *
1245 get_sparc64_dynamic_type (type)
1246 unsigned long type;
1248 switch (type)
1250 case DT_SPARC_REGISTER: return "SPARC_REGISTER";
1251 default:
1252 return NULL;
1256 static const char *
1257 get_ppc64_dynamic_type (type)
1258 unsigned long type;
1260 switch (type)
1262 case DT_PPC64_GLINK: return "PPC64_GLINK";
1263 case DT_PPC64_OPD: return "PPC64_OPD";
1264 case DT_PPC64_OPDSZ: return "PPC64_OPDSZ";
1265 default:
1266 return NULL;
1270 static const char *
1271 get_parisc_dynamic_type (type)
1272 unsigned long type;
1274 switch (type)
1276 case DT_HP_LOAD_MAP: return "HP_LOAD_MAP";
1277 case DT_HP_DLD_FLAGS: return "HP_DLD_FLAGS";
1278 case DT_HP_DLD_HOOK: return "HP_DLD_HOOK";
1279 case DT_HP_UX10_INIT: return "HP_UX10_INIT";
1280 case DT_HP_UX10_INITSZ: return "HP_UX10_INITSZ";
1281 case DT_HP_PREINIT: return "HP_PREINIT";
1282 case DT_HP_PREINITSZ: return "HP_PREINITSZ";
1283 case DT_HP_NEEDED: return "HP_NEEDED";
1284 case DT_HP_TIME_STAMP: return "HP_TIME_STAMP";
1285 case DT_HP_CHECKSUM: return "HP_CHECKSUM";
1286 case DT_HP_GST_SIZE: return "HP_GST_SIZE";
1287 case DT_HP_GST_VERSION: return "HP_GST_VERSION";
1288 case DT_HP_GST_HASHVAL: return "HP_GST_HASHVAL";
1289 default:
1290 return NULL;
1294 static const char *
1295 get_dynamic_type (type)
1296 unsigned long type;
1298 static char buff [32];
1300 switch (type)
1302 case DT_NULL: return "NULL";
1303 case DT_NEEDED: return "NEEDED";
1304 case DT_PLTRELSZ: return "PLTRELSZ";
1305 case DT_PLTGOT: return "PLTGOT";
1306 case DT_HASH: return "HASH";
1307 case DT_STRTAB: return "STRTAB";
1308 case DT_SYMTAB: return "SYMTAB";
1309 case DT_RELA: return "RELA";
1310 case DT_RELASZ: return "RELASZ";
1311 case DT_RELAENT: return "RELAENT";
1312 case DT_STRSZ: return "STRSZ";
1313 case DT_SYMENT: return "SYMENT";
1314 case DT_INIT: return "INIT";
1315 case DT_FINI: return "FINI";
1316 case DT_SONAME: return "SONAME";
1317 case DT_RPATH: return "RPATH";
1318 case DT_SYMBOLIC: return "SYMBOLIC";
1319 case DT_REL: return "REL";
1320 case DT_RELSZ: return "RELSZ";
1321 case DT_RELENT: return "RELENT";
1322 case DT_PLTREL: return "PLTREL";
1323 case DT_DEBUG: return "DEBUG";
1324 case DT_TEXTREL: return "TEXTREL";
1325 case DT_JMPREL: return "JMPREL";
1326 case DT_BIND_NOW: return "BIND_NOW";
1327 case DT_INIT_ARRAY: return "INIT_ARRAY";
1328 case DT_FINI_ARRAY: return "FINI_ARRAY";
1329 case DT_INIT_ARRAYSZ: return "INIT_ARRAYSZ";
1330 case DT_FINI_ARRAYSZ: return "FINI_ARRAYSZ";
1331 case DT_RUNPATH: return "RUNPATH";
1332 case DT_FLAGS: return "FLAGS";
1334 case DT_PREINIT_ARRAY: return "PREINIT_ARRAY";
1335 case DT_PREINIT_ARRAYSZ: return "PREINIT_ARRAYSZ";
1337 case DT_CHECKSUM: return "CHECKSUM";
1338 case DT_PLTPADSZ: return "PLTPADSZ";
1339 case DT_MOVEENT: return "MOVEENT";
1340 case DT_MOVESZ: return "MOVESZ";
1341 case DT_FEATURE: return "FEATURE";
1342 case DT_POSFLAG_1: return "POSFLAG_1";
1343 case DT_SYMINSZ: return "SYMINSZ";
1344 case DT_SYMINENT: return "SYMINENT"; /* aka VALRNGHI */
1346 case DT_ADDRRNGLO: return "ADDRRNGLO";
1347 case DT_CONFIG: return "CONFIG";
1348 case DT_DEPAUDIT: return "DEPAUDIT";
1349 case DT_AUDIT: return "AUDIT";
1350 case DT_PLTPAD: return "PLTPAD";
1351 case DT_MOVETAB: return "MOVETAB";
1352 case DT_SYMINFO: return "SYMINFO"; /* aka ADDRRNGHI */
1354 case DT_VERSYM: return "VERSYM";
1356 case DT_RELACOUNT: return "RELACOUNT";
1357 case DT_RELCOUNT: return "RELCOUNT";
1358 case DT_FLAGS_1: return "FLAGS_1";
1359 case DT_VERDEF: return "VERDEF";
1360 case DT_VERDEFNUM: return "VERDEFNUM";
1361 case DT_VERNEED: return "VERNEED";
1362 case DT_VERNEEDNUM: return "VERNEEDNUM";
1364 case DT_AUXILIARY: return "AUXILIARY";
1365 case DT_USED: return "USED";
1366 case DT_FILTER: return "FILTER";
1368 default:
1369 if ((type >= DT_LOPROC) && (type <= DT_HIPROC))
1371 const char * result;
1373 switch (elf_header.e_machine)
1375 case EM_MIPS:
1376 case EM_MIPS_RS3_LE:
1377 result = get_mips_dynamic_type (type);
1378 break;
1379 case EM_SPARCV9:
1380 result = get_sparc64_dynamic_type (type);
1381 break;
1382 case EM_PPC64:
1383 result = get_ppc64_dynamic_type (type);
1384 break;
1385 default:
1386 result = NULL;
1387 break;
1390 if (result != NULL)
1391 return result;
1393 sprintf (buff, _("Processor Specific: %lx"), type);
1395 else if ((type >= DT_LOOS) && (type <= DT_HIOS))
1397 const char * result;
1399 switch (elf_header.e_machine)
1401 case EM_PARISC:
1402 result = get_parisc_dynamic_type (type);
1403 break;
1404 default:
1405 result = NULL;
1406 break;
1409 if (result != NULL)
1410 return result;
1412 sprintf (buff, _("Operating System specific: %lx"), type);
1414 else
1415 sprintf (buff, _("<unknown>: %lx"), type);
1417 return buff;
1421 static char *
1422 get_file_type (e_type)
1423 unsigned e_type;
1425 static char buff [32];
1427 switch (e_type)
1429 case ET_NONE: return _("NONE (None)");
1430 case ET_REL: return _("REL (Relocatable file)");
1431 case ET_EXEC: return _("EXEC (Executable file)");
1432 case ET_DYN: return _("DYN (Shared object file)");
1433 case ET_CORE: return _("CORE (Core file)");
1435 default:
1436 if ((e_type >= ET_LOPROC) && (e_type <= ET_HIPROC))
1437 sprintf (buff, _("Processor Specific: (%x)"), e_type);
1438 else if ((e_type >= ET_LOOS) && (e_type <= ET_HIOS))
1439 sprintf (buff, _("OS Specific: (%x)"), e_type);
1440 else
1441 sprintf (buff, _("<unknown>: %x"), e_type);
1442 return buff;
1446 static char *
1447 get_machine_name (e_machine)
1448 unsigned e_machine;
1450 static char buff [64]; /* XXX */
1452 switch (e_machine)
1454 case EM_NONE: return _("None");
1455 case EM_M32: return "WE32100";
1456 case EM_SPARC: return "Sparc";
1457 case EM_386: return "Intel 80386";
1458 case EM_68K: return "MC68000";
1459 case EM_88K: return "MC88000";
1460 case EM_486: return "Intel 80486";
1461 case EM_860: return "Intel 80860";
1462 case EM_MIPS: return "MIPS R3000";
1463 case EM_S370: return "IBM System/370";
1464 case EM_MIPS_RS3_LE: return "MIPS R4000 big-endian";
1465 case EM_OLD_SPARCV9: return "Sparc v9 (old)";
1466 case EM_PARISC: return "HPPA";
1467 case EM_PPC_OLD: return "Power PC (old)";
1468 case EM_SPARC32PLUS: return "Sparc v8+" ;
1469 case EM_960: return "Intel 90860";
1470 case EM_PPC: return "PowerPC";
1471 case EM_PPC64: return "PowerPC64";
1472 case EM_V800: return "NEC V800";
1473 case EM_FR20: return "Fujitsu FR20";
1474 case EM_RH32: return "TRW RH32";
1475 case EM_MCORE: return "MCORE";
1476 case EM_ARM: return "ARM";
1477 case EM_OLD_ALPHA: return "Digital Alpha (old)";
1478 case EM_SH: return "Hitachi SH";
1479 case EM_SPARCV9: return "Sparc v9";
1480 case EM_TRICORE: return "Siemens Tricore";
1481 case EM_ARC: return "ARC";
1482 case EM_H8_300: return "Hitachi H8/300";
1483 case EM_H8_300H: return "Hitachi H8/300H";
1484 case EM_H8S: return "Hitachi H8S";
1485 case EM_H8_500: return "Hitachi H8/500";
1486 case EM_IA_64: return "Intel IA-64";
1487 case EM_MIPS_X: return "Stanford MIPS-X";
1488 case EM_COLDFIRE: return "Motorola Coldfire";
1489 case EM_68HC12: return "Motorola M68HC12";
1490 case EM_ALPHA: return "Alpha";
1491 case EM_CYGNUS_D10V:
1492 case EM_D10V: return "d10v";
1493 case EM_CYGNUS_D30V:
1494 case EM_D30V: return "d30v";
1495 case EM_CYGNUS_M32R:
1496 case EM_M32R: return "Mitsubishi M32r";
1497 case EM_CYGNUS_V850:
1498 case EM_V850: return "NEC v850";
1499 case EM_CYGNUS_MN10300:
1500 case EM_MN10300: return "mn10300";
1501 case EM_CYGNUS_MN10200:
1502 case EM_MN10200: return "mn10200";
1503 case EM_CYGNUS_FR30:
1504 case EM_FR30: return "Fujitsu FR30";
1505 case EM_PJ_OLD:
1506 case EM_PJ: return "picoJava";
1507 case EM_MMA: return "Fujitsu Multimedia Accelerator";
1508 case EM_PCP: return "Siemens PCP";
1509 case EM_NCPU: return "Sony nCPU embedded RISC processor";
1510 case EM_NDR1: return "Denso NDR1 microprocesspr";
1511 case EM_STARCORE: return "Motorola Star*Core processor";
1512 case EM_ME16: return "Toyota ME16 processor";
1513 case EM_ST100: return "STMicroelectronics ST100 processor";
1514 case EM_TINYJ: return "Advanced Logic Corp. TinyJ embedded processor";
1515 case EM_FX66: return "Siemens FX66 microcontroller";
1516 case EM_ST9PLUS: return "STMicroelectronics ST9+ 8/16 bit microcontroller";
1517 case EM_ST7: return "STMicroelectronics ST7 8-bit microcontroller";
1518 case EM_68HC16: return "Motorola MC68HC16 Microcontroller";
1519 case EM_68HC11: return "Motorola MC68HC11 Microcontroller";
1520 case EM_68HC08: return "Motorola MC68HC08 Microcontroller";
1521 case EM_68HC05: return "Motorola MC68HC05 Microcontroller";
1522 case EM_SVX: return "Silicon Graphics SVx";
1523 case EM_ST19: return "STMicroelectronics ST19 8-bit microcontroller";
1524 case EM_VAX: return "Digital VAX";
1525 case EM_AVR_OLD:
1526 case EM_AVR: return "Atmel AVR 8-bit microcontroller";
1527 case EM_CRIS: return "Axis Communications 32-bit embedded processor";
1528 case EM_JAVELIN: return "Infineon Technologies 32-bit embedded cpu";
1529 case EM_FIREPATH: return "Element 14 64-bit DSP processor";
1530 case EM_ZSP: return "LSI Logic's 16-bit DSP processor";
1531 case EM_MMIX: return "Donald Knuth's educational 64-bit processor";
1532 case EM_HUANY: return "Harvard Universitys's machine-independent object format";
1533 case EM_PRISM: return "SiTera Prism";
1534 case EM_X86_64: return "Advanced Micro Devices X86-64";
1535 case EM_S390_OLD:
1536 case EM_S390: return "IBM S/390";
1537 case EM_XSTORMY16: return "Sanyo Xstormy16 CPU core";
1538 case EM_OPENRISC:
1539 case EM_OR32: return "OpenRISC";
1540 default:
1541 sprintf (buff, _("<unknown>: %x"), e_machine);
1542 return buff;
1546 static void
1547 decode_ARM_machine_flags (e_flags, buf)
1548 unsigned e_flags;
1549 char buf[];
1551 unsigned eabi;
1552 int unknown = 0;
1554 eabi = EF_ARM_EABI_VERSION (e_flags);
1555 e_flags &= ~ EF_ARM_EABIMASK;
1557 /* Handle "generic" ARM flags. */
1558 if (e_flags & EF_ARM_RELEXEC)
1560 strcat (buf, ", relocatable executable");
1561 e_flags &= ~ EF_ARM_RELEXEC;
1564 if (e_flags & EF_ARM_HASENTRY)
1566 strcat (buf, ", has entry point");
1567 e_flags &= ~ EF_ARM_HASENTRY;
1570 /* Now handle EABI specific flags. */
1571 switch (eabi)
1573 default:
1574 strcat (buf, ", <unrecognized EABI>");
1575 if (e_flags)
1576 unknown = 1;
1577 break;
1579 case EF_ARM_EABI_VER1:
1580 strcat (buf, ", Version1 EABI");
1581 while (e_flags)
1583 unsigned flag;
1585 /* Process flags one bit at a time. */
1586 flag = e_flags & - e_flags;
1587 e_flags &= ~ flag;
1589 switch (flag)
1591 case EF_ARM_SYMSARESORTED: /* Conflicts with EF_ARM_INTERWORK. */
1592 strcat (buf, ", sorted symbol tables");
1593 break;
1595 default:
1596 unknown = 1;
1597 break;
1600 break;
1602 case EF_ARM_EABI_VER2:
1603 strcat (buf, ", Version2 EABI");
1604 while (e_flags)
1606 unsigned flag;
1608 /* Process flags one bit at a time. */
1609 flag = e_flags & - e_flags;
1610 e_flags &= ~ flag;
1612 switch (flag)
1614 case EF_ARM_SYMSARESORTED: /* Conflicts with EF_ARM_INTERWORK. */
1615 strcat (buf, ", sorted symbol tables");
1616 break;
1618 case EF_ARM_DYNSYMSUSESEGIDX:
1619 strcat (buf, ", dynamic symbols use segment index");
1620 break;
1622 case EF_ARM_MAPSYMSFIRST:
1623 strcat (buf, ", mapping symbols precede others");
1624 break;
1626 default:
1627 unknown = 1;
1628 break;
1631 break;
1633 case EF_ARM_EABI_UNKNOWN:
1634 strcat (buf, ", GNU EABI");
1635 while (e_flags)
1637 unsigned flag;
1639 /* Process flags one bit at a time. */
1640 flag = e_flags & - e_flags;
1641 e_flags &= ~ flag;
1643 switch (flag)
1645 case EF_ARM_INTERWORK:
1646 strcat (buf, ", interworking enabled");
1647 break;
1649 case EF_ARM_APCS_26:
1650 strcat (buf, ", uses APCS/26");
1651 break;
1653 case EF_ARM_APCS_FLOAT:
1654 strcat (buf, ", uses APCS/float");
1655 break;
1657 case EF_ARM_PIC:
1658 strcat (buf, ", position independent");
1659 break;
1661 case EF_ARM_ALIGN8:
1662 strcat (buf, ", 8 bit structure alignment");
1663 break;
1665 case EF_ARM_NEW_ABI:
1666 strcat (buf, ", uses new ABI");
1667 break;
1669 case EF_ARM_OLD_ABI:
1670 strcat (buf, ", uses old ABI");
1671 break;
1673 case EF_ARM_SOFT_FLOAT:
1674 strcat (buf, ", software FP");
1675 break;
1677 default:
1678 unknown = 1;
1679 break;
1684 if (unknown)
1685 strcat (buf,", <unknown>");
1688 static char *
1689 get_machine_flags (e_flags, e_machine)
1690 unsigned e_flags;
1691 unsigned e_machine;
1693 static char buf [1024];
1695 buf[0] = '\0';
1697 if (e_flags)
1699 switch (e_machine)
1701 default:
1702 break;
1704 case EM_ARM:
1705 decode_ARM_machine_flags (e_flags, buf);
1706 break;
1708 case EM_68K:
1709 if (e_flags & EF_CPU32)
1710 strcat (buf, ", cpu32");
1711 if (e_flags & EF_M68000)
1712 strcat (buf, ", m68000");
1713 break;
1715 case EM_PPC:
1716 if (e_flags & EF_PPC_EMB)
1717 strcat (buf, ", emb");
1719 if (e_flags & EF_PPC_RELOCATABLE)
1720 strcat (buf, ", relocatable");
1722 if (e_flags & EF_PPC_RELOCATABLE_LIB)
1723 strcat (buf, ", relocatable-lib");
1724 break;
1726 case EM_V850:
1727 case EM_CYGNUS_V850:
1728 switch (e_flags & EF_V850_ARCH)
1730 case E_V850E_ARCH:
1731 strcat (buf, ", v850e");
1732 break;
1733 case E_V850EA_ARCH:
1734 strcat (buf, ", v850ea");
1735 break;
1736 case E_V850_ARCH:
1737 strcat (buf, ", v850");
1738 break;
1739 default:
1740 strcat (buf, ", unknown v850 architecture variant");
1741 break;
1743 break;
1745 case EM_M32R:
1746 case EM_CYGNUS_M32R:
1747 if ((e_flags & EF_M32R_ARCH) == E_M32R_ARCH)
1748 strcat (buf, ", m32r");
1750 break;
1752 case EM_MIPS:
1753 case EM_MIPS_RS3_LE:
1754 if (e_flags & EF_MIPS_NOREORDER)
1755 strcat (buf, ", noreorder");
1757 if (e_flags & EF_MIPS_PIC)
1758 strcat (buf, ", pic");
1760 if (e_flags & EF_MIPS_CPIC)
1761 strcat (buf, ", cpic");
1763 if (e_flags & EF_MIPS_UCODE)
1764 strcat (buf, ", ugen_reserved");
1766 if (e_flags & EF_MIPS_ABI2)
1767 strcat (buf, ", abi2");
1769 if (e_flags & EF_MIPS_OPTIONS_FIRST)
1770 strcat (buf, ", odk first");
1772 if (e_flags & EF_MIPS_32BITMODE)
1773 strcat (buf, ", 32bitmode");
1775 switch ((e_flags & EF_MIPS_MACH))
1777 case E_MIPS_MACH_3900: strcat (buf, ", 3900"); break;
1778 case E_MIPS_MACH_4010: strcat (buf, ", 4010"); break;
1779 case E_MIPS_MACH_4100: strcat (buf, ", 4100"); break;
1780 case E_MIPS_MACH_4650: strcat (buf, ", 4650"); break;
1781 case E_MIPS_MACH_4111: strcat (buf, ", 4111"); break;
1782 case E_MIPS_MACH_SB1: strcat (buf, ", sb1"); break;
1783 case 0:
1784 /* We simply ignore the field in this case to avoid confusion:
1785 MIPS ELF does not specify EF_MIPS_MACH, it is a GNU
1786 extension. */
1787 break;
1788 default: strcat (buf, ", unknown CPU"); break;
1791 switch ((e_flags & EF_MIPS_ABI))
1793 case E_MIPS_ABI_O32: strcat (buf, ", o32"); break;
1794 case E_MIPS_ABI_O64: strcat (buf, ", o64"); break;
1795 case E_MIPS_ABI_EABI32: strcat (buf, ", eabi32"); break;
1796 case E_MIPS_ABI_EABI64: strcat (buf, ", eabi64"); break;
1797 case 0:
1798 /* We simply ignore the field in this case to avoid confusion:
1799 MIPS ELF does not specify EF_MIPS_ABI, it is a GNU extension.
1800 This means it is likely to be an o32 file, but not for
1801 sure. */
1802 break;
1803 default: strcat (buf, ", unknown ABI"); break;
1806 if (e_flags & EF_MIPS_ARCH_ASE_MDMX)
1807 strcat (buf, ", mdmx");
1809 if (e_flags & EF_MIPS_ARCH_ASE_M16)
1810 strcat (buf, ", mips16");
1812 switch ((e_flags & EF_MIPS_ARCH))
1814 case E_MIPS_ARCH_1: strcat (buf, ", mips1"); break;
1815 case E_MIPS_ARCH_2: strcat (buf, ", mips2"); break;
1816 case E_MIPS_ARCH_3: strcat (buf, ", mips3"); break;
1817 case E_MIPS_ARCH_4: strcat (buf, ", mips4"); break;
1818 case E_MIPS_ARCH_5: strcat (buf, ", mips5"); break;
1819 case E_MIPS_ARCH_32: strcat (buf, ", mips32"); break;
1820 case E_MIPS_ARCH_64: strcat (buf, ", mips64"); break;
1821 default: strcat (buf, ", unknown ISA"); break;
1824 break;
1826 case EM_SPARCV9:
1827 if (e_flags & EF_SPARC_32PLUS)
1828 strcat (buf, ", v8+");
1830 if (e_flags & EF_SPARC_SUN_US1)
1831 strcat (buf, ", ultrasparcI");
1833 if (e_flags & EF_SPARC_SUN_US3)
1834 strcat (buf, ", ultrasparcIII");
1836 if (e_flags & EF_SPARC_HAL_R1)
1837 strcat (buf, ", halr1");
1839 if (e_flags & EF_SPARC_LEDATA)
1840 strcat (buf, ", ledata");
1842 if ((e_flags & EF_SPARCV9_MM) == EF_SPARCV9_TSO)
1843 strcat (buf, ", tso");
1845 if ((e_flags & EF_SPARCV9_MM) == EF_SPARCV9_PSO)
1846 strcat (buf, ", pso");
1848 if ((e_flags & EF_SPARCV9_MM) == EF_SPARCV9_RMO)
1849 strcat (buf, ", rmo");
1850 break;
1852 case EM_PARISC:
1853 switch (e_flags & EF_PARISC_ARCH)
1855 case EFA_PARISC_1_0:
1856 strcpy (buf, ", PA-RISC 1.0");
1857 break;
1858 case EFA_PARISC_1_1:
1859 strcpy (buf, ", PA-RISC 1.1");
1860 break;
1861 case EFA_PARISC_2_0:
1862 strcpy (buf, ", PA-RISC 2.0");
1863 break;
1864 default:
1865 break;
1867 if (e_flags & EF_PARISC_TRAPNIL)
1868 strcat (buf, ", trapnil");
1869 if (e_flags & EF_PARISC_EXT)
1870 strcat (buf, ", ext");
1871 if (e_flags & EF_PARISC_LSB)
1872 strcat (buf, ", lsb");
1873 if (e_flags & EF_PARISC_WIDE)
1874 strcat (buf, ", wide");
1875 if (e_flags & EF_PARISC_NO_KABP)
1876 strcat (buf, ", no kabp");
1877 if (e_flags & EF_PARISC_LAZYSWAP)
1878 strcat (buf, ", lazyswap");
1879 break;
1881 case EM_PJ:
1882 case EM_PJ_OLD:
1883 if ((e_flags & EF_PICOJAVA_NEWCALLS) == EF_PICOJAVA_NEWCALLS)
1884 strcat (buf, ", new calling convention");
1886 if ((e_flags & EF_PICOJAVA_GNUCALLS) == EF_PICOJAVA_GNUCALLS)
1887 strcat (buf, ", gnu calling convention");
1888 break;
1890 case EM_IA_64:
1891 if ((e_flags & EF_IA_64_ABI64))
1892 strcat (buf, ", 64-bit");
1893 else
1894 strcat (buf, ", 32-bit");
1895 if ((e_flags & EF_IA_64_REDUCEDFP))
1896 strcat (buf, ", reduced fp model");
1897 if ((e_flags & EF_IA_64_NOFUNCDESC_CONS_GP))
1898 strcat (buf, ", no function descriptors, constant gp");
1899 else if ((e_flags & EF_IA_64_CONS_GP))
1900 strcat (buf, ", constant gp");
1901 if ((e_flags & EF_IA_64_ABSOLUTE))
1902 strcat (buf, ", absolute");
1903 break;
1907 return buf;
1910 static const char *
1911 get_mips_segment_type (type)
1912 unsigned long type;
1914 switch (type)
1916 case PT_MIPS_REGINFO:
1917 return "REGINFO";
1918 case PT_MIPS_RTPROC:
1919 return "RTPROC";
1920 case PT_MIPS_OPTIONS:
1921 return "OPTIONS";
1922 default:
1923 break;
1926 return NULL;
1929 static const char *
1930 get_parisc_segment_type (type)
1931 unsigned long type;
1933 switch (type)
1935 case PT_HP_TLS: return "HP_TLS";
1936 case PT_HP_CORE_NONE: return "HP_CORE_NONE";
1937 case PT_HP_CORE_VERSION: return "HP_CORE_VERSION";
1938 case PT_HP_CORE_KERNEL: return "HP_CORE_KERNEL";
1939 case PT_HP_CORE_COMM: return "HP_CORE_COMM";
1940 case PT_HP_CORE_PROC: return "HP_CORE_PROC";
1941 case PT_HP_CORE_LOADABLE: return "HP_CORE_LOADABLE";
1942 case PT_HP_CORE_STACK: return "HP_CORE_STACK";
1943 case PT_HP_CORE_SHM: return "HP_CORE_SHM";
1944 case PT_HP_CORE_MMF: return "HP_CORE_MMF";
1945 case PT_HP_PARALLEL: return "HP_PARALLEL";
1946 case PT_HP_FASTBIND: return "HP_FASTBIND";
1947 case PT_PARISC_ARCHEXT: return "PARISC_ARCHEXT";
1948 case PT_PARISC_UNWIND: return "PARISC_UNWIND";
1949 default:
1950 break;
1953 return NULL;
1956 static const char *
1957 get_ia64_segment_type (type)
1958 unsigned long type;
1960 switch (type)
1962 case PT_IA_64_ARCHEXT: return "IA_64_ARCHEXT";
1963 case PT_IA_64_UNWIND: return "IA_64_UNWIND";
1964 case PT_HP_TLS: return "HP_TLS";
1965 case PT_IA_64_HP_OPT_ANOT: return "HP_OPT_ANNOT";
1966 case PT_IA_64_HP_HSL_ANOT: return "HP_HSL_ANNOT";
1967 case PT_IA_64_HP_STACK: return "HP_STACK";
1968 default:
1969 break;
1972 return NULL;
1975 static const char *
1976 get_segment_type (p_type)
1977 unsigned long p_type;
1979 static char buff [32];
1981 switch (p_type)
1983 case PT_NULL: return "NULL";
1984 case PT_LOAD: return "LOAD";
1985 case PT_DYNAMIC: return "DYNAMIC";
1986 case PT_INTERP: return "INTERP";
1987 case PT_NOTE: return "NOTE";
1988 case PT_SHLIB: return "SHLIB";
1989 case PT_PHDR: return "PHDR";
1991 case PT_GNU_EH_FRAME:
1992 return "GNU_EH_FRAME";
1994 default:
1995 if ((p_type >= PT_LOPROC) && (p_type <= PT_HIPROC))
1997 const char * result;
1999 switch (elf_header.e_machine)
2001 case EM_MIPS:
2002 case EM_MIPS_RS3_LE:
2003 result = get_mips_segment_type (p_type);
2004 break;
2005 case EM_PARISC:
2006 result = get_parisc_segment_type (p_type);
2007 break;
2008 case EM_IA_64:
2009 result = get_ia64_segment_type (p_type);
2010 break;
2011 default:
2012 result = NULL;
2013 break;
2016 if (result != NULL)
2017 return result;
2019 sprintf (buff, "LOPROC+%lx", p_type - PT_LOPROC);
2021 else if ((p_type >= PT_LOOS) && (p_type <= PT_HIOS))
2023 const char * result;
2025 switch (elf_header.e_machine)
2027 case EM_PARISC:
2028 result = get_parisc_segment_type (p_type);
2029 break;
2030 case EM_IA_64:
2031 result = get_ia64_segment_type (p_type);
2032 break;
2033 default:
2034 result = NULL;
2035 break;
2038 if (result != NULL)
2039 return result;
2041 sprintf (buff, "LOOS+%lx", p_type - PT_LOOS);
2043 else
2044 sprintf (buff, _("<unknown>: %lx"), p_type);
2046 return buff;
2050 static const char *
2051 get_mips_section_type_name (sh_type)
2052 unsigned int sh_type;
2054 switch (sh_type)
2056 case SHT_MIPS_LIBLIST: return "MIPS_LIBLIST";
2057 case SHT_MIPS_MSYM: return "MIPS_MSYM";
2058 case SHT_MIPS_CONFLICT: return "MIPS_CONFLICT";
2059 case SHT_MIPS_GPTAB: return "MIPS_GPTAB";
2060 case SHT_MIPS_UCODE: return "MIPS_UCODE";
2061 case SHT_MIPS_DEBUG: return "MIPS_DEBUG";
2062 case SHT_MIPS_REGINFO: return "MIPS_REGINFO";
2063 case SHT_MIPS_PACKAGE: return "MIPS_PACKAGE";
2064 case SHT_MIPS_PACKSYM: return "MIPS_PACKSYM";
2065 case SHT_MIPS_RELD: return "MIPS_RELD";
2066 case SHT_MIPS_IFACE: return "MIPS_IFACE";
2067 case SHT_MIPS_CONTENT: return "MIPS_CONTENT";
2068 case SHT_MIPS_OPTIONS: return "MIPS_OPTIONS";
2069 case SHT_MIPS_SHDR: return "MIPS_SHDR";
2070 case SHT_MIPS_FDESC: return "MIPS_FDESC";
2071 case SHT_MIPS_EXTSYM: return "MIPS_EXTSYM";
2072 case SHT_MIPS_DENSE: return "MIPS_DENSE";
2073 case SHT_MIPS_PDESC: return "MIPS_PDESC";
2074 case SHT_MIPS_LOCSYM: return "MIPS_LOCSYM";
2075 case SHT_MIPS_AUXSYM: return "MIPS_AUXSYM";
2076 case SHT_MIPS_OPTSYM: return "MIPS_OPTSYM";
2077 case SHT_MIPS_LOCSTR: return "MIPS_LOCSTR";
2078 case SHT_MIPS_LINE: return "MIPS_LINE";
2079 case SHT_MIPS_RFDESC: return "MIPS_RFDESC";
2080 case SHT_MIPS_DELTASYM: return "MIPS_DELTASYM";
2081 case SHT_MIPS_DELTAINST: return "MIPS_DELTAINST";
2082 case SHT_MIPS_DELTACLASS: return "MIPS_DELTACLASS";
2083 case SHT_MIPS_DWARF: return "MIPS_DWARF";
2084 case SHT_MIPS_DELTADECL: return "MIPS_DELTADECL";
2085 case SHT_MIPS_SYMBOL_LIB: return "MIPS_SYMBOL_LIB";
2086 case SHT_MIPS_EVENTS: return "MIPS_EVENTS";
2087 case SHT_MIPS_TRANSLATE: return "MIPS_TRANSLATE";
2088 case SHT_MIPS_PIXIE: return "MIPS_PIXIE";
2089 case SHT_MIPS_XLATE: return "MIPS_XLATE";
2090 case SHT_MIPS_XLATE_DEBUG: return "MIPS_XLATE_DEBUG";
2091 case SHT_MIPS_WHIRL: return "MIPS_WHIRL";
2092 case SHT_MIPS_EH_REGION: return "MIPS_EH_REGION";
2093 case SHT_MIPS_XLATE_OLD: return "MIPS_XLATE_OLD";
2094 case SHT_MIPS_PDR_EXCEPTION: return "MIPS_PDR_EXCEPTION";
2095 default:
2096 break;
2098 return NULL;
2101 static const char *
2102 get_parisc_section_type_name (sh_type)
2103 unsigned int sh_type;
2105 switch (sh_type)
2107 case SHT_PARISC_EXT: return "PARISC_EXT";
2108 case SHT_PARISC_UNWIND: return "PARISC_UNWIND";
2109 case SHT_PARISC_DOC: return "PARISC_DOC";
2110 default:
2111 break;
2113 return NULL;
2116 static const char *
2117 get_ia64_section_type_name (sh_type)
2118 unsigned int sh_type;
2120 switch (sh_type)
2122 case SHT_IA_64_EXT: return "IA_64_EXT";
2123 case SHT_IA_64_UNWIND: return "IA_64_UNWIND";
2124 default:
2125 break;
2127 return NULL;
2130 static const char *
2131 get_section_type_name (sh_type)
2132 unsigned int sh_type;
2134 static char buff [32];
2136 switch (sh_type)
2138 case SHT_NULL: return "NULL";
2139 case SHT_PROGBITS: return "PROGBITS";
2140 case SHT_SYMTAB: return "SYMTAB";
2141 case SHT_STRTAB: return "STRTAB";
2142 case SHT_RELA: return "RELA";
2143 case SHT_HASH: return "HASH";
2144 case SHT_DYNAMIC: return "DYNAMIC";
2145 case SHT_NOTE: return "NOTE";
2146 case SHT_NOBITS: return "NOBITS";
2147 case SHT_REL: return "REL";
2148 case SHT_SHLIB: return "SHLIB";
2149 case SHT_DYNSYM: return "DYNSYM";
2150 case SHT_INIT_ARRAY: return "INIT_ARRAY";
2151 case SHT_FINI_ARRAY: return "FINI_ARRAY";
2152 case SHT_PREINIT_ARRAY: return "PREINIT_ARRAY";
2153 case SHT_GROUP: return "GROUP";
2154 case SHT_SYMTAB_SHNDX: return "SYMTAB SECTION INDICIES";
2155 case SHT_GNU_verdef: return "VERDEF";
2156 case SHT_GNU_verneed: return "VERNEED";
2157 case SHT_GNU_versym: return "VERSYM";
2158 case 0x6ffffff0: return "VERSYM";
2159 case 0x6ffffffc: return "VERDEF";
2160 case 0x7ffffffd: return "AUXILIARY";
2161 case 0x7fffffff: return "FILTER";
2163 default:
2164 if ((sh_type >= SHT_LOPROC) && (sh_type <= SHT_HIPROC))
2166 const char * result;
2168 switch (elf_header.e_machine)
2170 case EM_MIPS:
2171 case EM_MIPS_RS3_LE:
2172 result = get_mips_section_type_name (sh_type);
2173 break;
2174 case EM_PARISC:
2175 result = get_parisc_section_type_name (sh_type);
2176 break;
2177 case EM_IA_64:
2178 result = get_ia64_section_type_name (sh_type);
2179 break;
2180 default:
2181 result = NULL;
2182 break;
2185 if (result != NULL)
2186 return result;
2188 sprintf (buff, "LOPROC+%x", sh_type - SHT_LOPROC);
2190 else if ((sh_type >= SHT_LOOS) && (sh_type <= SHT_HIOS))
2191 sprintf (buff, "LOOS+%x", sh_type - SHT_LOOS);
2192 else if ((sh_type >= SHT_LOUSER) && (sh_type <= SHT_HIUSER))
2193 sprintf (buff, "LOUSER+%x", sh_type - SHT_LOUSER);
2194 else
2195 sprintf (buff, _("<unknown>: %x"), sh_type);
2197 return buff;
2201 struct option options [] =
2203 {"all", no_argument, 0, 'a'},
2204 {"file-header", no_argument, 0, 'h'},
2205 {"program-headers", no_argument, 0, 'l'},
2206 {"headers", no_argument, 0, 'e'},
2207 {"histogram", no_argument, 0, 'I'},
2208 {"segments", no_argument, 0, 'l'},
2209 {"sections", no_argument, 0, 'S'},
2210 {"section-headers", no_argument, 0, 'S'},
2211 {"symbols", no_argument, 0, 's'},
2212 {"syms", no_argument, 0, 's'},
2213 {"relocs", no_argument, 0, 'r'},
2214 {"notes", no_argument, 0, 'n'},
2215 {"dynamic", no_argument, 0, 'd'},
2216 {"arch-specific", no_argument, 0, 'A'},
2217 {"version-info", no_argument, 0, 'V'},
2218 {"use-dynamic", no_argument, 0, 'D'},
2219 {"hex-dump", required_argument, 0, 'x'},
2220 {"debug-dump", optional_argument, 0, 'w'},
2221 {"unwind", no_argument, 0, 'u'},
2222 #ifdef SUPPORT_DISASSEMBLY
2223 {"instruction-dump", required_argument, 0, 'i'},
2224 #endif
2226 {"version", no_argument, 0, 'v'},
2227 {"wide", no_argument, 0, 'W'},
2228 {"help", no_argument, 0, 'H'},
2229 {0, no_argument, 0, 0}
2232 static void
2233 usage ()
2235 fprintf (stdout, _("Usage: readelf <option(s)> elf-file(s)\n"));
2236 fprintf (stdout, _(" Display information about the contents of ELF format files\n"));
2237 fprintf (stdout, _(" Options are:\n\
2238 -a --all Equivalent to: -h -l -S -s -r -d -V -A -I\n\
2239 -h --file-header Display the ELF file header\n\
2240 -l --program-headers Display the program headers\n\
2241 --segments An alias for --program-headers\n\
2242 -S --section-headers Display the sections' header\n\
2243 --sections An alias for --section-headers\n\
2244 -e --headers Equivalent to: -h -l -S\n\
2245 -s --syms Display the symbol table\n\
2246 --symbols An alias for --syms\n\
2247 -n --notes Display the core notes (if present)\n\
2248 -r --relocs Display the relocations (if present)\n\
2249 -u --unwind Display the unwind info (if present)\n\
2250 -d --dynamic Display the dynamic segment (if present)\n\
2251 -V --version-info Display the version sections (if present)\n\
2252 -A --arch-specific Display architecture specific information (if any).\n\
2253 -D --use-dynamic Use the dynamic section info when displaying symbols\n\
2254 -x --hex-dump=<number> Dump the contents of section <number>\n\
2255 -w --debug-dump[=line,=info,=abbrev,=pubnames,=ranges,=macro,=frames,=str,=loc]\n\
2256 Display the contents of DWARF2 debug sections\n"));
2257 #ifdef SUPPORT_DISASSEMBLY
2258 fprintf (stdout, _("\
2259 -i --instruction-dump=<number>\n\
2260 Disassemble the contents of section <number>\n"));
2261 #endif
2262 fprintf (stdout, _("\
2263 -I --histogram Display histogram of bucket list lengths\n\
2264 -W --wide Allow output width to exceed 80 characters\n\
2265 -H --help Display this information\n\
2266 -v --version Display the version number of readelf\n"));
2267 fprintf (stdout, _("Report bugs to %s\n"), REPORT_BUGS_TO);
2269 exit (0);
2272 static void
2273 request_dump (section, type)
2274 unsigned int section;
2275 int type;
2277 if (section >= num_dump_sects)
2279 char * new_dump_sects;
2281 new_dump_sects = (char *) calloc (section + 1, 1);
2283 if (new_dump_sects == NULL)
2284 error (_("Out of memory allocating dump request table."));
2285 else
2287 /* Copy current flag settings. */
2288 memcpy (new_dump_sects, dump_sects, num_dump_sects);
2290 free (dump_sects);
2292 dump_sects = new_dump_sects;
2293 num_dump_sects = section + 1;
2297 if (dump_sects)
2298 dump_sects [section] |= type;
2300 return;
2303 static void
2304 parse_args (argc, argv)
2305 int argc;
2306 char ** argv;
2308 int c;
2310 if (argc < 2)
2311 usage ();
2313 while ((c = getopt_long
2314 (argc, argv, "ersuahnldSDAIw::x:i:vVW", options, NULL)) != EOF)
2316 char * cp;
2317 int section;
2319 switch (c)
2321 case 0:
2322 /* Long options. */
2323 break;
2324 case 'H':
2325 usage ();
2326 break;
2328 case 'a':
2329 do_syms ++;
2330 do_reloc ++;
2331 do_unwind ++;
2332 do_dynamic ++;
2333 do_header ++;
2334 do_sections ++;
2335 do_segments ++;
2336 do_version ++;
2337 do_histogram ++;
2338 do_arch ++;
2339 do_notes ++;
2340 break;
2341 case 'e':
2342 do_header ++;
2343 do_sections ++;
2344 do_segments ++;
2345 break;
2346 case 'A':
2347 do_arch ++;
2348 break;
2349 case 'D':
2350 do_using_dynamic ++;
2351 break;
2352 case 'r':
2353 do_reloc ++;
2354 break;
2355 case 'u':
2356 do_unwind ++;
2357 break;
2358 case 'h':
2359 do_header ++;
2360 break;
2361 case 'l':
2362 do_segments ++;
2363 break;
2364 case 's':
2365 do_syms ++;
2366 break;
2367 case 'S':
2368 do_sections ++;
2369 break;
2370 case 'd':
2371 do_dynamic ++;
2372 break;
2373 case 'I':
2374 do_histogram ++;
2375 break;
2376 case 'n':
2377 do_notes ++;
2378 break;
2379 case 'x':
2380 do_dump ++;
2381 section = strtoul (optarg, & cp, 0);
2382 if (! * cp && section >= 0)
2384 request_dump (section, HEX_DUMP);
2385 break;
2387 goto oops;
2388 case 'w':
2389 do_dump ++;
2390 if (optarg == 0)
2391 do_debugging = 1;
2392 else
2394 unsigned int index = 0;
2396 do_debugging = 0;
2398 while (optarg[index])
2399 switch (optarg[index++])
2401 case 'i':
2402 case 'I':
2403 do_debug_info = 1;
2404 break;
2406 case 'a':
2407 case 'A':
2408 do_debug_abbrevs = 1;
2409 break;
2411 case 'l':
2412 case 'L':
2413 do_debug_lines = 1;
2414 break;
2416 case 'p':
2417 case 'P':
2418 do_debug_pubnames = 1;
2419 break;
2421 case 'r':
2422 case 'R':
2423 do_debug_aranges = 1;
2424 break;
2426 case 'F':
2427 do_debug_frames_interp = 1;
2428 case 'f':
2429 do_debug_frames = 1;
2430 break;
2432 case 'm':
2433 case 'M':
2434 do_debug_macinfo = 1;
2435 break;
2437 case 's':
2438 case 'S':
2439 do_debug_str = 1;
2440 break;
2442 case 'o':
2443 case 'O':
2444 do_debug_loc = 1;
2445 break;
2447 default:
2448 warn (_("Unrecognized debug option '%s'\n"), optarg);
2449 break;
2452 break;
2453 #ifdef SUPPORT_DISASSEMBLY
2454 case 'i':
2455 do_dump ++;
2456 section = strtoul (optarg, & cp, 0);
2457 if (! * cp && section >= 0)
2459 request_dump (section, DISASS_DUMP);
2460 break;
2462 goto oops;
2463 #endif
2464 case 'v':
2465 print_version (program_name);
2466 break;
2467 case 'V':
2468 do_version ++;
2469 break;
2470 case 'W':
2471 do_wide ++;
2472 break;
2473 default:
2474 oops:
2475 /* xgettext:c-format */
2476 error (_("Invalid option '-%c'\n"), c);
2477 /* Drop through. */
2478 case '?':
2479 usage ();
2483 if (!do_dynamic && !do_syms && !do_reloc && !do_unwind && !do_sections
2484 && !do_segments && !do_header && !do_dump && !do_version
2485 && !do_histogram && !do_debugging && !do_arch && !do_notes)
2486 usage ();
2487 else if (argc < 3)
2489 warn (_("Nothing to do.\n"));
2490 usage();
2494 static const char *
2495 get_elf_class (elf_class)
2496 unsigned int elf_class;
2498 static char buff [32];
2500 switch (elf_class)
2502 case ELFCLASSNONE: return _("none");
2503 case ELFCLASS32: return "ELF32";
2504 case ELFCLASS64: return "ELF64";
2505 default:
2506 sprintf (buff, _("<unknown: %x>"), elf_class);
2507 return buff;
2511 static const char *
2512 get_data_encoding (encoding)
2513 unsigned int encoding;
2515 static char buff [32];
2517 switch (encoding)
2519 case ELFDATANONE: return _("none");
2520 case ELFDATA2LSB: return _("2's complement, little endian");
2521 case ELFDATA2MSB: return _("2's complement, big endian");
2522 default:
2523 sprintf (buff, _("<unknown: %x>"), encoding);
2524 return buff;
2528 static const char *
2529 get_osabi_name (osabi)
2530 unsigned int osabi;
2532 static char buff [32];
2534 switch (osabi)
2536 case ELFOSABI_NONE: return "UNIX - System V";
2537 case ELFOSABI_HPUX: return "UNIX - HP-UX";
2538 case ELFOSABI_NETBSD: return "UNIX - NetBSD";
2539 case ELFOSABI_LINUX: return "UNIX - Linux";
2540 case ELFOSABI_HURD: return "GNU/Hurd";
2541 case ELFOSABI_SOLARIS: return "UNIX - Solaris";
2542 case ELFOSABI_AIX: return "UNIX - AIX";
2543 case ELFOSABI_IRIX: return "UNIX - IRIX";
2544 case ELFOSABI_FREEBSD: return "UNIX - FreeBSD";
2545 case ELFOSABI_TRU64: return "UNIX - TRU64";
2546 case ELFOSABI_MODESTO: return "Novell - Modesto";
2547 case ELFOSABI_OPENBSD: return "UNIX - OpenBSD";
2548 case ELFOSABI_STANDALONE: return _("Standalone App");
2549 case ELFOSABI_ARM: return "ARM";
2550 default:
2551 sprintf (buff, _("<unknown: %x>"), osabi);
2552 return buff;
2556 /* Decode the data held in 'elf_header'. */
2557 static int
2558 process_file_header ()
2560 if ( elf_header.e_ident [EI_MAG0] != ELFMAG0
2561 || elf_header.e_ident [EI_MAG1] != ELFMAG1
2562 || elf_header.e_ident [EI_MAG2] != ELFMAG2
2563 || elf_header.e_ident [EI_MAG3] != ELFMAG3)
2565 error
2566 (_("Not an ELF file - it has the wrong magic bytes at the start\n"));
2567 return 0;
2570 if (do_header)
2572 int i;
2574 printf (_("ELF Header:\n"));
2575 printf (_(" Magic: "));
2576 for (i = 0; i < EI_NIDENT; i ++)
2577 printf ("%2.2x ", elf_header.e_ident [i]);
2578 printf ("\n");
2579 printf (_(" Class: %s\n"),
2580 get_elf_class (elf_header.e_ident [EI_CLASS]));
2581 printf (_(" Data: %s\n"),
2582 get_data_encoding (elf_header.e_ident [EI_DATA]));
2583 printf (_(" Version: %d %s\n"),
2584 elf_header.e_ident [EI_VERSION],
2585 (elf_header.e_ident [EI_VERSION] == EV_CURRENT
2586 ? "(current)"
2587 : (elf_header.e_ident [EI_VERSION] != EV_NONE
2588 ? "<unknown: %lx>"
2589 : "")));
2590 printf (_(" OS/ABI: %s\n"),
2591 get_osabi_name (elf_header.e_ident [EI_OSABI]));
2592 printf (_(" ABI Version: %d\n"),
2593 elf_header.e_ident [EI_ABIVERSION]);
2594 printf (_(" Type: %s\n"),
2595 get_file_type (elf_header.e_type));
2596 printf (_(" Machine: %s\n"),
2597 get_machine_name (elf_header.e_machine));
2598 printf (_(" Version: 0x%lx\n"),
2599 (unsigned long) elf_header.e_version);
2601 printf (_(" Entry point address: "));
2602 print_vma ((bfd_vma) elf_header.e_entry, PREFIX_HEX);
2603 printf (_("\n Start of program headers: "));
2604 print_vma ((bfd_vma) elf_header.e_phoff, DEC);
2605 printf (_(" (bytes into file)\n Start of section headers: "));
2606 print_vma ((bfd_vma) elf_header.e_shoff, DEC);
2607 printf (_(" (bytes into file)\n"));
2609 printf (_(" Flags: 0x%lx%s\n"),
2610 (unsigned long) elf_header.e_flags,
2611 get_machine_flags (elf_header.e_flags, elf_header.e_machine));
2612 printf (_(" Size of this header: %ld (bytes)\n"),
2613 (long) elf_header.e_ehsize);
2614 printf (_(" Size of program headers: %ld (bytes)\n"),
2615 (long) elf_header.e_phentsize);
2616 printf (_(" Number of program headers: %ld\n"),
2617 (long) elf_header.e_phnum);
2618 printf (_(" Size of section headers: %ld (bytes)\n"),
2619 (long) elf_header.e_shentsize);
2620 printf (_(" Number of section headers: %ld"),
2621 (long) elf_header.e_shnum);
2622 if (section_headers != NULL && elf_header.e_shnum == 0)
2623 printf (" (%ld)", (long) section_headers[0].sh_size);
2624 putc ('\n', stdout);
2625 printf (_(" Section header string table index: %ld"),
2626 (long) elf_header.e_shstrndx);
2627 if (section_headers != NULL && elf_header.e_shstrndx == SHN_XINDEX)
2628 printf (" (%ld)", (long) section_headers[0].sh_link);
2629 putc ('\n', stdout);
2632 if (section_headers != NULL)
2634 if (elf_header.e_shnum == 0)
2635 elf_header.e_shnum = section_headers[0].sh_size;
2636 if (elf_header.e_shstrndx == SHN_XINDEX)
2637 elf_header.e_shstrndx = section_headers[0].sh_link;
2638 free (section_headers);
2639 section_headers = NULL;
2642 return 1;
2646 static int
2647 get_32bit_program_headers (file, program_headers)
2648 FILE * file;
2649 Elf_Internal_Phdr * program_headers;
2651 Elf32_External_Phdr * phdrs;
2652 Elf32_External_Phdr * external;
2653 Elf32_Internal_Phdr * internal;
2654 unsigned int i;
2656 phdrs = ((Elf32_External_Phdr *)
2657 get_data (NULL, file, elf_header.e_phoff,
2658 elf_header.e_phentsize * elf_header.e_phnum,
2659 _("program headers")));
2660 if (!phdrs)
2661 return 0;
2663 for (i = 0, internal = program_headers, external = phdrs;
2664 i < elf_header.e_phnum;
2665 i ++, internal ++, external ++)
2667 internal->p_type = BYTE_GET (external->p_type);
2668 internal->p_offset = BYTE_GET (external->p_offset);
2669 internal->p_vaddr = BYTE_GET (external->p_vaddr);
2670 internal->p_paddr = BYTE_GET (external->p_paddr);
2671 internal->p_filesz = BYTE_GET (external->p_filesz);
2672 internal->p_memsz = BYTE_GET (external->p_memsz);
2673 internal->p_flags = BYTE_GET (external->p_flags);
2674 internal->p_align = BYTE_GET (external->p_align);
2677 free (phdrs);
2679 return 1;
2682 static int
2683 get_64bit_program_headers (file, program_headers)
2684 FILE * file;
2685 Elf_Internal_Phdr * program_headers;
2687 Elf64_External_Phdr * phdrs;
2688 Elf64_External_Phdr * external;
2689 Elf64_Internal_Phdr * internal;
2690 unsigned int i;
2692 phdrs = ((Elf64_External_Phdr *)
2693 get_data (NULL, file, elf_header.e_phoff,
2694 elf_header.e_phentsize * elf_header.e_phnum,
2695 _("program headers")));
2696 if (!phdrs)
2697 return 0;
2699 for (i = 0, internal = program_headers, external = phdrs;
2700 i < elf_header.e_phnum;
2701 i ++, internal ++, external ++)
2703 internal->p_type = BYTE_GET (external->p_type);
2704 internal->p_flags = BYTE_GET (external->p_flags);
2705 internal->p_offset = BYTE_GET8 (external->p_offset);
2706 internal->p_vaddr = BYTE_GET8 (external->p_vaddr);
2707 internal->p_paddr = BYTE_GET8 (external->p_paddr);
2708 internal->p_filesz = BYTE_GET8 (external->p_filesz);
2709 internal->p_memsz = BYTE_GET8 (external->p_memsz);
2710 internal->p_align = BYTE_GET8 (external->p_align);
2713 free (phdrs);
2715 return 1;
2718 static int
2719 process_program_headers (file)
2720 FILE * file;
2722 Elf_Internal_Phdr * program_headers;
2723 Elf_Internal_Phdr * segment;
2724 unsigned int i;
2726 if (elf_header.e_phnum == 0)
2728 if (do_segments)
2729 printf (_("\nThere are no program headers in this file.\n"));
2730 return 1;
2733 if (do_segments && !do_header)
2735 printf (_("\nElf file type is %s\n"), get_file_type (elf_header.e_type));
2736 printf (_("Entry point "));
2737 print_vma ((bfd_vma) elf_header.e_entry, PREFIX_HEX);
2738 printf (_("\nThere are %d program headers, starting at offset "),
2739 elf_header.e_phnum);
2740 print_vma ((bfd_vma) elf_header.e_phoff, DEC);
2741 printf ("\n");
2744 program_headers = (Elf_Internal_Phdr *) malloc
2745 (elf_header.e_phnum * sizeof (Elf_Internal_Phdr));
2747 if (program_headers == NULL)
2749 error (_("Out of memory\n"));
2750 return 0;
2753 if (is_32bit_elf)
2754 i = get_32bit_program_headers (file, program_headers);
2755 else
2756 i = get_64bit_program_headers (file, program_headers);
2758 if (i == 0)
2760 free (program_headers);
2761 return 0;
2764 if (do_segments)
2766 printf
2767 (_("\nProgram Header%s:\n"), elf_header.e_phnum > 1 ? "s" : "");
2769 if (is_32bit_elf)
2770 printf
2771 (_(" Type Offset VirtAddr PhysAddr FileSiz MemSiz Flg Align\n"));
2772 else if (do_wide)
2773 printf
2774 (_(" Type Offset VirtAddr PhysAddr FileSiz MemSiz Flg Align\n"));
2775 else
2777 printf
2778 (_(" Type Offset VirtAddr PhysAddr\n"));
2779 printf
2780 (_(" FileSiz MemSiz Flags Align\n"));
2784 loadaddr = -1;
2785 dynamic_addr = 0;
2786 dynamic_size = 0;
2788 for (i = 0, segment = program_headers;
2789 i < elf_header.e_phnum;
2790 i ++, segment ++)
2792 if (do_segments)
2794 printf (" %-14.14s ", get_segment_type (segment->p_type));
2796 if (is_32bit_elf)
2798 printf ("0x%6.6lx ", (unsigned long) segment->p_offset);
2799 printf ("0x%8.8lx ", (unsigned long) segment->p_vaddr);
2800 printf ("0x%8.8lx ", (unsigned long) segment->p_paddr);
2801 printf ("0x%5.5lx ", (unsigned long) segment->p_filesz);
2802 printf ("0x%5.5lx ", (unsigned long) segment->p_memsz);
2803 printf ("%c%c%c ",
2804 (segment->p_flags & PF_R ? 'R' : ' '),
2805 (segment->p_flags & PF_W ? 'W' : ' '),
2806 (segment->p_flags & PF_X ? 'E' : ' '));
2807 printf ("%#lx", (unsigned long) segment->p_align);
2809 else if (do_wide)
2811 if ((unsigned long) segment->p_offset == segment->p_offset)
2812 printf ("0x%6.6lx ", (unsigned long) segment->p_offset);
2813 else
2815 print_vma (segment->p_offset, FULL_HEX);
2816 putchar (' ');
2819 print_vma (segment->p_vaddr, FULL_HEX);
2820 putchar (' ');
2821 print_vma (segment->p_paddr, FULL_HEX);
2822 putchar (' ');
2824 if ((unsigned long) segment->p_filesz == segment->p_filesz)
2825 printf ("0x%6.6lx ", (unsigned long) segment->p_filesz);
2826 else
2828 print_vma (segment->p_filesz, FULL_HEX);
2829 putchar (' ');
2832 if ((unsigned long) segment->p_memsz == segment->p_memsz)
2833 printf ("0x%6.6lx", (unsigned long) segment->p_memsz);
2834 else
2836 print_vma (segment->p_offset, FULL_HEX);
2839 printf (" %c%c%c ",
2840 (segment->p_flags & PF_R ? 'R' : ' '),
2841 (segment->p_flags & PF_W ? 'W' : ' '),
2842 (segment->p_flags & PF_X ? 'E' : ' '));
2844 if ((unsigned long) segment->p_align == segment->p_align)
2845 printf ("%#lx", (unsigned long) segment->p_align);
2846 else
2848 print_vma (segment->p_align, PREFIX_HEX);
2851 else
2853 print_vma (segment->p_offset, FULL_HEX);
2854 putchar (' ');
2855 print_vma (segment->p_vaddr, FULL_HEX);
2856 putchar (' ');
2857 print_vma (segment->p_paddr, FULL_HEX);
2858 printf ("\n ");
2859 print_vma (segment->p_filesz, FULL_HEX);
2860 putchar (' ');
2861 print_vma (segment->p_memsz, FULL_HEX);
2862 printf (" %c%c%c ",
2863 (segment->p_flags & PF_R ? 'R' : ' '),
2864 (segment->p_flags & PF_W ? 'W' : ' '),
2865 (segment->p_flags & PF_X ? 'E' : ' '));
2866 print_vma (segment->p_align, HEX);
2870 switch (segment->p_type)
2872 case PT_LOAD:
2873 if (loadaddr == -1)
2874 loadaddr = (segment->p_vaddr & 0xfffff000)
2875 - (segment->p_offset & 0xfffff000);
2876 break;
2878 case PT_DYNAMIC:
2879 if (dynamic_addr)
2880 error (_("more than one dynamic segment\n"));
2882 dynamic_addr = segment->p_offset;
2883 dynamic_size = segment->p_filesz;
2884 break;
2886 case PT_INTERP:
2887 if (fseek (file, (long) segment->p_offset, SEEK_SET))
2888 error (_("Unable to find program interpreter name\n"));
2889 else
2891 program_interpreter[0] = 0;
2892 fscanf (file, "%63s", program_interpreter);
2894 if (do_segments)
2895 printf (_("\n [Requesting program interpreter: %s]"),
2896 program_interpreter);
2898 break;
2901 if (do_segments)
2902 putc ('\n', stdout);
2905 if (loadaddr == -1)
2907 /* Very strange. */
2908 loadaddr = 0;
2911 if (do_segments && section_headers != NULL)
2913 printf (_("\n Section to Segment mapping:\n"));
2914 printf (_(" Segment Sections...\n"));
2916 assert (string_table != NULL);
2918 for (i = 0; i < elf_header.e_phnum; i++)
2920 unsigned int j;
2921 Elf_Internal_Shdr * section;
2923 segment = program_headers + i;
2924 section = section_headers;
2926 printf (" %2.2d ", i);
2928 for (j = 1; j < elf_header.e_shnum; j++, section ++)
2930 if (section->sh_size > 0
2931 /* Compare allocated sections by VMA, unallocated
2932 sections by file offset. */
2933 && (section->sh_flags & SHF_ALLOC
2934 ? (section->sh_addr >= segment->p_vaddr
2935 && section->sh_addr + section->sh_size
2936 <= segment->p_vaddr + segment->p_memsz)
2937 : ((bfd_vma) section->sh_offset >= segment->p_offset
2938 && (section->sh_offset + section->sh_size
2939 <= segment->p_offset + segment->p_filesz))))
2940 printf ("%s ", SECTION_NAME (section));
2943 putc ('\n',stdout);
2947 free (program_headers);
2949 return 1;
2953 static int
2954 get_32bit_section_headers (file, num)
2955 FILE * file;
2956 unsigned int num;
2958 Elf32_External_Shdr * shdrs;
2959 Elf32_Internal_Shdr * internal;
2960 unsigned int i;
2962 shdrs = ((Elf32_External_Shdr *)
2963 get_data (NULL, file, elf_header.e_shoff,
2964 elf_header.e_shentsize * num,
2965 _("section headers")));
2966 if (!shdrs)
2967 return 0;
2969 section_headers = ((Elf_Internal_Shdr *)
2970 malloc (num * sizeof (Elf_Internal_Shdr)));
2972 if (section_headers == NULL)
2974 error (_("Out of memory\n"));
2975 return 0;
2978 for (i = 0, internal = section_headers;
2979 i < num;
2980 i ++, internal ++)
2982 internal->sh_name = BYTE_GET (shdrs[i].sh_name);
2983 internal->sh_type = BYTE_GET (shdrs[i].sh_type);
2984 internal->sh_flags = BYTE_GET (shdrs[i].sh_flags);
2985 internal->sh_addr = BYTE_GET (shdrs[i].sh_addr);
2986 internal->sh_offset = BYTE_GET (shdrs[i].sh_offset);
2987 internal->sh_size = BYTE_GET (shdrs[i].sh_size);
2988 internal->sh_link = BYTE_GET (shdrs[i].sh_link);
2989 internal->sh_info = BYTE_GET (shdrs[i].sh_info);
2990 internal->sh_addralign = BYTE_GET (shdrs[i].sh_addralign);
2991 internal->sh_entsize = BYTE_GET (shdrs[i].sh_entsize);
2994 free (shdrs);
2996 return 1;
2999 static int
3000 get_64bit_section_headers (file, num)
3001 FILE * file;
3002 unsigned int num;
3004 Elf64_External_Shdr * shdrs;
3005 Elf64_Internal_Shdr * internal;
3006 unsigned int i;
3008 shdrs = ((Elf64_External_Shdr *)
3009 get_data (NULL, file, elf_header.e_shoff,
3010 elf_header.e_shentsize * num,
3011 _("section headers")));
3012 if (!shdrs)
3013 return 0;
3015 section_headers = ((Elf_Internal_Shdr *)
3016 malloc (num * sizeof (Elf_Internal_Shdr)));
3018 if (section_headers == NULL)
3020 error (_("Out of memory\n"));
3021 return 0;
3024 for (i = 0, internal = section_headers;
3025 i < num;
3026 i ++, internal ++)
3028 internal->sh_name = BYTE_GET (shdrs[i].sh_name);
3029 internal->sh_type = BYTE_GET (shdrs[i].sh_type);
3030 internal->sh_flags = BYTE_GET8 (shdrs[i].sh_flags);
3031 internal->sh_addr = BYTE_GET8 (shdrs[i].sh_addr);
3032 internal->sh_size = BYTE_GET8 (shdrs[i].sh_size);
3033 internal->sh_entsize = BYTE_GET8 (shdrs[i].sh_entsize);
3034 internal->sh_link = BYTE_GET (shdrs[i].sh_link);
3035 internal->sh_info = BYTE_GET (shdrs[i].sh_info);
3036 internal->sh_offset = BYTE_GET (shdrs[i].sh_offset);
3037 internal->sh_addralign = BYTE_GET (shdrs[i].sh_addralign);
3040 free (shdrs);
3042 return 1;
3045 static Elf_Internal_Sym *
3046 get_32bit_elf_symbols (file, section)
3047 FILE * file;
3048 Elf_Internal_Shdr *section;
3050 unsigned long number;
3051 Elf32_External_Sym * esyms;
3052 Elf_External_Sym_Shndx *shndx;
3053 Elf_Internal_Sym * isyms;
3054 Elf_Internal_Sym * psym;
3055 unsigned int j;
3057 esyms = ((Elf32_External_Sym *)
3058 get_data (NULL, file, section->sh_offset,
3059 section->sh_size, _("symbols")));
3060 if (!esyms)
3061 return NULL;
3063 shndx = NULL;
3064 if (symtab_shndx_hdr != NULL
3065 && (symtab_shndx_hdr->sh_link
3066 == (unsigned long) SECTION_HEADER_NUM (section - section_headers)))
3068 shndx = ((Elf_External_Sym_Shndx *)
3069 get_data (NULL, file, symtab_shndx_hdr->sh_offset,
3070 symtab_shndx_hdr->sh_size, _("symtab shndx")));
3071 if (!shndx)
3073 free (esyms);
3074 return NULL;
3078 number = section->sh_size / section->sh_entsize;
3079 isyms = (Elf_Internal_Sym *) malloc (number * sizeof (Elf_Internal_Sym));
3081 if (isyms == NULL)
3083 error (_("Out of memory\n"));
3084 if (shndx)
3085 free (shndx);
3086 free (esyms);
3087 return NULL;
3090 for (j = 0, psym = isyms;
3091 j < number;
3092 j ++, psym ++)
3094 psym->st_name = BYTE_GET (esyms[j].st_name);
3095 psym->st_value = BYTE_GET (esyms[j].st_value);
3096 psym->st_size = BYTE_GET (esyms[j].st_size);
3097 psym->st_shndx = BYTE_GET (esyms[j].st_shndx);
3098 if (psym->st_shndx == SHN_XINDEX && shndx != NULL)
3099 psym->st_shndx
3100 = byte_get ((unsigned char *) &shndx[j], sizeof (shndx[j]));
3101 psym->st_info = BYTE_GET (esyms[j].st_info);
3102 psym->st_other = BYTE_GET (esyms[j].st_other);
3105 if (shndx)
3106 free (shndx);
3107 free (esyms);
3109 return isyms;
3112 static Elf_Internal_Sym *
3113 get_64bit_elf_symbols (file, section)
3114 FILE * file;
3115 Elf_Internal_Shdr *section;
3117 unsigned long number;
3118 Elf64_External_Sym * esyms;
3119 Elf_External_Sym_Shndx *shndx;
3120 Elf_Internal_Sym * isyms;
3121 Elf_Internal_Sym * psym;
3122 unsigned int j;
3124 esyms = ((Elf64_External_Sym *)
3125 get_data (NULL, file, section->sh_offset,
3126 section->sh_size, _("symbols")));
3127 if (!esyms)
3128 return NULL;
3130 shndx = NULL;
3131 if (symtab_shndx_hdr != NULL
3132 && (symtab_shndx_hdr->sh_link
3133 == (unsigned long) SECTION_HEADER_NUM (section - section_headers)))
3135 shndx = ((Elf_External_Sym_Shndx *)
3136 get_data (NULL, file, symtab_shndx_hdr->sh_offset,
3137 symtab_shndx_hdr->sh_size, _("symtab shndx")));
3138 if (!shndx)
3140 free (esyms);
3141 return NULL;
3145 number = section->sh_size / section->sh_entsize;
3146 isyms = (Elf_Internal_Sym *) malloc (number * sizeof (Elf_Internal_Sym));
3148 if (isyms == NULL)
3150 error (_("Out of memory\n"));
3151 if (shndx)
3152 free (shndx);
3153 free (esyms);
3154 return NULL;
3157 for (j = 0, psym = isyms;
3158 j < number;
3159 j ++, psym ++)
3161 psym->st_name = BYTE_GET (esyms[j].st_name);
3162 psym->st_info = BYTE_GET (esyms[j].st_info);
3163 psym->st_other = BYTE_GET (esyms[j].st_other);
3164 psym->st_shndx = BYTE_GET (esyms[j].st_shndx);
3165 if (psym->st_shndx == SHN_XINDEX && shndx != NULL)
3166 psym->st_shndx
3167 = byte_get ((unsigned char *) &shndx[j], sizeof (shndx[j]));
3168 psym->st_value = BYTE_GET8 (esyms[j].st_value);
3169 psym->st_size = BYTE_GET8 (esyms[j].st_size);
3172 if (shndx)
3173 free (shndx);
3174 free (esyms);
3176 return isyms;
3179 static const char *
3180 get_elf_section_flags (sh_flags)
3181 bfd_vma sh_flags;
3183 static char buff [32];
3185 * buff = 0;
3187 while (sh_flags)
3189 bfd_vma flag;
3191 flag = sh_flags & - sh_flags;
3192 sh_flags &= ~ flag;
3194 switch (flag)
3196 case SHF_WRITE: strcat (buff, "W"); break;
3197 case SHF_ALLOC: strcat (buff, "A"); break;
3198 case SHF_EXECINSTR: strcat (buff, "X"); break;
3199 case SHF_MERGE: strcat (buff, "M"); break;
3200 case SHF_STRINGS: strcat (buff, "S"); break;
3201 case SHF_INFO_LINK: strcat (buff, "I"); break;
3202 case SHF_LINK_ORDER: strcat (buff, "L"); break;
3203 case SHF_OS_NONCONFORMING: strcat (buff, "O"); break;
3204 case SHF_GROUP: strcat (buff, "G"); break;
3206 default:
3207 if (flag & SHF_MASKOS)
3209 strcat (buff, "o");
3210 sh_flags &= ~ SHF_MASKOS;
3212 else if (flag & SHF_MASKPROC)
3214 strcat (buff, "p");
3215 sh_flags &= ~ SHF_MASKPROC;
3217 else
3218 strcat (buff, "x");
3219 break;
3223 return buff;
3226 static int
3227 process_section_headers (file)
3228 FILE * file;
3230 Elf_Internal_Shdr * section;
3231 unsigned int i;
3233 section_headers = NULL;
3235 if (elf_header.e_shnum == 0)
3237 if (do_sections)
3238 printf (_("\nThere are no sections in this file.\n"));
3240 return 1;
3243 if (do_sections && !do_header)
3244 printf (_("There are %d section headers, starting at offset 0x%lx:\n"),
3245 elf_header.e_shnum, (unsigned long) elf_header.e_shoff);
3247 if (is_32bit_elf)
3249 if (! get_32bit_section_headers (file, elf_header.e_shnum))
3250 return 0;
3252 else if (! get_64bit_section_headers (file, elf_header.e_shnum))
3253 return 0;
3255 /* Read in the string table, so that we have names to display. */
3256 section = SECTION_HEADER (elf_header.e_shstrndx);
3258 if (section->sh_size != 0)
3260 string_table = (char *) get_data (NULL, file, section->sh_offset,
3261 section->sh_size, _("string table"));
3263 string_table_length = section->sh_size;
3266 /* Scan the sections for the dynamic symbol table
3267 and dynamic string table and debug sections. */
3268 dynamic_symbols = NULL;
3269 dynamic_strings = NULL;
3270 dynamic_syminfo = NULL;
3272 for (i = 0, section = section_headers;
3273 i < elf_header.e_shnum;
3274 i ++, section ++)
3276 char * name = SECTION_NAME (section);
3278 if (section->sh_type == SHT_DYNSYM)
3280 if (dynamic_symbols != NULL)
3282 error (_("File contains multiple dynamic symbol tables\n"));
3283 continue;
3286 num_dynamic_syms = section->sh_size / section->sh_entsize;
3287 dynamic_symbols = GET_ELF_SYMBOLS (file, section);
3289 else if (section->sh_type == SHT_STRTAB
3290 && strcmp (name, ".dynstr") == 0)
3292 if (dynamic_strings != NULL)
3294 error (_("File contains multiple dynamic string tables\n"));
3295 continue;
3298 dynamic_strings = (char *) get_data (NULL, file, section->sh_offset,
3299 section->sh_size,
3300 _("dynamic strings"));
3302 else if (section->sh_type == SHT_SYMTAB_SHNDX)
3304 if (symtab_shndx_hdr != NULL)
3306 error (_("File contains multiple symtab shndx tables\n"));
3307 continue;
3309 symtab_shndx_hdr = section;
3311 else if ((do_debugging || do_debug_info || do_debug_abbrevs
3312 || do_debug_lines || do_debug_pubnames || do_debug_aranges
3313 || do_debug_frames || do_debug_macinfo || do_debug_str
3314 || do_debug_loc)
3315 && strncmp (name, ".debug_", 7) == 0)
3317 name += 7;
3319 if (do_debugging
3320 || (do_debug_info && (strcmp (name, "info") == 0))
3321 || (do_debug_abbrevs && (strcmp (name, "abbrev") == 0))
3322 || (do_debug_lines && (strcmp (name, "line") == 0))
3323 || (do_debug_pubnames && (strcmp (name, "pubnames") == 0))
3324 || (do_debug_aranges && (strcmp (name, "aranges") == 0))
3325 || (do_debug_frames && (strcmp (name, "frame") == 0))
3326 || (do_debug_macinfo && (strcmp (name, "macinfo") == 0))
3327 || (do_debug_str && (strcmp (name, "str") == 0))
3328 || (do_debug_loc && (strcmp (name, "loc") == 0))
3330 request_dump (i, DEBUG_DUMP);
3332 /* linkonce section to be combined with .debug_info at link time. */
3333 else if ((do_debugging || do_debug_info)
3334 && strncmp (name, ".gnu.linkonce.wi.", 17) == 0)
3335 request_dump (i, DEBUG_DUMP);
3336 else if (do_debug_frames && strcmp (name, ".eh_frame") == 0)
3337 request_dump (i, DEBUG_DUMP);
3340 if (! do_sections)
3341 return 1;
3343 printf (_("\nSection Header%s:\n"), elf_header.e_shnum > 1 ? "s" : "");
3345 if (is_32bit_elf)
3346 printf
3347 (_(" [Nr] Name Type Addr Off Size ES Flg Lk Inf Al\n"));
3348 else if (do_wide)
3349 printf
3350 (_(" [Nr] Name Type Address Off Size ES Flg Lk Inf Al\n"));
3351 else
3353 printf (_(" [Nr] Name Type Address Offset\n"));
3354 printf (_(" Size EntSize Flags Link Info Align\n"));
3357 for (i = 0, section = section_headers;
3358 i < elf_header.e_shnum;
3359 i ++, section ++)
3361 printf (" [%2u] %-17.17s %-15.15s ",
3362 SECTION_HEADER_NUM (i),
3363 SECTION_NAME (section),
3364 get_section_type_name (section->sh_type));
3366 if (is_32bit_elf)
3368 print_vma (section->sh_addr, LONG_HEX);
3370 printf ( " %6.6lx %6.6lx %2.2lx",
3371 (unsigned long) section->sh_offset,
3372 (unsigned long) section->sh_size,
3373 (unsigned long) section->sh_entsize);
3375 printf (" %3s ", get_elf_section_flags (section->sh_flags));
3377 printf ("%2ld %3lx %2ld\n",
3378 (unsigned long) section->sh_link,
3379 (unsigned long) section->sh_info,
3380 (unsigned long) section->sh_addralign);
3382 else if (do_wide)
3384 print_vma (section->sh_addr, LONG_HEX);
3386 if ((long) section->sh_offset == section->sh_offset)
3387 printf (" %6.6lx", (unsigned long) section->sh_offset);
3388 else
3390 putchar (' ');
3391 print_vma (section->sh_offset, LONG_HEX);
3394 if ((unsigned long) section->sh_size == section->sh_size)
3395 printf (" %6.6lx", (unsigned long) section->sh_size);
3396 else
3398 putchar (' ');
3399 print_vma (section->sh_size, LONG_HEX);
3402 if ((unsigned long) section->sh_entsize == section->sh_entsize)
3403 printf (" %2.2lx", (unsigned long) section->sh_entsize);
3404 else
3406 putchar (' ');
3407 print_vma (section->sh_entsize, LONG_HEX);
3410 printf (" %3s ", get_elf_section_flags (section->sh_flags));
3412 printf ("%2ld %3lx ",
3413 (unsigned long) section->sh_link,
3414 (unsigned long) section->sh_info);
3416 if ((unsigned long) section->sh_addralign == section->sh_addralign)
3417 printf ("%2ld\n", (unsigned long) section->sh_addralign);
3418 else
3420 print_vma (section->sh_addralign, DEC);
3421 putchar ('\n');
3424 else
3426 putchar (' ');
3427 print_vma (section->sh_addr, LONG_HEX);
3428 if ((long) section->sh_offset == section->sh_offset)
3429 printf (" %8.8lx", (unsigned long) section->sh_offset);
3430 else
3432 printf (" ");
3433 print_vma (section->sh_offset, LONG_HEX);
3435 printf ("\n ");
3436 print_vma (section->sh_size, LONG_HEX);
3437 printf (" ");
3438 print_vma (section->sh_entsize, LONG_HEX);
3440 printf (" %3s ", get_elf_section_flags (section->sh_flags));
3442 printf (" %2ld %3lx %ld\n",
3443 (unsigned long) section->sh_link,
3444 (unsigned long) section->sh_info,
3445 (unsigned long) section->sh_addralign);
3449 printf (_("Key to Flags:\n\
3450 W (write), A (alloc), X (execute), M (merge), S (strings)\n\
3451 I (info), L (link order), G (group), x (unknown)\n\
3452 O (extra OS processing required) o (OS specific), p (processor specific)\n"));
3454 return 1;
3457 /* Process the reloc section. */
3458 static int
3459 process_relocs (file)
3460 FILE * file;
3462 unsigned long rel_size;
3463 unsigned long rel_offset;
3466 if (!do_reloc)
3467 return 1;
3469 if (do_using_dynamic)
3471 int is_rela = FALSE;
3473 rel_size = 0;
3474 rel_offset = 0;
3476 if (dynamic_info[DT_REL])
3478 rel_offset = dynamic_info[DT_REL];
3479 rel_size = dynamic_info[DT_RELSZ];
3480 is_rela = FALSE;
3482 else if (dynamic_info [DT_RELA])
3484 rel_offset = dynamic_info[DT_RELA];
3485 rel_size = dynamic_info[DT_RELASZ];
3486 is_rela = TRUE;
3488 else if (dynamic_info[DT_JMPREL])
3490 rel_offset = dynamic_info[DT_JMPREL];
3491 rel_size = dynamic_info[DT_PLTRELSZ];
3493 switch (dynamic_info[DT_PLTREL])
3495 case DT_REL:
3496 is_rela = FALSE;
3497 break;
3498 case DT_RELA:
3499 is_rela = TRUE;
3500 break;
3501 default:
3502 is_rela = UNKNOWN;
3503 break;
3507 if (rel_size)
3509 printf
3510 (_("\nRelocation section at offset 0x%lx contains %ld bytes:\n"),
3511 rel_offset, rel_size);
3513 dump_relocations (file, rel_offset - loadaddr, rel_size,
3514 dynamic_symbols, num_dynamic_syms, dynamic_strings, is_rela);
3516 else
3517 printf (_("\nThere are no dynamic relocations in this file.\n"));
3519 else
3521 Elf32_Internal_Shdr * section;
3522 unsigned long i;
3523 int found = 0;
3525 for (i = 0, section = section_headers;
3526 i < elf_header.e_shnum;
3527 i++, section ++)
3529 if ( section->sh_type != SHT_RELA
3530 && section->sh_type != SHT_REL)
3531 continue;
3533 rel_offset = section->sh_offset;
3534 rel_size = section->sh_size;
3536 if (rel_size)
3538 Elf32_Internal_Shdr * strsec;
3539 Elf_Internal_Sym * symtab;
3540 char * strtab;
3541 int is_rela;
3542 unsigned long nsyms;
3544 printf (_("\nRelocation section "));
3546 if (string_table == NULL)
3547 printf ("%d", section->sh_name);
3548 else
3549 printf ("'%s'", SECTION_NAME (section));
3551 printf (_(" at offset 0x%lx contains %lu entries:\n"),
3552 rel_offset, (unsigned long) (rel_size / section->sh_entsize));
3554 symtab = NULL;
3555 strtab = NULL;
3556 nsyms = 0;
3557 if (section->sh_link)
3559 Elf32_Internal_Shdr * symsec;
3561 symsec = SECTION_HEADER (section->sh_link);
3562 nsyms = symsec->sh_size / symsec->sh_entsize;
3563 symtab = GET_ELF_SYMBOLS (file, symsec);
3565 if (symtab == NULL)
3566 continue;
3568 strsec = SECTION_HEADER (symsec->sh_link);
3570 strtab = (char *) get_data (NULL, file, strsec->sh_offset,
3571 strsec->sh_size,
3572 _("string table"));
3574 is_rela = section->sh_type == SHT_RELA;
3576 dump_relocations (file, rel_offset, rel_size,
3577 symtab, nsyms, strtab, is_rela);
3579 if (strtab)
3580 free (strtab);
3581 if (symtab)
3582 free (symtab);
3584 found = 1;
3588 if (! found)
3589 printf (_("\nThere are no relocations in this file.\n"));
3592 return 1;
3595 #include "unwind-ia64.h"
3597 /* An absolute address consists of a section and an offset. If the
3598 section is NULL, the offset itself is the address, otherwise, the
3599 address equals to LOAD_ADDRESS(section) + offset. */
3601 struct absaddr
3603 unsigned short section;
3604 bfd_vma offset;
3607 struct unw_aux_info
3609 struct unw_table_entry
3611 struct absaddr start;
3612 struct absaddr end;
3613 struct absaddr info;
3615 *table; /* Unwind table. */
3616 unsigned long table_len; /* Length of unwind table. */
3617 unsigned char * info; /* Unwind info. */
3618 unsigned long info_size; /* Size of unwind info. */
3619 bfd_vma info_addr; /* starting address of unwind info. */
3620 bfd_vma seg_base; /* Starting address of segment. */
3621 Elf_Internal_Sym * symtab; /* The symbol table. */
3622 unsigned long nsyms; /* Number of symbols. */
3623 char * strtab; /* The string table. */
3624 unsigned long strtab_size; /* Size of string table. */
3627 static void find_symbol_for_address PARAMS ((struct unw_aux_info *,
3628 struct absaddr, const char **,
3629 bfd_vma *));
3630 static void dump_ia64_unwind PARAMS ((struct unw_aux_info *));
3631 static int slurp_ia64_unwind_table PARAMS ((FILE *, struct unw_aux_info *,
3632 Elf32_Internal_Shdr *));
3634 static void
3635 find_symbol_for_address (aux, addr, symname, offset)
3636 struct unw_aux_info *aux;
3637 struct absaddr addr;
3638 const char **symname;
3639 bfd_vma *offset;
3641 bfd_vma dist = (bfd_vma) 0x100000;
3642 Elf_Internal_Sym *sym, *best = NULL;
3643 unsigned long i;
3645 for (i = 0, sym = aux->symtab; i < aux->nsyms; ++i, ++sym)
3647 if (ELF_ST_TYPE (sym->st_info) == STT_FUNC
3648 && sym->st_name != 0
3649 && (addr.section == SHN_UNDEF || addr.section == sym->st_shndx)
3650 && addr.offset >= sym->st_value
3651 && addr.offset - sym->st_value < dist)
3653 best = sym;
3654 dist = addr.offset - sym->st_value;
3655 if (!dist)
3656 break;
3659 if (best)
3661 *symname = (best->st_name >= aux->strtab_size
3662 ? "<corrupt>" : aux->strtab + best->st_name);
3663 *offset = dist;
3664 return;
3666 *symname = NULL;
3667 *offset = addr.offset;
3670 static void
3671 dump_ia64_unwind (aux)
3672 struct unw_aux_info *aux;
3674 bfd_vma addr_size;
3675 struct unw_table_entry * tp;
3676 int in_body;
3678 addr_size = is_32bit_elf ? 4 : 8;
3680 for (tp = aux->table; tp < aux->table + aux->table_len; ++tp)
3682 bfd_vma stamp;
3683 bfd_vma offset;
3684 const unsigned char * dp;
3685 const unsigned char * head;
3686 const char * procname;
3688 find_symbol_for_address (aux, tp->start, &procname, &offset);
3690 fputs ("\n<", stdout);
3692 if (procname)
3694 fputs (procname, stdout);
3696 if (offset)
3697 printf ("+%lx", (unsigned long) offset);
3700 fputs (">: [", stdout);
3701 print_vma (tp->start.offset, PREFIX_HEX);
3702 fputc ('-', stdout);
3703 print_vma (tp->end.offset, PREFIX_HEX);
3704 printf ("), info at +0x%lx\n",
3705 (unsigned long) (tp->info.offset - aux->seg_base));
3707 head = aux->info + (tp->info.offset - aux->info_addr);
3708 stamp = BYTE_GET8 ((unsigned char *) head);
3710 printf (" v%u, flags=0x%lx (%s%s ), len=%lu bytes\n",
3711 (unsigned) UNW_VER (stamp),
3712 (unsigned long) ((stamp & UNW_FLAG_MASK) >> 32),
3713 UNW_FLAG_EHANDLER (stamp) ? " ehandler" : "",
3714 UNW_FLAG_UHANDLER (stamp) ? " uhandler" : "",
3715 (unsigned long) (addr_size * UNW_LENGTH (stamp)));
3717 if (UNW_VER (stamp) != 1)
3719 printf ("\tUnknown version.\n");
3720 continue;
3723 in_body = 0;
3724 for (dp = head + 8; dp < head + 8 + addr_size * UNW_LENGTH (stamp);)
3725 dp = unw_decode (dp, in_body, & in_body);
3729 static int
3730 slurp_ia64_unwind_table (file, aux, sec)
3731 FILE *file;
3732 struct unw_aux_info *aux;
3733 Elf32_Internal_Shdr *sec;
3735 unsigned long size, addr_size, nrelas, i;
3736 Elf_Internal_Phdr *prog_hdrs, *seg;
3737 struct unw_table_entry *tep;
3738 Elf32_Internal_Shdr *relsec;
3739 Elf_Internal_Rela *rela, *rp;
3740 unsigned char *table, *tp;
3741 Elf_Internal_Sym *sym;
3742 const char *relname;
3743 int result;
3745 addr_size = is_32bit_elf ? 4 : 8;
3747 /* First, find the starting address of the segment that includes
3748 this section: */
3750 if (elf_header.e_phnum)
3752 prog_hdrs = (Elf_Internal_Phdr *)
3753 xmalloc (elf_header.e_phnum * sizeof (Elf_Internal_Phdr));
3755 if (is_32bit_elf)
3756 result = get_32bit_program_headers (file, prog_hdrs);
3757 else
3758 result = get_64bit_program_headers (file, prog_hdrs);
3760 if (!result)
3762 free (prog_hdrs);
3763 return 0;
3766 for (seg = prog_hdrs; seg < prog_hdrs + elf_header.e_phnum; ++seg)
3768 if (seg->p_type != PT_LOAD)
3769 continue;
3771 if (sec->sh_addr >= seg->p_vaddr
3772 && (sec->sh_addr + sec->sh_size <= seg->p_vaddr + seg->p_memsz))
3774 aux->seg_base = seg->p_vaddr;
3775 break;
3779 free (prog_hdrs);
3782 /* Second, build the unwind table from the contents of the unwind section: */
3783 size = sec->sh_size;
3784 table = (char *) get_data (NULL, file, sec->sh_offset,
3785 size, _("unwind table"));
3786 if (!table)
3787 return 0;
3789 tep = aux->table = xmalloc (size / (3 * addr_size) * sizeof (aux->table[0]));
3790 for (tp = table; tp < table + size; tp += 3 * addr_size, ++ tep)
3792 tep->start.section = SHN_UNDEF;
3793 tep->end.section = SHN_UNDEF;
3794 tep->info.section = SHN_UNDEF;
3795 if (is_32bit_elf)
3797 tep->start.offset = byte_get ((unsigned char *) tp + 0, 4);
3798 tep->end.offset = byte_get ((unsigned char *) tp + 4, 4);
3799 tep->info.offset = byte_get ((unsigned char *) tp + 8, 4);
3801 else
3803 tep->start.offset = BYTE_GET8 ((unsigned char *) tp + 0);
3804 tep->end.offset = BYTE_GET8 ((unsigned char *) tp + 8);
3805 tep->info.offset = BYTE_GET8 ((unsigned char *) tp + 16);
3807 tep->start.offset += aux->seg_base;
3808 tep->end.offset += aux->seg_base;
3809 tep->info.offset += aux->seg_base;
3811 free (table);
3813 /* Third, apply any relocations to the unwind table: */
3815 for (relsec = section_headers;
3816 relsec < section_headers + elf_header.e_shnum;
3817 ++relsec)
3819 if (relsec->sh_type != SHT_RELA
3820 || SECTION_HEADER (relsec->sh_info) != sec)
3821 continue;
3823 if (!slurp_rela_relocs (file, relsec->sh_offset, relsec->sh_size,
3824 & rela, & nrelas))
3825 return 0;
3827 for (rp = rela; rp < rela + nrelas; ++rp)
3829 if (is_32bit_elf)
3831 relname = elf_ia64_reloc_type (ELF32_R_TYPE (rp->r_info));
3832 sym = aux->symtab + ELF32_R_SYM (rp->r_info);
3834 if (ELF32_ST_TYPE (sym->st_info) != STT_SECTION)
3836 warn (_("Skipping unexpected symbol type %u\n"),
3837 ELF32_ST_TYPE (sym->st_info));
3838 continue;
3841 else
3843 relname = elf_ia64_reloc_type (ELF64_R_TYPE (rp->r_info));
3844 sym = aux->symtab + ELF64_R_SYM (rp->r_info);
3846 if (ELF64_ST_TYPE (sym->st_info) != STT_SECTION)
3848 warn (_("Skipping unexpected symbol type %u\n"),
3849 ELF64_ST_TYPE (sym->st_info));
3850 continue;
3854 if (strncmp (relname, "R_IA64_SEGREL", 13) != 0)
3856 warn (_("Skipping unexpected relocation type %s\n"), relname);
3857 continue;
3860 i = rp->r_offset / (3 * addr_size);
3862 switch (rp->r_offset/addr_size % 3)
3864 case 0:
3865 aux->table[i].start.section = sym->st_shndx;
3866 aux->table[i].start.offset += rp->r_addend;
3867 break;
3868 case 1:
3869 aux->table[i].end.section = sym->st_shndx;
3870 aux->table[i].end.offset += rp->r_addend;
3871 break;
3872 case 2:
3873 aux->table[i].info.section = sym->st_shndx;
3874 aux->table[i].info.offset += rp->r_addend;
3875 break;
3876 default:
3877 break;
3881 free (rela);
3884 aux->table_len = size / (3 * addr_size);
3885 return 1;
3888 static int
3889 process_unwind (file)
3890 FILE * file;
3892 Elf32_Internal_Shdr *sec, *unwsec = NULL, *strsec;
3893 unsigned long i, addr_size, unwcount = 0, unwstart = 0;
3894 struct unw_aux_info aux;
3896 if (!do_unwind)
3897 return 1;
3899 if (elf_header.e_machine != EM_IA_64)
3901 printf (_("\nThere are no unwind sections in this file.\n"));
3902 return 1;
3905 memset (& aux, 0, sizeof (aux));
3907 addr_size = is_32bit_elf ? 4 : 8;
3909 for (i = 0, sec = section_headers; i < elf_header.e_shnum; ++i, ++sec)
3911 if (sec->sh_type == SHT_SYMTAB)
3913 aux.nsyms = sec->sh_size / sec->sh_entsize;
3914 aux.symtab = GET_ELF_SYMBOLS (file, sec);
3916 strsec = SECTION_HEADER (sec->sh_link);
3917 aux.strtab_size = strsec->sh_size;
3918 aux.strtab = (char *) get_data (NULL, file, strsec->sh_offset,
3919 aux.strtab_size, _("string table"));
3921 else if (sec->sh_type == SHT_IA_64_UNWIND)
3922 unwcount++;
3925 if (!unwcount)
3926 printf (_("\nThere are no unwind sections in this file.\n"));
3928 while (unwcount-- > 0)
3930 char *suffix;
3931 size_t len, len2;
3933 for (i = unwstart, sec = section_headers + unwstart;
3934 i < elf_header.e_shnum; ++i, ++sec)
3935 if (sec->sh_type == SHT_IA_64_UNWIND)
3937 unwsec = sec;
3938 break;
3941 unwstart = i + 1;
3942 len = sizeof (ELF_STRING_ia64_unwind_once) - 1;
3944 if (strncmp (SECTION_NAME (unwsec), ELF_STRING_ia64_unwind_once,
3945 len) == 0)
3947 /* .gnu.linkonce.ia64unw.FOO -> .gnu.linkonce.ia64unwi.FOO */
3948 len2 = sizeof (ELF_STRING_ia64_unwind_info_once) - 1;
3949 suffix = SECTION_NAME (unwsec) + len;
3950 for (i = 0, sec = section_headers; i < elf_header.e_shnum;
3951 ++i, ++sec)
3952 if (strncmp (SECTION_NAME (sec),
3953 ELF_STRING_ia64_unwind_info_once, len2) == 0
3954 && strcmp (SECTION_NAME (sec) + len2, suffix) == 0)
3955 break;
3957 else
3959 /* .IA_64.unwindFOO -> .IA_64.unwind_infoFOO
3960 .IA_64.unwind or BAR -> .IA_64.unwind_info */
3961 len = sizeof (ELF_STRING_ia64_unwind) - 1;
3962 len2 = sizeof (ELF_STRING_ia64_unwind_info) - 1;
3963 suffix = "";
3964 if (strncmp (SECTION_NAME (unwsec), ELF_STRING_ia64_unwind,
3965 len) == 0)
3966 suffix = SECTION_NAME (unwsec) + len;
3967 for (i = 0, sec = section_headers; i < elf_header.e_shnum;
3968 ++i, ++sec)
3969 if (strncmp (SECTION_NAME (sec),
3970 ELF_STRING_ia64_unwind_info, len2) == 0
3971 && strcmp (SECTION_NAME (sec) + len2, suffix) == 0)
3972 break;
3975 if (i == elf_header.e_shnum)
3977 printf (_("\nCould not find unwind info section for "));
3979 if (string_table == NULL)
3980 printf ("%d", unwsec->sh_name);
3981 else
3982 printf ("'%s'", SECTION_NAME (unwsec));
3984 else
3986 aux.info_size = sec->sh_size;
3987 aux.info_addr = sec->sh_addr;
3988 aux.info = (char *) get_data (NULL, file, sec->sh_offset,
3989 aux.info_size, _("unwind info"));
3991 printf (_("\nUnwind section "));
3993 if (string_table == NULL)
3994 printf ("%d", unwsec->sh_name);
3995 else
3996 printf ("'%s'", SECTION_NAME (unwsec));
3998 printf (_(" at offset 0x%lx contains %lu entries:\n"),
3999 (unsigned long) unwsec->sh_offset,
4000 (unsigned long) (unwsec->sh_size / (3 * addr_size)));
4002 (void) slurp_ia64_unwind_table (file, & aux, unwsec);
4004 if (aux.table_len > 0)
4005 dump_ia64_unwind (& aux);
4007 if (aux.table)
4008 free ((char *) aux.table);
4009 if (aux.info)
4010 free ((char *) aux.info);
4011 aux.table = NULL;
4012 aux.info = NULL;
4016 if (aux.symtab)
4017 free (aux.symtab);
4018 if (aux.strtab)
4019 free ((char *) aux.strtab);
4021 return 1;
4024 static void
4025 dynamic_segment_mips_val (entry)
4026 Elf_Internal_Dyn * entry;
4028 switch (entry->d_tag)
4030 case DT_MIPS_FLAGS:
4031 if (entry->d_un.d_val == 0)
4032 printf ("NONE\n");
4033 else
4035 static const char * opts[] =
4037 "QUICKSTART", "NOTPOT", "NO_LIBRARY_REPLACEMENT",
4038 "NO_MOVE", "SGI_ONLY", "GUARANTEE_INIT", "DELTA_C_PLUS_PLUS",
4039 "GUARANTEE_START_INIT", "PIXIE", "DEFAULT_DELAY_LOAD",
4040 "REQUICKSTART", "REQUICKSTARTED", "CORD", "NO_UNRES_UNDEF",
4041 "RLD_ORDER_SAFE"
4043 unsigned int cnt;
4044 int first = 1;
4045 for (cnt = 0; cnt < NUM_ELEM (opts); ++ cnt)
4046 if (entry->d_un.d_val & (1 << cnt))
4048 printf ("%s%s", first ? "" : " ", opts[cnt]);
4049 first = 0;
4051 puts ("");
4053 break;
4055 case DT_MIPS_IVERSION:
4056 if (dynamic_strings != NULL)
4057 printf ("Interface Version: %s\n",
4058 dynamic_strings + entry->d_un.d_val);
4059 else
4060 printf ("%ld\n", (long) entry->d_un.d_ptr);
4061 break;
4063 case DT_MIPS_TIME_STAMP:
4065 char timebuf[20];
4066 struct tm * tmp;
4068 time_t time = entry->d_un.d_val;
4069 tmp = gmtime (&time);
4070 sprintf (timebuf, "%04u-%02u-%02uT%02u:%02u:%02u",
4071 tmp->tm_year + 1900, tmp->tm_mon + 1, tmp->tm_mday,
4072 tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
4073 printf ("Time Stamp: %s\n", timebuf);
4075 break;
4077 case DT_MIPS_RLD_VERSION:
4078 case DT_MIPS_LOCAL_GOTNO:
4079 case DT_MIPS_CONFLICTNO:
4080 case DT_MIPS_LIBLISTNO:
4081 case DT_MIPS_SYMTABNO:
4082 case DT_MIPS_UNREFEXTNO:
4083 case DT_MIPS_HIPAGENO:
4084 case DT_MIPS_DELTA_CLASS_NO:
4085 case DT_MIPS_DELTA_INSTANCE_NO:
4086 case DT_MIPS_DELTA_RELOC_NO:
4087 case DT_MIPS_DELTA_SYM_NO:
4088 case DT_MIPS_DELTA_CLASSSYM_NO:
4089 case DT_MIPS_COMPACT_SIZE:
4090 printf ("%ld\n", (long) entry->d_un.d_ptr);
4091 break;
4093 default:
4094 printf ("%#lx\n", (long) entry->d_un.d_ptr);
4099 static void
4100 dynamic_segment_parisc_val (entry)
4101 Elf_Internal_Dyn * entry;
4103 switch (entry->d_tag)
4105 case DT_HP_DLD_FLAGS:
4107 static struct
4109 long int bit;
4110 const char * str;
4112 flags[] =
4114 { DT_HP_DEBUG_PRIVATE, "HP_DEBUG_PRIVATE" },
4115 { DT_HP_DEBUG_CALLBACK, "HP_DEBUG_CALLBACK" },
4116 { DT_HP_DEBUG_CALLBACK_BOR, "HP_DEBUG_CALLBACK_BOR" },
4117 { DT_HP_NO_ENVVAR, "HP_NO_ENVVAR" },
4118 { DT_HP_BIND_NOW, "HP_BIND_NOW" },
4119 { DT_HP_BIND_NONFATAL, "HP_BIND_NONFATAL" },
4120 { DT_HP_BIND_VERBOSE, "HP_BIND_VERBOSE" },
4121 { DT_HP_BIND_RESTRICTED, "HP_BIND_RESTRICTED" },
4122 { DT_HP_BIND_SYMBOLIC, "HP_BIND_SYMBOLIC" },
4123 { DT_HP_RPATH_FIRST, "HP_RPATH_FIRST" },
4124 { DT_HP_BIND_DEPTH_FIRST, "HP_BIND_DEPTH_FIRST" }
4126 int first = 1;
4127 size_t cnt;
4128 bfd_vma val = entry->d_un.d_val;
4130 for (cnt = 0; cnt < sizeof (flags) / sizeof (flags[0]); ++cnt)
4131 if (val & flags[cnt].bit)
4133 if (! first)
4134 putchar (' ');
4135 fputs (flags[cnt].str, stdout);
4136 first = 0;
4137 val ^= flags[cnt].bit;
4140 if (val != 0 || first)
4142 if (! first)
4143 putchar (' ');
4144 print_vma (val, HEX);
4147 break;
4149 default:
4150 print_vma (entry->d_un.d_ptr, PREFIX_HEX);
4151 break;
4155 static int
4156 get_32bit_dynamic_segment (file)
4157 FILE * file;
4159 Elf32_External_Dyn * edyn;
4160 Elf_Internal_Dyn * entry;
4161 bfd_size_type i;
4163 edyn = (Elf32_External_Dyn *) get_data (NULL, file, dynamic_addr,
4164 dynamic_size, _("dynamic segment"));
4165 if (!edyn)
4166 return 0;
4168 /* SGI's ELF has more than one section in the DYNAMIC segment. Determine
4169 how large this .dynamic is now. We can do this even before the byte
4170 swapping since the DT_NULL tag is recognizable. */
4171 dynamic_size = 0;
4172 while (*(Elf32_Word *) edyn [dynamic_size++].d_tag != DT_NULL)
4175 dynamic_segment = (Elf_Internal_Dyn *)
4176 malloc (dynamic_size * sizeof (Elf_Internal_Dyn));
4178 if (dynamic_segment == NULL)
4180 error (_("Out of memory\n"));
4181 free (edyn);
4182 return 0;
4185 for (i = 0, entry = dynamic_segment;
4186 i < dynamic_size;
4187 i ++, entry ++)
4189 entry->d_tag = BYTE_GET (edyn [i].d_tag);
4190 entry->d_un.d_val = BYTE_GET (edyn [i].d_un.d_val);
4193 free (edyn);
4195 return 1;
4198 static int
4199 get_64bit_dynamic_segment (file)
4200 FILE * file;
4202 Elf64_External_Dyn * edyn;
4203 Elf_Internal_Dyn * entry;
4204 bfd_size_type i;
4206 edyn = (Elf64_External_Dyn *) get_data (NULL, file, dynamic_addr,
4207 dynamic_size, _("dynamic segment"));
4208 if (!edyn)
4209 return 0;
4211 /* SGI's ELF has more than one section in the DYNAMIC segment. Determine
4212 how large this .dynamic is now. We can do this even before the byte
4213 swapping since the DT_NULL tag is recognizable. */
4214 dynamic_size = 0;
4215 while (*(bfd_vma *) edyn [dynamic_size ++].d_tag != DT_NULL)
4218 dynamic_segment = (Elf_Internal_Dyn *)
4219 malloc (dynamic_size * sizeof (Elf_Internal_Dyn));
4221 if (dynamic_segment == NULL)
4223 error (_("Out of memory\n"));
4224 free (edyn);
4225 return 0;
4228 for (i = 0, entry = dynamic_segment;
4229 i < dynamic_size;
4230 i ++, entry ++)
4232 entry->d_tag = BYTE_GET8 (edyn [i].d_tag);
4233 entry->d_un.d_val = BYTE_GET8 (edyn [i].d_un.d_val);
4236 free (edyn);
4238 return 1;
4241 static const char *
4242 get_dynamic_flags (flags)
4243 bfd_vma flags;
4245 static char buff [64];
4246 while (flags)
4248 bfd_vma flag;
4250 flag = flags & - flags;
4251 flags &= ~ flag;
4253 switch (flag)
4255 case DF_ORIGIN: strcat (buff, "ORIGIN "); break;
4256 case DF_SYMBOLIC: strcat (buff, "SYMBOLIC "); break;
4257 case DF_TEXTREL: strcat (buff, "TEXTREL "); break;
4258 case DF_BIND_NOW: strcat (buff, "BIND_NOW "); break;
4259 default: strcat (buff, "unknown "); break;
4262 return buff;
4265 /* Parse and display the contents of the dynamic segment. */
4266 static int
4267 process_dynamic_segment (file)
4268 FILE * file;
4270 Elf_Internal_Dyn * entry;
4271 bfd_size_type i;
4273 if (dynamic_size == 0)
4275 if (do_dynamic)
4276 printf (_("\nThere is no dynamic segment in this file.\n"));
4278 return 1;
4281 if (is_32bit_elf)
4283 if (! get_32bit_dynamic_segment (file))
4284 return 0;
4286 else if (! get_64bit_dynamic_segment (file))
4287 return 0;
4289 /* Find the appropriate symbol table. */
4290 if (dynamic_symbols == NULL)
4292 for (i = 0, entry = dynamic_segment;
4293 i < dynamic_size;
4294 ++i, ++ entry)
4296 Elf32_Internal_Shdr section;
4298 if (entry->d_tag != DT_SYMTAB)
4299 continue;
4301 dynamic_info[DT_SYMTAB] = entry->d_un.d_val;
4303 /* Since we do not know how big the symbol table is,
4304 we default to reading in the entire file (!) and
4305 processing that. This is overkill, I know, but it
4306 should work. */
4307 section.sh_offset = entry->d_un.d_val - loadaddr;
4309 if (fseek (file, 0, SEEK_END))
4310 error (_("Unable to seek to end of file!"));
4312 section.sh_size = ftell (file) - section.sh_offset;
4313 if (is_32bit_elf)
4314 section.sh_entsize = sizeof (Elf32_External_Sym);
4315 else
4316 section.sh_entsize = sizeof (Elf64_External_Sym);
4318 num_dynamic_syms = section.sh_size / section.sh_entsize;
4319 if (num_dynamic_syms < 1)
4321 error (_("Unable to determine the number of symbols to load\n"));
4322 continue;
4325 dynamic_symbols = GET_ELF_SYMBOLS (file, &section);
4329 /* Similarly find a string table. */
4330 if (dynamic_strings == NULL)
4332 for (i = 0, entry = dynamic_segment;
4333 i < dynamic_size;
4334 ++i, ++ entry)
4336 unsigned long offset;
4337 long str_tab_len;
4339 if (entry->d_tag != DT_STRTAB)
4340 continue;
4342 dynamic_info[DT_STRTAB] = entry->d_un.d_val;
4344 /* Since we do not know how big the string table is,
4345 we default to reading in the entire file (!) and
4346 processing that. This is overkill, I know, but it
4347 should work. */
4349 offset = entry->d_un.d_val - loadaddr;
4350 if (fseek (file, 0, SEEK_END))
4351 error (_("Unable to seek to end of file\n"));
4352 str_tab_len = ftell (file) - offset;
4354 if (str_tab_len < 1)
4356 error
4357 (_("Unable to determine the length of the dynamic string table\n"));
4358 continue;
4361 dynamic_strings = (char *) get_data (NULL, file, offset, str_tab_len,
4362 _("dynamic string table"));
4363 break;
4367 /* And find the syminfo section if available. */
4368 if (dynamic_syminfo == NULL)
4370 unsigned int syminsz = 0;
4372 for (i = 0, entry = dynamic_segment;
4373 i < dynamic_size;
4374 ++i, ++ entry)
4376 if (entry->d_tag == DT_SYMINENT)
4378 /* Note: these braces are necessary to avoid a syntax
4379 error from the SunOS4 C compiler. */
4380 assert (sizeof (Elf_External_Syminfo) == entry->d_un.d_val);
4382 else if (entry->d_tag == DT_SYMINSZ)
4383 syminsz = entry->d_un.d_val;
4384 else if (entry->d_tag == DT_SYMINFO)
4385 dynamic_syminfo_offset = entry->d_un.d_val - loadaddr;
4388 if (dynamic_syminfo_offset != 0 && syminsz != 0)
4390 Elf_External_Syminfo * extsyminfo;
4391 Elf_Internal_Syminfo * syminfo;
4393 /* There is a syminfo section. Read the data. */
4394 extsyminfo = ((Elf_External_Syminfo *)
4395 get_data (NULL, file, dynamic_syminfo_offset,
4396 syminsz, _("symbol information")));
4397 if (!extsyminfo)
4398 return 0;
4400 dynamic_syminfo = (Elf_Internal_Syminfo *) malloc (syminsz);
4401 if (dynamic_syminfo == NULL)
4403 error (_("Out of memory\n"));
4404 return 0;
4407 dynamic_syminfo_nent = syminsz / sizeof (Elf_External_Syminfo);
4408 for (i = 0, syminfo = dynamic_syminfo; i < dynamic_syminfo_nent;
4409 ++i, ++syminfo)
4411 syminfo->si_boundto = BYTE_GET (extsyminfo[i].si_boundto);
4412 syminfo->si_flags = BYTE_GET (extsyminfo[i].si_flags);
4415 free (extsyminfo);
4419 if (do_dynamic && dynamic_addr)
4420 printf (_("\nDynamic segment at offset 0x%x contains %ld entries:\n"),
4421 dynamic_addr, (long) dynamic_size);
4422 if (do_dynamic)
4423 printf (_(" Tag Type Name/Value\n"));
4425 for (i = 0, entry = dynamic_segment;
4426 i < dynamic_size;
4427 i++, entry ++)
4429 if (do_dynamic)
4431 const char * dtype;
4433 putchar (' ');
4434 print_vma (entry->d_tag, FULL_HEX);
4435 dtype = get_dynamic_type (entry->d_tag);
4436 printf (" (%s)%*s", dtype,
4437 ((is_32bit_elf ? 27 : 19)
4438 - (int) strlen (dtype)),
4439 " ");
4442 switch (entry->d_tag)
4444 case DT_FLAGS:
4445 if (do_dynamic)
4446 printf ("%s", get_dynamic_flags (entry->d_un.d_val));
4447 break;
4449 case DT_AUXILIARY:
4450 case DT_FILTER:
4451 case DT_CONFIG:
4452 case DT_DEPAUDIT:
4453 case DT_AUDIT:
4454 if (do_dynamic)
4456 switch (entry->d_tag)
4458 case DT_AUXILIARY:
4459 printf (_("Auxiliary library"));
4460 break;
4462 case DT_FILTER:
4463 printf (_("Filter library"));
4464 break;
4466 case DT_CONFIG:
4467 printf (_("Configuration file"));
4468 break;
4470 case DT_DEPAUDIT:
4471 printf (_("Dependency audit library"));
4472 break;
4474 case DT_AUDIT:
4475 printf (_("Audit library"));
4476 break;
4479 if (dynamic_strings)
4480 printf (": [%s]\n", dynamic_strings + entry->d_un.d_val);
4481 else
4483 printf (": ");
4484 print_vma (entry->d_un.d_val, PREFIX_HEX);
4485 putchar ('\n');
4488 break;
4490 case DT_FEATURE:
4491 if (do_dynamic)
4493 printf (_("Flags:"));
4494 if (entry->d_un.d_val == 0)
4495 printf (_(" None\n"));
4496 else
4498 unsigned long int val = entry->d_un.d_val;
4499 if (val & DTF_1_PARINIT)
4501 printf (" PARINIT");
4502 val ^= DTF_1_PARINIT;
4504 if (val & DTF_1_CONFEXP)
4506 printf (" CONFEXP");
4507 val ^= DTF_1_CONFEXP;
4509 if (val != 0)
4510 printf (" %lx", val);
4511 puts ("");
4514 break;
4516 case DT_POSFLAG_1:
4517 if (do_dynamic)
4519 printf (_("Flags:"));
4520 if (entry->d_un.d_val == 0)
4521 printf (_(" None\n"));
4522 else
4524 unsigned long int val = entry->d_un.d_val;
4525 if (val & DF_P1_LAZYLOAD)
4527 printf (" LAZYLOAD");
4528 val ^= DF_P1_LAZYLOAD;
4530 if (val & DF_P1_GROUPPERM)
4532 printf (" GROUPPERM");
4533 val ^= DF_P1_GROUPPERM;
4535 if (val != 0)
4536 printf (" %lx", val);
4537 puts ("");
4540 break;
4542 case DT_FLAGS_1:
4543 if (do_dynamic)
4545 printf (_("Flags:"));
4546 if (entry->d_un.d_val == 0)
4547 printf (_(" None\n"));
4548 else
4550 unsigned long int val = entry->d_un.d_val;
4551 if (val & DF_1_NOW)
4553 printf (" NOW");
4554 val ^= DF_1_NOW;
4556 if (val & DF_1_GLOBAL)
4558 printf (" GLOBAL");
4559 val ^= DF_1_GLOBAL;
4561 if (val & DF_1_GROUP)
4563 printf (" GROUP");
4564 val ^= DF_1_GROUP;
4566 if (val & DF_1_NODELETE)
4568 printf (" NODELETE");
4569 val ^= DF_1_NODELETE;
4571 if (val & DF_1_LOADFLTR)
4573 printf (" LOADFLTR");
4574 val ^= DF_1_LOADFLTR;
4576 if (val & DF_1_INITFIRST)
4578 printf (" INITFIRST");
4579 val ^= DF_1_INITFIRST;
4581 if (val & DF_1_NOOPEN)
4583 printf (" NOOPEN");
4584 val ^= DF_1_NOOPEN;
4586 if (val & DF_1_ORIGIN)
4588 printf (" ORIGIN");
4589 val ^= DF_1_ORIGIN;
4591 if (val & DF_1_DIRECT)
4593 printf (" DIRECT");
4594 val ^= DF_1_DIRECT;
4596 if (val & DF_1_TRANS)
4598 printf (" TRANS");
4599 val ^= DF_1_TRANS;
4601 if (val & DF_1_INTERPOSE)
4603 printf (" INTERPOSE");
4604 val ^= DF_1_INTERPOSE;
4606 if (val & DF_1_NODEFLIB)
4608 printf (" NODEFLIB");
4609 val ^= DF_1_NODEFLIB;
4611 if (val & DF_1_NODUMP)
4613 printf (" NODUMP");
4614 val ^= DF_1_NODUMP;
4616 if (val & DF_1_CONLFAT)
4618 printf (" CONLFAT");
4619 val ^= DF_1_CONLFAT;
4621 if (val != 0)
4622 printf (" %lx", val);
4623 puts ("");
4626 break;
4628 case DT_PLTREL:
4629 if (do_dynamic)
4630 puts (get_dynamic_type (entry->d_un.d_val));
4631 break;
4633 case DT_NULL :
4634 case DT_NEEDED :
4635 case DT_PLTGOT :
4636 case DT_HASH :
4637 case DT_STRTAB :
4638 case DT_SYMTAB :
4639 case DT_RELA :
4640 case DT_INIT :
4641 case DT_FINI :
4642 case DT_SONAME :
4643 case DT_RPATH :
4644 case DT_SYMBOLIC:
4645 case DT_REL :
4646 case DT_DEBUG :
4647 case DT_TEXTREL :
4648 case DT_JMPREL :
4649 case DT_RUNPATH :
4650 dynamic_info[entry->d_tag] = entry->d_un.d_val;
4652 if (do_dynamic)
4654 char * name;
4656 if (dynamic_strings == NULL)
4657 name = NULL;
4658 else
4659 name = dynamic_strings + entry->d_un.d_val;
4661 if (name)
4663 switch (entry->d_tag)
4665 case DT_NEEDED:
4666 printf (_("Shared library: [%s]"), name);
4668 if (strcmp (name, program_interpreter) == 0)
4669 printf (_(" program interpreter"));
4670 break;
4672 case DT_SONAME:
4673 printf (_("Library soname: [%s]"), name);
4674 break;
4676 case DT_RPATH:
4677 printf (_("Library rpath: [%s]"), name);
4678 break;
4680 case DT_RUNPATH:
4681 printf (_("Library runpath: [%s]"), name);
4682 break;
4684 default:
4685 print_vma (entry->d_un.d_val, PREFIX_HEX);
4686 break;
4689 else
4690 print_vma (entry->d_un.d_val, PREFIX_HEX);
4692 putchar ('\n');
4694 break;
4696 case DT_PLTRELSZ:
4697 case DT_RELASZ :
4698 case DT_STRSZ :
4699 case DT_RELSZ :
4700 case DT_RELAENT :
4701 case DT_SYMENT :
4702 case DT_RELENT :
4703 case DT_PLTPADSZ:
4704 case DT_MOVEENT :
4705 case DT_MOVESZ :
4706 case DT_INIT_ARRAYSZ:
4707 case DT_FINI_ARRAYSZ:
4708 if (do_dynamic)
4710 print_vma (entry->d_un.d_val, UNSIGNED);
4711 printf (" (bytes)\n");
4713 break;
4715 case DT_VERDEFNUM:
4716 case DT_VERNEEDNUM:
4717 case DT_RELACOUNT:
4718 case DT_RELCOUNT:
4719 if (do_dynamic)
4721 print_vma (entry->d_un.d_val, UNSIGNED);
4722 putchar ('\n');
4724 break;
4726 case DT_SYMINSZ:
4727 case DT_SYMINENT:
4728 case DT_SYMINFO:
4729 case DT_USED:
4730 case DT_INIT_ARRAY:
4731 case DT_FINI_ARRAY:
4732 if (do_dynamic)
4734 if (dynamic_strings != NULL && entry->d_tag == DT_USED)
4736 char * name;
4738 name = dynamic_strings + entry->d_un.d_val;
4740 if (* name)
4742 printf (_("Not needed object: [%s]\n"), name);
4743 break;
4747 print_vma (entry->d_un.d_val, PREFIX_HEX);
4748 putchar ('\n');
4750 break;
4752 case DT_BIND_NOW:
4753 /* The value of this entry is ignored. */
4754 break;
4756 default:
4757 if ((entry->d_tag >= DT_VERSYM) && (entry->d_tag <= DT_VERNEEDNUM))
4758 version_info [DT_VERSIONTAGIDX (entry->d_tag)] =
4759 entry->d_un.d_val;
4761 if (do_dynamic)
4763 switch (elf_header.e_machine)
4765 case EM_MIPS:
4766 case EM_MIPS_RS3_LE:
4767 dynamic_segment_mips_val (entry);
4768 break;
4769 case EM_PARISC:
4770 dynamic_segment_parisc_val (entry);
4771 break;
4772 default:
4773 print_vma (entry->d_un.d_val, PREFIX_HEX);
4774 putchar ('\n');
4777 break;
4781 return 1;
4784 static char *
4785 get_ver_flags (flags)
4786 unsigned int flags;
4788 static char buff [32];
4790 buff[0] = 0;
4792 if (flags == 0)
4793 return _("none");
4795 if (flags & VER_FLG_BASE)
4796 strcat (buff, "BASE ");
4798 if (flags & VER_FLG_WEAK)
4800 if (flags & VER_FLG_BASE)
4801 strcat (buff, "| ");
4803 strcat (buff, "WEAK ");
4806 if (flags & ~(VER_FLG_BASE | VER_FLG_WEAK))
4807 strcat (buff, "| <unknown>");
4809 return buff;
4812 /* Display the contents of the version sections. */
4813 static int
4814 process_version_sections (file)
4815 FILE * file;
4817 Elf32_Internal_Shdr * section;
4818 unsigned i;
4819 int found = 0;
4821 if (! do_version)
4822 return 1;
4824 for (i = 0, section = section_headers;
4825 i < elf_header.e_shnum;
4826 i++, section ++)
4828 switch (section->sh_type)
4830 case SHT_GNU_verdef:
4832 Elf_External_Verdef * edefs;
4833 unsigned int idx;
4834 unsigned int cnt;
4836 found = 1;
4838 printf
4839 (_("\nVersion definition section '%s' contains %ld entries:\n"),
4840 SECTION_NAME (section), section->sh_info);
4842 printf (_(" Addr: 0x"));
4843 printf_vma (section->sh_addr);
4844 printf (_(" Offset: %#08lx Link: %lx (%s)\n"),
4845 (unsigned long) section->sh_offset, section->sh_link,
4846 SECTION_NAME (SECTION_HEADER (section->sh_link)));
4848 edefs = ((Elf_External_Verdef *)
4849 get_data (NULL, file, section->sh_offset,
4850 section->sh_size,
4851 _("version definition section")));
4852 if (!edefs)
4853 break;
4855 for (idx = cnt = 0; cnt < section->sh_info; ++ cnt)
4857 char * vstart;
4858 Elf_External_Verdef * edef;
4859 Elf_Internal_Verdef ent;
4860 Elf_External_Verdaux * eaux;
4861 Elf_Internal_Verdaux aux;
4862 int j;
4863 int isum;
4865 vstart = ((char *) edefs) + idx;
4867 edef = (Elf_External_Verdef *) vstart;
4869 ent.vd_version = BYTE_GET (edef->vd_version);
4870 ent.vd_flags = BYTE_GET (edef->vd_flags);
4871 ent.vd_ndx = BYTE_GET (edef->vd_ndx);
4872 ent.vd_cnt = BYTE_GET (edef->vd_cnt);
4873 ent.vd_hash = BYTE_GET (edef->vd_hash);
4874 ent.vd_aux = BYTE_GET (edef->vd_aux);
4875 ent.vd_next = BYTE_GET (edef->vd_next);
4877 printf (_(" %#06x: Rev: %d Flags: %s"),
4878 idx, ent.vd_version, get_ver_flags (ent.vd_flags));
4880 printf (_(" Index: %d Cnt: %d "),
4881 ent.vd_ndx, ent.vd_cnt);
4883 vstart += ent.vd_aux;
4885 eaux = (Elf_External_Verdaux *) vstart;
4887 aux.vda_name = BYTE_GET (eaux->vda_name);
4888 aux.vda_next = BYTE_GET (eaux->vda_next);
4890 if (dynamic_strings)
4891 printf (_("Name: %s\n"), dynamic_strings + aux.vda_name);
4892 else
4893 printf (_("Name index: %ld\n"), aux.vda_name);
4895 isum = idx + ent.vd_aux;
4897 for (j = 1; j < ent.vd_cnt; j ++)
4899 isum += aux.vda_next;
4900 vstart += aux.vda_next;
4902 eaux = (Elf_External_Verdaux *) vstart;
4904 aux.vda_name = BYTE_GET (eaux->vda_name);
4905 aux.vda_next = BYTE_GET (eaux->vda_next);
4907 if (dynamic_strings)
4908 printf (_(" %#06x: Parent %d: %s\n"),
4909 isum, j, dynamic_strings + aux.vda_name);
4910 else
4911 printf (_(" %#06x: Parent %d, name index: %ld\n"),
4912 isum, j, aux.vda_name);
4915 idx += ent.vd_next;
4918 free (edefs);
4920 break;
4922 case SHT_GNU_verneed:
4924 Elf_External_Verneed * eneed;
4925 unsigned int idx;
4926 unsigned int cnt;
4928 found = 1;
4930 printf (_("\nVersion needs section '%s' contains %ld entries:\n"),
4931 SECTION_NAME (section), section->sh_info);
4933 printf (_(" Addr: 0x"));
4934 printf_vma (section->sh_addr);
4935 printf (_(" Offset: %#08lx Link to section: %ld (%s)\n"),
4936 (unsigned long) section->sh_offset, section->sh_link,
4937 SECTION_NAME (SECTION_HEADER (section->sh_link)));
4939 eneed = ((Elf_External_Verneed *)
4940 get_data (NULL, file, section->sh_offset,
4941 section->sh_size, _("version need section")));
4942 if (!eneed)
4943 break;
4945 for (idx = cnt = 0; cnt < section->sh_info; ++cnt)
4947 Elf_External_Verneed * entry;
4948 Elf_Internal_Verneed ent;
4949 int j;
4950 int isum;
4951 char * vstart;
4953 vstart = ((char *) eneed) + idx;
4955 entry = (Elf_External_Verneed *) vstart;
4957 ent.vn_version = BYTE_GET (entry->vn_version);
4958 ent.vn_cnt = BYTE_GET (entry->vn_cnt);
4959 ent.vn_file = BYTE_GET (entry->vn_file);
4960 ent.vn_aux = BYTE_GET (entry->vn_aux);
4961 ent.vn_next = BYTE_GET (entry->vn_next);
4963 printf (_(" %#06x: Version: %d"), idx, ent.vn_version);
4965 if (dynamic_strings)
4966 printf (_(" File: %s"), dynamic_strings + ent.vn_file);
4967 else
4968 printf (_(" File: %lx"), ent.vn_file);
4970 printf (_(" Cnt: %d\n"), ent.vn_cnt);
4972 vstart += ent.vn_aux;
4974 for (j = 0, isum = idx + ent.vn_aux; j < ent.vn_cnt; ++j)
4976 Elf_External_Vernaux * eaux;
4977 Elf_Internal_Vernaux aux;
4979 eaux = (Elf_External_Vernaux *) vstart;
4981 aux.vna_hash = BYTE_GET (eaux->vna_hash);
4982 aux.vna_flags = BYTE_GET (eaux->vna_flags);
4983 aux.vna_other = BYTE_GET (eaux->vna_other);
4984 aux.vna_name = BYTE_GET (eaux->vna_name);
4985 aux.vna_next = BYTE_GET (eaux->vna_next);
4987 if (dynamic_strings)
4988 printf (_(" %#06x: Name: %s"),
4989 isum, dynamic_strings + aux.vna_name);
4990 else
4991 printf (_(" %#06x: Name index: %lx"),
4992 isum, aux.vna_name);
4994 printf (_(" Flags: %s Version: %d\n"),
4995 get_ver_flags (aux.vna_flags), aux.vna_other);
4997 isum += aux.vna_next;
4998 vstart += aux.vna_next;
5001 idx += ent.vn_next;
5004 free (eneed);
5006 break;
5008 case SHT_GNU_versym:
5010 Elf32_Internal_Shdr * link_section;
5011 int total;
5012 int cnt;
5013 unsigned char * edata;
5014 unsigned short * data;
5015 char * strtab;
5016 Elf_Internal_Sym * symbols;
5017 Elf32_Internal_Shdr * string_sec;
5019 link_section = SECTION_HEADER (section->sh_link);
5020 total = section->sh_size / section->sh_entsize;
5022 found = 1;
5024 symbols = GET_ELF_SYMBOLS (file, link_section);
5026 string_sec = SECTION_HEADER (link_section->sh_link);
5028 strtab = (char *) get_data (NULL, file, string_sec->sh_offset,
5029 string_sec->sh_size,
5030 _("version string table"));
5031 if (!strtab)
5032 break;
5034 printf (_("\nVersion symbols section '%s' contains %d entries:\n"),
5035 SECTION_NAME (section), total);
5037 printf (_(" Addr: "));
5038 printf_vma (section->sh_addr);
5039 printf (_(" Offset: %#08lx Link: %lx (%s)\n"),
5040 (unsigned long) section->sh_offset, section->sh_link,
5041 SECTION_NAME (link_section));
5043 edata =
5044 ((unsigned char *)
5045 get_data (NULL, file,
5046 version_info[DT_VERSIONTAGIDX (DT_VERSYM)] - loadaddr,
5047 total * sizeof (short), _("version symbol data")));
5048 if (!edata)
5050 free (strtab);
5051 break;
5054 data = (unsigned short *) malloc (total * sizeof (short));
5056 for (cnt = total; cnt --;)
5057 data [cnt] = byte_get (edata + cnt * sizeof (short),
5058 sizeof (short));
5060 free (edata);
5062 for (cnt = 0; cnt < total; cnt += 4)
5064 int j, nn;
5065 int check_def, check_need;
5066 char * name;
5068 printf (" %03x:", cnt);
5070 for (j = 0; (j < 4) && (cnt + j) < total; ++j)
5071 switch (data [cnt + j])
5073 case 0:
5074 fputs (_(" 0 (*local*) "), stdout);
5075 break;
5077 case 1:
5078 fputs (_(" 1 (*global*) "), stdout);
5079 break;
5081 default:
5082 nn = printf ("%4x%c", data [cnt + j] & 0x7fff,
5083 data [cnt + j] & 0x8000 ? 'h' : ' ');
5085 check_def = 1;
5086 check_need = 1;
5087 if (SECTION_HEADER (symbols [cnt + j].st_shndx)->sh_type
5088 != SHT_NOBITS)
5090 if (symbols [cnt + j].st_shndx == SHN_UNDEF)
5091 check_def = 0;
5092 else
5093 check_need = 0;
5096 if (check_need
5097 && version_info [DT_VERSIONTAGIDX (DT_VERNEED)])
5099 Elf_Internal_Verneed ivn;
5100 unsigned long offset;
5102 offset = version_info [DT_VERSIONTAGIDX (DT_VERNEED)]
5103 - loadaddr;
5107 Elf_Internal_Vernaux ivna;
5108 Elf_External_Verneed evn;
5109 Elf_External_Vernaux evna;
5110 unsigned long a_off;
5112 get_data (&evn, file, offset, sizeof (evn),
5113 _("version need"));
5115 ivn.vn_aux = BYTE_GET (evn.vn_aux);
5116 ivn.vn_next = BYTE_GET (evn.vn_next);
5118 a_off = offset + ivn.vn_aux;
5122 get_data (&evna, file, a_off, sizeof (evna),
5123 _("version need aux (2)"));
5125 ivna.vna_next = BYTE_GET (evna.vna_next);
5126 ivna.vna_other = BYTE_GET (evna.vna_other);
5128 a_off += ivna.vna_next;
5130 while (ivna.vna_other != data [cnt + j]
5131 && ivna.vna_next != 0);
5133 if (ivna.vna_other == data [cnt + j])
5135 ivna.vna_name = BYTE_GET (evna.vna_name);
5137 name = strtab + ivna.vna_name;
5138 nn += printf ("(%s%-*s",
5139 name,
5140 12 - (int) strlen (name),
5141 ")");
5142 check_def = 0;
5143 break;
5146 offset += ivn.vn_next;
5148 while (ivn.vn_next);
5151 if (check_def && data [cnt + j] != 0x8001
5152 && version_info [DT_VERSIONTAGIDX (DT_VERDEF)])
5154 Elf_Internal_Verdef ivd;
5155 Elf_External_Verdef evd;
5156 unsigned long offset;
5158 offset = version_info
5159 [DT_VERSIONTAGIDX (DT_VERDEF)] - loadaddr;
5163 get_data (&evd, file, offset, sizeof (evd),
5164 _("version def"));
5166 ivd.vd_next = BYTE_GET (evd.vd_next);
5167 ivd.vd_ndx = BYTE_GET (evd.vd_ndx);
5169 offset += ivd.vd_next;
5171 while (ivd.vd_ndx != (data [cnt + j] & 0x7fff)
5172 && ivd.vd_next != 0);
5174 if (ivd.vd_ndx == (data [cnt + j] & 0x7fff))
5176 Elf_External_Verdaux evda;
5177 Elf_Internal_Verdaux ivda;
5179 ivd.vd_aux = BYTE_GET (evd.vd_aux);
5181 get_data (&evda, file,
5182 offset - ivd.vd_next + ivd.vd_aux,
5183 sizeof (evda), _("version def aux"));
5185 ivda.vda_name = BYTE_GET (evda.vda_name);
5187 name = strtab + ivda.vda_name;
5188 nn += printf ("(%s%-*s",
5189 name,
5190 12 - (int) strlen (name),
5191 ")");
5195 if (nn < 18)
5196 printf ("%*c", 18 - nn, ' ');
5199 putchar ('\n');
5202 free (data);
5203 free (strtab);
5204 free (symbols);
5206 break;
5208 default:
5209 break;
5213 if (! found)
5214 printf (_("\nNo version information found in this file.\n"));
5216 return 1;
5219 static const char *
5220 get_symbol_binding (binding)
5221 unsigned int binding;
5223 static char buff [32];
5225 switch (binding)
5227 case STB_LOCAL: return "LOCAL";
5228 case STB_GLOBAL: return "GLOBAL";
5229 case STB_WEAK: return "WEAK";
5230 default:
5231 if (binding >= STB_LOPROC && binding <= STB_HIPROC)
5232 sprintf (buff, _("<processor specific>: %d"), binding);
5233 else if (binding >= STB_LOOS && binding <= STB_HIOS)
5234 sprintf (buff, _("<OS specific>: %d"), binding);
5235 else
5236 sprintf (buff, _("<unknown>: %d"), binding);
5237 return buff;
5241 static const char *
5242 get_symbol_type (type)
5243 unsigned int type;
5245 static char buff [32];
5247 switch (type)
5249 case STT_NOTYPE: return "NOTYPE";
5250 case STT_OBJECT: return "OBJECT";
5251 case STT_FUNC: return "FUNC";
5252 case STT_SECTION: return "SECTION";
5253 case STT_FILE: return "FILE";
5254 case STT_COMMON: return "COMMON";
5255 default:
5256 if (type >= STT_LOPROC && type <= STT_HIPROC)
5258 if (elf_header.e_machine == EM_ARM && type == STT_ARM_TFUNC)
5259 return "THUMB_FUNC";
5261 if (elf_header.e_machine == EM_SPARCV9 && type == STT_REGISTER)
5262 return "REGISTER";
5264 if (elf_header.e_machine == EM_PARISC && type == STT_PARISC_MILLI)
5265 return "PARISC_MILLI";
5267 sprintf (buff, _("<processor specific>: %d"), type);
5269 else if (type >= STT_LOOS && type <= STT_HIOS)
5271 if (elf_header.e_machine == EM_PARISC)
5273 if (type == STT_HP_OPAQUE)
5274 return "HP_OPAQUE";
5275 if (type == STT_HP_STUB)
5276 return "HP_STUB";
5279 sprintf (buff, _("<OS specific>: %d"), type);
5281 else
5282 sprintf (buff, _("<unknown>: %d"), type);
5283 return buff;
5287 static const char *
5288 get_symbol_visibility (visibility)
5289 unsigned int visibility;
5291 switch (visibility)
5293 case STV_DEFAULT: return "DEFAULT";
5294 case STV_INTERNAL: return "INTERNAL";
5295 case STV_HIDDEN: return "HIDDEN";
5296 case STV_PROTECTED: return "PROTECTED";
5297 default: abort ();
5301 static const char *
5302 get_symbol_index_type (type)
5303 unsigned int type;
5305 switch (type)
5307 case SHN_UNDEF: return "UND";
5308 case SHN_ABS: return "ABS";
5309 case SHN_COMMON: return "COM";
5310 default:
5311 if (type >= SHN_LOPROC && type <= SHN_HIPROC)
5312 return "PRC";
5313 else if (type >= SHN_LOOS && type <= SHN_HIOS)
5314 return "OS ";
5315 else if (type >= SHN_LORESERVE && type <= SHN_HIRESERVE)
5316 return "RSV";
5317 else
5319 static char buff [32];
5321 sprintf (buff, "%3d", type);
5322 return buff;
5327 static int *
5328 get_dynamic_data (file, number)
5329 FILE * file;
5330 unsigned int number;
5332 unsigned char * e_data;
5333 int * i_data;
5335 e_data = (unsigned char *) malloc (number * 4);
5337 if (e_data == NULL)
5339 error (_("Out of memory\n"));
5340 return NULL;
5343 if (fread (e_data, 4, number, file) != number)
5345 error (_("Unable to read in dynamic data\n"));
5346 return NULL;
5349 i_data = (int *) malloc (number * sizeof (* i_data));
5351 if (i_data == NULL)
5353 error (_("Out of memory\n"));
5354 free (e_data);
5355 return NULL;
5358 while (number--)
5359 i_data [number] = byte_get (e_data + number * 4, 4);
5361 free (e_data);
5363 return i_data;
5366 /* Dump the symbol table. */
5367 static int
5368 process_symbol_table (file)
5369 FILE * file;
5371 Elf32_Internal_Shdr * section;
5372 unsigned char nb [4];
5373 unsigned char nc [4];
5374 int nbuckets = 0;
5375 int nchains = 0;
5376 int * buckets = NULL;
5377 int * chains = NULL;
5379 if (! do_syms && !do_histogram)
5380 return 1;
5382 if (dynamic_info[DT_HASH] && ((do_using_dynamic && dynamic_strings != NULL)
5383 || do_histogram))
5385 if (fseek (file, dynamic_info[DT_HASH] - loadaddr, SEEK_SET))
5387 error (_("Unable to seek to start of dynamic information"));
5388 return 0;
5391 if (fread (nb, sizeof (nb), 1, file) != 1)
5393 error (_("Failed to read in number of buckets\n"));
5394 return 0;
5397 if (fread (nc, sizeof (nc), 1, file) != 1)
5399 error (_("Failed to read in number of chains\n"));
5400 return 0;
5403 nbuckets = byte_get (nb, 4);
5404 nchains = byte_get (nc, 4);
5406 buckets = get_dynamic_data (file, nbuckets);
5407 chains = get_dynamic_data (file, nchains);
5409 if (buckets == NULL || chains == NULL)
5410 return 0;
5413 if (do_syms
5414 && dynamic_info[DT_HASH] && do_using_dynamic && dynamic_strings != NULL)
5416 int hn;
5417 int si;
5419 printf (_("\nSymbol table for image:\n"));
5420 if (is_32bit_elf)
5421 printf (_(" Num Buc: Value Size Type Bind Vis Ndx Name\n"));
5422 else
5423 printf (_(" Num Buc: Value Size Type Bind Vis Ndx Name\n"));
5425 for (hn = 0; hn < nbuckets; hn++)
5427 if (! buckets [hn])
5428 continue;
5430 for (si = buckets [hn]; si < nchains && si > 0; si = chains [si])
5432 Elf_Internal_Sym * psym;
5434 psym = dynamic_symbols + si;
5436 printf (" %3d %3d: ", si, hn);
5437 print_vma (psym->st_value, LONG_HEX);
5438 putchar (' ' );
5439 print_vma (psym->st_size, DEC_5);
5441 printf (" %6s", get_symbol_type (ELF_ST_TYPE (psym->st_info)));
5442 printf (" %6s", get_symbol_binding (ELF_ST_BIND (psym->st_info)));
5443 printf (" %3s", get_symbol_visibility (ELF_ST_VISIBILITY (psym->st_other)));
5444 printf (" %3.3s ", get_symbol_index_type (psym->st_shndx));
5445 print_symbol (25, dynamic_strings + psym->st_name);
5446 putchar ('\n');
5450 else if (do_syms && !do_using_dynamic)
5452 unsigned int i;
5454 for (i = 0, section = section_headers;
5455 i < elf_header.e_shnum;
5456 i++, section++)
5458 unsigned int si;
5459 char * strtab;
5460 Elf_Internal_Sym * symtab;
5461 Elf_Internal_Sym * psym;
5464 if ( section->sh_type != SHT_SYMTAB
5465 && section->sh_type != SHT_DYNSYM)
5466 continue;
5468 printf (_("\nSymbol table '%s' contains %lu entries:\n"),
5469 SECTION_NAME (section),
5470 (unsigned long) (section->sh_size / section->sh_entsize));
5471 if (is_32bit_elf)
5472 printf (_(" Num: Value Size Type Bind Vis Ndx Name\n"));
5473 else
5474 printf (_(" Num: Value Size Type Bind Vis Ndx Name\n"));
5476 symtab = GET_ELF_SYMBOLS (file, section);
5477 if (symtab == NULL)
5478 continue;
5480 if (section->sh_link == elf_header.e_shstrndx)
5481 strtab = string_table;
5482 else
5484 Elf32_Internal_Shdr * string_sec;
5486 string_sec = SECTION_HEADER (section->sh_link);
5488 strtab = (char *) get_data (NULL, file, string_sec->sh_offset,
5489 string_sec->sh_size,
5490 _("string table"));
5493 for (si = 0, psym = symtab;
5494 si < section->sh_size / section->sh_entsize;
5495 si ++, psym ++)
5497 printf ("%6d: ", si);
5498 print_vma (psym->st_value, LONG_HEX);
5499 putchar (' ');
5500 print_vma (psym->st_size, DEC_5);
5501 printf (" %-7s", get_symbol_type (ELF_ST_TYPE (psym->st_info)));
5502 printf (" %-6s", get_symbol_binding (ELF_ST_BIND (psym->st_info)));
5503 printf (" %-3s", get_symbol_visibility (ELF_ST_VISIBILITY (psym->st_other)));
5504 printf (" %4s ", get_symbol_index_type (psym->st_shndx));
5505 print_symbol (25, strtab + psym->st_name);
5507 if (section->sh_type == SHT_DYNSYM &&
5508 version_info [DT_VERSIONTAGIDX (DT_VERSYM)] != 0)
5510 unsigned char data[2];
5511 unsigned short vers_data;
5512 unsigned long offset;
5513 int is_nobits;
5514 int check_def;
5516 offset = version_info [DT_VERSIONTAGIDX (DT_VERSYM)]
5517 - loadaddr;
5519 get_data (&data, file, offset + si * sizeof (vers_data),
5520 sizeof (data), _("version data"));
5522 vers_data = byte_get (data, 2);
5524 is_nobits = (SECTION_HEADER (psym->st_shndx)->sh_type
5525 == SHT_NOBITS);
5527 check_def = (psym->st_shndx != SHN_UNDEF);
5529 if ((vers_data & 0x8000) || vers_data > 1)
5531 if (version_info [DT_VERSIONTAGIDX (DT_VERNEED)]
5532 && (is_nobits || ! check_def))
5534 Elf_External_Verneed evn;
5535 Elf_Internal_Verneed ivn;
5536 Elf_Internal_Vernaux ivna;
5538 /* We must test both. */
5539 offset = version_info
5540 [DT_VERSIONTAGIDX (DT_VERNEED)] - loadaddr;
5544 unsigned long vna_off;
5546 get_data (&evn, file, offset, sizeof (evn),
5547 _("version need"));
5549 ivn.vn_aux = BYTE_GET (evn.vn_aux);
5550 ivn.vn_next = BYTE_GET (evn.vn_next);
5552 vna_off = offset + ivn.vn_aux;
5556 Elf_External_Vernaux evna;
5558 get_data (&evna, file, vna_off,
5559 sizeof (evna),
5560 _("version need aux (3)"));
5562 ivna.vna_other = BYTE_GET (evna.vna_other);
5563 ivna.vna_next = BYTE_GET (evna.vna_next);
5564 ivna.vna_name = BYTE_GET (evna.vna_name);
5566 vna_off += ivna.vna_next;
5568 while (ivna.vna_other != vers_data
5569 && ivna.vna_next != 0);
5571 if (ivna.vna_other == vers_data)
5572 break;
5574 offset += ivn.vn_next;
5576 while (ivn.vn_next != 0);
5578 if (ivna.vna_other == vers_data)
5580 printf ("@%s (%d)",
5581 strtab + ivna.vna_name, ivna.vna_other);
5582 check_def = 0;
5584 else if (! is_nobits)
5585 error (_("bad dynamic symbol"));
5586 else
5587 check_def = 1;
5590 if (check_def)
5592 if (vers_data != 0x8001
5593 && version_info [DT_VERSIONTAGIDX (DT_VERDEF)])
5595 Elf_Internal_Verdef ivd;
5596 Elf_Internal_Verdaux ivda;
5597 Elf_External_Verdaux evda;
5598 unsigned long offset;
5600 offset =
5601 version_info [DT_VERSIONTAGIDX (DT_VERDEF)]
5602 - loadaddr;
5606 Elf_External_Verdef evd;
5608 get_data (&evd, file, offset, sizeof (evd),
5609 _("version def"));
5611 ivd.vd_ndx = BYTE_GET (evd.vd_ndx);
5612 ivd.vd_aux = BYTE_GET (evd.vd_aux);
5613 ivd.vd_next = BYTE_GET (evd.vd_next);
5615 offset += ivd.vd_next;
5617 while (ivd.vd_ndx != (vers_data & 0x7fff)
5618 && ivd.vd_next != 0);
5620 offset -= ivd.vd_next;
5621 offset += ivd.vd_aux;
5623 get_data (&evda, file, offset, sizeof (evda),
5624 _("version def aux"));
5626 ivda.vda_name = BYTE_GET (evda.vda_name);
5628 if (psym->st_name != ivda.vda_name)
5629 printf ((vers_data & 0x8000)
5630 ? "@%s" : "@@%s",
5631 strtab + ivda.vda_name);
5637 putchar ('\n');
5640 free (symtab);
5641 if (strtab != string_table)
5642 free (strtab);
5645 else if (do_syms)
5646 printf
5647 (_("\nDynamic symbol information is not available for displaying symbols.\n"));
5649 if (do_histogram && buckets != NULL)
5651 int * lengths;
5652 int * counts;
5653 int hn;
5654 int si;
5655 int maxlength = 0;
5656 int nzero_counts = 0;
5657 int nsyms = 0;
5659 printf (_("\nHistogram for bucket list length (total of %d buckets):\n"),
5660 nbuckets);
5661 printf (_(" Length Number %% of total Coverage\n"));
5663 lengths = (int *) calloc (nbuckets, sizeof (int));
5664 if (lengths == NULL)
5666 error (_("Out of memory"));
5667 return 0;
5669 for (hn = 0; hn < nbuckets; ++hn)
5671 if (! buckets [hn])
5672 continue;
5674 for (si = buckets[hn]; si > 0 && si < nchains; si = chains[si])
5676 ++ nsyms;
5677 if (maxlength < ++lengths[hn])
5678 ++ maxlength;
5682 counts = (int *) calloc (maxlength + 1, sizeof (int));
5683 if (counts == NULL)
5685 error (_("Out of memory"));
5686 return 0;
5689 for (hn = 0; hn < nbuckets; ++hn)
5690 ++ counts [lengths [hn]];
5692 if (nbuckets > 0)
5694 printf (" 0 %-10d (%5.1f%%)\n",
5695 counts[0], (counts[0] * 100.0) / nbuckets);
5696 for (si = 1; si <= maxlength; ++si)
5698 nzero_counts += counts[si] * si;
5699 printf ("%7d %-10d (%5.1f%%) %5.1f%%\n",
5700 si, counts[si], (counts[si] * 100.0) / nbuckets,
5701 (nzero_counts * 100.0) / nsyms);
5705 free (counts);
5706 free (lengths);
5709 if (buckets != NULL)
5711 free (buckets);
5712 free (chains);
5715 return 1;
5718 static int
5719 process_syminfo (file)
5720 FILE * file ATTRIBUTE_UNUSED;
5722 unsigned int i;
5724 if (dynamic_syminfo == NULL
5725 || !do_dynamic)
5726 /* No syminfo, this is ok. */
5727 return 1;
5729 /* There better should be a dynamic symbol section. */
5730 if (dynamic_symbols == NULL || dynamic_strings == NULL)
5731 return 0;
5733 if (dynamic_addr)
5734 printf (_("\nDynamic info segment at offset 0x%lx contains %d entries:\n"),
5735 dynamic_syminfo_offset, dynamic_syminfo_nent);
5737 printf (_(" Num: Name BoundTo Flags\n"));
5738 for (i = 0; i < dynamic_syminfo_nent; ++i)
5740 unsigned short int flags = dynamic_syminfo[i].si_flags;
5742 printf ("%4d: ", i);
5743 print_symbol (30, dynamic_strings + dynamic_symbols[i].st_name);
5744 putchar (' ');
5746 switch (dynamic_syminfo[i].si_boundto)
5748 case SYMINFO_BT_SELF:
5749 fputs ("SELF ", stdout);
5750 break;
5751 case SYMINFO_BT_PARENT:
5752 fputs ("PARENT ", stdout);
5753 break;
5754 default:
5755 if (dynamic_syminfo[i].si_boundto > 0
5756 && dynamic_syminfo[i].si_boundto < dynamic_size)
5758 print_symbol (10, dynamic_strings
5759 + dynamic_segment
5760 [dynamic_syminfo[i].si_boundto].d_un.d_val);
5761 putchar (' ' );
5763 else
5764 printf ("%-10d ", dynamic_syminfo[i].si_boundto);
5765 break;
5768 if (flags & SYMINFO_FLG_DIRECT)
5769 printf (" DIRECT");
5770 if (flags & SYMINFO_FLG_PASSTHRU)
5771 printf (" PASSTHRU");
5772 if (flags & SYMINFO_FLG_COPY)
5773 printf (" COPY");
5774 if (flags & SYMINFO_FLG_LAZYLOAD)
5775 printf (" LAZYLOAD");
5777 puts ("");
5780 return 1;
5783 #ifdef SUPPORT_DISASSEMBLY
5784 static void
5785 disassemble_section (section, file)
5786 Elf32_Internal_Shdr * section;
5787 FILE * file;
5789 printf (_("\nAssembly dump of section %s\n"),
5790 SECTION_NAME (section));
5792 /* XXX -- to be done --- XXX */
5794 return 1;
5796 #endif
5798 static int
5799 dump_section (section, file)
5800 Elf32_Internal_Shdr * section;
5801 FILE * file;
5803 bfd_size_type bytes;
5804 bfd_vma addr;
5805 unsigned char * data;
5806 unsigned char * start;
5808 bytes = section->sh_size;
5810 if (bytes == 0)
5812 printf (_("\nSection '%s' has no data to dump.\n"),
5813 SECTION_NAME (section));
5814 return 0;
5816 else
5817 printf (_("\nHex dump of section '%s':\n"), SECTION_NAME (section));
5819 addr = section->sh_addr;
5821 start = (unsigned char *) get_data (NULL, file, section->sh_offset, bytes,
5822 _("section data"));
5823 if (!start)
5824 return 0;
5826 data = start;
5828 while (bytes)
5830 int j;
5831 int k;
5832 int lbytes;
5834 lbytes = (bytes > 16 ? 16 : bytes);
5836 printf (" 0x%8.8lx ", (unsigned long) addr);
5838 switch (elf_header.e_ident [EI_DATA])
5840 default:
5841 case ELFDATA2LSB:
5842 for (j = 15; j >= 0; j --)
5844 if (j < lbytes)
5845 printf ("%2.2x", data [j]);
5846 else
5847 printf (" ");
5849 if (!(j & 0x3))
5850 printf (" ");
5852 break;
5854 case ELFDATA2MSB:
5855 for (j = 0; j < 16; j++)
5857 if (j < lbytes)
5858 printf ("%2.2x", data [j]);
5859 else
5860 printf (" ");
5862 if ((j & 3) == 3)
5863 printf (" ");
5865 break;
5868 for (j = 0; j < lbytes; j++)
5870 k = data [j];
5871 if (k >= ' ' && k < 0x80)
5872 printf ("%c", k);
5873 else
5874 printf (".");
5877 putchar ('\n');
5879 data += lbytes;
5880 addr += lbytes;
5881 bytes -= lbytes;
5884 free (start);
5886 return 1;
5890 static unsigned long int
5891 read_leb128 (data, length_return, sign)
5892 unsigned char * data;
5893 int * length_return;
5894 int sign;
5896 unsigned long int result = 0;
5897 unsigned int num_read = 0;
5898 int shift = 0;
5899 unsigned char byte;
5903 byte = * data ++;
5904 num_read ++;
5906 result |= (byte & 0x7f) << shift;
5908 shift += 7;
5911 while (byte & 0x80);
5913 if (length_return != NULL)
5914 * length_return = num_read;
5916 if (sign && (shift < 32) && (byte & 0x40))
5917 result |= -1 << shift;
5919 return result;
5922 typedef struct State_Machine_Registers
5924 unsigned long address;
5925 unsigned int file;
5926 unsigned int line;
5927 unsigned int column;
5928 int is_stmt;
5929 int basic_block;
5930 int end_sequence;
5931 /* This variable hold the number of the last entry seen
5932 in the File Table. */
5933 unsigned int last_file_entry;
5934 } SMR;
5936 static SMR state_machine_regs;
5938 static void
5939 reset_state_machine (is_stmt)
5940 int is_stmt;
5942 state_machine_regs.address = 0;
5943 state_machine_regs.file = 1;
5944 state_machine_regs.line = 1;
5945 state_machine_regs.column = 0;
5946 state_machine_regs.is_stmt = is_stmt;
5947 state_machine_regs.basic_block = 0;
5948 state_machine_regs.end_sequence = 0;
5949 state_machine_regs.last_file_entry = 0;
5952 /* Handled an extend line op. Returns true if this is the end
5953 of sequence. */
5954 static int
5955 process_extended_line_op (data, is_stmt, pointer_size)
5956 unsigned char * data;
5957 int is_stmt;
5958 int pointer_size;
5960 unsigned char op_code;
5961 int bytes_read;
5962 unsigned int len;
5963 unsigned char * name;
5964 unsigned long adr;
5966 len = read_leb128 (data, & bytes_read, 0);
5967 data += bytes_read;
5969 if (len == 0)
5971 warn (_("badly formed extended line op encountered!\n"));
5972 return bytes_read;
5975 len += bytes_read;
5976 op_code = * data ++;
5978 printf (_(" Extended opcode %d: "), op_code);
5980 switch (op_code)
5982 case DW_LNE_end_sequence:
5983 printf (_("End of Sequence\n\n"));
5984 reset_state_machine (is_stmt);
5985 break;
5987 case DW_LNE_set_address:
5988 adr = byte_get (data, pointer_size);
5989 printf (_("set Address to 0x%lx\n"), adr);
5990 state_machine_regs.address = adr;
5991 break;
5993 case DW_LNE_define_file:
5994 printf (_(" define new File Table entry\n"));
5995 printf (_(" Entry\tDir\tTime\tSize\tName\n"));
5997 printf (_(" %d\t"), ++ state_machine_regs.last_file_entry);
5998 name = data;
5999 data += strlen ((char *) data) + 1;
6000 printf (_("%lu\t"), read_leb128 (data, & bytes_read, 0));
6001 data += bytes_read;
6002 printf (_("%lu\t"), read_leb128 (data, & bytes_read, 0));
6003 data += bytes_read;
6004 printf (_("%lu\t"), read_leb128 (data, & bytes_read, 0));
6005 printf (_("%s\n\n"), name);
6006 break;
6008 default:
6009 printf (_("UNKNOWN: length %d\n"), len - bytes_read);
6010 break;
6013 return len;
6016 /* Size of pointers in the .debug_line section. This information is not
6017 really present in that section. It's obtained before dumping the debug
6018 sections by doing some pre-scan of the .debug_info section. */
6019 static int debug_line_pointer_size = 4;
6021 static int
6022 display_debug_lines (section, start, file)
6023 Elf32_Internal_Shdr * section;
6024 unsigned char * start;
6025 FILE * file ATTRIBUTE_UNUSED;
6027 DWARF2_External_LineInfo * external;
6028 DWARF2_Internal_LineInfo info;
6029 unsigned char * standard_opcodes;
6030 unsigned char * data = start;
6031 unsigned char * end = start + section->sh_size;
6032 unsigned char * end_of_sequence;
6033 int i;
6035 printf (_("\nDump of debug contents of section %s:\n\n"),
6036 SECTION_NAME (section));
6038 while (data < end)
6040 external = (DWARF2_External_LineInfo *) data;
6042 /* Check the length of the block. */
6043 info.li_length = BYTE_GET (external->li_length);
6045 if (info.li_length == 0xffffffff)
6047 warn (_("64-bit DWARF line info is not supported yet.\n"));
6048 break;
6051 if (info.li_length + sizeof (external->li_length) > section->sh_size)
6053 warn
6054 (_("The line info appears to be corrupt - the section is too small\n"));
6055 return 0;
6058 /* Check its version number. */
6059 info.li_version = BYTE_GET (external->li_version);
6060 if (info.li_version != 2)
6062 warn (_("Only DWARF version 2 line info is currently supported.\n"));
6063 return 0;
6066 info.li_prologue_length = BYTE_GET (external->li_prologue_length);
6067 info.li_min_insn_length = BYTE_GET (external->li_min_insn_length);
6068 info.li_default_is_stmt = BYTE_GET (external->li_default_is_stmt);
6069 info.li_line_base = BYTE_GET (external->li_line_base);
6070 info.li_line_range = BYTE_GET (external->li_line_range);
6071 info.li_opcode_base = BYTE_GET (external->li_opcode_base);
6073 /* Sign extend the line base field. */
6074 info.li_line_base <<= 24;
6075 info.li_line_base >>= 24;
6077 printf (_(" Length: %ld\n"), info.li_length);
6078 printf (_(" DWARF Version: %d\n"), info.li_version);
6079 printf (_(" Prologue Length: %d\n"), info.li_prologue_length);
6080 printf (_(" Minimum Instruction Length: %d\n"), info.li_min_insn_length);
6081 printf (_(" Initial value of 'is_stmt': %d\n"), info.li_default_is_stmt);
6082 printf (_(" Line Base: %d\n"), info.li_line_base);
6083 printf (_(" Line Range: %d\n"), info.li_line_range);
6084 printf (_(" Opcode Base: %d\n"), info.li_opcode_base);
6086 end_of_sequence = data + info.li_length + sizeof (external->li_length);
6088 reset_state_machine (info.li_default_is_stmt);
6090 /* Display the contents of the Opcodes table. */
6091 standard_opcodes = data + sizeof (* external);
6093 printf (_("\n Opcodes:\n"));
6095 for (i = 1; i < info.li_opcode_base; i++)
6096 printf (_(" Opcode %d has %d args\n"), i, standard_opcodes[i - 1]);
6098 /* Display the contents of the Directory table. */
6099 data = standard_opcodes + info.li_opcode_base - 1;
6101 if (* data == 0)
6102 printf (_("\n The Directory Table is empty.\n"));
6103 else
6105 printf (_("\n The Directory Table:\n"));
6107 while (* data != 0)
6109 printf (_(" %s\n"), data);
6111 data += strlen ((char *) data) + 1;
6115 /* Skip the NUL at the end of the table. */
6116 data ++;
6118 /* Display the contents of the File Name table. */
6119 if (* data == 0)
6120 printf (_("\n The File Name Table is empty.\n"));
6121 else
6123 printf (_("\n The File Name Table:\n"));
6124 printf (_(" Entry\tDir\tTime\tSize\tName\n"));
6126 while (* data != 0)
6128 unsigned char * name;
6129 int bytes_read;
6131 printf (_(" %d\t"), ++ state_machine_regs.last_file_entry);
6132 name = data;
6134 data += strlen ((char *) data) + 1;
6136 printf (_("%lu\t"), read_leb128 (data, & bytes_read, 0));
6137 data += bytes_read;
6138 printf (_("%lu\t"), read_leb128 (data, & bytes_read, 0));
6139 data += bytes_read;
6140 printf (_("%lu\t"), read_leb128 (data, & bytes_read, 0));
6141 data += bytes_read;
6142 printf (_("%s\n"), name);
6146 /* Skip the NUL at the end of the table. */
6147 data ++;
6149 /* Now display the statements. */
6150 printf (_("\n Line Number Statements:\n"));
6153 while (data < end_of_sequence)
6155 unsigned char op_code;
6156 int adv;
6157 int bytes_read;
6159 op_code = * data ++;
6161 if (op_code >= info.li_opcode_base)
6163 op_code -= info.li_opcode_base;
6164 adv = (op_code / info.li_line_range) * info.li_min_insn_length;
6165 state_machine_regs.address += adv;
6166 printf (_(" Special opcode %d: advance Address by %d to 0x%lx"),
6167 op_code, adv, state_machine_regs.address);
6168 adv = (op_code % info.li_line_range) + info.li_line_base;
6169 state_machine_regs.line += adv;
6170 printf (_(" and Line by %d to %d\n"),
6171 adv, state_machine_regs.line);
6173 else switch (op_code)
6175 case DW_LNS_extended_op:
6176 data += process_extended_line_op (data, info.li_default_is_stmt,
6177 debug_line_pointer_size);
6178 break;
6180 case DW_LNS_copy:
6181 printf (_(" Copy\n"));
6182 break;
6184 case DW_LNS_advance_pc:
6185 adv = info.li_min_insn_length * read_leb128 (data, & bytes_read, 0);
6186 data += bytes_read;
6187 state_machine_regs.address += adv;
6188 printf (_(" Advance PC by %d to %lx\n"), adv,
6189 state_machine_regs.address);
6190 break;
6192 case DW_LNS_advance_line:
6193 adv = read_leb128 (data, & bytes_read, 1);
6194 data += bytes_read;
6195 state_machine_regs.line += adv;
6196 printf (_(" Advance Line by %d to %d\n"), adv,
6197 state_machine_regs.line);
6198 break;
6200 case DW_LNS_set_file:
6201 adv = read_leb128 (data, & bytes_read, 0);
6202 data += bytes_read;
6203 printf (_(" Set File Name to entry %d in the File Name Table\n"),
6204 adv);
6205 state_machine_regs.file = adv;
6206 break;
6208 case DW_LNS_set_column:
6209 adv = read_leb128 (data, & bytes_read, 0);
6210 data += bytes_read;
6211 printf (_(" Set column to %d\n"), adv);
6212 state_machine_regs.column = adv;
6213 break;
6215 case DW_LNS_negate_stmt:
6216 adv = state_machine_regs.is_stmt;
6217 adv = ! adv;
6218 printf (_(" Set is_stmt to %d\n"), adv);
6219 state_machine_regs.is_stmt = adv;
6220 break;
6222 case DW_LNS_set_basic_block:
6223 printf (_(" Set basic block\n"));
6224 state_machine_regs.basic_block = 1;
6225 break;
6227 case DW_LNS_const_add_pc:
6228 adv = (((255 - info.li_opcode_base) / info.li_line_range)
6229 * info.li_min_insn_length);
6230 state_machine_regs.address += adv;
6231 printf (_(" Advance PC by constant %d to 0x%lx\n"), adv,
6232 state_machine_regs.address);
6233 break;
6235 case DW_LNS_fixed_advance_pc:
6236 adv = byte_get (data, 2);
6237 data += 2;
6238 state_machine_regs.address += adv;
6239 printf (_(" Advance PC by fixed size amount %d to 0x%lx\n"),
6240 adv, state_machine_regs.address);
6241 break;
6243 case DW_LNS_set_prologue_end:
6244 printf (_(" Set prologue_end to true\n"));
6245 break;
6247 case DW_LNS_set_epilogue_begin:
6248 printf (_(" Set epilogue_begin to true\n"));
6249 break;
6251 case DW_LNS_set_isa:
6252 adv = read_leb128 (data, & bytes_read, 0);
6253 data += bytes_read;
6254 printf (_(" Set ISA to %d\n"), adv);
6255 break;
6257 default:
6258 printf (_(" Unknown opcode %d with operands: "), op_code);
6260 int i;
6261 for (i = standard_opcodes[op_code - 1]; i > 0 ; --i)
6263 printf ("0x%lx%s", read_leb128 (data, &bytes_read, 0),
6264 i == 1 ? "" : ", ");
6265 data += bytes_read;
6267 putchar ('\n');
6269 break;
6272 putchar ('\n');
6275 return 1;
6278 static int
6279 display_debug_pubnames (section, start, file)
6280 Elf32_Internal_Shdr * section;
6281 unsigned char * start;
6282 FILE * file ATTRIBUTE_UNUSED;
6284 DWARF2_External_PubNames * external;
6285 DWARF2_Internal_PubNames pubnames;
6286 unsigned char * end;
6288 end = start + section->sh_size;
6290 printf (_("Contents of the %s section:\n\n"), SECTION_NAME (section));
6292 while (start < end)
6294 unsigned char * data;
6295 unsigned long offset;
6297 external = (DWARF2_External_PubNames *) start;
6299 pubnames.pn_length = BYTE_GET (external->pn_length);
6300 pubnames.pn_version = BYTE_GET (external->pn_version);
6301 pubnames.pn_offset = BYTE_GET (external->pn_offset);
6302 pubnames.pn_size = BYTE_GET (external->pn_size);
6304 data = start + sizeof (* external);
6305 start += pubnames.pn_length + sizeof (external->pn_length);
6307 if (pubnames.pn_length == 0xffffffff)
6309 warn (_("64-bit DWARF pubnames are not supported yet.\n"));
6310 break;
6313 if (pubnames.pn_version != 2)
6315 static int warned = 0;
6317 if (! warned)
6319 warn (_("Only DWARF 2 pubnames are currently supported\n"));
6320 warned = 1;
6323 continue;
6326 printf (_(" Length: %ld\n"),
6327 pubnames.pn_length);
6328 printf (_(" Version: %d\n"),
6329 pubnames.pn_version);
6330 printf (_(" Offset into .debug_info section: %ld\n"),
6331 pubnames.pn_offset);
6332 printf (_(" Size of area in .debug_info section: %ld\n"),
6333 pubnames.pn_size);
6335 printf (_("\n Offset\tName\n"));
6339 offset = byte_get (data, 4);
6341 if (offset != 0)
6343 data += 4;
6344 printf (" %ld\t\t%s\n", offset, data);
6345 data += strlen ((char *) data) + 1;
6348 while (offset != 0);
6351 printf ("\n");
6352 return 1;
6355 static char *
6356 get_TAG_name (tag)
6357 unsigned long tag;
6359 switch (tag)
6361 case DW_TAG_padding: return "DW_TAG_padding";
6362 case DW_TAG_array_type: return "DW_TAG_array_type";
6363 case DW_TAG_class_type: return "DW_TAG_class_type";
6364 case DW_TAG_entry_point: return "DW_TAG_entry_point";
6365 case DW_TAG_enumeration_type: return "DW_TAG_enumeration_type";
6366 case DW_TAG_formal_parameter: return "DW_TAG_formal_parameter";
6367 case DW_TAG_imported_declaration: return "DW_TAG_imported_declaration";
6368 case DW_TAG_label: return "DW_TAG_label";
6369 case DW_TAG_lexical_block: return "DW_TAG_lexical_block";
6370 case DW_TAG_member: return "DW_TAG_member";
6371 case DW_TAG_pointer_type: return "DW_TAG_pointer_type";
6372 case DW_TAG_reference_type: return "DW_TAG_reference_type";
6373 case DW_TAG_compile_unit: return "DW_TAG_compile_unit";
6374 case DW_TAG_string_type: return "DW_TAG_string_type";
6375 case DW_TAG_structure_type: return "DW_TAG_structure_type";
6376 case DW_TAG_subroutine_type: return "DW_TAG_subroutine_type";
6377 case DW_TAG_typedef: return "DW_TAG_typedef";
6378 case DW_TAG_union_type: return "DW_TAG_union_type";
6379 case DW_TAG_unspecified_parameters: return "DW_TAG_unspecified_parameters";
6380 case DW_TAG_variant: return "DW_TAG_variant";
6381 case DW_TAG_common_block: return "DW_TAG_common_block";
6382 case DW_TAG_common_inclusion: return "DW_TAG_common_inclusion";
6383 case DW_TAG_inheritance: return "DW_TAG_inheritance";
6384 case DW_TAG_inlined_subroutine: return "DW_TAG_inlined_subroutine";
6385 case DW_TAG_module: return "DW_TAG_module";
6386 case DW_TAG_ptr_to_member_type: return "DW_TAG_ptr_to_member_type";
6387 case DW_TAG_set_type: return "DW_TAG_set_type";
6388 case DW_TAG_subrange_type: return "DW_TAG_subrange_type";
6389 case DW_TAG_with_stmt: return "DW_TAG_with_stmt";
6390 case DW_TAG_access_declaration: return "DW_TAG_access_declaration";
6391 case DW_TAG_base_type: return "DW_TAG_base_type";
6392 case DW_TAG_catch_block: return "DW_TAG_catch_block";
6393 case DW_TAG_const_type: return "DW_TAG_const_type";
6394 case DW_TAG_constant: return "DW_TAG_constant";
6395 case DW_TAG_enumerator: return "DW_TAG_enumerator";
6396 case DW_TAG_file_type: return "DW_TAG_file_type";
6397 case DW_TAG_friend: return "DW_TAG_friend";
6398 case DW_TAG_namelist: return "DW_TAG_namelist";
6399 case DW_TAG_namelist_item: return "DW_TAG_namelist_item";
6400 case DW_TAG_packed_type: return "DW_TAG_packed_type";
6401 case DW_TAG_subprogram: return "DW_TAG_subprogram";
6402 case DW_TAG_template_type_param: return "DW_TAG_template_type_param";
6403 case DW_TAG_template_value_param: return "DW_TAG_template_value_param";
6404 case DW_TAG_thrown_type: return "DW_TAG_thrown_type";
6405 case DW_TAG_try_block: return "DW_TAG_try_block";
6406 case DW_TAG_variant_part: return "DW_TAG_variant_part";
6407 case DW_TAG_variable: return "DW_TAG_variable";
6408 case DW_TAG_volatile_type: return "DW_TAG_volatile_type";
6409 case DW_TAG_MIPS_loop: return "DW_TAG_MIPS_loop";
6410 case DW_TAG_format_label: return "DW_TAG_format_label";
6411 case DW_TAG_function_template: return "DW_TAG_function_template";
6412 case DW_TAG_class_template: return "DW_TAG_class_template";
6413 /* DWARF 2.1 values. */
6414 case DW_TAG_dwarf_procedure: return "DW_TAG_dwarf_procedure";
6415 case DW_TAG_restrict_type: return "DW_TAG_restrict_type";
6416 case DW_TAG_interface_type: return "DW_TAG_interface_type";
6417 case DW_TAG_namespace: return "DW_TAG_namespace";
6418 case DW_TAG_imported_module: return "DW_TAG_imported_module";
6419 case DW_TAG_unspecified_type: return "DW_TAG_unspecified_type";
6420 case DW_TAG_partial_unit: return "DW_TAG_partial_unit";
6421 case DW_TAG_imported_unit: return "DW_TAG_imported_unit";
6422 default:
6424 static char buffer [100];
6426 sprintf (buffer, _("Unknown TAG value: %lx"), tag);
6427 return buffer;
6432 static char *
6433 get_AT_name (attribute)
6434 unsigned long attribute;
6436 switch (attribute)
6438 case DW_AT_sibling: return "DW_AT_sibling";
6439 case DW_AT_location: return "DW_AT_location";
6440 case DW_AT_name: return "DW_AT_name";
6441 case DW_AT_ordering: return "DW_AT_ordering";
6442 case DW_AT_subscr_data: return "DW_AT_subscr_data";
6443 case DW_AT_byte_size: return "DW_AT_byte_size";
6444 case DW_AT_bit_offset: return "DW_AT_bit_offset";
6445 case DW_AT_bit_size: return "DW_AT_bit_size";
6446 case DW_AT_element_list: return "DW_AT_element_list";
6447 case DW_AT_stmt_list: return "DW_AT_stmt_list";
6448 case DW_AT_low_pc: return "DW_AT_low_pc";
6449 case DW_AT_high_pc: return "DW_AT_high_pc";
6450 case DW_AT_language: return "DW_AT_language";
6451 case DW_AT_member: return "DW_AT_member";
6452 case DW_AT_discr: return "DW_AT_discr";
6453 case DW_AT_discr_value: return "DW_AT_discr_value";
6454 case DW_AT_visibility: return "DW_AT_visibility";
6455 case DW_AT_import: return "DW_AT_import";
6456 case DW_AT_string_length: return "DW_AT_string_length";
6457 case DW_AT_common_reference: return "DW_AT_common_reference";
6458 case DW_AT_comp_dir: return "DW_AT_comp_dir";
6459 case DW_AT_const_value: return "DW_AT_const_value";
6460 case DW_AT_containing_type: return "DW_AT_containing_type";
6461 case DW_AT_default_value: return "DW_AT_default_value";
6462 case DW_AT_inline: return "DW_AT_inline";
6463 case DW_AT_is_optional: return "DW_AT_is_optional";
6464 case DW_AT_lower_bound: return "DW_AT_lower_bound";
6465 case DW_AT_producer: return "DW_AT_producer";
6466 case DW_AT_prototyped: return "DW_AT_prototyped";
6467 case DW_AT_return_addr: return "DW_AT_return_addr";
6468 case DW_AT_start_scope: return "DW_AT_start_scope";
6469 case DW_AT_stride_size: return "DW_AT_stride_size";
6470 case DW_AT_upper_bound: return "DW_AT_upper_bound";
6471 case DW_AT_abstract_origin: return "DW_AT_abstract_origin";
6472 case DW_AT_accessibility: return "DW_AT_accessibility";
6473 case DW_AT_address_class: return "DW_AT_address_class";
6474 case DW_AT_artificial: return "DW_AT_artificial";
6475 case DW_AT_base_types: return "DW_AT_base_types";
6476 case DW_AT_calling_convention: return "DW_AT_calling_convention";
6477 case DW_AT_count: return "DW_AT_count";
6478 case DW_AT_data_member_location: return "DW_AT_data_member_location";
6479 case DW_AT_decl_column: return "DW_AT_decl_column";
6480 case DW_AT_decl_file: return "DW_AT_decl_file";
6481 case DW_AT_decl_line: return "DW_AT_decl_line";
6482 case DW_AT_declaration: return "DW_AT_declaration";
6483 case DW_AT_discr_list: return "DW_AT_discr_list";
6484 case DW_AT_encoding: return "DW_AT_encoding";
6485 case DW_AT_external: return "DW_AT_external";
6486 case DW_AT_frame_base: return "DW_AT_frame_base";
6487 case DW_AT_friend: return "DW_AT_friend";
6488 case DW_AT_identifier_case: return "DW_AT_identifier_case";
6489 case DW_AT_macro_info: return "DW_AT_macro_info";
6490 case DW_AT_namelist_items: return "DW_AT_namelist_items";
6491 case DW_AT_priority: return "DW_AT_priority";
6492 case DW_AT_segment: return "DW_AT_segment";
6493 case DW_AT_specification: return "DW_AT_specification";
6494 case DW_AT_static_link: return "DW_AT_static_link";
6495 case DW_AT_type: return "DW_AT_type";
6496 case DW_AT_use_location: return "DW_AT_use_location";
6497 case DW_AT_variable_parameter: return "DW_AT_variable_parameter";
6498 case DW_AT_virtuality: return "DW_AT_virtuality";
6499 case DW_AT_vtable_elem_location: return "DW_AT_vtable_elem_location";
6500 /* DWARF 2.1 values. */
6501 case DW_AT_allocated: return "DW_AT_allocated";
6502 case DW_AT_associated: return "DW_AT_associated";
6503 case DW_AT_data_location: return "DW_AT_data_location";
6504 case DW_AT_stride: return "DW_AT_stride";
6505 case DW_AT_entry_pc: return "DW_AT_entry_pc";
6506 case DW_AT_use_UTF8: return "DW_AT_use_UTF8";
6507 case DW_AT_extension: return "DW_AT_extension";
6508 case DW_AT_ranges: return "DW_AT_ranges";
6509 case DW_AT_trampoline: return "DW_AT_trampoline";
6510 case DW_AT_call_column: return "DW_AT_call_column";
6511 case DW_AT_call_file: return "DW_AT_call_file";
6512 case DW_AT_call_line: return "DW_AT_call_line";
6513 /* SGI/MIPS extensions. */
6514 case DW_AT_MIPS_fde: return "DW_AT_MIPS_fde";
6515 case DW_AT_MIPS_loop_begin: return "DW_AT_MIPS_loop_begin";
6516 case DW_AT_MIPS_tail_loop_begin: return "DW_AT_MIPS_tail_loop_begin";
6517 case DW_AT_MIPS_epilog_begin: return "DW_AT_MIPS_epilog_begin";
6518 case DW_AT_MIPS_loop_unroll_factor: return "DW_AT_MIPS_loop_unroll_factor";
6519 case DW_AT_MIPS_software_pipeline_depth: return "DW_AT_MIPS_software_pipeline_depth";
6520 case DW_AT_MIPS_linkage_name: return "DW_AT_MIPS_linkage_name";
6521 case DW_AT_MIPS_stride: return "DW_AT_MIPS_stride";
6522 case DW_AT_MIPS_abstract_name: return "DW_AT_MIPS_abstract_name";
6523 case DW_AT_MIPS_clone_origin: return "DW_AT_MIPS_clone_origin";
6524 case DW_AT_MIPS_has_inlines: return "DW_AT_MIPS_has_inlines";
6525 /* GNU extensions. */
6526 case DW_AT_sf_names: return "DW_AT_sf_names";
6527 case DW_AT_src_info: return "DW_AT_src_info";
6528 case DW_AT_mac_info: return "DW_AT_mac_info";
6529 case DW_AT_src_coords: return "DW_AT_src_coords";
6530 case DW_AT_body_begin: return "DW_AT_body_begin";
6531 case DW_AT_body_end: return "DW_AT_body_end";
6532 case DW_AT_GNU_vector: return "DW_AT_GNU_vector";
6533 default:
6535 static char buffer [100];
6537 sprintf (buffer, _("Unknown AT value: %lx"), attribute);
6538 return buffer;
6543 static char *
6544 get_FORM_name (form)
6545 unsigned long form;
6547 switch (form)
6549 case DW_FORM_addr: return "DW_FORM_addr";
6550 case DW_FORM_block2: return "DW_FORM_block2";
6551 case DW_FORM_block4: return "DW_FORM_block4";
6552 case DW_FORM_data2: return "DW_FORM_data2";
6553 case DW_FORM_data4: return "DW_FORM_data4";
6554 case DW_FORM_data8: return "DW_FORM_data8";
6555 case DW_FORM_string: return "DW_FORM_string";
6556 case DW_FORM_block: return "DW_FORM_block";
6557 case DW_FORM_block1: return "DW_FORM_block1";
6558 case DW_FORM_data1: return "DW_FORM_data1";
6559 case DW_FORM_flag: return "DW_FORM_flag";
6560 case DW_FORM_sdata: return "DW_FORM_sdata";
6561 case DW_FORM_strp: return "DW_FORM_strp";
6562 case DW_FORM_udata: return "DW_FORM_udata";
6563 case DW_FORM_ref_addr: return "DW_FORM_ref_addr";
6564 case DW_FORM_ref1: return "DW_FORM_ref1";
6565 case DW_FORM_ref2: return "DW_FORM_ref2";
6566 case DW_FORM_ref4: return "DW_FORM_ref4";
6567 case DW_FORM_ref8: return "DW_FORM_ref8";
6568 case DW_FORM_ref_udata: return "DW_FORM_ref_udata";
6569 case DW_FORM_indirect: return "DW_FORM_indirect";
6570 default:
6572 static char buffer [100];
6574 sprintf (buffer, _("Unknown FORM value: %lx"), form);
6575 return buffer;
6580 /* FIXME: There are better and more effiecint ways to handle
6581 these structures. For now though, I just want something that
6582 is simple to implement. */
6583 typedef struct abbrev_attr
6585 unsigned long attribute;
6586 unsigned long form;
6587 struct abbrev_attr * next;
6589 abbrev_attr;
6591 typedef struct abbrev_entry
6593 unsigned long entry;
6594 unsigned long tag;
6595 int children;
6596 struct abbrev_attr * first_attr;
6597 struct abbrev_attr * last_attr;
6598 struct abbrev_entry * next;
6600 abbrev_entry;
6602 static abbrev_entry * first_abbrev = NULL;
6603 static abbrev_entry * last_abbrev = NULL;
6605 static void
6606 free_abbrevs PARAMS ((void))
6608 abbrev_entry * abbrev;
6610 for (abbrev = first_abbrev; abbrev;)
6612 abbrev_entry * next = abbrev->next;
6613 abbrev_attr * attr;
6615 for (attr = abbrev->first_attr; attr;)
6617 abbrev_attr * next = attr->next;
6619 free (attr);
6620 attr = next;
6623 free (abbrev);
6624 abbrev = next;
6627 last_abbrev = first_abbrev = NULL;
6630 static void
6631 add_abbrev (number, tag, children)
6632 unsigned long number;
6633 unsigned long tag;
6634 int children;
6636 abbrev_entry * entry;
6638 entry = (abbrev_entry *) malloc (sizeof (* entry));
6640 if (entry == NULL)
6641 /* ugg */
6642 return;
6644 entry->entry = number;
6645 entry->tag = tag;
6646 entry->children = children;
6647 entry->first_attr = NULL;
6648 entry->last_attr = NULL;
6649 entry->next = NULL;
6651 if (first_abbrev == NULL)
6652 first_abbrev = entry;
6653 else
6654 last_abbrev->next = entry;
6656 last_abbrev = entry;
6659 static void
6660 add_abbrev_attr (attribute, form)
6661 unsigned long attribute;
6662 unsigned long form;
6664 abbrev_attr * attr;
6666 attr = (abbrev_attr *) malloc (sizeof (* attr));
6668 if (attr == NULL)
6669 /* ugg */
6670 return;
6672 attr->attribute = attribute;
6673 attr->form = form;
6674 attr->next = NULL;
6676 if (last_abbrev->first_attr == NULL)
6677 last_abbrev->first_attr = attr;
6678 else
6679 last_abbrev->last_attr->next = attr;
6681 last_abbrev->last_attr = attr;
6684 /* Processes the (partial) contents of a .debug_abbrev section.
6685 Returns NULL if the end of the section was encountered.
6686 Returns the address after the last byte read if the end of
6687 an abbreviation set was found. */
6689 static unsigned char *
6690 process_abbrev_section (start, end)
6691 unsigned char * start;
6692 unsigned char * end;
6694 if (first_abbrev != NULL)
6695 return NULL;
6697 while (start < end)
6699 int bytes_read;
6700 unsigned long entry;
6701 unsigned long tag;
6702 unsigned long attribute;
6703 int children;
6705 entry = read_leb128 (start, & bytes_read, 0);
6706 start += bytes_read;
6708 /* A single zero is supposed to end the section according
6709 to the standard. If there's more, then signal that to
6710 the caller. */
6711 if (entry == 0)
6712 return start == end ? NULL : start;
6714 tag = read_leb128 (start, & bytes_read, 0);
6715 start += bytes_read;
6717 children = * start ++;
6719 add_abbrev (entry, tag, children);
6723 unsigned long form;
6725 attribute = read_leb128 (start, & bytes_read, 0);
6726 start += bytes_read;
6728 form = read_leb128 (start, & bytes_read, 0);
6729 start += bytes_read;
6731 if (attribute != 0)
6732 add_abbrev_attr (attribute, form);
6734 while (attribute != 0);
6737 return NULL;
6741 static int
6742 display_debug_macinfo (section, start, file)
6743 Elf32_Internal_Shdr * section;
6744 unsigned char * start;
6745 FILE * file ATTRIBUTE_UNUSED;
6747 unsigned char * end = start + section->sh_size;
6748 unsigned char * curr = start;
6749 unsigned int bytes_read;
6750 enum dwarf_macinfo_record_type op;
6752 printf (_("Contents of the %s section:\n\n"), SECTION_NAME (section));
6754 while (curr < end)
6756 unsigned int lineno;
6757 const char * string;
6759 op = * curr;
6760 curr ++;
6762 switch (op)
6764 case DW_MACINFO_start_file:
6766 unsigned int filenum;
6768 lineno = read_leb128 (curr, & bytes_read, 0);
6769 curr += bytes_read;
6770 filenum = read_leb128 (curr, & bytes_read, 0);
6771 curr += bytes_read;
6773 printf (_(" DW_MACINFO_start_file - lineno: %d filenum: %d\n"), lineno, filenum);
6775 break;
6777 case DW_MACINFO_end_file:
6778 printf (_(" DW_MACINFO_end_file\n"));
6779 break;
6781 case DW_MACINFO_define:
6782 lineno = read_leb128 (curr, & bytes_read, 0);
6783 curr += bytes_read;
6784 string = curr;
6785 curr += strlen (string) + 1;
6786 printf (_(" DW_MACINFO_define - lineno : %d macro : %s\n"), lineno, string);
6787 break;
6789 case DW_MACINFO_undef:
6790 lineno = read_leb128 (curr, & bytes_read, 0);
6791 curr += bytes_read;
6792 string = curr;
6793 curr += strlen (string) + 1;
6794 printf (_(" DW_MACINFO_undef - lineno : %d macro : %s\n"), lineno, string);
6795 break;
6797 case DW_MACINFO_vendor_ext:
6799 unsigned int constant;
6801 constant = read_leb128 (curr, & bytes_read, 0);
6802 curr += bytes_read;
6803 string = curr;
6804 curr += strlen (string) + 1;
6805 printf (_(" DW_MACINFO_vendor_ext - constant : %d string : %s\n"), constant, string);
6807 break;
6811 return 1;
6815 static int
6816 display_debug_abbrev (section, start, file)
6817 Elf32_Internal_Shdr * section;
6818 unsigned char * start;
6819 FILE * file ATTRIBUTE_UNUSED;
6821 abbrev_entry * entry;
6822 unsigned char * end = start + section->sh_size;
6824 printf (_("Contents of the %s section:\n\n"), SECTION_NAME (section));
6828 start = process_abbrev_section (start, end);
6830 if (first_abbrev == NULL)
6831 continue;
6833 printf (_(" Number TAG\n"));
6835 for (entry = first_abbrev; entry; entry = entry->next)
6837 abbrev_attr * attr;
6839 printf (_(" %ld %s [%s]\n"),
6840 entry->entry,
6841 get_TAG_name (entry->tag),
6842 entry->children ? _("has children") : _("no children"));
6844 for (attr = entry->first_attr; attr; attr = attr->next)
6846 printf (_(" %-18s %s\n"),
6847 get_AT_name (attr->attribute),
6848 get_FORM_name (attr->form));
6852 free_abbrevs ();
6854 while (start);
6856 printf ("\n");
6858 return 1;
6862 static unsigned char *
6863 display_block (data, length)
6864 unsigned char * data;
6865 unsigned long length;
6867 printf (_(" %lu byte block: "), length);
6869 while (length --)
6870 printf ("%lx ", (unsigned long) byte_get (data ++, 1));
6872 return data;
6875 static void
6876 decode_location_expression (data, pointer_size, length)
6877 unsigned char * data;
6878 unsigned int pointer_size;
6879 unsigned long length;
6881 unsigned op;
6882 int bytes_read;
6883 unsigned long uvalue;
6884 unsigned char * end = data + length;
6886 while (data < end)
6888 op = * data ++;
6890 switch (op)
6892 case DW_OP_addr:
6893 printf ("DW_OP_addr: %lx",
6894 (unsigned long) byte_get (data, pointer_size));
6895 data += pointer_size;
6896 break;
6897 case DW_OP_deref:
6898 printf ("DW_OP_deref");
6899 break;
6900 case DW_OP_const1u:
6901 printf ("DW_OP_const1u: %lu", (unsigned long) byte_get (data++, 1));
6902 break;
6903 case DW_OP_const1s:
6904 printf ("DW_OP_const1s: %ld", (long) byte_get (data++, 1));
6905 break;
6906 case DW_OP_const2u:
6907 printf ("DW_OP_const2u: %lu", (unsigned long) byte_get (data, 2));
6908 data += 2;
6909 break;
6910 case DW_OP_const2s:
6911 printf ("DW_OP_const2s: %ld", (long) byte_get (data, 2));
6912 data += 2;
6913 break;
6914 case DW_OP_const4u:
6915 printf ("DW_OP_const4u: %lu", (unsigned long) byte_get (data, 4));
6916 data += 4;
6917 break;
6918 case DW_OP_const4s:
6919 printf ("DW_OP_const4s: %ld", (long) byte_get (data, 4));
6920 data += 4;
6921 break;
6922 case DW_OP_const8u:
6923 printf ("DW_OP_const8u: %lu %lu", (unsigned long) byte_get (data, 4),
6924 (unsigned long) byte_get (data + 4, 4));
6925 data += 8;
6926 break;
6927 case DW_OP_const8s:
6928 printf ("DW_OP_const8s: %ld %ld", (long) byte_get (data, 4),
6929 (long) byte_get (data + 4, 4));
6930 data += 8;
6931 break;
6932 case DW_OP_constu:
6933 printf ("DW_OP_constu: %lu", read_leb128 (data, &bytes_read, 0));
6934 data += bytes_read;
6935 break;
6936 case DW_OP_consts:
6937 printf ("DW_OP_consts: %ld", read_leb128 (data, &bytes_read, 1));
6938 data += bytes_read;
6939 break;
6940 case DW_OP_dup:
6941 printf ("DW_OP_dup");
6942 break;
6943 case DW_OP_drop:
6944 printf ("DW_OP_drop");
6945 break;
6946 case DW_OP_over:
6947 printf ("DW_OP_over");
6948 break;
6949 case DW_OP_pick:
6950 printf ("DW_OP_pick: %ld", (unsigned long) byte_get (data++, 1));
6951 break;
6952 case DW_OP_swap:
6953 printf ("DW_OP_swap");
6954 break;
6955 case DW_OP_rot:
6956 printf ("DW_OP_rot");
6957 break;
6958 case DW_OP_xderef:
6959 printf ("DW_OP_xderef");
6960 break;
6961 case DW_OP_abs:
6962 printf ("DW_OP_abs");
6963 break;
6964 case DW_OP_and:
6965 printf ("DW_OP_and");
6966 break;
6967 case DW_OP_div:
6968 printf ("DW_OP_div");
6969 break;
6970 case DW_OP_minus:
6971 printf ("DW_OP_minus");
6972 break;
6973 case DW_OP_mod:
6974 printf ("DW_OP_mod");
6975 break;
6976 case DW_OP_mul:
6977 printf ("DW_OP_mul");
6978 break;
6979 case DW_OP_neg:
6980 printf ("DW_OP_neg");
6981 break;
6982 case DW_OP_not:
6983 printf ("DW_OP_not");
6984 break;
6985 case DW_OP_or:
6986 printf ("DW_OP_or");
6987 break;
6988 case DW_OP_plus:
6989 printf ("DW_OP_plus");
6990 break;
6991 case DW_OP_plus_uconst:
6992 printf ("DW_OP_plus_uconst: %lu",
6993 read_leb128 (data, &bytes_read, 0));
6994 data += bytes_read;
6995 break;
6996 case DW_OP_shl:
6997 printf ("DW_OP_shl");
6998 break;
6999 case DW_OP_shr:
7000 printf ("DW_OP_shr");
7001 break;
7002 case DW_OP_shra:
7003 printf ("DW_OP_shra");
7004 break;
7005 case DW_OP_xor:
7006 printf ("DW_OP_xor");
7007 break;
7008 case DW_OP_bra:
7009 printf ("DW_OP_bra: %ld", (long) byte_get (data, 2));
7010 data += 2;
7011 break;
7012 case DW_OP_eq:
7013 printf ("DW_OP_eq");
7014 break;
7015 case DW_OP_ge:
7016 printf ("DW_OP_ge");
7017 break;
7018 case DW_OP_gt:
7019 printf ("DW_OP_gt");
7020 break;
7021 case DW_OP_le:
7022 printf ("DW_OP_le");
7023 break;
7024 case DW_OP_lt:
7025 printf ("DW_OP_lt");
7026 break;
7027 case DW_OP_ne:
7028 printf ("DW_OP_ne");
7029 break;
7030 case DW_OP_skip:
7031 printf ("DW_OP_skip: %ld", (long) byte_get (data, 2));
7032 data += 2;
7033 break;
7035 case DW_OP_lit0:
7036 case DW_OP_lit1:
7037 case DW_OP_lit2:
7038 case DW_OP_lit3:
7039 case DW_OP_lit4:
7040 case DW_OP_lit5:
7041 case DW_OP_lit6:
7042 case DW_OP_lit7:
7043 case DW_OP_lit8:
7044 case DW_OP_lit9:
7045 case DW_OP_lit10:
7046 case DW_OP_lit11:
7047 case DW_OP_lit12:
7048 case DW_OP_lit13:
7049 case DW_OP_lit14:
7050 case DW_OP_lit15:
7051 case DW_OP_lit16:
7052 case DW_OP_lit17:
7053 case DW_OP_lit18:
7054 case DW_OP_lit19:
7055 case DW_OP_lit20:
7056 case DW_OP_lit21:
7057 case DW_OP_lit22:
7058 case DW_OP_lit23:
7059 case DW_OP_lit24:
7060 case DW_OP_lit25:
7061 case DW_OP_lit26:
7062 case DW_OP_lit27:
7063 case DW_OP_lit28:
7064 case DW_OP_lit29:
7065 case DW_OP_lit30:
7066 case DW_OP_lit31:
7067 printf ("DW_OP_lit%d", op - DW_OP_lit0);
7068 break;
7070 case DW_OP_reg0:
7071 case DW_OP_reg1:
7072 case DW_OP_reg2:
7073 case DW_OP_reg3:
7074 case DW_OP_reg4:
7075 case DW_OP_reg5:
7076 case DW_OP_reg6:
7077 case DW_OP_reg7:
7078 case DW_OP_reg8:
7079 case DW_OP_reg9:
7080 case DW_OP_reg10:
7081 case DW_OP_reg11:
7082 case DW_OP_reg12:
7083 case DW_OP_reg13:
7084 case DW_OP_reg14:
7085 case DW_OP_reg15:
7086 case DW_OP_reg16:
7087 case DW_OP_reg17:
7088 case DW_OP_reg18:
7089 case DW_OP_reg19:
7090 case DW_OP_reg20:
7091 case DW_OP_reg21:
7092 case DW_OP_reg22:
7093 case DW_OP_reg23:
7094 case DW_OP_reg24:
7095 case DW_OP_reg25:
7096 case DW_OP_reg26:
7097 case DW_OP_reg27:
7098 case DW_OP_reg28:
7099 case DW_OP_reg29:
7100 case DW_OP_reg30:
7101 case DW_OP_reg31:
7102 printf ("DW_OP_reg%d", op - DW_OP_reg0);
7103 break;
7105 case DW_OP_breg0:
7106 case DW_OP_breg1:
7107 case DW_OP_breg2:
7108 case DW_OP_breg3:
7109 case DW_OP_breg4:
7110 case DW_OP_breg5:
7111 case DW_OP_breg6:
7112 case DW_OP_breg7:
7113 case DW_OP_breg8:
7114 case DW_OP_breg9:
7115 case DW_OP_breg10:
7116 case DW_OP_breg11:
7117 case DW_OP_breg12:
7118 case DW_OP_breg13:
7119 case DW_OP_breg14:
7120 case DW_OP_breg15:
7121 case DW_OP_breg16:
7122 case DW_OP_breg17:
7123 case DW_OP_breg18:
7124 case DW_OP_breg19:
7125 case DW_OP_breg20:
7126 case DW_OP_breg21:
7127 case DW_OP_breg22:
7128 case DW_OP_breg23:
7129 case DW_OP_breg24:
7130 case DW_OP_breg25:
7131 case DW_OP_breg26:
7132 case DW_OP_breg27:
7133 case DW_OP_breg28:
7134 case DW_OP_breg29:
7135 case DW_OP_breg30:
7136 case DW_OP_breg31:
7137 printf ("DW_OP_breg%d: %ld", op - DW_OP_breg0,
7138 read_leb128 (data, &bytes_read, 1));
7139 data += bytes_read;
7140 break;
7142 case DW_OP_regx:
7143 printf ("DW_OP_regx: %lu", read_leb128 (data, &bytes_read, 0));
7144 data += bytes_read;
7145 break;
7146 case DW_OP_fbreg:
7147 printf ("DW_OP_fbreg: %ld", read_leb128 (data, &bytes_read, 1));
7148 data += bytes_read;
7149 break;
7150 case DW_OP_bregx:
7151 uvalue = read_leb128 (data, &bytes_read, 0);
7152 data += bytes_read;
7153 printf ("DW_OP_bregx: %lu %ld", uvalue,
7154 read_leb128 (data, &bytes_read, 1));
7155 data += bytes_read;
7156 break;
7157 case DW_OP_piece:
7158 printf ("DW_OP_piece: %lu", read_leb128 (data, &bytes_read, 0));
7159 data += bytes_read;
7160 break;
7161 case DW_OP_deref_size:
7162 printf ("DW_OP_deref_size: %ld", (long) byte_get (data++, 1));
7163 break;
7164 case DW_OP_xderef_size:
7165 printf ("DW_OP_xderef_size: %ld", (long) byte_get (data++, 1));
7166 break;
7167 case DW_OP_nop:
7168 printf ("DW_OP_nop");
7169 break;
7171 /* DWARF 2.1 extensions. */
7172 case DW_OP_push_object_address:
7173 printf ("DW_OP_push_object_address");
7174 break;
7175 case DW_OP_call2:
7176 printf ("DW_OP_call2: <%lx>", (long) byte_get (data, 2));
7177 data += 2;
7178 break;
7179 case DW_OP_call4:
7180 printf ("DW_OP_call4: <%lx>", (long) byte_get (data, 4));
7181 data += 4;
7182 break;
7183 case DW_OP_calli:
7184 printf ("DW_OP_calli");
7185 break;
7187 default:
7188 if (op >= DW_OP_lo_user
7189 && op <= DW_OP_hi_user)
7190 printf (_("(User defined location op)"));
7191 else
7192 printf (_("(Unknown location op)"));
7193 /* No way to tell where the next op is, so just bail. */
7194 return;
7197 /* Separate the ops. */
7198 printf ("; ");
7202 static const char * debug_loc_contents;
7203 static bfd_vma debug_loc_size;
7205 static void
7206 load_debug_loc (file)
7207 FILE * file;
7209 Elf32_Internal_Shdr * sec;
7210 unsigned int i;
7212 /* If it is already loaded, do nothing. */
7213 if (debug_loc_contents != NULL)
7214 return;
7216 /* Locate the .debug_loc section. */
7217 for (i = 0, sec = section_headers;
7218 i < elf_header.e_shnum;
7219 i ++, sec ++)
7220 if (strcmp (SECTION_NAME (sec), ".debug_loc") == 0)
7221 break;
7223 if (i == elf_header.e_shnum || sec->sh_size == 0)
7224 return;
7226 debug_loc_size = sec->sh_size;
7228 debug_loc_contents = ((char *)
7229 get_data (NULL, file, sec->sh_offset, sec->sh_size,
7230 _("debug_loc section data")));
7233 static void
7234 free_debug_loc ()
7236 if (debug_loc_contents == NULL)
7237 return;
7239 free ((char *) debug_loc_contents);
7240 debug_loc_contents = NULL;
7241 debug_loc_size = 0;
7245 static int
7246 display_debug_loc (section, start, file)
7247 Elf32_Internal_Shdr * section;
7248 unsigned char * start;
7249 FILE * file ATTRIBUTE_UNUSED;
7251 unsigned char *section_end;
7252 unsigned long bytes;
7253 unsigned char *section_begin = start;
7254 bfd_vma addr;
7256 addr = section->sh_addr;
7257 bytes = section->sh_size;
7258 section_end = start + bytes;
7259 if (bytes == 0)
7261 printf (_("\nThe .debug_loc section is empty.\n"));
7262 return 0;
7264 printf (_("Contents of the .debug_loc section:\n\n"));
7265 printf (_("\n Offset Begin End Expression\n"));
7266 while (start < section_end)
7268 unsigned long begin;
7269 unsigned long end;
7270 unsigned short length;
7271 unsigned long offset;
7273 offset = start - section_begin;
7275 while (1)
7277 /* Normally, the lists in the debug_loc section are related to a
7278 given compilation unit, and thus, we would use the
7279 pointer size of that compilation unit. However, since we are
7280 displaying it seperately here, we either have to store
7281 pointer sizes of all compilation units, or assume they don't
7282 change. We assume, like the debug_line display, that
7283 it doesn't change. */
7284 begin = byte_get (start, debug_line_pointer_size);
7285 start += debug_line_pointer_size;
7286 end = byte_get (start, debug_line_pointer_size);
7287 start += debug_line_pointer_size;
7289 if (begin == 0 && end == 0)
7290 break;
7292 begin += addr;
7293 end += addr;
7295 length = byte_get (start, 2);
7296 start += 2;
7298 printf (" %8.8lx %8.8lx %8.8lx (", offset, begin, end);
7299 decode_location_expression (start, debug_line_pointer_size, length);
7300 printf (")\n");
7302 start += length;
7304 printf ("\n");
7306 return 1;
7309 static const char * debug_str_contents;
7310 static bfd_vma debug_str_size;
7312 static void
7313 load_debug_str (file)
7314 FILE * file;
7316 Elf32_Internal_Shdr * sec;
7317 unsigned int i;
7319 /* If it is already loaded, do nothing. */
7320 if (debug_str_contents != NULL)
7321 return;
7323 /* Locate the .debug_str section. */
7324 for (i = 0, sec = section_headers;
7325 i < elf_header.e_shnum;
7326 i ++, sec ++)
7327 if (strcmp (SECTION_NAME (sec), ".debug_str") == 0)
7328 break;
7330 if (i == elf_header.e_shnum || sec->sh_size == 0)
7331 return;
7333 debug_str_size = sec->sh_size;
7335 debug_str_contents = ((char *)
7336 get_data (NULL, file, sec->sh_offset, sec->sh_size,
7337 _("debug_str section data")));
7340 static void
7341 free_debug_str ()
7343 if (debug_str_contents == NULL)
7344 return;
7346 free ((char *) debug_str_contents);
7347 debug_str_contents = NULL;
7348 debug_str_size = 0;
7351 static const char *
7352 fetch_indirect_string (offset)
7353 unsigned long offset;
7355 if (debug_str_contents == NULL)
7356 return _("<no .debug_str section>");
7358 if (offset > debug_str_size)
7359 return _("<offset is too big>");
7361 return debug_str_contents + offset;
7365 static int
7366 display_debug_str (section, start, file)
7367 Elf32_Internal_Shdr * section;
7368 unsigned char * start;
7369 FILE * file ATTRIBUTE_UNUSED;
7371 unsigned long bytes;
7372 bfd_vma addr;
7374 addr = section->sh_addr;
7375 bytes = section->sh_size;
7377 if (bytes == 0)
7379 printf (_("\nThe .debug_str section is empty.\n"));
7380 return 0;
7383 printf (_("Contents of the .debug_str section:\n\n"));
7385 while (bytes)
7387 int j;
7388 int k;
7389 int lbytes;
7391 lbytes = (bytes > 16 ? 16 : bytes);
7393 printf (" 0x%8.8lx ", (unsigned long) addr);
7395 for (j = 0; j < 16; j++)
7397 if (j < lbytes)
7398 printf ("%2.2x", start [j]);
7399 else
7400 printf (" ");
7402 if ((j & 3) == 3)
7403 printf (" ");
7406 for (j = 0; j < lbytes; j++)
7408 k = start [j];
7409 if (k >= ' ' && k < 0x80)
7410 printf ("%c", k);
7411 else
7412 printf (".");
7415 putchar ('\n');
7417 start += lbytes;
7418 addr += lbytes;
7419 bytes -= lbytes;
7422 return 1;
7426 static unsigned char *
7427 read_and_display_attr_value (attribute, form, data, cu_offset, pointer_size)
7428 unsigned long attribute;
7429 unsigned long form;
7430 unsigned char * data;
7431 unsigned long cu_offset;
7432 unsigned long pointer_size;
7434 unsigned long uvalue = 0;
7435 unsigned char * block_start = NULL;
7436 int bytes_read;
7438 switch (form)
7440 default:
7441 break;
7443 case DW_FORM_ref_addr:
7444 case DW_FORM_addr:
7445 uvalue = byte_get (data, pointer_size);
7446 data += pointer_size;
7447 break;
7449 case DW_FORM_strp:
7450 uvalue = byte_get (data, /* offset_size */ 4);
7451 data += /* offset_size */ 4;
7452 break;
7454 case DW_FORM_ref1:
7455 case DW_FORM_flag:
7456 case DW_FORM_data1:
7457 uvalue = byte_get (data ++, 1);
7458 break;
7460 case DW_FORM_ref2:
7461 case DW_FORM_data2:
7462 uvalue = byte_get (data, 2);
7463 data += 2;
7464 break;
7466 case DW_FORM_ref4:
7467 case DW_FORM_data4:
7468 uvalue = byte_get (data, 4);
7469 data += 4;
7470 break;
7472 case DW_FORM_sdata:
7473 uvalue = read_leb128 (data, & bytes_read, 1);
7474 data += bytes_read;
7475 break;
7477 case DW_FORM_ref_udata:
7478 case DW_FORM_udata:
7479 uvalue = read_leb128 (data, & bytes_read, 0);
7480 data += bytes_read;
7481 break;
7483 case DW_FORM_indirect:
7484 form = read_leb128 (data, & bytes_read, 0);
7485 data += bytes_read;
7486 printf (" %s", get_FORM_name (form));
7487 return read_and_display_attr_value (attribute, form, data, cu_offset,
7488 pointer_size);
7491 switch (form)
7493 case DW_FORM_ref_addr:
7494 printf (" <#%lx>", uvalue);
7495 break;
7497 case DW_FORM_ref1:
7498 case DW_FORM_ref2:
7499 case DW_FORM_ref4:
7500 case DW_FORM_ref_udata:
7501 printf (" <%lx>", uvalue + cu_offset);
7502 break;
7504 case DW_FORM_addr:
7505 printf (" %#lx", uvalue);
7507 case DW_FORM_flag:
7508 case DW_FORM_data1:
7509 case DW_FORM_data2:
7510 case DW_FORM_data4:
7511 case DW_FORM_sdata:
7512 case DW_FORM_udata:
7513 printf (" %ld", uvalue);
7514 break;
7516 case DW_FORM_ref8:
7517 case DW_FORM_data8:
7518 uvalue = byte_get (data, 4);
7519 printf (" %lx", uvalue);
7520 printf (" %lx", (unsigned long) byte_get (data + 4, 4));
7521 data += 8;
7522 break;
7524 case DW_FORM_string:
7525 printf (" %s", data);
7526 data += strlen ((char *) data) + 1;
7527 break;
7529 case DW_FORM_block:
7530 uvalue = read_leb128 (data, & bytes_read, 0);
7531 block_start = data + bytes_read;
7532 data = display_block (block_start, uvalue);
7533 break;
7535 case DW_FORM_block1:
7536 uvalue = byte_get (data, 1);
7537 block_start = data + 1;
7538 data = display_block (block_start, uvalue);
7539 break;
7541 case DW_FORM_block2:
7542 uvalue = byte_get (data, 2);
7543 block_start = data + 2;
7544 data = display_block (block_start, uvalue);
7545 break;
7547 case DW_FORM_block4:
7548 uvalue = byte_get (data, 4);
7549 block_start = data + 4;
7550 data = display_block (block_start, uvalue);
7551 break;
7553 case DW_FORM_strp:
7554 printf (_(" (indirect string, offset: 0x%lx): "), uvalue);
7555 printf (fetch_indirect_string (uvalue));
7556 break;
7558 case DW_FORM_indirect:
7559 /* Handled above. */
7560 break;
7562 default:
7563 warn (_("Unrecognized form: %d\n"), form);
7564 break;
7567 /* For some attributes we can display futher information. */
7569 printf ("\t");
7571 switch (attribute)
7573 case DW_AT_inline:
7574 switch (uvalue)
7576 case DW_INL_not_inlined: printf (_("(not inlined)")); break;
7577 case DW_INL_inlined: printf (_("(inlined)")); break;
7578 case DW_INL_declared_not_inlined: printf (_("(declared as inline but ignored)")); break;
7579 case DW_INL_declared_inlined: printf (_("(declared as inline and inlined)")); break;
7580 default: printf (_(" (Unknown inline attribute value: %lx)"), uvalue); break;
7582 break;
7584 case DW_AT_language:
7585 switch (uvalue)
7587 case DW_LANG_C: printf ("(non-ANSI C)"); break;
7588 case DW_LANG_C89: printf ("(ANSI C)"); break;
7589 case DW_LANG_C_plus_plus: printf ("(C++)"); break;
7590 case DW_LANG_Fortran77: printf ("(FORTRAN 77)"); break;
7591 case DW_LANG_Fortran90: printf ("(Fortran 90)"); break;
7592 case DW_LANG_Modula2: printf ("(Modula 2)"); break;
7593 case DW_LANG_Pascal83: printf ("(ANSI Pascal)"); break;
7594 case DW_LANG_Ada83: printf ("(Ada)"); break;
7595 case DW_LANG_Cobol74: printf ("(Cobol 74)"); break;
7596 case DW_LANG_Cobol85: printf ("(Cobol 85)"); break;
7597 /* DWARF 2.1 values. */
7598 case DW_LANG_C99: printf ("(ANSI C99)"); break;
7599 case DW_LANG_Ada95: printf ("(ADA 95)"); break;
7600 case DW_LANG_Fortran95: printf ("(Fortran 95)"); break;
7601 /* MIPS extension. */
7602 case DW_LANG_Mips_Assembler: printf ("(MIPS assembler)"); break;
7603 default: printf ("(Unknown: %lx)", uvalue); break;
7605 break;
7607 case DW_AT_encoding:
7608 switch (uvalue)
7610 case DW_ATE_void: printf ("(void)"); break;
7611 case DW_ATE_address: printf ("(machine address)"); break;
7612 case DW_ATE_boolean: printf ("(boolean)"); break;
7613 case DW_ATE_complex_float: printf ("(complex float)"); break;
7614 case DW_ATE_float: printf ("(float)"); break;
7615 case DW_ATE_signed: printf ("(signed)"); break;
7616 case DW_ATE_signed_char: printf ("(signed char)"); break;
7617 case DW_ATE_unsigned: printf ("(unsigned)"); break;
7618 case DW_ATE_unsigned_char: printf ("(unsigned char)"); break;
7619 /* DWARF 2.1 value. */
7620 case DW_ATE_imaginary_float: printf ("(imaginary float)"); break;
7621 default:
7622 if (uvalue >= DW_ATE_lo_user
7623 && uvalue <= DW_ATE_hi_user)
7624 printf ("(user defined type)");
7625 else
7626 printf ("(unknown type)");
7627 break;
7629 break;
7631 case DW_AT_accessibility:
7632 switch (uvalue)
7634 case DW_ACCESS_public: printf ("(public)"); break;
7635 case DW_ACCESS_protected: printf ("(protected)"); break;
7636 case DW_ACCESS_private: printf ("(private)"); break;
7637 default: printf ("(unknown accessibility)"); break;
7639 break;
7641 case DW_AT_visibility:
7642 switch (uvalue)
7644 case DW_VIS_local: printf ("(local)"); break;
7645 case DW_VIS_exported: printf ("(exported)"); break;
7646 case DW_VIS_qualified: printf ("(qualified)"); break;
7647 default: printf ("(unknown visibility)"); break;
7649 break;
7651 case DW_AT_virtuality:
7652 switch (uvalue)
7654 case DW_VIRTUALITY_none: printf ("(none)"); break;
7655 case DW_VIRTUALITY_virtual: printf ("(virtual)"); break;
7656 case DW_VIRTUALITY_pure_virtual:printf ("(pure_virtual)"); break;
7657 default: printf ("(unknown virtuality)"); break;
7659 break;
7661 case DW_AT_identifier_case:
7662 switch (uvalue)
7664 case DW_ID_case_sensitive: printf ("(case_sensitive)"); break;
7665 case DW_ID_up_case: printf ("(up_case)"); break;
7666 case DW_ID_down_case: printf ("(down_case)"); break;
7667 case DW_ID_case_insensitive: printf ("(case_insensitive)"); break;
7668 default: printf ("(unknown case)"); break;
7670 break;
7672 case DW_AT_calling_convention:
7673 switch (uvalue)
7675 case DW_CC_normal: printf ("(normal)"); break;
7676 case DW_CC_program: printf ("(program)"); break;
7677 case DW_CC_nocall: printf ("(nocall)"); break;
7678 default:
7679 if (uvalue >= DW_CC_lo_user
7680 && uvalue <= DW_CC_hi_user)
7681 printf ("(user defined)");
7682 else
7683 printf ("(unknown convention)");
7685 break;
7687 case DW_AT_ordering:
7688 switch (uvalue)
7690 case -1: printf ("(undefined)"); break;
7691 case 0: printf ("(row major)"); break;
7692 case 1: printf ("(column major)"); break;
7694 break;
7696 case DW_AT_frame_base:
7697 case DW_AT_location:
7698 case DW_AT_data_member_location:
7699 case DW_AT_vtable_elem_location:
7700 case DW_AT_allocated:
7701 case DW_AT_associated:
7702 case DW_AT_data_location:
7703 case DW_AT_stride:
7704 case DW_AT_upper_bound:
7705 case DW_AT_lower_bound:
7706 if (block_start)
7708 printf ("(");
7709 decode_location_expression (block_start, pointer_size, uvalue);
7710 printf (")");
7712 else if (form == DW_FORM_data4)
7714 printf ("(");
7715 printf ("location list");
7716 printf (")");
7718 break;
7720 default:
7721 break;
7724 return data;
7727 static unsigned char *
7728 read_and_display_attr (attribute, form, data, cu_offset, pointer_size)
7729 unsigned long attribute;
7730 unsigned long form;
7731 unsigned char * data;
7732 unsigned long cu_offset;
7733 unsigned long pointer_size;
7735 printf (" %-18s:", get_AT_name (attribute));
7736 data = read_and_display_attr_value (attribute, form, data, cu_offset,
7737 pointer_size);
7738 printf ("\n");
7739 return data;
7742 static int
7743 display_debug_info (section, start, file)
7744 Elf32_Internal_Shdr * section;
7745 unsigned char * start;
7746 FILE * file;
7748 unsigned char * end = start + section->sh_size;
7749 unsigned char * section_begin = start;
7751 printf (_("The section %s contains:\n\n"), SECTION_NAME (section));
7753 load_debug_str (file);
7754 load_debug_loc (file);
7756 while (start < end)
7758 DWARF2_External_CompUnit * external;
7759 DWARF2_Internal_CompUnit compunit;
7760 Elf32_Internal_Shdr * relsec;
7761 unsigned char * tags;
7762 unsigned int i;
7763 int level;
7764 unsigned long cu_offset;
7766 external = (DWARF2_External_CompUnit *) start;
7768 compunit.cu_length = BYTE_GET (external->cu_length);
7769 compunit.cu_version = BYTE_GET (external->cu_version);
7770 compunit.cu_abbrev_offset = BYTE_GET (external->cu_abbrev_offset);
7771 compunit.cu_pointer_size = BYTE_GET (external->cu_pointer_size);
7773 if (compunit.cu_length == 0xffffffff)
7775 warn (_("64-bit DWARF debug info is not supported yet.\n"));
7776 break;
7779 /* Check for RELA relocations in the abbrev_offset address, and
7780 apply them. */
7781 for (relsec = section_headers;
7782 relsec < section_headers + elf_header.e_shnum;
7783 ++relsec)
7785 unsigned long nrelas;
7786 Elf_Internal_Rela *rela, *rp;
7787 Elf32_Internal_Shdr *symsec;
7788 Elf_Internal_Sym *symtab;
7789 Elf_Internal_Sym *sym;
7791 if (relsec->sh_type != SHT_RELA
7792 || SECTION_HEADER (relsec->sh_info) != section)
7793 continue;
7795 if (!slurp_rela_relocs (file, relsec->sh_offset, relsec->sh_size,
7796 & rela, & nrelas))
7797 return 0;
7799 symsec = SECTION_HEADER (relsec->sh_link);
7800 symtab = GET_ELF_SYMBOLS (file, symsec);
7802 for (rp = rela; rp < rela + nrelas; ++rp)
7804 if (rp->r_offset
7805 != (bfd_vma) ((unsigned char *) &external->cu_abbrev_offset
7806 - section_begin))
7807 continue;
7809 if (is_32bit_elf)
7811 sym = symtab + ELF32_R_SYM (rp->r_info);
7813 if (ELF32_ST_TYPE (sym->st_info) != STT_SECTION)
7815 warn (_("Skipping unexpected symbol type %u\n"),
7816 ELF32_ST_TYPE (sym->st_info));
7817 continue;
7820 else
7822 sym = symtab + ELF64_R_SYM (rp->r_info);
7824 if (ELF64_ST_TYPE (sym->st_info) != STT_SECTION)
7826 warn (_("Skipping unexpected symbol type %u\n"),
7827 ELF64_ST_TYPE (sym->st_info));
7828 continue;
7832 compunit.cu_abbrev_offset += rp->r_addend;
7833 break;
7836 free (rela);
7837 break;
7840 tags = start + sizeof (* external);
7841 cu_offset = start - section_begin;
7842 start += compunit.cu_length + sizeof (external->cu_length);
7844 printf (_(" Compilation Unit @ %lx:\n"), cu_offset);
7845 printf (_(" Length: %ld\n"), compunit.cu_length);
7846 printf (_(" Version: %d\n"), compunit.cu_version);
7847 printf (_(" Abbrev Offset: %ld\n"), compunit.cu_abbrev_offset);
7848 printf (_(" Pointer Size: %d\n"), compunit.cu_pointer_size);
7850 if (compunit.cu_version != 2)
7852 warn (_("Only version 2 DWARF debug information is currently supported.\n"));
7853 continue;
7856 free_abbrevs ();
7858 /* Read in the abbrevs used by this compilation unit. */
7861 Elf32_Internal_Shdr * sec;
7862 unsigned char * begin;
7864 /* Locate the .debug_abbrev section and process it. */
7865 for (i = 0, sec = section_headers;
7866 i < elf_header.e_shnum;
7867 i ++, sec ++)
7868 if (strcmp (SECTION_NAME (sec), ".debug_abbrev") == 0)
7869 break;
7871 if (i == elf_header.e_shnum || sec->sh_size == 0)
7873 warn (_("Unable to locate .debug_abbrev section!\n"));
7874 return 0;
7877 begin = ((unsigned char *)
7878 get_data (NULL, file, sec->sh_offset, sec->sh_size,
7879 _("debug_abbrev section data")));
7880 if (!begin)
7881 return 0;
7883 process_abbrev_section (begin + compunit.cu_abbrev_offset,
7884 begin + sec->sh_size);
7886 free (begin);
7889 level = 0;
7890 while (tags < start)
7892 int bytes_read;
7893 unsigned long abbrev_number;
7894 abbrev_entry * entry;
7895 abbrev_attr * attr;
7897 abbrev_number = read_leb128 (tags, & bytes_read, 0);
7898 tags += bytes_read;
7900 /* A null DIE marks the end of a list of children. */
7901 if (abbrev_number == 0)
7903 --level;
7904 continue;
7907 /* Scan through the abbreviation list until we reach the
7908 correct entry. */
7909 for (entry = first_abbrev;
7910 entry && entry->entry != abbrev_number;
7911 entry = entry->next)
7912 continue;
7914 if (entry == NULL)
7916 warn (_("Unable to locate entry %lu in the abbreviation table\n"),
7917 abbrev_number);
7918 return 0;
7921 printf (_(" <%d><%lx>: Abbrev Number: %lu (%s)\n"),
7922 level,
7923 (unsigned long) (tags - section_begin - bytes_read),
7924 abbrev_number,
7925 get_TAG_name (entry->tag));
7927 for (attr = entry->first_attr; attr; attr = attr->next)
7928 tags = read_and_display_attr (attr->attribute,
7929 attr->form,
7930 tags, cu_offset,
7931 compunit.cu_pointer_size);
7933 if (entry->children)
7934 ++level;
7938 free_debug_str ();
7939 free_debug_loc ();
7941 printf ("\n");
7943 return 1;
7946 static int
7947 display_debug_aranges (section, start, file)
7948 Elf32_Internal_Shdr * section;
7949 unsigned char * start;
7950 FILE * file ATTRIBUTE_UNUSED;
7952 unsigned char * end = start + section->sh_size;
7954 printf (_("The section %s contains:\n\n"), SECTION_NAME (section));
7956 while (start < end)
7958 DWARF2_External_ARange * external;
7959 DWARF2_Internal_ARange arange;
7960 unsigned char * ranges;
7961 unsigned long length;
7962 unsigned long address;
7963 int excess;
7965 external = (DWARF2_External_ARange *) start;
7967 arange.ar_length = BYTE_GET (external->ar_length);
7968 arange.ar_version = BYTE_GET (external->ar_version);
7969 arange.ar_info_offset = BYTE_GET (external->ar_info_offset);
7970 arange.ar_pointer_size = BYTE_GET (external->ar_pointer_size);
7971 arange.ar_segment_size = BYTE_GET (external->ar_segment_size);
7973 if (arange.ar_length == 0xffffffff)
7975 warn (_("64-bit DWARF aranges are not supported yet.\n"));
7976 break;
7979 if (arange.ar_version != 2)
7981 warn (_("Only DWARF 2 aranges are currently supported.\n"));
7982 break;
7985 printf (_(" Length: %ld\n"), arange.ar_length);
7986 printf (_(" Version: %d\n"), arange.ar_version);
7987 printf (_(" Offset into .debug_info: %lx\n"), arange.ar_info_offset);
7988 printf (_(" Pointer Size: %d\n"), arange.ar_pointer_size);
7989 printf (_(" Segment Size: %d\n"), arange.ar_segment_size);
7991 printf (_("\n Address Length\n"));
7993 ranges = start + sizeof (* external);
7995 /* Must pad to an alignment boundary that is twice the pointer size. */
7996 excess = sizeof (* external) % (2 * arange.ar_pointer_size);
7997 if (excess)
7998 ranges += (2 * arange.ar_pointer_size) - excess;
8000 for (;;)
8002 address = byte_get (ranges, arange.ar_pointer_size);
8004 ranges += arange.ar_pointer_size;
8006 length = byte_get (ranges, arange.ar_pointer_size);
8008 ranges += arange.ar_pointer_size;
8010 /* A pair of zeros marks the end of the list. */
8011 if (address == 0 && length == 0)
8012 break;
8014 printf (" %8.8lx %lu\n", address, length);
8017 start += arange.ar_length + sizeof (external->ar_length);
8020 printf ("\n");
8022 return 1;
8025 typedef struct Frame_Chunk
8027 struct Frame_Chunk * next;
8028 unsigned char * chunk_start;
8029 int ncols;
8030 /* DW_CFA_{undefined,same_value,offset,register,unreferenced} */
8031 short int * col_type;
8032 int * col_offset;
8033 char * augmentation;
8034 unsigned int code_factor;
8035 int data_factor;
8036 unsigned long pc_begin;
8037 unsigned long pc_range;
8038 int cfa_reg;
8039 int cfa_offset;
8040 int ra;
8041 unsigned char fde_encoding;
8043 Frame_Chunk;
8045 /* A marker for a col_type that means this column was never referenced
8046 in the frame info. */
8047 #define DW_CFA_unreferenced (-1)
8049 static void frame_need_space PARAMS ((Frame_Chunk *, int));
8050 static void frame_display_row PARAMS ((Frame_Chunk *, int *, int *));
8051 static int size_of_encoded_value PARAMS ((int));
8053 static void
8054 frame_need_space (fc, reg)
8055 Frame_Chunk * fc;
8056 int reg;
8058 int prev = fc->ncols;
8060 if (reg < fc->ncols)
8061 return;
8063 fc->ncols = reg + 1;
8064 fc->col_type = (short int *) xrealloc (fc->col_type,
8065 fc->ncols * sizeof (short int));
8066 fc->col_offset = (int *) xrealloc (fc->col_offset,
8067 fc->ncols * sizeof (int));
8069 while (prev < fc->ncols)
8071 fc->col_type[prev] = DW_CFA_unreferenced;
8072 fc->col_offset[prev] = 0;
8073 prev++;
8077 static void
8078 frame_display_row (fc, need_col_headers, max_regs)
8079 Frame_Chunk * fc;
8080 int * need_col_headers;
8081 int * max_regs;
8083 int r;
8084 char tmp[100];
8086 if (* max_regs < fc->ncols)
8087 * max_regs = fc->ncols;
8089 if (* need_col_headers)
8091 * need_col_headers = 0;
8093 printf (" LOC CFA ");
8095 for (r = 0; r < * max_regs; r++)
8096 if (fc->col_type[r] != DW_CFA_unreferenced)
8098 if (r == fc->ra)
8099 printf ("ra ");
8100 else
8101 printf ("r%-4d", r);
8104 printf ("\n");
8107 printf ("%08lx ", fc->pc_begin);
8108 sprintf (tmp, "r%d%+d", fc->cfa_reg, fc->cfa_offset);
8109 printf ("%-8s ", tmp);
8111 for (r = 0; r < fc->ncols; r++)
8113 if (fc->col_type[r] != DW_CFA_unreferenced)
8115 switch (fc->col_type[r])
8117 case DW_CFA_undefined:
8118 strcpy (tmp, "u");
8119 break;
8120 case DW_CFA_same_value:
8121 strcpy (tmp, "s");
8122 break;
8123 case DW_CFA_offset:
8124 sprintf (tmp, "c%+d", fc->col_offset[r]);
8125 break;
8126 case DW_CFA_register:
8127 sprintf (tmp, "r%d", fc->col_offset[r]);
8128 break;
8129 default:
8130 strcpy (tmp, "n/a");
8131 break;
8133 printf ("%-5s", tmp);
8136 printf ("\n");
8139 static int
8140 size_of_encoded_value (encoding)
8141 int encoding;
8143 switch (encoding & 0x7)
8145 default: /* ??? */
8146 case 0: return is_32bit_elf ? 4 : 8;
8147 case 2: return 2;
8148 case 3: return 4;
8149 case 4: return 8;
8153 #define GET(N) byte_get (start, N); start += N
8154 #define LEB() read_leb128 (start, & length_return, 0); start += length_return
8155 #define SLEB() read_leb128 (start, & length_return, 1); start += length_return
8157 static int
8158 display_debug_frames (section, start, file)
8159 Elf32_Internal_Shdr * section;
8160 unsigned char * start;
8161 FILE * file ATTRIBUTE_UNUSED;
8163 unsigned char * end = start + section->sh_size;
8164 unsigned char * section_start = start;
8165 Frame_Chunk * chunks = 0;
8166 Frame_Chunk * remembered_state = 0;
8167 Frame_Chunk * rs;
8168 int is_eh = (strcmp (SECTION_NAME (section), ".eh_frame") == 0);
8169 int length_return;
8170 int max_regs = 0;
8171 int addr_size = is_32bit_elf ? 4 : 8;
8173 printf (_("The section %s contains:\n"), SECTION_NAME (section));
8175 while (start < end)
8177 unsigned char * saved_start;
8178 unsigned char * block_end;
8179 unsigned long length;
8180 unsigned long cie_id;
8181 Frame_Chunk * fc;
8182 Frame_Chunk * cie;
8183 int need_col_headers = 1;
8184 unsigned char * augmentation_data = NULL;
8185 unsigned long augmentation_data_len = 0;
8186 int encoded_ptr_size = addr_size;
8188 saved_start = start;
8189 length = byte_get (start, 4); start += 4;
8191 if (length == 0)
8192 return 1;
8194 if (length == 0xffffffff)
8196 warn (_("64-bit DWARF format frames are not supported yet.\n"));
8197 break;
8200 block_end = saved_start + length + 4;
8201 cie_id = byte_get (start, 4); start += 4;
8203 if (is_eh ? (cie_id == 0) : (cie_id == DW_CIE_ID))
8205 int version;
8207 fc = (Frame_Chunk *) xmalloc (sizeof (Frame_Chunk));
8208 memset (fc, 0, sizeof (Frame_Chunk));
8210 fc->next = chunks;
8211 chunks = fc;
8212 fc->chunk_start = saved_start;
8213 fc->ncols = 0;
8214 fc->col_type = (short int *) xmalloc (sizeof (short int));
8215 fc->col_offset = (int *) xmalloc (sizeof (int));
8216 frame_need_space (fc, max_regs-1);
8218 version = *start++;
8220 fc->augmentation = start;
8221 start = strchr (start, '\0') + 1;
8223 if (fc->augmentation[0] == 'z')
8225 fc->code_factor = LEB ();
8226 fc->data_factor = SLEB ();
8227 fc->ra = byte_get (start, 1); start += 1;
8228 augmentation_data_len = LEB ();
8229 augmentation_data = start;
8230 start += augmentation_data_len;
8232 else if (strcmp (fc->augmentation, "eh") == 0)
8234 start += addr_size;
8235 fc->code_factor = LEB ();
8236 fc->data_factor = SLEB ();
8237 fc->ra = byte_get (start, 1); start += 1;
8239 else
8241 fc->code_factor = LEB ();
8242 fc->data_factor = SLEB ();
8243 fc->ra = byte_get (start, 1); start += 1;
8245 cie = fc;
8247 if (do_debug_frames_interp)
8248 printf ("\n%08lx %08lx %08lx CIE \"%s\" cf=%d df=%d ra=%d\n",
8249 (unsigned long)(saved_start - section_start), length, cie_id,
8250 fc->augmentation, fc->code_factor, fc->data_factor,
8251 fc->ra);
8252 else
8254 printf ("\n%08lx %08lx %08lx CIE\n",
8255 (unsigned long)(saved_start - section_start), length, cie_id);
8256 printf (" Version: %d\n", version);
8257 printf (" Augmentation: \"%s\"\n", fc->augmentation);
8258 printf (" Code alignment factor: %u\n", fc->code_factor);
8259 printf (" Data alignment factor: %d\n", fc->data_factor);
8260 printf (" Return address column: %d\n", fc->ra);
8262 if (augmentation_data_len)
8264 unsigned long i;
8265 printf (" Augmentation data: ");
8266 for (i = 0; i < augmentation_data_len; ++i)
8267 printf (" %02x", augmentation_data[i]);
8268 putchar ('\n');
8270 putchar ('\n');
8273 if (augmentation_data_len)
8275 unsigned char *p, *q;
8276 p = fc->augmentation + 1;
8277 q = augmentation_data;
8279 while (1)
8281 if (*p == 'L')
8282 q++;
8283 else if (*p == 'P')
8284 q += 1 + size_of_encoded_value (*q);
8285 else if (*p == 'R')
8286 fc->fde_encoding = *q++;
8287 else
8288 break;
8289 p++;
8292 if (fc->fde_encoding)
8293 encoded_ptr_size = size_of_encoded_value (fc->fde_encoding);
8296 frame_need_space (fc, fc->ra);
8298 else
8300 unsigned char * look_for;
8301 static Frame_Chunk fde_fc;
8303 fc = & fde_fc;
8304 memset (fc, 0, sizeof (Frame_Chunk));
8306 look_for = is_eh ? start - 4 - cie_id : section_start + cie_id;
8308 for (cie = chunks; cie ; cie = cie->next)
8309 if (cie->chunk_start == look_for)
8310 break;
8312 if (!cie)
8314 warn ("Invalid CIE pointer %08lx in FDE at %08lx\n",
8315 cie_id, saved_start);
8316 start = block_end;
8317 fc->ncols = 0;
8318 fc->col_type = (short int *) xmalloc (sizeof (short int));
8319 fc->col_offset = (int *) xmalloc (sizeof (int));
8320 frame_need_space (fc, max_regs - 1);
8321 cie = fc;
8322 fc->augmentation = "";
8323 fc->fde_encoding = 0;
8325 else
8327 fc->ncols = cie->ncols;
8328 fc->col_type = (short int *) xmalloc (fc->ncols * sizeof (short int));
8329 fc->col_offset = (int *) xmalloc (fc->ncols * sizeof (int));
8330 memcpy (fc->col_type, cie->col_type, fc->ncols * sizeof (short int));
8331 memcpy (fc->col_offset, cie->col_offset, fc->ncols * sizeof (int));
8332 fc->augmentation = cie->augmentation;
8333 fc->code_factor = cie->code_factor;
8334 fc->data_factor = cie->data_factor;
8335 fc->cfa_reg = cie->cfa_reg;
8336 fc->cfa_offset = cie->cfa_offset;
8337 fc->ra = cie->ra;
8338 frame_need_space (fc, max_regs-1);
8339 fc->fde_encoding = cie->fde_encoding;
8342 if (fc->fde_encoding)
8343 encoded_ptr_size = size_of_encoded_value (fc->fde_encoding);
8345 fc->pc_begin = byte_get (start, encoded_ptr_size);
8346 start += encoded_ptr_size;
8347 fc->pc_range = byte_get (start, encoded_ptr_size);
8348 start += encoded_ptr_size;
8350 if (cie->augmentation[0] == 'z')
8352 augmentation_data_len = LEB ();
8353 augmentation_data = start;
8354 start += augmentation_data_len;
8357 printf ("\n%08lx %08lx %08lx FDE cie=%08lx pc=%08lx..%08lx\n",
8358 (unsigned long)(saved_start - section_start), length, cie_id,
8359 (unsigned long)(cie->chunk_start - section_start),
8360 fc->pc_begin, fc->pc_begin + fc->pc_range);
8361 if (! do_debug_frames_interp && augmentation_data_len)
8363 unsigned long i;
8364 printf (" Augmentation data: ");
8365 for (i = 0; i < augmentation_data_len; ++i)
8366 printf (" %02x", augmentation_data[i]);
8367 putchar ('\n');
8368 putchar ('\n');
8372 /* At this point, fc is the current chunk, cie (if any) is set, and we're
8373 about to interpret instructions for the chunk. */
8375 if (do_debug_frames_interp)
8377 /* Start by making a pass over the chunk, allocating storage
8378 and taking note of what registers are used. */
8379 unsigned char * tmp = start;
8381 while (start < block_end)
8383 unsigned op, opa;
8384 unsigned long reg;
8386 op = * start ++;
8387 opa = op & 0x3f;
8388 if (op & 0xc0)
8389 op &= 0xc0;
8391 /* Warning: if you add any more cases to this switch, be
8392 sure to add them to the corresponding switch below. */
8393 switch (op)
8395 case DW_CFA_advance_loc:
8396 break;
8397 case DW_CFA_offset:
8398 LEB ();
8399 frame_need_space (fc, opa);
8400 fc->col_type[opa] = DW_CFA_undefined;
8401 break;
8402 case DW_CFA_restore:
8403 frame_need_space (fc, opa);
8404 fc->col_type[opa] = DW_CFA_undefined;
8405 break;
8406 case DW_CFA_set_loc:
8407 start += encoded_ptr_size;
8408 break;
8409 case DW_CFA_advance_loc1:
8410 start += 1;
8411 break;
8412 case DW_CFA_advance_loc2:
8413 start += 2;
8414 break;
8415 case DW_CFA_advance_loc4:
8416 start += 4;
8417 break;
8418 case DW_CFA_offset_extended:
8419 reg = LEB (); LEB ();
8420 frame_need_space (fc, reg);
8421 fc->col_type[reg] = DW_CFA_undefined;
8422 break;
8423 case DW_CFA_restore_extended:
8424 reg = LEB ();
8425 frame_need_space (fc, reg);
8426 fc->col_type[reg] = DW_CFA_undefined;
8427 break;
8428 case DW_CFA_undefined:
8429 reg = LEB ();
8430 frame_need_space (fc, reg);
8431 fc->col_type[reg] = DW_CFA_undefined;
8432 break;
8433 case DW_CFA_same_value:
8434 reg = LEB ();
8435 frame_need_space (fc, reg);
8436 fc->col_type[reg] = DW_CFA_undefined;
8437 break;
8438 case DW_CFA_register:
8439 reg = LEB (); LEB ();
8440 frame_need_space (fc, reg);
8441 fc->col_type[reg] = DW_CFA_undefined;
8442 break;
8443 case DW_CFA_def_cfa:
8444 LEB (); LEB ();
8445 break;
8446 case DW_CFA_def_cfa_register:
8447 LEB ();
8448 break;
8449 case DW_CFA_def_cfa_offset:
8450 LEB ();
8451 break;
8452 #ifndef DW_CFA_GNU_args_size
8453 #define DW_CFA_GNU_args_size 0x2e
8454 #endif
8455 case DW_CFA_GNU_args_size:
8456 LEB ();
8457 break;
8458 #ifndef DW_CFA_GNU_negative_offset_extended
8459 #define DW_CFA_GNU_negative_offset_extended 0x2f
8460 #endif
8461 case DW_CFA_GNU_negative_offset_extended:
8462 reg = LEB (); LEB ();
8463 frame_need_space (fc, reg);
8464 fc->col_type[reg] = DW_CFA_undefined;
8466 default:
8467 break;
8470 start = tmp;
8473 /* Now we know what registers are used, make a second pass over
8474 the chunk, this time actually printing out the info. */
8476 while (start < block_end)
8478 unsigned op, opa;
8479 unsigned long ul, reg, roffs;
8480 long l, ofs;
8481 bfd_vma vma;
8483 op = * start ++;
8484 opa = op & 0x3f;
8485 if (op & 0xc0)
8486 op &= 0xc0;
8488 /* Warning: if you add any more cases to this switch, be
8489 sure to add them to the corresponding switch above. */
8490 switch (op)
8492 case DW_CFA_advance_loc:
8493 if (do_debug_frames_interp)
8494 frame_display_row (fc, &need_col_headers, &max_regs);
8495 else
8496 printf (" DW_CFA_advance_loc: %d to %08lx\n",
8497 opa * fc->code_factor,
8498 fc->pc_begin + opa * fc->code_factor);
8499 fc->pc_begin += opa * fc->code_factor;
8500 break;
8502 case DW_CFA_offset:
8503 roffs = LEB ();
8504 if (! do_debug_frames_interp)
8505 printf (" DW_CFA_offset: r%d at cfa%+ld\n",
8506 opa, roffs * fc->data_factor);
8507 fc->col_type[opa] = DW_CFA_offset;
8508 fc->col_offset[opa] = roffs * fc->data_factor;
8509 break;
8511 case DW_CFA_restore:
8512 if (! do_debug_frames_interp)
8513 printf (" DW_CFA_restore: r%d\n", opa);
8514 fc->col_type[opa] = cie->col_type[opa];
8515 fc->col_offset[opa] = cie->col_offset[opa];
8516 break;
8518 case DW_CFA_set_loc:
8519 vma = byte_get (start, encoded_ptr_size);
8520 start += encoded_ptr_size;
8521 if (do_debug_frames_interp)
8522 frame_display_row (fc, &need_col_headers, &max_regs);
8523 else
8524 printf (" DW_CFA_set_loc: %08lx\n", (unsigned long)vma);
8525 fc->pc_begin = vma;
8526 break;
8528 case DW_CFA_advance_loc1:
8529 ofs = byte_get (start, 1); start += 1;
8530 if (do_debug_frames_interp)
8531 frame_display_row (fc, &need_col_headers, &max_regs);
8532 else
8533 printf (" DW_CFA_advance_loc1: %ld to %08lx\n",
8534 ofs * fc->code_factor,
8535 fc->pc_begin + ofs * fc->code_factor);
8536 fc->pc_begin += ofs * fc->code_factor;
8537 break;
8539 case DW_CFA_advance_loc2:
8540 ofs = byte_get (start, 2); start += 2;
8541 if (do_debug_frames_interp)
8542 frame_display_row (fc, &need_col_headers, &max_regs);
8543 else
8544 printf (" DW_CFA_advance_loc2: %ld to %08lx\n",
8545 ofs * fc->code_factor,
8546 fc->pc_begin + ofs * fc->code_factor);
8547 fc->pc_begin += ofs * fc->code_factor;
8548 break;
8550 case DW_CFA_advance_loc4:
8551 ofs = byte_get (start, 4); start += 4;
8552 if (do_debug_frames_interp)
8553 frame_display_row (fc, &need_col_headers, &max_regs);
8554 else
8555 printf (" DW_CFA_advance_loc4: %ld to %08lx\n",
8556 ofs * fc->code_factor,
8557 fc->pc_begin + ofs * fc->code_factor);
8558 fc->pc_begin += ofs * fc->code_factor;
8559 break;
8561 case DW_CFA_offset_extended:
8562 reg = LEB ();
8563 roffs = LEB ();
8564 if (! do_debug_frames_interp)
8565 printf (" DW_CFA_offset_extended: r%ld at cfa%+ld\n",
8566 reg, roffs * fc->data_factor);
8567 fc->col_type[reg] = DW_CFA_offset;
8568 fc->col_offset[reg] = roffs * fc->data_factor;
8569 break;
8571 case DW_CFA_restore_extended:
8572 reg = LEB ();
8573 if (! do_debug_frames_interp)
8574 printf (" DW_CFA_restore_extended: r%ld\n", reg);
8575 fc->col_type[reg] = cie->col_type[reg];
8576 fc->col_offset[reg] = cie->col_offset[reg];
8577 break;
8579 case DW_CFA_undefined:
8580 reg = LEB ();
8581 if (! do_debug_frames_interp)
8582 printf (" DW_CFA_undefined: r%ld\n", reg);
8583 fc->col_type[reg] = DW_CFA_undefined;
8584 fc->col_offset[reg] = 0;
8585 break;
8587 case DW_CFA_same_value:
8588 reg = LEB ();
8589 if (! do_debug_frames_interp)
8590 printf (" DW_CFA_same_value: r%ld\n", reg);
8591 fc->col_type[reg] = DW_CFA_same_value;
8592 fc->col_offset[reg] = 0;
8593 break;
8595 case DW_CFA_register:
8596 reg = LEB ();
8597 roffs = LEB ();
8598 if (! do_debug_frames_interp)
8599 printf (" DW_CFA_register: r%ld\n", reg);
8600 fc->col_type[reg] = DW_CFA_register;
8601 fc->col_offset[reg] = roffs;
8602 break;
8604 case DW_CFA_remember_state:
8605 if (! do_debug_frames_interp)
8606 printf (" DW_CFA_remember_state\n");
8607 rs = (Frame_Chunk *) xmalloc (sizeof (Frame_Chunk));
8608 rs->ncols = fc->ncols;
8609 rs->col_type = (short int *) xmalloc (rs->ncols * sizeof (short int));
8610 rs->col_offset = (int *) xmalloc (rs->ncols * sizeof (int));
8611 memcpy (rs->col_type, fc->col_type, rs->ncols);
8612 memcpy (rs->col_offset, fc->col_offset, rs->ncols * sizeof (int));
8613 rs->next = remembered_state;
8614 remembered_state = rs;
8615 break;
8617 case DW_CFA_restore_state:
8618 if (! do_debug_frames_interp)
8619 printf (" DW_CFA_restore_state\n");
8620 rs = remembered_state;
8621 remembered_state = rs->next;
8622 frame_need_space (fc, rs->ncols-1);
8623 memcpy (fc->col_type, rs->col_type, rs->ncols);
8624 memcpy (fc->col_offset, rs->col_offset, rs->ncols * sizeof (int));
8625 free (rs->col_type);
8626 free (rs->col_offset);
8627 free (rs);
8628 break;
8630 case DW_CFA_def_cfa:
8631 fc->cfa_reg = LEB ();
8632 fc->cfa_offset = LEB ();
8633 if (! do_debug_frames_interp)
8634 printf (" DW_CFA_def_cfa: r%d ofs %d\n",
8635 fc->cfa_reg, fc->cfa_offset);
8636 break;
8638 case DW_CFA_def_cfa_register:
8639 fc->cfa_reg = LEB ();
8640 if (! do_debug_frames_interp)
8641 printf (" DW_CFA_def_cfa_reg: r%d\n", fc->cfa_reg);
8642 break;
8644 case DW_CFA_def_cfa_offset:
8645 fc->cfa_offset = LEB ();
8646 if (! do_debug_frames_interp)
8647 printf (" DW_CFA_def_cfa_offset: %d\n", fc->cfa_offset);
8648 break;
8650 case DW_CFA_nop:
8651 if (! do_debug_frames_interp)
8652 printf (" DW_CFA_nop\n");
8653 break;
8655 #ifndef DW_CFA_GNU_window_save
8656 #define DW_CFA_GNU_window_save 0x2d
8657 #endif
8658 case DW_CFA_GNU_window_save:
8659 if (! do_debug_frames_interp)
8660 printf (" DW_CFA_GNU_window_save\n");
8661 break;
8663 case DW_CFA_GNU_args_size:
8664 ul = LEB ();
8665 if (! do_debug_frames_interp)
8666 printf (" DW_CFA_GNU_args_size: %ld\n", ul);
8667 break;
8669 case DW_CFA_GNU_negative_offset_extended:
8670 reg = LEB ();
8671 l = - LEB ();
8672 frame_need_space (fc, reg);
8673 if (! do_debug_frames_interp)
8674 printf (" DW_CFA_GNU_negative_offset_extended: r%ld at cfa%+ld\n",
8675 reg, l * fc->data_factor);
8676 fc->col_type[reg] = DW_CFA_offset;
8677 fc->col_offset[reg] = l * fc->data_factor;
8678 break;
8680 default:
8681 fprintf (stderr, "unsupported or unknown DW_CFA_%d\n", op);
8682 start = block_end;
8686 if (do_debug_frames_interp)
8687 frame_display_row (fc, &need_col_headers, &max_regs);
8689 start = block_end;
8692 printf ("\n");
8694 return 1;
8697 #undef GET
8698 #undef LEB
8699 #undef SLEB
8701 static int
8702 display_debug_not_supported (section, start, file)
8703 Elf32_Internal_Shdr * section;
8704 unsigned char * start ATTRIBUTE_UNUSED;
8705 FILE * file ATTRIBUTE_UNUSED;
8707 printf (_("Displaying the debug contents of section %s is not yet supported.\n"),
8708 SECTION_NAME (section));
8710 return 1;
8713 /* Pre-scan the .debug_info section to record the size of address.
8714 When dumping the .debug_line, we use that size information, assuming
8715 that all compilation units have the same address size. */
8716 static int
8717 prescan_debug_info (section, start, file)
8718 Elf32_Internal_Shdr * section ATTRIBUTE_UNUSED;
8719 unsigned char * start;
8720 FILE * file ATTRIBUTE_UNUSED;
8722 DWARF2_External_CompUnit * external;
8724 external = (DWARF2_External_CompUnit *) start;
8726 debug_line_pointer_size = BYTE_GET (external->cu_pointer_size);
8727 return 0;
8730 /* A structure containing the name of a debug section and a pointer
8731 to a function that can decode it. The third field is a prescan
8732 function to be run over the section before displaying any of the
8733 sections. */
8734 struct
8736 const char * const name;
8737 int (* display) PARAMS ((Elf32_Internal_Shdr *, unsigned char *, FILE *));
8738 int (* prescan) PARAMS ((Elf32_Internal_Shdr *, unsigned char *, FILE *));
8740 debug_displays[] =
8742 { ".debug_abbrev", display_debug_abbrev, NULL },
8743 { ".debug_aranges", display_debug_aranges, NULL },
8744 { ".debug_frame", display_debug_frames, NULL },
8745 { ".debug_info", display_debug_info, prescan_debug_info },
8746 { ".debug_line", display_debug_lines, NULL },
8747 { ".debug_pubnames", display_debug_pubnames, NULL },
8748 { ".eh_frame", display_debug_frames, NULL },
8749 { ".debug_macinfo", display_debug_macinfo, NULL },
8750 { ".debug_str", display_debug_str, NULL },
8751 { ".debug_loc", display_debug_loc, NULL },
8752 { ".debug_pubtypes", display_debug_not_supported, NULL },
8753 { ".debug_ranges", display_debug_not_supported, NULL },
8754 { ".debug_static_func", display_debug_not_supported, NULL },
8755 { ".debug_static_vars", display_debug_not_supported, NULL },
8756 { ".debug_types", display_debug_not_supported, NULL },
8757 { ".debug_weaknames", display_debug_not_supported, NULL }
8760 static int
8761 display_debug_section (section, file)
8762 Elf32_Internal_Shdr * section;
8763 FILE * file;
8765 char * name = SECTION_NAME (section);
8766 bfd_size_type length;
8767 unsigned char * start;
8768 int i;
8770 length = section->sh_size;
8771 if (length == 0)
8773 printf (_("\nSection '%s' has no debugging data.\n"), name);
8774 return 0;
8777 start = (unsigned char *) get_data (NULL, file, section->sh_offset, length,
8778 _("debug section data"));
8779 if (!start)
8780 return 0;
8782 /* See if we know how to display the contents of this section. */
8783 if (strncmp (name, ".gnu.linkonce.wi.", 17) == 0)
8784 name = ".debug_info";
8786 for (i = NUM_ELEM (debug_displays); i--;)
8787 if (strcmp (debug_displays[i].name, name) == 0)
8789 debug_displays[i].display (section, start, file);
8790 break;
8793 if (i == -1)
8794 printf (_("Unrecognized debug section: %s\n"), name);
8796 free (start);
8798 /* If we loaded in the abbrev section at some point,
8799 we must release it here. */
8800 free_abbrevs ();
8802 return 1;
8805 static int
8806 process_section_contents (file)
8807 FILE * file;
8809 Elf32_Internal_Shdr * section;
8810 unsigned int i;
8812 if (! do_dump)
8813 return 1;
8815 /* Pre-scan the debug sections to find some debug information not
8816 present in some of them. For the .debug_line, we must find out the
8817 size of address (specified in .debug_info and .debug_aranges). */
8818 for (i = 0, section = section_headers;
8819 i < elf_header.e_shnum && i < num_dump_sects;
8820 i ++, section ++)
8822 char * name = SECTION_NAME (section);
8823 int j;
8825 if (section->sh_size == 0)
8826 continue;
8828 /* See if there is some pre-scan operation for this section. */
8829 for (j = NUM_ELEM (debug_displays); j--;)
8830 if (strcmp (debug_displays[j].name, name) == 0)
8832 if (debug_displays[j].prescan != NULL)
8834 bfd_size_type length;
8835 unsigned char * start;
8837 length = section->sh_size;
8838 start = ((unsigned char *)
8839 get_data (NULL, file, section->sh_offset, length,
8840 _("debug section data")));
8841 if (!start)
8842 return 0;
8844 debug_displays[j].prescan (section, start, file);
8845 free (start);
8848 break;
8852 for (i = 0, section = section_headers;
8853 i < elf_header.e_shnum && i < num_dump_sects;
8854 i ++, section ++)
8856 #ifdef SUPPORT_DISASSEMBLY
8857 if (dump_sects[i] & DISASS_DUMP)
8858 disassemble_section (section, file);
8859 #endif
8860 if (dump_sects[i] & HEX_DUMP)
8861 dump_section (section, file);
8863 if (dump_sects[i] & DEBUG_DUMP)
8864 display_debug_section (section, file);
8867 if (i < num_dump_sects)
8868 warn (_("Some sections were not dumped because they do not exist!\n"));
8870 return 1;
8873 static void
8874 process_mips_fpe_exception (mask)
8875 int mask;
8877 if (mask)
8879 int first = 1;
8880 if (mask & OEX_FPU_INEX)
8881 fputs ("INEX", stdout), first = 0;
8882 if (mask & OEX_FPU_UFLO)
8883 printf ("%sUFLO", first ? "" : "|"), first = 0;
8884 if (mask & OEX_FPU_OFLO)
8885 printf ("%sOFLO", first ? "" : "|"), first = 0;
8886 if (mask & OEX_FPU_DIV0)
8887 printf ("%sDIV0", first ? "" : "|"), first = 0;
8888 if (mask & OEX_FPU_INVAL)
8889 printf ("%sINVAL", first ? "" : "|");
8891 else
8892 fputs ("0", stdout);
8895 static int
8896 process_mips_specific (file)
8897 FILE * file;
8899 Elf_Internal_Dyn * entry;
8900 size_t liblist_offset = 0;
8901 size_t liblistno = 0;
8902 size_t conflictsno = 0;
8903 size_t options_offset = 0;
8904 size_t conflicts_offset = 0;
8906 /* We have a lot of special sections. Thanks SGI! */
8907 if (dynamic_segment == NULL)
8908 /* No information available. */
8909 return 0;
8911 for (entry = dynamic_segment; entry->d_tag != DT_NULL; ++entry)
8912 switch (entry->d_tag)
8914 case DT_MIPS_LIBLIST:
8915 liblist_offset = entry->d_un.d_val - loadaddr;
8916 break;
8917 case DT_MIPS_LIBLISTNO:
8918 liblistno = entry->d_un.d_val;
8919 break;
8920 case DT_MIPS_OPTIONS:
8921 options_offset = entry->d_un.d_val - loadaddr;
8922 break;
8923 case DT_MIPS_CONFLICT:
8924 conflicts_offset = entry->d_un.d_val - loadaddr;
8925 break;
8926 case DT_MIPS_CONFLICTNO:
8927 conflictsno = entry->d_un.d_val;
8928 break;
8929 default:
8930 break;
8933 if (liblist_offset != 0 && liblistno != 0 && do_dynamic)
8935 Elf32_External_Lib * elib;
8936 size_t cnt;
8938 elib = ((Elf32_External_Lib *)
8939 get_data (NULL, file, liblist_offset,
8940 liblistno * sizeof (Elf32_External_Lib),
8941 _("liblist")));
8942 if (elib)
8944 printf ("\nSection '.liblist' contains %lu entries:\n",
8945 (unsigned long) liblistno);
8946 fputs (" Library Time Stamp Checksum Version Flags\n",
8947 stdout);
8949 for (cnt = 0; cnt < liblistno; ++cnt)
8951 Elf32_Lib liblist;
8952 time_t time;
8953 char timebuf[20];
8954 struct tm * tmp;
8956 liblist.l_name = BYTE_GET (elib[cnt].l_name);
8957 time = BYTE_GET (elib[cnt].l_time_stamp);
8958 liblist.l_checksum = BYTE_GET (elib[cnt].l_checksum);
8959 liblist.l_version = BYTE_GET (elib[cnt].l_version);
8960 liblist.l_flags = BYTE_GET (elib[cnt].l_flags);
8962 tmp = gmtime (&time);
8963 sprintf (timebuf, "%04u-%02u-%02uT%02u:%02u:%02u",
8964 tmp->tm_year + 1900, tmp->tm_mon + 1, tmp->tm_mday,
8965 tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
8967 printf ("%3lu: ", (unsigned long) cnt);
8968 print_symbol (20, dynamic_strings + liblist.l_name);
8969 printf (" %s %#10lx %-7ld", timebuf, liblist.l_checksum,
8970 liblist.l_version);
8972 if (liblist.l_flags == 0)
8973 puts (" NONE");
8974 else
8976 static const struct
8978 const char * name;
8979 int bit;
8981 l_flags_vals[] =
8983 { " EXACT_MATCH", LL_EXACT_MATCH },
8984 { " IGNORE_INT_VER", LL_IGNORE_INT_VER },
8985 { " REQUIRE_MINOR", LL_REQUIRE_MINOR },
8986 { " EXPORTS", LL_EXPORTS },
8987 { " DELAY_LOAD", LL_DELAY_LOAD },
8988 { " DELTA", LL_DELTA }
8990 int flags = liblist.l_flags;
8991 size_t fcnt;
8993 for (fcnt = 0;
8994 fcnt < sizeof (l_flags_vals) / sizeof (l_flags_vals[0]);
8995 ++fcnt)
8996 if ((flags & l_flags_vals[fcnt].bit) != 0)
8998 fputs (l_flags_vals[fcnt].name, stdout);
8999 flags ^= l_flags_vals[fcnt].bit;
9001 if (flags != 0)
9002 printf (" %#x", (unsigned int) flags);
9004 puts ("");
9008 free (elib);
9012 if (options_offset != 0)
9014 Elf_External_Options * eopt;
9015 Elf_Internal_Shdr * sect = section_headers;
9016 Elf_Internal_Options * iopt;
9017 Elf_Internal_Options * option;
9018 size_t offset;
9019 int cnt;
9021 /* Find the section header so that we get the size. */
9022 while (sect->sh_type != SHT_MIPS_OPTIONS)
9023 ++ sect;
9025 eopt = (Elf_External_Options *) get_data (NULL, file, options_offset,
9026 sect->sh_size, _("options"));
9027 if (eopt)
9029 iopt = ((Elf_Internal_Options *)
9030 malloc ((sect->sh_size / sizeof (eopt)) * sizeof (* iopt)));
9031 if (iopt == NULL)
9033 error (_("Out of memory"));
9034 return 0;
9037 offset = cnt = 0;
9038 option = iopt;
9040 while (offset < sect->sh_size)
9042 Elf_External_Options * eoption;
9044 eoption = (Elf_External_Options *) ((char *) eopt + offset);
9046 option->kind = BYTE_GET (eoption->kind);
9047 option->size = BYTE_GET (eoption->size);
9048 option->section = BYTE_GET (eoption->section);
9049 option->info = BYTE_GET (eoption->info);
9051 offset += option->size;
9053 ++option;
9054 ++cnt;
9057 printf (_("\nSection '%s' contains %d entries:\n"),
9058 SECTION_NAME (sect), cnt);
9060 option = iopt;
9062 while (cnt-- > 0)
9064 size_t len;
9066 switch (option->kind)
9068 case ODK_NULL:
9069 /* This shouldn't happen. */
9070 printf (" NULL %d %lx", option->section, option->info);
9071 break;
9072 case ODK_REGINFO:
9073 printf (" REGINFO ");
9074 if (elf_header.e_machine == EM_MIPS)
9076 /* 32bit form. */
9077 Elf32_External_RegInfo * ereg;
9078 Elf32_RegInfo reginfo;
9080 ereg = (Elf32_External_RegInfo *) (option + 1);
9081 reginfo.ri_gprmask = BYTE_GET (ereg->ri_gprmask);
9082 reginfo.ri_cprmask[0] = BYTE_GET (ereg->ri_cprmask[0]);
9083 reginfo.ri_cprmask[1] = BYTE_GET (ereg->ri_cprmask[1]);
9084 reginfo.ri_cprmask[2] = BYTE_GET (ereg->ri_cprmask[2]);
9085 reginfo.ri_cprmask[3] = BYTE_GET (ereg->ri_cprmask[3]);
9086 reginfo.ri_gp_value = BYTE_GET (ereg->ri_gp_value);
9088 printf ("GPR %08lx GP 0x%lx\n",
9089 reginfo.ri_gprmask,
9090 (unsigned long) reginfo.ri_gp_value);
9091 printf (" CPR0 %08lx CPR1 %08lx CPR2 %08lx CPR3 %08lx\n",
9092 reginfo.ri_cprmask[0], reginfo.ri_cprmask[1],
9093 reginfo.ri_cprmask[2], reginfo.ri_cprmask[3]);
9095 else
9097 /* 64 bit form. */
9098 Elf64_External_RegInfo * ereg;
9099 Elf64_Internal_RegInfo reginfo;
9101 ereg = (Elf64_External_RegInfo *) (option + 1);
9102 reginfo.ri_gprmask = BYTE_GET (ereg->ri_gprmask);
9103 reginfo.ri_cprmask[0] = BYTE_GET (ereg->ri_cprmask[0]);
9104 reginfo.ri_cprmask[1] = BYTE_GET (ereg->ri_cprmask[1]);
9105 reginfo.ri_cprmask[2] = BYTE_GET (ereg->ri_cprmask[2]);
9106 reginfo.ri_cprmask[3] = BYTE_GET (ereg->ri_cprmask[3]);
9107 reginfo.ri_gp_value = BYTE_GET8 (ereg->ri_gp_value);
9109 printf ("GPR %08lx GP 0x",
9110 reginfo.ri_gprmask);
9111 printf_vma (reginfo.ri_gp_value);
9112 printf ("\n");
9114 printf (" CPR0 %08lx CPR1 %08lx CPR2 %08lx CPR3 %08lx\n",
9115 reginfo.ri_cprmask[0], reginfo.ri_cprmask[1],
9116 reginfo.ri_cprmask[2], reginfo.ri_cprmask[3]);
9118 ++option;
9119 continue;
9120 case ODK_EXCEPTIONS:
9121 fputs (" EXCEPTIONS fpe_min(", stdout);
9122 process_mips_fpe_exception (option->info & OEX_FPU_MIN);
9123 fputs (") fpe_max(", stdout);
9124 process_mips_fpe_exception ((option->info & OEX_FPU_MAX) >> 8);
9125 fputs (")", stdout);
9127 if (option->info & OEX_PAGE0)
9128 fputs (" PAGE0", stdout);
9129 if (option->info & OEX_SMM)
9130 fputs (" SMM", stdout);
9131 if (option->info & OEX_FPDBUG)
9132 fputs (" FPDBUG", stdout);
9133 if (option->info & OEX_DISMISS)
9134 fputs (" DISMISS", stdout);
9135 break;
9136 case ODK_PAD:
9137 fputs (" PAD ", stdout);
9138 if (option->info & OPAD_PREFIX)
9139 fputs (" PREFIX", stdout);
9140 if (option->info & OPAD_POSTFIX)
9141 fputs (" POSTFIX", stdout);
9142 if (option->info & OPAD_SYMBOL)
9143 fputs (" SYMBOL", stdout);
9144 break;
9145 case ODK_HWPATCH:
9146 fputs (" HWPATCH ", stdout);
9147 if (option->info & OHW_R4KEOP)
9148 fputs (" R4KEOP", stdout);
9149 if (option->info & OHW_R8KPFETCH)
9150 fputs (" R8KPFETCH", stdout);
9151 if (option->info & OHW_R5KEOP)
9152 fputs (" R5KEOP", stdout);
9153 if (option->info & OHW_R5KCVTL)
9154 fputs (" R5KCVTL", stdout);
9155 break;
9156 case ODK_FILL:
9157 fputs (" FILL ", stdout);
9158 /* XXX Print content of info word? */
9159 break;
9160 case ODK_TAGS:
9161 fputs (" TAGS ", stdout);
9162 /* XXX Print content of info word? */
9163 break;
9164 case ODK_HWAND:
9165 fputs (" HWAND ", stdout);
9166 if (option->info & OHWA0_R4KEOP_CHECKED)
9167 fputs (" R4KEOP_CHECKED", stdout);
9168 if (option->info & OHWA0_R4KEOP_CLEAN)
9169 fputs (" R4KEOP_CLEAN", stdout);
9170 break;
9171 case ODK_HWOR:
9172 fputs (" HWOR ", stdout);
9173 if (option->info & OHWA0_R4KEOP_CHECKED)
9174 fputs (" R4KEOP_CHECKED", stdout);
9175 if (option->info & OHWA0_R4KEOP_CLEAN)
9176 fputs (" R4KEOP_CLEAN", stdout);
9177 break;
9178 case ODK_GP_GROUP:
9179 printf (" GP_GROUP %#06lx self-contained %#06lx",
9180 option->info & OGP_GROUP,
9181 (option->info & OGP_SELF) >> 16);
9182 break;
9183 case ODK_IDENT:
9184 printf (" IDENT %#06lx self-contained %#06lx",
9185 option->info & OGP_GROUP,
9186 (option->info & OGP_SELF) >> 16);
9187 break;
9188 default:
9189 /* This shouldn't happen. */
9190 printf (" %3d ??? %d %lx",
9191 option->kind, option->section, option->info);
9192 break;
9195 len = sizeof (* eopt);
9196 while (len < option->size)
9197 if (((char *) option)[len] >= ' '
9198 && ((char *) option)[len] < 0x7f)
9199 printf ("%c", ((char *) option)[len++]);
9200 else
9201 printf ("\\%03o", ((char *) option)[len++]);
9203 fputs ("\n", stdout);
9204 ++option;
9207 free (eopt);
9211 if (conflicts_offset != 0 && conflictsno != 0)
9213 Elf32_Conflict * iconf;
9214 size_t cnt;
9216 if (dynamic_symbols == NULL)
9218 error (_("conflict list with without table"));
9219 return 0;
9222 iconf = (Elf32_Conflict *) malloc (conflictsno * sizeof (* iconf));
9223 if (iconf == NULL)
9225 error (_("Out of memory"));
9226 return 0;
9229 if (is_32bit_elf)
9231 Elf32_External_Conflict * econf32;
9233 econf32 = ((Elf32_External_Conflict *)
9234 get_data (NULL, file, conflicts_offset,
9235 conflictsno * sizeof (* econf32),
9236 _("conflict")));
9237 if (!econf32)
9238 return 0;
9240 for (cnt = 0; cnt < conflictsno; ++cnt)
9241 iconf[cnt] = BYTE_GET (econf32[cnt]);
9243 free (econf32);
9245 else
9247 Elf64_External_Conflict * econf64;
9249 econf64 = ((Elf64_External_Conflict *)
9250 get_data (NULL, file, conflicts_offset,
9251 conflictsno * sizeof (* econf64),
9252 _("conflict")));
9253 if (!econf64)
9254 return 0;
9256 for (cnt = 0; cnt < conflictsno; ++cnt)
9257 iconf[cnt] = BYTE_GET (econf64[cnt]);
9259 free (econf64);
9262 printf (_("\nSection '.conflict' contains %ld entries:\n"),
9263 (long) conflictsno);
9264 puts (_(" Num: Index Value Name"));
9266 for (cnt = 0; cnt < conflictsno; ++cnt)
9268 Elf_Internal_Sym * psym = & dynamic_symbols [iconf [cnt]];
9270 printf ("%5lu: %8lu ", (unsigned long) cnt, iconf [cnt]);
9271 print_vma (psym->st_value, FULL_HEX);
9272 putchar (' ');
9273 print_symbol (25, dynamic_strings + psym->st_name);
9274 putchar ('\n');
9277 free (iconf);
9280 return 1;
9283 static const char *
9284 get_note_type (e_type)
9285 unsigned e_type;
9287 static char buff[64];
9289 switch (e_type)
9291 case NT_PRSTATUS: return _("NT_PRSTATUS (prstatus structure)");
9292 case NT_FPREGSET: return _("NT_FPREGSET (floating point registers)");
9293 case NT_PRPSINFO: return _("NT_PRPSINFO (prpsinfo structure)");
9294 case NT_TASKSTRUCT: return _("NT_TASKSTRUCT (task structure)");
9295 case NT_PRXFPREG: return _("NT_PRXFPREG (user_xfpregs structure)");
9296 case NT_PSTATUS: return _("NT_PSTATUS (pstatus structure)");
9297 case NT_FPREGS: return _("NT_FPREGS (floating point registers)");
9298 case NT_PSINFO: return _("NT_PSINFO (psinfo structure)");
9299 case NT_LWPSTATUS: return _("NT_LWPSTATUS (lwpstatus_t structure)");
9300 case NT_LWPSINFO: return _("NT_LWPSINFO (lwpsinfo_t structure)");
9301 case NT_WIN32PSTATUS: return _("NT_WIN32PSTATUS (win32_pstatus strcuture)");
9302 default:
9303 sprintf (buff, _("Unknown note type: (0x%08x)"), e_type);
9304 return buff;
9308 static const char *
9309 get_netbsd_elfcore_note_type (e_type)
9310 unsigned e_type;
9312 static char buff[64];
9314 if (e_type == NT_NETBSDCORE_PROCINFO)
9316 /* NetBSD core "procinfo" structure. */
9317 return _("NetBSD procinfo structure");
9320 /* As of Jan 2002 there are no other machine-independent notes
9321 defined for NetBSD core files. If the note type is less
9322 than the start of the machine-dependent note types, we don't
9323 understand it. */
9325 if (e_type < NT_NETBSDCORE_FIRSTMACH)
9327 sprintf (buff, _("Unknown note type: (0x%08x)"), e_type);
9328 return buff;
9331 switch (elf_header.e_machine)
9333 /* On the Alpha, SPARC (32-bit and 64-bit), PT_GETREGS == mach+0
9334 and PT_GETFPREGS == mach+2. */
9336 case EM_OLD_ALPHA:
9337 case EM_ALPHA:
9338 case EM_SPARC:
9339 case EM_SPARC32PLUS:
9340 case EM_SPARCV9:
9341 switch (e_type)
9343 case NT_NETBSDCORE_FIRSTMACH+0:
9344 return _("PT_GETREGS (reg structure)");
9345 case NT_NETBSDCORE_FIRSTMACH+2:
9346 return _("PT_GETFPREGS (fpreg structure)");
9347 default:
9348 break;
9350 break;
9352 /* On all other arch's, PT_GETREGS == mach+1 and
9353 PT_GETFPREGS == mach+3. */
9354 default:
9355 switch (e_type)
9357 case NT_NETBSDCORE_FIRSTMACH+1:
9358 return _("PT_GETREGS (reg structure)");
9359 case NT_NETBSDCORE_FIRSTMACH+3:
9360 return _("PT_GETFPREGS (fpreg structure)");
9361 default:
9362 break;
9366 sprintf (buff, _("PT_FIRSTMACH+%d"), e_type - NT_NETBSDCORE_FIRSTMACH);
9367 return buff;
9370 /* Note that by the ELF standard, the name field is already null byte
9371 terminated, and namesz includes the terminating null byte.
9372 I.E. the value of namesz for the name "FSF" is 4.
9374 If the value of namesz is zero, there is no name present. */
9375 static int
9376 process_note (pnote)
9377 Elf32_Internal_Note * pnote;
9379 const char *nt;
9381 if (pnote->namesz == 0)
9383 /* If there is no note name, then use the default set of
9384 note type strings. */
9385 nt = get_note_type (pnote->type);
9387 else if (strncmp (pnote->namedata, "NetBSD-CORE", 11) == 0)
9389 /* NetBSD-specific core file notes. */
9390 nt = get_netbsd_elfcore_note_type (pnote->type);
9392 else
9394 /* Don't recognize this note name; just use the default set of
9395 note type strings. */
9396 nt = get_note_type (pnote->type);
9399 printf (" %s\t\t0x%08lx\t%s\n",
9400 pnote->namesz ? pnote->namedata : "(NONE)",
9401 pnote->descsz, nt);
9402 return 1;
9406 static int
9407 process_corefile_note_segment (file, offset, length)
9408 FILE * file;
9409 bfd_vma offset;
9410 bfd_vma length;
9412 Elf_External_Note * pnotes;
9413 Elf_External_Note * external;
9414 int res = 1;
9416 if (length <= 0)
9417 return 0;
9419 pnotes = (Elf_External_Note *) get_data (NULL, file, offset, length,
9420 _("notes"));
9421 if (!pnotes)
9422 return 0;
9424 external = pnotes;
9426 printf (_("\nNotes at offset 0x%08lx with length 0x%08lx:\n"),
9427 (unsigned long) offset, (unsigned long) length);
9428 printf (_(" Owner\t\tData size\tDescription\n"));
9430 while (external < (Elf_External_Note *)((char *) pnotes + length))
9432 Elf_External_Note * next;
9433 Elf32_Internal_Note inote;
9434 char * temp = NULL;
9436 inote.type = BYTE_GET (external->type);
9437 inote.namesz = BYTE_GET (external->namesz);
9438 inote.namedata = external->name;
9439 inote.descsz = BYTE_GET (external->descsz);
9440 inote.descdata = inote.namedata + align_power (inote.namesz, 2);
9441 inote.descpos = offset + (inote.descdata - (char *) pnotes);
9443 next = (Elf_External_Note *)(inote.descdata + align_power (inote.descsz, 2));
9445 if (((char *) next) > (((char *) pnotes) + length))
9447 warn (_("corrupt note found at offset %x into core notes\n"),
9448 ((char *) external) - ((char *) pnotes));
9449 warn (_(" type: %x, namesize: %08lx, descsize: %08lx\n"),
9450 inote.type, inote.namesz, inote.descsz);
9451 break;
9454 external = next;
9456 /* Verify that name is null terminated. It appears that at least
9457 one version of Linux (RedHat 6.0) generates corefiles that don't
9458 comply with the ELF spec by failing to include the null byte in
9459 namesz. */
9460 if (inote.namedata[inote.namesz] != '\0')
9462 temp = malloc (inote.namesz + 1);
9464 if (temp == NULL)
9466 error (_("Out of memory\n"));
9467 res = 0;
9468 break;
9471 strncpy (temp, inote.namedata, inote.namesz);
9472 temp[inote.namesz] = 0;
9474 /* warn (_("'%s' NOTE name not properly null terminated\n"), temp); */
9475 inote.namedata = temp;
9478 res &= process_note (& inote);
9480 if (temp != NULL)
9482 free (temp);
9483 temp = NULL;
9487 free (pnotes);
9489 return res;
9492 static int
9493 process_corefile_note_segments (file)
9494 FILE * file;
9496 Elf_Internal_Phdr * program_headers;
9497 Elf_Internal_Phdr * segment;
9498 unsigned int i;
9499 int res = 1;
9501 program_headers = (Elf_Internal_Phdr *) malloc
9502 (elf_header.e_phnum * sizeof (Elf_Internal_Phdr));
9504 if (program_headers == NULL)
9506 error (_("Out of memory\n"));
9507 return 0;
9510 if (is_32bit_elf)
9511 i = get_32bit_program_headers (file, program_headers);
9512 else
9513 i = get_64bit_program_headers (file, program_headers);
9515 if (i == 0)
9517 free (program_headers);
9518 return 0;
9521 for (i = 0, segment = program_headers;
9522 i < elf_header.e_phnum;
9523 i ++, segment ++)
9525 if (segment->p_type == PT_NOTE)
9526 res &= process_corefile_note_segment (file,
9527 (bfd_vma) segment->p_offset,
9528 (bfd_vma) segment->p_filesz);
9531 free (program_headers);
9533 return res;
9536 static int
9537 process_corefile_contents (file)
9538 FILE * file;
9540 /* If we have not been asked to display the notes then do nothing. */
9541 if (! do_notes)
9542 return 1;
9544 /* If file is not a core file then exit. */
9545 if (elf_header.e_type != ET_CORE)
9546 return 1;
9548 /* No program headers means no NOTE segment. */
9549 if (elf_header.e_phnum == 0)
9551 printf (_("No note segments present in the core file.\n"));
9552 return 1;
9555 return process_corefile_note_segments (file);
9558 static int
9559 process_arch_specific (file)
9560 FILE * file;
9562 if (! do_arch)
9563 return 1;
9565 switch (elf_header.e_machine)
9567 case EM_MIPS:
9568 case EM_MIPS_RS3_LE:
9569 return process_mips_specific (file);
9570 break;
9571 default:
9572 break;
9574 return 1;
9577 static int
9578 get_file_header (file)
9579 FILE * file;
9581 /* Read in the identity array. */
9582 if (fread (elf_header.e_ident, EI_NIDENT, 1, file) != 1)
9583 return 0;
9585 /* Determine how to read the rest of the header. */
9586 switch (elf_header.e_ident [EI_DATA])
9588 default: /* fall through */
9589 case ELFDATANONE: /* fall through */
9590 case ELFDATA2LSB: byte_get = byte_get_little_endian; break;
9591 case ELFDATA2MSB: byte_get = byte_get_big_endian; break;
9594 /* For now we only support 32 bit and 64 bit ELF files. */
9595 is_32bit_elf = (elf_header.e_ident [EI_CLASS] != ELFCLASS64);
9597 /* Read in the rest of the header. */
9598 if (is_32bit_elf)
9600 Elf32_External_Ehdr ehdr32;
9602 if (fread (ehdr32.e_type, sizeof (ehdr32) - EI_NIDENT, 1, file) != 1)
9603 return 0;
9605 elf_header.e_type = BYTE_GET (ehdr32.e_type);
9606 elf_header.e_machine = BYTE_GET (ehdr32.e_machine);
9607 elf_header.e_version = BYTE_GET (ehdr32.e_version);
9608 elf_header.e_entry = BYTE_GET (ehdr32.e_entry);
9609 elf_header.e_phoff = BYTE_GET (ehdr32.e_phoff);
9610 elf_header.e_shoff = BYTE_GET (ehdr32.e_shoff);
9611 elf_header.e_flags = BYTE_GET (ehdr32.e_flags);
9612 elf_header.e_ehsize = BYTE_GET (ehdr32.e_ehsize);
9613 elf_header.e_phentsize = BYTE_GET (ehdr32.e_phentsize);
9614 elf_header.e_phnum = BYTE_GET (ehdr32.e_phnum);
9615 elf_header.e_shentsize = BYTE_GET (ehdr32.e_shentsize);
9616 elf_header.e_shnum = BYTE_GET (ehdr32.e_shnum);
9617 elf_header.e_shstrndx = BYTE_GET (ehdr32.e_shstrndx);
9619 else
9621 Elf64_External_Ehdr ehdr64;
9623 /* If we have been compiled with sizeof (bfd_vma) == 4, then
9624 we will not be able to cope with the 64bit data found in
9625 64 ELF files. Detect this now and abort before we start
9626 overwritting things. */
9627 if (sizeof (bfd_vma) < 8)
9629 error (_("This instance of readelf has been built without support for a\n\
9630 64 bit data type and so it cannot read 64 bit ELF files.\n"));
9631 return 0;
9634 if (fread (ehdr64.e_type, sizeof (ehdr64) - EI_NIDENT, 1, file) != 1)
9635 return 0;
9637 elf_header.e_type = BYTE_GET (ehdr64.e_type);
9638 elf_header.e_machine = BYTE_GET (ehdr64.e_machine);
9639 elf_header.e_version = BYTE_GET (ehdr64.e_version);
9640 elf_header.e_entry = BYTE_GET8 (ehdr64.e_entry);
9641 elf_header.e_phoff = BYTE_GET8 (ehdr64.e_phoff);
9642 elf_header.e_shoff = BYTE_GET8 (ehdr64.e_shoff);
9643 elf_header.e_flags = BYTE_GET (ehdr64.e_flags);
9644 elf_header.e_ehsize = BYTE_GET (ehdr64.e_ehsize);
9645 elf_header.e_phentsize = BYTE_GET (ehdr64.e_phentsize);
9646 elf_header.e_phnum = BYTE_GET (ehdr64.e_phnum);
9647 elf_header.e_shentsize = BYTE_GET (ehdr64.e_shentsize);
9648 elf_header.e_shnum = BYTE_GET (ehdr64.e_shnum);
9649 elf_header.e_shstrndx = BYTE_GET (ehdr64.e_shstrndx);
9652 /* There may be some extensions in the first section header. Don't
9653 bomb if we can't read it. */
9654 if (is_32bit_elf)
9655 get_32bit_section_headers (file, 1);
9656 else
9657 get_64bit_section_headers (file, 1);
9659 return 1;
9662 static int
9663 process_file (file_name)
9664 char * file_name;
9666 FILE * file;
9667 struct stat statbuf;
9668 unsigned int i;
9670 if (stat (file_name, & statbuf) < 0)
9672 error (_("Cannot stat input file %s.\n"), file_name);
9673 return 1;
9676 file = fopen (file_name, "rb");
9677 if (file == NULL)
9679 error (_("Input file %s not found.\n"), file_name);
9680 return 1;
9683 if (! get_file_header (file))
9685 error (_("%s: Failed to read file header\n"), file_name);
9686 fclose (file);
9687 return 1;
9690 /* Initialise per file variables. */
9691 for (i = NUM_ELEM (version_info); i--;)
9692 version_info[i] = 0;
9694 for (i = NUM_ELEM (dynamic_info); i--;)
9695 dynamic_info[i] = 0;
9697 /* Process the file. */
9698 if (show_name)
9699 printf (_("\nFile: %s\n"), file_name);
9701 if (! process_file_header ())
9703 fclose (file);
9704 return 1;
9707 process_section_headers (file);
9709 process_program_headers (file);
9711 process_dynamic_segment (file);
9713 process_relocs (file);
9715 process_unwind (file);
9717 process_symbol_table (file);
9719 process_syminfo (file);
9721 process_version_sections (file);
9723 process_section_contents (file);
9725 process_corefile_contents (file);
9727 process_arch_specific (file);
9729 fclose (file);
9731 if (section_headers)
9733 free (section_headers);
9734 section_headers = NULL;
9737 if (string_table)
9739 free (string_table);
9740 string_table = NULL;
9741 string_table_length = 0;
9744 if (dynamic_strings)
9746 free (dynamic_strings);
9747 dynamic_strings = NULL;
9750 if (dynamic_symbols)
9752 free (dynamic_symbols);
9753 dynamic_symbols = NULL;
9754 num_dynamic_syms = 0;
9757 if (dynamic_syminfo)
9759 free (dynamic_syminfo);
9760 dynamic_syminfo = NULL;
9763 return 0;
9766 #ifdef SUPPORT_DISASSEMBLY
9767 /* Needed by the i386 disassembler. For extra credit, someone could
9768 fix this so that we insert symbolic addresses here, esp for GOT/PLT
9769 symbols. */
9771 void
9772 print_address (unsigned int addr, FILE * outfile)
9774 fprintf (outfile,"0x%8.8x", addr);
9777 /* Needed by the i386 disassembler. */
9778 void
9779 db_task_printsym (unsigned int addr)
9781 print_address (addr, stderr);
9783 #endif
9785 int main PARAMS ((int, char **));
9788 main (argc, argv)
9789 int argc;
9790 char ** argv;
9792 int err;
9794 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
9795 setlocale (LC_MESSAGES, "");
9796 #endif
9797 #if defined (HAVE_SETLOCALE)
9798 setlocale (LC_CTYPE, "");
9799 #endif
9800 bindtextdomain (PACKAGE, LOCALEDIR);
9801 textdomain (PACKAGE);
9803 parse_args (argc, argv);
9805 if (optind < (argc - 1))
9806 show_name = 1;
9808 err = 0;
9809 while (optind < argc)
9810 err |= process_file (argv [optind ++]);
9812 if (dump_sects != NULL)
9813 free (dump_sects);
9815 return err;