]> CyberLeo.Net >> Repos - FreeBSD/stable/10.git/blob - usr.bin/elfdump/elfdump.c
Copy head (r256279) to stable/10 as part of the 10.0-RELEASE cycle.
[FreeBSD/stable/10.git] / usr.bin / elfdump / elfdump.c
1 /*-
2  * Copyright (c) 2003 David O'Brien.  All rights reserved.
3  * Copyright (c) 2001 Jake Burkholder
4  * All rights reserved.
5  *
6  * Redistribution and use in source and binary forms, with or without
7  * modification, are permitted provided that the following conditions
8  * are met:
9  * 1. Redistributions of source code must retain the above copyright
10  *    notice, this list of conditions and the following disclaimer.
11  * 2. Redistributions in binary form must reproduce the above copyright
12  *    notice, this list of conditions and the following disclaimer in the
13  *    documentation and/or other materials provided with the distribution.
14  *
15  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25  * SUCH DAMAGE.
26  */
27
28 #include <sys/cdefs.h>
29 __FBSDID("$FreeBSD$");
30
31 #include <sys/types.h>
32 #include <sys/elf32.h>
33 #include <sys/elf64.h>
34 #include <sys/endian.h>
35 #include <sys/mman.h>
36 #include <sys/stat.h>
37 #include <err.h>
38 #include <fcntl.h>
39 #include <inttypes.h>
40 #include <stddef.h>
41 #include <stdio.h>
42 #include <stdlib.h>
43 #include <string.h>
44 #include <unistd.h>
45
46 #define ED_DYN          (1<<0)
47 #define ED_EHDR         (1<<1)
48 #define ED_GOT          (1<<2)
49 #define ED_HASH         (1<<3)
50 #define ED_INTERP       (1<<4)
51 #define ED_NOTE         (1<<5)
52 #define ED_PHDR         (1<<6)
53 #define ED_REL          (1<<7)
54 #define ED_SHDR         (1<<8)
55 #define ED_SYMTAB       (1<<9)
56 #define ED_ALL          ((1<<10)-1)
57
58 #define elf_get_addr    elf_get_quad
59 #define elf_get_off     elf_get_quad
60 #define elf_get_size    elf_get_quad
61
62 enum elf_member {
63         D_TAG = 1, D_PTR, D_VAL,
64
65         E_CLASS, E_DATA, E_OSABI, E_TYPE, E_MACHINE, E_VERSION, E_ENTRY,
66         E_PHOFF, E_SHOFF, E_FLAGS, E_EHSIZE, E_PHENTSIZE, E_PHNUM, E_SHENTSIZE,
67         E_SHNUM, E_SHSTRNDX,
68
69         N_NAMESZ, N_DESCSZ, N_TYPE,
70
71         P_TYPE, P_OFFSET, P_VADDR, P_PADDR, P_FILESZ, P_MEMSZ, P_FLAGS,
72         P_ALIGN,
73
74         SH_NAME, SH_TYPE, SH_FLAGS, SH_ADDR, SH_OFFSET, SH_SIZE, SH_LINK,
75         SH_INFO, SH_ADDRALIGN, SH_ENTSIZE,
76
77         ST_NAME, ST_VALUE, ST_SIZE, ST_INFO, ST_SHNDX,
78
79         R_OFFSET, R_INFO,
80
81         RA_OFFSET, RA_INFO, RA_ADDEND
82 };
83
84 typedef enum elf_member elf_member_t;
85
86 static int elf32_offsets[] = {
87         0,
88
89         offsetof(Elf32_Dyn, d_tag), offsetof(Elf32_Dyn, d_un.d_ptr),
90         offsetof(Elf32_Dyn, d_un.d_val),
91
92         offsetof(Elf32_Ehdr, e_ident[EI_CLASS]),
93         offsetof(Elf32_Ehdr, e_ident[EI_DATA]),
94         offsetof(Elf32_Ehdr, e_ident[EI_OSABI]),
95         offsetof(Elf32_Ehdr, e_type), offsetof(Elf32_Ehdr, e_machine),
96         offsetof(Elf32_Ehdr, e_version), offsetof(Elf32_Ehdr, e_entry),
97         offsetof(Elf32_Ehdr, e_phoff), offsetof(Elf32_Ehdr, e_shoff),
98         offsetof(Elf32_Ehdr, e_flags), offsetof(Elf32_Ehdr, e_ehsize),
99         offsetof(Elf32_Ehdr, e_phentsize), offsetof(Elf32_Ehdr, e_phnum),
100         offsetof(Elf32_Ehdr, e_shentsize), offsetof(Elf32_Ehdr, e_shnum),
101         offsetof(Elf32_Ehdr, e_shstrndx),
102
103         offsetof(Elf_Note, n_namesz), offsetof(Elf_Note, n_descsz),
104         offsetof(Elf_Note, n_type),
105
106         offsetof(Elf32_Phdr, p_type), offsetof(Elf32_Phdr, p_offset),
107         offsetof(Elf32_Phdr, p_vaddr), offsetof(Elf32_Phdr, p_paddr),
108         offsetof(Elf32_Phdr, p_filesz), offsetof(Elf32_Phdr, p_memsz),
109         offsetof(Elf32_Phdr, p_flags), offsetof(Elf32_Phdr, p_align),
110
111         offsetof(Elf32_Shdr, sh_name), offsetof(Elf32_Shdr, sh_type),
112         offsetof(Elf32_Shdr, sh_flags), offsetof(Elf32_Shdr, sh_addr),
113         offsetof(Elf32_Shdr, sh_offset), offsetof(Elf32_Shdr, sh_size),
114         offsetof(Elf32_Shdr, sh_link), offsetof(Elf32_Shdr, sh_info),
115         offsetof(Elf32_Shdr, sh_addralign), offsetof(Elf32_Shdr, sh_entsize),
116
117         offsetof(Elf32_Sym, st_name), offsetof(Elf32_Sym, st_value),
118         offsetof(Elf32_Sym, st_size), offsetof(Elf32_Sym, st_info),
119         offsetof(Elf32_Sym, st_shndx),
120
121         offsetof(Elf32_Rel, r_offset), offsetof(Elf32_Rel, r_info),
122
123         offsetof(Elf32_Rela, r_offset), offsetof(Elf32_Rela, r_info),
124         offsetof(Elf32_Rela, r_addend)
125 };
126
127 static int elf64_offsets[] = {
128         0,
129
130         offsetof(Elf64_Dyn, d_tag), offsetof(Elf64_Dyn, d_un.d_ptr),
131         offsetof(Elf64_Dyn, d_un.d_val),
132
133         offsetof(Elf32_Ehdr, e_ident[EI_CLASS]),
134         offsetof(Elf32_Ehdr, e_ident[EI_DATA]),
135         offsetof(Elf32_Ehdr, e_ident[EI_OSABI]),
136         offsetof(Elf64_Ehdr, e_type), offsetof(Elf64_Ehdr, e_machine),
137         offsetof(Elf64_Ehdr, e_version), offsetof(Elf64_Ehdr, e_entry),
138         offsetof(Elf64_Ehdr, e_phoff), offsetof(Elf64_Ehdr, e_shoff),
139         offsetof(Elf64_Ehdr, e_flags), offsetof(Elf64_Ehdr, e_ehsize),
140         offsetof(Elf64_Ehdr, e_phentsize), offsetof(Elf64_Ehdr, e_phnum),
141         offsetof(Elf64_Ehdr, e_shentsize), offsetof(Elf64_Ehdr, e_shnum),
142         offsetof(Elf64_Ehdr, e_shstrndx),
143
144         offsetof(Elf_Note, n_namesz), offsetof(Elf_Note, n_descsz),
145         offsetof(Elf_Note, n_type),
146
147         offsetof(Elf64_Phdr, p_type), offsetof(Elf64_Phdr, p_offset),
148         offsetof(Elf64_Phdr, p_vaddr), offsetof(Elf64_Phdr, p_paddr),
149         offsetof(Elf64_Phdr, p_filesz), offsetof(Elf64_Phdr, p_memsz),
150         offsetof(Elf64_Phdr, p_flags), offsetof(Elf64_Phdr, p_align),
151
152         offsetof(Elf64_Shdr, sh_name), offsetof(Elf64_Shdr, sh_type),
153         offsetof(Elf64_Shdr, sh_flags), offsetof(Elf64_Shdr, sh_addr),
154         offsetof(Elf64_Shdr, sh_offset), offsetof(Elf64_Shdr, sh_size),
155         offsetof(Elf64_Shdr, sh_link), offsetof(Elf64_Shdr, sh_info),
156         offsetof(Elf64_Shdr, sh_addralign), offsetof(Elf64_Shdr, sh_entsize),
157
158         offsetof(Elf64_Sym, st_name), offsetof(Elf64_Sym, st_value),
159         offsetof(Elf64_Sym, st_size), offsetof(Elf64_Sym, st_info),
160         offsetof(Elf64_Sym, st_shndx),
161
162         offsetof(Elf64_Rel, r_offset), offsetof(Elf64_Rel, r_info),
163
164         offsetof(Elf64_Rela, r_offset), offsetof(Elf64_Rela, r_info),
165         offsetof(Elf64_Rela, r_addend)
166 };
167
168 /* http://www.sco.com/developers/gabi/latest/ch5.dynamic.html#tag_encodings */
169 static const char *
170 d_tags(u_int64_t tag) {
171         switch (tag) {
172         case 0: return "DT_NULL";
173         case 1: return "DT_NEEDED";
174         case 2: return "DT_PLTRELSZ";
175         case 3: return "DT_PLTGOT";
176         case 4: return "DT_HASH";
177         case 5: return "DT_STRTAB";
178         case 6: return "DT_SYMTAB";
179         case 7: return "DT_RELA";
180         case 8: return "DT_RELASZ";
181         case 9: return "DT_RELAENT";
182         case 10: return "DT_STRSZ";
183         case 11: return "DT_SYMENT";
184         case 12: return "DT_INIT";
185         case 13: return "DT_FINI";
186         case 14: return "DT_SONAME";
187         case 15: return "DT_RPATH";
188         case 16: return "DT_SYMBOLIC";
189         case 17: return "DT_REL";
190         case 18: return "DT_RELSZ";
191         case 19: return "DT_RELENT";
192         case 20: return "DT_PLTREL";
193         case 21: return "DT_DEBUG";
194         case 22: return "DT_TEXTREL";
195         case 23: return "DT_JMPREL";
196         case 24: return "DT_BIND_NOW";
197         case 25: return "DT_INIT_ARRAY";
198         case 26: return "DT_FINI_ARRAY";
199         case 27: return "DT_INIT_ARRAYSZ";
200         case 28: return "DT_FINI_ARRAYSZ";
201         case 29: return "DT_RUNPATH";
202         case 30: return "DT_FLAGS";
203         case 32: return "DT_PREINIT_ARRAY"; /* XXX: DT_ENCODING */
204         case 33: return "DT_PREINIT_ARRAYSZ";
205         /* 0x6000000D - 0x6ffff000 operating system-specific semantics */
206         case 0x6ffffdf5: return "DT_GNU_PRELINKED";
207         case 0x6ffffdf6: return "DT_GNU_CONFLICTSZ";
208         case 0x6ffffdf7: return "DT_GNU_LIBLISTSZ";
209         case 0x6ffffdf8: return "DT_SUNW_CHECKSUM";
210         case 0x6ffffdf9: return "DT_PLTPADSZ";
211         case 0x6ffffdfa: return "DT_MOVEENT";
212         case 0x6ffffdfb: return "DT_MOVESZ";
213         case 0x6ffffdfc: return "DT_FEATURE";
214         case 0x6ffffdfd: return "DT_POSFLAG_1";
215         case 0x6ffffdfe: return "DT_SYMINSZ";
216         case 0x6ffffdff: return "DT_SYMINENT (DT_VALRNGHI)";
217         case 0x6ffffe00: return "DT_ADDRRNGLO";
218         case 0x6ffffef8: return "DT_GNU_CONFLICT";
219         case 0x6ffffef9: return "DT_GNU_LIBLIST";
220         case 0x6ffffefa: return "DT_SUNW_CONFIG";
221         case 0x6ffffefb: return "DT_SUNW_DEPAUDIT";
222         case 0x6ffffefc: return "DT_SUNW_AUDIT";
223         case 0x6ffffefd: return "DT_SUNW_PLTPAD";
224         case 0x6ffffefe: return "DT_SUNW_MOVETAB";
225         case 0x6ffffeff: return "DT_SYMINFO (DT_ADDRRNGHI)";
226         case 0x6ffffff9: return "DT_RELACOUNT";
227         case 0x6ffffffa: return "DT_RELCOUNT";
228         case 0x6ffffffb: return "DT_FLAGS_1";
229         case 0x6ffffffc: return "DT_VERDEF";
230         case 0x6ffffffd: return "DT_VERDEFNUM";
231         case 0x6ffffffe: return "DT_VERNEED";
232         case 0x6fffffff: return "DT_VERNEEDNUM";
233         case 0x6ffffff0: return "DT_GNU_VERSYM";
234         /* 0x70000000 - 0x7fffffff processor-specific semantics */
235         case 0x70000000: return "DT_IA_64_PLT_RESERVE";
236         case 0x7ffffffd: return "DT_SUNW_AUXILIARY";
237         case 0x7ffffffe: return "DT_SUNW_USED";
238         case 0x7fffffff: return "DT_SUNW_FILTER";
239         default: return "ERROR: TAG NOT DEFINED";
240         }
241 }
242
243 static const char *
244 e_machines(u_int mach)
245 {
246         static char machdesc[64];
247
248         switch (mach) {
249         case EM_NONE:   return "EM_NONE";
250         case EM_M32:    return "EM_M32";
251         case EM_SPARC:  return "EM_SPARC";
252         case EM_386:    return "EM_386";
253         case EM_68K:    return "EM_68K";
254         case EM_88K:    return "EM_88K";
255         case EM_860:    return "EM_860";
256         case EM_MIPS:   return "EM_MIPS";
257         case EM_PPC:    return "EM_PPC";
258         case EM_ARM:    return "EM_ARM";
259         case EM_ALPHA:  return "EM_ALPHA (legacy)";
260         case EM_SPARCV9:return "EM_SPARCV9";
261         case EM_IA_64:  return "EM_IA_64";
262         case EM_X86_64: return "EM_X86_64";
263         }
264         snprintf(machdesc, sizeof(machdesc),
265             "(unknown machine) -- type 0x%x", mach);
266         return (machdesc);
267 }
268
269 static const char *e_types[] = {
270         "ET_NONE", "ET_REL", "ET_EXEC", "ET_DYN", "ET_CORE"
271 };
272
273 static const char *ei_versions[] = {
274         "EV_NONE", "EV_CURRENT"
275 };
276
277 static const char *ei_classes[] = {
278         "ELFCLASSNONE", "ELFCLASS32", "ELFCLASS64"
279 };
280
281 static const char *ei_data[] = {
282         "ELFDATANONE", "ELFDATA2LSB", "ELFDATA2MSB"
283 };
284
285 static const char *ei_abis[256] = {
286         "ELFOSABI_SYSV", "ELFOSABI_HPUX", "ELFOSABI_NETBSD", "ELFOSABI_LINUX",
287         "ELFOSABI_HURD", "ELFOSABI_86OPEN", "ELFOSABI_SOLARIS", "ELFOSABI_AIX",
288         "ELFOSABI_IRIX", "ELFOSABI_FREEBSD", "ELFOSABI_TRU64",
289         "ELFOSABI_MODESTO", "ELFOSABI_OPENBSD",
290         [255] = "ELFOSABI_STANDALONE"
291 };
292
293 static const char *p_types[] = {
294         "PT_NULL", "PT_LOAD", "PT_DYNAMIC", "PT_INTERP", "PT_NOTE",
295         "PT_SHLIB", "PT_PHDR", "PT_TLS"
296 };
297
298 static const char *p_flags[] = {
299         "", "PF_X", "PF_W", "PF_X|PF_W", "PF_R", "PF_X|PF_R", "PF_W|PF_R",
300         "PF_X|PF_W|PF_R"
301 };
302
303 /* http://www.sco.com/developers/gabi/latest/ch4.sheader.html#sh_type */
304 static const char *
305 sh_types(u_int64_t sht) {
306         switch (sht) {
307         case 0: return "SHT_NULL";
308         case 1: return "SHT_PROGBITS";
309         case 2: return "SHT_SYMTAB";
310         case 3: return "SHT_STRTAB";
311         case 4: return "SHT_RELA";
312         case 5: return "SHT_HASH";
313         case 6: return "SHT_DYNAMIC";
314         case 7: return "SHT_NOTE";
315         case 8: return "SHT_NOBITS";
316         case 9: return "SHT_REL";
317         case 10: return "SHT_SHLIB";
318         case 11: return "SHT_DYNSYM";
319         case 14: return "SHT_INIT_ARRAY";
320         case 15: return "SHT_FINI_ARRAY";
321         case 16: return "SHT_PREINIT_ARRAY";
322         case 17: return "SHT_GROUP";
323         case 18: return "SHT_SYMTAB_SHNDX";
324         /* 0x60000000 - 0x6fffffff operating system-specific semantics */
325         case 0x6ffffff0: return "XXX:VERSYM";
326         case 0x6ffffff4: return "SHT_SUNW_dof";
327         case 0x6ffffff7: return "SHT_GNU_LIBLIST";
328         case 0x6ffffffc: return "XXX:VERDEF";
329         case 0x6ffffffd: return "SHT_SUNW(GNU)_verdef";
330         case 0x6ffffffe: return "SHT_SUNW(GNU)_verneed";
331         case 0x6fffffff: return "SHT_SUNW(GNU)_versym";
332         /* 0x70000000 - 0x7fffffff processor-specific semantics */
333         case 0x70000000: return "SHT_IA_64_EXT";
334         case 0x70000001: return "SHT_IA_64_UNWIND";
335         case 0x7ffffffd: return "XXX:AUXILIARY";
336         case 0x7fffffff: return "XXX:FILTER";
337         /* 0x80000000 - 0xffffffff application programs */
338         default: return "ERROR: SHT NOT DEFINED";
339         }
340 }
341
342 static const char *sh_flags[] = {
343         "", "SHF_WRITE", "SHF_ALLOC", "SHF_WRITE|SHF_ALLOC", "SHF_EXECINSTR",
344         "SHF_WRITE|SHF_EXECINSTR", "SHF_ALLOC|SHF_EXECINSTR",
345         "SHF_WRITE|SHF_ALLOC|SHF_EXECINSTR"
346 };
347
348 static const char *st_types[] = {
349         "STT_NOTYPE", "STT_OBJECT", "STT_FUNC", "STT_SECTION", "STT_FILE"
350 };
351
352 static const char *st_bindings[] = {
353         "STB_LOCAL", "STB_GLOBAL", "STB_WEAK"
354 };
355
356 static char *dynstr;
357 static char *shstrtab;
358 static char *strtab;
359 static FILE *out;
360
361 static u_int64_t elf_get_byte(Elf32_Ehdr *e, void *base, elf_member_t member);
362 static u_int64_t elf_get_quarter(Elf32_Ehdr *e, void *base,
363     elf_member_t member);
364 #if 0
365 static u_int64_t elf_get_half(Elf32_Ehdr *e, void *base, elf_member_t member);
366 #endif
367 static u_int64_t elf_get_word(Elf32_Ehdr *e, void *base, elf_member_t member);
368 static u_int64_t elf_get_quad(Elf32_Ehdr *e, void *base, elf_member_t member);
369
370 static void elf_print_ehdr(Elf32_Ehdr *e);
371 static void elf_print_phdr(Elf32_Ehdr *e, void *p);
372 static void elf_print_shdr(Elf32_Ehdr *e, void *sh);
373 static void elf_print_symtab(Elf32_Ehdr *e, void *sh, char *str);
374 static void elf_print_dynamic(Elf32_Ehdr *e, void *sh);
375 static void elf_print_rel(Elf32_Ehdr *e, void *r);
376 static void elf_print_rela(Elf32_Ehdr *e, void *ra);
377 static void elf_print_interp(Elf32_Ehdr *e, void *p);
378 static void elf_print_got(Elf32_Ehdr *e, void *sh);
379 static void elf_print_hash(Elf32_Ehdr *e, void *sh);
380 static void elf_print_note(Elf32_Ehdr *e, void *sh);
381
382 static void usage(void);
383
384 int
385 main(int ac, char **av)
386 {
387         u_int64_t phoff;
388         u_int64_t shoff;
389         u_int64_t phentsize;
390         u_int64_t phnum;
391         u_int64_t shentsize;
392         u_int64_t shnum;
393         u_int64_t shstrndx;
394         u_int64_t offset;
395         u_int64_t name;
396         u_int64_t type;
397         struct stat sb;
398         u_int flags;
399         Elf32_Ehdr *e;
400         void *p;
401         void *sh;
402         void *v;
403         int fd;
404         int ch;
405         int i;
406
407         out = stdout;
408         flags = 0;
409         while ((ch = getopt(ac, av, "acdeiGhnprsw:")) != -1)
410                 switch (ch) {
411                 case 'a':
412                         flags = ED_ALL;
413                         break;
414                 case 'c':
415                         flags |= ED_SHDR;
416                         break;
417                 case 'd':
418                         flags |= ED_DYN;
419                         break;
420                 case 'e':
421                         flags |= ED_EHDR;
422                         break;
423                 case 'i':
424                         flags |= ED_INTERP;
425                         break;
426                 case 'G':
427                         flags |= ED_GOT;
428                         break;
429                 case 'h':
430                         flags |= ED_HASH;
431                         break;
432                 case 'n':
433                         flags |= ED_NOTE;
434                         break;
435                 case 'p':
436                         flags |= ED_PHDR;
437                         break;
438                 case 'r':
439                         flags |= ED_REL;
440                         break;
441                 case 's':
442                         flags |= ED_SYMTAB;
443                         break;
444                 case 'w':
445                         if ((out = fopen(optarg, "w")) == NULL)
446                                 err(1, "%s", optarg);
447                         break;
448                 case '?':
449                 default:
450                         usage();
451                 }
452         ac -= optind;
453         av += optind;
454         if (ac == 0 || flags == 0)
455                 usage();
456         if ((fd = open(*av, O_RDONLY)) < 0 ||
457             fstat(fd, &sb) < 0)
458                 err(1, "%s", *av);
459         e = mmap(NULL, sb.st_size, PROT_READ, MAP_SHARED, fd, 0);
460         if (e == MAP_FAILED)
461                 err(1, NULL);
462         if (!IS_ELF(*(Elf32_Ehdr *)e))
463                 errx(1, "not an elf file");
464         phoff = elf_get_off(e, e, E_PHOFF);
465         shoff = elf_get_off(e, e, E_SHOFF);
466         phentsize = elf_get_quarter(e, e, E_PHENTSIZE);
467         phnum = elf_get_quarter(e, e, E_PHNUM);
468         shentsize = elf_get_quarter(e, e, E_SHENTSIZE);
469         shnum = elf_get_quarter(e, e, E_SHNUM);
470         shstrndx = elf_get_quarter(e, e, E_SHSTRNDX);
471         p = (char *)e + phoff;
472         sh = (char *)e + shoff;
473         offset = elf_get_off(e, (char *)sh + shstrndx * shentsize, SH_OFFSET);
474         shstrtab = (char *)e + offset;
475         for (i = 0; (u_int64_t)i < shnum; i++) {
476                 name = elf_get_word(e, (char *)sh + i * shentsize, SH_NAME);
477                 offset = elf_get_off(e, (char *)sh + i * shentsize, SH_OFFSET);
478                 if (strcmp(shstrtab + name, ".strtab") == 0)
479                         strtab = (char *)e + offset;
480                 if (strcmp(shstrtab + name, ".dynstr") == 0)
481                         dynstr = (char *)e + offset;
482         }
483         if (flags & ED_EHDR)
484                 elf_print_ehdr(e);
485         if (flags & ED_PHDR)
486                 elf_print_phdr(e, p);
487         if (flags & ED_SHDR)
488                 elf_print_shdr(e, sh);
489         for (i = 0; (u_int64_t)i < phnum; i++) {
490                 v = (char *)p + i * phentsize;
491                 type = elf_get_word(e, v, P_TYPE);
492                 switch (type) {
493                 case PT_INTERP:
494                         if (flags & ED_INTERP)
495                                 elf_print_interp(e, v);
496                         break;
497                 case PT_NULL:
498                 case PT_LOAD:
499                 case PT_DYNAMIC:
500                 case PT_NOTE:
501                 case PT_SHLIB:
502                 case PT_PHDR:
503                         break;
504                 }
505         }
506         for (i = 0; (u_int64_t)i < shnum; i++) {
507                 v = (char *)sh + i * shentsize;
508                 type = elf_get_word(e, v, SH_TYPE);
509                 switch (type) {
510                 case SHT_SYMTAB:
511                         if (flags & ED_SYMTAB)
512                                 elf_print_symtab(e, v, strtab);
513                         break;
514                 case SHT_DYNAMIC:
515                         if (flags & ED_DYN)
516                                 elf_print_dynamic(e, v);
517                         break;
518                 case SHT_RELA:
519                         if (flags & ED_REL)
520                                 elf_print_rela(e, v);
521                         break;
522                 case SHT_REL:
523                         if (flags & ED_REL)
524                                 elf_print_rel(e, v);
525                         break;
526                 case SHT_NOTE:
527                         name = elf_get_word(e, v, SH_NAME);
528                         if (flags & ED_NOTE &&
529                             strcmp(shstrtab + name, ".note.ABI-tag") == 0)
530                                 elf_print_note(e, v);
531                         break;
532                 case SHT_DYNSYM:
533                         if (flags & ED_SYMTAB)
534                                 elf_print_symtab(e, v, dynstr);
535                         break;
536                 case SHT_PROGBITS:
537                         name = elf_get_word(e, v, SH_NAME);
538                         if (flags & ED_GOT &&
539                             strcmp(shstrtab + name, ".got") == 0)
540                                 elf_print_got(e, v);
541                         break;
542                 case SHT_HASH:
543                         if (flags & ED_HASH)
544                                 elf_print_hash(e, v);
545                         break;
546                 case SHT_NULL:
547                 case SHT_STRTAB:
548                 case SHT_NOBITS:
549                 case SHT_SHLIB:
550                         break;
551                 }
552         }
553
554         return 0;
555 }
556
557 static void
558 elf_print_ehdr(Elf32_Ehdr *e)
559 {
560         u_int64_t class;
561         u_int64_t data;
562         u_int64_t osabi;
563         u_int64_t type;
564         u_int64_t machine;
565         u_int64_t version;
566         u_int64_t entry;
567         u_int64_t phoff;
568         u_int64_t shoff;
569         u_int64_t flags;
570         u_int64_t ehsize;
571         u_int64_t phentsize;
572         u_int64_t phnum;
573         u_int64_t shentsize;
574         u_int64_t shnum;
575         u_int64_t shstrndx;
576
577         class = elf_get_byte(e, e, E_CLASS);
578         data = elf_get_byte(e, e, E_DATA);
579         osabi = elf_get_byte(e, e, E_OSABI);
580         type = elf_get_quarter(e, e, E_TYPE);
581         machine = elf_get_quarter(e, e, E_MACHINE);
582         version = elf_get_word(e, e, E_VERSION);
583         entry = elf_get_addr(e, e, E_ENTRY);
584         phoff = elf_get_off(e, e, E_PHOFF);
585         shoff = elf_get_off(e, e, E_SHOFF);
586         flags = elf_get_word(e, e, E_FLAGS);
587         ehsize = elf_get_quarter(e, e, E_EHSIZE);
588         phentsize = elf_get_quarter(e, e, E_PHENTSIZE);
589         phnum = elf_get_quarter(e, e, E_PHNUM);
590         shentsize = elf_get_quarter(e, e, E_SHENTSIZE);
591         shnum = elf_get_quarter(e, e, E_SHNUM);
592         shstrndx = elf_get_quarter(e, e, E_SHSTRNDX);
593         fprintf(out, "\nelf header:\n");
594         fprintf(out, "\n");
595         fprintf(out, "\te_ident: %s %s %s\n", ei_classes[class], ei_data[data],
596             ei_abis[osabi]);
597         fprintf(out, "\te_type: %s\n", e_types[type]);
598         fprintf(out, "\te_machine: %s\n", e_machines(machine));
599         fprintf(out, "\te_version: %s\n", ei_versions[version]);
600         fprintf(out, "\te_entry: %#jx\n", (intmax_t)entry);
601         fprintf(out, "\te_phoff: %jd\n", (intmax_t)phoff);
602         fprintf(out, "\te_shoff: %jd\n", (intmax_t)shoff);
603         fprintf(out, "\te_flags: %jd\n", (intmax_t)flags);
604         fprintf(out, "\te_ehsize: %jd\n", (intmax_t)ehsize);
605         fprintf(out, "\te_phentsize: %jd\n", (intmax_t)phentsize);
606         fprintf(out, "\te_phnum: %jd\n", (intmax_t)phnum);
607         fprintf(out, "\te_shentsize: %jd\n", (intmax_t)shentsize);
608         fprintf(out, "\te_shnum: %jd\n", (intmax_t)shnum);
609         fprintf(out, "\te_shstrndx: %jd\n", (intmax_t)shstrndx);
610 }
611
612 static void
613 elf_print_phdr(Elf32_Ehdr *e, void *p)
614 {
615         u_int64_t phentsize;
616         u_int64_t phnum;
617         u_int64_t type;
618         u_int64_t offset;
619         u_int64_t vaddr;
620         u_int64_t paddr;
621         u_int64_t filesz;
622         u_int64_t memsz;
623         u_int64_t flags;
624         u_int64_t align;
625         void *v;
626         int i;
627
628         phentsize = elf_get_quarter(e, e, E_PHENTSIZE);
629         phnum = elf_get_quarter(e, e, E_PHNUM);
630         fprintf(out, "\nprogram header:\n");
631         for (i = 0; (u_int64_t)i < phnum; i++) {
632                 v = (char *)p + i * phentsize;
633                 type = elf_get_word(e, v, P_TYPE);
634                 offset = elf_get_off(e, v, P_OFFSET);
635                 vaddr = elf_get_addr(e, v, P_VADDR);
636                 paddr = elf_get_addr(e, v, P_PADDR);
637                 filesz = elf_get_size(e, v, P_FILESZ);
638                 memsz = elf_get_size(e, v, P_MEMSZ);
639                 flags = elf_get_word(e, v, P_FLAGS);
640                 align = elf_get_size(e, v, P_ALIGN);
641                 fprintf(out, "\n");
642                 fprintf(out, "entry: %d\n", i);
643                 fprintf(out, "\tp_type: %s\n", p_types[type & 0x7]);
644                 fprintf(out, "\tp_offset: %jd\n", (intmax_t)offset);
645                 fprintf(out, "\tp_vaddr: %#jx\n", (intmax_t)vaddr);
646                 fprintf(out, "\tp_paddr: %#jx\n", (intmax_t)paddr);
647                 fprintf(out, "\tp_filesz: %jd\n", (intmax_t)filesz);
648                 fprintf(out, "\tp_memsz: %jd\n", (intmax_t)memsz);
649                 fprintf(out, "\tp_flags: %s\n", p_flags[flags]);
650                 fprintf(out, "\tp_align: %jd\n", (intmax_t)align);
651         }
652 }
653
654 static void
655 elf_print_shdr(Elf32_Ehdr *e, void *sh)
656 {
657         u_int64_t shentsize;
658         u_int64_t shnum;
659         u_int64_t name;
660         u_int64_t type;
661         u_int64_t flags;
662         u_int64_t addr;
663         u_int64_t offset;
664         u_int64_t size;
665         u_int64_t shlink;
666         u_int64_t info;
667         u_int64_t addralign;
668         u_int64_t entsize;
669         void *v;
670         int i;
671
672         shentsize = elf_get_quarter(e, e, E_SHENTSIZE);
673         shnum = elf_get_quarter(e, e, E_SHNUM);
674         fprintf(out, "\nsection header:\n");
675         for (i = 0; (u_int64_t)i < shnum; i++) {
676                 v = (char *)sh + i * shentsize;
677                 name = elf_get_word(e, v, SH_NAME);
678                 type = elf_get_word(e, v, SH_TYPE);
679                 flags = elf_get_word(e, v, SH_FLAGS);
680                 addr = elf_get_addr(e, v, SH_ADDR);
681                 offset = elf_get_off(e, v, SH_OFFSET);
682                 size = elf_get_size(e, v, SH_SIZE);
683                 shlink = elf_get_word(e, v, SH_LINK);
684                 info = elf_get_word(e, v, SH_INFO);
685                 addralign = elf_get_size(e, v, SH_ADDRALIGN);
686                 entsize = elf_get_size(e, v, SH_ENTSIZE);
687                 fprintf(out, "\n");
688                 fprintf(out, "entry: %d\n", i);
689                 fprintf(out, "\tsh_name: %s\n", shstrtab + name);
690                 fprintf(out, "\tsh_type: %s\n", sh_types(type));
691                 fprintf(out, "\tsh_flags: %s\n", sh_flags[flags & 0x7]);
692                 fprintf(out, "\tsh_addr: %#jx\n", addr);
693                 fprintf(out, "\tsh_offset: %jd\n", (intmax_t)offset);
694                 fprintf(out, "\tsh_size: %jd\n", (intmax_t)size);
695                 fprintf(out, "\tsh_link: %jd\n", (intmax_t)shlink);
696                 fprintf(out, "\tsh_info: %jd\n", (intmax_t)info);
697                 fprintf(out, "\tsh_addralign: %jd\n", (intmax_t)addralign);
698                 fprintf(out, "\tsh_entsize: %jd\n", (intmax_t)entsize);
699         }
700 }
701
702 static void
703 elf_print_symtab(Elf32_Ehdr *e, void *sh, char *str)
704 {
705         u_int64_t offset;
706         u_int64_t entsize;
707         u_int64_t size;
708         u_int64_t name;
709         u_int64_t value;
710         u_int64_t info;
711         u_int64_t shndx;
712         void *st;
713         int len;
714         int i;
715
716         offset = elf_get_off(e, sh, SH_OFFSET);
717         entsize = elf_get_size(e, sh, SH_ENTSIZE);
718         size = elf_get_size(e, sh, SH_SIZE);
719         name = elf_get_word(e, sh, SH_NAME);
720         len = size / entsize;
721         fprintf(out, "\nsymbol table (%s):\n", shstrtab + name);
722         for (i = 0; i < len; i++) {
723                 st = (char *)e + offset + i * entsize;
724                 name = elf_get_word(e, st, ST_NAME);
725                 value = elf_get_addr(e, st, ST_VALUE);
726                 size = elf_get_size(e, st, ST_SIZE);
727                 info = elf_get_byte(e, st, ST_INFO);
728                 shndx = elf_get_quarter(e, st, ST_SHNDX);
729                 fprintf(out, "\n");
730                 fprintf(out, "entry: %d\n", i);
731                 fprintf(out, "\tst_name: %s\n", str + name);
732                 fprintf(out, "\tst_value: %#jx\n", value);
733                 fprintf(out, "\tst_size: %jd\n", (intmax_t)size);
734                 fprintf(out, "\tst_info: %s %s\n",
735                     st_types[ELF32_ST_TYPE(info)],
736                     st_bindings[ELF32_ST_BIND(info)]);
737                 fprintf(out, "\tst_shndx: %jd\n", (intmax_t)shndx);
738         }
739 }
740
741 static void
742 elf_print_dynamic(Elf32_Ehdr *e, void *sh)
743 {
744         u_int64_t offset;
745         u_int64_t entsize;
746         u_int64_t size;
747         int64_t tag;
748         u_int64_t ptr;
749         u_int64_t val;
750         void *d;
751         int i;
752
753         offset = elf_get_off(e, sh, SH_OFFSET);
754         entsize = elf_get_size(e, sh, SH_ENTSIZE);
755         size = elf_get_size(e, sh, SH_SIZE);
756         fprintf(out, "\ndynamic:\n");
757         for (i = 0; (u_int64_t)i < size / entsize; i++) {
758                 d = (char *)e + offset + i * entsize;
759                 tag = elf_get_size(e, d, D_TAG);
760                 ptr = elf_get_size(e, d, D_PTR);
761                 val = elf_get_addr(e, d, D_VAL);
762                 fprintf(out, "\n");
763                 fprintf(out, "entry: %d\n", i);
764                 fprintf(out, "\td_tag: %s\n", d_tags(tag));
765                 switch (tag) {
766                 case DT_NEEDED:
767                 case DT_SONAME:
768                 case DT_RPATH:
769                         fprintf(out, "\td_val: %s\n", dynstr + val);
770                         break;
771                 case DT_PLTRELSZ:
772                 case DT_RELA:
773                 case DT_RELASZ:
774                 case DT_RELAENT:
775                 case DT_STRSZ:
776                 case DT_SYMENT:
777                 case DT_RELSZ:
778                 case DT_RELENT:
779                 case DT_PLTREL:
780                         fprintf(out, "\td_val: %jd\n", (intmax_t)val);
781                         break;
782                 case DT_PLTGOT:
783                 case DT_HASH:
784                 case DT_STRTAB:
785                 case DT_SYMTAB:
786                 case DT_INIT:
787                 case DT_FINI:
788                 case DT_REL:
789                 case DT_JMPREL:
790                         fprintf(out, "\td_ptr: %#jx\n", ptr);
791                         break;
792                 case DT_NULL:
793                 case DT_SYMBOLIC:
794                 case DT_DEBUG:
795                 case DT_TEXTREL:
796                         break;
797                 }
798         }
799 }
800
801 static void
802 elf_print_rela(Elf32_Ehdr *e, void *sh)
803 {
804         u_int64_t offset;
805         u_int64_t entsize;
806         u_int64_t size;
807         u_int64_t name;
808         u_int64_t info;
809         int64_t addend;
810         void *ra;
811         void *v;
812         int i;
813
814         offset = elf_get_off(e, sh, SH_OFFSET);
815         entsize = elf_get_size(e, sh, SH_ENTSIZE);
816         size = elf_get_size(e, sh, SH_SIZE);
817         name = elf_get_word(e, sh, SH_NAME);
818         v = (char *)e + offset;
819         fprintf(out, "\nrelocation with addend (%s):\n", shstrtab + name);
820         for (i = 0; (u_int64_t)i < size / entsize; i++) {
821                 ra = (char *)v + i * entsize;
822                 offset = elf_get_addr(e, ra, RA_OFFSET);
823                 info = elf_get_word(e, ra, RA_INFO);
824                 addend = elf_get_off(e, ra, RA_ADDEND);
825                 fprintf(out, "\n");
826                 fprintf(out, "entry: %d\n", i);
827                 fprintf(out, "\tr_offset: %#jx\n", offset);
828                 fprintf(out, "\tr_info: %jd\n", (intmax_t)info);
829                 fprintf(out, "\tr_addend: %jd\n", (intmax_t)addend);
830         }
831 }
832
833 static void
834 elf_print_rel(Elf32_Ehdr *e, void *sh)
835 {
836         u_int64_t offset;
837         u_int64_t entsize;
838         u_int64_t size;
839         u_int64_t name;
840         u_int64_t info;
841         void *r;
842         void *v;
843         int i;
844
845         offset = elf_get_off(e, sh, SH_OFFSET);
846         entsize = elf_get_size(e, sh, SH_ENTSIZE);
847         size = elf_get_size(e, sh, SH_SIZE);
848         name = elf_get_word(e, sh, SH_NAME);
849         v = (char *)e + offset;
850         fprintf(out, "\nrelocation (%s):\n", shstrtab + name);
851         for (i = 0; (u_int64_t)i < size / entsize; i++) {
852                 r = (char *)v + i * entsize;
853                 offset = elf_get_addr(e, r, R_OFFSET);
854                 info = elf_get_word(e, r, R_INFO);
855                 fprintf(out, "\n");
856                 fprintf(out, "entry: %d\n", i);
857                 fprintf(out, "\tr_offset: %#jx\n", offset);
858                 fprintf(out, "\tr_info: %jd\n", (intmax_t)info);
859         }
860 }
861
862 static void
863 elf_print_interp(Elf32_Ehdr *e, void *p)
864 {
865         u_int64_t offset;
866         char *s;
867
868         offset = elf_get_off(e, p, P_OFFSET);
869         s = (char *)e + offset;
870         fprintf(out, "\ninterp:\n");
871         fprintf(out, "\t%s\n", s);
872 }
873
874 static void
875 elf_print_got(Elf32_Ehdr *e, void *sh)
876 {
877         u_int64_t offset;
878         u_int64_t addralign;
879         u_int64_t size;
880         u_int64_t addr;
881         void *v;
882         int i;
883
884         offset = elf_get_off(e, sh, SH_OFFSET);
885         addralign = elf_get_size(e, sh, SH_ADDRALIGN);
886         size = elf_get_size(e, sh, SH_SIZE);
887         v = (char *)e + offset;
888         fprintf(out, "\nglobal offset table:\n");
889         for (i = 0; (u_int64_t)i < size / addralign; i++) {
890                 addr = elf_get_addr(e, (char *)v + i * addralign, 0);
891                 fprintf(out, "\n");
892                 fprintf(out, "entry: %d\n", i);
893                 fprintf(out, "\t%#jx\n", addr);
894         }
895 }
896
897 static void
898 elf_print_hash(Elf32_Ehdr *e __unused, void *sh __unused)
899 {
900 }
901
902 static void
903 elf_print_note(Elf32_Ehdr *e, void *sh)
904 {
905         u_int64_t offset;
906         u_int64_t size;
907         u_int64_t name;
908         u_int32_t namesz;
909         u_int32_t descsz;
910         u_int32_t desc;
911         char *n, *s;
912
913         offset = elf_get_off(e, sh, SH_OFFSET);
914         size = elf_get_size(e, sh, SH_SIZE);
915         name = elf_get_word(e, sh, SH_NAME);
916         n = (char *)e + offset;
917         fprintf(out, "\nnote (%s):\n", shstrtab + name);
918         while (n < ((char *)e + offset + size)) {
919                 namesz = elf_get_word(e, n, N_NAMESZ);
920                 descsz = elf_get_word(e, n, N_DESCSZ);
921                 s = n + sizeof(Elf_Note);
922                 desc = elf_get_word(e, n + sizeof(Elf_Note) + namesz, 0);
923                 fprintf(out, "\t%s %d\n", s, desc);
924                 n += sizeof(Elf_Note) + namesz + descsz;
925         }
926 }
927
928 static u_int64_t
929 elf_get_byte(Elf32_Ehdr *e, void *base, elf_member_t member)
930 {
931         u_int64_t val;
932
933         val = 0;
934         switch (e->e_ident[EI_CLASS]) {
935         case ELFCLASS32:
936                 val = ((uint8_t *)base)[elf32_offsets[member]];
937                 break;
938         case ELFCLASS64:
939                 val = ((uint8_t *)base)[elf64_offsets[member]];
940                 break;
941         case ELFCLASSNONE:
942                 errx(1, "invalid class");
943         }
944
945         return val;
946 }
947
948 static u_int64_t
949 elf_get_quarter(Elf32_Ehdr *e, void *base, elf_member_t member)
950 {
951         u_int64_t val;
952
953         val = 0;
954         switch (e->e_ident[EI_CLASS]) {
955         case ELFCLASS32:
956                 base = (char *)base + elf32_offsets[member];
957                 switch (e->e_ident[EI_DATA]) {
958                 case ELFDATA2MSB:
959                         val = be16dec(base);
960                         break;
961                 case ELFDATA2LSB:
962                         val = le16dec(base);
963                         break;
964                 case ELFDATANONE:
965                         errx(1, "invalid data format");
966                 }
967                 break;
968         case ELFCLASS64:
969                 base = (char *)base + elf64_offsets[member];
970                 switch (e->e_ident[EI_DATA]) {
971                 case ELFDATA2MSB:
972                         val = be16dec(base);
973                         break;
974                 case ELFDATA2LSB:
975                         val = le16dec(base);
976                         break;
977                 case ELFDATANONE:
978                         errx(1, "invalid data format");
979                 }
980                 break;
981         case ELFCLASSNONE:
982                 errx(1, "invalid class");
983         }
984
985         return val;
986 }
987
988 #if 0
989 static u_int64_t
990 elf_get_half(Elf32_Ehdr *e, void *base, elf_member_t member)
991 {
992         u_int64_t val;
993
994         val = 0;
995         switch (e->e_ident[EI_CLASS]) {
996         case ELFCLASS32:
997                 base = (char *)base + elf32_offsets[member];
998                 switch (e->e_ident[EI_DATA]) {
999                 case ELFDATA2MSB:
1000                         val = be16dec(base);
1001                         break;
1002                 case ELFDATA2LSB:
1003                         val = le16dec(base);
1004                         break;
1005                 case ELFDATANONE:
1006                         errx(1, "invalid data format");
1007                 }
1008                 break;
1009         case ELFCLASS64:
1010                 base = (char *)base + elf64_offsets[member];
1011                 switch (e->e_ident[EI_DATA]) {
1012                 case ELFDATA2MSB:
1013                         val = be32dec(base);
1014                         break;
1015                 case ELFDATA2LSB:
1016                         val = le32dec(base);
1017                         break;
1018                 case ELFDATANONE:
1019                         errx(1, "invalid data format");
1020                 }
1021                 break;
1022         case ELFCLASSNONE:
1023                 errx(1, "invalid class");
1024         }
1025
1026         return val;
1027 }
1028 #endif
1029
1030 static u_int64_t
1031 elf_get_word(Elf32_Ehdr *e, void *base, elf_member_t member)
1032 {
1033         u_int64_t val;
1034
1035         val = 0;
1036         switch (e->e_ident[EI_CLASS]) {
1037         case ELFCLASS32:
1038                 base = (char *)base + elf32_offsets[member];
1039                 switch (e->e_ident[EI_DATA]) {
1040                 case ELFDATA2MSB:
1041                         val = be32dec(base);
1042                         break;
1043                 case ELFDATA2LSB:
1044                         val = le32dec(base);
1045                         break;
1046                 case ELFDATANONE:
1047                         errx(1, "invalid data format");
1048                 }
1049                 break;
1050         case ELFCLASS64:
1051                 base = (char *)base + elf64_offsets[member];
1052                 switch (e->e_ident[EI_DATA]) {
1053                 case ELFDATA2MSB:
1054                         val = be32dec(base);
1055                         break;
1056                 case ELFDATA2LSB:
1057                         val = le32dec(base);
1058                         break;
1059                 case ELFDATANONE:
1060                         errx(1, "invalid data format");
1061                 }
1062                 break;
1063         case ELFCLASSNONE:
1064                 errx(1, "invalid class");
1065         }
1066
1067         return val;
1068 }
1069
1070 static u_int64_t
1071 elf_get_quad(Elf32_Ehdr *e, void *base, elf_member_t member)
1072 {
1073         u_int64_t val;
1074
1075         val = 0;
1076         switch (e->e_ident[EI_CLASS]) {
1077         case ELFCLASS32:
1078                 base = (char *)base + elf32_offsets[member];
1079                 switch (e->e_ident[EI_DATA]) {
1080                 case ELFDATA2MSB:
1081                         val = be32dec(base);
1082                         break;
1083                 case ELFDATA2LSB:
1084                         val = le32dec(base);
1085                         break;
1086                 case ELFDATANONE:
1087                         errx(1, "invalid data format");
1088                 }
1089                 break;
1090         case ELFCLASS64:
1091                 base = (char *)base + elf64_offsets[member];
1092                 switch (e->e_ident[EI_DATA]) {
1093                 case ELFDATA2MSB:
1094                         val = be64dec(base);
1095                         break;
1096                 case ELFDATA2LSB:
1097                         val = le64dec(base);
1098                         break;
1099                 case ELFDATANONE:
1100                         errx(1, "invalid data format");
1101                 }
1102                 break;
1103         case ELFCLASSNONE:
1104                 errx(1, "invalid class");
1105         }
1106
1107         return val;
1108 }
1109
1110 static void
1111 usage(void)
1112 {
1113         fprintf(stderr, "usage: elfdump -a | -cdeGhinprs [-w file] file\n");
1114         exit(1);
1115 }