dis.c revision 12927:a27c46eb192b
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 */ 49static 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 */ 66char * 67print_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 74 if (addr_to_sym(ph, address, &sym, &str) == RET_OK) { 75 map_info_t *mip; 76 ulong_t pltbase; 77 78 if (flags & FLG_PAP_SONAME) { 79 /* 80 * Embed SOName in symbol name 81 */ 82 if (mip = addr_to_map(ph, address)) { 83 (void) strcpy(buf, mip->mi_name); 84 (void) strcat(buf, ":"); 85 } else 86 (void) sprintf(buf, "0x%08lx:", address); 87 } else 88 buf[0] = '\0'; 89 90 if ((flags & FLG_PAP_PLTDECOM) && 91 (pltbase = is_plt(ph, address)) != 0) { 92 rd_plt_info_t rp; 93 pstatus_t pstatus; 94 95 if (pread(ph->pp_statusfd, &pstatus, 96 sizeof (pstatus), 0) == -1) 97 perr("pap: reading pstatus"); 98 99 if (rd_plt_resolution(ph->pp_rap, address, 100 pstatus.pr_lwp.pr_lwpid, pltbase, 101 &rp) == RD_OK) { 102 if (rp.pi_flags & RD_FLG_PI_PLTBOUND) { 103 GElf_Sym _sym; 104 char *_str; 105 106 if (addr_to_sym(ph, rp.pi_baddr, 107 &_sym, &_str) == RET_OK) { 108 (void) snprintf(buf, 256, 109 "%s0x%lx:plt(%s)", 110 buf, address, _str); 111 return (buf); 112 } 113 } 114 } 115 val = sym.st_value; 116 (void) snprintf(buf, 256, "%s0x%lx:plt(unbound)+0x%lx", 117 buf, address, address - val); 118 return (buf); 119 } else { 120 121 val = sym.st_value; 122 123 if (val < address) 124 (void) snprintf(buf, 256, "%s%s+0x%lx", buf, 125 str, address - val); 126 else 127 (void) snprintf(buf, 256, "%s%s", buf, str); 128 return (buf); 129 } 130 } else { 131 if (flags & FLG_PAP_NOHEXNAME) 132 buf[0] = '\0'; 133 else 134 (void) sprintf(buf, "0x%lx", address); 135 return (buf); 136 } 137} 138 139char * 140print_address(unsigned long address) 141{ 142 return (print_address_ps(cur_ph, address, 143 FLG_PAP_SONAME| FLG_PAP_PLTDECOM)); 144} 145 146retc_t 147disasm_addr(struct ps_prochandle *ph, ulong_t addr, int num_inst) 148{ 149 ulong_t offset, end; 150 int vers = V8_MODE; 151 152 if (ph->pp_dmodel == PR_MODEL_LP64) 153 vers = V9_MODE | V9_SGI_MODE; 154 155 for (offset = addr, end = addr + num_inst * 4; offset < end; 156 offset += 4) { 157 char *instr_str; 158 unsigned int instr; 159 160 if (ps_pread(ph, offset, (char *)&instr, 161 sizeof (unsigned)) != PS_OK) 162 perror("da: ps_pread"); 163 164 cur_ph = ph; 165 instr_str = disassemble(instr, offset, print_address, 0, 0, 166 vers); 167 168 (void) printf("%-30s: %s\n", print_address(offset), instr_str); 169 } 170 return (RET_OK); 171} 172 173void 174disasm(struct ps_prochandle *ph, int num_inst) 175{ 176 pstatus_t pstat; 177 178 if (pread(ph->pp_statusfd, &pstat, sizeof (pstat), 0) == -1) 179 perr("disasm: PIOCSTATUS"); 180 181 (void) disasm_addr(ph, (ulong_t)pstat.pr_lwp.pr_reg[R_PC], num_inst); 182} 183