/* * CDDL HEADER START * * The contents of this file are subject to the terms of the * Common Development and Distribution License (the "License"). * You may not use this file except in compliance with the License. * * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE * or http://www.opensolaris.org/os/licensing. * See the License for the specific language governing permissions * and limitations under the License. * * When distributing Covered Code, include this CDDL HEADER in each * file and include the License file at usr/src/OPENSOLARIS.LICENSE. * If applicable, add the following below this CDDL HEADER, with the * fields enclosed by brackets "[]" replaced with your own identifying * information: Portions Copyright [yyyy] [name of copyright owner] * * CDDL HEADER END */ /* * Copyright (c) 1988 AT&T * All Rights Reserved * * Copyright 2010 Sun Microsystems, Inc. All rights reserved. * Use is subject to license terms. */ /* Get definitions for the relocation types supported. */ #define ELF_TARGET_ALL #include #include #include #include #include #include #include #include #include #include #include #include #include "sgs.h" #include "conv.h" #include "dump.h" #define OPTSTR "agcd:fhn:oprstvCLT:V?" /* option string for getopt() */ const char *UNKNOWN = ""; static SCNTAB *p_symtab, *p_head_scns, *p_dynsym; static int x_flag = 0, /* option requires section header table */ z_flag = 0, /* process files within an archive */ rn_flag = 0; /* dump named relocation information */ static int /* flags: ?_flag corresponds to ? option */ a_flag = 0, /* dump archive header of each member of archive */ g_flag = 0, /* dump archive symbol table */ c_flag = 0, /* dump the string table */ d_flag = 0, /* dump range of sections */ f_flag = 0, /* dump each file header */ h_flag = 0, /* dump section headers */ n_flag = 0, /* dump named section */ o_flag = 0, /* dump each program execution header */ r_flag = 0, /* dump relocation information */ s_flag = 0, /* dump section contents */ t_flag = 0, /* dump symbol table entries */ C_flag = 0, /* dump decoded C++ symbol names */ L_flag = 0, /* dump dynamic linking information */ T_flag = 0, /* dump symbol table range */ V_flag = 0; /* dump version information */ int p_flag = 0, /* suppress printing of headings */ v_flag = 0; /* print information in verbose form */ static int d_low = 0, /* range for use with -d */ d_hi = 0, d_num = 0; static int T_low = 0, /* range for use with -T */ T_hi = 0, T_num = 0; static char *name = NULL; /* for use with -n option */ char *prog_name; static int errflag = 0; static struct stab_list_s { struct stab_list_s *next; char *strings; size_t size; } *StringTableList = (void *)0; extern void ar_sym_read(); extern void dump_exec_header(); /* * Get the section descriptor and set the size of the * data returned. Data is byte-order converted. */ void * get_scndata(Elf_Scn *fd_scn, size_t *size) { Elf_Data *p_data; p_data = 0; if ((p_data = elf_getdata(fd_scn, p_data)) == 0 || p_data->d_size == 0) { return (NULL); } *size = p_data->d_size; return (p_data->d_buf); } /* * Get the section descriptor and set the size of the * data returned. Data is raw (i.e., not byte-order converted). */ static void * get_rawscn(Elf_Scn *fd_scn, size_t *size) { Elf_Data *p_data; p_data = 0; if ((p_data = elf_rawdata(fd_scn, p_data)) == 0 || p_data->d_size == 0) { return (NULL); } *size = p_data->d_size; return (p_data->d_buf); } /* * Print out a usage message in short form when program is invoked * with insufficient or no arguments, and in long form when given * either a ? or an invalid option. */ static void usage() { (void) fprintf(stderr, "Usage: %s [-%s] file(s) ...\n", prog_name, OPTSTR); if (errflag) { (void) fprintf(stderr, "\t\t[-a dump archive header of each member of archive]\n\ [-g dump archive global symbol table]\n\ [-c dump the string table]\n\ [-d dump range of sections]\n\ [-f dump each file header]\n\ [-h dump section headers]\n\ [-n dump named section]\n\ [-o dump each program execution header]\n\ [-p suppress printing of headings]\n\ [-r dump relocation information]\n\ [-s dump section contents]\n\ [-t dump symbol table entries]\n\ [-v print information in verbose form]\n\ [-C dump decoded C++ symbol names]\n\ [-L dump the .dynamic structure]\n\ [-T dump symbol table range]\n\ [-V dump version information]\n"); } } /* * Set a range. Input is a character string, a lower * bound and an upper bound. This function converts * a character string into its correct integer values, * setting the first value as the lower bound, and * the second value as the upper bound. If more values * are given they are ignored with a warning. */ static void set_range(char *s, int *low, int *high) { char *w; char *lasts; while ((w = strtok_r(s, ",", &lasts)) != NULL) { if (!(*low)) /* LINTED */ *low = (int)atol(w); else if (!(*high)) /* LINTED */ *high = (int)atol(w); else { (void) fprintf(stderr, "%s: too many arguments - %s ignored\n", prog_name, w); return; } s = NULL; } /* end while */ } /* * Print static shared library information. */ static void print_static(SCNTAB *l_scns, char *filename) { size_t section_size; unsigned char *strtab; unsigned char *path, buf[1024]; unsigned long *temp; unsigned long total, topath; (void) printf("\n **** STATIC SHARED LIBRARY INFORMATION ****\n"); (void) printf("\n%s:\n", filename); (void) printf("\t"); section_size = 0; if ((strtab = (unsigned char *) get_scndata(l_scns->p_sd, §ion_size)) == NULL) { return; } while (section_size != 0) { /* LINTED */ temp = (unsigned long *)strtab; total = temp[0]; topath = temp[1]; path = strtab + (topath*sizeof (long)); (void) strncpy((char *)buf, (char *)path, (total - topath)*sizeof (long)); (void) fprintf(stdout, "%s\n", buf); strtab += total*sizeof (long); section_size -= (total*sizeof (long)); } } /* * Print raw data in hexidecimal. Input is the section data to * be printed out and the size of the data. Output is relative * to a table lookup in dumpmap.h. */ static void print_rawdata(unsigned char *p_sec, size_t size) { size_t j; size_t count; count = 1; (void) printf("\t"); for (j = size/sizeof (short); j != 0; --j, ++count) { (void) printf("%.2x %.2x ", p_sec[0], p_sec[1]); p_sec += 2; if (count == 12) { (void) printf("\n\t"); count = 0; } } /* * take care of last byte if odd byte section */ if ((size & 0x1L) == 1L) (void) printf("%.2x", *p_sec); (void) printf("\n"); } /* * Print relocation data of type SHT_RELA * If d_flag, print data corresponding only to * the section or range of sections specified. * If n_flag, print data corresponding only to * the named section. */ static void print_rela(Elf *elf_file, SCNTAB *p_scns, Elf_Data *rdata, Elf_Data *sym_data, GElf_Ehdr * p_ehdr, size_t reloc_size, size_t sym_size, char *filename, SCNTAB *reloc_symtab) { GElf_Rela rela; GElf_Sym sym; size_t no_entries; size_t rel_entsize; size_t no_syms; int type, symid; static int n_title = 0; int ndx = 0; char *sym_name; int adj = 0; if (gelf_getclass(elf_file) == ELFCLASS64) adj = 8; rel_entsize = p_scns->p_shdr.sh_entsize; if ((rel_entsize == 0) || (rel_entsize > p_scns->p_shdr.sh_size)) { rel_entsize = gelf_fsize(elf_file, ELF_T_RELA, 1, EV_CURRENT); } no_entries = reloc_size / rel_entsize; no_syms = sym_size / gelf_fsize(elf_file, ELF_T_SYM, 1, EV_CURRENT); while (no_entries--) { (void) gelf_getrela(rdata, ndx, &rela); /* LINTED */ type = (int)GELF_R_TYPE(rela.r_info); /* LINTED */ symid = (int)GELF_R_SYM(rela.r_info); /* LINTED */ if ((symid > (no_syms - 1)) || (symid < 0)) { (void) fprintf(stderr, "%s: %s: invalid symbol table " "offset - %d - in %s\n", prog_name, filename, symid, p_scns->scn_name); ndx++; continue; } (void) gelf_getsym(sym_data, symid, &sym); sym_name = (char *)elf_strptr(elf_file, reloc_symtab->p_shdr.sh_link, sym.st_name); if (sym_name == NULL) sym_name = (char *)UNKNOWN; if (r_flag && rn_flag) { if (strcmp(name, p_scns->scn_name) != 0) { ndx++; continue; } if (!n_title) { (void) printf("\n%s:\n", p_scns->scn_name); (void) printf("%-*s%-*s%-*s%s\n\n", 12 + adj, "Offset", 22, "Symndx", 16, "Type", "Addend"); n_title = 1; } } if (d_flag) { if (!d_hi) d_hi = d_low; if ((symid < d_low) || (symid > d_hi)) { ndx++; continue; } } (void) printf("%-#*llx", 12 + adj, EC_XWORD(rela.r_offset)); if (!v_flag) { (void) printf("%-22d%-18d", symid, type); } else { Conv_inv_buf_t inv_buf; if (strlen(sym_name)) { size_t len = strlen(sym_name) + 1; char tmpstr[10]; if (len > 22) { (void) sprintf(tmpstr, "%%-%ds", /* LINTED */ (int)len); /*LINTED: E_SEC_PRINTF_VAR_FMT*/ (void) printf(tmpstr, sym_name); } else (void) printf("%-22s", sym_name); } else { (void) printf("%-22d", symid); } (void) printf("%-20s", conv_reloc_type(p_ehdr->e_machine, type, DUMP_CONVFMT, &inv_buf)); } (void) printf("%lld\n", EC_SXWORD(rela.r_addend)); ndx++; } } /* * Print relocation data of type SHT_REL. * If d_flag, print data corresponding only to * the section or range of sections specified. * If n_flag, print data corresponding only to * the named section. */ static void print_rel(Elf *elf_file, SCNTAB *p_scns, Elf_Data *rdata, Elf_Data *sym_data, GElf_Ehdr *p_ehdr, size_t reloc_size, size_t sym_size, char *filename, SCNTAB *reloc_symtab) { GElf_Rel rel; GElf_Sym sym; size_t no_entries; size_t rel_entsize; int type, symid; size_t no_syms; static int n_title = 0; int ndx = 0; char *sym_name; int adj = 0; if (gelf_getclass(elf_file) == ELFCLASS64) adj = 8; rel_entsize = p_scns->p_shdr.sh_entsize; if ((rel_entsize == 0) || (rel_entsize > p_scns->p_shdr.sh_size)) { rel_entsize = gelf_fsize(elf_file, ELF_T_REL, 1, EV_CURRENT); } no_entries = reloc_size / rel_entsize; no_syms = sym_size / gelf_fsize(elf_file, ELF_T_SYM, 1, EV_CURRENT); while (no_entries--) { (void) gelf_getrel(rdata, ndx, &rel); /* LINTED */ type = (int)GELF_R_TYPE(rel.r_info); /* LINTED */ symid = (int)GELF_R_SYM(rel.r_info); /* LINTED */ if ((symid > (no_syms - 1)) || (symid < 0)) { (void) fprintf(stderr, "%s: %s: invalid symbol table " "offset - %d - in %s\n", prog_name, filename, symid, p_scns->scn_name); ndx++; continue; } (void) gelf_getsym(sym_data, symid, &sym); sym_name = (char *)elf_strptr(elf_file, reloc_symtab->p_shdr.sh_link, sym.st_name); if (sym_name == NULL) sym_name = (char *)UNKNOWN; if (r_flag && rn_flag) { if (strcmp(name, p_scns->scn_name) != 0) { ndx++; continue; } if (!n_title) { (void) printf("\n%s:\n", p_scns->scn_name); (void) printf("%-*s%-*s%s\n\n", 12 + adj, "Offset", 20, "Symndx", "Type"); n_title = 1; } } if (d_flag) { if (!d_hi) d_hi = d_low; if ((symid < d_low) || (symid > d_hi)) { ndx++; continue; } } (void) printf("%-#*llx", 12 + adj, EC_ADDR(rel.r_offset)); if (!v_flag) { (void) printf("%-20d%-18d", symid, type); } else { Conv_inv_buf_t inv_buf; if (strlen(sym_name)) (void) printf("%-20s", sym_name); else { (void) printf("%-20d", sym.st_name); } (void) printf("%-20s", conv_reloc_type(p_ehdr->e_machine, type, DUMP_CONVFMT, &inv_buf)); } (void) printf("\n"); ndx++; } } /* demangle C++ names */ static char * demangled_name(char *s) { static char *buf = NULL; const char *dn; size_t len; dn = conv_demangle_name(s); /* * If not demangled, just return the symbol name */ if (strcmp(s, dn) == 0) return (s); /* * Demangled. Format it */ if (buf != NULL) free(buf); len = strlen(dn) + strlen(s) + 4; if ((buf = malloc(len)) == NULL) return (s); (void) snprintf(buf, len, "%s\t[%s]", dn, s); return (buf); } /* * Print the symbol table. Input is an ELF file descriptor, a * pointer to the symbol table SCNTAB structure, * the number of symbols, a range of symbols to print, * an index which is the number of the * section in the file, and the filename. The number of sections, * the range, and the index are set in * dump_symbol_table, depending on whether -n or -T were set. */ static void print_symtab(Elf *elf_file, SCNTAB *p_symtab, Elf_Data *sym_data, long range, int index) { GElf_Sym sym; int adj = 0; /* field adjustment for elf64 */ Elf32_Word *symshndx = 0; unsigned int nosymshndx = 0; Conv_inv_buf_t inv_buf; if (gelf_getclass(elf_file) == ELFCLASS64) adj = 8; while (range > 0) { char *sym_name = (char *)0; int type, bind; int specsec; unsigned int shndx; (void) gelf_getsym(sym_data, index, &sym); type = (int)GELF_ST_TYPE(sym.st_info); bind = (int)GELF_ST_BIND(sym.st_info); if ((sym.st_shndx == SHN_XINDEX) && (symshndx == 0) && (nosymshndx == 0)) { Elf_Scn *_scn; GElf_Shdr _shdr; size_t symscnndx; symscnndx = elf_ndxscn(p_symtab->p_sd); _scn = 0; while ((_scn = elf_nextscn(elf_file, _scn)) != 0) { if (gelf_getshdr(_scn, &_shdr) == 0) break; if ((_shdr.sh_type == SHT_SYMTAB_SHNDX) && /* LINTED */ (_shdr.sh_link == (GElf_Word)symscnndx)) { Elf_Data *_data; if ((_data = elf_getdata(_scn, 0)) == 0) continue; symshndx = (Elf32_Word *)_data->d_buf; nosymshndx = 0; break; } } nosymshndx = 1; } if ((symshndx) && (sym.st_shndx == SHN_XINDEX)) { shndx = symshndx[index]; specsec = 0; } else { shndx = sym.st_shndx; if ((sym.st_shndx == SHN_UNDEF) || (sym.st_shndx >= SHN_LORESERVE)) specsec = 1; else specsec = 0; } (void) printf("[%d]\t ", index++); if (v_flag && (type == STT_SPARC_REGISTER)) { /* * The strings "REG_G1" through "REG_G7" are intended * to be consistent with output from elfdump(1). */ (void) printf("%-*s", 12 + adj, conv_sym_SPARC_value(sym.st_value, DUMP_CONVFMT, &inv_buf)); } else { (void) printf("0x%-*llx", 10 + adj, EC_ADDR(sym.st_value)); } (void) printf("%-*lld", 9 + adj, EC_XWORD(sym.st_size)); if (!v_flag) { (void) printf("%d\t\t%d\t%d\t%#x\t", type, bind, (int)sym.st_other, (int)shndx); } else { GElf_Ehdr p_ehdr; (void) gelf_getehdr(elf_file, &p_ehdr); (void) printf("%s\t", conv_sym_info_type(p_ehdr.e_machine, type, DUMP_CONVFMT, &inv_buf)); (void) printf("%s", conv_sym_info_bind(bind, DUMP_CONVFMT, &inv_buf)); (void) printf("\t %d\t", EC_WORD(sym.st_other)); if (specsec) (void) printf("%s", conv_sym_shndx(p_ehdr.e_ident[EI_OSABI], p_ehdr.e_machine, shndx, CONV_FMT_DECIMAL, &inv_buf)); else (void) printf("%d", EC_WORD(shndx)); (void) printf("\t"); } /* support machines where NULL-deref causes core dump */ if (sym.st_name == 0) sym_name = (char *)UNKNOWN; else if (C_flag) sym_name = demangled_name( (char *)elf_strptr(elf_file, p_symtab->p_shdr.sh_link, sym.st_name)); else sym_name = (char *)elf_strptr(elf_file, p_symtab->p_shdr.sh_link, sym.st_name); if (sym_name == NULL) sym_name = (char *)UNKNOWN; (void) printf("%s\n", sym_name); range--; } /* end while */ } /* * Print the section header table. Input is the SCNTAB structure, * the number of sections, an index which is the number of the * section in the file, and the filename. The values of the SCNTAB * structure, the number of sections, and the index are set in * dump_shdr depending on whether the -n or -d modifiers were set. */ static void print_shdr(Elf *elf_file, SCNTAB *s, int num_scns, int index) { SCNTAB *p; int num; int field; GElf_Ehdr p_ehdr; if (gelf_getclass(elf_file) == ELFCLASS64) field = 21; else field = 13; p = s; (void) gelf_getehdr(elf_file, &p_ehdr); for (num = 0; num < num_scns; num++, p++) { (void) printf("[%d]\t", index++); if (!v_flag) { (void) printf("%u\t%llu\t", EC_WORD(p->p_shdr.sh_type), EC_XWORD(p->p_shdr.sh_flags)); } else { Conv_inv_buf_t inv_buf; /*LINTED: E_SEC_PRINTF_VAR_FMT*/ (void) printf(conv_sec_type( p_ehdr.e_ident[EI_OSABI], p_ehdr.e_machine, p->p_shdr.sh_type, DUMP_CONVFMT, &inv_buf)); (void) printf(" "); if (p->p_shdr.sh_flags & SHF_WRITE) (void) printf("W"); else (void) printf("-"); if (p->p_shdr.sh_flags & SHF_ALLOC) (void) printf("A"); else (void) printf("-"); if (p->p_shdr.sh_flags & SHF_EXECINSTR) (void) printf("I"); else (void) printf("-"); if (p->p_shdr.sh_flags & SHF_ORDERED) (void) printf("O"); if (p->p_shdr.sh_flags & SHF_EXCLUDE) (void) printf("E"); (void) printf("\t"); } (void) printf("%-#*llx%-#*llx%-#*llx%s%s\n", field, EC_ADDR(p->p_shdr.sh_addr), field, EC_OFF(p->p_shdr.sh_offset), field, EC_XWORD(p->p_shdr.sh_size), /* compatibility: tab for elf32 */ (field == 13) ? "\t" : " ", p->scn_name); (void) printf("\t%u\t%u\t%-#*llx%-#*llx\n\n", EC_WORD(p->p_shdr.sh_link), EC_WORD(p->p_shdr.sh_info), field, EC_XWORD(p->p_shdr.sh_addralign), field, EC_XWORD(p->p_shdr.sh_entsize)); } } /* * Check that a range of numbers is valid. Input is * a lower bound, an upper bound, a boundary condition, * and the filename. Negative numbers and numbers greater * than the bound are invalid. low must be smaller than hi. * The returned integer is the number of items in the * range if it is valid and -1 otherwise. */ static int check_range(int low, int hi, size_t bound, char *filename) { if (((size_t)low > bound) || (low <= 0)) { (void) fprintf(stderr, "%s: %s: number out of range, %d\n", prog_name, filename, low); return (-1); } if (((size_t)hi > bound) || (hi < 0)) { (void) fprintf(stderr, "%s: %s: number out of range, %d\n", prog_name, filename, hi); return (-1); } if (hi && (low > hi)) { (void) fprintf(stderr, "%s: %s: invalid range, %d,%d\n", prog_name, filename, low, hi); return (-1); } if (hi) return (hi - low + 1); else return (1); } /* * Print relocation information. Since this information is * machine dependent, new sections must be added for each machine * that is supported. Input is an ELF file descriptor, the ELF header, * the SCNTAB structure, the number of sections, and a filename. * Set up necessary information to print relocation information * and call the appropriate print function depending on the * type of relocation information. If the symbol table is * absent, no relocation data is processed. Input is an * ELF file descriptor, the ELF header, the SCNTAB structure, * and the filename. Set range of d_flag and name if n_flag. */ static void dump_reloc_table(Elf *elf_file, GElf_Ehdr *p_ehdr, SCNTAB *p_scns, int num_scns, char *filename) { Elf_Data *rel_data; Elf_Data *sym_data; size_t sym_size; size_t reloc_size; SCNTAB *reloc_symtab; SCNTAB *head_scns; int r_title = 0; int adj = 0; size_t shnum; if (gelf_getclass(elf_file) == ELFCLASS64) adj = 8; if ((!p_flag) && (!r_title)) { (void) printf("\n **** RELOCATION INFORMATION ****\n"); r_title = 1; } while (num_scns-- > 0) { if ((p_scns->p_shdr.sh_type != SHT_RELA) && (p_scns->p_shdr.sh_type != SHT_REL)) { p_scns++; continue; } head_scns = p_head_scns; if (elf_getshdrnum(elf_file, &shnum) == -1) { (void) fprintf(stderr, "%s: %s: elf_getshdrnum failed: %s\n", prog_name, filename, elf_errmsg(-1)); return; } if ((p_scns->p_shdr.sh_link == 0) || /* LINTED */ (p_scns->p_shdr.sh_link >= (GElf_Word)shnum)) { (void) fprintf(stderr, "%s: %s: invalid sh_link field: " "section #: %d sh_link: %d\n", /* LINTED */ prog_name, filename, (int)elf_ndxscn(p_scns->p_sd), (int)p_scns->p_shdr.sh_link); return; } head_scns += (p_scns->p_shdr.sh_link -1); if (head_scns->p_shdr.sh_type == SHT_SYMTAB) { reloc_symtab = p_symtab; } else if (head_scns->p_shdr.sh_type == SHT_DYNSYM) { reloc_symtab = p_dynsym; } else { (void) fprintf(stderr, "%s: %s: could not get symbol table\n", prog_name, filename); return; } sym_data = NULL; sym_size = 0; reloc_size = 0; if ((sym_data = elf_getdata(reloc_symtab->p_sd, NULL)) == NULL) { (void) fprintf(stderr, "%s: %s: no symbol table data\n", prog_name, filename); return; } sym_size = sym_data->d_size; if (p_scns == NULL) { (void) fprintf(stderr, "%s: %s: no section table data\n", prog_name, filename); return; } if (p_scns->p_shdr.sh_type == SHT_RELA) { if (!n_flag && r_flag) (void) printf("\n%s:\n", p_scns->scn_name); if (!p_flag && (!n_flag && r_flag)) (void) printf("%-*s%-*s%-*s%s\n\n", 12 + adj, "Offset", 22, "Symndx", 18, "Type", "Addend"); if ((rel_data = elf_getdata(p_scns->p_sd, NULL)) == NULL) { (void) fprintf(stderr, "%s: %s: no relocation information\n", prog_name, filename); return; } reloc_size = rel_data->d_size; if (n_flag) { rn_flag = 1; print_rela(elf_file, p_scns, rel_data, sym_data, p_ehdr, reloc_size, sym_size, filename, reloc_symtab); } if (d_flag) { rn_flag = 0; print_rela(elf_file, p_scns, rel_data, sym_data, p_ehdr, reloc_size, sym_size, filename, reloc_symtab); } if (!n_flag && !d_flag) print_rela(elf_file, p_scns, rel_data, sym_data, p_ehdr, reloc_size, sym_size, filename, reloc_symtab); } else { if (p_scns->p_shdr.sh_type == SHT_REL) { if (!n_flag && r_flag) (void) printf("\n%s:\n", p_scns->scn_name); if (!p_flag && (!n_flag && r_flag)) { (void) printf("%-*s%-*s%s\n\n", 12 + adj, "Offset", 20, "Symndx", "Type"); } if ((rel_data = elf_getdata(p_scns->p_sd, NULL)) == NULL) { (void) fprintf(stderr, "%s: %s: no relocation information\n", prog_name, filename); return; } reloc_size = rel_data->d_size; if (n_flag) { rn_flag = 1; print_rel(elf_file, p_scns, rel_data, sym_data, p_ehdr, reloc_size, sym_size, filename, reloc_symtab); } if (d_flag) { rn_flag = 0; print_rel(elf_file, p_scns, rel_data, sym_data, p_ehdr, reloc_size, sym_size, filename, reloc_symtab); } if (!n_flag && !d_flag) print_rel(elf_file, p_scns, rel_data, sym_data, p_ehdr, reloc_size, sym_size, filename, reloc_symtab); } } p_scns++; } } /* * Print out the string tables. Input is an opened ELF file, * the SCNTAB structure, the number of sections, and the filename. * Since there can be more than one string table, all sections are * examined and any with the correct type are printed out. */ static void dump_string_table(SCNTAB *s, int num_scns) { size_t section_size; unsigned char *strtab; int beg_of_string; int counter = 0; int str_off; int i; if (!p_flag) { (void) printf("\n **** STRING TABLE INFORMATION ****\n"); } for (i = 0; i < num_scns; i++, s++) { if (s->p_shdr.sh_type != SHT_STRTAB) continue; str_off = 0; if (!p_flag) { (void) printf("\n%s:\n", s->scn_name); (void) printf(" \tName\n"); } section_size = 0; if ((strtab = (unsigned char *) get_scndata(s->p_sd, §ion_size)) == NULL) { continue; } if (section_size != 0) { (void) printf(" <%d> \t", str_off); beg_of_string = 0; while (section_size--) { unsigned char c = *strtab++; if (beg_of_string) { (void) printf(" <%d> \t", str_off); counter++; beg_of_string = 0; } str_off++; switch (c) { case '\0': (void) printf("\n"); beg_of_string = 1; break; default: (void) putchar(c); } } } } (void) printf("\n"); } /* * Print the symbol table. This function does not print the contents * of the symbol table but sets up the parameters and then calls * print_symtab to print the symbols. Calling another function to print * the symbols allows both -T and -n to work correctly * simultaneously. Input is an opened ELF file, a pointer to the * symbol table SCNTAB structure, and the filename. * Set the range of symbols to print if T_flag, and set * name of symbol to print if n_flag. */ static void dump_symbol_table(Elf *elf_file, SCNTAB *p_symtab, char *filename) { Elf_Data *sym_data; GElf_Sym T_range, n_range; /* for use with -T and -n */ size_t count = 0; size_t sym_size; int index = 1; int found_it = 0; int i; int adj = 0; /* field adjustment for elf64 */ if (gelf_getclass(elf_file) == ELFCLASS64) adj = 8; if (p_symtab == NULL) { (void) fprintf(stderr, "%s: %s: could not get symbol table\n", prog_name, filename); return; } /* get symbol table data */ sym_data = NULL; sym_size = 0; if ((sym_data = elf_getdata(p_symtab->p_sd, NULL)) == NULL) { (void) printf("\n%s:\n", p_symtab->scn_name); (void) printf("No symbol table data\n"); return; } sym_size = sym_data->d_size; count = sym_size / p_symtab->p_shdr.sh_entsize; if (n_flag && t_flag && !T_flag) { /* LINTED */ for (i = 1; i < count; i++) { (void) gelf_getsym(sym_data, i, &n_range); if (strcmp(name, (char *) elf_strptr(elf_file, p_symtab->p_shdr.sh_link, n_range.st_name)) != 0) { continue; } else { found_it = 1; if (!p_flag) { (void) printf( "\n ***** SYMBOL TABLE INFORMATION *****\n"); (void) printf( "[Index] %-*s%-*sType\tBind\tOther\tShndx\tName", 12 + adj, "Value", 9 + adj, "Size"); } (void) printf("\n%s:\n", p_symtab->scn_name); print_symtab(elf_file, p_symtab, sym_data, 1, i); } } /* end for */ if (!found_it) { (void) fprintf(stderr, "%s: %s: %s not found\n", prog_name, filename, name); } } else if (T_flag) { T_num = check_range(T_low, T_hi, count, filename); if (T_num < 0) return; (void) gelf_getsym(sym_data, T_low-1, &T_range); index = T_low; if (!p_flag) { (void) printf( "\n ***** SYMBOL TABLE INFORMATION *****\n"); (void) printf( "[Index] %-*s%-*sType\tBind\tOther\tShndx\tName", 12 + adj, "Value", 9 + adj, "Size"); } (void) printf("\n%s:\n", p_symtab->scn_name); print_symtab(elf_file, p_symtab, sym_data, T_num, index); } else { if (!p_flag) { (void) printf( "\n ***** SYMBOL TABLE INFORMATION *****\n"); (void) printf( "[Index] %-*s%-*sType\tBind\tOther\tShndx\tName", 12 + adj, "Value", 9 + adj, "Size"); } (void) printf("\n%s:\n", p_symtab->scn_name); print_symtab(elf_file, p_symtab, sym_data, count-1, 1); } } /* * Print dynamic linking information. Input is an ELF * file descriptor, the SCNTAB structure, the number of * sections, and the filename. */ static void dump_dynamic(Elf *elf_file, SCNTAB *p_scns, int num_scns, char *filename) { #define pdyn_Fmtptr "%#llx" Elf_Data *dyn_data; GElf_Dyn p_dyn; GElf_Phdr p_phdr; GElf_Ehdr p_ehdr; int index = 1; int lib_scns = num_scns; SCNTAB *l_scns = p_scns; int header_num = 0; const char *str; (void) gelf_getehdr(elf_file, &p_ehdr); if (!p_flag) (void) printf("\n **** DYNAMIC SECTION INFORMATION ****\n"); for (; num_scns > 0; num_scns--, p_scns++) { GElf_Word link; int ii; if (p_scns->p_shdr.sh_type != SHT_DYNAMIC) continue; if (!p_flag) { (void) printf("%s:\n", p_scns->scn_name); (void) printf("[INDEX]\tTag Value\n"); } if ((dyn_data = elf_getdata(p_scns->p_sd, NULL)) == 0) { (void) fprintf(stderr, "%s: %s: no data in " "%s section\n", prog_name, filename, p_scns->scn_name); return; } link = p_scns->p_shdr.sh_link; ii = 0; (void) gelf_getdyn(dyn_data, ii++, &p_dyn); while (p_dyn.d_tag != DT_NULL) { union { Conv_inv_buf_t inv; Conv_dyn_flag_buf_t dyn_flag; Conv_dyn_flag1_buf_t dyn_flag1; Conv_dyn_feature1_buf_t dyn_feature1; Conv_dyn_posflag1_buf_t dyn_posflag1; } conv_buf; (void) printf("[%d]\t%-15.15s ", index++, conv_dyn_tag(p_dyn.d_tag, p_ehdr.e_ident[EI_OSABI], p_ehdr.e_machine, DUMP_CONVFMT, &conv_buf.inv)); /* * It would be nice to use a table driven loop * here, but the address space is too sparse * and irregular. A switch is simple and robust. */ switch (p_dyn.d_tag) { /* * Items with an address value */ case DT_PLTGOT: case DT_HASH: case DT_STRTAB: case DT_RELA: case DT_SYMTAB: case DT_INIT: case DT_FINI: case DT_REL: case DT_DEBUG: case DT_TEXTREL: case DT_JMPREL: case DT_INIT_ARRAY: case DT_FINI_ARRAY: case DT_INIT_ARRAYSZ: case DT_FINI_ARRAYSZ: case DT_PREINIT_ARRAY: case DT_PREINIT_ARRAYSZ: case DT_SUNW_RTLDINF: case DT_SUNW_CAP: case DT_SUNW_CAPINFO: case DT_SUNW_CAPCHAIN: case DT_SUNW_SYMTAB: case DT_SUNW_SYMSORT: case DT_SUNW_TLSSORT: case DT_PLTPAD: case DT_MOVETAB: case DT_SYMINFO: case DT_RELACOUNT: case DT_RELCOUNT: case DT_VERSYM: case DT_VERDEF: case DT_VERDEFNUM: case DT_VERNEED: (void) printf(pdyn_Fmtptr, EC_ADDR(p_dyn.d_un.d_ptr)); break; /* * Items with a string value */ case DT_NEEDED: case DT_SONAME: case DT_RPATH: case DT_RUNPATH: case DT_SUNW_AUXILIARY: case DT_SUNW_FILTER: case DT_CONFIG: case DT_DEPAUDIT: case DT_AUDIT: case DT_AUXILIARY: case DT_USED: case DT_FILTER: if (v_flag) { /* Look up the string */ str = (char *)elf_strptr(elf_file, link, p_dyn.d_un.d_ptr); if (!(str && *str)) str = (char *)UNKNOWN; (void) printf("%s", str); } else { /* Show the address */ (void) printf(pdyn_Fmtptr, EC_ADDR(p_dyn.d_un.d_ptr)); } break; /* * Items with a literal value */ case DT_PLTRELSZ: case DT_RELASZ: case DT_RELAENT: case DT_STRSZ: case DT_SYMENT: case DT_RELSZ: case DT_RELENT: case DT_PLTREL: case DT_BIND_NOW: case DT_CHECKSUM: case DT_PLTPADSZ: case DT_MOVEENT: case DT_MOVESZ: case DT_SYMINSZ: case DT_SYMINENT: case DT_VERNEEDNUM: case DT_SPARC_REGISTER: case DT_SUNW_SYMSZ: case DT_SUNW_SORTENT: case DT_SUNW_SYMSORTSZ: case DT_SUNW_TLSSORTSZ: case DT_SUNW_STRPAD: case DT_SUNW_CAPCHAINENT: case DT_SUNW_CAPCHAINSZ: (void) printf(pdyn_Fmtptr, EC_XWORD(p_dyn.d_un.d_val)); break; /* * Integer items that are bitmasks, or which * can be otherwise formatted in symbolic form. */ case DT_FLAGS: case DT_FEATURE_1: case DT_POSFLAG_1: case DT_FLAGS_1: case DT_SUNW_LDMACH: str = NULL; if (v_flag) { switch (p_dyn.d_tag) { case DT_FLAGS: str = conv_dyn_flag( p_dyn.d_un.d_val, DUMP_CONVFMT, &conv_buf.dyn_flag); break; case DT_FEATURE_1: str = conv_dyn_feature1( p_dyn.d_un.d_val, DUMP_CONVFMT, &conv_buf.dyn_feature1); break; case DT_POSFLAG_1: str = conv_dyn_posflag1( p_dyn.d_un.d_val, DUMP_CONVFMT, &conv_buf.dyn_posflag1); break; case DT_FLAGS_1: str = conv_dyn_flag1( p_dyn.d_un.d_val, 0, &conv_buf.dyn_flag1); break; case DT_SUNW_LDMACH: str = conv_ehdr_mach( p_dyn.d_un.d_val, 0, &conv_buf.inv); break; } } if (str) { /* Show as string */ (void) printf("%s", str); } else { /* Numeric form */ (void) printf(pdyn_Fmtptr, EC_ADDR(p_dyn.d_un.d_ptr)); } break; /* * Depreciated items with a literal value */ case DT_DEPRECATED_SPARC_REGISTER: (void) printf(pdyn_Fmtptr " (deprecated value)", EC_XWORD(p_dyn.d_un.d_val)); break; /* Ignored items */ case DT_SYMBOLIC: (void) printf("(ignored)"); break; } (void) printf("\n"); (void) gelf_getdyn(dyn_data, ii++, &p_dyn); } } /* * Check for existence of static shared library information. */ while (header_num < p_ehdr.e_phnum) { (void) gelf_getphdr(elf_file, header_num, &p_phdr); if (p_phdr.p_type == PT_SHLIB) { while (--lib_scns > 0) { if (strcmp(l_scns->scn_name, ".lib") == 0) { print_static(l_scns, filename); } l_scns++; } } header_num++; } #undef pdyn_Fmtptr } /* * Print the ELF header. Input is an ELF file descriptor * and the filename. If f_flag is set, the ELF header is * printed to stdout, otherwise the function returns after * setting the pointer to the ELF header. Any values which * are not known are printed in decimal. Fields must be updated * as new values are added. */ static GElf_Ehdr * dump_elf_header(Elf *elf_file, char *filename, GElf_Ehdr * elf_head_p) { int class; int field; if (gelf_getehdr(elf_file, elf_head_p) == NULL) { (void) fprintf(stderr, "%s: %s: %s\n", prog_name, filename, elf_errmsg(-1)); return (NULL); } class = (int)elf_head_p->e_ident[4]; if (class == ELFCLASS64) field = 21; else field = 13; if (!f_flag) return (elf_head_p); if (!p_flag) { (void) printf("\n **** ELF HEADER ****\n"); (void) printf("%-*s%-11s%-*sMachine Version\n", field, "Class", "Data", field, "Type"); (void) printf("%-*s%-11s%-*sFlags Ehsize\n", field, "Entry", "Phoff", field, "Shoff"); (void) printf("%-*s%-11s%-*sShnum Shstrndx\n\n", field, "Phentsize", "Phnum", field, "Shentsz"); } if (!v_flag) { (void) printf("%-*d%-11d%-*d%-12d%d\n", field, elf_head_p->e_ident[4], elf_head_p->e_ident[5], field, (int)elf_head_p->e_type, (int)elf_head_p->e_machine, elf_head_p->e_version); } else { Conv_inv_buf_t inv_buf; (void) printf("%-*s", field, conv_ehdr_class(class, DUMP_CONVFMT, &inv_buf)); (void) printf("%-11s", conv_ehdr_data(elf_head_p->e_ident[5], DUMP_CONVFMT, &inv_buf)); (void) printf("%-*s", field, conv_ehdr_type(elf_head_p->e_ident[EI_OSABI], elf_head_p->e_type, DUMP_CONVFMT, &inv_buf)); (void) printf("%-12s", conv_ehdr_mach(elf_head_p->e_machine, DUMP_CONVFMT, &inv_buf)); (void) printf("%s\n", conv_ehdr_vers(elf_head_p->e_version, DUMP_CONVFMT, &inv_buf)); } (void) printf("%-#*llx%-#11llx%-#*llx%-#12x%#x\n", field, EC_ADDR(elf_head_p->e_entry), EC_OFF(elf_head_p->e_phoff), field, EC_OFF(elf_head_p->e_shoff), EC_WORD(elf_head_p->e_flags), EC_WORD(elf_head_p->e_ehsize)); if (!v_flag || (elf_head_p->e_shstrndx != SHN_XINDEX)) { (void) printf("%-#*x%-11u%-#*x%-12u%u\n", field, EC_WORD(elf_head_p->e_phentsize), EC_WORD(elf_head_p->e_phnum), field, EC_WORD(elf_head_p->e_shentsize), EC_WORD(elf_head_p->e_shnum), EC_WORD(elf_head_p->e_shstrndx)); } else { (void) printf("%-#*x%-11u%-#*x%-12uXINDEX\n", field, EC_WORD(elf_head_p->e_phentsize), EC_WORD(elf_head_p->e_phnum), field, EC_WORD(elf_head_p->e_shentsize), EC_WORD(elf_head_p->e_shnum)); } if ((elf_head_p->e_shnum == 0) && (elf_head_p->e_shoff > 0)) { Elf_Scn *scn; GElf_Shdr shdr0; int field; if (gelf_getclass(elf_file) == ELFCLASS64) field = 21; else field = 13; if (!p_flag) { (void) printf("\n **** SECTION HEADER[0] " "{Elf Extensions} ****\n"); (void) printf( "[No]\tType\tFlags\t%-*s %-*s%-*s%sName\n", field, "Addr", field, "Offset", field, "Size(shnum)", /* compatibility: tab for elf32 */ (field == 13) ? "\t" : " "); (void) printf("\tLn(strndx) Info\t%-*s Entsize\n", field, "Adralgn"); } if ((scn = elf_getscn(elf_file, 0)) == NULL) { (void) fprintf(stderr, "%s: %s: elf_getscn failed: %s\n", prog_name, filename, elf_errmsg(-1)); return (NULL); } if (gelf_getshdr(scn, &shdr0) == 0) { (void) fprintf(stderr, "%s: %s: gelf_getshdr: %s\n", prog_name, filename, elf_errmsg(-1)); return (NULL); } (void) printf("[0]\t%u\t%llu\t", EC_WORD(shdr0.sh_type), EC_XWORD(shdr0.sh_flags)); (void) printf("%-#*llx %-#*llx%-*llu%s%-*u\n", field, EC_ADDR(shdr0.sh_addr), field, EC_OFF(shdr0.sh_offset), field, EC_XWORD(shdr0.sh_size), /* compatibility: tab for elf32 */ ((field == 13) ? "\t" : " "), field, EC_WORD(shdr0.sh_name)); (void) printf("\t%u\t%u\t%-#*llx %-#*llx\n", EC_WORD(shdr0.sh_link), EC_WORD(shdr0.sh_info), field, EC_XWORD(shdr0.sh_addralign), field, EC_XWORD(shdr0.sh_entsize)); } (void) printf("\n"); return (elf_head_p); } /* * Print section contents. Input is an ELF file descriptor, * the ELF header, the SCNTAB structure, * the number of symbols, and the filename. * The number of sections, * and the offset into the SCNTAB structure will be * set in dump_section if d_flag or n_flag are set. * If v_flag is set, sections which can be interpreted will * be interpreted, otherwise raw data will be output in hexidecimal. */ static void print_section(Elf *elf_file, GElf_Ehdr *p_ehdr, SCNTAB *p, int num_scns, char *filename) { unsigned char *p_sec; int i; size_t size; for (i = 0; i < num_scns; i++, p++) { GElf_Shdr shdr; size = 0; if (s_flag && !v_flag) p_sec = (unsigned char *)get_rawscn(p->p_sd, &size); else p_sec = (unsigned char *)get_scndata(p->p_sd, &size); if ((gelf_getshdr(p->p_sd, &shdr) != NULL) && (shdr.sh_type == SHT_NOBITS)) { continue; } if (s_flag && !v_flag) { (void) printf("\n%s:\n", p->scn_name); print_rawdata(p_sec, size); continue; } if (shdr.sh_type == SHT_SYMTAB) { dump_symbol_table(elf_file, p, filename); continue; } if (shdr.sh_type == SHT_DYNSYM) { dump_symbol_table(elf_file, p, filename); continue; } if (shdr.sh_type == SHT_STRTAB) { dump_string_table(p, 1); continue; } if (shdr.sh_type == SHT_RELA) { dump_reloc_table(elf_file, p_ehdr, p, 1, filename); continue; } if (shdr.sh_type == SHT_REL) { dump_reloc_table(elf_file, p_ehdr, p, 1, filename); continue; } if (shdr.sh_type == SHT_DYNAMIC) { dump_dynamic(elf_file, p, 1, filename); continue; } (void) printf("\n%s:\n", p->scn_name); print_rawdata(p_sec, size); } (void) printf("\n"); } /* * Print section contents. This function does not print the contents * of the sections but sets up the parameters and then calls * print_section to print the contents. Calling another function to print * the contents allows both -d and -n to work correctly * simultaneously. Input is an ELF file descriptor, the ELF header, * the SCNTAB structure, the number of sections, and the filename. * Set the range of sections if d_flag, and set section name if * n_flag. */ static void dump_section(Elf *elf_file, GElf_Ehdr *p_ehdr, SCNTAB *s, int num_scns, char *filename) { SCNTAB *n_range, *d_range; /* for use with -n and -d modifiers */ int i; int found_it = 0; /* for use with -n section_name */ if (n_flag) { n_range = s; for (i = 0; i < num_scns; i++, n_range++) { if ((strcmp(name, n_range->scn_name)) != 0) continue; else { found_it = 1; print_section(elf_file, p_ehdr, n_range, 1, filename); } } if (!found_it) { (void) fprintf(stderr, "%s: %s: %s not found\n", prog_name, filename, name); } } /* end n_flag */ if (d_flag) { d_range = s; d_num = check_range(d_low, d_hi, num_scns, filename); if (d_num < 0) return; d_range += d_low - 1; print_section(elf_file, p_ehdr, d_range, d_num, filename); } /* end d_flag */ if (!n_flag && !d_flag) print_section(elf_file, p_ehdr, s, num_scns, filename); } /* * Print the section header table. This function does not print the contents * of the section headers but sets up the parameters and then calls * print_shdr to print the contents. Calling another function to print * the contents allows both -d and -n to work correctly * simultaneously. Input is the SCNTAB structure, * the number of sections from the ELF header, and the filename. * Set the range of section headers to print if d_flag, and set * name of section header to print if n_flag. */ static void dump_shdr(Elf *elf_file, SCNTAB *s, int num_scns, char *filename) { SCNTAB *n_range, *d_range; /* for use with -n and -d modifiers */ int field; int i; int found_it = 0; /* for use with -n section_name */ if (gelf_getclass(elf_file) == ELFCLASS64) field = 21; else field = 13; if (!p_flag) { (void) printf("\n **** SECTION HEADER TABLE ****\n"); (void) printf("[No]\tType\tFlags\t%-*s %-*s %-*s%sName\n", field, "Addr", field, "Offset", field, "Size", /* compatibility: tab for elf32 */ (field == 13) ? "\t" : " "); (void) printf("\tLink\tInfo\t%-*s Entsize\n\n", field, "Adralgn"); } if (n_flag) { n_range = s; for (i = 1; i <= num_scns; i++, n_range++) { if ((strcmp(name, n_range->scn_name)) != 0) continue; else { found_it = 1; print_shdr(elf_file, n_range, 1, i); } } if (!found_it) { (void) fprintf(stderr, "%s: %s: %s not found\n", prog_name, filename, name); } } /* end n_flag */ if (d_flag) { d_range = s; d_num = check_range(d_low, d_hi, num_scns, filename); if (d_num < 0) return; d_range += d_low - 1; print_shdr(elf_file, d_range, d_num, d_low); } /* end d_flag */ if (!n_flag && !d_flag) print_shdr(elf_file, s, num_scns, 1); } /* * Process all of the command line options (except * for -a, -g, -f, and -o). All of the options processed * by this function require the presence of the section * header table and will not be processed if it is not present. * Set up a buffer containing section name, section header, * and section descriptor for each section in the file. This * structure is used to avoid duplicate calls to libelf functions. * Structure members for the symbol table, the debugging information, * and the line number information are global. All of the * rest are local. */ static void dump_section_table(Elf *elf_file, GElf_Ehdr *elf_head_p, char *filename) { static SCNTAB *buffer, *p_scns; Elf_Scn *scn = 0; char *s_name = NULL; int found = 0; unsigned int num_scns; size_t shstrndx; size_t shnum; if (elf_getshdrnum(elf_file, &shnum) == -1) { (void) fprintf(stderr, "%s: %s: elf_getshdrnum failed: %s\n", prog_name, filename, elf_errmsg(-1)); return; } if (elf_getshdrstrndx(elf_file, &shstrndx) == -1) { (void) fprintf(stderr, "%s: %s: elf_getshdrstrndx failed: %s\n", prog_name, filename, elf_errmsg(-1)); return; } if ((buffer = calloc(shnum, sizeof (SCNTAB))) == NULL) { (void) fprintf(stderr, "%s: %s: cannot calloc space\n", prog_name, filename); return; } /* LINTED */ num_scns = (int)shnum - 1; p_symtab = (SCNTAB *)0; p_dynsym = (SCNTAB *)0; p_scns = buffer; p_head_scns = buffer; while ((scn = elf_nextscn(elf_file, scn)) != 0) { if ((gelf_getshdr(scn, &buffer->p_shdr)) == 0) { (void) fprintf(stderr, "%s: %s: %s\n", prog_name, filename, elf_errmsg(-1)); return; } s_name = (char *) elf_strptr(elf_file, shstrndx, buffer->p_shdr.sh_name); buffer->scn_name = s_name ? s_name : (char *)UNKNOWN; buffer->p_sd = scn; if (buffer->p_shdr.sh_type == SHT_SYMTAB) { found += 1; p_symtab = buffer; } if (buffer->p_shdr.sh_type == SHT_DYNSYM) p_dynsym = buffer; buffer++; } /* * These functions depend upon the presence of the section header table * and will not be invoked in its absence */ if (h_flag) { dump_shdr(elf_file, p_scns, num_scns, filename); } if (p_symtab && (t_flag || T_flag)) { dump_symbol_table(elf_file, p_symtab, filename); } if (c_flag) { dump_string_table(p_scns, num_scns); } if (r_flag) { dump_reloc_table(elf_file, elf_head_p, p_scns, num_scns, filename); } if (L_flag) { dump_dynamic(elf_file, p_scns, num_scns, filename); } if (s_flag) { dump_section(elf_file, elf_head_p, p_scns, num_scns, filename); } } /* * Load the archive string table(s) (for extended-length strings) * into an in-core table/list */ static struct stab_list_s * load_arstring_table(struct stab_list_s *STabList, int fd, Elf *elf_file, Elf_Arhdr *p_ar, char *filename) { off_t here; struct stab_list_s *STL_entry, *STL_next; if (p_ar) { STL_entry = malloc(sizeof (struct stab_list_s)); STL_entry->next = 0; STL_entry->strings = 0; STL_entry->size = 0; if (!STabList) STabList = STL_entry; else { STL_next = STabList; while (STL_next->next != (void *)0) STL_next = STL_next->next; STL_next->next = STL_entry; } STL_entry->size = p_ar->ar_size; STL_entry->strings = malloc(p_ar->ar_size); here = elf_getbase(elf_file); if ((lseek(fd, here, 0)) != here) { (void) fprintf(stderr, "%s: %s: could not lseek\n", prog_name, filename); } if ((read(fd, STL_entry->strings, p_ar->ar_size)) == -1) { (void) fprintf(stderr, "%s: %s: could not read\n", prog_name, filename); } } return (STabList); } /* * Print the archive header for each member of an archive. * Also call ar_sym_read to print the symbols in the * archive symbol table if g_flag. Input is a file descriptor, * an ELF file descriptor, and the filename. Putting the call * to dump the archive symbol table in this function is more * efficient since it is necessary to examine the archive member * name in the archive header to determine which member is the * symbol table. */ static void dump_ar_hdr(int fd, Elf *elf_file, char *filename) { extern int v_flag, g_flag, a_flag, p_flag; Elf_Arhdr *p_ar; Elf *arf; Elf_Cmd cmd; int title = 0; int err = 0; char buf[DATESIZE]; cmd = ELF_C_READ; while ((arf = elf_begin(fd, cmd, elf_file)) != 0) { p_ar = elf_getarhdr(arf); if (p_ar == NULL) { (void) fprintf(stderr, "%s: %s: %s\n", prog_name, filename, elf_errmsg(-1)); continue; } if (strcmp(p_ar->ar_name, "/") == 0) { if (g_flag) ar_sym_read(elf_file, filename); } else if (strcmp(p_ar->ar_name, "//") == 0) { StringTableList = load_arstring_table( StringTableList, fd, arf, p_ar, filename); cmd = elf_next(arf); (void) elf_end(arf); continue; } else { if (a_flag) { (void) printf("%s[%s]:\n", filename, p_ar->ar_name); if (!p_flag && title == 0) { if (!v_flag) (void) printf( "\n\n\t\t\t***ARCHIVE HEADER***" "\n Date Uid Gid Mode Size Member Name\n\n"); else (void) printf( "\n\n\t\t\t***ARCHIVE HEADER***" "\n Date Uid Gid Mode Size Member Name\n\n"); title = 1; } if (!v_flag) { (void) printf( "\t0x%.8lx %6d %6d 0%.6ho 0x%.8lx %-s\n\n", p_ar->ar_date, (int)p_ar->ar_uid, (int)p_ar->ar_gid, (int)p_ar->ar_mode, p_ar->ar_size, p_ar->ar_name); } else { if ((strftime(buf, DATESIZE, "%b %d %H:%M:%S %Y", localtime( &(p_ar->ar_date)))) == 0) { (void) fprintf(stderr, "%s: %s: don't have enough space to store the date\n", prog_name, filename); exit(1); } (void) printf( "\t%s %6d %6d 0%.6ho 0x%.8lx %-s\n\n", buf, (int)p_ar->ar_uid, (int)p_ar->ar_gid, (int)p_ar->ar_mode, p_ar->ar_size, p_ar->ar_name); } } } cmd = elf_next(arf); (void) elf_end(arf); } /* end while */ err = elf_errno(); if (err != 0) { (void) fprintf(stderr, "%s: %s: %s\n", prog_name, filename, elf_errmsg(err)); } } /* * Process member files of an archive. This function provides * a loop through an archive equivalent the processing of * each_file for individual object files. */ static void dump_ar_files(int fd, Elf *elf_file, char *filename) { Elf_Arhdr *p_ar; Elf *arf; Elf_Cmd cmd; Elf_Kind file_type; GElf_Ehdr elf_head; char *fullname; cmd = ELF_C_READ; while ((arf = elf_begin(fd, cmd, elf_file)) != 0) { size_t len; p_ar = elf_getarhdr(arf); if (p_ar == NULL) { (void) fprintf(stderr, "%s: %s: %s\n", prog_name, filename, elf_errmsg(-1)); return; } if ((strcmp(p_ar->ar_name, "/") == 0) || (strcmp(p_ar->ar_name, "//") == 0)) { cmd = elf_next(arf); (void) elf_end(arf); continue; } len = strlen(filename) + strlen(p_ar->ar_name) + 3; if ((fullname = malloc(len)) == NULL) return; (void) snprintf(fullname, len, "%s[%s]", filename, p_ar->ar_name); (void) printf("\n%s:\n", fullname); file_type = elf_kind(arf); if (file_type == ELF_K_ELF) { if (dump_elf_header(arf, fullname, &elf_head) == NULL) return; if (o_flag) dump_exec_header(arf, (unsigned)elf_head.e_phnum, fullname); if (x_flag) dump_section_table(arf, &elf_head, fullname); } else { (void) fprintf(stderr, "%s: %s: invalid file type\n", prog_name, fullname); cmd = elf_next(arf); (void) elf_end(arf); continue; } cmd = elf_next(arf); (void) elf_end(arf); } /* end while */ } /* * Takes a filename as input. Test first for a valid version * of libelf.a and exit on error. Process each valid file * or archive given as input on the command line. Check * for file type. If it is an archive, process the archive- * specific options first, then files within the archive. * If it is an ELF object file, process it; otherwise * warn that it is an invalid file type. * All options except the archive-specific and program * execution header are processed in the function, dump_section_table. */ static void each_file(char *filename) { Elf *elf_file; GElf_Ehdr elf_head; int fd; Elf_Kind file_type; struct stat buf; Elf_Cmd cmd; errno = 0; if (stat(filename, &buf) == -1) { int err = errno; (void) fprintf(stderr, "%s: %s: %s", prog_name, filename, strerror(err)); return; } if ((fd = open((filename), O_RDONLY)) == -1) { (void) fprintf(stderr, "%s: %s: cannot read\n", prog_name, filename); return; } cmd = ELF_C_READ; if ((elf_file = elf_begin(fd, cmd, (Elf *)0)) == NULL) { (void) fprintf(stderr, "%s: %s: %s\n", prog_name, filename, elf_errmsg(-1)); return; } file_type = elf_kind(elf_file); if (file_type == ELF_K_AR) { if (a_flag || g_flag) { dump_ar_hdr(fd, elf_file, filename); elf_file = elf_begin(fd, cmd, (Elf *)0); } if (z_flag) dump_ar_files(fd, elf_file, filename); } else { if (file_type == ELF_K_ELF) { (void) printf("\n%s:\n", filename); if (dump_elf_header(elf_file, filename, &elf_head)) { if (o_flag) dump_exec_header(elf_file, (unsigned)elf_head.e_phnum, filename); if (x_flag) dump_section_table(elf_file, &elf_head, filename); } } else { (void) fprintf(stderr, "%s: %s: invalid file type\n", prog_name, filename); } } (void) elf_end(elf_file); (void) close(fd); } /* * Sets up flags for command line options given and then * calls each_file() to process each file. */ int main(int argc, char *argv[], char *envp[]) { char *optstr = OPTSTR; /* option string used by getopt() */ int optchar; /* * Check for a binary that better fits this architecture. */ (void) conv_check_native(argv, envp); prog_name = argv[0]; (void) setlocale(LC_ALL, ""); while ((optchar = getopt(argc, argv, optstr)) != -1) { switch (optchar) { case 'a': a_flag = 1; x_flag = 1; break; case 'g': g_flag = 1; x_flag = 1; break; case 'v': v_flag = 1; break; case 'p': p_flag = 1; break; case 'f': f_flag = 1; z_flag = 1; break; case 'o': o_flag = 1; z_flag = 1; break; case 'h': h_flag = 1; x_flag = 1; z_flag = 1; break; case 's': s_flag = 1; x_flag = 1; z_flag = 1; break; case 'd': d_flag = 1; x_flag = 1; z_flag = 1; set_range(optarg, &d_low, &d_hi); break; case 'n': n_flag++; x_flag = 1; z_flag = 1; name = optarg; break; case 'r': r_flag = 1; x_flag = 1; z_flag = 1; break; case 't': t_flag = 1; x_flag = 1; z_flag = 1; break; case 'C': C_flag = 1; t_flag = 1; x_flag = 1; z_flag = 1; break; case 'T': T_flag = 1; x_flag = 1; z_flag = 1; set_range(optarg, &T_low, &T_hi); break; case 'c': c_flag = 1; x_flag = 1; z_flag = 1; break; case 'L': L_flag = 1; x_flag = 1; z_flag = 1; break; case 'V': V_flag = 1; (void) fprintf(stderr, "dump: %s %s\n", (const char *)SGU_PKG, (const char *)SGU_REL); break; case '?': errflag += 1; break; default: break; } } if (errflag || (optind >= argc) || (!z_flag && !x_flag)) { if (!(V_flag && (argc == 2))) { usage(); exit(269); } } if (elf_version(EV_CURRENT) == EV_NONE) { (void) fprintf(stderr, "%s: libelf is out of date\n", prog_name); exit(101); } while (optind < argc) { each_file(argv[optind]); optind++; } return (0); }