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
62enum 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
84typedef enum elf_member elf_member_t;
85
86static 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
127static 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 */
169static const char *
170d_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
243static const char *
244e_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
269static const char *e_types[] = {
270	"ET_NONE", "ET_REL", "ET_EXEC", "ET_DYN", "ET_CORE"
271};
272
273static const char *ei_versions[] = {
274	"EV_NONE", "EV_CURRENT"
275};
276
277static const char *ei_classes[] = {
278	"ELFCLASSNONE", "ELFCLASS32", "ELFCLASS64"
279};
280
281static const char *ei_data[] = {
282	"ELFDATANONE", "ELFDATA2LSB", "ELFDATA2MSB"
283};
284
285static 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
293static const char *p_types[] = {
294	"PT_NULL", "PT_LOAD", "PT_DYNAMIC", "PT_INTERP", "PT_NOTE",
295	"PT_SHLIB", "PT_PHDR", "PT_TLS"
296};
297
298static 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 */
304static const char *
305sh_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
342static 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
348static const char *st_types[] = {
349	"STT_NOTYPE", "STT_OBJECT", "STT_FUNC", "STT_SECTION", "STT_FILE"
350};
351
352static const char *st_bindings[] = {
353	"STB_LOCAL", "STB_GLOBAL", "STB_WEAK"
354};
355
356static char *dynstr;
357static char *shstrtab;
358static char *strtab;
359static FILE *out;
360
361static u_int64_t elf_get_byte(Elf32_Ehdr *e, void *base, elf_member_t member);
362static u_int64_t elf_get_quarter(Elf32_Ehdr *e, void *base,
363    elf_member_t member);
364#if 0
365static u_int64_t elf_get_half(Elf32_Ehdr *e, void *base, elf_member_t member);
366#endif
367static u_int64_t elf_get_word(Elf32_Ehdr *e, void *base, elf_member_t member);
368static u_int64_t elf_get_quad(Elf32_Ehdr *e, void *base, elf_member_t member);
369
370static void elf_print_ehdr(Elf32_Ehdr *e);
371static void elf_print_phdr(Elf32_Ehdr *e, void *p);
372static void elf_print_shdr(Elf32_Ehdr *e, void *sh);
373static void elf_print_symtab(Elf32_Ehdr *e, void *sh, char *str);
374static void elf_print_dynamic(Elf32_Ehdr *e, void *sh);
375static void elf_print_rel(Elf32_Ehdr *e, void *r);
376static void elf_print_rela(Elf32_Ehdr *e, void *ra);
377static void elf_print_interp(Elf32_Ehdr *e, void *p);
378static void elf_print_got(Elf32_Ehdr *e, void *sh);
379static void elf_print_hash(Elf32_Ehdr *e, void *sh);
380static void elf_print_note(Elf32_Ehdr *e, void *sh);
381
382static void usage(void);
383
384int
385main(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
557static void
558elf_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
612static void
613elf_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
654static void
655elf_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
702static void
703elf_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
741static void
742elf_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
801static void
802elf_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
833static void
834elf_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
862static void
863elf_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
874static void
875elf_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
897static void
898elf_print_hash(Elf32_Ehdr *e __unused, void *sh __unused)
899{
900}
901
902static void
903elf_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
928static u_int64_t
929elf_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
948static u_int64_t
949elf_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
989static u_int64_t
990elf_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
1030static u_int64_t
1031elf_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
1070static u_int64_t
1071elf_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
1110static void
1111usage(void)
1112{
1113	fprintf(stderr, "usage: elfdump -a | -cdeGhinprs [-w file] file\n");
1114	exit(1);
1115}
1116