1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License (the "License"). 6 * You may not use this file except in compliance with the License. 7 * 8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9 * or http://www.opensolaris.org/os/licensing. 10 * See the License for the specific language governing permissions 11 * and limitations under the License. 12 * 13 * When distributing Covered Code, include this CDDL HEADER in each 14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15 * If applicable, add the following below this CDDL HEADER, with the 16 * fields enclosed by brackets "[]" replaced with your own identifying 17 * information: Portions Copyright [yyyy] [name of copyright owner] 18 * 19 * CDDL HEADER END 20 */ 21 22 /* 23 * Copyright (c) 1995, 2010, Oracle and/or its affiliates. All rights reserved. 24 */ 25 26 #include <stdio.h> 27 #include <stdlib.h> 28 #include <unistd.h> 29 #include <fcntl.h> 30 #include <string.h> 31 #include <errno.h> 32 #include <sys/types.h> 33 #include <sys/signal.h> 34 #include <sys/fault.h> 35 #include <sys/syscall.h> 36 #include <procfs.h> 37 #include <sys/auxv.h> 38 #include <libelf.h> 39 #include <sys/param.h> 40 #include <stdarg.h> 41 42 #include "rdb.h" 43 #include "disasm.h" 44 45 /* 46 * I don't like this global but it's a work-around for the 47 * poor disassemble interface for now. 48 */ 49 static struct ps_prochandle *cur_ph; 50 51 /* 52 * This routine converts 'address' into it's closest symbol 53 * representation. 54 * 55 * The following flags are used to effect the output: 56 * 57 * FLG_PAP_SONAME 58 * embed the SONAME in the symbol name 59 * FLG_PAP_NOHEXNAME 60 * if no symbol found return a null string 61 * If this flag is not set return a string displaying 62 * the 'hex' value of address. 63 * FLG_PAP_PLTDECOM 64 * decompose the PLT symbol if possible 65 */ 66 char * 67 print_address_ps(struct ps_prochandle *ph, ulong_t address, unsigned flags) 68 { 69 static char buf[256]; 70 GElf_Sym sym; 71 char *str; 72 ulong_t val; 73 size_t len; 74 75 if (addr_to_sym(ph, address, &sym, &str) == RET_OK) { 76 map_info_t *mip; 77 ulong_t pltbase; 78 79 if (flags & FLG_PAP_SONAME) { 80 /* 81 * Embed SOName in symbol name 82 */ 83 if ((mip = addr_to_map(ph, address)) != 0) { 84 (void) strcpy(buf, mip->mi_name); 85 (void) strcat(buf, ":"); 86 } else 87 (void) sprintf(buf, "0x%08lx:", address); 88 } else 89 buf[0] = '\0'; 90 91 if ((flags & FLG_PAP_PLTDECOM) && 92 (pltbase = is_plt(ph, address)) != 0) { 93 rd_plt_info_t rp; 94 pstatus_t pstatus; 95 96 if (pread(ph->pp_statusfd, &pstatus, 97 sizeof (pstatus), 0) == -1) 98 perr("pap: reading pstatus"); 99 100 if (rd_plt_resolution(ph->pp_rap, address, 101 pstatus.pr_lwp.pr_lwpid, pltbase, 102 &rp) == RD_OK) { 103 if (rp.pi_flags & RD_FLG_PI_PLTBOUND) { 104 GElf_Sym _sym; 105 char *_str; 106 107 if (addr_to_sym(ph, rp.pi_baddr, 108 &_sym, &_str) == RET_OK) { 109 len = strlen(buf); 110 (void) snprintf(buf + len, 111 256 - len, 112 "0x%lx:plt(%s)", 113 address, _str); 114 return (buf); 115 } 116 } 117 } 118 val = sym.st_value; 119 len = strlen(buf); 120 (void) snprintf(buf + len, 256 - len, 121 "0x%lx:plt(unbound)+0x%lx", 122 address, address - val); 123 return (buf); 124 } else { 125 126 val = sym.st_value; 127 128 len = strlen(buf); 129 if (val < address) { 130 (void) snprintf(buf + len, 256 - len, 131 "%s+0x%lx", str, address - val); 132 } else { 133 (void) strlcat(buf, str, 256); 134 } 135 return (buf); 136 } 137 } else { 138 if (flags & FLG_PAP_NOHEXNAME) 139 buf[0] = '\0'; 140 else 141 (void) sprintf(buf, "0x%lx", address); 142 return (buf); 143 } 144 } 145 146 char * 147 print_address(unsigned long address) 148 { 149 return (print_address_ps(cur_ph, address, 150 FLG_PAP_SONAME| FLG_PAP_PLTDECOM)); 151 } 152 153 retc_t 154 disasm_addr(struct ps_prochandle *ph, ulong_t addr, int num_inst) 155 { 156 ulong_t offset, end; 157 int vers = V8_MODE; 158 159 if (ph->pp_dmodel == PR_MODEL_LP64) 160 vers = V9_MODE | V9_SGI_MODE; 161 162 for (offset = addr, end = addr + num_inst * 4; offset < end; 163 offset += 4) { 164 char *instr_str; 165 unsigned int instr; 166 167 if (ps_pread(ph, offset, (char *)&instr, 168 sizeof (unsigned)) != PS_OK) 169 perror("da: ps_pread"); 170 171 cur_ph = ph; 172 instr_str = disassemble(instr, offset, print_address, 0, 0, 173 vers); 174 175 (void) printf("%-30s: %s\n", print_address(offset), instr_str); 176 } 177 return (RET_OK); 178 } 179 180 void 181 disasm(struct ps_prochandle *ph, int num_inst) 182 { 183 pstatus_t pstat; 184 185 if (pread(ph->pp_statusfd, &pstat, sizeof (pstat), 0) == -1) 186 perr("disasm: PIOCSTATUS"); 187 188 (void) disasm_addr(ph, (ulong_t)pstat.pr_lwp.pr_reg[R_PC], num_inst); 189 } 190